From 0613f471e8e18214a17abe3a8cd299c1bc73a340 Mon Sep 17 00:00:00 2001 From: vyzo Date: Wed, 20 Mar 2024 19:04:42 +0200 Subject: [PATCH] Improve MOP safety (#1182) Specifically, `class-slot-offset` and `find-method` need to be immune to type errors for symbolic table references (which doesn't check anything). Also normalizes the behavior of `class-instance?`. Impetus: ``` Gerbil v0.18.1-72-gb280d037 on Gambit v4.9.5-124-g6d1a9a9b > (defclass Point (x y)) > (def a (Point 1 2)) Process scheme segmentation fault (core dumped) ``` Not good UX. --- src/bootstrap/gerbil/compiler/base~0.scm | 116 +- src/bootstrap/gerbil/compiler/base~1.scm | 640 +- src/bootstrap/gerbil/compiler/compile~0.scm | 17188 +++++++------- src/bootstrap/gerbil/compiler/compile~1.scm | 2218 +- src/bootstrap/gerbil/compiler/driver~0.scm | 3556 +-- src/bootstrap/gerbil/compiler/driver~1.scm | 160 +- src/bootstrap/gerbil/compiler/method~0.scm | 2484 +- src/bootstrap/gerbil/compiler/method~1.scm | 3488 +-- .../gerbil/compiler/optimize-ann~0.scm | 19762 ++++++++-------- .../gerbil/compiler/optimize-ann~1.scm | 280 +- .../gerbil/compiler/optimize-base~0.scm | 2434 +- .../gerbil/compiler/optimize-base~1.scm | 3318 +-- .../gerbil/compiler/optimize-call~0.scm | 5766 ++--- .../gerbil/compiler/optimize-call~1.scm | 62 +- .../gerbil/compiler/optimize-spec~0.scm | 11280 ++++----- .../gerbil/compiler/optimize-spec~1.scm | 546 +- .../gerbil/compiler/optimize-top~0.scm | 17414 +++++++------- .../gerbil/compiler/optimize-top~1.scm | 710 +- .../gerbil/compiler/optimize-xform~0.scm | 2066 +- .../gerbil/compiler/optimize-xform~1.scm | 702 +- src/bootstrap/gerbil/compiler/optimize~0.scm | 2166 +- src/bootstrap/gerbil/compiler/optimize~1.scm | 62 +- src/bootstrap/gerbil/compiler/ssxi~1.scm | 4730 ++-- src/bootstrap/gerbil/core/macro-object~0.scm | 2 +- src/bootstrap/gerbil/core/match~1.scm | 130 +- src/bootstrap/gerbil/core/match~2.scm | 84 +- src/bootstrap/gerbil/core/mop~MOP-2~0.scm | 2 +- src/bootstrap/gerbil/core/sugar~2.scm | 564 +- src/bootstrap/gerbil/core/sugar~3.scm | 318 +- src/bootstrap/gerbil/expander/common~0.scm | 16 +- src/bootstrap/gerbil/expander/common~1.scm | 1636 +- src/bootstrap/gerbil/expander/compile~0.scm | 1210 +- src/bootstrap/gerbil/expander/core~0.scm | 3390 +-- src/bootstrap/gerbil/expander/core~1.scm | 7032 +++--- src/bootstrap/gerbil/expander/init~0.scm | 18 +- src/bootstrap/gerbil/expander/module.ssxi.ss | 6 +- src/bootstrap/gerbil/expander/module~0.scm | 4984 ++-- src/bootstrap/gerbil/expander/module~1.scm | 1616 +- src/bootstrap/gerbil/expander/root~0.scm | 758 +- src/bootstrap/gerbil/expander/stxcase~0.scm | 3316 +-- src/bootstrap/gerbil/expander/stxcase~1.scm | 214 +- src/bootstrap/gerbil/expander/stx~0.scm | 1526 +- src/bootstrap/gerbil/expander/stx~1.scm | 686 +- src/bootstrap/gerbil/expander/top~0.scm | 4816 ++-- src/bootstrap/gerbil/runtime/c3~0.scm | 2 +- src/bootstrap/gerbil/runtime/control~0.scm | 2 +- src/bootstrap/gerbil/runtime/error~0.scm | 4724 ++-- src/bootstrap/gerbil/runtime/error~1.scm | 1608 +- src/bootstrap/gerbil/runtime/eval~0.scm | 3916 +-- src/bootstrap/gerbil/runtime/eval~1.scm | 1074 +- src/bootstrap/gerbil/runtime/gambit~0.scm | 2 +- src/bootstrap/gerbil/runtime/hash.ssi | 64 +- src/bootstrap/gerbil/runtime/hash.ssxi.ss | 64 +- src/bootstrap/gerbil/runtime/hash~0.scm | 2230 +- src/bootstrap/gerbil/runtime/hash~1.scm | 1960 +- src/bootstrap/gerbil/runtime/init~0.scm | 356 +- src/bootstrap/gerbil/runtime/interface~0.scm | 1222 +- src/bootstrap/gerbil/runtime/interface~1.scm | 1964 +- src/bootstrap/gerbil/runtime/loader~0.scm | 180 +- .../gerbil/runtime/mop-system-classes~0.scm | 540 +- src/bootstrap/gerbil/runtime/mop~0.scm | 550 +- src/bootstrap/gerbil/runtime/mop~1.scm | 1040 +- src/bootstrap/gerbil/runtime/repl~0.scm | 28 +- src/bootstrap/gerbil/runtime/syntax~0.scm | 508 +- src/bootstrap/gerbil/runtime/syntax~1.scm | 1966 +- src/bootstrap/gerbil/runtime/system~0.scm | 4 +- src/bootstrap/gerbil/runtime/table~0.scm | 2 +- src/bootstrap/gerbil/runtime/thread~0.scm | 394 +- src/bootstrap/gerbil/runtime/util~0.scm | 2 +- src/bootstrap/gerbil/runtime~0.scm | 2 +- src/gerbil/runtime/mop.ss | 24 +- 71 files changed, 78916 insertions(+), 78984 deletions(-) diff --git a/src/bootstrap/gerbil/compiler/base~0.scm b/src/bootstrap/gerbil/compiler/base~0.scm index 2a6311609..ed33f85ad 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 1710833425) + (define gerbil/compiler/base::timestamp 1710943498) (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 ((__tmp99564 (list)) - (__tmp99562 - (let ((__tmp99563 + (let ((__tmp99546 (list)) + (__tmp99544 + (let ((__tmp99545 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp99563 '())))) + (cons __tmp99545 '())))) (declare (not safe)) (make-class-type 'gxc#symbol-table::t 'symbol-table - __tmp99564 + __tmp99546 '(gensyms bindings) - __tmp99562 + __tmp99544 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _$args99515_ - (apply make-instance gxc#symbol-table::t _$args99515_))) + (lambda _$args99497_ + (apply make-instance gxc#symbol-table::t _$args99497_))) (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 (_self99513_) - (if (let ((__tmp99570 + (lambda (_self99495_) + (if (let ((__tmp99552 (let () (declare (not safe)) - (##structure-length _self99513_)))) + (##structure-length _self99495_)))) (declare (not safe)) - (##fx< '2 __tmp99570)) + (##fx< '2 __tmp99552)) (begin - (let ((__tmp99567 + (let ((__tmp99549 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp99566 + (__tmp99548 (let () (declare (not safe)) - (##structure-type _self99513_)))) + (##structure-type _self99495_)))) (declare (not safe)) (##unchecked-structure-set! - _self99513_ - __tmp99567 + _self99495_ + __tmp99549 '1 - __tmp99566 + __tmp99548 '#f)) - (let ((__tmp99569 + (let ((__tmp99551 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp99568 + (__tmp99550 (let () (declare (not safe)) - (##structure-type _self99513_)))) + (##structure-type _self99495_)))) (declare (not safe)) (##unchecked-structure-set! - _self99513_ - __tmp99569 + _self99495_ + __tmp99551 '2 - __tmp99568 + __tmp99550 '#f))) - (let ((__tmp99565 + (let ((__tmp99547 (let () (declare (not safe)) - (##vector-length _self99513_)))) + (##vector-length _self99495_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self99513_ + _self99495_ '2 - __tmp99565))))) + __tmp99547))))) (let () (declare (not safe)) (bind-method!__% @@ -121,46 +121,46 @@ gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_message99382_ _stx99383_ . _details99384_) - (let ((_ctx99389_ - (let ((_$e99386_ (gxc#current-compile-context))) - (if _$e99386_ _$e99386_ 'compile)))) + (lambda (_message99364_ _stx99365_ . _details99366_) + (let ((_ctx99371_ + (let ((_$e99368_ (gxc#current-compile-context))) + (if _$e99368_ _$e99368_ 'compile)))) (apply gx#raise-syntax-error - _ctx99389_ - _message99382_ - _stx99383_ - _details99384_)))) + _ctx99371_ + _message99364_ + _stx99365_ + _details99366_)))) (define gxc#verbose - (lambda _args99379_ + (lambda _args99361_ (if (gxc#current-compile-verbose) - (let ((__tmp99571 (lambda () (apply displayln _args99379_)))) + (let ((__tmp99553 (lambda () (apply displayln _args99361_)))) (declare (not safe)) - (with-lock gxc#+verbose-mutex+ __tmp99571)) + (with-lock gxc#+verbose-mutex+ __tmp99553)) '#!void))) (define gxc#+verbose-mutex+ (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (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_ + (lambda (_id99343_) + (let* ((_str99345_ + (if (let () (declare (not safe)) (symbol? _id99343_)) + (symbol->string _id99343_) + _id99343_)) + (_len99347_ (string-length _str99345_)) + (_res99349_ (make-string _len99347_))) + (let _lp99352_ ((_i99354_ '0)) + (if (fx< _i99354_ _len99347_) + (let* ((_char99356_ (string-ref _str99345_ _i99354_)) + (_xchar99358_ (if (let () (declare (not safe)) (string-index__0 gxc#module-path-reserved-chars - _char99374_)) + _char99356_)) '#\_ - _char99374_))) - (string-set! _res99367_ _i99372_ _xchar99376_) - (let ((__tmp99572 - (let () (declare (not safe)) (fx+ _i99372_ '1)))) + _char99356_))) + (string-set! _res99349_ _i99354_ _xchar99358_) + (let ((__tmp99554 + (let () (declare (not safe)) (fx+ _i99354_ '1)))) (declare (not safe)) - (_lp99370_ __tmp99572))) - _res99367_))))))) + (_lp99352_ __tmp99554))) + _res99349_))))))) diff --git a/src/bootstrap/gerbil/compiler/base~1.scm b/src/bootstrap/gerbil/compiler/base~1.scm index 2fbc8f075..312c007ac 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]#_g99602_| + (define |gxc[1]#_g99584_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99604_| + (define |gxc[1]#_g99586_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99606_| + (define |gxc[1]#_g99588_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99611_| + (define |gxc[1]#_g99593_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99614_| + (define |gxc[1]#_g99596_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99619_| + (define |gxc[1]#_g99601_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99622_| + (define |gxc[1]#_g99604_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99627_| + (define |gxc[1]#_g99609_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99630_| + (define |gxc[1]#_g99612_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99635_| + (define |gxc[1]#_g99617_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g99638_| + (define |gxc[1]#_g99620_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! @@ -79,420 +79,420 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_stx98959_) + (lambda (_stx98941_) (let () (declare (not safe)) - (gx#macro-expand-syntax-case__% _stx98959_ 'stx-eq? 'stx-e 'quote)))) + (gx#macro-expand-syntax-case__% _stx98941_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_stx98962_) - (let* ((_g9896598989_ - (lambda (_g9896698985_) + (lambda (_stx98944_) + (let* ((_g9894798971_ + (lambda (_g9894898967_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9896698985_)))) - (_g9896499292_ - (lambda (_g9896698993_) + _g9894898967_)))) + (_g9894699274_ + (lambda (_g9894898975_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9896698993_)) - (let ((_e9897198996_ + (gx#stx-pair? _g9894898975_)) + (let ((_e9895398978_ (let () (declare (not safe)) - (gx#syntax-e _g9896698993_)))) - (let ((_hd9897099000_ + (gx#syntax-e _g9894898975_)))) + (let ((_hd9895298982_ (let () (declare (not safe)) - (##car _e9897198996_))) - (_tl9896999003_ + (##car _e9895398978_))) + (_tl9895198985_ (let () (declare (not safe)) - (##cdr _e9897198996_)))) + (##cdr _e9895398978_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9896999003_)) - (let ((_e9897499006_ + (gx#stx-pair? _tl9895198985_)) + (let ((_e9895698988_ (let () (declare (not safe)) - (gx#syntax-e _tl9896999003_)))) - (let ((_hd9897399010_ + (gx#syntax-e _tl9895198985_)))) + (let ((_hd9895598992_ (let () (declare (not safe)) - (##car _e9897499006_))) - (_tl9897299013_ + (##car _e9895698988_))) + (_tl9895498995_ (let () (declare (not safe)) - (##cdr _e9897499006_)))) + (##cdr _e9895698988_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl9897299013_)) - (let ((_g99573_ + (gx#stx-pair/null? _tl9895498995_)) + (let ((_g99555_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl9897299013_ + _tl9895498995_ '0)))) (begin - (let ((_g99574_ + (let ((_g99556_ (let () (declare (not safe)) - (if (##values? _g99573_) + (if (##values? _g99555_) (##vector-length - _g99573_) + _g99555_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g99574_ 2))) + (##fx= _g99556_ 2))) (error "Context expects 2 values" - _g99574_))) - (let ((_target9897599016_ + _g99556_))) + (let ((_target9895798998_ (let () (declare (not safe)) - (##vector-ref _g99573_ 0))) - (_tl9897799019_ + (##vector-ref _g99555_ 0))) + (_tl9895999001_ (let () (declare (not safe)) - (##vector-ref _g99573_ 1)))) + (##vector-ref _g99555_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9897799019_)) - (letrec ((_loop9897899022_ - (lambda (_hd9897699026_ + _tl9895999001_)) + (letrec ((_loop9896099004_ + (lambda (_hd9895899008_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause9898299029_) + _clause9896499011_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9897699026_)) - (let ((_e9897999032_ + (gx#stx-pair? _hd9895899008_)) + (let ((_e9896199014_ (let () (declare (not safe)) - (gx#syntax-e _hd9897699026_)))) - (let ((_lp-hd9898099036_ + (gx#syntax-e _hd9895899008_)))) + (let ((_lp-hd9896299018_ (let () (declare (not safe)) - (##car _e9897999032_))) - (_lp-tl9898199039_ + (##car _e9896199014_))) + (_lp-tl9896399021_ (let () (declare (not safe)) - (##cdr _e9897999032_)))) - (_loop9897899022_ - _lp-tl9898199039_ + (##cdr _e9896199014_)))) + (_loop9896099004_ + _lp-tl9896399021_ (let () (declare (not safe)) - (cons _lp-hd9898099036_ _clause9898299029_))))) - (let ((_clause9898399042_ - (reverse _clause9898299029_))) - ((lambda (_L99046_ _L99048_) + (cons _lp-hd9896299018_ _clause9896499011_))))) + (let ((_clause9896599024_ + (reverse _clause9896499011_))) + ((lambda (_L99028_ _L99030_) (if (let () (declare (not safe)) - (gx#identifier-list? _L99048_)) - (let* ((_g9906799084_ - (lambda (_g9906899080_) + (gx#identifier-list? _L99030_)) + (let* ((_g9904999066_ + (lambda (_g9905099062_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9906899080_)))) - (_g9906699145_ - (lambda (_g9906899088_) + _g9905099062_)))) + (_g9904899127_ + (lambda (_g9905099070_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g9906899088_)) - (let ((_g99575_ + _g9905099070_)) + (let ((_g99557_ (let () (declare (not safe)) (gx#syntax-split-splice - _g9906899088_ + _g9905099070_ '0)))) (begin - (let ((_g99576_ + (let ((_g99558_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g99575_) - (##vector-length _g99575_) + _g99557_) + (##vector-length _g99557_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g99576_ 2))) - (error "Context expects 2 values" _g99576_))) + (##fx= _g99558_ 2))) + (error "Context expects 2 values" _g99558_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target9907099091_ + (let ((_target9905299073_ (let () (declare (not safe)) (##vector-ref - _g99575_ + _g99557_ 0))) - (_tl9907299094_ + (_tl9905499076_ (let () (declare (not safe)) (##vector-ref - _g99575_ + _g99557_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl9907299094_)) - (letrec ((_loop9907399097_ + _tl9905499076_)) + (letrec ((_loop9905599079_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd9907199101_ _clause9907799104_) + (lambda (_hd9905399083_ _clause9905999086_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9907199101_)) - (let ((_e9907499107_ + (gx#stx-pair? _hd9905399083_)) + (let ((_e9905699089_ (let () (declare (not safe)) - (gx#syntax-e _hd9907199101_)))) - (let ((_lp-hd9907599111_ + (gx#syntax-e _hd9905399083_)))) + (let ((_lp-hd9905799093_ (let () (declare (not safe)) - (##car _e9907499107_))) - (_lp-tl9907699114_ + (##car _e9905699089_))) + (_lp-tl9905899096_ (let () (declare (not safe)) - (##cdr _e9907499107_)))) - (_loop9907399097_ - _lp-tl9907699114_ + (##cdr _e9905699089_)))) + (_loop9905599079_ + _lp-tl9905899096_ (let () (declare (not safe)) - (cons _lp-hd9907599111_ - _clause9907799104_))))) - (let ((_clause9907899117_ - (reverse _clause9907799104_))) - ((lambda (_L99121_) + (cons _lp-hd9905799093_ + _clause9905999086_))))) + (let ((_clause9906099099_ + (reverse _clause9905999086_))) + ((lambda (_L99103_) (let () - (let ((__tmp99588 + (let ((__tmp99570 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp99577 - (let ((__tmp99586 - (let ((__tmp99587 + (__tmp99559 + (let ((__tmp99568 + (let ((__tmp99569 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '$stx)))) (declare (not safe)) - (cons __tmp99587 '()))) + (cons __tmp99569 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp99578 - (let ((__tmp99579 - (let ((__tmp99585 + (__tmp99560 + (let ((__tmp99561 + (let ((__tmp99567 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp99580 - (let ((__tmp99584 + (__tmp99562 + (let ((__tmp99566 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '$stx))) - (__tmp99581 - (let ((__tmp99582 - (let ((__tmp99583 - (lambda (_g9913699139_ - _g9913799142_) + (__tmp99563 + (let ((__tmp99564 + (let ((__tmp99565 + (lambda (_g9911899121_ + _g9911999124_) (let () (declare (not safe)) - (cons _g9913699139_ - _g9913799142_))))) + (cons _g9911899121_ + _g9911999124_))))) (declare (not safe)) - (foldr1 __tmp99583 '() _L99121_)))) + (foldr1 __tmp99565 '() _L99103_)))) (declare (not safe)) - (cons _L99048_ __tmp99582)))) + (cons _L99030_ __tmp99564)))) (declare (not safe)) - (cons __tmp99584 __tmp99581)))) + (cons __tmp99566 __tmp99563)))) (declare (not safe)) - (cons __tmp99585 __tmp99580)))) + (cons __tmp99567 __tmp99562)))) (declare (not safe)) - (cons __tmp99579 '())))) + (cons __tmp99561 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp99586 - __tmp99578)))) + (cons __tmp99568 + __tmp99560)))) (declare (not safe)) - (cons __tmp99588 __tmp99577)))) - _clause9907899117_)))))) - (_loop9907399097_ _target9907099091_ '())) - (_g9906799084_ _g9906899088_))))) + (cons __tmp99570 __tmp99559)))) + _clause9906099099_)))))) + (_loop9905599079_ _target9905299073_ '())) + (_g9904999066_ _g9905099070_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g9906799084_ - _g9906899088_))))) - (_g9906699145_ - (let ((__tmp99591 - (lambda (_clause99149_) - (let* ((___stx9951899519_ - _clause99149_) - (_g9915399180_ + (_g9904999066_ + _g9905099070_))))) + (_g9904899127_ + (let ((__tmp99573 + (lambda (_clause99131_) + (let* ((___stx9950099501_ + _clause99131_) + (_g9913599162_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx9951899519_))))) - (let ((___kont9952199522_ - (lambda (_L99265_ - _L99267_) - (let ((__tmp99592 - (let ((__tmp99593 + ___stx9950099501_))))) + (let ((___kont9950399504_ + (lambda (_L99247_ + _L99249_) + (let ((__tmp99574 + (let ((__tmp99575 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp99595 + (let ((__tmp99577 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp99594 + (__tmp99576 (let () (declare (not safe)) - (cons _L99265_ '())))) + (cons _L99247_ '())))) (declare (not safe)) - (cons __tmp99595 __tmp99594)))) + (cons __tmp99577 __tmp99576)))) (declare (not safe)) - (cons __tmp99593 '())))) + (cons __tmp99575 '())))) (declare (not safe)) - (cons _L99267_ __tmp99592)))) + (cons _L99249_ __tmp99574)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont9952399524_ - (lambda (_L99217_ - _L99219_ - _L99220_) - (let ((__tmp99596 - (let ((__tmp99597 + (___kont9950599506_ + (lambda (_L99199_ + _L99201_ + _L99202_) + (let ((__tmp99578 + (let ((__tmp99579 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp99598 - (let ((__tmp99600 + (let ((__tmp99580 + (let ((__tmp99582 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp99599 + (__tmp99581 (let () (declare (not safe)) - (cons _L99217_ '())))) + (cons _L99199_ '())))) (declare (not safe)) - (cons __tmp99600 __tmp99599)))) + (cons __tmp99582 __tmp99581)))) (declare (not safe)) - (cons __tmp99598 '())))) + (cons __tmp99580 '())))) (declare (not safe)) - (cons _L99219_ __tmp99597)))) + (cons _L99201_ __tmp99579)))) (declare (not safe)) - (cons _L99220_ __tmp99596))))) + (cons _L99202_ __tmp99578))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx9951899519_)) - (let ((_e9915999245_ + ___stx9950099501_)) + (let ((_e9914199227_ (let () (declare (not safe)) (gx#syntax-e - ___stx9951899519_)))) - (let ((_tl9915799252_ + ___stx9950099501_)))) + (let ((_tl9913999234_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e9915999245_))) - (_hd9915899249_ - (let () (declare (not safe)) (##car _e9915999245_)))) + (##cdr _e9914199227_))) + (_hd9914099231_ + (let () (declare (not safe)) (##car _e9914199227_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9915799252_)) - (let ((_e9916299255_ + (gx#stx-pair? _tl9913999234_)) + (let ((_e9914499237_ (let () (declare (not safe)) - (gx#syntax-e _tl9915799252_)))) - (let ((_tl9916099262_ + (gx#syntax-e _tl9913999234_)))) + (let ((_tl9914299244_ (let () (declare (not safe)) - (##cdr _e9916299255_))) - (_hd9916199259_ + (##cdr _e9914499237_))) + (_hd9914399241_ (let () (declare (not safe)) - (##car _e9916299255_)))) + (##car _e9914499237_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9916099262_)) - (___kont9952199522_ _hd9916199259_ _hd9915899249_) + (gx#stx-null? _tl9914299244_)) + (___kont9950399504_ _hd9914399241_ _hd9914099231_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9916099262_)) - (let ((_e9917499207_ + (gx#stx-pair? _tl9914299244_)) + (let ((_e9915699189_ (let () (declare (not safe)) - (gx#syntax-e _tl9916099262_)))) - (let ((_tl9917299214_ + (gx#syntax-e _tl9914299244_)))) + (let ((_tl9915499196_ (let () (declare (not safe)) - (##cdr _e9917499207_))) - (_hd9917399211_ + (##cdr _e9915699189_))) + (_hd9915599193_ (let () (declare (not safe)) - (##car _e9917499207_)))) + (##car _e9915699189_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9917299214_)) - (___kont9952399524_ - _hd9917399211_ - _hd9916199259_ - _hd9915899249_) + (gx#stx-null? _tl9915499196_)) + (___kont9950599506_ + _hd9915599193_ + _hd9914399241_ + _hd9914099231_) (let () (declare (not safe)) - (_g9915399180_))))) + (_g9913599162_))))) (let () (declare (not safe)) - (_g9915399180_)))))) - (let () (declare (not safe)) (_g9915399180_))))) + (_g9913599162_)))))) + (let () (declare (not safe)) (_g9913599162_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9915399180_))))))) - (__tmp99589 - (let ((__tmp99590 - (lambda (_g9928399286_ - _g9928499289_) + (_g9913599162_))))))) + (__tmp99571 + (let ((__tmp99572 + (lambda (_g9926599268_ + _g9926699271_) (let () (declare (not safe)) - (cons _g9928399286_ - _g9928499289_))))) + (cons _g9926599268_ + _g9926699271_))))) (declare (not safe)) - (foldr1 __tmp99590 + (foldr1 __tmp99572 '() - _L99046_)))) + _L99028_)))) (declare (not safe)) - (gx#stx-map1 __tmp99591 __tmp99589)))) - (_g9896598989_ _g9896698993_))) - _clause9898399042_ - _hd9897399010_)))))) + (gx#stx-map1 __tmp99573 __tmp99571)))) + (_g9894798971_ _g9894898975_))) + _clause9896599024_ + _hd9895598992_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop9897899022_ - _target9897599016_ + (_loop9896099004_ + _target9895798998_ '())) - (_g9896598989_ - _g9896698993_))))) - (_g9896598989_ _g9896698993_)))) - (_g9896598989_ _g9896698993_)))) - (_g9896598989_ _g9896698993_))))) - (_g9896499292_ _stx98962_)))) + (_g9894798971_ + _g9894898975_))))) + (_g9894798971_ _g9894898975_)))) + (_g9894798971_ _g9894898975_)))) + (_g9894798971_ _g9894898975_))))) + (_g9894699274_ _stx98944_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj99561 + (let ((__obj99543 (let () (declare (not safe)) (##structure @@ -516,7 +516,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj99561 + __obj99543 '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! - __obj99561 + __obj99543 'symbol-table '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -532,7 +532,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj99561 + __obj99543 '(gensyms bindings) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -540,7 +540,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj99561 + __obj99543 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -548,7 +548,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj99561 + __obj99543 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -556,7 +556,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj99561 + __obj99543 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -564,7 +564,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj99561 + __obj99543 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -572,205 +572,205 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj99561 + __obj99543 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp99601 |gxc[1]#_g99602_|)) + (let ((__tmp99583 |gxc[1]#_g99584_|)) (declare (not safe)) (##unchecked-structure-set! - __obj99561 - __tmp99601 + __obj99543 + __tmp99583 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp99603 |gxc[1]#_g99604_|)) + (let ((__tmp99585 |gxc[1]#_g99586_|)) (declare (not safe)) (##unchecked-structure-set! - __obj99561 - __tmp99603 + __obj99543 + __tmp99585 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp99605 |gxc[1]#_g99606_|)) + (let ((__tmp99587 |gxc[1]#_g99588_|)) (declare (not safe)) (##unchecked-structure-set! - __obj99561 - __tmp99605 + __obj99543 + __tmp99587 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp99607 - (let ((__tmp99612 - (let ((__tmp99613 |gxc[1]#_g99614_|)) + (let ((__tmp99589 + (let ((__tmp99594 + (let ((__tmp99595 |gxc[1]#_g99596_|)) (declare (not safe)) - (cons 'gensyms __tmp99613))) - (__tmp99608 - (let ((__tmp99609 - (let ((__tmp99610 |gxc[1]#_g99611_|)) + (cons 'gensyms __tmp99595))) + (__tmp99590 + (let ((__tmp99591 + (let ((__tmp99592 |gxc[1]#_g99593_|)) (declare (not safe)) - (cons 'bindings __tmp99610)))) + (cons 'bindings __tmp99592)))) (declare (not safe)) - (cons __tmp99609 '())))) + (cons __tmp99591 '())))) (declare (not safe)) - (cons __tmp99612 __tmp99608)))) + (cons __tmp99594 __tmp99590)))) (declare (not safe)) (##unchecked-structure-set! - __obj99561 - __tmp99607 + __obj99543 + __tmp99589 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp99615 - (let ((__tmp99620 - (let ((__tmp99621 |gxc[1]#_g99622_|)) + (let ((__tmp99597 + (let ((__tmp99602 + (let ((__tmp99603 |gxc[1]#_g99604_|)) (declare (not safe)) - (cons 'gensyms __tmp99621))) - (__tmp99616 - (let ((__tmp99617 - (let ((__tmp99618 |gxc[1]#_g99619_|)) + (cons 'gensyms __tmp99603))) + (__tmp99598 + (let ((__tmp99599 + (let ((__tmp99600 |gxc[1]#_g99601_|)) (declare (not safe)) - (cons 'bindings __tmp99618)))) + (cons 'bindings __tmp99600)))) (declare (not safe)) - (cons __tmp99617 '())))) + (cons __tmp99599 '())))) (declare (not safe)) - (cons __tmp99620 __tmp99616)))) + (cons __tmp99602 __tmp99598)))) (declare (not safe)) (##unchecked-structure-set! - __obj99561 - __tmp99615 + __obj99543 + __tmp99597 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp99623 - (let ((__tmp99628 - (let ((__tmp99629 |gxc[1]#_g99630_|)) + (let ((__tmp99605 + (let ((__tmp99610 + (let ((__tmp99611 |gxc[1]#_g99612_|)) (declare (not safe)) - (cons 'gensyms __tmp99629))) - (__tmp99624 - (let ((__tmp99625 - (let ((__tmp99626 |gxc[1]#_g99627_|)) + (cons 'gensyms __tmp99611))) + (__tmp99606 + (let ((__tmp99607 + (let ((__tmp99608 |gxc[1]#_g99609_|)) (declare (not safe)) - (cons 'bindings __tmp99626)))) + (cons 'bindings __tmp99608)))) (declare (not safe)) - (cons __tmp99625 '())))) + (cons __tmp99607 '())))) (declare (not safe)) - (cons __tmp99628 __tmp99624)))) + (cons __tmp99610 __tmp99606)))) (declare (not safe)) (##unchecked-structure-set! - __obj99561 - __tmp99623 + __obj99543 + __tmp99605 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp99631 - (let ((__tmp99636 - (let ((__tmp99637 |gxc[1]#_g99638_|)) + (let ((__tmp99613 + (let ((__tmp99618 + (let ((__tmp99619 |gxc[1]#_g99620_|)) (declare (not safe)) - (cons 'gensyms __tmp99637))) - (__tmp99632 - (let ((__tmp99633 - (let ((__tmp99634 |gxc[1]#_g99635_|)) + (cons 'gensyms __tmp99619))) + (__tmp99614 + (let ((__tmp99615 + (let ((__tmp99616 |gxc[1]#_g99617_|)) (declare (not safe)) - (cons 'bindings __tmp99634)))) + (cons 'bindings __tmp99616)))) (declare (not safe)) - (cons __tmp99633 '())))) + (cons __tmp99615 '())))) (declare (not safe)) - (cons __tmp99636 __tmp99632)))) + (cons __tmp99618 __tmp99614)))) (declare (not safe)) (##unchecked-structure-set! - __obj99561 - __tmp99631 + __obj99543 + __tmp99613 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj99561)) + __obj99543)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_$stx99298_) - (let* ((_g9930299316_ - (lambda (_g9930399312_) + (lambda (_$stx99280_) + (let* ((_g9928499298_ + (lambda (_g9928599294_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9930399312_)))) - (_g9930199357_ - (lambda (_g9930399320_) + _g9928599294_)))) + (_g9928399339_ + (lambda (_g9928599302_) (if (let () (declare (not safe)) - (gx#stx-pair? _g9930399320_)) - (let ((_e9930799323_ + (gx#stx-pair? _g9928599302_)) + (let ((_e9928999305_ (let () (declare (not safe)) - (gx#syntax-e _g9930399320_)))) - (let ((_hd9930699327_ + (gx#syntax-e _g9928599302_)))) + (let ((_hd9928899309_ (let () (declare (not safe)) - (##car _e9930799323_))) - (_tl9930599330_ + (##car _e9928999305_))) + (_tl9928799312_ (let () (declare (not safe)) - (##cdr _e9930799323_)))) + (##cdr _e9928999305_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9930599330_)) - (let ((_e9931099333_ + (gx#stx-pair? _tl9928799312_)) + (let ((_e9929299315_ (let () (declare (not safe)) - (gx#syntax-e _tl9930599330_)))) - (let ((_hd9930999337_ + (gx#syntax-e _tl9928799312_)))) + (let ((_hd9929199319_ (let () (declare (not safe)) - (##car _e9931099333_))) - (_tl9930899340_ + (##car _e9929299315_))) + (_tl9929099322_ (let () (declare (not safe)) - (##cdr _e9931099333_)))) + (##cdr _e9929299315_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9930899340_)) - ((lambda (_L99343_) - (let ((__tmp99646 + (gx#stx-null? _tl9929099322_)) + ((lambda (_L99325_) + (let ((__tmp99628 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp99639 - (let ((__tmp99645 + (__tmp99621 + (let ((__tmp99627 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+verbose-mutex+))) - (__tmp99640 - (let ((__tmp99641 - (let ((__tmp99644 + (__tmp99622 + (let ((__tmp99623 + (let ((__tmp99626 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp99642 - (let ((__tmp99643 + (__tmp99624 + (let ((__tmp99625 (let () (declare (not safe)) - (cons _L99343_ '())))) + (cons _L99325_ '())))) (declare (not safe)) - (cons '() __tmp99643)))) + (cons '() __tmp99625)))) (declare (not safe)) - (cons __tmp99644 __tmp99642)))) + (cons __tmp99626 __tmp99624)))) (declare (not safe)) - (cons __tmp99641 '())))) + (cons __tmp99623 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp99645 - __tmp99640)))) + (cons __tmp99627 + __tmp99622)))) (declare (not safe)) - (cons __tmp99646 __tmp99639))) - _hd9930999337_) - (_g9930299316_ _g9930399320_)))) - (_g9930299316_ _g9930399320_)))) - (_g9930299316_ _g9930399320_))))) - (_g9930199357_ _$stx99298_)))))) + (cons __tmp99628 __tmp99621))) + _hd9929199319_) + (_g9928499298_ _g9928599302_)))) + (_g9928499298_ _g9928599302_)))) + (_g9928499298_ _g9928599302_))))) + (_g9928399339_ _$stx99280_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~0.scm b/src/bootstrap/gerbil/compiler/compile~0.scm index db6a815b5..f025da42b 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 1710833425) + (define gerbil/compiler/compile::timestamp 1710943498) (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-e112867_ - (lambda (_id112869_) + (letrec ((_hash-e112849_ + (lambda (_id112851_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _id112869_)))))) + (let () (declare (not safe)) (gx#stx-e _id112851_)))))) (let () (declare (not safe)) (make-hash-table 'test: gx#bound-identifier=? 'hash: - _hash-e112867_))))) + _hash-e112849_))))) (define gxc#::collect-bindings::t - (let ((__tmp114225 (list gxc#::void::t)) - (__tmp114223 - (let ((__tmp114224 + (let ((__tmp114207 (list gxc#::void::t)) + (__tmp114205 + (let ((__tmp114206 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114224 '())))) + (cons __tmp114206 '())))) (declare (not safe)) (make-class-type 'gxc#::collect-bindings::t '::collect-bindings - __tmp114225 + __tmp114207 '() - __tmp114223 + __tmp114205 '#f))) (define gxc#::collect-bindings? (let () (declare (not safe)) (make-class-predicate gxc#::collect-bindings::t))) (define gxc#make-::collect-bindings - (lambda _$args112863_ - (apply make-instance gxc#::collect-bindings::t _$args112863_))) + (lambda _$args112845_ + (apply make-instance gxc#::collect-bindings::t _$args112845_))) (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 (_stx112855_) + (lambda (_stx112837_) (force gxc#::collect-bindings-bind-methods!) - (let* ((_self112858_ - (let ((__obj114199 + (let* ((_self112840_ + (let ((__obj114181 (let () (declare (not safe)) (##structure gxc#::collect-bindings::t)))) - __obj114199)) - (__tmp114226 + __obj114181)) + (__tmp114208 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112858_ _stx112855_))))) + (gxc#compile-e__1 _self112840_ _stx112837_))))) (declare (not safe)) (call-with-parameters - __tmp114226 + __tmp114208 gxc#current-compile-method - _self112858_)))) + _self112840_)))) (define gxc#::lift-modules::t - (let ((__tmp114229 (list gxc#::void::t)) - (__tmp114227 - (let ((__tmp114228 + (let ((__tmp114211 (list gxc#::void::t)) + (__tmp114209 + (let ((__tmp114210 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114228 '())))) + (cons __tmp114210 '())))) (declare (not safe)) (make-class-type 'gxc#::lift-modules::t '::lift-modules - __tmp114229 + __tmp114211 '(modules) - __tmp114227 + __tmp114209 '#f))) (define gxc#::lift-modules? (let () (declare (not safe)) (make-class-predicate gxc#::lift-modules::t))) (define gxc#make-::lift-modules - (lambda _$args112852_ - (apply make-instance gxc#::lift-modules::t _$args112852_))) + (lambda _$args112834_ + (apply make-instance gxc#::lift-modules::t _$args112834_))) (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 (_g114230_ _modules112823112826_ _stx112828_) - (let ((_modules112831_ + (lambda (_g114212_ _modules112805112808_ _stx112810_) + (let ((_modules112813_ (if (let () (declare (not safe)) - (eq? _modules112823112826_ absent-value)) + (eq? _modules112805112808_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'modules:)) - _modules112823112826_))) + _modules112805112808_))) (force gxc#::lift-modules-bind-methods!) - (let* ((_self112833_ - (let ((__obj114201 + (let* ((_self112815_ + (let ((__obj114183 (let () (declare (not safe)) (##structure gxc#::lift-modules::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114201 - _modules112831_ + __obj114183 + _modules112813_ '1 gxc#::lift-modules::t '#f)) - __obj114201)) - (__tmp114231 + __obj114183)) + (__tmp114213 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112833_ _stx112828_))))) + (gxc#compile-e__1 _self112815_ _stx112810_))))) (declare (not safe)) (call-with-parameters - __tmp114231 + __tmp114213 gxc#current-compile-method - _self112833_))))) + _self112815_))))) (define gxc#apply-lift-modules__@ - (lambda (_keys112822112840_ . _args112842_) + (lambda (_keys112804112822_ . _args112824_) (apply gxc#apply-lift-modules__% - _keys112822112840_ + _keys112804112822_ (let () (declare (not safe)) (symbolic-table-ref - _keys112822112840_ + _keys112804112822_ 'modules: absent-value)) - _args112842_))) + _args112824_))) (define gxc#apply-lift-modules - (lambda _args112824112848_ + (lambda _args112806112830_ (apply keyword-dispatch '#(modules:) gxc#apply-lift-modules__@ - _args112824112848_))) + _args112806112830_))) (define gxc#::find-runtime-code::t - (let ((__tmp114234 (list)) - (__tmp114232 - (let ((__tmp114233 + (let ((__tmp114216 (list)) + (__tmp114214 + (let ((__tmp114215 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114233 '())))) + (cons __tmp114215 '())))) (declare (not safe)) (make-class-type 'gxc#::find-runtime-code::t '::find-runtime-code - __tmp114234 + __tmp114216 '() - __tmp114232 + __tmp114214 '#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 _$args112818_ - (apply make-instance gxc#::find-runtime-code::t _$args112818_))) + (lambda _$args112800_ + (apply make-instance gxc#::find-runtime-code::t _$args112800_))) (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 (_stx112810_) + (lambda (_stx112792_) (force gxc#::find-runtime-code-bind-methods!) - (let* ((_self112813_ - (let ((__obj114203 + (let* ((_self112795_ + (let ((__obj114185 (let () (declare (not safe)) (##structure gxc#::find-runtime-code::t)))) - __obj114203)) - (__tmp114235 + __obj114185)) + (__tmp114217 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112813_ _stx112810_))))) + (gxc#compile-e__1 _self112795_ _stx112792_))))) (declare (not safe)) (call-with-parameters - __tmp114235 + __tmp114217 gxc#current-compile-method - _self112813_)))) + _self112795_)))) (define gxc#::find-lambda-expression::t - (let ((__tmp114238 (list gxc#::false::t)) - (__tmp114236 - (let ((__tmp114237 + (let ((__tmp114220 (list gxc#::false::t)) + (__tmp114218 + (let ((__tmp114219 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114237 '())))) + (cons __tmp114219 '())))) (declare (not safe)) (make-class-type 'gxc#::find-lambda-expression::t '::find-lambda-expression - __tmp114238 + __tmp114220 '() - __tmp114236 + __tmp114218 '#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 _$args112807_ - (apply make-instance gxc#::find-lambda-expression::t _$args112807_))) + (lambda _$args112789_ + (apply make-instance gxc#::find-lambda-expression::t _$args112789_))) (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 (_stx112799_) + (lambda (_stx112781_) (force gxc#::find-lambda-expression-bind-methods!) - (let* ((_self112802_ - (let ((__obj114205 + (let* ((_self112784_ + (let ((__obj114187 (let () (declare (not safe)) (##structure gxc#::find-lambda-expression::t)))) - __obj114205)) - (__tmp114239 + __obj114187)) + (__tmp114221 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112802_ _stx112799_))))) + (gxc#compile-e__1 _self112784_ _stx112781_))))) (declare (not safe)) (call-with-parameters - __tmp114239 + __tmp114221 gxc#current-compile-method - _self112802_)))) + _self112784_)))) (define gxc#::count-values::t - (let ((__tmp114242 (list gxc#::false-expression::t)) - (__tmp114240 - (let ((__tmp114241 + (let ((__tmp114224 (list gxc#::false-expression::t)) + (__tmp114222 + (let ((__tmp114223 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114241 '())))) + (cons __tmp114223 '())))) (declare (not safe)) (make-class-type 'gxc#::count-values::t '::count-values - __tmp114242 + __tmp114224 '() - __tmp114240 + __tmp114222 '#f))) (define gxc#::count-values? (let () (declare (not safe)) (make-class-predicate gxc#::count-values::t))) (define gxc#make-::count-values - (lambda _$args112796_ - (apply make-instance gxc#::count-values::t _$args112796_))) + (lambda _$args112778_ + (apply make-instance gxc#::count-values::t _$args112778_))) (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 (_stx112788_) + (lambda (_stx112770_) (force gxc#::count-values-bind-methods!) - (let* ((_self112791_ - (let ((__obj114207 + (let* ((_self112773_ + (let ((__obj114189 (let () (declare (not safe)) (##structure gxc#::count-values::t)))) - __obj114207)) - (__tmp114243 + __obj114189)) + (__tmp114225 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112791_ _stx112788_))))) + (gxc#compile-e__1 _self112773_ _stx112770_))))) (declare (not safe)) (call-with-parameters - __tmp114243 + __tmp114225 gxc#current-compile-method - _self112791_)))) + _self112773_)))) (define gxc#::generate-runtime-empty::t - (let ((__tmp114244 (list))) + (let ((__tmp114226 (list))) (declare (not safe)) (make-class-type 'gxc#::generate-runtime-empty::t '::generate-runtime-empty - __tmp114244 + __tmp114226 '() '() '#f))) @@ -681,8 +681,8 @@ (declare (not safe)) (make-class-predicate gxc#::generate-runtime-empty::t))) (define gxc#make-::generate-runtime-empty - (lambda _$args112785_ - (apply make-instance gxc#::generate-runtime-empty::t _$args112785_))) + (lambda _$args112767_ + (apply make-instance gxc#::generate-runtime-empty::t _$args112767_))) (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 ((__tmp114247 (list gxc#::generate-runtime-empty::t)) - (__tmp114245 - (let ((__tmp114246 + (let ((__tmp114229 (list gxc#::generate-runtime-empty::t)) + (__tmp114227 + (let ((__tmp114228 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114246 '())))) + (cons __tmp114228 '())))) (declare (not safe)) (make-class-type 'gxc#::generate-loader::t '::generate-loader - __tmp114247 + __tmp114229 '() - __tmp114245 + __tmp114227 '#f))) (define gxc#::generate-loader? (let () (declare (not safe)) (make-class-predicate gxc#::generate-loader::t))) (define gxc#make-::generate-loader - (lambda _$args112781_ - (apply make-instance gxc#::generate-loader::t _$args112781_))) + (lambda _$args112763_ + (apply make-instance gxc#::generate-loader::t _$args112763_))) (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 (_stx112773_) + (lambda (_stx112755_) (force gxc#::generate-loader-bind-methods!) - (let* ((_self112776_ - (let ((__obj114210 + (let* ((_self112758_ + (let ((__obj114192 (let () (declare (not safe)) (##structure gxc#::generate-loader::t)))) - __obj114210)) - (__tmp114248 + __obj114192)) + (__tmp114230 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112776_ _stx112773_))))) + (gxc#compile-e__1 _self112758_ _stx112755_))))) (declare (not safe)) (call-with-parameters - __tmp114248 + __tmp114230 gxc#current-compile-method - _self112776_)))) + _self112758_)))) (define gxc#::generate-runtime::t - (let ((__tmp114249 (list gxc#::generate-runtime-empty::t))) + (let ((__tmp114231 (list gxc#::generate-runtime-empty::t))) (declare (not safe)) (make-class-type 'gxc#::generate-runtime::t '::generate-runtime - __tmp114249 + __tmp114231 '() '() '#f))) @@ -953,8 +953,8 @@ (declare (not safe)) (make-class-predicate gxc#::generate-runtime::t))) (define gxc#make-::generate-runtime - (lambda _$args112770_ - (apply make-instance gxc#::generate-runtime::t _$args112770_))) + (lambda _$args112752_ + (apply make-instance gxc#::generate-runtime::t _$args112752_))) (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 (_stx112762_) + (lambda (_stx112744_) (force gxc#::generate-runtime-bind-methods!) - (let* ((_self112765_ - (let ((__obj114212 + (let* ((_self112747_ + (let ((__obj114194 (let () (declare (not safe)) (##structure gxc#::generate-runtime::t)))) - __obj114212)) - (__tmp114250 + __obj114194)) + (__tmp114232 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112765_ _stx112762_))))) + (gxc#compile-e__1 _self112747_ _stx112744_))))) (declare (not safe)) (call-with-parameters - __tmp114250 + __tmp114232 gxc#current-compile-method - _self112765_)))) + _self112747_)))) (define gxc#::generate-runtime-phi::t - (let ((__tmp114253 (list gxc#::generate-runtime::t)) - (__tmp114251 - (let ((__tmp114252 + (let ((__tmp114235 (list gxc#::generate-runtime::t)) + (__tmp114233 + (let ((__tmp114234 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114252 '())))) + (cons __tmp114234 '())))) (declare (not safe)) (make-class-type 'gxc#::generate-runtime-phi::t '::generate-runtime-phi - __tmp114253 + __tmp114235 '() - __tmp114251 + __tmp114233 '#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 _$args112759_ - (apply make-instance gxc#::generate-runtime-phi::t _$args112759_))) + (lambda _$args112741_ + (apply make-instance gxc#::generate-runtime-phi::t _$args112741_))) (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 (_stx112751_) + (lambda (_stx112733_) (force gxc#::generate-runtime-phi-bind-methods!) - (let* ((_self112754_ - (let ((__obj114214 + (let* ((_self112736_ + (let ((__obj114196 (let () (declare (not safe)) (##structure gxc#::generate-runtime-phi::t)))) - __obj114214)) - (__tmp114254 + __obj114196)) + (__tmp114236 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112754_ _stx112751_))))) + (gxc#compile-e__1 _self112736_ _stx112733_))))) (declare (not safe)) (call-with-parameters - __tmp114254 + __tmp114236 gxc#current-compile-method - _self112754_)))) + _self112736_)))) (define gxc#::collect-expression-refs::t - (let ((__tmp114255 (list))) + (let ((__tmp114237 (list))) (declare (not safe)) (make-class-type 'gxc#::collect-expression-refs::t '::collect-expression-refs - __tmp114255 + __tmp114237 '(table) '() '#f))) @@ -1197,8 +1197,8 @@ (declare (not safe)) (make-class-predicate gxc#::collect-expression-refs::t))) (define gxc#make-::collect-expression-refs - (lambda _$args112748_ - (apply make-instance gxc#::collect-expression-refs::t _$args112748_))) + (lambda _$args112730_ + (apply make-instance gxc#::collect-expression-refs::t _$args112730_))) (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 (_g114256_ _table112719112722_ _stx112724_) - (let ((_table112727_ + (lambda (_g114238_ _table112701112704_ _stx112706_) + (let ((_table112709_ (if (let () (declare (not safe)) - (eq? _table112719112722_ absent-value)) + (eq? _table112701112704_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _table112719112722_))) + _table112701112704_))) (force gxc#::collect-expression-refs-bind-methods!) - (let* ((_self112729_ - (let ((__obj114216 + (let* ((_self112711_ + (let ((__obj114198 (let () (declare (not safe)) (##structure @@ -1375,58 +1375,58 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114216 - _table112727_ + __obj114198 + _table112709_ '1 gxc#::collect-expression-refs::t '#f)) - __obj114216)) - (__tmp114257 + __obj114198)) + (__tmp114239 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112729_ _stx112724_))))) + (gxc#compile-e__1 _self112711_ _stx112706_))))) (declare (not safe)) (call-with-parameters - __tmp114257 + __tmp114239 gxc#current-compile-method - _self112729_))))) + _self112711_))))) (define gxc#apply-collect-expression-refs__@ - (lambda (_keys112718112736_ . _args112738_) + (lambda (_keys112700112718_ . _args112720_) (apply gxc#apply-collect-expression-refs__% - _keys112718112736_ + _keys112700112718_ (let () (declare (not safe)) - (symbolic-table-ref _keys112718112736_ 'table: absent-value)) - _args112738_))) + (symbolic-table-ref _keys112700112718_ 'table: absent-value)) + _args112720_))) (define gxc#apply-collect-expression-refs - (lambda _args112720112744_ + (lambda _args112702112726_ (apply keyword-dispatch '#(table:) gxc#apply-collect-expression-refs__@ - _args112720112744_))) + _args112702112726_))) (define gxc#::generate-meta::t - (let ((__tmp114260 (list gxc#::void-expression::t)) - (__tmp114258 - (let ((__tmp114259 + (let ((__tmp114242 (list gxc#::void-expression::t)) + (__tmp114240 + (let ((__tmp114241 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114259 '())))) + (cons __tmp114241 '())))) (declare (not safe)) (make-class-type 'gxc#::generate-meta::t '::generate-meta - __tmp114260 + __tmp114242 '(state) - __tmp114258 + __tmp114240 '#f))) (define gxc#::generate-meta? (let () (declare (not safe)) (make-class-predicate gxc#::generate-meta::t))) (define gxc#make-::generate-meta - (lambda _$args112714_ - (apply make-instance gxc#::generate-meta::t _$args112714_))) + (lambda _$args112696_ + (apply make-instance gxc#::generate-meta::t _$args112696_))) (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 (_g114261_ _state112685112688_ _stx112690_) - (let ((_state112693_ + (lambda (_g114243_ _state112667112670_ _stx112672_) + (let ((_state112675_ (if (let () (declare (not safe)) - (eq? _state112685112688_ absent-value)) + (eq? _state112667112670_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _state112685112688_))) + _state112667112670_))) (force gxc#::generate-meta-bind-methods!) - (let* ((_self112695_ - (let ((__obj114218 + (let* ((_self112677_ + (let ((__obj114200 (let () (declare (not safe)) (##structure gxc#::generate-meta::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114218 - _state112693_ + __obj114200 + _state112675_ '1 gxc#::generate-meta::t '#f)) - __obj114218)) - (__tmp114262 + __obj114200)) + (__tmp114244 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112695_ _stx112690_))))) + (gxc#compile-e__1 _self112677_ _stx112672_))))) (declare (not safe)) (call-with-parameters - __tmp114262 + __tmp114244 gxc#current-compile-method - _self112695_))))) + _self112677_))))) (define gxc#apply-generate-meta__@ - (lambda (_keys112684112702_ . _args112704_) + (lambda (_keys112666112684_ . _args112686_) (apply gxc#apply-generate-meta__% - _keys112684112702_ + _keys112666112684_ (let () (declare (not safe)) - (symbolic-table-ref _keys112684112702_ 'state: absent-value)) - _args112704_))) + (symbolic-table-ref _keys112666112684_ 'state: absent-value)) + _args112686_))) (define gxc#apply-generate-meta - (lambda _args112686112710_ + (lambda _args112668112692_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta__@ - _args112686112710_))) + _args112668112692_))) (define gxc#::generate-meta-phi::t - (let ((__tmp114265 (list)) - (__tmp114263 - (let ((__tmp114264 + (let ((__tmp114247 (list)) + (__tmp114245 + (let ((__tmp114246 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp114264 '())))) + (cons __tmp114246 '())))) (declare (not safe)) (make-class-type 'gxc#::generate-meta-phi::t '::generate-meta-phi - __tmp114265 + __tmp114247 '(state) - __tmp114263 + __tmp114245 '#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 _$args112680_ - (apply make-instance gxc#::generate-meta-phi::t _$args112680_))) + (lambda _$args112662_ + (apply make-instance gxc#::generate-meta-phi::t _$args112662_))) (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 (_g114266_ _state112651112654_ _stx112656_) - (let ((_state112659_ + (lambda (_g114248_ _state112633112636_ _stx112638_) + (let ((_state112641_ (if (let () (declare (not safe)) - (eq? _state112651112654_ absent-value)) + (eq? _state112633112636_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _state112651112654_))) + _state112633112636_))) (force gxc#::generate-meta-phi-bind-methods!) - (let* ((_self112661_ - (let ((__obj114220 + (let* ((_self112643_ + (let ((__obj114202 (let () (declare (not safe)) (##structure gxc#::generate-meta-phi::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114220 - _state112659_ + __obj114202 + _state112641_ '1 gxc#::generate-meta-phi::t '#f)) - __obj114220)) - (__tmp114267 + __obj114202)) + (__tmp114249 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self112661_ _stx112656_))))) + (gxc#compile-e__1 _self112643_ _stx112638_))))) (declare (not safe)) (call-with-parameters - __tmp114267 + __tmp114249 gxc#current-compile-method - _self112661_))))) + _self112643_))))) (define gxc#apply-generate-meta-phi__@ - (lambda (_keys112650112668_ . _args112670_) + (lambda (_keys112632112650_ . _args112652_) (apply gxc#apply-generate-meta-phi__% - _keys112650112668_ + _keys112632112650_ (let () (declare (not safe)) - (symbolic-table-ref _keys112650112668_ 'state: absent-value)) - _args112670_))) + (symbolic-table-ref _keys112632112650_ 'state: absent-value)) + _args112652_))) (define gxc#apply-generate-meta-phi - (lambda _args112652112676_ + (lambda _args112634112658_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta-phi__@ - _args112652112676_))) + _args112634112658_))) (define gxc#collect-bindings-define-values% - (lambda (_self112579_ _stx112580_) - (let* ((_g112582112599_ - (lambda (_g112583112596_) + (lambda (_self112561_ _stx112562_) + (let* ((_g112564112581_ + (lambda (_g112565112578_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g112583112596_)))) - (_g112581112646_ - (lambda (_g112583112602_) + _g112565112578_)))) + (_g112563112628_ + (lambda (_g112565112584_) (if (let () (declare (not safe)) - (gx#stx-pair? _g112583112602_)) - (let ((_e112588112604_ + (gx#stx-pair? _g112565112584_)) + (let ((_e112570112586_ (let () (declare (not safe)) - (gx#stx-e _g112583112602_)))) - (let ((_hd112587112607_ + (gx#stx-e _g112565112584_)))) + (let ((_hd112569112589_ (let () (declare (not safe)) - (##car _e112588112604_))) - (_tl112586112609_ + (##car _e112570112586_))) + (_tl112568112591_ (let () (declare (not safe)) - (##cdr _e112588112604_)))) + (##cdr _e112570112586_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl112586112609_)) - (let ((_e112591112612_ + (gx#stx-pair? _tl112568112591_)) + (let ((_e112573112594_ (let () (declare (not safe)) - (gx#stx-e _tl112586112609_)))) - (let ((_hd112590112615_ + (gx#stx-e _tl112568112591_)))) + (let ((_hd112572112597_ (let () (declare (not safe)) - (##car _e112591112612_))) - (_tl112589112617_ + (##car _e112573112594_))) + (_tl112571112599_ (let () (declare (not safe)) - (##cdr _e112591112612_)))) + (##cdr _e112573112594_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl112589112617_)) - (let ((_e112594112620_ + (gx#stx-pair? _tl112571112599_)) + (let ((_e112576112602_ (let () (declare (not safe)) - (gx#stx-e _tl112589112617_)))) - (let ((_hd112593112623_ + (gx#stx-e _tl112571112599_)))) + (let ((_hd112575112605_ (let () (declare (not safe)) - (##car _e112594112620_))) - (_tl112592112625_ + (##car _e112576112602_))) + (_tl112574112607_ (let () (declare (not safe)) - (##cdr _e112594112620_)))) + (##cdr _e112576112602_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl112592112625_)) - ((lambda (_L112628_ _L112629_) - (let ((__tmp114268 - (lambda (_bind112644_) + _tl112574112607_)) + ((lambda (_L112610_ _L112611_) + (let ((__tmp114250 + (lambda (_bind112626_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#identifier? _bind112644_)) + (gx#identifier? _bind112626_)) (let () (declare (not safe)) - (gxc#add-module-binding! _bind112644_ '#f)) + (gxc#add-module-binding! _bind112626_ '#f)) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp114268 - _L112629_))) - _hd112593112623_ - _hd112590112615_) + __tmp114250 + _L112611_))) + _hd112575112605_ + _hd112572112597_) (let () (declare (not safe)) - (_g112582112599_ - _g112583112602_))))) + (_g112564112581_ + _g112565112584_))))) (let () (declare (not safe)) - (_g112582112599_ _g112583112602_))))) + (_g112564112581_ _g112565112584_))))) (let () (declare (not safe)) - (_g112582112599_ _g112583112602_))))) + (_g112564112581_ _g112565112584_))))) (let () (declare (not safe)) - (_g112582112599_ _g112583112602_)))))) + (_g112564112581_ _g112565112584_)))))) (declare (not safe)) - (_g112581112646_ _stx112580_)))) + (_g112563112628_ _stx112562_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_self112511_ _stx112512_) - (let* ((_g112514112531_ - (lambda (_g112515112528_) + (lambda (_self112493_ _stx112494_) + (let* ((_g112496112513_ + (lambda (_g112497112510_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g112515112528_)))) - (_g112513112576_ - (lambda (_g112515112534_) + _g112497112510_)))) + (_g112495112558_ + (lambda (_g112497112516_) (if (let () (declare (not safe)) - (gx#stx-pair? _g112515112534_)) - (let ((_e112520112536_ + (gx#stx-pair? _g112497112516_)) + (let ((_e112502112518_ (let () (declare (not safe)) - (gx#stx-e _g112515112534_)))) - (let ((_hd112519112539_ + (gx#stx-e _g112497112516_)))) + (let ((_hd112501112521_ (let () (declare (not safe)) - (##car _e112520112536_))) - (_tl112518112541_ + (##car _e112502112518_))) + (_tl112500112523_ (let () (declare (not safe)) - (##cdr _e112520112536_)))) + (##cdr _e112502112518_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl112518112541_)) - (let ((_e112523112544_ + (gx#stx-pair? _tl112500112523_)) + (let ((_e112505112526_ (let () (declare (not safe)) - (gx#stx-e _tl112518112541_)))) - (let ((_hd112522112547_ + (gx#stx-e _tl112500112523_)))) + (let ((_hd112504112529_ (let () (declare (not safe)) - (##car _e112523112544_))) - (_tl112521112549_ + (##car _e112505112526_))) + (_tl112503112531_ (let () (declare (not safe)) - (##cdr _e112523112544_)))) + (##cdr _e112505112526_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl112521112549_)) - (let ((_e112526112552_ + (gx#stx-pair? _tl112503112531_)) + (let ((_e112508112534_ (let () (declare (not safe)) - (gx#stx-e _tl112521112549_)))) - (let ((_hd112525112555_ + (gx#stx-e _tl112503112531_)))) + (let ((_hd112507112537_ (let () (declare (not safe)) - (##car _e112526112552_))) - (_tl112524112557_ + (##car _e112508112534_))) + (_tl112506112539_ (let () (declare (not safe)) - (##cdr _e112526112552_)))) + (##cdr _e112508112534_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl112524112557_)) - ((lambda (_L112560_ _L112561_) + _tl112506112539_)) + ((lambda (_L112542_ _L112543_) (let () (declare (not safe)) (gxc#add-module-binding! - _L112561_ + _L112543_ '#t))) - _hd112525112555_ - _hd112522112547_) + _hd112507112537_ + _hd112504112529_) (let () (declare (not safe)) - (_g112514112531_ - _g112515112534_))))) + (_g112496112513_ + _g112497112516_))))) (let () (declare (not safe)) - (_g112514112531_ _g112515112534_))))) + (_g112496112513_ _g112497112516_))))) (let () (declare (not safe)) - (_g112514112531_ _g112515112534_))))) + (_g112496112513_ _g112497112516_))))) (let () (declare (not safe)) - (_g112514112531_ _g112515112534_)))))) + (_g112496112513_ _g112497112516_)))))) (declare (not safe)) - (_g112513112576_ _stx112512_)))) + (_g112495112558_ _stx112494_)))) (define gxc#lift-modules-module% - (lambda (_self112453_ _stx112454_) - (let* ((_g112456112470_ - (lambda (_g112457112467_) + (lambda (_self112435_ _stx112436_) + (let* ((_g112438112452_ + (lambda (_g112439112449_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g112457112467_)))) - (_g112455112508_ - (lambda (_g112457112473_) + _g112439112449_)))) + (_g112437112490_ + (lambda (_g112439112455_) (if (let () (declare (not safe)) - (gx#stx-pair? _g112457112473_)) - (let ((_e112462112475_ + (gx#stx-pair? _g112439112455_)) + (let ((_e112444112457_ (let () (declare (not safe)) - (gx#stx-e _g112457112473_)))) - (let ((_hd112461112478_ + (gx#stx-e _g112439112455_)))) + (let ((_hd112443112460_ (let () (declare (not safe)) - (##car _e112462112475_))) - (_tl112460112480_ + (##car _e112444112457_))) + (_tl112442112462_ (let () (declare (not safe)) - (##cdr _e112462112475_)))) + (##cdr _e112444112457_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl112460112480_)) - (let ((_e112465112483_ + (gx#stx-pair? _tl112442112462_)) + (let ((_e112447112465_ (let () (declare (not safe)) - (gx#stx-e _tl112460112480_)))) - (let ((_hd112464112486_ + (gx#stx-e _tl112442112462_)))) + (let ((_hd112446112468_ (let () (declare (not safe)) - (##car _e112465112483_))) - (_tl112463112488_ + (##car _e112447112465_))) + (_tl112445112470_ (let () (declare (not safe)) - (##cdr _e112465112483_)))) - ((lambda (_L112491_ _L112492_) - (let ((_ctx112505_ + (##cdr _e112447112465_)))) + ((lambda (_L112473_ _L112474_) + (let ((_ctx112487_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L112492_)))) + _L112474_)))) (set-box! (let () (declare (not safe)) - (slot-ref__0 _self112453_ 'modules)) - (let ((__tmp114269 + (slot-ref__0 _self112435_ 'modules)) + (let ((__tmp114251 (unbox (let () (declare (not safe)) (slot-ref__0 - _self112453_ + _self112435_ 'modules))))) (declare (not safe)) - (cons _ctx112505_ __tmp114269))) - (let ((__tmp114270 + (cons _ctx112487_ __tmp114251))) + (let ((__tmp114252 (lambda () - (let ((__tmp114271 + (let ((__tmp114253 (##structure-ref - _ctx112505_ + _ctx112487_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _self112453_ - __tmp114271))))) + _self112435_ + __tmp114253))))) (declare (not safe)) (call-with-parameters - __tmp114270 + __tmp114252 gx#current-expander-context - _ctx112505_)))) - _tl112463112488_ - _hd112464112486_))) + _ctx112487_)))) + _tl112445112470_ + _hd112446112468_))) (let () (declare (not safe)) - (_g112456112470_ _g112457112473_))))) + (_g112438112452_ _g112439112455_))))) (let () (declare (not safe)) - (_g112456112470_ _g112457112473_)))))) + (_g112438112452_ _g112439112455_)))))) (declare (not safe)) - (_g112455112508_ _stx112454_)))) + (_g112437112490_ _stx112436_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (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_) + (let ((_decls112391112393_ (gxc#current-compile-decls))) + (if _decls112391112393_ + (let ((_decls112396_ _decls112391112393_)) + (let _lp112398_ ((_rest112400_ _decls112396_)) + (let* ((_rest112401112409_ _rest112400_) + (_else112403112417_ (lambda () '#f)) + (_K112405112423_ + (lambda (_decls112420_ _decl112421_) (if (let () (declare (not safe)) - (equal? _decl112439_ '(not safe))) + (equal? _decl112421_ '(not safe))) '#t (if (let () (declare (not safe)) - (equal? _decl112439_ '(safe))) + (equal? _decl112421_ '(safe))) '#f (let () (declare (not safe)) - (_lp112416_ _decls112438_))))))) + (_lp112398_ _decls112420_))))))) (if (let () (declare (not safe)) - (##pair? _rest112419112427_)) - (let ((_hd112424112444_ + (##pair? _rest112401112409_)) + (let ((_hd112406112426_ (let () (declare (not safe)) - (##car _rest112419112427_))) - (_tl112425112446_ + (##car _rest112401112409_))) + (_tl112407112428_ (let () (declare (not safe)) - (##cdr _rest112419112427_)))) - (let* ((_decl112449_ _hd112424112444_) - (_decls112451_ _tl112425112446_)) + (##cdr _rest112401112409_)))) + (let* ((_decl112431_ _hd112406112426_) + (_decls112433_ _tl112407112428_)) (declare (not safe)) - (_K112423112441_ _decls112451_ _decl112449_))) - (let () (declare (not safe)) (_else112421112435_)))))) + (_K112405112423_ _decls112433_ _decl112431_))) + (let () (declare (not safe)) (_else112403112417_)))))) '#f)))) (define gxc#add-module-binding! - (lambda (_id112403_ _syntax?112404_) - (let ((_eid112406_ + (lambda (_id112385_ _syntax?112386_) + (let ((_eid112388_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _id112403_)) + (gx#resolve-identifier__0 _id112385_)) '1 gx#binding::t '#f)) - (_ht112407_ + (_ht112389_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid112406_) + (if (interned-symbol? _eid112388_) '#!void - (let ((__tmp114272 - (let ((__tmp114273 + (let ((__tmp114254 + (let ((__tmp114255 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid112406_)))) + _eid112388_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp114273 _syntax?112404_)))) + (gx#make-binding-id__1 __tmp114255 _syntax?112386_)))) (declare (not safe)) - (hash-put! _ht112407_ _eid112406_ __tmp114272)))))) + (hash-put! _ht112389_ _eid112388_ __tmp114254)))))) (define gxc#runtime-identifier=? - (lambda (_id1112396_ _id2112397_) - (letrec ((_symbol-e112399_ - (lambda (_id112401_) - (if (let () (declare (not safe)) (symbol? _id112401_)) - _id112401_ + (lambda (_id1112378_ _id2112379_) + (letrec ((_symbol-e112381_ + (lambda (_id112383_) + (if (let () (declare (not safe)) (symbol? _id112383_)) + _id112383_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id112401_)))))) - (let ((__tmp114275 - (let () (declare (not safe)) (_symbol-e112399_ _id1112396_))) - (__tmp114274 - (let () (declare (not safe)) (_symbol-e112399_ _id2112397_)))) + (gxc#generate-runtime-binding-id _id112383_)))))) + (let ((__tmp114257 + (let () (declare (not safe)) (_symbol-e112381_ _id1112378_))) + (__tmp114256 + (let () (declare (not safe)) (_symbol-e112381_ _id2112379_)))) (declare (not safe)) - (eq? __tmp114275 __tmp114274))))) + (eq? __tmp114257 __tmp114256))))) (define gxc#generate-runtime-binding-id - (lambda (_id112374_) - (let ((_$e112376_ + (lambda (_id112356_) + (let ((_$e112358_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id112374_ + _id112356_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _id112374_)) + (gx#resolve-identifier__0 _id112356_)) '#f))) - (if _$e112376_ - ((lambda (_bind112379_) - (let ((_eid112381_ - (##structure-ref _bind112379_ '1 gx#binding::t '#f)) - (_ht112382_ + (if _$e112358_ + ((lambda (_bind112361_) + (let ((_eid112363_ + (##structure-ref _bind112361_ '1 gx#binding::t '#f)) + (_ht112364_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid112381_) - _eid112381_ - (let ((_$e112384_ + (if (interned-symbol? _eid112363_) + _eid112363_ + (let ((_$e112366_ (let () (declare (not safe)) - (hash-get _ht112382_ _eid112381_)))) - (if _$e112384_ - (values _$e112384_) + (hash-get _ht112364_ _eid112363_)))) + (if _$e112366_ + (values _$e112366_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind112379_ + _bind112361_ 'gx#local-binding::t)) - (let ((_gid112387_ + (let ((_gid112369_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid112381_)))) + _eid112363_)))) (let () (declare (not safe)) (hash-put! - _ht112382_ - _eid112381_ - _gid112387_)) - _gid112387_) + _ht112364_ + _eid112363_ + _gid112369_)) + _gid112369_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind112379_ + _bind112361_ 'gx#module-binding::t)) - (let ((_gid112394_ - (let ((_$e112389_ + (let ((_gid112376_ + (let ((_$e112371_ (##structure-ref (##structure-ref - _bind112379_ + _bind112361_ '4 gx#module-binding::t '#f) '6 gx#module-context::t '#f))) - (if _$e112389_ - ((lambda (_ns112392_) + (if _$e112371_ + ((lambda (_ns112374_) (let () (declare (not safe)) (make-symbol__1 - _ns112392_ + _ns112374_ '"#" - _eid112381_))) - _$e112389_) + _eid112363_))) + _$e112371_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid112381_)))))) + _eid112363_)))))) (let () (declare (not safe)) (hash-put! - _ht112382_ - _eid112381_ - _gid112394_)) - _gid112394_) + _ht112364_ + _eid112363_ + _gid112376_)) + _gid112376_) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _id112374_ - _eid112381_ - _bind112379_))))))))) - _$e112376_) + _id112356_ + _eid112363_ + _bind112361_))))))))) + _$e112358_) (if (interned-symbol? - (let () (declare (not safe)) (gx#stx-e _id112374_))) - (let () (declare (not safe)) (gx#stx-e _id112374_)) + (let () (declare (not safe)) (gx#stx-e _id112356_))) + (let () (declare (not safe)) (gx#stx-e _id112356_)) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _id112374_))))))) + _id112356_))))))) (define gxc#generate-runtime-binding-id* - (lambda (_id112372_) - (if (let () (declare (not safe)) (gx#identifier? _id112372_)) + (lambda (_id112354_) + (if (let () (declare (not safe)) (gx#identifier? _id112354_)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id112372_)) + (gxc#generate-runtime-binding-id _id112354_)) (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_sym112352_ _quote?112353_) - (let* ((_ht112355_ + (lambda (_sym112334_ _quote?112335_) + (let* ((_ht112337_ (##structure-ref (gxc#current-compile-symbol-table) '1 gxc#symbol-table::t '#f)) - (_$e112357_ + (_$e112339_ (let () (declare (not safe)) - (hash-get _ht112355_ _sym112352_)))) - (if _$e112357_ - (values _$e112357_) - (let ((_g112360_ - (if _quote?112353_ - (let ((__tmp114276 (gxc#current-compile-timestamp))) + (hash-get _ht112337_ _sym112334_)))) + (if _$e112339_ + (values _$e112339_) + (let ((_g112342_ + (if _quote?112335_ + (let ((__tmp114258 (gxc#current-compile-timestamp))) (declare (not safe)) (make-symbol__1 '"__" - _sym112352_ + _sym112334_ '"__" - __tmp114276)) + __tmp114258)) (let () (declare (not safe)) - (make-symbol__1 '"_" _sym112352_ '"_"))))) + (make-symbol__1 '"_" _sym112334_ '"_"))))) (let () (declare (not safe)) - (hash-put! _ht112355_ _sym112352_ _g112360_)) - _g112360_))))) + (hash-put! _ht112337_ _sym112334_ _g112342_)) + _g112342_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_sym112365_) - (let ((_quote?112367_ '#f)) + (lambda (_sym112347_) + (let ((_quote?112349_ '#f)) (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym112365_ - _quote?112367_)))) + _sym112347_ + _quote?112349_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g114278_ - (let ((_g114277_ (let () (declare (not safe)) (##length _g114278_)))) - (cond ((let () (declare (not safe)) (##fx= _g114277_ 1)) - (apply (lambda (_sym112365_) + (lambda _g114260_ + (let ((_g114259_ (let () (declare (not safe)) (##length _g114260_)))) + (cond ((let () (declare (not safe)) (##fx= _g114259_ 1)) + (apply (lambda (_sym112347_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym112365_))) - _g114278_)) - ((let () (declare (not safe)) (##fx= _g114277_ 2)) - (apply (lambda (_sym112369_ _quote?112370_) + _sym112347_))) + _g114260_)) + ((let () (declare (not safe)) (##fx= _g114259_ 2)) + (apply (lambda (_sym112351_ _quote?112352_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym112369_ - _quote?112370_))) - _g114278_)) + _sym112351_ + _quote?112352_))) + _g114260_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g114278_)))))) + _g114260_)))))) (define gxc#generate-runtime-identifier - (lambda (_id112349_) - (let ((__tmp114279 + (lambda (_id112331_) + (let ((__tmp114261 (let () (declare (not safe)) - (gx#core-identifier-key _id112349_)))) + (gx#core-identifier-key _id112331_)))) (declare (not safe)) - (gxc#generate-runtime-identifier-key __tmp114279)))) + (gxc#generate-runtime-identifier-key __tmp114261)))) (define gxc#generate-runtime-identifier-key - (lambda (_key112309_) - (if (interned-symbol? _key112309_) - _key112309_ - (if (uninterned-symbol? _key112309_) + (lambda (_key112291_) + (if (interned-symbol? _key112291_) + _key112291_ + (if (uninterned-symbol? _key112291_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _key112309_)) - (let* ((_key112310112317_ _key112309_) - (_E112312112321_ + (gxc#generate-runtime-gensym-reference__0 _key112291_)) + (let* ((_key112292112299_ _key112291_) + (_E112294112303_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _key112310112317_)))) - (_K112313112337_ - (lambda (_mark112324_ _eid112325_) - (let ((_$e112327_ + (error '"No clause matching" _key112292112299_)))) + (_K112295112319_ + (lambda (_mark112306_ _eid112307_) + (let ((_$e112309_ (##structure-ref - _mark112324_ + _mark112306_ '1 gx#expander-mark::t '#f))) - (if _$e112327_ - ((lambda (_ht112330_) - (let ((_$e112332_ + (if _$e112309_ + ((lambda (_ht112312_) + (let ((_$e112314_ (let () (declare (not safe)) (hash-get - _ht112330_ - _eid112325_)))) - (if _$e112332_ - ((lambda (_id112335_) - (if (interned-symbol? _id112335_) - _id112335_ + _ht112312_ + _eid112307_)))) + (if _$e112314_ + ((lambda (_id112317_) + (if (interned-symbol? _id112317_) + _id112317_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _id112335_)))) - _$e112332_) + _id112317_)))) + _$e112314_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid112325_))))) - _$e112327_) + _eid112307_))))) + _$e112309_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid112325_))))))) - (if (let () (declare (not safe)) (##pair? _key112310112317_)) - (let ((_hd112314112340_ + _eid112307_))))))) + (if (let () (declare (not safe)) (##pair? _key112292112299_)) + (let ((_hd112296112322_ (let () (declare (not safe)) - (##car _key112310112317_))) - (_tl112315112342_ + (##car _key112292112299_))) + (_tl112297112324_ (let () (declare (not safe)) - (##cdr _key112310112317_)))) - (let* ((_eid112345_ _hd112314112340_) - (_mark112347_ _tl112315112342_)) + (##cdr _key112292112299_)))) + (let* ((_eid112327_ _hd112296112322_) + (_mark112329_ _tl112297112324_)) (declare (not safe)) - (_K112313112337_ _mark112347_ _eid112345_))) - (let () (declare (not safe)) (_E112312112321_)))))))) + (_K112295112319_ _mark112329_ _eid112327_))) + (let () (declare (not safe)) (_E112294112303_)))))))) (define gxc#generate-runtime-temporary__% - (lambda (_top112296_) - (if _top112296_ - (let ((_ns112298_ + (lambda (_top112278_) + (if _top112278_ + (let ((_ns112280_ (##structure-ref - (let ((__tmp114281 (gx#current-expander-context))) + (let ((__tmp114263 (gx#current-expander-context))) (declare (not safe)) - (gx#core-context-top__1 __tmp114281)) + (gx#core-context-top__1 __tmp114263)) '6 gx#module-context::t '#f)) - (_phi112299_ (gx#current-expander-phi))) - (if _ns112298_ - (if (fxpositive? _phi112299_) - (let ((__tmp114287 (number->string _phi112299_)) - (__tmp114286 (gensym))) + (_phi112281_ (gx#current-expander-phi))) + (if _ns112280_ + (if (fxpositive? _phi112281_) + (let ((__tmp114269 (number->string _phi112281_)) + (__tmp114268 (gensym))) (declare (not safe)) (make-symbol__1 - _ns112298_ + _ns112280_ '"[" - __tmp114287 + __tmp114269 '"]#_" - __tmp114286 + __tmp114268 '"_")) - (let ((__tmp114285 (gensym))) + (let ((__tmp114267 (gensym))) (declare (not safe)) - (make-symbol__1 _ns112298_ '"#_" __tmp114285 '"_"))) - (if (fxpositive? _phi112299_) - (let ((__tmp114284 (number->string _phi112299_)) - (__tmp114283 (gensym))) + (make-symbol__1 _ns112280_ '"#_" __tmp114267 '"_"))) + (if (fxpositive? _phi112281_) + (let ((__tmp114266 (number->string _phi112281_)) + (__tmp114265 (gensym))) (declare (not safe)) (make-symbol__1 '"[" - __tmp114284 + __tmp114266 '"]#_" - __tmp114283 + __tmp114265 '"_")) - (let ((__tmp114282 (gensym))) + (let ((__tmp114264 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp114282 '"_"))))) - (let ((__tmp114280 (gensym))) + (make-symbol__1 '"_" __tmp114264 '"_"))))) + (let ((__tmp114262 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp114280 '"_"))))) + (make-symbol__1 '"_" __tmp114262 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_top112305_ '#f)) + (let ((_top112287_ '#f)) (declare (not safe)) - (gxc#generate-runtime-temporary__% _top112305_)))) + (gxc#generate-runtime-temporary__% _top112287_)))) (define gxc#generate-runtime-temporary - (lambda _g114289_ - (let ((_g114288_ (let () (declare (not safe)) (##length _g114289_)))) - (cond ((let () (declare (not safe)) (##fx= _g114288_ 0)) + (lambda _g114271_ + (let ((_g114270_ (let () (declare (not safe)) (##length _g114271_)))) + (cond ((let () (declare (not safe)) (##fx= _g114270_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - _g114289_)) - ((let () (declare (not safe)) (##fx= _g114288_ 1)) - (apply (lambda (_top112307_) + _g114271_)) + ((let () (declare (not safe)) (##fx= _g114270_ 1)) + (apply (lambda (_top112289_) (let () (declare (not safe)) - (gxc#generate-runtime-temporary__% _top112307_))) - _g114289_)) + (gxc#generate-runtime-temporary__% _top112289_))) + _g114271_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g114289_)))))) + _g114271_)))))) (define gxc#generate-runtime-empty - (lambda (_self112292_ _stx112293_) '(begin))) + (lambda (_self112274_ _stx112275_) '(begin))) (define gxc#generate-runtime-begin% - (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 (_self112121_ _stx112122_) + (letrec ((_simplify112124_ + (lambda (_body112172_) + (let _lp112174_ ((_rest112176_ _body112172_) + (_r112177_ '())) + (let* ((_rest112178112186_ _rest112176_) + (_else112180112194_ + (lambda () (reverse _r112177_))) + (_K112182112262_ + (lambda (_rest112197_ _hd112198_) + (let* ((_hd112199112215_ _hd112198_) + (_else112203112223_ (lambda () - (let ((__tmp114290 + (let ((__tmp114272 (let () (declare (not safe)) - (cons _hd112216_ - _r112195_)))) + (cons _hd112198_ + _r112177_)))) (declare (not safe)) - (_lp112192_ - _rest112215_ - __tmp114290))))) - (let ((_K112229112270_ - (lambda (_exprs112268_) - (let ((__tmp114291 + (_lp112174_ + _rest112197_ + __tmp114272))))) + (let ((_K112211112252_ + (lambda (_exprs112250_) + (let ((__tmp114273 (let () (declare (not safe)) (foldr1 cons - _rest112215_ - _exprs112268_)))) + _rest112197_ + _exprs112250_)))) (declare (not safe)) - (_lp112192_ - __tmp114291 - _r112195_)))) - (_K112224112254_ + (_lp112174_ + __tmp114273 + _r112177_)))) + (_K112206112236_ (lambda () (if (let () (declare (not safe)) - (null? _rest112215_)) - (let ((__tmp114292 + (null? _rest112197_)) + (let ((__tmp114274 (let () (declare (not safe)) - (cons _hd112216_ - _r112195_)))) + (cons _hd112198_ + _r112177_)))) (declare (not safe)) - (_lp112192_ - _rest112215_ - __tmp114292)) + (_lp112174_ + _rest112197_ + __tmp114274)) (let () (declare (not safe)) - (_lp112192_ - _rest112215_ - _r112195_))))) - (_K112223112246_ + (_lp112174_ + _rest112197_ + _r112177_))))) + (_K112205112228_ (lambda () (if (let () (declare (not safe)) - (null? _rest112215_)) - (let ((__tmp114293 + (null? _rest112197_)) + (let ((__tmp114275 (let () (declare (not safe)) - (cons _hd112216_ - _r112195_)))) + (cons _hd112198_ + _r112177_)))) (declare (not safe)) - (_lp112192_ - _rest112215_ - __tmp114293)) + (_lp112174_ + _rest112197_ + __tmp114275)) (let () (declare (not safe)) - (_lp112192_ - _rest112215_ - _r112195_)))))) - (let ((_try-match112220112249_ + (_lp112174_ + _rest112197_ + _r112177_)))))) + (let ((_try-match112202112231_ (lambda () (if (let () (declare (not safe)) - (symbol? _hd112217112233_)) + (symbol? _hd112199112215_)) (let () (declare (not safe)) - (_K112223112246_)) + (_K112205112228_)) (let () (declare (not safe)) - (_else112221112241_)))))) + (_else112203112223_)))))) (if (let () (declare (not safe)) - (##pair? _hd112217112233_)) - (let ((_tl112231112275_ + (##pair? _hd112199112215_)) + (let ((_tl112213112257_ (let () (declare (not safe)) - (##cdr _hd112217112233_))) - (_hd112230112273_ + (##cdr _hd112199112215_))) + (_hd112212112255_ (let () (declare (not safe)) - (##car _hd112217112233_)))) + (##car _hd112199112215_)))) (if (let () (declare (not safe)) - (##eq? _hd112230112273_ + (##eq? _hd112212112255_ 'begin)) - (let ((_exprs112278_ - _tl112231112275_)) + (let ((_exprs112260_ + _tl112213112257_)) (declare (not safe)) - (_K112229112270_ - _exprs112278_)) + (_K112211112252_ + _exprs112260_)) (if (let () (declare (not safe)) - (##eq? _hd112230112273_ + (##eq? _hd112212112255_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl112231112275_)) - (let ((_tl112228112262_ + (##pair? _tl112213112257_)) + (let ((_tl112210112244_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##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_))) + (##cdr _tl112213112257_)))) + (if (let () (declare (not safe)) (##null? _tl112210112244_)) + (let () (declare (not safe)) (_K112206112236_)) + (let () (declare (not safe)) (_try-match112202112231_)))) + (let () (declare (not safe)) (_try-match112202112231_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_try-match112220112249_))))) + (_try-match112202112231_))))) (let () (declare (not safe)) - (_try-match112220112249_))))))))) + (_try-match112202112231_))))))))) (if (let () (declare (not safe)) - (##pair? _rest112196112204_)) - (let ((_hd112201112283_ + (##pair? _rest112178112186_)) + (let ((_hd112183112265_ (let () (declare (not safe)) - (##car _rest112196112204_))) - (_tl112202112285_ + (##car _rest112178112186_))) + (_tl112184112267_ (let () (declare (not safe)) - (##cdr _rest112196112204_)))) - (let* ((_hd112288_ _hd112201112283_) - (_rest112290_ _tl112202112285_)) + (##cdr _rest112178112186_)))) + (let* ((_hd112270_ _hd112183112265_) + (_rest112272_ _tl112184112267_)) (declare (not safe)) - (_K112200112280_ _rest112290_ _hd112288_))) + (_K112182112262_ _rest112272_ _hd112270_))) (let () (declare (not safe)) - (_else112198112212_)))))))) - (let* ((_g112144112154_ - (lambda (_g112145112151_) + (_else112180112194_)))))))) + (let* ((_g112126112136_ + (lambda (_g112127112133_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g112145112151_)))) - (_g112143112187_ - (lambda (_g112145112157_) + _g112127112133_)))) + (_g112125112169_ + (lambda (_g112127112139_) (if (let () (declare (not safe)) - (gx#stx-pair? _g112145112157_)) - (let ((_e112149112159_ + (gx#stx-pair? _g112127112139_)) + (let ((_e112131112141_ (let () (declare (not safe)) - (gx#stx-e _g112145112157_)))) - (let ((_hd112148112162_ + (gx#stx-e _g112127112139_)))) + (let ((_hd112130112144_ (let () (declare (not safe)) - (##car _e112149112159_))) - (_tl112147112164_ + (##car _e112131112141_))) + (_tl112129112146_ (let () (declare (not safe)) - (##cdr _e112149112159_)))) - ((lambda (_L112167_) - (let* ((_body112182_ - (map (lambda (_g112177112179_) + (##cdr _e112131112141_)))) + ((lambda (_L112149_) + (let* ((_body112164_ + (map (lambda (_g112159112161_) (let () (declare (not safe)) (gxc#compile-e__1 - _self112139_ - _g112177112179_))) - _L112167_)) - (_body112184_ + _self112121_ + _g112159112161_))) + _L112149_)) + (_body112166_ (let () (declare (not safe)) - (_simplify112142_ _body112182_)))) - (if (fx= (length _body112184_) '1) - (car _body112184_) + (_simplify112124_ _body112164_)))) + (if (fx= (length _body112166_) '1) + (car _body112166_) (let () (declare (not safe)) - (cons 'begin _body112184_))))) - _tl112147112164_))) + (cons 'begin _body112166_))))) + _tl112129112146_))) (let () (declare (not safe)) - (_g112144112154_ _g112145112157_)))))) + (_g112126112136_ _g112127112139_)))))) (declare (not safe)) - (_g112143112187_ _stx112140_))))) + (_g112125112169_ _stx112122_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_self112100_ _stx112101_) - (let* ((_g112103112113_ - (lambda (_g112104112110_) + (lambda (_self112082_ _stx112083_) + (let* ((_g112085112095_ + (lambda (_g112086112092_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g112104112110_)))) - (_g112102112136_ - (lambda (_g112104112116_) + _g112086112092_)))) + (_g112084112118_ + (lambda (_g112086112098_) (if (let () (declare (not safe)) - (gx#stx-pair? _g112104112116_)) - (let ((_e112108112118_ + (gx#stx-pair? _g112086112098_)) + (let ((_e112090112100_ (let () (declare (not safe)) - (gx#stx-e _g112104112116_)))) - (let ((_hd112107112121_ + (gx#stx-e _g112086112098_)))) + (let ((_hd112089112103_ (let () (declare (not safe)) - (##car _e112108112118_))) - (_tl112106112123_ + (##car _e112090112100_))) + (_tl112088112105_ (let () (declare (not safe)) - (##cdr _e112108112118_)))) - ((lambda (_L112126_) - (let ((__tmp114294 + (##cdr _e112090112100_)))) + ((lambda (_L112108_) + (let ((__tmp114276 (let () (declare (not safe)) - (gx#syntax->datum _L112126_)))) + (gx#syntax->datum _L112108_)))) (declare (not safe)) - (cons 'begin __tmp114294))) - _tl112106112123_))) + (cons 'begin __tmp114276))) + _tl112088112105_))) (let () (declare (not safe)) - (_g112103112113_ _g112104112116_)))))) + (_g112085112095_ _g112086112098_)))))) (declare (not safe)) - (_g112102112136_ _stx112101_)))) + (_g112084112118_ _stx112083_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_self111864_ _stx111865_) - (let* ((___stx112892112893_ _stx111865_) - (_g111869111921_ + (lambda (_self111846_ _stx111847_) + (let* ((___stx112874112875_ _stx111847_) + (_g111851111903_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx112892112893_))))) - (let ((___kont112894112895_ - (lambda (_L112082_ _L112083_) + ___stx112874112875_))))) + (let ((___kont112876112877_ + (lambda (_L112064_ _L112065_) (let () (declare (not safe)) - (gxc#compile-e__1 _self111864_ _L112082_)))) - (___kont112896112897_ - (lambda (_L112030_ _L112031_ _L112032_) + (gxc#compile-e__1 _self111846_ _L112064_)))) + (___kont112878112879_ + (lambda (_L112012_ _L112013_ _L112014_) (let () (declare (not safe)) - (gxc#compile-e__1 _self111864_ _L112030_)))) - (___kont112900112901_ - (lambda (_L111950_ _L111951_) - (let ((_decls111966_ (map gx#syntax->datum _L111951_))) - (let ((__tmp114297 + (gxc#compile-e__1 _self111846_ _L112012_)))) + (___kont112882112883_ + (lambda (_L111932_ _L111933_) + (let ((_decls111948_ (map gx#syntax->datum _L111933_))) + (let ((__tmp114279 (lambda () - (let ((__tmp114298 - (let ((__tmp114301 + (let ((__tmp114280 + (let ((__tmp114283 (let () (declare (not safe)) - (cons 'declare _decls111966_))) - (__tmp114299 - (let ((__tmp114300 + (cons 'declare _decls111948_))) + (__tmp114281 + (let ((__tmp114282 (let () (declare (not safe)) (gxc#compile-e__1 - _self111864_ - _L111950_)))) + _self111846_ + _L111932_)))) (declare (not safe)) - (cons __tmp114300 '())))) + (cons __tmp114282 '())))) (declare (not safe)) - (cons __tmp114301 __tmp114299)))) + (cons __tmp114283 __tmp114281)))) (declare (not safe)) - (cons 'begin __tmp114298)))) - (__tmp114295 - (let ((__tmp114296 (gxc#current-compile-decls))) + (cons 'begin __tmp114280)))) + (__tmp114277 + (let ((__tmp114278 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp114296 _decls111966_)))) + (foldr1 cons __tmp114278 _decls111948_)))) (declare (not safe)) (call-with-parameters - __tmp114297 + __tmp114279 gxc#current-compile-decls - __tmp114295)))))) - (let* ((___match112947112948_ - (lambda (_e111887111974_ - _hd111886111977_ - _tl111885111979_ - _e111890111982_ - _hd111889111985_ - _tl111888111987_ - _e111893111990_ - _hd111892111993_ - _tl111891111995_ - ___splice112898112899_ - _target111894111998_ - _tl111896112000_) - (letrec ((_loop111897112003_ - (lambda (_hd111895112006_ _param111901112008_) + __tmp114277)))))) + (let* ((___match112929112930_ + (lambda (_e111869111956_ + _hd111868111959_ + _tl111867111961_ + _e111872111964_ + _hd111871111967_ + _tl111870111969_ + _e111875111972_ + _hd111874111975_ + _tl111873111977_ + ___splice112880112881_ + _target111876111980_ + _tl111878111982_) + (letrec ((_loop111879111985_ + (lambda (_hd111877111988_ _param111883111990_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd111895112006_)) - (let ((_e111898112011_ + (gx#stx-pair? _hd111877111988_)) + (let ((_e111880111993_ (let () (declare (not safe)) - (gx#stx-e _hd111895112006_)))) - (let ((_lp-tl111900112016_ + (gx#stx-e _hd111877111988_)))) + (let ((_lp-tl111882111998_ (let () (declare (not safe)) - (##cdr _e111898112011_))) - (_lp-hd111899112014_ + (##cdr _e111880111993_))) + (_lp-hd111881111996_ (let () (declare (not safe)) - (##car _e111898112011_)))) - (let ((__tmp114303 + (##car _e111880111993_)))) + (let ((__tmp114285 (let () (declare (not safe)) - (cons _lp-hd111899112014_ - _param111901112008_)))) + (cons _lp-hd111881111996_ + _param111883111990_)))) (declare (not safe)) - (_loop111897112003_ - _lp-tl111900112016_ - __tmp114303)))) - (let ((_param111902112019_ - (reverse _param111901112008_))) + (_loop111879111985_ + _lp-tl111882111998_ + __tmp114285)))) + (let ((_param111884112001_ + (reverse _param111883111990_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl111888111987_)) - (let ((_e111905112022_ + (gx#stx-pair? _tl111870111969_)) + (let ((_e111887112004_ (let () (declare (not safe)) (gx#stx-e - _tl111888111987_)))) - (let ((_tl111903112027_ + _tl111870111969_)))) + (let ((_tl111885112009_ (let () (declare (not safe)) - (##cdr _e111905112022_))) - (_hd111904112025_ + (##cdr _e111887112004_))) + (_hd111886112007_ (let () (declare (not safe)) - (##car _e111905112022_)))) + (##car _e111887112004_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl111903112027_)) - (let ((_L112030_ - _hd111904112025_) - (_L112031_ - _param111902112019_) - (_L112032_ - _hd111892111993_)) + _tl111885112009_)) + (let ((_L112012_ + _hd111886112007_) + (_L112013_ + _param111884112001_) + (_L112014_ + _hd111874111975_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L112032_)) - (let ((__tmp114302 + (gx#identifier? _L112014_)) + (let ((__tmp114284 (memq (let () (declare (not safe)) - (gx#stx-e _L112032_)) + (gx#stx-e _L112014_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp114302))) - (___kont112896112897_ _L112030_ _L112031_ _L112032_) - (___kont112900112901_ _hd111904112025_ _hd111889111985_))) + (not __tmp114284))) + (___kont112878112879_ _L112012_ _L112013_ _L112014_) + (___kont112882112883_ _hd111886112007_ _hd111871111967_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g111869111921_))))) + (_g111851111903_))))) (let () (declare (not safe)) - (_g111869111921_)))))))) + (_g111851111903_)))))))) (let () (declare (not safe)) - (_loop111897112003_ _target111894111998_ '()))))) - (___match112921112922_ - (lambda (_e111875112058_ - _hd111874112061_ - _tl111873112063_ - _e111878112066_ - _hd111877112069_ - _tl111876112071_ - _e111881112074_ - _hd111880112077_ - _tl111879112079_) - (let ((_L112082_ _hd111880112077_) - (_L112083_ _hd111877112069_)) + (_loop111879111985_ _target111876111980_ '()))))) + (___match112903112904_ + (lambda (_e111857112040_ + _hd111856112043_ + _tl111855112045_ + _e111860112048_ + _hd111859112051_ + _tl111858112053_ + _e111863112056_ + _hd111862112059_ + _tl111861112061_) + (let ((_L112064_ _hd111862112059_) + (_L112065_ _hd111859112051_)) (if (let () (declare (not safe)) - (gx#identifier? _L112083_)) - (___kont112894112895_ _L112082_ _L112083_) + (gx#identifier? _L112065_)) + (___kont112876112877_ _L112064_ _L112065_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd111877112069_)) - (let ((_e111893111990_ + (gx#stx-pair? _hd111859112051_)) + (let ((_e111875111972_ (let () (declare (not safe)) - (gx#stx-e _hd111877112069_)))) - (let ((_tl111891111995_ + (gx#stx-e _hd111859112051_)))) + (let ((_tl111873111977_ (let () (declare (not safe)) - (##cdr _e111893111990_))) - (_hd111892111993_ + (##cdr _e111875111972_))) + (_hd111874111975_ (let () (declare (not safe)) - (##car _e111893111990_)))) + (##car _e111875111972_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl111891111995_)) - (let ((___splice112898112899_ + (gx#stx-pair/null? _tl111873111977_)) + (let ((___splice112880112881_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl111891111995_ + _tl111873111977_ '0)))) - (let ((_tl111896112000_ + (let ((_tl111878111982_ (let () (declare (not safe)) (##vector-ref - ___splice112898112899_ + ___splice112880112881_ '1))) - (_target111894111998_ + (_target111876111980_ (let () (declare (not safe)) (##vector-ref - ___splice112898112899_ + ___splice112880112881_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl111896112000_)) - (___match112947112948_ - _e111875112058_ - _hd111874112061_ - _tl111873112063_ - _e111878112066_ - _hd111877112069_ - _tl111876112071_ - _e111893111990_ - _hd111892111993_ - _tl111891111995_ - ___splice112898112899_ - _target111894111998_ - _tl111896112000_) - (___kont112900112901_ - _hd111880112077_ - _hd111877112069_)))) - (___kont112900112901_ - _hd111880112077_ - _hd111877112069_)))) - (___kont112900112901_ - _hd111880112077_ - _hd111877112069_))))))) + _tl111878111982_)) + (___match112929112930_ + _e111857112040_ + _hd111856112043_ + _tl111855112045_ + _e111860112048_ + _hd111859112051_ + _tl111858112053_ + _e111875111972_ + _hd111874111975_ + _tl111873111977_ + ___splice112880112881_ + _target111876111980_ + _tl111878111982_) + (___kont112882112883_ + _hd111862112059_ + _hd111859112051_)))) + (___kont112882112883_ + _hd111862112059_ + _hd111859112051_)))) + (___kont112882112883_ + _hd111862112059_ + _hd111859112051_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx112892112893_)) - (let ((_e111875112058_ + (gx#stx-pair? ___stx112874112875_)) + (let ((_e111857112040_ (let () (declare (not safe)) - (gx#stx-e ___stx112892112893_)))) - (let ((_tl111873112063_ + (gx#stx-e ___stx112874112875_)))) + (let ((_tl111855112045_ (let () (declare (not safe)) - (##cdr _e111875112058_))) - (_hd111874112061_ + (##cdr _e111857112040_))) + (_hd111856112043_ (let () (declare (not safe)) - (##car _e111875112058_)))) + (##car _e111857112040_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl111873112063_)) - (let ((_e111878112066_ + (gx#stx-pair? _tl111855112045_)) + (let ((_e111860112048_ (let () (declare (not safe)) - (gx#stx-e _tl111873112063_)))) - (let ((_tl111876112071_ + (gx#stx-e _tl111855112045_)))) + (let ((_tl111858112053_ (let () (declare (not safe)) - (##cdr _e111878112066_))) - (_hd111877112069_ + (##cdr _e111860112048_))) + (_hd111859112051_ (let () (declare (not safe)) - (##car _e111878112066_)))) + (##car _e111860112048_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl111876112071_)) - (let ((_e111881112074_ + (gx#stx-pair? _tl111858112053_)) + (let ((_e111863112056_ (let () (declare (not safe)) - (gx#stx-e _tl111876112071_)))) - (let ((_tl111879112079_ + (gx#stx-e _tl111858112053_)))) + (let ((_tl111861112061_ (let () (declare (not safe)) - (##cdr _e111881112074_))) - (_hd111880112077_ + (##cdr _e111863112056_))) + (_hd111862112059_ (let () (declare (not safe)) - (##car _e111881112074_)))) + (##car _e111863112056_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl111879112079_)) - (___match112921112922_ - _e111875112058_ - _hd111874112061_ - _tl111873112063_ - _e111878112066_ - _hd111877112069_ - _tl111876112071_ - _e111881112074_ - _hd111880112077_ - _tl111879112079_) + (gx#stx-null? _tl111861112061_)) + (___match112903112904_ + _e111857112040_ + _hd111856112043_ + _tl111855112045_ + _e111860112048_ + _hd111859112051_ + _tl111858112053_ + _e111863112056_ + _hd111862112059_ + _tl111861112061_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd111877112069_)) - (let ((_e111893111990_ + _hd111859112051_)) + (let ((_e111875111972_ (let () (declare (not safe)) (gx#stx-e - _hd111877112069_)))) - (let ((_tl111891111995_ + _hd111859112051_)))) + (let ((_tl111873111977_ (let () (declare (not safe)) - (##cdr _e111893111990_))) - (_hd111892111993_ + (##cdr _e111875111972_))) + (_hd111874111975_ (let () (declare (not safe)) - (##car _e111893111990_)))) + (##car _e111875111972_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl111891111995_)) - (let ((___splice112898112899_ + _tl111873111977_)) + (let ((___splice112880112881_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl111891111995_ '0)))) - (let ((_tl111896112000_ + (gx#syntax-split-splice _tl111873111977_ '0)))) + (let ((_tl111878111982_ (let () (declare (not safe)) - (##vector-ref ___splice112898112899_ '1))) - (_target111894111998_ + (##vector-ref ___splice112880112881_ '1))) + (_target111876111980_ (let () (declare (not safe)) - (##vector-ref ___splice112898112899_ '0)))) + (##vector-ref ___splice112880112881_ '0)))) (if (let () (declare (not safe)) - (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_))))) + (gx#stx-null? _tl111878111982_)) + (___match112929112930_ + _e111857112040_ + _hd111856112043_ + _tl111855112045_ + _e111860112048_ + _hd111859112051_ + _tl111858112053_ + _e111875111972_ + _hd111874111975_ + _tl111873111977_ + ___splice112880112881_ + _target111876111980_ + _tl111878111982_) + (let () (declare (not safe)) (_g111851111903_))))) + (let () (declare (not safe)) (_g111851111903_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g111869111921_)))))) + (_g111851111903_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd111877112069_)) - (let ((_e111893111990_ + (gx#stx-pair? _hd111859112051_)) + (let ((_e111875111972_ (let () (declare (not safe)) - (gx#stx-e _hd111877112069_)))) - (let ((_tl111891111995_ + (gx#stx-e _hd111859112051_)))) + (let ((_tl111873111977_ (let () (declare (not safe)) - (##cdr _e111893111990_))) - (_hd111892111993_ + (##cdr _e111875111972_))) + (_hd111874111975_ (let () (declare (not safe)) - (##car _e111893111990_)))) + (##car _e111875111972_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl111891111995_)) - (let ((___splice112898112899_ + _tl111873111977_)) + (let ((___splice112880112881_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl111891111995_ + _tl111873111977_ '0)))) - (let ((_tl111896112000_ + (let ((_tl111878111982_ (let () (declare (not safe)) (##vector-ref - ___splice112898112899_ + ___splice112880112881_ '1))) - (_target111894111998_ + (_target111876111980_ (let () (declare (not safe)) (##vector-ref - ___splice112898112899_ + ___splice112880112881_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl111896112000_)) - (___match112947112948_ - _e111875112058_ - _hd111874112061_ - _tl111873112063_ - _e111878112066_ - _hd111877112069_ - _tl111876112071_ - _e111893111990_ - _hd111892111993_ - _tl111891111995_ - ___splice112898112899_ - _target111894111998_ - _tl111896112000_) + _tl111878111982_)) + (___match112929112930_ + _e111857112040_ + _hd111856112043_ + _tl111855112045_ + _e111860112048_ + _hd111859112051_ + _tl111858112053_ + _e111875111972_ + _hd111874111975_ + _tl111873111977_ + ___splice112880112881_ + _target111876111980_ + _tl111878111982_) (let () (declare (not safe)) - (_g111869111921_))))) + (_g111851111903_))))) (let () (declare (not safe)) - (_g111869111921_))))) + (_g111851111903_))))) (let () (declare (not safe)) - (_g111869111921_)))))) - (let () (declare (not safe)) (_g111869111921_))))) - (let () (declare (not safe)) (_g111869111921_)))))))) + (_g111851111903_)))))) + (let () (declare (not safe)) (_g111851111903_))))) + (let () (declare (not safe)) (_g111851111903_)))))))) (define gxc#generate-runtime-declare% - (lambda (_self111823_ _stx111824_) - (let* ((_g111826111836_ - (lambda (_g111827111833_) + (lambda (_self111805_ _stx111806_) + (let* ((_g111808111818_ + (lambda (_g111809111815_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g111827111833_)))) - (_g111825111861_ - (lambda (_g111827111839_) + _g111809111815_)))) + (_g111807111843_ + (lambda (_g111809111821_) (if (let () (declare (not safe)) - (gx#stx-pair? _g111827111839_)) - (let ((_e111831111841_ + (gx#stx-pair? _g111809111821_)) + (let ((_e111813111823_ (let () (declare (not safe)) - (gx#stx-e _g111827111839_)))) - (let ((_hd111830111844_ + (gx#stx-e _g111809111821_)))) + (let ((_hd111812111826_ (let () (declare (not safe)) - (##car _e111831111841_))) - (_tl111829111846_ + (##car _e111813111823_))) + (_tl111811111828_ (let () (declare (not safe)) - (##cdr _e111831111841_)))) - ((lambda (_L111849_) - (let ((_decls111859_ - (map gx#syntax->datum _L111849_))) + (##cdr _e111813111823_)))) + ((lambda (_L111831_) + (let ((_decls111841_ + (map gx#syntax->datum _L111831_))) (gxc#current-compile-decls - (let ((__tmp114304 + (let ((__tmp114286 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp114304 _decls111859_))) + (foldr1 cons __tmp114286 _decls111841_))) (let () (declare (not safe)) - (cons 'declare _decls111859_)))) - _tl111829111846_))) + (cons 'declare _decls111841_)))) + _tl111811111828_))) (let () (declare (not safe)) - (_g111826111836_ _g111827111839_)))))) + (_g111808111818_ _g111809111821_)))))) (declare (not safe)) - (_g111825111861_ _stx111824_)))) + (_g111807111843_ _stx111806_)))) (define gxc#generate-runtime-define-values% - (lambda (_self111569_ _stx111570_) - (let* ((_g111572111589_ - (lambda (_g111573111586_) + (lambda (_self111551_ _stx111552_) + (let* ((_g111554111571_ + (lambda (_g111555111568_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g111573111586_)))) - (_g111571111820_ - (lambda (_g111573111592_) + _g111555111568_)))) + (_g111553111802_ + (lambda (_g111555111574_) (if (let () (declare (not safe)) - (gx#stx-pair? _g111573111592_)) - (let ((_e111578111594_ + (gx#stx-pair? _g111555111574_)) + (let ((_e111560111576_ (let () (declare (not safe)) - (gx#stx-e _g111573111592_)))) - (let ((_hd111577111597_ + (gx#stx-e _g111555111574_)))) + (let ((_hd111559111579_ (let () (declare (not safe)) - (##car _e111578111594_))) - (_tl111576111599_ + (##car _e111560111576_))) + (_tl111558111581_ (let () (declare (not safe)) - (##cdr _e111578111594_)))) + (##cdr _e111560111576_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl111576111599_)) - (let ((_e111581111602_ + (gx#stx-pair? _tl111558111581_)) + (let ((_e111563111584_ (let () (declare (not safe)) - (gx#stx-e _tl111576111599_)))) - (let ((_hd111580111605_ + (gx#stx-e _tl111558111581_)))) + (let ((_hd111562111587_ (let () (declare (not safe)) - (##car _e111581111602_))) - (_tl111579111607_ + (##car _e111563111584_))) + (_tl111561111589_ (let () (declare (not safe)) - (##cdr _e111581111602_)))) + (##cdr _e111563111584_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl111579111607_)) - (let ((_e111584111610_ + (gx#stx-pair? _tl111561111589_)) + (let ((_e111566111592_ (let () (declare (not safe)) - (gx#stx-e _tl111579111607_)))) - (let ((_hd111583111613_ + (gx#stx-e _tl111561111589_)))) + (let ((_hd111565111595_ (let () (declare (not safe)) - (##car _e111584111610_))) - (_tl111582111615_ + (##car _e111566111592_))) + (_tl111564111597_ (let () (declare (not safe)) - (##cdr _e111584111610_)))) + (##cdr _e111566111592_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl111582111615_)) - ((lambda (_L111618_ _L111619_) - (let* ((___stx113000113001_ - _L111619_) - (_g111636111650_ + _tl111564111597_)) + ((lambda (_L111600_ _L111601_) + (let* ((___stx112982112983_ + _L111601_) + (_g111618111632_ (lambda () (let () (declare @@ -3227,9513 +3227,9513 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113000113001_))))) - (let ((___kont113002113003_ + ___stx112982112983_))))) + (let ((___kont112984112985_ (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _self111569_ - _L111618_)))) - (___kont113004113005_ - (lambda (_L111782_) - (let ((_eid111791_ + _self111551_ + _L111600_)))) + (___kont112986112987_ + (lambda (_L111764_) + (let ((_eid111773_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L111782_)))) - (let ((_lambda-expr111792111794_ + (gxc#generate-runtime-binding-id _L111764_)))) + (let ((_lambda-expr111774111776_ (let () (declare (not safe)) - (gxc#apply-find-lambda-expression _L111618_)))) - (if _lambda-expr111792111794_ - (let* ((_lambda-expr111797_ - _lambda-expr111792111794_) - (__tmp114305 + (gxc#apply-find-lambda-expression _L111600_)))) + (if _lambda-expr111774111776_ + (let* ((_lambda-expr111779_ + _lambda-expr111774111776_) + (__tmp114287 (gxc#current-compile-runtime-names))) (declare (not safe)) (hash-put! - __tmp114305 - _lambda-expr111797_ - _eid111791_)) + __tmp114287 + _lambda-expr111779_ + _eid111773_)) '#f)) - (let ((__tmp114306 - (let ((__tmp114307 - (let ((__tmp114308 + (let ((__tmp114288 + (let ((__tmp114289 + (let ((__tmp114290 (let () (declare (not safe)) (gxc#compile-e__1 - _self111569_ - _L111618_)))) + _self111551_ + _L111600_)))) (declare (not safe)) - (cons __tmp114308 '())))) + (cons __tmp114290 '())))) (declare (not safe)) - (cons _eid111791_ __tmp114307)))) + (cons _eid111773_ __tmp114289)))) (declare (not safe)) - (cons 'define __tmp114306))))) - (___kont113006113007_ + (cons 'define __tmp114288))))) + (___kont112988112989_ (lambda () - (let* ((_tmp111657_ + (let* ((_tmp111639_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_body111766_ - (let _lp111659_ ((_rest111661_ _L111619_) - (_k111662_ '0) - (_r111663_ '())) - (let* ((___stx112970112971_ _rest111661_) - (_g111668111685_ + (_body111748_ + (let _lp111641_ ((_rest111643_ _L111601_) + (_k111644_ '0) + (_r111645_ '())) + (let* ((___stx112952112953_ _rest111643_) + (_g111650111667_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx112970112971_))))) - (let ((___kont112972112973_ - (lambda (_L111753_) - (let ((__tmp114309 + ___stx112952112953_))))) + (let ((___kont112954112955_ + (lambda (_L111735_) + (let ((__tmp114291 (let () (declare (not safe)) - (fx+ _k111662_ '1)))) + (fx+ _k111644_ '1)))) (declare (not safe)) - (_lp111659_ - _L111753_ - __tmp114309 - _r111663_)))) - (___kont112974112975_ - (lambda (_L111726_ _L111727_) - (let ((__tmp114316 + (_lp111641_ + _L111735_ + __tmp114291 + _r111645_)))) + (___kont112956112957_ + (lambda (_L111708_ _L111709_) + (let ((__tmp114298 (let () (declare (not safe)) - (fx+ _k111662_ '1))) - (__tmp114310 - (let ((__tmp114311 - (let ((__tmp114312 - (let ((__tmp114315 + (fx+ _k111644_ '1))) + (__tmp114292 + (let ((__tmp114293 + (let ((__tmp114294 + (let ((__tmp114297 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L111727_))) - (__tmp114313 - (let ((__tmp114314 + (gxc#generate-runtime-binding-id _L111709_))) + (__tmp114295 + (let ((__tmp114296 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _tmp111657_ - _k111662_ - _L111726_)))) + _tmp111639_ + _k111644_ + _L111708_)))) (declare (not safe)) - (cons __tmp114314 '())))) + (cons __tmp114296 '())))) (declare (not safe)) - (cons __tmp114315 __tmp114313)))) + (cons __tmp114297 __tmp114295)))) (declare (not safe)) - (cons 'define __tmp114312)))) + (cons 'define __tmp114294)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114311 - _r111663_)))) + (cons __tmp114293 + _r111645_)))) (declare (not safe)) - (_lp111659_ - _L111726_ - __tmp114316 - __tmp114310)))) - (___kont112976112977_ - (lambda (_L111697_) - (let ((__tmp114317 - (let ((__tmp114318 - (let ((__tmp114319 - (let ((__tmp114322 + (_lp111641_ + _L111708_ + __tmp114298 + __tmp114292)))) + (___kont112958112959_ + (lambda (_L111679_) + (let ((__tmp114299 + (let ((__tmp114300 + (let ((__tmp114301 + (let ((__tmp114304 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L111697_))) - (__tmp114320 - (let ((__tmp114321 + (gxc#generate-runtime-binding-id _L111679_))) + (__tmp114302 + (let ((__tmp114303 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _tmp111657_ - _k111662_)))) + _tmp111639_ + _k111644_)))) (declare (not safe)) - (cons __tmp114321 '())))) + (cons __tmp114303 '())))) (declare (not safe)) - (cons __tmp114322 __tmp114320)))) + (cons __tmp114304 __tmp114302)))) (declare (not safe)) - (cons 'define __tmp114319)))) + (cons 'define __tmp114301)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114318 '())))) + (cons __tmp114300 '())))) (declare (not safe)) (foldl1 cons - __tmp114317 - _r111663_)))) - (___kont112978112979_ - (lambda () (reverse _r111663_)))) - (let ((_g111666111713_ + __tmp114299 + _r111645_)))) + (___kont112960112961_ + (lambda () (reverse _r111645_)))) + (let ((_g111648111695_ (lambda () - (let ((_L111697_ - ___stx112970112971_)) + (let ((_L111679_ + ___stx112952112953_)) (if (let () (declare (not safe)) - (gx#identifier? _L111697_)) - (___kont112976112977_ - _L111697_) - (___kont112978112979_)))))) + (gx#identifier? _L111679_)) + (___kont112958112959_ + _L111679_) + (___kont112960112961_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx112970112971_)) - (let ((_e111673111742_ + (gx#stx-pair? ___stx112952112953_)) + (let ((_e111655111724_ (let () (declare (not safe)) (gx#stx-e - ___stx112970112971_)))) - (let ((_tl111671111747_ + ___stx112952112953_)))) + (let ((_tl111653111729_ (let () (declare (not safe)) - (##cdr _e111673111742_))) - (_hd111672111745_ + (##cdr _e111655111724_))) + (_hd111654111727_ (let () (declare (not safe)) - (##car _e111673111742_)))) + (##car _e111655111724_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd111672111745_)) - (let ((_e111674111750_ + _hd111654111727_)) + (let ((_e111656111732_ (let () (declare (not safe)) (gx#stx-e - _hd111672111745_)))) + _hd111654111727_)))) (if (let () (declare (not safe)) - (equal? _e111674111750_ + (equal? _e111656111732_ '#f)) - (___kont112972112973_ - _tl111671111747_) - (___kont112974112975_ - _tl111671111747_ - _hd111672111745_))) - (___kont112974112975_ - _tl111671111747_ - _hd111672111745_)))) + (___kont112954112955_ + _tl111653111729_) + (___kont112956112957_ + _tl111653111729_ + _hd111654111727_))) + (___kont112956112957_ + _tl111653111729_ + _hd111654111727_)))) (let () (declare (not safe)) - (_g111666111713_))))))))) - (let ((__tmp114323 - (let ((__tmp114326 - (let ((__tmp114327 - (let ((__tmp114328 - (let ((__tmp114329 + (_g111648111695_))))))))) + (let ((__tmp114305 + (let ((__tmp114308 + (let ((__tmp114309 + (let ((__tmp114310 + (let ((__tmp114311 (let () (declare (not safe)) (gxc#compile-e__1 - _self111569_ - _L111618_)))) + _self111551_ + _L111600_)))) (declare (not safe)) - (cons __tmp114329 '())))) + (cons __tmp114311 '())))) (declare (not safe)) - (cons _tmp111657_ __tmp114328)))) + (cons _tmp111639_ __tmp114310)))) (declare (not safe)) - (cons 'define __tmp114327))) - (__tmp114324 - (let ((__tmp114325 + (cons 'define __tmp114309))) + (__tmp114306 + (let ((__tmp114307 (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp111657_ - _L111619_ - _L111618_)))) + _tmp111639_ + _L111601_ + _L111600_)))) (declare (not safe)) - (cons __tmp114325 _body111766_)))) + (cons __tmp114307 _body111748_)))) (declare (not safe)) - (cons __tmp114326 __tmp114324)))) + (cons __tmp114308 __tmp114306)))) (declare (not safe)) - (cons 'begin __tmp114323)))))) + (cons 'begin __tmp114305)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx113000113001_)) - (let ((_e111640111804_ + ___stx112982112983_)) + (let ((_e111622111786_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e ___stx113000113001_)))) - (let ((_tl111638111809_ + (gx#stx-e ___stx112982112983_)))) + (let ((_tl111620111791_ (let () (declare (not safe)) - (##cdr _e111640111804_))) - (_hd111639111807_ + (##cdr _e111622111786_))) + (_hd111621111789_ (let () (declare (not safe)) - (##car _e111640111804_)))) + (##car _e111622111786_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd111639111807_)) - (let ((_e111641111812_ + (gx#stx-datum? _hd111621111789_)) + (let ((_e111623111794_ (let () (declare (not safe)) - (gx#stx-e _hd111639111807_)))) + (gx#stx-e _hd111621111789_)))) (if (let () (declare (not safe)) - (equal? _e111641111812_ '#f)) + (equal? _e111623111794_ '#f)) (if (let () (declare (not safe)) - (gx#stx-null? _tl111638111809_)) - (___kont113002113003_) - (___kont113006113007_)) + (gx#stx-null? _tl111620111791_)) + (___kont112984112985_) + (___kont112988112989_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl111638111809_)) - (___kont113004113005_ _hd111639111807_) - (___kont113006113007_)))) + (gx#stx-null? _tl111620111791_)) + (___kont112986112987_ _hd111621111789_) + (___kont112988112989_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl111638111809_)) - (___kont113004113005_ _hd111639111807_) - (___kont113006113007_))))) - (___kont113006113007_))))) + (gx#stx-null? _tl111620111791_)) + (___kont112986112987_ _hd111621111789_) + (___kont112988112989_))))) + (___kont112988112989_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd111583111613_ - _hd111580111605_) + _hd111565111595_ + _hd111562111587_) (let () (declare (not safe)) - (_g111572111589_ - _g111573111592_))))) + (_g111554111571_ + _g111555111574_))))) (let () (declare (not safe)) - (_g111572111589_ _g111573111592_))))) + (_g111554111571_ _g111555111574_))))) (let () (declare (not safe)) - (_g111572111589_ _g111573111592_))))) + (_g111554111571_ _g111555111574_))))) (let () (declare (not safe)) - (_g111572111589_ _g111573111592_)))))) + (_g111554111571_ _g111555111574_)))))) (declare (not safe)) - (_g111571111820_ _stx111570_)))) + (_g111553111802_ _stx111552_)))) (define gxc#generate-runtime-check-values - (lambda (_vals111545_ _hd111546_ _expr111547_) - (let ((_$e111549_ + (lambda (_vals111527_ _hd111528_ _expr111529_) + (let ((_$e111531_ (let () (declare (not safe)) - (gxc#apply-count-values _expr111547_)))) - (if _$e111549_ - ((lambda (_count111552_) - (let ((_len111554_ + (gxc#apply-count-values _expr111529_)))) + (if _$e111531_ + ((lambda (_count111534_) + (let ((_len111536_ (let () (declare (not safe)) - (gx#stx-length _hd111546_))) - (_cmp111555_ + (gx#stx-length _hd111528_))) + (_cmp111537_ (if (let () (declare (not safe)) - (gx#stx-list? _hd111546_)) + (gx#stx-list? _hd111528_)) fx= fx>=))) - (if (or (fx= _len111554_ '0) - (_cmp111555_ _count111552_ _len111554_)) + (if (or (fx= _len111536_ '0) + (_cmp111537_ _count111534_ _len111536_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _expr111547_ - _hd111546_))))) - _$e111549_) - (let* ((_len111560_ - (let () (declare (not safe)) (gx#stx-length _hd111546_))) - (_cmp111562_ + _expr111529_ + _hd111528_))))) + _$e111531_) + (let* ((_len111542_ + (let () (declare (not safe)) (gx#stx-length _hd111528_))) + (_cmp111544_ (if (let () (declare (not safe)) - (gx#stx-list? _hd111546_)) + (gx#stx-list? _hd111528_)) '##fx= '##fx>=)) - (_errmsg111564_ + (_errmsg111546_ (string-append (if (let () (declare (not safe)) - (gx#stx-list? _hd111546_)) + (gx#stx-list? _hd111528_)) '"Context expects " '"Context expects at least ") - (number->string _len111560_) + (number->string _len111542_) '" values")) - (_count111566_ + (_count111548_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) - (if (and (let ((__tmp114353 + (if (and (let ((__tmp114335 (let () (declare (not safe)) - (gx#stx-list? _hd111546_)))) + (gx#stx-list? _hd111528_)))) (declare (not safe)) - (not __tmp114353)) - (fx= _len111560_ '0)) + (not __tmp114335)) + (fx= _len111542_ '0)) '#!void - (let ((__tmp114330 - (let ((__tmp114349 - (let ((__tmp114350 - (let ((__tmp114351 - (let ((__tmp114352 + (let ((__tmp114312 + (let ((__tmp114331 + (let ((__tmp114332 + (let ((__tmp114333 + (let ((__tmp114334 (let () (declare (not safe)) (gxc#generate-runtime-values-count - _vals111545_)))) + _vals111527_)))) (declare (not safe)) - (cons __tmp114352 '())))) + (cons __tmp114334 '())))) (declare (not safe)) - (cons _count111566_ __tmp114351)))) + (cons _count111548_ __tmp114333)))) (declare (not safe)) - (cons __tmp114350 '()))) - (__tmp114331 - (let ((__tmp114332 - (let ((__tmp114333 - (let ((__tmp114338 - (let ((__tmp114339 - (let ((__tmp114340 + (cons __tmp114332 '()))) + (__tmp114313 + (let ((__tmp114314 + (let ((__tmp114315 + (let ((__tmp114320 + (let ((__tmp114321 + (let ((__tmp114322 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114347 - (let ((__tmp114348 + (let ((__tmp114329 + (let ((__tmp114330 (let () (declare (not safe)) - (cons _len111560_ '())))) + (cons _len111542_ '())))) (declare (not safe)) - (cons _count111566_ __tmp114348)))) + (cons _count111548_ __tmp114330)))) (declare (not safe)) - (cons _cmp111562_ __tmp114347)) - (let ((__tmp114341 - (let ((__tmp114342 - (let ((__tmp114343 - (let ((__tmp114344 - (let ((__tmp114345 + (cons _cmp111544_ __tmp114329)) + (let ((__tmp114323 + (let ((__tmp114324 + (let ((__tmp114325 + (let ((__tmp114326 + (let ((__tmp114327 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114346 + (let ((__tmp114328 (let () (declare (not safe)) - (cons _len111560_ '())))) + (cons _len111542_ '())))) (declare (not safe)) - (cons _count111566_ __tmp114346)))) + (cons _count111548_ __tmp114328)))) (declare (not safe)) - (cons _cmp111562_ __tmp114345)))) + (cons _cmp111544_ __tmp114327)))) (declare (not safe)) - (cons __tmp114344 '())))) + (cons __tmp114326 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp114343)))) + __tmp114325)))) (declare (not safe)) - (cons '() __tmp114342)))) + (cons '() __tmp114324)))) (declare (not safe)) - (cons 'let __tmp114341))))) + (cons 'let __tmp114323))))) (declare (not safe)) - (cons __tmp114340 '())))) + (cons __tmp114322 '())))) (declare (not safe)) - (cons 'not __tmp114339))) - (__tmp114334 - (let ((__tmp114335 - (let ((__tmp114336 - (let ((__tmp114337 + (cons 'not __tmp114321))) + (__tmp114316 + (let ((__tmp114317 + (let ((__tmp114318 + (let ((__tmp114319 (let () (declare (not safe)) - (cons _count111566_ '())))) + (cons _count111548_ '())))) (declare (not safe)) - (cons _errmsg111564_ __tmp114337)))) + (cons _errmsg111546_ __tmp114319)))) (declare (not safe)) - (cons 'error __tmp114336)))) + (cons 'error __tmp114318)))) (declare (not safe)) - (cons __tmp114335 '())))) + (cons __tmp114317 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114338 - __tmp114334)))) + (cons __tmp114320 + __tmp114316)))) (declare (not safe)) - (cons 'if __tmp114333)))) + (cons 'if __tmp114315)))) (declare (not safe)) - (cons __tmp114332 '())))) + (cons __tmp114314 '())))) (declare (not safe)) - (cons __tmp114349 __tmp114331)))) + (cons __tmp114331 __tmp114313)))) (declare (not safe)) - (cons 'let __tmp114330)))))))) + (cons 'let __tmp114312)))))))) (define gxc#generate-runtime-values-count - (lambda (_var111540_) - (letrec ((_generate-inline111542_ + (lambda (_var111522_) + (letrec ((_generate-inline111524_ (lambda () - (let ((__tmp114354 - (let ((__tmp114359 - (let ((__tmp114360 + (let ((__tmp114336 + (let ((__tmp114341 + (let ((__tmp114342 (let () (declare (not safe)) - (cons _var111540_ '())))) + (cons _var111522_ '())))) (declare (not safe)) - (cons '##values? __tmp114360))) - (__tmp114355 - (let ((__tmp114357 - (let ((__tmp114358 + (cons '##values? __tmp114342))) + (__tmp114337 + (let ((__tmp114339 + (let ((__tmp114340 (let () (declare (not safe)) - (cons _var111540_ '())))) + (cons _var111522_ '())))) (declare (not safe)) (cons '##vector-length - __tmp114358))) - (__tmp114356 + __tmp114340))) + (__tmp114338 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp114357 __tmp114356)))) + (cons __tmp114339 __tmp114338)))) (declare (not safe)) - (cons __tmp114359 __tmp114355)))) + (cons __tmp114341 __tmp114337)))) (declare (not safe)) - (cons 'if __tmp114354))))) + (cons 'if __tmp114336))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline111542_)) - (let ((__tmp114361 - (let ((__tmp114362 - (let ((__tmp114363 - (let ((__tmp114364 + (let () (declare (not safe)) (_generate-inline111524_)) + (let ((__tmp114343 + (let ((__tmp114344 + (let ((__tmp114345 + (let ((__tmp114346 (let () (declare (not safe)) - (_generate-inline111542_)))) + (_generate-inline111524_)))) (declare (not safe)) - (cons __tmp114364 '())))) + (cons __tmp114346 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114363)))) + (cons '(declare (not safe)) __tmp114345)))) (declare (not safe)) - (cons '() __tmp114362)))) + (cons '() __tmp114344)))) (declare (not safe)) - (cons 'let __tmp114361)))))) + (cons 'let __tmp114343)))))) (define gxc#generate-runtime-values-ref - (lambda (_var111533_ _i111534_ _rest111535_) - (letrec ((_generate-inline111537_ + (lambda (_var111515_ _i111516_ _rest111517_) + (letrec ((_generate-inline111519_ (lambda () - (if (and (fx= _i111534_ '0) - (let ((__tmp114375 + (if (and (fx= _i111516_ '0) + (let ((__tmp114357 (let () (declare (not safe)) - (gx#stx-pair? _rest111535_)))) + (gx#stx-pair? _rest111517_)))) (declare (not safe)) - (not __tmp114375))) - (let ((__tmp114367 - (let ((__tmp114373 - (let ((__tmp114374 + (not __tmp114357))) + (let ((__tmp114349 + (let ((__tmp114355 + (let ((__tmp114356 (let () (declare (not safe)) - (cons _var111533_ '())))) + (cons _var111515_ '())))) (declare (not safe)) - (cons '##values? __tmp114374))) - (__tmp114368 - (let ((__tmp114370 - (let ((__tmp114371 - (let ((__tmp114372 + (cons '##values? __tmp114356))) + (__tmp114350 + (let ((__tmp114352 + (let ((__tmp114353 + (let ((__tmp114354 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons _var111533_ - __tmp114372)))) + (cons _var111515_ + __tmp114354)))) (declare (not safe)) (cons '##vector-ref - __tmp114371))) - (__tmp114369 + __tmp114353))) + (__tmp114351 (let () (declare (not safe)) - (cons _var111533_ '())))) + (cons _var111515_ '())))) (declare (not safe)) - (cons __tmp114370 __tmp114369)))) + (cons __tmp114352 __tmp114351)))) (declare (not safe)) - (cons __tmp114373 __tmp114368)))) + (cons __tmp114355 __tmp114350)))) (declare (not safe)) - (cons 'if __tmp114367)) - (let ((__tmp114365 - (let ((__tmp114366 + (cons 'if __tmp114349)) + (let ((__tmp114347 + (let ((__tmp114348 (let () (declare (not safe)) - (cons _i111534_ '())))) + (cons _i111516_ '())))) (declare (not safe)) - (cons _var111533_ __tmp114366)))) + (cons _var111515_ __tmp114348)))) (declare (not safe)) - (cons '##vector-ref __tmp114365)))))) + (cons '##vector-ref __tmp114347)))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline111537_)) - (let ((__tmp114376 - (let ((__tmp114377 - (let ((__tmp114378 - (let ((__tmp114379 + (let () (declare (not safe)) (_generate-inline111519_)) + (let ((__tmp114358 + (let ((__tmp114359 + (let ((__tmp114360 + (let ((__tmp114361 (let () (declare (not safe)) - (_generate-inline111537_)))) + (_generate-inline111519_)))) (declare (not safe)) - (cons __tmp114379 '())))) + (cons __tmp114361 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114378)))) + (cons '(declare (not safe)) __tmp114360)))) (declare (not safe)) - (cons '() __tmp114377)))) + (cons '() __tmp114359)))) (declare (not safe)) - (cons 'let __tmp114376)))))) + (cons 'let __tmp114358)))))) (define gxc#generate-runtime-values->list - (lambda (_var111530_ _i111531_) - (if (fx= _i111531_ '0) + (lambda (_var111512_ _i111513_) + (if (fx= _i111513_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114427 - (let ((__tmp114434 - (let ((__tmp114435 + (let ((__tmp114409 + (let ((__tmp114416 + (let ((__tmp114417 (let () (declare (not safe)) - (cons _var111530_ '())))) + (cons _var111512_ '())))) (declare (not safe)) - (cons '##values? __tmp114435))) - (__tmp114428 - (let ((__tmp114432 - (let ((__tmp114433 + (cons '##values? __tmp114417))) + (__tmp114410 + (let ((__tmp114414 + (let ((__tmp114415 (let () (declare (not safe)) - (cons _var111530_ '())))) + (cons _var111512_ '())))) (declare (not safe)) - (cons '##vector->list __tmp114433))) - (__tmp114429 - (let ((__tmp114430 - (let ((__tmp114431 + (cons '##vector->list __tmp114415))) + (__tmp114411 + (let ((__tmp114412 + (let ((__tmp114413 (let () (declare (not safe)) - (cons _var111530_ '())))) + (cons _var111512_ '())))) (declare (not safe)) - (cons 'list __tmp114431)))) + (cons 'list __tmp114413)))) (declare (not safe)) - (cons __tmp114430 '())))) + (cons __tmp114412 '())))) (declare (not safe)) - (cons __tmp114432 __tmp114429)))) + (cons __tmp114414 __tmp114411)))) (declare (not safe)) - (cons __tmp114434 __tmp114428)))) + (cons __tmp114416 __tmp114410)))) (declare (not safe)) - (cons 'if __tmp114427)) - (let ((__tmp114414 - (let ((__tmp114415 - (let ((__tmp114416 - (let ((__tmp114417 - (let ((__tmp114418 - (let ((__tmp114425 - (let ((__tmp114426 + (cons 'if __tmp114409)) + (let ((__tmp114396 + (let ((__tmp114397 + (let ((__tmp114398 + (let ((__tmp114399 + (let ((__tmp114400 + (let ((__tmp114407 + (let ((__tmp114408 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _var111530_ '())))) + (let () (declare (not safe)) (cons _var111512_ '())))) (declare (not safe)) - (cons '##values? __tmp114426))) - (__tmp114419 - (let ((__tmp114423 - (let ((__tmp114424 + (cons '##values? __tmp114408))) + (__tmp114401 + (let ((__tmp114405 + (let ((__tmp114406 (let () (declare (not safe)) - (cons _var111530_ '())))) + (cons _var111512_ '())))) (declare (not safe)) - (cons '##vector->list __tmp114424))) - (__tmp114420 - (let ((__tmp114421 - (let ((__tmp114422 + (cons '##vector->list __tmp114406))) + (__tmp114402 + (let ((__tmp114403 + (let ((__tmp114404 (let () (declare (not safe)) - (cons _var111530_ '())))) + (cons _var111512_ '())))) (declare (not safe)) - (cons 'list __tmp114422)))) + (cons 'list __tmp114404)))) (declare (not safe)) - (cons __tmp114421 '())))) + (cons __tmp114403 '())))) (declare (not safe)) - (cons __tmp114423 __tmp114420)))) + (cons __tmp114405 __tmp114402)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114425 - __tmp114419)))) + (cons __tmp114407 + __tmp114401)))) (declare (not safe)) - (cons 'if __tmp114418)))) + (cons 'if __tmp114400)))) (declare (not safe)) - (cons __tmp114417 '())))) + (cons __tmp114399 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114416)))) + (cons '(declare (not safe)) __tmp114398)))) (declare (not safe)) - (cons '() __tmp114415)))) + (cons '() __tmp114397)))) (declare (not safe)) - (cons 'let __tmp114414))) - (if (fx= _i111531_ '1) + (cons 'let __tmp114396))) + (if (fx= _i111513_ '1) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114405 - (let ((__tmp114412 - (let ((__tmp114413 + (let ((__tmp114387 + (let ((__tmp114394 + (let ((__tmp114395 (let () (declare (not safe)) - (cons _var111530_ '())))) + (cons _var111512_ '())))) (declare (not safe)) - (cons '##values? __tmp114413))) - (__tmp114406 - (let ((__tmp114408 - (let ((__tmp114409 - (let ((__tmp114410 - (let ((__tmp114411 + (cons '##values? __tmp114395))) + (__tmp114388 + (let ((__tmp114390 + (let ((__tmp114391 + (let ((__tmp114392 + (let ((__tmp114393 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _var111530_ '())))) + (cons _var111512_ '())))) (declare (not safe)) - (cons '##vector->list __tmp114411)))) + (cons '##vector->list __tmp114393)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114410 '())))) + (cons __tmp114392 '())))) (declare (not safe)) - (cons '##cdr __tmp114409))) - (__tmp114407 + (cons '##cdr __tmp114391))) + (__tmp114389 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp114408 __tmp114407)))) + (cons __tmp114390 __tmp114389)))) (declare (not safe)) - (cons __tmp114412 __tmp114406)))) + (cons __tmp114394 __tmp114388)))) (declare (not safe)) - (cons 'if __tmp114405)) - (let ((__tmp114392 - (let ((__tmp114393 - (let ((__tmp114394 - (let ((__tmp114395 - (let ((__tmp114396 - (let ((__tmp114403 - (let ((__tmp114404 + (cons 'if __tmp114387)) + (let ((__tmp114374 + (let ((__tmp114375 + (let ((__tmp114376 + (let ((__tmp114377 + (let ((__tmp114378 + (let ((__tmp114385 + (let ((__tmp114386 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var111530_ '())))) + (cons _var111512_ '())))) (declare (not safe)) - (cons '##values? __tmp114404))) - (__tmp114397 - (let ((__tmp114399 - (let ((__tmp114400 - (let ((__tmp114401 - (let ((__tmp114402 + (cons '##values? __tmp114386))) + (__tmp114379 + (let ((__tmp114381 + (let ((__tmp114382 + (let ((__tmp114383 + (let ((__tmp114384 (let () (declare (not safe)) - (cons _var111530_ '())))) + (cons _var111512_ '())))) (declare (not safe)) (cons '##vector->list - __tmp114402)))) + __tmp114384)))) (declare (not safe)) - (cons __tmp114401 '())))) + (cons __tmp114383 '())))) (declare (not safe)) - (cons '##cdr __tmp114400))) - (__tmp114398 + (cons '##cdr __tmp114382))) + (__tmp114380 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp114399 __tmp114398)))) + (cons __tmp114381 __tmp114380)))) (declare (not safe)) - (cons __tmp114403 __tmp114397)))) + (cons __tmp114385 __tmp114379)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp114396)))) + (cons 'if __tmp114378)))) (declare (not safe)) - (cons __tmp114395 '())))) + (cons __tmp114377 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114394)))) + (cons '(declare (not safe)) __tmp114376)))) (declare (not safe)) - (cons '() __tmp114393)))) + (cons '() __tmp114375)))) (declare (not safe)) - (cons 'let __tmp114392))) + (cons 'let __tmp114374))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114388 - (let ((__tmp114390 - (let ((__tmp114391 + (let ((__tmp114370 + (let ((__tmp114372 + (let ((__tmp114373 (let () (declare (not safe)) - (cons _var111530_ '())))) + (cons _var111512_ '())))) (declare (not safe)) - (cons '##vector->list __tmp114391))) - (__tmp114389 + (cons '##vector->list __tmp114373))) + (__tmp114371 (let () (declare (not safe)) - (cons _i111531_ '())))) + (cons _i111513_ '())))) (declare (not safe)) - (cons __tmp114390 __tmp114389)))) + (cons __tmp114372 __tmp114371)))) (declare (not safe)) - (cons '##list-tail __tmp114388)) - (let ((__tmp114380 - (let ((__tmp114381 - (let ((__tmp114382 - (let ((__tmp114383 - (let ((__tmp114384 - (let ((__tmp114386 - (let ((__tmp114387 + (cons '##list-tail __tmp114370)) + (let ((__tmp114362 + (let ((__tmp114363 + (let ((__tmp114364 + (let ((__tmp114365 + (let ((__tmp114366 + (let ((__tmp114368 + (let ((__tmp114369 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var111530_ '())))) + (cons _var111512_ '())))) (declare (not safe)) - (cons '##vector->list __tmp114387))) - (__tmp114385 - (let () (declare (not safe)) (cons _i111531_ '())))) + (cons '##vector->list __tmp114369))) + (__tmp114367 + (let () (declare (not safe)) (cons _i111513_ '())))) (declare (not safe)) - (cons __tmp114386 __tmp114385)))) + (cons __tmp114368 __tmp114367)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##list-tail - __tmp114384)))) + __tmp114366)))) (declare (not safe)) - (cons __tmp114383 '())))) + (cons __tmp114365 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114382)))) + (cons '(declare (not safe)) __tmp114364)))) (declare (not safe)) - (cons '() __tmp114381)))) + (cons '() __tmp114363)))) (declare (not safe)) - (cons 'let __tmp114380))))))) + (cons 'let __tmp114362))))))) (define gxc#generate-runtime-lambda% - (lambda (_self111462_ _stx111463_) - (let* ((_g111465111482_ - (lambda (_g111466111479_) + (lambda (_self111444_ _stx111445_) + (let* ((_g111447111464_ + (lambda (_g111448111461_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g111466111479_)))) - (_g111464111527_ - (lambda (_g111466111485_) + _g111448111461_)))) + (_g111446111509_ + (lambda (_g111448111467_) (if (let () (declare (not safe)) - (gx#stx-pair? _g111466111485_)) - (let ((_e111471111487_ + (gx#stx-pair? _g111448111467_)) + (let ((_e111453111469_ (let () (declare (not safe)) - (gx#stx-e _g111466111485_)))) - (let ((_hd111470111490_ + (gx#stx-e _g111448111467_)))) + (let ((_hd111452111472_ (let () (declare (not safe)) - (##car _e111471111487_))) - (_tl111469111492_ + (##car _e111453111469_))) + (_tl111451111474_ (let () (declare (not safe)) - (##cdr _e111471111487_)))) + (##cdr _e111453111469_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl111469111492_)) - (let ((_e111474111495_ + (gx#stx-pair? _tl111451111474_)) + (let ((_e111456111477_ (let () (declare (not safe)) - (gx#stx-e _tl111469111492_)))) - (let ((_hd111473111498_ + (gx#stx-e _tl111451111474_)))) + (let ((_hd111455111480_ (let () (declare (not safe)) - (##car _e111474111495_))) - (_tl111472111500_ + (##car _e111456111477_))) + (_tl111454111482_ (let () (declare (not safe)) - (##cdr _e111474111495_)))) + (##cdr _e111456111477_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl111472111500_)) - (let ((_e111477111503_ + (gx#stx-pair? _tl111454111482_)) + (let ((_e111459111485_ (let () (declare (not safe)) - (gx#stx-e _tl111472111500_)))) - (let ((_hd111476111506_ + (gx#stx-e _tl111454111482_)))) + (let ((_hd111458111488_ (let () (declare (not safe)) - (##car _e111477111503_))) - (_tl111475111508_ + (##car _e111459111485_))) + (_tl111457111490_ (let () (declare (not safe)) - (##cdr _e111477111503_)))) + (##cdr _e111459111485_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl111475111508_)) - ((lambda (_L111511_ _L111512_) + _tl111457111490_)) + ((lambda (_L111493_ _L111494_) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _self111462_ - _L111512_ - _L111511_))) - _hd111476111506_ - _hd111473111498_) + _self111444_ + _L111494_ + _L111493_))) + _hd111458111488_ + _hd111455111480_) (let () (declare (not safe)) - (_g111465111482_ - _g111466111485_))))) + (_g111447111464_ + _g111448111467_))))) (let () (declare (not safe)) - (_g111465111482_ _g111466111485_))))) + (_g111447111464_ _g111448111467_))))) (let () (declare (not safe)) - (_g111465111482_ _g111466111485_))))) + (_g111447111464_ _g111448111467_))))) (let () (declare (not safe)) - (_g111465111482_ _g111466111485_)))))) + (_g111447111464_ _g111448111467_)))))) (declare (not safe)) - (_g111464111527_ _stx111463_)))) + (_g111446111509_ _stx111445_)))) (define gxc#generate-runtime-lambda-form - (lambda (_self111421_ _hd111422_ _body111423_) - (let* ((_hd111425_ + (lambda (_self111403_ _hd111404_ _body111405_) + (let* ((_hd111407_ (let () (declare (not safe)) - (gxc#generate-runtime-lambda-head _hd111422_))) - (_body111427_ + (gxc#generate-runtime-lambda-head _hd111404_))) + (_body111409_ (let () (declare (not safe)) - (gxc#compile-e__1 _self111421_ _body111423_))) - (_body111459_ - (let* ((_body111428111436_ _body111427_) - (_else111430111444_ + (gxc#compile-e__1 _self111403_ _body111405_))) + (_body111441_ + (let* ((_body111410111418_ _body111409_) + (_else111412111426_ (lambda () (let () (declare (not safe)) - (cons _body111427_ '())))) - (_K111432111449_ - (lambda (_exprs111447_) _exprs111447_))) + (cons _body111409_ '())))) + (_K111414111431_ + (lambda (_exprs111429_) _exprs111429_))) (if (let () (declare (not safe)) - (##pair? _body111428111436_)) - (let ((_hd111433111452_ + (##pair? _body111410111418_)) + (let ((_hd111415111434_ (let () (declare (not safe)) - (##car _body111428111436_))) - (_tl111434111454_ + (##car _body111410111418_))) + (_tl111416111436_ (let () (declare (not safe)) - (##cdr _body111428111436_)))) + (##cdr _body111410111418_)))) (if (let () (declare (not safe)) - (##eq? _hd111433111452_ 'begin)) - (let ((_exprs111457_ _tl111434111454_)) + (##eq? _hd111415111434_ 'begin)) + (let ((_exprs111439_ _tl111416111436_)) (declare (not safe)) - (_K111432111449_ _exprs111457_)) + (_K111414111431_ _exprs111439_)) (let () (declare (not safe)) - (_else111430111444_)))) - (let () (declare (not safe)) (_else111430111444_)))))) - (let ((__tmp114436 - (let () (declare (not safe)) (cons _hd111425_ _body111459_)))) + (_else111412111426_)))) + (let () (declare (not safe)) (_else111412111426_)))))) + (let ((__tmp114418 + (let () (declare (not safe)) (cons _hd111407_ _body111441_)))) (declare (not safe)) - (cons 'lambda __tmp114436))))) + (cons 'lambda __tmp114418))))) (define gxc#generate-runtime-lambda-head - (lambda (_hd111419_) + (lambda (_hd111401_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _hd111419_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _hd111401_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_self109961_ _stx109962_) - (letrec ((_dispatch-case?109964_ - (lambda (_hd110649_ _body110650_) - (let* ((_form110652_ - (let ((__tmp114437 + (lambda (_self109943_ _stx109944_) + (letrec ((_dispatch-case?109946_ + (lambda (_hd110631_ _body110632_) + (let* ((_form110634_ + (let ((__tmp114419 (let () (declare (not safe)) - (cons _body110650_ '())))) + (cons _body110632_ '())))) (declare (not safe)) - (cons _hd110649_ __tmp114437))) - (___stx113032113033_ _form110652_) - (_g110657110814_ + (cons _hd110631_ __tmp114419))) + (___stx113014113015_ _form110634_) + (_g110639110796_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113032113033_))))) - (let ((___kont113034113035_ - (lambda (_L111339_ _L111340_ _L111341_) '#t)) - (___kont113040113041_ - (lambda (_L111127_ - _L111128_ - _L111129_ - _L111130_ - _L111131_ - _L111132_) + ___stx113014113015_))))) + (let ((___kont113016113017_ + (lambda (_L111321_ _L111322_ _L111323_) '#t)) + (___kont113022113023_ + (lambda (_L111109_ + _L111110_ + _L111111_ + _L111112_ + _L111113_ + _L111114_) '#t)) - (___kont113046113047_ - (lambda (_L110922_ _L110923_ _L110924_ _L110925_) + (___kont113028113029_ + (lambda (_L110904_ _L110905_ _L110906_ _L110907_) '#t)) - (___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_)) + (___kont113030113031_ (lambda () '#f))) + (let* ((___match113155113156_ + (lambda (_e110758110808_ + _hd110757110811_ + _tl110756110813_ + _e110761110816_ + _hd110760110819_ + _tl110759110821_ + _e110764110824_ + _hd110763110827_ + _tl110762110829_ + _e110767110832_ + _hd110766110835_ + _tl110765110837_ + _e110770110840_ + _hd110769110843_ + _tl110768110845_ + _e110773110848_ + _hd110772110851_ + _tl110771110853_ + _e110776110856_ + _hd110775110859_ + _tl110774110861_ + _e110779110864_ + _hd110778110867_ + _tl110777110869_ + _e110782110872_ + _hd110781110875_ + _tl110780110877_ + _e110785110880_ + _hd110784110883_ + _tl110783110885_ + _e110788110888_ + _hd110787110891_ + _tl110786110893_ + _e110791110896_ + _hd110790110899_ + _tl110789110901_) + (let ((_L110904_ _hd110790110899_) + (_L110905_ _hd110781110875_) + (_L110906_ _hd110772110851_) + (_L110907_ _hd110757110811_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L110925_)) + (gx#identifier? _L110907_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L110924_ + _L110906_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L110925_ - _L110922_)) - (let ((__tmp114438 + _L110907_ + _L110904_)) + (let ((__tmp114420 (let () (declare (not safe)) (gx#free-identifier=? - _L110923_ - _L110925_)))) + _L110905_ + _L110907_)))) (declare (not safe)) - (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_) + (not __tmp114420))) + (___kont113028113029_ + _L110904_ + _L110905_ + _L110906_ + _L110907_) + (___kont113030113031_))))) + (___match113127113128_ + (lambda (_e110758110808_ + _hd110757110811_ + _tl110756110813_ + _e110761110816_ + _hd110760110819_ + _tl110759110821_ + _e110764110824_ + _hd110763110827_ + _tl110762110829_ + _e110767110832_ + _hd110766110835_ + _tl110765110837_ + _e110770110840_ + _hd110769110843_ + _tl110768110845_ + _e110773110848_ + _hd110772110851_ + _tl110771110853_ + _e110776110856_ + _hd110775110859_ + _tl110774110861_ + _e110779110864_ + _hd110778110867_ + _tl110777110869_ + _e110782110872_ + _hd110781110875_ + _tl110780110877_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110792110879_)) - (let ((_e110803110898_ + (gx#stx-pair? _tl110774110861_)) + (let ((_e110785110880_ (let () (declare (not safe)) - (gx#stx-e _tl110792110879_)))) - (let ((_tl110801110903_ + (gx#stx-e _tl110774110861_)))) + (let ((_tl110783110885_ (let () (declare (not safe)) - (##cdr _e110803110898_))) - (_hd110802110901_ + (##cdr _e110785110880_))) + (_hd110784110883_ (let () (declare (not safe)) - (##car _e110803110898_)))) + (##car _e110785110880_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110802110901_)) - (let ((_e110806110906_ + _hd110784110883_)) + (let ((_e110788110888_ (let () (declare (not safe)) (gx#stx-e - _hd110802110901_)))) - (let ((_tl110804110911_ + _hd110784110883_)))) + (let ((_tl110786110893_ (let () (declare (not safe)) - (##cdr _e110806110906_))) - (_hd110805110909_ + (##cdr _e110788110888_))) + (_hd110787110891_ (let () (declare (not safe)) - (##car _e110806110906_)))) + (##car _e110788110888_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110805110909_)) + _hd110787110891_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110805110909_)) + _hd110787110891_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl110804110911_)) - (let ((_e110809110914_ + (gx#stx-pair? _tl110786110893_)) + (let ((_e110791110896_ (let () (declare (not safe)) - (gx#stx-e _tl110804110911_)))) - (let ((_tl110807110919_ + (gx#stx-e _tl110786110893_)))) + (let ((_tl110789110901_ (let () (declare (not safe)) - (##cdr _e110809110914_))) - (_hd110808110917_ + (##cdr _e110791110896_))) + (_hd110790110899_ (let () (declare (not safe)) - (##car _e110809110914_)))) + (##car _e110791110896_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110807110919_)) + (gx#stx-null? _tl110789110901_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl110801110903_)) + (gx#stx-null? _tl110783110885_)) (if (let () (declare (not safe)) - (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_)))) + (gx#stx-null? _tl110759110821_)) + (___match113155113156_ + _e110758110808_ + _hd110757110811_ + _tl110756110813_ + _e110761110816_ + _hd110760110819_ + _tl110759110821_ + _e110764110824_ + _hd110763110827_ + _tl110762110829_ + _e110767110832_ + _hd110766110835_ + _tl110765110837_ + _e110770110840_ + _hd110769110843_ + _tl110768110845_ + _e110773110848_ + _hd110772110851_ + _tl110771110853_ + _e110776110856_ + _hd110775110859_ + _tl110774110861_ + _e110779110864_ + _hd110778110867_ + _tl110777110869_ + _e110782110872_ + _hd110781110875_ + _tl110780110877_ + _e110785110880_ + _hd110784110883_ + _tl110783110885_ + _e110788110888_ + _hd110787110891_ + _tl110786110893_ + _e110791110896_ + _hd110790110899_ + _tl110789110901_) + (___kont113030113031_)) + (___kont113030113031_)) + (___kont113030113031_)))) + (___kont113030113031_)) + (___kont113030113031_)) + (___kont113030113031_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113048113049_)))) - (___kont113048113049_)))) - (___match113075113076_ - (lambda (_e110712110967_ - _hd110711110970_ - _tl110710110972_ - ___splice113042113043_ - _target110713110975_ - _tl110715110977_) - (letrec ((_loop110716110980_ - (lambda (_hd110714110983_ - _arg110720110985_) + (___kont113030113031_)))) + (___kont113030113031_)))) + (___match113057113058_ + (lambda (_e110694110949_ + _hd110693110952_ + _tl110692110954_ + ___splice113024113025_ + _target110695110957_ + _tl110697110959_) + (letrec ((_loop110698110962_ + (lambda (_hd110696110965_ + _arg110702110967_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110714110983_)) - (let ((_e110717110988_ + _hd110696110965_)) + (let ((_e110699110970_ (let () (declare (not safe)) (gx#stx-e - _hd110714110983_)))) - (let ((_lp-tl110719110993_ + _hd110696110965_)))) + (let ((_lp-tl110701110975_ (let () (declare (not safe)) - (##cdr _e110717110988_))) - (_lp-hd110718110991_ + (##cdr _e110699110970_))) + (_lp-hd110700110973_ (let () (declare (not safe)) - (##car _e110717110988_)))) - (let ((__tmp114453 + (##car _e110699110970_)))) + (let ((__tmp114435 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd110718110991_ _arg110720110985_)))) + (cons _lp-hd110700110973_ _arg110702110967_)))) (declare (not safe)) - (_loop110716110980_ _lp-tl110719110993_ __tmp114453)))) + (_loop110698110962_ _lp-tl110701110975_ __tmp114435)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg110721110996_ - (reverse _arg110720110985_))) + (let ((_arg110703110978_ + (reverse _arg110702110967_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110710110972_)) - (let ((_e110724110999_ + _tl110692110954_)) + (let ((_e110706110981_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl110710110972_)))) - (let ((_tl110722111004_ - (let () (declare (not safe)) (##cdr _e110724110999_))) - (_hd110723111002_ + (gx#stx-e _tl110692110954_)))) + (let ((_tl110704110986_ + (let () (declare (not safe)) (##cdr _e110706110981_))) + (_hd110705110984_ (let () (declare (not safe)) - (##car _e110724110999_)))) + (##car _e110706110981_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110723111002_)) - (let ((_e110727111007_ + (gx#stx-pair? _hd110705110984_)) + (let ((_e110709110989_ (let () (declare (not safe)) - (gx#stx-e _hd110723111002_)))) - (let ((_tl110725111012_ + (gx#stx-e _hd110705110984_)))) + (let ((_tl110707110994_ (let () (declare (not safe)) - (##cdr _e110727111007_))) - (_hd110726111010_ + (##cdr _e110709110989_))) + (_hd110708110992_ (let () (declare (not safe)) - (##car _e110727111007_)))) + (##car _e110709110989_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110726111010_)) + (gx#identifier? _hd110708110992_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd110726111010_)) + (gx#stx-eq? '%#call _hd110708110992_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110725111012_)) - (let ((_e110730111015_ + (gx#stx-pair? _tl110707110994_)) + (let ((_e110712110997_ (let () (declare (not safe)) - (gx#stx-e _tl110725111012_)))) - (let ((_tl110728111020_ + (gx#stx-e _tl110707110994_)))) + (let ((_tl110710111002_ (let () (declare (not safe)) - (##cdr _e110730111015_))) - (_hd110729111018_ + (##cdr _e110712110997_))) + (_hd110711111000_ (let () (declare (not safe)) - (##car _e110730111015_)))) + (##car _e110712110997_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110729111018_)) - (let ((_e110733111023_ + _hd110711111000_)) + (let ((_e110715111005_ (let () (declare (not safe)) (gx#stx-e - _hd110729111018_)))) - (let ((_tl110731111028_ + _hd110711111000_)))) + (let ((_tl110713111010_ (let () (declare (not safe)) - (##cdr _e110733111023_))) - (_hd110732111026_ + (##cdr _e110715111005_))) + (_hd110714111008_ (let () (declare (not safe)) - (##car _e110733111023_)))) + (##car _e110715111005_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110732111026_)) + _hd110714111008_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110732111026_)) + _hd110714111008_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl110731111028_)) - (let ((_e110736111031_ + (gx#stx-pair? _tl110713111010_)) + (let ((_e110718111013_ (let () (declare (not safe)) - (gx#stx-e _tl110731111028_)))) - (let ((_tl110734111036_ + (gx#stx-e _tl110713111010_)))) + (let ((_tl110716111018_ (let () (declare (not safe)) - (##cdr _e110736111031_))) - (_hd110735111034_ + (##cdr _e110718111013_))) + (_hd110717111016_ (let () (declare (not safe)) - (##car _e110736111031_)))) + (##car _e110718111013_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110734111036_)) + (gx#stx-null? _tl110716111018_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110728111020_)) - (let ((_e110739111039_ + (gx#stx-pair? _tl110710111002_)) + (let ((_e110721111021_ (let () (declare (not safe)) - (gx#stx-e _tl110728111020_)))) - (let ((_tl110737111044_ + (gx#stx-e _tl110710111002_)))) + (let ((_tl110719111026_ (let () (declare (not safe)) - (##cdr _e110739111039_))) - (_hd110738111042_ + (##cdr _e110721111021_))) + (_hd110720111024_ (let () (declare (not safe)) - (##car _e110739111039_)))) + (##car _e110721111021_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110738111042_)) - (let ((_e110742111047_ + (gx#stx-pair? _hd110720111024_)) + (let ((_e110724111029_ (let () (declare (not safe)) (gx#stx-e - _hd110738111042_)))) - (let ((_tl110740111052_ + _hd110720111024_)))) + (let ((_tl110722111034_ (let () (declare (not safe)) - (##cdr _e110742111047_))) - (_hd110741111050_ + (##cdr _e110724111029_))) + (_hd110723111032_ (let () (declare (not safe)) - (##car _e110742111047_)))) + (##car _e110724111029_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110741111050_)) + _hd110723111032_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110741111050_)) + _hd110723111032_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110740111052_)) - (let ((_e110745111055_ + _tl110722111034_)) + (let ((_e110727111037_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl110740111052_)))) - (let ((_tl110743111060_ + (gx#stx-e _tl110722111034_)))) + (let ((_tl110725111042_ (let () (declare (not safe)) - (##cdr _e110745111055_))) - (_hd110744111058_ + (##cdr _e110727111037_))) + (_hd110726111040_ (let () (declare (not safe)) - (##car _e110745111055_)))) + (##car _e110727111037_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110743111060_)) + (gx#stx-null? _tl110725111042_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl110737111044_)) + (gx#stx-pair/null? _tl110719111026_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl110737111044_)) + (gx#stx-length _tl110719111026_)) '1) - (let ((___splice113044113045_ + (let ((___splice113026113027_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl110737111044_ + _tl110719111026_ '1)))) - (let ((_tl110748111065_ + (let ((_tl110730111047_ (let () (declare (not safe)) (##vector-ref - ___splice113044113045_ + ___splice113026113027_ '1))) - (_target110746111063_ + (_target110728111045_ (let () (declare (not safe)) (##vector-ref - ___splice113044113045_ + ___splice113026113027_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110748111065_)) - (let ((_e110757111068_ + (gx#stx-pair? _tl110730111047_)) + (let ((_e110739111050_ (let () (declare (not safe)) (gx#stx-e - _tl110748111065_)))) - (let ((_tl110755111073_ + _tl110730111047_)))) + (let ((_tl110737111055_ (let () (declare (not safe)) - (##cdr _e110757111068_))) - (_hd110756111071_ + (##cdr _e110739111050_))) + (_hd110738111053_ (let () (declare (not safe)) - (##car _e110757111068_)))) + (##car _e110739111050_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110756111071_)) - (let ((_e110760111076_ + _hd110738111053_)) + (let ((_e110742111058_ (let () (declare (not safe)) (gx#stx-e - _hd110756111071_)))) - (let ((_tl110758111081_ + _hd110738111053_)))) + (let ((_tl110740111063_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e110760111076_))) - (_hd110759111079_ - (let () (declare (not safe)) (##car _e110760111076_)))) + (##cdr _e110742111058_))) + (_hd110741111061_ + (let () (declare (not safe)) (##car _e110742111058_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110759111079_)) + (gx#identifier? _hd110741111061_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd110759111079_)) + (gx#stx-eq? '%#ref _hd110741111061_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110758111081_)) - (let ((_e110763111084_ + (gx#stx-pair? _tl110740111063_)) + (let ((_e110745111066_ (let () (declare (not safe)) - (gx#stx-e _tl110758111081_)))) - (let ((_tl110761111089_ + (gx#stx-e _tl110740111063_)))) + (let ((_tl110743111071_ (let () (declare (not safe)) - (##cdr _e110763111084_))) - (_hd110762111087_ + (##cdr _e110745111066_))) + (_hd110744111069_ (let () (declare (not safe)) - (##car _e110763111084_)))) + (##car _e110745111066_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110761111089_)) + (gx#stx-null? _tl110743111071_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl110755111073_)) - (letrec ((_loop110749111092_ - (lambda (_hd110747111095_ - _xarg110753111097_) + (gx#stx-null? _tl110737111055_)) + (letrec ((_loop110731111074_ + (lambda (_hd110729111077_ + _xarg110735111079_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110747111095_)) - (let ((_e110750111100_ + _hd110729111077_)) + (let ((_e110732111082_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd110747111095_)))) - (let ((_lp-tl110752111105_ - (let () (declare (not safe)) (##cdr _e110750111100_))) - (_lp-hd110751111103_ + (gx#stx-e _hd110729111077_)))) + (let ((_lp-tl110734111087_ + (let () (declare (not safe)) (##cdr _e110732111082_))) + (_lp-hd110733111085_ (let () (declare (not safe)) - (##car _e110750111100_)))) + (##car _e110732111082_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd110751111103_)) - (let ((_e110766111108_ + (gx#stx-pair? _lp-hd110733111085_)) + (let ((_e110748111090_ (let () (declare (not safe)) - (gx#stx-e _lp-hd110751111103_)))) - (let ((_tl110764111113_ + (gx#stx-e _lp-hd110733111085_)))) + (let ((_tl110746111095_ (let () (declare (not safe)) - (##cdr _e110766111108_))) - (_hd110765111111_ + (##cdr _e110748111090_))) + (_hd110747111093_ (let () (declare (not safe)) - (##car _e110766111108_)))) + (##car _e110748111090_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110765111111_)) + (gx#identifier? _hd110747111093_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd110765111111_)) + (gx#stx-eq? '%#ref _hd110747111093_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110764111113_)) - (let ((_e110769111116_ + (gx#stx-pair? _tl110746111095_)) + (let ((_e110751111098_ (let () (declare (not safe)) - (gx#stx-e _tl110764111113_)))) - (let ((_tl110767111121_ + (gx#stx-e _tl110746111095_)))) + (let ((_tl110749111103_ (let () (declare (not safe)) - (##cdr _e110769111116_))) - (_hd110768111119_ + (##cdr _e110751111098_))) + (_hd110750111101_ (let () (declare (not safe)) - (##car _e110769111116_)))) + (##car _e110751111098_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110767111121_)) - (let ((__tmp114452 + _tl110749111103_)) + (let ((__tmp114434 (let () (declare (not safe)) - (cons _hd110768111119_ - _xarg110753111097_)))) + (cons _hd110750111101_ + _xarg110735111079_)))) (declare (not safe)) - (_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_))) + (_loop110731111074_ + _lp-tl110734111087_ + __tmp114434)) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_)))) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_)) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_)) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_)))) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_)))) + (let ((_xarg110736111106_ (reverse _xarg110735111079_))) (if (let () (declare (not safe)) - (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_) + (gx#stx-null? _tl110704110986_)) + (let ((_L111109_ _hd110744111069_) + (_L111110_ _xarg110736111106_) + (_L111111_ _hd110726111040_) + (_L111112_ _hd110717111016_) + (_L111113_ _tl110697110959_) + (_L111114_ _arg110703110978_)) + (if (and (let ((__tmp114432 + (let ((__tmp114433 + (lambda (_g111157111160_ + _g111158111162_) (let () (declare (not safe)) - (cons _g111175111178_ - _g111176111180_))))) + (cons _g111157111160_ + _g111158111162_))))) (declare (not safe)) - (foldr1 __tmp114451 '() _L111132_)))) + (foldr1 __tmp114433 '() _L111114_)))) (declare (not safe)) - (gx#identifier-list? __tmp114450)) + (gx#identifier-list? __tmp114432)) (let () (declare (not safe)) - (gx#identifier? _L111131_)) + (gx#identifier? _L111113_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L111130_ 'apply)) - (fx= (length (let ((__tmp114448 - (lambda (_g111182111185_ - _g111183111187_) + (gxc#runtime-identifier=? _L111112_ 'apply)) + (fx= (length (let ((__tmp114430 + (lambda (_g111164111167_ + _g111165111169_) (let () (declare (not safe)) - (cons _g111182111185_ - _g111183111187_))))) + (cons _g111164111167_ + _g111165111169_))))) (declare (not safe)) - (foldr1 __tmp114448 + (foldr1 __tmp114430 '() - _L111132_))) - (length (let ((__tmp114449 - (lambda (_g111189111192_ - _g111190111194_) + _L111114_))) + (length (let ((__tmp114431 + (lambda (_g111171111174_ + _g111172111176_) (let () (declare (not safe)) - (cons _g111189111192_ - _g111190111194_))))) + (cons _g111171111174_ + _g111172111176_))))) (declare (not safe)) - (foldr1 __tmp114449 + (foldr1 __tmp114431 '() - _L111128_)))) - (let ((__tmp114446 - (let ((__tmp114447 - (lambda (_g111196111199_ - _g111197111201_) + _L111110_)))) + (let ((__tmp114428 + (let ((__tmp114429 + (lambda (_g111178111181_ + _g111179111183_) (let () (declare (not safe)) - (cons _g111196111199_ - _g111197111201_))))) + (cons _g111178111181_ + _g111179111183_))))) (declare (not safe)) - (foldr1 __tmp114447 '() _L111132_))) - (__tmp114444 - (let ((__tmp114445 - (lambda (_g111203111206_ - _g111204111208_) + (foldr1 __tmp114429 '() _L111114_))) + (__tmp114426 + (let ((__tmp114427 + (lambda (_g111185111188_ + _g111186111190_) (let () (declare (not safe)) - (cons _g111203111206_ - _g111204111208_))))) + (cons _g111185111188_ + _g111186111190_))))) (declare (not safe)) - (foldr1 __tmp114445 '() _L111128_)))) + (foldr1 __tmp114427 '() _L111110_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp114446 - __tmp114444)) + __tmp114428 + __tmp114426)) (let () (declare (not safe)) - (gx#free-identifier=? _L111131_ _L111127_)) - (let ((__tmp114439 - (let ((__tmp114443 - (lambda (_g111210111212_) + (gx#free-identifier=? _L111113_ _L111109_)) + (let ((__tmp114421 + (let ((__tmp114425 + (lambda (_g111192111194_) (let () (declare (not safe)) (gx#free-identifier=? - _g111210111212_ - _L111129_)))) - (__tmp114440 - (let ((__tmp114442 - (lambda (_g111214111217_ - _g111215111219_) + _g111192111194_ + _L111111_)))) + (__tmp114422 + (let ((__tmp114424 + (lambda (_g111196111199_ + _g111197111201_) (let () (declare (not safe)) - (cons _g111214111217_ - _g111215111219_)))) - (__tmp114441 + (cons _g111196111199_ + _g111197111201_)))) + (__tmp114423 (let () (declare (not safe)) - (cons _L111131_ '())))) + (cons _L111113_ '())))) (declare (not safe)) - (foldr1 __tmp114442 - __tmp114441 - _L111132_)))) + (foldr1 __tmp114424 + __tmp114423 + _L111114_)))) (declare (not safe)) - (find __tmp114443 __tmp114440)))) + (find __tmp114425 __tmp114422)))) (declare (not safe)) - (not __tmp114439))) - (___kont113040113041_ - _L111127_ - _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_))))))) + (not __tmp114421))) + (___kont113022113023_ + _L111109_ + _L111110_ + _L111111_ + _L111112_ + _L111113_ + _L111114_) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_))) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop110749111092_ - _target110746111063_ + (_loop110731111074_ + _target110728111045_ '()))) - (___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_)))) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_)) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_)))) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_)) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_)) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_)) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_)))) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_)))) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_)) + (___match113127113128_ + _e110694110949_ + _hd110693110952_ + _tl110692110954_ + _e110706110981_ + _hd110705110984_ + _tl110704110986_ + _e110709110989_ + _hd110708110992_ + _tl110707110994_ + _e110712110997_ + _hd110711111000_ + _tl110710111002_ + _e110715111005_ + _hd110714111008_ + _tl110713111010_ + _e110718111013_ + _hd110717111016_ + _tl110716111018_ + _e110721111021_ + _hd110720111024_ + _tl110719111026_ + _e110724111029_ + _hd110723111032_ + _tl110722111034_ + _e110727111037_ + _hd110726111040_ + _tl110725111042_)) + (___kont113030113031_)))) + (___kont113030113031_)) + (___kont113030113031_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113048113049_)))) - (___kont113048113049_)))) - (___kont113048113049_)) - (___kont113048113049_)))) - (___kont113048113049_)) - (___kont113048113049_)) - (___kont113048113049_)))) + (___kont113030113031_)))) + (___kont113030113031_)))) + (___kont113030113031_)) + (___kont113030113031_)))) + (___kont113030113031_)) + (___kont113030113031_)) + (___kont113030113031_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113048113049_)))) - (___kont113048113049_)) - (___kont113048113049_)) - (___kont113048113049_)))) - (___kont113048113049_)))) - (___kont113048113049_))))))) + (___kont113030113031_)))) + (___kont113030113031_)) + (___kont113030113031_)) + (___kont113030113031_)))) + (___kont113030113031_)))) + (___kont113030113031_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop110716110980_ - _target110713110975_ + (_loop110698110962_ + _target110695110957_ '()))))) - (___match113063113064_ - (lambda (_e110664111227_ - _hd110663111230_ - _tl110662111232_ - ___splice113036113037_ - _target110665111235_ - _tl110667111237_) - (letrec ((_loop110668111240_ - (lambda (_hd110666111243_ - _arg110672111245_) + (___match113045113046_ + (lambda (_e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_) + (letrec ((_loop110650111222_ + (lambda (_hd110648111225_ + _arg110654111227_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110666111243_)) - (let ((_e110669111248_ + _hd110648111225_)) + (let ((_e110651111230_ (let () (declare (not safe)) (gx#stx-e - _hd110666111243_)))) - (let ((_lp-tl110671111253_ + _hd110648111225_)))) + (let ((_lp-tl110653111235_ (let () (declare (not safe)) - (##cdr _e110669111248_))) - (_lp-hd110670111251_ + (##cdr _e110651111230_))) + (_lp-hd110652111233_ (let () (declare (not safe)) - (##car _e110669111248_)))) - (let ((__tmp114467 + (##car _e110651111230_)))) + (let ((__tmp114449 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd110670111251_ _arg110672111245_)))) + (cons _lp-hd110652111233_ _arg110654111227_)))) (declare (not safe)) - (_loop110668111240_ _lp-tl110671111253_ __tmp114467)))) + (_loop110650111222_ _lp-tl110653111235_ __tmp114449)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg110673111256_ - (reverse _arg110672111245_))) + (let ((_arg110655111238_ + (reverse _arg110654111227_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110662111232_)) - (let ((_e110676111259_ + _tl110644111214_)) + (let ((_e110658111241_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl110662111232_)))) - (let ((_tl110674111264_ - (let () (declare (not safe)) (##cdr _e110676111259_))) - (_hd110675111262_ + (gx#stx-e _tl110644111214_)))) + (let ((_tl110656111246_ + (let () (declare (not safe)) (##cdr _e110658111241_))) + (_hd110657111244_ (let () (declare (not safe)) - (##car _e110676111259_)))) + (##car _e110658111241_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110675111262_)) - (let ((_e110679111267_ + (gx#stx-pair? _hd110657111244_)) + (let ((_e110661111249_ (let () (declare (not safe)) - (gx#stx-e _hd110675111262_)))) - (let ((_tl110677111272_ + (gx#stx-e _hd110657111244_)))) + (let ((_tl110659111254_ (let () (declare (not safe)) - (##cdr _e110679111267_))) - (_hd110678111270_ + (##cdr _e110661111249_))) + (_hd110660111252_ (let () (declare (not safe)) - (##car _e110679111267_)))) + (##car _e110661111249_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110678111270_)) + (gx#identifier? _hd110660111252_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd110678111270_)) + (gx#stx-eq? '%#call _hd110660111252_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110677111272_)) - (let ((_e110682111275_ + (gx#stx-pair? _tl110659111254_)) + (let ((_e110664111257_ (let () (declare (not safe)) - (gx#stx-e _tl110677111272_)))) - (let ((_tl110680111280_ + (gx#stx-e _tl110659111254_)))) + (let ((_tl110662111262_ (let () (declare (not safe)) - (##cdr _e110682111275_))) - (_hd110681111278_ + (##cdr _e110664111257_))) + (_hd110663111260_ (let () (declare (not safe)) - (##car _e110682111275_)))) + (##car _e110664111257_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110681111278_)) - (let ((_e110685111283_ + _hd110663111260_)) + (let ((_e110667111265_ (let () (declare (not safe)) (gx#stx-e - _hd110681111278_)))) - (let ((_tl110683111288_ + _hd110663111260_)))) + (let ((_tl110665111270_ (let () (declare (not safe)) - (##cdr _e110685111283_))) - (_hd110684111286_ + (##cdr _e110667111265_))) + (_hd110666111268_ (let () (declare (not safe)) - (##car _e110685111283_)))) + (##car _e110667111265_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110684111286_)) + _hd110666111268_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110684111286_)) + _hd110666111268_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl110683111288_)) - (let ((_e110688111291_ + (gx#stx-pair? _tl110665111270_)) + (let ((_e110670111273_ (let () (declare (not safe)) - (gx#stx-e _tl110683111288_)))) - (let ((_tl110686111296_ + (gx#stx-e _tl110665111270_)))) + (let ((_tl110668111278_ (let () (declare (not safe)) - (##cdr _e110688111291_))) - (_hd110687111294_ + (##cdr _e110670111273_))) + (_hd110669111276_ (let () (declare (not safe)) - (##car _e110688111291_)))) + (##car _e110670111273_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110686111296_)) + (gx#stx-null? _tl110668111278_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl110680111280_)) - (let ((___splice113038113039_ + (gx#stx-pair/null? _tl110662111262_)) + (let ((___splice113020113021_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl110680111280_ + _tl110662111262_ '0)))) - (let ((_tl110691111301_ + (let ((_tl110673111283_ (let () (declare (not safe)) (##vector-ref - ___splice113038113039_ + ___splice113020113021_ '1))) - (_target110689111299_ + (_target110671111281_ (let () (declare (not safe)) (##vector-ref - ___splice113038113039_ + ___splice113020113021_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110691111301_)) - (letrec ((_loop110692111304_ - (lambda (_hd110690111307_ - _xarg110696111309_) + (gx#stx-null? _tl110673111283_)) + (letrec ((_loop110674111286_ + (lambda (_hd110672111289_ + _xarg110678111291_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110690111307_)) - (let ((_e110693111312_ + _hd110672111289_)) + (let ((_e110675111294_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd110690111307_)))) - (let ((_lp-tl110695111317_ + (gx#stx-e _hd110672111289_)))) + (let ((_lp-tl110677111299_ (let () (declare (not safe)) - (##cdr _e110693111312_))) - (_lp-hd110694111315_ + (##cdr _e110675111294_))) + (_lp-hd110676111297_ (let () (declare (not safe)) - (##car _e110693111312_)))) + (##car _e110675111294_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd110694111315_)) - (let ((_e110700111320_ + (gx#stx-pair? _lp-hd110676111297_)) + (let ((_e110682111302_ (let () (declare (not safe)) - (gx#stx-e _lp-hd110694111315_)))) - (let ((_tl110698111325_ + (gx#stx-e _lp-hd110676111297_)))) + (let ((_tl110680111307_ (let () (declare (not safe)) - (##cdr _e110700111320_))) - (_hd110699111323_ + (##cdr _e110682111302_))) + (_hd110681111305_ (let () (declare (not safe)) - (##car _e110700111320_)))) + (##car _e110682111302_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110699111323_)) + (gx#identifier? _hd110681111305_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd110699111323_)) + (gx#stx-eq? '%#ref _hd110681111305_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110698111325_)) - (let ((_e110703111328_ + (gx#stx-pair? _tl110680111307_)) + (let ((_e110685111310_ (let () (declare (not safe)) (gx#stx-e - _tl110698111325_)))) - (let ((_tl110701111333_ + _tl110680111307_)))) + (let ((_tl110683111315_ (let () (declare (not safe)) - (##cdr _e110703111328_))) - (_hd110702111331_ + (##cdr _e110685111310_))) + (_hd110684111313_ (let () (declare (not safe)) - (##car _e110703111328_)))) + (##car _e110685111310_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110701111333_)) - (let ((__tmp114466 + _tl110683111315_)) + (let ((__tmp114448 (let () (declare (not safe)) - (cons _hd110702111331_ + (cons _hd110684111313_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg110696111309_)))) + _xarg110678111291_)))) (declare (not safe)) - (_loop110692111304_ _lp-tl110695111317_ __tmp114466)) + (_loop110674111286_ _lp-tl110677111299_ __tmp114448)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_))) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)))) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)))) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)))) + (let ((_xarg110679111318_ (reverse _xarg110678111291_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110674111264_)) - (let ((_L111339_ _xarg110697111336_) - (_L111340_ _hd110687111294_) - (_L111341_ _arg110673111256_)) - (if (and (let ((__tmp114464 - (let ((__tmp114465 - (lambda (_g111369111372_ - _g111370111374_) + (gx#stx-null? _tl110656111246_)) + (let ((_L111321_ _xarg110679111318_) + (_L111322_ _hd110669111276_) + (_L111323_ _arg110655111238_)) + (if (and (let ((__tmp114446 + (let ((__tmp114447 + (lambda (_g111351111354_ + _g111352111356_) (let () (declare (not safe)) - (cons _g111369111372_ - _g111370111374_))))) + (cons _g111351111354_ + _g111352111356_))))) (declare (not safe)) - (foldr1 __tmp114465 + (foldr1 __tmp114447 '() - _L111341_)))) + _L111323_)))) (declare (not safe)) - (gx#identifier-list? __tmp114464)) - (fx= (length (let ((__tmp114462 - (lambda (_g111376111379_ + (gx#identifier-list? __tmp114446)) + (fx= (length (let ((__tmp114444 + (lambda (_g111358111361_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g111377111381_) + _g111359111363_) (let () (declare (not safe)) - (cons _g111376111379_ _g111377111381_))))) + (cons _g111358111361_ _g111359111363_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp114462 + (foldr1 __tmp114444 '() - _L111341_))) - (length (let ((__tmp114463 - (lambda (_g111383111386_ + _L111323_))) + (length (let ((__tmp114445 + (lambda (_g111365111368_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g111384111388_) + _g111366111370_) (let () (declare (not safe)) - (cons _g111383111386_ _g111384111388_))))) + (cons _g111365111368_ _g111366111370_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp114463 + (foldr1 __tmp114445 '() - _L111339_)))) - (let ((__tmp114460 - (let ((__tmp114461 - (lambda (_g111390111393_ - _g111391111395_) + _L111321_)))) + (let ((__tmp114442 + (let ((__tmp114443 + (lambda (_g111372111375_ + _g111373111377_) (let () (declare (not safe)) - (cons _g111390111393_ - _g111391111395_))))) + (cons _g111372111375_ + _g111373111377_))))) (declare (not safe)) - (foldr1 __tmp114461 + (foldr1 __tmp114443 '() - _L111341_))) - (__tmp114458 - (let ((__tmp114459 - (lambda (_g111397111400_ - _g111398111402_) + _L111323_))) + (__tmp114440 + (let ((__tmp114441 + (lambda (_g111379111382_ + _g111380111384_) (let () (declare (not safe)) - (cons _g111397111400_ - _g111398111402_))))) + (cons _g111379111382_ + _g111380111384_))))) (declare (not safe)) - (foldr1 __tmp114459 + (foldr1 __tmp114441 '() - _L111339_)))) + _L111321_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp114460 - __tmp114458)) - (let ((__tmp114454 - (let ((__tmp114457 - (lambda (_g111404111406_) + __tmp114442 + __tmp114440)) + (let ((__tmp114436 + (let ((__tmp114439 + (lambda (_g111386111388_) (let () (declare (not safe)) (gx#free-identifier=? - _g111404111406_ - _L111340_)))) - (__tmp114455 - (let ((__tmp114456 - (lambda (_g111408111411_ + _g111386111388_ + _L111322_)))) + (__tmp114437 + (let ((__tmp114438 + (lambda (_g111390111393_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g111409111413_) + _g111391111395_) (let () (declare (not safe)) - (cons _g111408111411_ _g111409111413_))))) + (cons _g111390111393_ _g111391111395_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp114456 + (foldr1 __tmp114438 '() - _L111341_)))) + _L111323_)))) (declare (not safe)) - (find __tmp114457 __tmp114455)))) + (find __tmp114439 __tmp114437)))) (declare (not safe)) - (not __tmp114454))) - (___kont113034113035_ - _L111339_ - _L111340_ - _L111341_) - (___match113075113076_ - _e110664111227_ - _hd110663111230_ - _tl110662111232_ - ___splice113036113037_ - _target110665111235_ - _tl110667111237_))) - (___match113075113076_ - _e110664111227_ - _hd110663111230_ - _tl110662111232_ - ___splice113036113037_ - _target110665111235_ - _tl110667111237_))))))) + (not __tmp114436))) + (___kont113016113017_ + _L111321_ + _L111322_ + _L111323_) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_))) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop110692111304_ - _target110689111299_ + (_loop110674111286_ + _target110671111281_ '()))) - (___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_)))) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)))) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)))) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_))))))) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)))) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)))) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)))) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop110668111240_ - _target110665111235_ + (_loop110650111222_ + _target110647111217_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113032113033_)) - (let ((_e110664111227_ + (gx#stx-pair? ___stx113014113015_)) + (let ((_e110646111209_ (let () (declare (not safe)) - (gx#stx-e ___stx113032113033_)))) - (let ((_tl110662111232_ + (gx#stx-e ___stx113014113015_)))) + (let ((_tl110644111214_ (let () (declare (not safe)) - (##cdr _e110664111227_))) - (_hd110663111230_ + (##cdr _e110646111209_))) + (_hd110645111212_ (let () (declare (not safe)) - (##car _e110664111227_)))) + (##car _e110646111209_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd110663111230_)) - (let ((___splice113036113037_ + (gx#stx-pair/null? _hd110645111212_)) + (let ((___splice113018113019_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd110663111230_ + _hd110645111212_ '0)))) - (let ((_tl110667111237_ + (let ((_tl110649111219_ (let () (declare (not safe)) (##vector-ref - ___splice113036113037_ + ___splice113018113019_ '1))) - (_target110665111235_ + (_target110647111217_ (let () (declare (not safe)) (##vector-ref - ___splice113036113037_ + ___splice113018113019_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110667111237_)) - (___match113063113064_ - _e110664111227_ - _hd110663111230_ - _tl110662111232_ - ___splice113036113037_ - _target110665111235_ - _tl110667111237_) - (___match113075113076_ - _e110664111227_ - _hd110663111230_ - _tl110662111232_ - ___splice113036113037_ - _target110665111235_ - _tl110667111237_)))) + _tl110649111219_)) + (___match113045113046_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_) + (___match113057113058_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + ___splice113018113019_ + _target110647111217_ + _tl110649111219_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110662111232_)) - (let ((_e110779110834_ + (gx#stx-pair? _tl110644111214_)) + (let ((_e110761110816_ (let () (declare (not safe)) (gx#stx-e - _tl110662111232_)))) - (let ((_tl110777110839_ + _tl110644111214_)))) + (let ((_tl110759110821_ (let () (declare (not safe)) - (##cdr _e110779110834_))) - (_hd110778110837_ + (##cdr _e110761110816_))) + (_hd110760110819_ (let () (declare (not safe)) - (##car _e110779110834_)))) + (##car _e110761110816_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110778110837_)) - (let ((_e110782110842_ + _hd110760110819_)) + (let ((_e110764110824_ (let () (declare (not safe)) (gx#stx-e - _hd110778110837_)))) - (let ((_tl110780110847_ + _hd110760110819_)))) + (let ((_tl110762110829_ (let () (declare (not safe)) - (##cdr _e110782110842_))) - (_hd110781110845_ + (##cdr _e110764110824_))) + (_hd110763110827_ (let () (declare (not safe)) - (##car _e110782110842_)))) + (##car _e110764110824_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110781110845_)) + _hd110763110827_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _hd110781110845_)) + (gx#stx-eq? '%#call _hd110763110827_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110780110847_)) - (let ((_e110785110850_ + (gx#stx-pair? _tl110762110829_)) + (let ((_e110767110832_ (let () (declare (not safe)) - (gx#stx-e _tl110780110847_)))) - (let ((_tl110783110855_ + (gx#stx-e _tl110762110829_)))) + (let ((_tl110765110837_ (let () (declare (not safe)) - (##cdr _e110785110850_))) - (_hd110784110853_ + (##cdr _e110767110832_))) + (_hd110766110835_ (let () (declare (not safe)) - (##car _e110785110850_)))) + (##car _e110767110832_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110784110853_)) - (let ((_e110788110858_ + (gx#stx-pair? _hd110766110835_)) + (let ((_e110770110840_ (let () (declare (not safe)) - (gx#stx-e _hd110784110853_)))) - (let ((_tl110786110863_ + (gx#stx-e _hd110766110835_)))) + (let ((_tl110768110845_ (let () (declare (not safe)) - (##cdr _e110788110858_))) - (_hd110787110861_ + (##cdr _e110770110840_))) + (_hd110769110843_ (let () (declare (not safe)) - (##car _e110788110858_)))) + (##car _e110770110840_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110787110861_)) + (gx#identifier? _hd110769110843_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110787110861_)) + _hd110769110843_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110786110863_)) - (let ((_e110791110866_ + _tl110768110845_)) + (let ((_e110773110848_ (let () (declare (not safe)) (gx#stx-e - _tl110786110863_)))) - (let ((_tl110789110871_ + _tl110768110845_)))) + (let ((_tl110771110853_ (let () (declare (not safe)) - (##cdr _e110791110866_))) - (_hd110790110869_ + (##cdr _e110773110848_))) + (_hd110772110851_ (let () (declare (not safe)) - (##car _e110791110866_)))) + (##car _e110773110848_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110789110871_)) + _tl110771110853_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl110783110855_)) - (let ((_e110794110874_ + (gx#stx-pair? _tl110765110837_)) + (let ((_e110776110856_ (let () (declare (not safe)) - (gx#stx-e _tl110783110855_)))) - (let ((_tl110792110879_ + (gx#stx-e _tl110765110837_)))) + (let ((_tl110774110861_ (let () (declare (not safe)) - (##cdr _e110794110874_))) - (_hd110793110877_ + (##cdr _e110776110856_))) + (_hd110775110859_ (let () (declare (not safe)) - (##car _e110794110874_)))) + (##car _e110776110856_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110793110877_)) - (let ((_e110797110882_ + (gx#stx-pair? _hd110775110859_)) + (let ((_e110779110864_ (let () (declare (not safe)) - (gx#stx-e _hd110793110877_)))) - (let ((_tl110795110887_ + (gx#stx-e _hd110775110859_)))) + (let ((_tl110777110869_ (let () (declare (not safe)) - (##cdr _e110797110882_))) - (_hd110796110885_ + (##cdr _e110779110864_))) + (_hd110778110867_ (let () (declare (not safe)) - (##car _e110797110882_)))) + (##car _e110779110864_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110796110885_)) + (gx#identifier? _hd110778110867_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110796110885_)) + _hd110778110867_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110795110887_)) - (let ((_e110800110890_ + _tl110777110869_)) + (let ((_e110782110872_ (let () (declare (not safe)) (gx#stx-e - _tl110795110887_)))) - (let ((_tl110798110895_ + _tl110777110869_)))) + (let ((_tl110780110877_ (let () (declare (not safe)) - (##cdr _e110800110890_))) - (_hd110799110893_ + (##cdr _e110782110872_))) + (_hd110781110875_ (let () (declare (not safe)) - (##car _e110800110890_)))) + (##car _e110782110872_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110798110895_)) + _tl110780110877_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110792110879_)) - (let ((_e110803110898_ + _tl110774110861_)) + (let ((_e110785110880_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl110792110879_)))) - (let ((_tl110801110903_ + (gx#stx-e _tl110774110861_)))) + (let ((_tl110783110885_ (let () (declare (not safe)) - (##cdr _e110803110898_))) - (_hd110802110901_ + (##cdr _e110785110880_))) + (_hd110784110883_ (let () (declare (not safe)) - (##car _e110803110898_)))) + (##car _e110785110880_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110802110901_)) - (let ((_e110806110906_ + (gx#stx-pair? _hd110784110883_)) + (let ((_e110788110888_ (let () (declare (not safe)) - (gx#stx-e _hd110802110901_)))) - (let ((_tl110804110911_ + (gx#stx-e _hd110784110883_)))) + (let ((_tl110786110893_ (let () (declare (not safe)) - (##cdr _e110806110906_))) - (_hd110805110909_ + (##cdr _e110788110888_))) + (_hd110787110891_ (let () (declare (not safe)) - (##car _e110806110906_)))) + (##car _e110788110888_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110805110909_)) + (gx#identifier? _hd110787110891_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd110805110909_)) + (gx#stx-eq? '%#ref _hd110787110891_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110804110911_)) - (let ((_e110809110914_ + (gx#stx-pair? _tl110786110893_)) + (let ((_e110791110896_ (let () (declare (not safe)) (gx#stx-e - _tl110804110911_)))) - (let ((_tl110807110919_ + _tl110786110893_)))) + (let ((_tl110789110901_ (let () (declare (not safe)) - (##cdr _e110809110914_))) - (_hd110808110917_ + (##cdr _e110791110896_))) + (_hd110790110899_ (let () (declare (not safe)) - (##car _e110809110914_)))) + (##car _e110791110896_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110807110919_)) + _tl110789110901_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl110801110903_)) + _tl110783110885_)) (if (let () (declare (not safe)) (gx#stx-null? - _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_)))) + _tl110759110821_)) + (___match113155113156_ + _e110646111209_ + _hd110645111212_ + _tl110644111214_ + _e110761110816_ + _hd110760110819_ + _tl110759110821_ + _e110764110824_ + _hd110763110827_ + _tl110762110829_ + _e110767110832_ + _hd110766110835_ + _tl110765110837_ + _e110770110840_ + _hd110769110843_ + _tl110768110845_ + _e110773110848_ + _hd110772110851_ + _tl110771110853_ + _e110776110856_ + _hd110775110859_ + _tl110774110861_ + _e110779110864_ + _hd110778110867_ + _tl110777110869_ + _e110782110872_ + _hd110781110875_ + _tl110780110877_ + _e110785110880_ + _hd110784110883_ + _tl110783110885_ + _e110788110888_ + _hd110787110891_ + _tl110786110893_ + _e110791110896_ + _hd110790110899_ + _tl110789110901_) + (___kont113030113031_)) + (___kont113030113031_)) + (___kont113030113031_)))) + (___kont113030113031_)) + (___kont113030113031_)) + (___kont113030113031_)))) + (___kont113030113031_)))) + (___kont113030113031_)) + (___kont113030113031_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113048113049_)) - (___kont113048113049_)) - (___kont113048113049_)))) - (___kont113048113049_)))) - (___kont113048113049_)) - (___kont113048113049_)))) + (___kont113030113031_)) + (___kont113030113031_)) + (___kont113030113031_)))) + (___kont113030113031_)))) + (___kont113030113031_)) + (___kont113030113031_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113048113049_)) - (___kont113048113049_)) - (___kont113048113049_)))) - (___kont113048113049_)))) - (___kont113048113049_)) - (___kont113048113049_)) - (___kont113048113049_)))) + (___kont113030113031_)) + (___kont113030113031_)) + (___kont113030113031_)))) + (___kont113030113031_)))) + (___kont113030113031_)) + (___kont113030113031_)) + (___kont113030113031_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113048113049_)))) - (___kont113048113049_))))) - (___kont113048113049_))))))) - (_dispatch-case-e109965_ - (lambda (_hd110113_ _body110114_) - (let* ((_form110116_ - (let ((__tmp114468 + (___kont113030113031_)))) + (___kont113030113031_))))) + (___kont113030113031_))))))) + (_dispatch-case-e109947_ + (lambda (_hd110095_ _body110096_) + (let* ((_form110098_ + (let ((__tmp114450 (let () (declare (not safe)) - (cons _body110114_ '())))) + (cons _body110096_ '())))) (declare (not safe)) - (cons _hd110113_ __tmp114468))) - (___stx113176113177_ _form110116_) - (_g110120110244_ + (cons _hd110095_ __tmp114450))) + (___stx113158113159_ _form110098_) + (_g110102110226_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113176113177_))))) - (let ((___kont113178113179_ - (lambda (_L110615_ _L110616_ _L110617_) - (let ((__tmp114469 - (let ((__tmp114471 + ___stx113158113159_))))) + (let ((___kont113160113161_ + (lambda (_L110597_ _L110598_ _L110599_) + (let ((__tmp114451 + (let ((__tmp114453 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp114470 + (__tmp114452 (let () (declare (not safe)) - (cons _L110616_ '())))) + (cons _L110598_ '())))) (declare (not safe)) - (cons __tmp114471 __tmp114470)))) + (cons __tmp114453 __tmp114452)))) (declare (not safe)) - (gxc#compile-e__1 _self109961_ __tmp114469)))) - (___kont113184113185_ - (lambda (_L110463_ _L110464_ _L110465_ _L110466_) - (let ((__tmp114472 - (let ((__tmp114474 + (gxc#compile-e__1 _self109943_ __tmp114451)))) + (___kont113166113167_ + (lambda (_L110445_ _L110446_ _L110447_ _L110448_) + (let ((__tmp114454 + (let ((__tmp114456 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp114473 + (__tmp114455 (let () (declare (not safe)) - (cons _L110463_ '())))) + (cons _L110445_ '())))) (declare (not safe)) - (cons __tmp114474 __tmp114473)))) + (cons __tmp114456 __tmp114455)))) (declare (not safe)) - (gxc#compile-e__1 _self109961_ __tmp114472)))) - (___kont113188113189_ - (lambda (_L110329_ _L110330_ _L110331_) - (let ((__tmp114475 - (let ((__tmp114477 + (gxc#compile-e__1 _self109943_ __tmp114454)))) + (___kont113170113171_ + (lambda (_L110311_ _L110312_ _L110313_) + (let ((__tmp114457 + (let ((__tmp114459 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp114476 + (__tmp114458 (let () (declare (not safe)) - (cons _L110329_ '())))) + (cons _L110311_ '())))) (declare (not safe)) - (cons __tmp114477 __tmp114476)))) + (cons __tmp114459 __tmp114458)))) (declare (not safe)) (gxc#compile-e__1 - _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_) + _self109943_ + __tmp114457))))) + (let* ((___match113267113268_ + (lambda (_e110194110231_ + _hd110193110234_ + _tl110192110236_ + _e110197110239_ + _hd110196110242_ + _tl110195110244_ + _e110200110247_ + _hd110199110250_ + _tl110198110252_ + _e110203110255_ + _hd110202110258_ + _tl110201110260_ + _e110206110263_ + _hd110205110266_ + _tl110204110268_ + _e110209110271_ + _hd110208110274_ + _tl110207110276_ + _e110212110279_ + _hd110211110282_ + _tl110210110284_ + _e110215110287_ + _hd110214110290_ + _tl110213110292_ + _e110218110295_ + _hd110217110298_ + _tl110216110300_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110228110302_)) - (let ((_e110239110321_ + (gx#stx-pair? _tl110210110284_)) + (let ((_e110221110303_ (let () (declare (not safe)) - (gx#stx-e _tl110228110302_)))) - (let ((_tl110237110326_ + (gx#stx-e _tl110210110284_)))) + (let ((_tl110219110308_ (let () (declare (not safe)) - (##cdr _e110239110321_))) - (_hd110238110324_ + (##cdr _e110221110303_))) + (_hd110220110306_ (let () (declare (not safe)) - (##car _e110239110321_)))) + (##car _e110221110303_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110237110326_)) + _tl110219110308_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl110213110262_)) - (___kont113188113189_ - _hd110235110316_ - _hd110226110292_ - _hd110211110252_) + _tl110195110244_)) + (___kont113170113171_ + _hd110217110298_ + _hd110208110274_ + _hd110193110234_) (let () (declare (not safe)) - (_g110120110244_))) + (_g110102110226_))) (let () (declare (not safe)) - (_g110120110244_))))) + (_g110102110226_))))) (let () (declare (not safe)) - (_g110120110244_))))) - (___match113215113216_ - (lambda (_e110173110367_ - _hd110172110370_ - _tl110171110372_ - ___splice113186113187_ - _target110174110375_ - _tl110176110377_) - (letrec ((_loop110177110380_ - (lambda (_hd110175110383_ - _arg110181110385_) + (_g110102110226_))))) + (___match113197113198_ + (lambda (_e110155110349_ + _hd110154110352_ + _tl110153110354_ + ___splice113168113169_ + _target110156110357_ + _tl110158110359_) + (letrec ((_loop110159110362_ + (lambda (_hd110157110365_ + _arg110163110367_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110175110383_)) - (let ((_e110178110388_ + _hd110157110365_)) + (let ((_e110160110370_ (let () (declare (not safe)) (gx#stx-e - _hd110175110383_)))) - (let ((_lp-tl110180110393_ + _hd110157110365_)))) + (let ((_lp-tl110162110375_ (let () (declare (not safe)) - (##cdr _e110178110388_))) - (_lp-hd110179110391_ + (##cdr _e110160110370_))) + (_lp-hd110161110373_ (let () (declare (not safe)) - (##car _e110178110388_)))) - (let ((__tmp114478 + (##car _e110160110370_)))) + (let ((__tmp114460 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd110179110391_ _arg110181110385_)))) + (cons _lp-hd110161110373_ _arg110163110367_)))) (declare (not safe)) - (_loop110177110380_ _lp-tl110180110393_ __tmp114478)))) + (_loop110159110362_ _lp-tl110162110375_ __tmp114460)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg110182110396_ - (reverse _arg110181110385_))) + (let ((_arg110164110378_ + (reverse _arg110163110367_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110171110372_)) - (let ((_e110185110399_ + _tl110153110354_)) + (let ((_e110167110381_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl110171110372_)))) - (let ((_tl110183110404_ - (let () (declare (not safe)) (##cdr _e110185110399_))) - (_hd110184110402_ + (gx#stx-e _tl110153110354_)))) + (let ((_tl110165110386_ + (let () (declare (not safe)) (##cdr _e110167110381_))) + (_hd110166110384_ (let () (declare (not safe)) - (##car _e110185110399_)))) + (##car _e110167110381_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110184110402_)) - (let ((_e110188110407_ + (gx#stx-pair? _hd110166110384_)) + (let ((_e110170110389_ (let () (declare (not safe)) - (gx#stx-e _hd110184110402_)))) - (let ((_tl110186110412_ + (gx#stx-e _hd110166110384_)))) + (let ((_tl110168110394_ (let () (declare (not safe)) - (##cdr _e110188110407_))) - (_hd110187110410_ + (##cdr _e110170110389_))) + (_hd110169110392_ (let () (declare (not safe)) - (##car _e110188110407_)))) + (##car _e110170110389_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110187110410_)) + (gx#identifier? _hd110169110392_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd110187110410_)) + (gx#stx-eq? '%#call _hd110169110392_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110186110412_)) - (let ((_e110191110415_ + (gx#stx-pair? _tl110168110394_)) + (let ((_e110173110397_ (let () (declare (not safe)) - (gx#stx-e _tl110186110412_)))) - (let ((_tl110189110420_ + (gx#stx-e _tl110168110394_)))) + (let ((_tl110171110402_ (let () (declare (not safe)) - (##cdr _e110191110415_))) - (_hd110190110418_ + (##cdr _e110173110397_))) + (_hd110172110400_ (let () (declare (not safe)) - (##car _e110191110415_)))) + (##car _e110173110397_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110190110418_)) - (let ((_e110194110423_ + _hd110172110400_)) + (let ((_e110176110405_ (let () (declare (not safe)) (gx#stx-e - _hd110190110418_)))) - (let ((_tl110192110428_ + _hd110172110400_)))) + (let ((_tl110174110410_ (let () (declare (not safe)) - (##cdr _e110194110423_))) - (_hd110193110426_ + (##cdr _e110176110405_))) + (_hd110175110408_ (let () (declare (not safe)) - (##car _e110194110423_)))) + (##car _e110176110405_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110193110426_)) + _hd110175110408_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110193110426_)) + _hd110175110408_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl110192110428_)) - (let ((_e110197110431_ + (gx#stx-pair? _tl110174110410_)) + (let ((_e110179110413_ (let () (declare (not safe)) - (gx#stx-e _tl110192110428_)))) - (let ((_tl110195110436_ + (gx#stx-e _tl110174110410_)))) + (let ((_tl110177110418_ (let () (declare (not safe)) - (##cdr _e110197110431_))) - (_hd110196110434_ + (##cdr _e110179110413_))) + (_hd110178110416_ (let () (declare (not safe)) - (##car _e110197110431_)))) + (##car _e110179110413_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110195110436_)) + (gx#stx-null? _tl110177110418_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110189110420_)) - (let ((_e110200110439_ + (gx#stx-pair? _tl110171110402_)) + (let ((_e110182110421_ (let () (declare (not safe)) - (gx#stx-e _tl110189110420_)))) - (let ((_tl110198110444_ + (gx#stx-e _tl110171110402_)))) + (let ((_tl110180110426_ (let () (declare (not safe)) - (##cdr _e110200110439_))) - (_hd110199110442_ + (##cdr _e110182110421_))) + (_hd110181110424_ (let () (declare (not safe)) - (##car _e110200110439_)))) + (##car _e110182110421_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110199110442_)) - (let ((_e110203110447_ + (gx#stx-pair? _hd110181110424_)) + (let ((_e110185110429_ (let () (declare (not safe)) (gx#stx-e - _hd110199110442_)))) - (let ((_tl110201110452_ + _hd110181110424_)))) + (let ((_tl110183110434_ (let () (declare (not safe)) - (##cdr _e110203110447_))) - (_hd110202110450_ + (##cdr _e110185110429_))) + (_hd110184110432_ (let () (declare (not safe)) - (##car _e110203110447_)))) + (##car _e110185110429_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110202110450_)) + _hd110184110432_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110202110450_)) + _hd110184110432_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110201110452_)) - (let ((_e110206110455_ + _tl110183110434_)) + (let ((_e110188110437_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl110201110452_)))) - (let ((_tl110204110460_ + (gx#stx-e _tl110183110434_)))) + (let ((_tl110186110442_ (let () (declare (not safe)) - (##cdr _e110206110455_))) - (_hd110205110458_ + (##cdr _e110188110437_))) + (_hd110187110440_ (let () (declare (not safe)) - (##car _e110206110455_)))) + (##car _e110188110437_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110204110460_)) + (gx#stx-null? _tl110186110442_)) (if (let () (declare (not safe)) - (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_))) + (gx#stx-null? _tl110165110386_)) + (___kont113166113167_ + _hd110187110440_ + _hd110178110416_ + _tl110158110359_ + _arg110164110378_) + (___match113267113268_ + _e110155110349_ + _hd110154110352_ + _tl110153110354_ + _e110167110381_ + _hd110166110384_ + _tl110165110386_ + _e110170110389_ + _hd110169110392_ + _tl110168110394_ + _e110173110397_ + _hd110172110400_ + _tl110171110402_ + _e110176110405_ + _hd110175110408_ + _tl110174110410_ + _e110179110413_ + _hd110178110416_ + _tl110177110418_ + _e110182110421_ + _hd110181110424_ + _tl110180110426_ + _e110185110429_ + _hd110184110432_ + _tl110183110434_ + _e110188110437_ + _hd110187110440_ + _tl110186110442_)) + (let () (declare (not safe)) (_g110102110226_))))) + (let () (declare (not safe)) (_g110102110226_))) + (let () (declare (not safe)) (_g110102110226_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g110120110244_))))) + (_g110102110226_))))) (let () (declare (not safe)) - (_g110120110244_))))) + (_g110102110226_))))) (let () (declare (not safe)) - (_g110120110244_))) + (_g110102110226_))) (let () (declare (not safe)) - (_g110120110244_))))) - (let () (declare (not safe)) (_g110120110244_))) - (let () (declare (not safe)) (_g110120110244_))) - (let () (declare (not safe)) (_g110120110244_))))) + (_g110102110226_))))) + (let () (declare (not safe)) (_g110102110226_))) + (let () (declare (not safe)) (_g110102110226_))) + (let () (declare (not safe)) (_g110102110226_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g110120110244_))))) + (_g110102110226_))))) (let () (declare (not safe)) - (_g110120110244_))) + (_g110102110226_))) (let () (declare (not safe)) - (_g110120110244_))) + (_g110102110226_))) (let () (declare (not safe)) - (_g110120110244_))))) - (let () (declare (not safe)) (_g110120110244_))))) - (let () (declare (not safe)) (_g110120110244_)))))))) + (_g110102110226_))))) + (let () (declare (not safe)) (_g110102110226_))))) + (let () (declare (not safe)) (_g110102110226_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop110177110380_ - _target110174110375_ + (_loop110159110362_ + _target110156110357_ '()))))) - (___match113203113204_ - (lambda (_e110127110503_ - _hd110126110506_ - _tl110125110508_ - ___splice113180113181_ - _target110128110511_ - _tl110130110513_) - (letrec ((_loop110131110516_ - (lambda (_hd110129110519_ - _arg110135110521_) + (___match113185113186_ + (lambda (_e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_) + (letrec ((_loop110113110498_ + (lambda (_hd110111110501_ + _arg110117110503_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110129110519_)) - (let ((_e110132110524_ + _hd110111110501_)) + (let ((_e110114110506_ (let () (declare (not safe)) (gx#stx-e - _hd110129110519_)))) - (let ((_lp-tl110134110529_ + _hd110111110501_)))) + (let ((_lp-tl110116110511_ (let () (declare (not safe)) - (##cdr _e110132110524_))) - (_lp-hd110133110527_ + (##cdr _e110114110506_))) + (_lp-hd110115110509_ (let () (declare (not safe)) - (##car _e110132110524_)))) - (let ((__tmp114480 + (##car _e110114110506_)))) + (let ((__tmp114462 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd110133110527_ _arg110135110521_)))) + (cons _lp-hd110115110509_ _arg110117110503_)))) (declare (not safe)) - (_loop110131110516_ _lp-tl110134110529_ __tmp114480)))) + (_loop110113110498_ _lp-tl110116110511_ __tmp114462)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg110136110532_ - (reverse _arg110135110521_))) + (let ((_arg110118110514_ + (reverse _arg110117110503_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110125110508_)) - (let ((_e110139110535_ + _tl110107110490_)) + (let ((_e110121110517_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl110125110508_)))) - (let ((_tl110137110540_ - (let () (declare (not safe)) (##cdr _e110139110535_))) - (_hd110138110538_ + (gx#stx-e _tl110107110490_)))) + (let ((_tl110119110522_ + (let () (declare (not safe)) (##cdr _e110121110517_))) + (_hd110120110520_ (let () (declare (not safe)) - (##car _e110139110535_)))) + (##car _e110121110517_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110138110538_)) - (let ((_e110142110543_ + (gx#stx-pair? _hd110120110520_)) + (let ((_e110124110525_ (let () (declare (not safe)) - (gx#stx-e _hd110138110538_)))) - (let ((_tl110140110548_ + (gx#stx-e _hd110120110520_)))) + (let ((_tl110122110530_ (let () (declare (not safe)) - (##cdr _e110142110543_))) - (_hd110141110546_ + (##cdr _e110124110525_))) + (_hd110123110528_ (let () (declare (not safe)) - (##car _e110142110543_)))) + (##car _e110124110525_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110141110546_)) + (gx#identifier? _hd110123110528_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd110141110546_)) + (gx#stx-eq? '%#call _hd110123110528_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110140110548_)) - (let ((_e110145110551_ + (gx#stx-pair? _tl110122110530_)) + (let ((_e110127110533_ (let () (declare (not safe)) - (gx#stx-e _tl110140110548_)))) - (let ((_tl110143110556_ + (gx#stx-e _tl110122110530_)))) + (let ((_tl110125110538_ (let () (declare (not safe)) - (##cdr _e110145110551_))) - (_hd110144110554_ + (##cdr _e110127110533_))) + (_hd110126110536_ (let () (declare (not safe)) - (##car _e110145110551_)))) + (##car _e110127110533_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110144110554_)) - (let ((_e110148110559_ + _hd110126110536_)) + (let ((_e110130110541_ (let () (declare (not safe)) (gx#stx-e - _hd110144110554_)))) - (let ((_tl110146110564_ + _hd110126110536_)))) + (let ((_tl110128110546_ (let () (declare (not safe)) - (##cdr _e110148110559_))) - (_hd110147110562_ + (##cdr _e110130110541_))) + (_hd110129110544_ (let () (declare (not safe)) - (##car _e110148110559_)))) + (##car _e110130110541_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110147110562_)) + _hd110129110544_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110147110562_)) + _hd110129110544_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl110146110564_)) - (let ((_e110151110567_ + (gx#stx-pair? _tl110128110546_)) + (let ((_e110133110549_ (let () (declare (not safe)) - (gx#stx-e _tl110146110564_)))) - (let ((_tl110149110572_ + (gx#stx-e _tl110128110546_)))) + (let ((_tl110131110554_ (let () (declare (not safe)) - (##cdr _e110151110567_))) - (_hd110150110570_ + (##cdr _e110133110549_))) + (_hd110132110552_ (let () (declare (not safe)) - (##car _e110151110567_)))) + (##car _e110133110549_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110149110572_)) + (gx#stx-null? _tl110131110554_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl110143110556_)) - (let ((___splice113182113183_ + (gx#stx-pair/null? _tl110125110538_)) + (let ((___splice113164113165_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl110143110556_ + _tl110125110538_ '0)))) - (let ((_tl110154110577_ + (let ((_tl110136110559_ (let () (declare (not safe)) (##vector-ref - ___splice113182113183_ + ___splice113164113165_ '1))) - (_target110152110575_ + (_target110134110557_ (let () (declare (not safe)) (##vector-ref - ___splice113182113183_ + ___splice113164113165_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110154110577_)) - (letrec ((_loop110155110580_ - (lambda (_hd110153110583_ - _xarg110159110585_) + (gx#stx-null? _tl110136110559_)) + (letrec ((_loop110137110562_ + (lambda (_hd110135110565_ + _xarg110141110567_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110153110583_)) - (let ((_e110156110588_ + _hd110135110565_)) + (let ((_e110138110570_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd110153110583_)))) - (let ((_lp-tl110158110593_ + (gx#stx-e _hd110135110565_)))) + (let ((_lp-tl110140110575_ (let () (declare (not safe)) - (##cdr _e110156110588_))) - (_lp-hd110157110591_ + (##cdr _e110138110570_))) + (_lp-hd110139110573_ (let () (declare (not safe)) - (##car _e110156110588_)))) + (##car _e110138110570_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd110157110591_)) - (let ((_e110163110596_ + (gx#stx-pair? _lp-hd110139110573_)) + (let ((_e110145110578_ (let () (declare (not safe)) - (gx#stx-e _lp-hd110157110591_)))) - (let ((_tl110161110601_ + (gx#stx-e _lp-hd110139110573_)))) + (let ((_tl110143110583_ (let () (declare (not safe)) - (##cdr _e110163110596_))) - (_hd110162110599_ + (##cdr _e110145110578_))) + (_hd110144110581_ (let () (declare (not safe)) - (##car _e110163110596_)))) + (##car _e110145110578_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110162110599_)) + (gx#identifier? _hd110144110581_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd110162110599_)) + (gx#stx-eq? '%#ref _hd110144110581_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110161110601_)) - (let ((_e110166110604_ + (gx#stx-pair? _tl110143110583_)) + (let ((_e110148110586_ (let () (declare (not safe)) (gx#stx-e - _tl110161110601_)))) - (let ((_tl110164110609_ + _tl110143110583_)))) + (let ((_tl110146110591_ (let () (declare (not safe)) - (##cdr _e110166110604_))) - (_hd110165110607_ + (##cdr _e110148110586_))) + (_hd110147110589_ (let () (declare (not safe)) - (##car _e110166110604_)))) + (##car _e110148110586_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110164110609_)) - (let ((__tmp114479 + _tl110146110591_)) + (let ((__tmp114461 (let () (declare (not safe)) - (cons _hd110165110607_ + (cons _hd110147110589_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg110159110585_)))) + _xarg110141110567_)))) (declare (not safe)) - (_loop110155110580_ _lp-tl110158110593_ __tmp114479)) + (_loop110137110562_ _lp-tl110140110575_ __tmp114461)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_))) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)))) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)))) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)))) + (let ((_xarg110142110594_ (reverse _xarg110141110567_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110137110540_)) - (___kont113178113179_ - _xarg110160110612_ - _hd110150110570_ - _arg110136110532_) - (___match113215113216_ - _e110127110503_ - _hd110126110506_ - _tl110125110508_ - ___splice113180113181_ - _target110128110511_ - _tl110130110513_))))))) + (gx#stx-null? _tl110119110522_)) + (___kont113160113161_ + _xarg110142110594_ + _hd110132110552_ + _arg110118110514_) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop110155110580_ - _target110152110575_ + (_loop110137110562_ + _target110134110557_ '()))) - (___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_)))) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)))) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)))) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_))))))) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)))) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)))) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)))) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop110131110516_ - _target110128110511_ + (_loop110113110498_ + _target110110110493_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113176113177_)) - (let ((_e110127110503_ + (gx#stx-pair? ___stx113158113159_)) + (let ((_e110109110485_ (let () (declare (not safe)) - (gx#stx-e ___stx113176113177_)))) - (let ((_tl110125110508_ + (gx#stx-e ___stx113158113159_)))) + (let ((_tl110107110490_ (let () (declare (not safe)) - (##cdr _e110127110503_))) - (_hd110126110506_ + (##cdr _e110109110485_))) + (_hd110108110488_ (let () (declare (not safe)) - (##car _e110127110503_)))) + (##car _e110109110485_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd110126110506_)) - (let ((___splice113180113181_ + (gx#stx-pair/null? _hd110108110488_)) + (let ((___splice113162113163_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd110126110506_ + _hd110108110488_ '0)))) - (let ((_tl110130110513_ + (let ((_tl110112110495_ (let () (declare (not safe)) (##vector-ref - ___splice113180113181_ + ___splice113162113163_ '1))) - (_target110128110511_ + (_target110110110493_ (let () (declare (not safe)) (##vector-ref - ___splice113180113181_ + ___splice113162113163_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110130110513_)) - (___match113203113204_ - _e110127110503_ - _hd110126110506_ - _tl110125110508_ - ___splice113180113181_ - _target110128110511_ - _tl110130110513_) - (___match113215113216_ - _e110127110503_ - _hd110126110506_ - _tl110125110508_ - ___splice113180113181_ - _target110128110511_ - _tl110130110513_)))) + _tl110112110495_)) + (___match113185113186_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_) + (___match113197113198_ + _e110109110485_ + _hd110108110488_ + _tl110107110490_ + ___splice113162113163_ + _target110110110493_ + _tl110112110495_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110125110508_)) - (let ((_e110215110257_ + (gx#stx-pair? _tl110107110490_)) + (let ((_e110197110239_ (let () (declare (not safe)) (gx#stx-e - _tl110125110508_)))) - (let ((_tl110213110262_ + _tl110107110490_)))) + (let ((_tl110195110244_ (let () (declare (not safe)) - (##cdr _e110215110257_))) - (_hd110214110260_ + (##cdr _e110197110239_))) + (_hd110196110242_ (let () (declare (not safe)) - (##car _e110215110257_)))) + (##car _e110197110239_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd110214110260_)) - (let ((_e110218110265_ + _hd110196110242_)) + (let ((_e110200110247_ (let () (declare (not safe)) (gx#stx-e - _hd110214110260_)))) - (let ((_tl110216110270_ + _hd110196110242_)))) + (let ((_tl110198110252_ (let () (declare (not safe)) - (##cdr _e110218110265_))) - (_hd110217110268_ + (##cdr _e110200110247_))) + (_hd110199110250_ (let () (declare (not safe)) - (##car _e110218110265_)))) + (##car _e110200110247_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd110217110268_)) + _hd110199110250_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _hd110217110268_)) + (gx#stx-eq? '%#call _hd110199110250_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl110216110270_)) - (let ((_e110221110273_ + (gx#stx-pair? _tl110198110252_)) + (let ((_e110203110255_ (let () (declare (not safe)) - (gx#stx-e _tl110216110270_)))) - (let ((_tl110219110278_ + (gx#stx-e _tl110198110252_)))) + (let ((_tl110201110260_ (let () (declare (not safe)) - (##cdr _e110221110273_))) - (_hd110220110276_ + (##cdr _e110203110255_))) + (_hd110202110258_ (let () (declare (not safe)) - (##car _e110221110273_)))) + (##car _e110203110255_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110220110276_)) - (let ((_e110224110281_ + (gx#stx-pair? _hd110202110258_)) + (let ((_e110206110263_ (let () (declare (not safe)) - (gx#stx-e _hd110220110276_)))) - (let ((_tl110222110286_ + (gx#stx-e _hd110202110258_)))) + (let ((_tl110204110268_ (let () (declare (not safe)) - (##cdr _e110224110281_))) - (_hd110223110284_ + (##cdr _e110206110263_))) + (_hd110205110266_ (let () (declare (not safe)) - (##car _e110224110281_)))) + (##car _e110206110263_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110223110284_)) + (gx#identifier? _hd110205110266_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110223110284_)) + _hd110205110266_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110222110286_)) - (let ((_e110227110289_ + _tl110204110268_)) + (let ((_e110209110271_ (let () (declare (not safe)) (gx#stx-e - _tl110222110286_)))) - (let ((_tl110225110294_ + _tl110204110268_)))) + (let ((_tl110207110276_ (let () (declare (not safe)) - (##cdr _e110227110289_))) - (_hd110226110292_ + (##cdr _e110209110271_))) + (_hd110208110274_ (let () (declare (not safe)) - (##car _e110227110289_)))) + (##car _e110209110271_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110225110294_)) + _tl110207110276_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl110219110278_)) - (let ((_e110230110297_ + (gx#stx-pair? _tl110201110260_)) + (let ((_e110212110279_ (let () (declare (not safe)) - (gx#stx-e _tl110219110278_)))) - (let ((_tl110228110302_ + (gx#stx-e _tl110201110260_)))) + (let ((_tl110210110284_ (let () (declare (not safe)) - (##cdr _e110230110297_))) - (_hd110229110300_ + (##cdr _e110212110279_))) + (_hd110211110282_ (let () (declare (not safe)) - (##car _e110230110297_)))) + (##car _e110212110279_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd110229110300_)) - (let ((_e110233110305_ + (gx#stx-pair? _hd110211110282_)) + (let ((_e110215110287_ (let () (declare (not safe)) - (gx#stx-e _hd110229110300_)))) - (let ((_tl110231110310_ + (gx#stx-e _hd110211110282_)))) + (let ((_tl110213110292_ (let () (declare (not safe)) - (##cdr _e110233110305_))) - (_hd110232110308_ + (##cdr _e110215110287_))) + (_hd110214110290_ (let () (declare (not safe)) - (##car _e110233110305_)))) + (##car _e110215110287_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd110232110308_)) + (gx#identifier? _hd110214110290_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd110232110308_)) + _hd110214110290_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110231110310_)) - (let ((_e110236110313_ + _tl110213110292_)) + (let ((_e110218110295_ (let () (declare (not safe)) (gx#stx-e - _tl110231110310_)))) - (let ((_tl110234110318_ + _tl110213110292_)))) + (let ((_tl110216110300_ (let () (declare (not safe)) - (##cdr _e110236110313_))) - (_hd110235110316_ + (##cdr _e110218110295_))) + (_hd110217110298_ (let () (declare (not safe)) - (##car _e110236110313_)))) + (##car _e110218110295_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl110234110318_)) + _tl110216110300_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl110228110302_)) - (let ((_e110239110321_ + _tl110210110284_)) + (let ((_e110221110303_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl110228110302_)))) - (let ((_tl110237110326_ + (gx#stx-e _tl110210110284_)))) + (let ((_tl110219110308_ (let () (declare (not safe)) - (##cdr _e110239110321_))) - (_hd110238110324_ + (##cdr _e110221110303_))) + (_hd110220110306_ (let () (declare (not safe)) - (##car _e110239110321_)))) + (##car _e110221110303_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl110237110326_)) + (gx#stx-null? _tl110219110308_)) (if (let () (declare (not safe)) - (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_))))) + (gx#stx-null? _tl110195110244_)) + (___kont113170113171_ + _hd110217110298_ + _hd110208110274_ + _hd110108110488_) + (let () (declare (not safe)) (_g110102110226_))) + (let () (declare (not safe)) (_g110102110226_))))) + (let () (declare (not safe)) (_g110102110226_))) + (let () (declare (not safe)) (_g110102110226_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g110120110244_))) + (_g110102110226_))) (let () (declare (not safe)) - (_g110120110244_))) + (_g110102110226_))) (let () (declare (not safe)) - (_g110120110244_))))) + (_g110102110226_))))) (let () (declare (not safe)) - (_g110120110244_))))) - (let () (declare (not safe)) (_g110120110244_))) - (let () (declare (not safe)) (_g110120110244_))))) + (_g110102110226_))))) + (let () (declare (not safe)) (_g110102110226_))) + (let () (declare (not safe)) (_g110102110226_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g110120110244_))) + (_g110102110226_))) (let () (declare (not safe)) - (_g110120110244_))) + (_g110102110226_))) (let () (declare (not safe)) - (_g110120110244_))))) + (_g110102110226_))))) (let () (declare (not safe)) - (_g110120110244_))))) - (let () (declare (not safe)) (_g110120110244_))) - (let () (declare (not safe)) (_g110120110244_))) - (let () (declare (not safe)) (_g110120110244_))))) + (_g110102110226_))))) + (let () (declare (not safe)) (_g110102110226_))) + (let () (declare (not safe)) (_g110102110226_))) + (let () (declare (not safe)) (_g110102110226_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g110120110244_))))) + (_g110102110226_))))) (let () (declare (not safe)) - (_g110120110244_)))))) + (_g110102110226_)))))) (let () (declare (not safe)) - (_g110120110244_)))))))) - (_generate1109966_ - (lambda (_args110101_ _arglen110102_ _hd110103_ _body110104_) - (let* ((_len110106_ + (_g110102110226_)))))))) + (_generate1109948_ + (lambda (_args110083_ _arglen110084_ _hd110085_ _body110086_) + (let* ((_len110088_ (let () (declare (not safe)) - (gx#stx-length _hd110103_))) - (_condition110108_ + (gx#stx-length _hd110085_))) + (_condition110090_ (if (let () (declare (not safe)) - (gx#stx-list? _hd110103_)) + (gx#stx-list? _hd110085_)) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114495 - (let ((__tmp114496 + (let ((__tmp114477 + (let ((__tmp114478 (let () (declare (not safe)) - (cons _len110106_ '())))) + (cons _len110088_ '())))) (declare (not safe)) - (cons _arglen110102_ - __tmp114496)))) + (cons _arglen110084_ + __tmp114478)))) (declare (not safe)) - (cons '##fx= __tmp114495)) - (let ((__tmp114489 - (let ((__tmp114490 - (let ((__tmp114491 - (let ((__tmp114492 - (let ((__tmp114493 + (cons '##fx= __tmp114477)) + (let ((__tmp114471 + (let ((__tmp114472 + (let ((__tmp114473 + (let ((__tmp114474 + (let ((__tmp114475 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114494 + (let ((__tmp114476 (let () (declare (not safe)) - (cons _len110106_ '())))) + (cons _len110088_ '())))) (declare (not safe)) - (cons _arglen110102_ __tmp114494)))) + (cons _arglen110084_ __tmp114476)))) (declare (not safe)) - (cons '##fx= __tmp114493)))) + (cons '##fx= __tmp114475)))) (declare (not safe)) - (cons __tmp114492 '())))) + (cons __tmp114474 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp114491)))) + __tmp114473)))) (declare (not safe)) - (cons '() __tmp114490)))) + (cons '() __tmp114472)))) (declare (not safe)) - (cons 'let __tmp114489))) - (if (> _len110106_ '0) + (cons 'let __tmp114471))) + (if (> _len110088_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114487 - (let ((__tmp114488 + (let ((__tmp114469 + (let ((__tmp114470 (let () (declare (not safe)) - (cons _len110106_ + (cons _len110088_ '())))) (declare (not safe)) - (cons _arglen110102_ - __tmp114488)))) + (cons _arglen110084_ + __tmp114470)))) (declare (not safe)) - (cons '##fx>= __tmp114487)) - (let ((__tmp114481 - (let ((__tmp114482 - (let ((__tmp114483 - (let ((__tmp114484 + (cons '##fx>= __tmp114469)) + (let ((__tmp114463 + (let ((__tmp114464 + (let ((__tmp114465 + (let ((__tmp114466 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114485 - (let ((__tmp114486 + (let ((__tmp114467 + (let ((__tmp114468 (let () (declare (not safe)) - (cons _len110106_ '())))) + (cons _len110088_ '())))) (declare (not safe)) - (cons _arglen110102_ __tmp114486)))) + (cons _arglen110084_ __tmp114468)))) (declare (not safe)) - (cons '##fx>= __tmp114485)))) + (cons '##fx>= __tmp114467)))) (declare (not safe)) - (cons __tmp114484 '())))) + (cons __tmp114466 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114483)))) + (cons '(declare (not safe)) __tmp114465)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp114482)))) + (cons '() __tmp114464)))) (declare (not safe)) - (cons 'let __tmp114481))) + (cons 'let __tmp114463))) '#t))) - (_dispatch110110_ + (_dispatch110092_ (if (let () (declare (not safe)) - (_dispatch-case?109964_ - _hd110103_ - _body110104_)) + (_dispatch-case?109946_ + _hd110085_ + _body110086_)) (let () (declare (not safe)) - (_dispatch-case-e109965_ - _hd110103_ - _body110104_)) + (_dispatch-case-e109947_ + _hd110085_ + _body110086_)) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _self109961_ - _hd110103_ - _body110104_))))) - (let ((__tmp114497 - (let ((__tmp114498 - (let ((__tmp114499 - (let ((__tmp114500 + _self109943_ + _hd110085_ + _body110086_))))) + (let ((__tmp114479 + (let ((__tmp114480 + (let ((__tmp114481 + (let ((__tmp114482 (let () (declare (not safe)) - (cons _args110101_ '())))) + (cons _args110083_ '())))) (declare (not safe)) - (cons _dispatch110110_ - __tmp114500)))) + (cons _dispatch110092_ + __tmp114482)))) (declare (not safe)) - (cons 'apply __tmp114499)))) + (cons 'apply __tmp114481)))) (declare (not safe)) - (cons __tmp114498 '())))) + (cons __tmp114480 '())))) (declare (not safe)) - (cons _condition110108_ __tmp114497)))))) - (let* ((_g109968109996_ - (lambda (_g109969109993_) + (cons _condition110090_ __tmp114479)))))) + (let* ((_g109950109978_ + (lambda (_g109951109975_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g109969109993_)))) - (_g109967110098_ - (lambda (_g109969109999_) + _g109951109975_)))) + (_g109949110080_ + (lambda (_g109951109981_) (if (let () (declare (not safe)) - (gx#stx-pair? _g109969109999_)) - (let ((_e109974110001_ + (gx#stx-pair? _g109951109981_)) + (let ((_e109956109983_ (let () (declare (not safe)) - (gx#stx-e _g109969109999_)))) - (let ((_hd109973110004_ + (gx#stx-e _g109951109981_)))) + (let ((_hd109955109986_ (let () (declare (not safe)) - (##car _e109974110001_))) - (_tl109972110006_ + (##car _e109956109983_))) + (_tl109954109988_ (let () (declare (not safe)) - (##cdr _e109974110001_)))) + (##cdr _e109956109983_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl109972110006_)) - (let ((_g114501_ + (gx#stx-pair/null? _tl109954109988_)) + (let ((_g114483_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl109972110006_ + _tl109954109988_ '0)))) (begin - (let ((_g114502_ + (let ((_g114484_ (let () (declare (not safe)) - (if (##values? _g114501_) - (##vector-length _g114501_) + (if (##values? _g114483_) + (##vector-length _g114483_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g114502_ 2))) + (##fx= _g114484_ 2))) (error "Context expects 2 values" - _g114502_))) - (let ((_target109975110009_ + _g114484_))) + (let ((_target109957109991_ (let () (declare (not safe)) - (##vector-ref _g114501_ 0))) - (_tl109977110011_ + (##vector-ref _g114483_ 0))) + (_tl109959109993_ (let () (declare (not safe)) - (##vector-ref _g114501_ 1)))) + (##vector-ref _g114483_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl109977110011_)) - (letrec ((_loop109978110014_ - (lambda (_hd109976110017_ - _body109982110019_ - _hd109983110021_) + (gx#stx-null? _tl109959109993_)) + (letrec ((_loop109960109996_ + (lambda (_hd109958109999_ + _body109964110001_ + _hd109965110003_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd109976110017_)) - (let ((_e109979110024_ + _hd109958109999_)) + (let ((_e109961110006_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd109976110017_)))) - (let ((_lp-hd109980110027_ + (gx#stx-e _hd109958109999_)))) + (let ((_lp-hd109962110009_ (let () (declare (not safe)) - (##car _e109979110024_))) - (_lp-tl109981110029_ + (##car _e109961110006_))) + (_lp-tl109963110011_ (let () (declare (not safe)) - (##cdr _e109979110024_)))) + (##cdr _e109961110006_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd109980110027_)) - (let ((_e109988110032_ + (gx#stx-pair? _lp-hd109962110009_)) + (let ((_e109970110014_ (let () (declare (not safe)) - (gx#stx-e _lp-hd109980110027_)))) - (let ((_hd109987110035_ + (gx#stx-e _lp-hd109962110009_)))) + (let ((_hd109969110017_ (let () (declare (not safe)) - (##car _e109988110032_))) - (_tl109986110037_ + (##car _e109970110014_))) + (_tl109968110019_ (let () (declare (not safe)) - (##cdr _e109988110032_)))) + (##cdr _e109970110014_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109986110037_)) - (let ((_e109991110040_ + (gx#stx-pair? _tl109968110019_)) + (let ((_e109973110022_ (let () (declare (not safe)) - (gx#stx-e _tl109986110037_)))) - (let ((_hd109990110043_ + (gx#stx-e _tl109968110019_)))) + (let ((_hd109972110025_ (let () (declare (not safe)) - (##car _e109991110040_))) - (_tl109989110045_ + (##car _e109973110022_))) + (_tl109971110027_ (let () (declare (not safe)) - (##cdr _e109991110040_)))) + (##cdr _e109973110022_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl109989110045_)) - (let ((__tmp114531 + (gx#stx-null? _tl109971110027_)) + (let ((__tmp114513 (let () (declare (not safe)) - (cons _hd109990110043_ - _body109982110019_))) - (__tmp114530 + (cons _hd109972110025_ + _body109964110001_))) + (__tmp114512 (let () (declare (not safe)) - (cons _hd109987110035_ - _hd109983110021_)))) + (cons _hd109969110017_ + _hd109965110003_)))) (declare (not safe)) - (_loop109978110014_ - _lp-tl109981110029_ - __tmp114531 - __tmp114530)) + (_loop109960109996_ + _lp-tl109963110011_ + __tmp114513 + __tmp114512)) (let () (declare (not safe)) - (_g109968109996_ - _g109969109999_))))) + (_g109950109978_ + _g109951109981_))))) (let () (declare (not safe)) - (_g109968109996_ _g109969109999_))))) + (_g109950109978_ _g109951109981_))))) (let () (declare (not safe)) - (_g109968109996_ _g109969109999_))))) - (let ((_body109984110048_ (reverse _body109982110019_)) - (_hd109985110050_ (reverse _hd109983110021_))) - ((lambda (_L110053_ _L110054_) - (let ((_args110073_ + (_g109950109978_ _g109951109981_))))) + (let ((_body109966110030_ (reverse _body109964110001_)) + (_hd109967110032_ (reverse _hd109965110003_))) + ((lambda (_L110035_ _L110036_) + (let ((_args110055_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_arglen110074_ + (_arglen110056_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_name110075_ - (let ((_$e110070_ - (let ((__tmp114503 + (_name110057_ + (let ((_$e110052_ + (let ((__tmp114485 (gxc#current-compile-runtime-names))) (declare (not safe)) - (hash-get __tmp114503 _stx109962_)))) - (if _$e110070_ - _$e110070_ + (hash-get __tmp114485 _stx109944_)))) + (if _$e110052_ + _$e110052_ ''case-lambda-dispatch)))) - (let ((__tmp114504 - (let ((__tmp114505 - (let ((__tmp114506 - (let ((__tmp114507 - (let ((__tmp114520 - (let ((__tmp114521 + (let ((__tmp114486 + (let ((__tmp114487 + (let ((__tmp114488 + (let ((__tmp114489 + (let ((__tmp114502 + (let ((__tmp114503 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114522 - (let ((__tmp114523 + (let ((__tmp114504 + (let ((__tmp114505 (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114529 + (let ((__tmp114511 (let () (declare (not safe)) - (cons _args110073_ + (cons _args110055_ '())))) (declare (not safe)) - (cons '##length __tmp114529)) - (let ((__tmp114524 - (let ((__tmp114525 - (let ((__tmp114526 + (cons '##length __tmp114511)) + (let ((__tmp114506 + (let ((__tmp114507 + (let ((__tmp114508 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114527 - (let ((__tmp114528 + (let ((__tmp114509 + (let ((__tmp114510 (let () (declare (not safe)) - (cons _args110073_ '())))) + (cons _args110055_ '())))) (declare (not safe)) - (cons '##length __tmp114528)))) + (cons '##length __tmp114510)))) (declare (not safe)) - (cons __tmp114527 '())))) + (cons __tmp114509 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114526)))) + (cons '(declare (not safe)) __tmp114508)))) (declare (not safe)) - (cons '() __tmp114525)))) + (cons '() __tmp114507)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp114524))))) + (cons 'let __tmp114506))))) (declare (not safe)) - (cons __tmp114523 '())))) + (cons __tmp114505 '())))) (declare (not safe)) - (cons _arglen110074_ __tmp114522)))) + (cons _arglen110056_ __tmp114504)))) (declare (not safe)) - (cons __tmp114521 '()))) - (__tmp114508 - (let ((__tmp114509 - (let ((__tmp114510 - (let ((__tmp114514 - (let ((__tmp114515 - (let ((__tmp114516 - (let ((__tmp114517 - (let ((__tmp114518 + (cons __tmp114503 '()))) + (__tmp114490 + (let ((__tmp114491 + (let ((__tmp114492 + (let ((__tmp114496 + (let ((__tmp114497 + (let ((__tmp114498 + (let ((__tmp114499 + (let ((__tmp114500 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114519 + (let ((__tmp114501 (let () (declare (not safe)) - (cons _args110073_ '())))) + (cons _args110055_ '())))) (declare (not safe)) - (cons _name110075_ __tmp114519)))) + (cons _name110057_ __tmp114501)))) (declare (not safe)) (cons '##raise-wrong-number-of-arguments-exception - __tmp114518)))) + __tmp114500)))) (declare (not safe)) - (cons __tmp114517 '())))) + (cons __tmp114499 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'else __tmp114516)))) + (cons 'else __tmp114498)))) (declare (not safe)) - (cons __tmp114515 '()))) - (__tmp114511 - (map (lambda (_g110076110079_ - _g110077110081_) + (cons __tmp114497 '()))) + (__tmp114493 + (map (lambda (_g110058110061_ + _g110059110063_) (let () (declare (not safe)) - (_generate1109966_ - _args110073_ - _arglen110074_ - _g110076110079_ - _g110077110081_))) - (let ((__tmp114512 - (lambda (_g110083110086_ - _g110084110088_) + (_generate1109948_ + _args110055_ + _arglen110056_ + _g110058110061_ + _g110059110063_))) + (let ((__tmp114494 + (lambda (_g110065110068_ + _g110066110070_) (let () (declare (not safe)) - (cons _g110083110086_ - _g110084110088_))))) + (cons _g110065110068_ + _g110066110070_))))) (declare (not safe)) - (foldr1 __tmp114512 + (foldr1 __tmp114494 '() - _L110054_)) - (let ((__tmp114513 - (lambda (_g110090110093_ - _g110091110095_) + _L110036_)) + (let ((__tmp114495 + (lambda (_g110072110075_ + _g110073110077_) (let () (declare (not safe)) - (cons _g110090110093_ - _g110091110095_))))) + (cons _g110072110075_ + _g110073110077_))))) (declare (not safe)) - (foldr1 __tmp114513 + (foldr1 __tmp114495 '() - _L110053_))))) + _L110035_))))) (declare (not safe)) - (foldr1 cons __tmp114514 __tmp114511)))) + (foldr1 cons __tmp114496 __tmp114493)))) (declare (not safe)) - (cons 'cond __tmp114510)))) + (cons 'cond __tmp114492)))) (declare (not safe)) - (cons __tmp114509 '())))) + (cons __tmp114491 '())))) (declare (not safe)) - (cons __tmp114520 __tmp114508)))) + (cons __tmp114502 __tmp114490)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp114507)))) + (cons 'let __tmp114489)))) (declare (not safe)) - (cons __tmp114506 '())))) + (cons __tmp114488 '())))) (declare (not safe)) - (cons _args110073_ __tmp114505)))) + (cons _args110055_ __tmp114487)))) (declare (not safe)) - (cons 'lambda __tmp114504)))) - _body109984110048_ - _hd109985110050_)))))) + (cons 'lambda __tmp114486)))) + _body109966110030_ + _hd109967110032_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop109978110014_ - _target109975110009_ + (_loop109960109996_ + _target109957109991_ '() '()))) (let () (declare (not safe)) - (_g109968109996_ - _g109969109999_)))))) + (_g109950109978_ + _g109951109981_)))))) (let () (declare (not safe)) - (_g109968109996_ _g109969109999_))))) + (_g109950109978_ _g109951109981_))))) (let () (declare (not safe)) - (_g109968109996_ _g109969109999_)))))) + (_g109950109978_ _g109951109981_)))))) (declare (not safe)) - (_g109967110098_ _stx109962_))))) + (_g109949110080_ _stx109944_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_self109232_ _stx109233_ _compiled-body?109234_) - (letrec ((_generate-simple109236_ - (lambda (_hd109946_ _body109947_) - (let ((__tmp114532 - (let ((__tmp114533 + (lambda (_self109214_ _stx109215_ _compiled-body?109216_) + (letrec ((_generate-simple109218_ + (lambda (_hd109928_ _body109929_) + (let ((__tmp114514 + (let ((__tmp114515 (let () (declare (not safe)) (gxc#generate-runtime-simple-let - _self109232_ + _self109214_ 'let - _hd109946_ - _body109947_ - _compiled-body?109234_)))) + _hd109928_ + _body109929_ + _compiled-body?109216_)))) (declare (not safe)) - (_coalesce-let*109238_ __tmp114533)))) + (_coalesce-let*109220_ __tmp114515)))) (declare (not safe)) - (_coalesce-boolean109237_ __tmp114532)))) - (_coalesce-boolean109237_ - (lambda (_code109807_) + (_coalesce-boolean109219_ __tmp114514)))) + (_coalesce-boolean109219_ + (lambda (_code109789_) (if (gxc#current-compile-boolean-context) - (let* ((_code109808109834_ _code109807_) - (_else109810109842_ (lambda () _code109807_)) - (_K109812109879_ - (lambda (_expr2109845_ - _expr1109846_ - _id109847_) - (let* ((_expr2109848109856_ _expr2109845_) - (_else109850109864_ + (let* ((_code109790109816_ _code109789_) + (_else109792109824_ (lambda () _code109789_)) + (_K109794109861_ + (lambda (_expr2109827_ + _expr1109828_ + _id109829_) + (let* ((_expr2109830109838_ _expr2109827_) + (_else109832109846_ (lambda () - (let ((__tmp114534 - (let ((__tmp114535 + (let ((__tmp114516 + (let ((__tmp114517 (let () (declare (not safe)) - (cons _expr2109845_ + (cons _expr2109827_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _expr1109846_ - __tmp114535)))) + (cons _expr1109828_ + __tmp114517)))) (declare (not safe)) - (cons 'or __tmp114534)))) - (_K109852109869_ - (lambda (_exprs109867_) - (let ((__tmp114536 + (cons 'or __tmp114516)))) + (_K109834109851_ + (lambda (_exprs109849_) + (let ((__tmp114518 (let () (declare (not safe)) - (cons _expr1109846_ - _exprs109867_)))) + (cons _expr1109828_ + _exprs109849_)))) (declare (not safe)) - (cons 'or __tmp114536))))) + (cons 'or __tmp114518))))) (if (let () (declare (not safe)) - (##pair? _expr2109848109856_)) - (let ((_hd109853109872_ + (##pair? _expr2109830109838_)) + (let ((_hd109835109854_ (let () (declare (not safe)) - (##car _expr2109848109856_))) - (_tl109854109874_ + (##car _expr2109830109838_))) + (_tl109836109856_ (let () (declare (not safe)) - (##cdr _expr2109848109856_)))) + (##cdr _expr2109830109838_)))) (if (let () (declare (not safe)) - (##eq? _hd109853109872_ 'or)) - (let ((_exprs109877_ - _tl109854109874_)) + (##eq? _hd109835109854_ 'or)) + (let ((_exprs109859_ + _tl109836109856_)) (declare (not safe)) - (_K109852109869_ - _exprs109877_)) + (_K109834109851_ + _exprs109859_)) (let () (declare (not safe)) - (_else109850109864_)))) + (_else109832109846_)))) (let () (declare (not safe)) - (_else109850109864_))))))) + (_else109832109846_))))))) (if (let () (declare (not safe)) - (##pair? _code109808109834_)) - (let ((_hd109813109882_ + (##pair? _code109790109816_)) + (let ((_hd109795109864_ (let () (declare (not safe)) - (##car _code109808109834_))) - (_tl109814109884_ + (##car _code109790109816_))) + (_tl109796109866_ (let () (declare (not safe)) - (##cdr _code109808109834_)))) + (##cdr _code109790109816_)))) (if (let () (declare (not safe)) - (##eq? _hd109813109882_ 'let)) + (##eq? _hd109795109864_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl109814109884_)) - (let ((_hd109815109887_ + (##pair? _tl109796109866_)) + (let ((_hd109797109869_ (let () (declare (not safe)) - (##car _tl109814109884_))) - (_tl109816109889_ + (##car _tl109796109866_))) + (_tl109798109871_ (let () (declare (not safe)) - (##cdr _tl109814109884_)))) + (##cdr _tl109796109866_)))) (if (let () (declare (not safe)) - (##pair? _hd109815109887_)) - (let ((_hd109827109892_ + (##pair? _hd109797109869_)) + (let ((_hd109809109874_ (let () (declare (not safe)) - (##car _hd109815109887_))) - (_tl109828109894_ + (##car _hd109797109869_))) + (_tl109810109876_ (let () (declare (not safe)) - (##cdr _hd109815109887_)))) + (##cdr _hd109797109869_)))) (if (let () (declare (not safe)) - (##pair? _hd109827109892_)) - (let ((_hd109829109897_ + (##pair? _hd109809109874_)) + (let ((_hd109811109879_ (let () (declare (not safe)) - (##car _hd109827109892_))) - (_tl109830109899_ + (##car _hd109809109874_))) + (_tl109812109881_ (let () (declare (not safe)) - (##cdr _hd109827109892_)))) - (let ((_id109902_ - _hd109829109897_)) + (##cdr _hd109809109874_)))) + (let ((_id109884_ + _hd109811109879_)) (if (let () (declare (not safe)) - (##pair? _tl109830109899_)) - (let ((_hd109831109904_ + (##pair? _tl109812109881_)) + (let ((_hd109813109886_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _tl109830109899_))) - (_tl109832109906_ + (##car _tl109812109881_))) + (_tl109814109888_ (let () (declare (not safe)) - (##cdr _tl109830109899_)))) - (let ((_expr1109909_ _hd109831109904_)) + (##cdr _tl109812109881_)))) + (let ((_expr1109891_ _hd109813109886_)) (if (let () (declare (not safe)) - (##null? _tl109832109906_)) + (##null? _tl109814109888_)) (if (let () (declare (not safe)) - (##null? _tl109828109894_)) + (##null? _tl109810109876_)) (if (let () (declare (not safe)) - (##pair? _tl109816109889_)) - (let ((_hd109817109911_ + (##pair? _tl109798109871_)) + (let ((_hd109799109893_ (let () (declare (not safe)) - (##car _tl109816109889_))) - (_tl109818109913_ + (##car _tl109798109871_))) + (_tl109800109895_ (let () (declare (not safe)) - (##cdr _tl109816109889_)))) + (##cdr _tl109798109871_)))) (if (let () (declare (not safe)) - (##pair? _hd109817109911_)) - (let ((_hd109819109916_ + (##pair? _hd109799109893_)) + (let ((_hd109801109898_ (let () (declare (not safe)) - (##car _hd109817109911_))) - (_tl109820109918_ + (##car _hd109799109893_))) + (_tl109802109900_ (let () (declare (not safe)) - (##cdr _hd109817109911_)))) + (##cdr _hd109799109893_)))) (if (let () (declare (not safe)) - (##eq? _hd109819109916_ 'if)) + (##eq? _hd109801109898_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl109820109918_)) - (let ((_hd109821109921_ + (##pair? _tl109802109900_)) + (let ((_hd109803109903_ (let () (declare (not safe)) - (##car _tl109820109918_))) - (_tl109822109923_ + (##car _tl109802109900_))) + (_tl109804109905_ (let () (declare (not safe)) - (##cdr _tl109820109918_)))) - (if ((lambda (_g109925109927_) + (##cdr _tl109802109900_)))) + (if ((lambda (_g109907109909_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (eq? _g109925109927_ _id109902_))) - _hd109821109921_) - (if (let () (declare (not safe)) (##pair? _tl109822109923_)) - (let ((_hd109823109930_ + (eq? _g109907109909_ _id109884_))) + _hd109803109903_) + (if (let () (declare (not safe)) (##pair? _tl109804109905_)) + (let ((_hd109805109912_ (let () (declare (not safe)) - (##car _tl109822109923_))) - (_tl109824109932_ + (##car _tl109804109905_))) + (_tl109806109914_ (let () (declare (not safe)) - (##cdr _tl109822109923_)))) - (if ((lambda (_g109934109936_) + (##cdr _tl109804109905_)))) + (if ((lambda (_g109916109918_) (let () (declare (not safe)) - (eq? _g109934109936_ _id109902_))) - _hd109823109930_) + (eq? _g109916109918_ _id109884_))) + _hd109805109912_) (if (let () (declare (not safe)) - (##pair? _tl109824109932_)) - (let ((_hd109825109939_ + (##pair? _tl109806109914_)) + (let ((_hd109807109921_ (let () (declare (not safe)) - (##car _tl109824109932_))) - (_tl109826109941_ + (##car _tl109806109914_))) + (_tl109808109923_ (let () (declare (not safe)) - (##cdr _tl109824109932_)))) - (let ((_expr2109944_ _hd109825109939_)) + (##cdr _tl109806109914_)))) + (let ((_expr2109926_ _hd109807109921_)) (if (let () (declare (not safe)) - (##null? _tl109826109941_)) + (##null? _tl109808109923_)) (if (let () (declare (not safe)) - (##null? _tl109818109913_)) + (##null? _tl109800109895_)) (let () (declare (not safe)) - (_K109812109879_ - _expr2109944_ - _expr1109909_ - _id109902_)) + (_K109794109861_ + _expr2109926_ + _expr1109891_ + _id109884_)) (let () (declare (not safe)) - (_else109810109842_))) + (_else109792109824_))) (let () (declare (not safe)) - (_else109810109842_))))) + (_else109792109824_))))) (let () (declare (not safe)) - (_else109810109842_))) + (_else109792109824_))) (let () (declare (not safe)) - (_else109810109842_)))) - (let () (declare (not safe)) (_else109810109842_))) - (let () (declare (not safe)) (_else109810109842_)))) + (_else109792109824_)))) + (let () (declare (not safe)) (_else109792109824_))) + (let () (declare (not safe)) (_else109792109824_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else109810109842_))) + (_else109792109824_))) (let () (declare (not safe)) - (_else109810109842_)))) + (_else109792109824_)))) (let () (declare (not safe)) - (_else109810109842_)))) + (_else109792109824_)))) (let () (declare (not safe)) - (_else109810109842_))) + (_else109792109824_))) (let () (declare (not safe)) - (_else109810109842_))) + (_else109792109824_))) (let () (declare (not safe)) - (_else109810109842_))))) - (let () (declare (not safe)) (_else109810109842_))))) + (_else109792109824_))))) + (let () (declare (not safe)) (_else109792109824_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else109810109842_)))) + (_else109792109824_)))) (let () (declare (not safe)) - (_else109810109842_)))) + (_else109792109824_)))) (let () (declare (not safe)) - (_else109810109842_))) + (_else109792109824_))) (let () (declare (not safe)) - (_else109810109842_)))) + (_else109792109824_)))) (let () (declare (not safe)) - (_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 + (_else109792109824_)))) + _code109789_))) + (_coalesce-let*109220_ + (lambda (_code109522_) + (let* ((_code109523109587_ _code109522_) + (_else109527109595_ (lambda () _code109522_))) + (let ((_K109569109740_ + (lambda (_body109736_ _expr109737_ _id109738_) + (let ((__tmp114519 + (let ((__tmp114520 + (let ((__tmp114521 + (let ((__tmp114522 (let () (declare (not safe)) - (cons _expr109755_ + (cons _expr109737_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _id109756_ __tmp114540)))) + (cons _id109738_ __tmp114522)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114539 '())))) + (cons __tmp114521 '())))) (declare (not safe)) - (cons __tmp114538 _body109754_)))) + (cons __tmp114520 _body109736_)))) (declare (not safe)) - (cons 'let __tmp114537)))) - (_K109564109683_ - (lambda (_body109677_ - _expr2109678_ - _id2109679_ - _expr1109680_ - _id1109681_) - (let ((__tmp114541 - (let ((__tmp114542 - (let ((__tmp114546 - (let ((__tmp114547 + (cons 'let __tmp114519)))) + (_K109546109665_ + (lambda (_body109659_ + _expr2109660_ + _id2109661_ + _expr1109662_ + _id1109663_) + (let ((__tmp114523 + (let ((__tmp114524 + (let ((__tmp114528 + (let ((__tmp114529 (let () (declare (not safe)) - (cons _expr1109680_ + (cons _expr1109662_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _id1109681_ __tmp114547))) + (cons _id1109663_ __tmp114529))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114543 - (let ((__tmp114544 - (let ((__tmp114545 + (__tmp114525 + (let ((__tmp114526 + (let ((__tmp114527 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr2109678_ '())))) + (cons _expr2109660_ '())))) (declare (not safe)) - (cons _id2109679_ __tmp114545)))) + (cons _id2109661_ __tmp114527)))) (declare (not safe)) - (cons __tmp114544 '())))) + (cons __tmp114526 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114546 - __tmp114543)))) + (cons __tmp114528 + __tmp114525)))) (declare (not safe)) - (cons __tmp114542 _body109677_)))) + (cons __tmp114524 _body109659_)))) (declare (not safe)) - (cons 'let* __tmp114541)))) - (_K109547109622_ - (lambda (_body109617_ - _bind109618_ - _expr1109619_ - _id1109620_) - (let ((__tmp114548 - (let ((__tmp114549 - (let ((__tmp114550 - (let ((__tmp114551 + (cons 'let* __tmp114523)))) + (_K109529109604_ + (lambda (_body109599_ + _bind109600_ + _expr1109601_ + _id1109602_) + (let ((__tmp114530 + (let ((__tmp114531 + (let ((__tmp114532 + (let ((__tmp114533 (let () (declare (not safe)) - (cons _expr1109619_ + (cons _expr1109601_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _id1109620_ __tmp114551)))) + (cons _id1109602_ __tmp114533)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114550 - _bind109618_)))) + (cons __tmp114532 + _bind109600_)))) (declare (not safe)) - (cons __tmp114549 _body109617_)))) + (cons __tmp114531 _body109599_)))) (declare (not safe)) - (cons 'let* __tmp114548))))) + (cons 'let* __tmp114530))))) (if (let () (declare (not safe)) - (##pair? _code109541109605_)) - (let ((_tl109589109763_ + (##pair? _code109523109587_)) + (let ((_tl109571109745_ (let () (declare (not safe)) - (##cdr _code109541109605_))) - (_hd109588109761_ + (##cdr _code109523109587_))) + (_hd109570109743_ (let () (declare (not safe)) - (##car _code109541109605_)))) + (##car _code109523109587_)))) (if (let () (declare (not safe)) - (##eq? _hd109588109761_ 'let)) + (##eq? _hd109570109743_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl109589109763_)) - (let ((_tl109591109768_ + (##pair? _tl109571109745_)) + (let ((_tl109573109750_ (let () (declare (not safe)) - (##cdr _tl109589109763_))) - (_hd109590109766_ + (##cdr _tl109571109745_))) + (_hd109572109748_ (let () (declare (not safe)) - (##car _tl109589109763_)))) + (##car _tl109571109745_)))) (if (let () (declare (not safe)) - (##pair? _hd109590109766_)) - (let ((_tl109599109773_ + (##pair? _hd109572109748_)) + (let ((_tl109581109755_ (let () (declare (not safe)) - (##cdr _hd109590109766_))) - (_hd109598109771_ + (##cdr _hd109572109748_))) + (_hd109580109753_ (let () (declare (not safe)) - (##car _hd109590109766_)))) + (##car _hd109572109748_)))) (if (let () (declare (not safe)) - (##pair? _hd109598109771_)) - (let ((_tl109601109778_ + (##pair? _hd109580109753_)) + (let ((_tl109583109760_ (let () (declare (not safe)) - (##cdr _hd109598109771_))) - (_hd109600109776_ + (##cdr _hd109580109753_))) + (_hd109582109758_ (let () (declare (not safe)) - (##car _hd109598109771_)))) + (##car _hd109580109753_)))) (if (let () (declare (not safe)) - (##pair? _tl109601109778_)) - (let ((_tl109603109785_ + (##pair? _tl109583109760_)) + (let ((_tl109585109767_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _tl109601109778_))) - (_hd109602109783_ - (let () (declare (not safe)) (##car _tl109601109778_)))) - (if (let () (declare (not safe)) (##null? _tl109603109785_)) + (##cdr _tl109583109760_))) + (_hd109584109765_ + (let () (declare (not safe)) (##car _tl109583109760_)))) + (if (let () (declare (not safe)) (##null? _tl109585109767_)) (if (let () (declare (not safe)) - (##null? _tl109599109773_)) + (##null? _tl109581109755_)) (if (let () (declare (not safe)) - (##pair? _tl109591109768_)) - (let ((_tl109593109792_ + (##pair? _tl109573109750_)) + (let ((_tl109575109774_ (let () (declare (not safe)) - (##cdr _tl109591109768_))) - (_hd109592109790_ + (##cdr _tl109573109750_))) + (_hd109574109772_ (let () (declare (not safe)) - (##car _tl109591109768_)))) + (##car _tl109573109750_)))) (if (let () (declare (not safe)) - (##pair? _hd109592109790_)) - (let ((_tl109595109797_ + (##pair? _hd109574109772_)) + (let ((_tl109577109779_ (let () (declare (not safe)) - (##cdr _hd109592109790_))) - (_hd109594109795_ + (##cdr _hd109574109772_))) + (_hd109576109777_ (let () (declare (not safe)) - (##car _hd109592109790_)))) + (##car _hd109574109772_)))) (if (let () (declare (not safe)) - (##eq? _hd109594109795_ 'let)) + (##eq? _hd109576109777_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl109595109797_)) - (let ((_tl109597109802_ + (##pair? _tl109577109779_)) + (let ((_tl109579109784_ (let () (declare (not safe)) - (##cdr _tl109595109797_))) - (_hd109596109800_ + (##cdr _tl109577109779_))) + (_hd109578109782_ (let () (declare (not safe)) - (##car _tl109595109797_)))) + (##car _tl109577109779_)))) (if (let () (declare (not safe)) - (##null? _hd109596109800_)) + (##null? _hd109578109782_)) (if (let () (declare (not safe)) - (##null? _tl109593109792_)) - (let ((_id109781_ - _hd109600109776_) - (_expr109788_ - _hd109602109783_) - (_body109805_ - _tl109597109802_)) + (##null? _tl109575109774_)) + (let ((_id109763_ + _hd109582109758_) + (_expr109770_ + _hd109584109765_) + (_body109787_ + _tl109579109784_)) (let () (declare (not safe)) - (_K109587109758_ - _body109805_ - _expr109788_ - _id109781_))) + (_K109569109740_ + _body109787_ + _expr109770_ + _id109763_))) (let () (declare (not safe)) - (_else109545109613_))) + (_else109527109595_))) (if (let () (declare (not safe)) - (##pair? _hd109596109800_)) - (let ((_tl109576109732_ + (##pair? _hd109578109782_)) + (let ((_tl109558109714_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _hd109596109800_))) - (_hd109575109730_ - (let () (declare (not safe)) (##car _hd109596109800_)))) - (if (let () (declare (not safe)) (##pair? _hd109575109730_)) - (let ((_tl109578109737_ + (##cdr _hd109578109782_))) + (_hd109557109712_ + (let () (declare (not safe)) (##car _hd109578109782_)))) + (if (let () (declare (not safe)) (##pair? _hd109557109712_)) + (let ((_tl109560109719_ (let () (declare (not safe)) - (##cdr _hd109575109730_))) - (_hd109577109735_ + (##cdr _hd109557109712_))) + (_hd109559109717_ (let () (declare (not safe)) - (##car _hd109575109730_)))) + (##car _hd109557109712_)))) (if (let () (declare (not safe)) - (##pair? _tl109578109737_)) - (let ((_tl109580109744_ + (##pair? _tl109560109719_)) + (let ((_tl109562109726_ (let () (declare (not safe)) - (##cdr _tl109578109737_))) - (_hd109579109742_ + (##cdr _tl109560109719_))) + (_hd109561109724_ (let () (declare (not safe)) - (##car _tl109578109737_)))) + (##car _tl109560109719_)))) (if (let () (declare (not safe)) - (##null? _tl109580109744_)) + (##null? _tl109562109726_)) (if (let () (declare (not safe)) - (##null? _tl109576109732_)) + (##null? _tl109558109714_)) (if (let () (declare (not safe)) - (##null? _tl109593109792_)) - (let ((_id1109706_ _hd109600109776_) - (_expr1109713_ - _hd109602109783_) - (_id2109740_ _hd109577109735_) - (_expr2109747_ - _hd109579109742_) - (_body109749_ - _tl109597109802_)) + (##null? _tl109575109774_)) + (let ((_id1109688_ _hd109582109758_) + (_expr1109695_ + _hd109584109765_) + (_id2109722_ _hd109559109717_) + (_expr2109729_ + _hd109561109724_) + (_body109731_ + _tl109579109784_)) (let () (declare (not safe)) - (_K109564109683_ - _body109749_ - _expr2109747_ - _id2109740_ - _expr1109713_ - _id1109706_))) + (_K109546109665_ + _body109731_ + _expr2109729_ + _id2109722_ + _expr1109695_ + _id1109688_))) (let () (declare (not safe)) - (_else109545109613_))) + (_else109527109595_))) (let () (declare (not safe)) - (_else109545109613_))) + (_else109527109595_))) (let () (declare (not safe)) - (_else109545109613_)))) + (_else109527109595_)))) (let () (declare (not safe)) - (_else109545109613_)))) - (let () (declare (not safe)) (_else109545109613_)))) - (let () (declare (not safe)) (_else109545109613_))))) + (_else109527109595_)))) + (let () (declare (not safe)) (_else109527109595_)))) + (let () (declare (not safe)) (_else109527109595_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else109545109613_))) + (_else109527109595_))) (if (let () (declare (not safe)) - (##eq? _hd109594109795_ 'let*)) + (##eq? _hd109576109777_ 'let*)) (if (let () (declare (not safe)) - (##pair? _tl109595109797_)) - (let ((_tl109557109666_ + (##pair? _tl109577109779_)) + (let ((_tl109539109648_ (let () (declare (not safe)) - (##cdr _tl109595109797_))) - (_hd109556109664_ + (##cdr _tl109577109779_))) + (_hd109538109646_ (let () (declare (not safe)) - (##car _tl109595109797_)))) + (##car _tl109577109779_)))) (if (let () (declare (not safe)) - (##null? _tl109593109792_)) - (let ((_id1109645_ - _hd109600109776_) - (_expr1109652_ - _hd109602109783_) - (_bind109669_ - _hd109556109664_) - (_body109671_ - _tl109557109666_)) + (##null? _tl109575109774_)) + (let ((_id1109627_ + _hd109582109758_) + (_expr1109634_ + _hd109584109765_) + (_bind109651_ + _hd109538109646_) + (_body109653_ + _tl109539109648_)) (let () (declare (not safe)) - (_K109547109622_ - _body109671_ - _bind109669_ - _expr1109652_ - _id1109645_))) + (_K109529109604_ + _body109653_ + _bind109651_ + _expr1109634_ + _id1109627_))) (let () (declare (not safe)) - (_else109545109613_)))) + (_else109527109595_)))) (let () (declare (not safe)) - (_else109545109613_))) + (_else109527109595_))) (let () (declare (not safe)) - (_else109545109613_))))) + (_else109527109595_))))) (let () (declare (not safe)) - (_else109545109613_)))) + (_else109527109595_)))) (let () (declare (not safe)) - (_else109545109613_))) - (let () (declare (not safe)) (_else109545109613_))) - (let () (declare (not safe)) (_else109545109613_)))) - (let () (declare (not safe)) (_else109545109613_)))) + (_else109527109595_))) + (let () (declare (not safe)) (_else109527109595_))) + (let () (declare (not safe)) (_else109527109595_)))) + (let () (declare (not safe)) (_else109527109595_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else109545109613_)))) + (_else109527109595_)))) (let () (declare (not safe)) - (_else109545109613_)))) + (_else109527109595_)))) (let () (declare (not safe)) - (_else109545109613_))) + (_else109527109595_))) (let () (declare (not safe)) - (_else109545109613_)))) + (_else109527109595_)))) (let () (declare (not safe)) - (_else109545109613_))))))) - (_generate-values109239_ - (lambda (_hd109353_ _body109354_) - (let _lp109356_ ((_rest109358_ _hd109353_) - (_bind109359_ '()) - (_check109360_ '()) - (_post109361_ '())) - (let* ((___stx113487113488_ _rest109358_) - (_g109364109375_ + (_else109527109595_))))))) + (_generate-values109221_ + (lambda (_hd109335_ _body109336_) + (let _lp109338_ ((_rest109340_ _hd109335_) + (_bind109341_ '()) + (_check109342_ '()) + (_post109343_ '())) + (let* ((___stx113469113470_ _rest109340_) + (_g109346109357_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113487113488_))))) - (let ((___kont113489113490_ - (lambda (_L109402_ _L109403_) - (let* ((___stx113443113444_ _L109403_) - (_g109418109443_ + ___stx113469113470_))))) + (let ((___kont113471113472_ + (lambda (_L109384_ _L109385_) + (let* ((___stx113425113426_ _L109385_) + (_g109400109425_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113443113444_))))) - (let ((___kont113445113446_ - (lambda (_L109516_ _L109517_) - (let ((_eid109531_ + ___stx113425113426_))))) + (let ((___kont113427113428_ + (lambda (_L109498_ _L109499_) + (let ((_eid109513_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L109517_))) - (_expr109532_ + _L109499_))) + (_expr109514_ (let () (declare (not safe)) (gxc#compile-e__1 - _self109232_ - _L109516_)))) - (let ((__tmp114552 - (let ((__tmp114553 - (let ((__tmp114554 + _self109214_ + _L109498_)))) + (let ((__tmp114534 + (let ((__tmp114535 + (let ((__tmp114536 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr109532_ '())))) + (cons _expr109514_ '())))) (declare (not safe)) - (cons _eid109531_ __tmp114554)))) + (cons _eid109513_ __tmp114536)))) (declare (not safe)) - (cons __tmp114553 _bind109359_)))) + (cons __tmp114535 _bind109341_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp109356_ - _L109402_ - __tmp114552 - _check109360_ - _post109361_))))) - (___kont113447113448_ - (lambda (_L109464_ _L109465_) - (let* ((_vals109478_ + (_lp109338_ + _L109384_ + __tmp114534 + _check109342_ + _post109343_))))) + (___kont113429113430_ + (lambda (_L109446_ _L109447_) + (let* ((_vals109460_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values109480_ + (_check-values109462_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals109478_ - _L109465_ - _L109464_))) - (_refs109482_ + _vals109460_ + _L109447_ + _L109446_))) + (_refs109464_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals109478_ - _L109465_))) - (_expr109484_ + _vals109460_ + _L109447_))) + (_expr109466_ (let () (declare (not safe)) (gxc#compile-e__1 - _self109232_ - _L109464_)))) - (let ((__tmp114557 - (let ((__tmp114558 - (let ((__tmp114559 + _self109214_ + _L109446_)))) + (let ((__tmp114539 + (let ((__tmp114540 + (let ((__tmp114541 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr109484_ '())))) + (cons _expr109466_ '())))) (declare (not safe)) - (cons _vals109478_ __tmp114559)))) + (cons _vals109460_ __tmp114541)))) (declare (not safe)) - (cons __tmp114558 _bind109359_))) + (cons __tmp114540 _bind109341_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114556 + (__tmp114538 (let () (declare (not safe)) - (cons _check-values109480_ - _check109360_))) - (__tmp114555 + (cons _check-values109462_ + _check109342_))) + (__tmp114537 (let () (declare (not safe)) - (cons _refs109482_ - _post109361_)))) + (cons _refs109464_ + _post109343_)))) (declare (not safe)) - (_lp109356_ - _L109402_ - __tmp114557 - __tmp114556 - __tmp114555)))))) + (_lp109338_ + _L109384_ + __tmp114539 + __tmp114538 + __tmp114537)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113443113444_)) - (let ((_e109424109492_ + (gx#stx-pair? ___stx113425113426_)) + (let ((_e109406109474_ (let () (declare (not safe)) (gx#stx-e - ___stx113443113444_)))) - (let ((_tl109422109497_ + ___stx113425113426_)))) + (let ((_tl109404109479_ (let () (declare (not safe)) - (##cdr _e109424109492_))) - (_hd109423109495_ + (##cdr _e109406109474_))) + (_hd109405109477_ (let () (declare (not safe)) - (##car _e109424109492_)))) + (##car _e109406109474_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd109423109495_)) - (let ((_e109427109500_ + _hd109405109477_)) + (let ((_e109409109482_ (let () (declare (not safe)) (gx#stx-e - _hd109423109495_)))) - (let ((_tl109425109505_ + _hd109405109477_)))) + (let ((_tl109407109487_ (let () (declare (not safe)) - (##cdr _e109427109500_))) - (_hd109426109503_ + (##cdr _e109409109482_))) + (_hd109408109485_ (let () (declare (not safe)) - (##car _e109427109500_)))) + (##car _e109409109482_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl109425109505_)) + _tl109407109487_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl109422109497_)) - (let ((_e109430109508_ + (gx#stx-pair? _tl109404109479_)) + (let ((_e109412109490_ (let () (declare (not safe)) - (gx#stx-e _tl109422109497_)))) - (let ((_tl109428109513_ + (gx#stx-e _tl109404109479_)))) + (let ((_tl109410109495_ (let () (declare (not safe)) - (##cdr _e109430109508_))) - (_hd109429109511_ + (##cdr _e109412109490_))) + (_hd109411109493_ (let () (declare (not safe)) - (##car _e109430109508_)))) + (##car _e109412109490_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl109428109513_)) - (___kont113445113446_ - _hd109429109511_ - _hd109426109503_) - (let () (declare (not safe)) (_g109418109443_))))) - (let () (declare (not safe)) (_g109418109443_))) + (gx#stx-null? _tl109410109495_)) + (___kont113427113428_ + _hd109411109493_ + _hd109408109485_) + (let () (declare (not safe)) (_g109400109425_))))) + (let () (declare (not safe)) (_g109400109425_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109422109497_)) - (let ((_e109438109456_ + (gx#stx-pair? _tl109404109479_)) + (let ((_e109420109438_ (let () (declare (not safe)) - (gx#stx-e _tl109422109497_)))) - (let ((_tl109436109461_ + (gx#stx-e _tl109404109479_)))) + (let ((_tl109418109443_ (let () (declare (not safe)) - (##cdr _e109438109456_))) - (_hd109437109459_ + (##cdr _e109420109438_))) + (_hd109419109441_ (let () (declare (not safe)) - (##car _e109438109456_)))) + (##car _e109420109438_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl109436109461_)) - (___kont113447113448_ - _hd109437109459_ - _hd109423109495_) - (let () (declare (not safe)) (_g109418109443_))))) - (let () (declare (not safe)) (_g109418109443_)))))) + (gx#stx-null? _tl109418109443_)) + (___kont113429113430_ + _hd109419109441_ + _hd109405109477_) + (let () (declare (not safe)) (_g109400109425_))))) + (let () (declare (not safe)) (_g109400109425_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl109422109497_)) - (let ((_e109438109456_ + _tl109404109479_)) + (let ((_e109420109438_ (let () (declare (not safe)) (gx#stx-e - _tl109422109497_)))) - (let ((_tl109436109461_ + _tl109404109479_)))) + (let ((_tl109418109443_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e109438109456_))) - (_hd109437109459_ - (let () (declare (not safe)) (##car _e109438109456_)))) + (##cdr _e109420109438_))) + (_hd109419109441_ + (let () (declare (not safe)) (##car _e109420109438_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl109436109461_)) - (___kont113447113448_ _hd109437109459_ _hd109423109495_) - (let () (declare (not safe)) (_g109418109443_))))) + (gx#stx-null? _tl109418109443_)) + (___kont113429113430_ _hd109419109441_ _hd109405109477_) + (let () (declare (not safe)) (_g109400109425_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g109418109443_)))))) + (_g109400109425_)))))) (let () (declare (not safe)) - (_g109418109443_))))))) - (___kont113491113492_ + (_g109400109425_))))))) + (___kont113473113474_ (lambda () - (let* ((_body109382_ - (if _compiled-body?109234_ - _body109354_ + (let* ((_body109364_ + (if _compiled-body?109216_ + _body109336_ (let () (declare (not safe)) (gxc#compile-e__1 - _self109232_ - _body109354_)))) - (_body109384_ + _self109214_ + _body109336_)))) + (_body109366_ (let () (declare (not safe)) - (_generate-values-post109240_ - _post109361_ - _body109382_))) - (_body109386_ + (_generate-values-post109222_ + _post109343_ + _body109364_))) + (_body109368_ (let () (declare (not safe)) - (_generate-values-check109241_ - _check109360_ - _body109384_)))) - (let ((__tmp114560 - (let ((__tmp114562 - (reverse _bind109359_)) - (__tmp114561 + (_generate-values-check109223_ + _check109342_ + _body109366_)))) + (let ((__tmp114542 + (let ((__tmp114544 + (reverse _bind109341_)) + (__tmp114543 (let () (declare (not safe)) - (cons _body109386_ '())))) + (cons _body109368_ '())))) (declare (not safe)) - (cons __tmp114562 __tmp114561)))) + (cons __tmp114544 __tmp114543)))) (declare (not safe)) - (cons 'let __tmp114560)))))) + (cons 'let __tmp114542)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113487113488_)) - (let ((_e109370109394_ + (gx#stx-pair? ___stx113469113470_)) + (let ((_e109352109376_ (let () (declare (not safe)) - (gx#stx-e ___stx113487113488_)))) - (let ((_tl109368109399_ + (gx#stx-e ___stx113469113470_)))) + (let ((_tl109350109381_ (let () (declare (not safe)) - (##cdr _e109370109394_))) - (_hd109369109397_ + (##cdr _e109352109376_))) + (_hd109351109379_ (let () (declare (not safe)) - (##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 + (##car _e109352109376_)))) + (___kont113471113472_ + _tl109350109381_ + _hd109351109379_))) + (___kont113473113474_))))))) + (_generate-values-post109222_ + (lambda (_post109294_ _body109295_) + (let _lp109297_ ((_rest109299_ _post109294_) + (_body109300_ _body109295_)) + (let* ((_rest109301109309_ _rest109299_) + (_else109303109317_ (lambda () _body109300_)) + (_K109305109323_ + (lambda (_rest109320_ _bind109321_) + (let ((__tmp114545 + (let ((__tmp114546 + (let ((__tmp114547 (let () (declare (not safe)) - (cons _body109318_ + (cons _body109300_ '())))) (declare (not safe)) - (cons _bind109339_ - __tmp114565)))) + (cons _bind109321_ + __tmp114547)))) (declare (not safe)) - (cons 'let __tmp114564)))) + (cons 'let __tmp114546)))) (declare (not safe)) - (_lp109315_ _rest109338_ __tmp114563))))) + (_lp109297_ _rest109320_ __tmp114545))))) (if (let () (declare (not safe)) - (##pair? _rest109319109327_)) - (let ((_hd109324109344_ + (##pair? _rest109301109309_)) + (let ((_hd109306109326_ (let () (declare (not safe)) - (##car _rest109319109327_))) - (_tl109325109346_ + (##car _rest109301109309_))) + (_tl109307109328_ (let () (declare (not safe)) - (##cdr _rest109319109327_)))) - (let* ((_bind109349_ _hd109324109344_) - (_rest109351_ _tl109325109346_)) + (##cdr _rest109301109309_)))) + (let* ((_bind109331_ _hd109306109326_) + (_rest109333_ _tl109307109328_)) (declare (not safe)) - (_K109323109341_ _rest109351_ _bind109349_))) + (_K109305109323_ _rest109333_ _bind109331_))) (let () (declare (not safe)) - (_else109321109335_))))))) - (_generate-values-check109241_ - (lambda (_check109309_ _body109310_) - (let ((__tmp114566 - (let ((__tmp114568 + (_else109303109317_))))))) + (_generate-values-check109223_ + (lambda (_check109291_ _body109292_) + (let ((__tmp114548 + (let ((__tmp114550 (let () (declare (not safe)) - (cons _body109310_ '()))) - (__tmp114567 (reverse _check109309_))) + (cons _body109292_ '()))) + (__tmp114549 (reverse _check109291_))) (declare (not safe)) - (foldr1 cons __tmp114568 __tmp114567)))) + (foldr1 cons __tmp114550 __tmp114549)))) (declare (not safe)) - (cons 'begin __tmp114566))))) - (let* ((_g109243109260_ - (lambda (_g109244109257_) + (cons 'begin __tmp114548))))) + (let* ((_g109225109242_ + (lambda (_g109226109239_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g109244109257_)))) - (_g109242109306_ - (lambda (_g109244109263_) + _g109226109239_)))) + (_g109224109288_ + (lambda (_g109226109245_) (if (let () (declare (not safe)) - (gx#stx-pair? _g109244109263_)) - (let ((_e109249109265_ + (gx#stx-pair? _g109226109245_)) + (let ((_e109231109247_ (let () (declare (not safe)) - (gx#stx-e _g109244109263_)))) - (let ((_hd109248109268_ + (gx#stx-e _g109226109245_)))) + (let ((_hd109230109250_ (let () (declare (not safe)) - (##car _e109249109265_))) - (_tl109247109270_ + (##car _e109231109247_))) + (_tl109229109252_ (let () (declare (not safe)) - (##cdr _e109249109265_)))) + (##cdr _e109231109247_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109247109270_)) - (let ((_e109252109273_ + (gx#stx-pair? _tl109229109252_)) + (let ((_e109234109255_ (let () (declare (not safe)) - (gx#stx-e _tl109247109270_)))) - (let ((_hd109251109276_ + (gx#stx-e _tl109229109252_)))) + (let ((_hd109233109258_ (let () (declare (not safe)) - (##car _e109252109273_))) - (_tl109250109278_ + (##car _e109234109255_))) + (_tl109232109260_ (let () (declare (not safe)) - (##cdr _e109252109273_)))) + (##cdr _e109234109255_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl109250109278_)) - (let ((_e109255109281_ + (gx#stx-pair? _tl109232109260_)) + (let ((_e109237109263_ (let () (declare (not safe)) - (gx#stx-e _tl109250109278_)))) - (let ((_hd109254109284_ + (gx#stx-e _tl109232109260_)))) + (let ((_hd109236109266_ (let () (declare (not safe)) - (##car _e109255109281_))) - (_tl109253109286_ + (##car _e109237109263_))) + (_tl109235109268_ (let () (declare (not safe)) - (##cdr _e109255109281_)))) + (##cdr _e109237109263_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl109253109286_)) - ((lambda (_L109289_ _L109290_) + _tl109235109268_)) + ((lambda (_L109271_ _L109272_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L109290_)) + _L109272_)) (let () (declare (not safe)) - (_generate-simple109236_ - _L109290_ - _L109289_)) + (_generate-simple109218_ + _L109272_ + _L109271_)) (let () (declare (not safe)) - (_generate-values109239_ - _L109290_ - _L109289_)))) - _hd109254109284_ - _hd109251109276_) + (_generate-values109221_ + _L109272_ + _L109271_)))) + _hd109236109266_ + _hd109233109258_) (let () (declare (not safe)) - (_g109243109260_ - _g109244109263_))))) + (_g109225109242_ + _g109226109245_))))) (let () (declare (not safe)) - (_g109243109260_ _g109244109263_))))) + (_g109225109242_ _g109226109245_))))) (let () (declare (not safe)) - (_g109243109260_ _g109244109263_))))) + (_g109225109242_ _g109226109245_))))) (let () (declare (not safe)) - (_g109243109260_ _g109244109263_)))))) + (_g109225109242_ _g109226109245_)))))) (declare (not safe)) - (_g109242109306_ _stx109233_))))) + (_g109224109288_ _stx109215_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_self109952_ _stx109953_) - (let ((_compiled-body?109955_ '#f)) + (lambda (_self109934_ _stx109935_) + (let ((_compiled-body?109937_ '#f)) (declare (not safe)) (gxc#generate-runtime-let-values%__% - _self109952_ - _stx109953_ - _compiled-body?109955_)))) + _self109934_ + _stx109935_ + _compiled-body?109937_)))) (define gxc#generate-runtime-let-values% - (lambda _g114570_ - (let ((_g114569_ (let () (declare (not safe)) (##length _g114570_)))) - (cond ((let () (declare (not safe)) (##fx= _g114569_ 2)) - (apply (lambda (_self109952_ _stx109953_) + (lambda _g114552_ + (let ((_g114551_ (let () (declare (not safe)) (##length _g114552_)))) + (cond ((let () (declare (not safe)) (##fx= _g114551_ 2)) + (apply (lambda (_self109934_ _stx109935_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__0 - _self109952_ - _stx109953_))) - _g114570_)) - ((let () (declare (not safe)) (##fx= _g114569_ 3)) - (apply (lambda (_self109957_ - _stx109958_ - _compiled-body?109959_) + _self109934_ + _stx109935_))) + _g114552_)) + ((let () (declare (not safe)) (##fx= _g114551_ 3)) + (apply (lambda (_self109939_ + _stx109940_ + _compiled-body?109941_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__% - _self109957_ - _stx109958_ - _compiled-body?109959_))) - _g114570_)) + _self109939_ + _stx109940_ + _compiled-body?109941_))) + _g114552_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g114570_)))))) + _g114552_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_vals109126_ _hd109127_) - (let _lp109129_ ((_rest109131_ _hd109127_) - (_k109132_ '0) - (_r109133_ '())) - (let* ((___stx113501113502_ _rest109131_) - (_g109138109155_ + (lambda (_vals109108_ _hd109109_) + (let _lp109111_ ((_rest109113_ _hd109109_) + (_k109114_ '0) + (_r109115_ '())) + (let* ((___stx113483113484_ _rest109113_) + (_g109120109137_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113501113502_))))) - (let ((___kont113503113504_ - (lambda (_L109218_) - (let ((__tmp114571 - (let () (declare (not safe)) (fx+ _k109132_ '1)))) + ___stx113483113484_))))) + (let ((___kont113485113486_ + (lambda (_L109200_) + (let ((__tmp114553 + (let () (declare (not safe)) (fx+ _k109114_ '1)))) (declare (not safe)) - (_lp109129_ _L109218_ __tmp114571 _r109133_)))) - (___kont113505113506_ - (lambda (_L109191_ _L109192_) - (let ((__tmp114577 - (let () (declare (not safe)) (fx+ _k109132_ '1))) - (__tmp114572 - (let ((__tmp114573 - (let ((__tmp114576 + (_lp109111_ _L109200_ __tmp114553 _r109115_)))) + (___kont113487113488_ + (lambda (_L109173_ _L109174_) + (let ((__tmp114559 + (let () (declare (not safe)) (fx+ _k109114_ '1))) + (__tmp114554 + (let ((__tmp114555 + (let ((__tmp114558 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L109192_))) - (__tmp114574 - (let ((__tmp114575 + _L109174_))) + (__tmp114556 + (let ((__tmp114557 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _vals109126_ - _k109132_ - _L109191_)))) + _vals109108_ + _k109114_ + _L109173_)))) (declare (not safe)) - (cons __tmp114575 '())))) + (cons __tmp114557 '())))) (declare (not safe)) - (cons __tmp114576 __tmp114574)))) + (cons __tmp114558 __tmp114556)))) (declare (not safe)) - (cons __tmp114573 _r109133_)))) + (cons __tmp114555 _r109115_)))) (declare (not safe)) - (_lp109129_ _L109191_ __tmp114577 __tmp114572)))) - (___kont113507113508_ - (lambda (_L109167_) - (let ((__tmp114578 - (let ((__tmp114579 - (let ((__tmp114582 + (_lp109111_ _L109173_ __tmp114559 __tmp114554)))) + (___kont113489113490_ + (lambda (_L109149_) + (let ((__tmp114560 + (let ((__tmp114561 + (let ((__tmp114564 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L109167_))) - (__tmp114580 - (let ((__tmp114581 + _L109149_))) + (__tmp114562 + (let ((__tmp114563 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _vals109126_ - _k109132_)))) + _vals109108_ + _k109114_)))) (declare (not safe)) - (cons __tmp114581 '())))) + (cons __tmp114563 '())))) (declare (not safe)) - (cons __tmp114582 __tmp114580)))) + (cons __tmp114564 __tmp114562)))) (declare (not safe)) - (cons __tmp114579 '())))) + (cons __tmp114561 '())))) (declare (not safe)) - (foldl1 cons __tmp114578 _r109133_)))) - (___kont113509113510_ (lambda () (reverse _r109133_)))) - (let ((_g109136109178_ + (foldl1 cons __tmp114560 _r109115_)))) + (___kont113491113492_ (lambda () (reverse _r109115_)))) + (let ((_g109118109160_ (lambda () - (let ((_L109167_ ___stx113501113502_)) + (let ((_L109149_ ___stx113483113484_)) (if (let () (declare (not safe)) - (gx#identifier? _L109167_)) - (___kont113507113508_ _L109167_) - (___kont113509113510_)))))) + (gx#identifier? _L109149_)) + (___kont113489113490_ _L109149_) + (___kont113491113492_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113501113502_)) - (let ((_e109143109207_ + (gx#stx-pair? ___stx113483113484_)) + (let ((_e109125109189_ (let () (declare (not safe)) - (gx#stx-e ___stx113501113502_)))) - (let ((_tl109141109212_ + (gx#stx-e ___stx113483113484_)))) + (let ((_tl109123109194_ (let () (declare (not safe)) - (##cdr _e109143109207_))) - (_hd109142109210_ + (##cdr _e109125109189_))) + (_hd109124109192_ (let () (declare (not safe)) - (##car _e109143109207_)))) + (##car _e109125109189_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd109142109210_)) - (let ((_e109144109215_ + (gx#stx-datum? _hd109124109192_)) + (let ((_e109126109197_ (let () (declare (not safe)) - (gx#stx-e _hd109142109210_)))) + (gx#stx-e _hd109124109192_)))) (if (let () (declare (not safe)) - (equal? _e109144109215_ '#f)) - (___kont113503113504_ _tl109141109212_) - (___kont113505113506_ - _tl109141109212_ - _hd109142109210_))) - (___kont113505113506_ - _tl109141109212_ - _hd109142109210_)))) - (let () (declare (not safe)) (_g109136109178_))))))))) + (equal? _e109126109197_ '#f)) + (___kont113485113486_ _tl109123109194_) + (___kont113487113488_ + _tl109123109194_ + _hd109124109192_))) + (___kont113487113488_ + _tl109123109194_ + _hd109124109192_)))) + (let () (declare (not safe)) (_g109118109160_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_self108805_ _stx108806_ _compiled-body?108807_) - (letrec ((_generate-simple108809_ - (lambda (_hd109111_ _body109112_) + (lambda (_self108787_ _stx108788_ _compiled-body?108789_) + (letrec ((_generate-simple108791_ + (lambda (_hd109093_ _body109094_) (let () (declare (not safe)) (gxc#generate-runtime-simple-let - _self108805_ + _self108787_ 'letrec - _hd109111_ - _body109112_ - _compiled-body?108807_)))) - (_generate-values108810_ - (lambda (_hd108890_ _body108891_) - (let _lp108893_ ((_rest108895_ _hd108890_) - (_bind108896_ '()) - (_check108897_ '()) - (_post108898_ '())) - (let* ((___stx113575113576_ _rest108895_) - (_g108901108912_ + _hd109093_ + _body109094_ + _compiled-body?108789_)))) + (_generate-values108792_ + (lambda (_hd108872_ _body108873_) + (let _lp108875_ ((_rest108877_ _hd108872_) + (_bind108878_ '()) + (_check108879_ '()) + (_post108880_ '())) + (let* ((___stx113557113558_ _rest108877_) + (_g108883108894_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113575113576_))))) - (let ((___kont113577113578_ - (lambda (_L108939_ _L108940_) - (let* ((___stx113531113532_ _L108940_) - (_g108955108980_ + ___stx113557113558_))))) + (let ((___kont113559113560_ + (lambda (_L108921_ _L108922_) + (let* ((___stx113513113514_ _L108922_) + (_g108937108962_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113531113532_))))) - (let ((___kont113533113534_ - (lambda (_L109087_ _L109088_) - (let ((_eid109102_ + ___stx113513113514_))))) + (let ((___kont113515113516_ + (lambda (_L109069_ _L109070_) + (let ((_eid109084_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L109088_))) - (_expr109103_ + _L109070_))) + (_expr109085_ (let () (declare (not safe)) (gxc#compile-e__1 - _self108805_ - _L109087_)))) - (let ((__tmp114583 - (let ((__tmp114584 - (let ((__tmp114585 + _self108787_ + _L109069_)))) + (let ((__tmp114565 + (let ((__tmp114566 + (let ((__tmp114567 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr109103_ '())))) + (cons _expr109085_ '())))) (declare (not safe)) - (cons _eid109102_ __tmp114585)))) + (cons _eid109084_ __tmp114567)))) (declare (not safe)) - (cons __tmp114584 _bind108896_)))) + (cons __tmp114566 _bind108878_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp108893_ - _L108939_ - __tmp114583 - _check108897_ - _post108898_))))) - (___kont113535113536_ - (lambda (_L109001_ _L109002_) - (let* ((_vals109015_ + (_lp108875_ + _L108921_ + __tmp114565 + _check108879_ + _post108880_))))) + (___kont113517113518_ + (lambda (_L108983_ _L108984_) + (let* ((_vals108997_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values109017_ + (_check-values108999_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals109015_ - _L109002_ - _L109001_))) - (_refs109019_ + _vals108997_ + _L108984_ + _L108983_))) + (_refs109001_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals109015_ - _L109002_))) - (_expr109021_ + _vals108997_ + _L108984_))) + (_expr109003_ (let () (declare (not safe)) (gxc#compile-e__1 - _self108805_ - _L109001_)))) - (let ((__tmp114588 - (let ((__tmp114591 - (let ((__tmp114592 + _self108787_ + _L108983_)))) + (let ((__tmp114570 + (let ((__tmp114573 + (let ((__tmp114574 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114593 + (let ((__tmp114575 (let () (declare (not safe)) - (cons _expr109021_ '())))) + (cons _expr109003_ '())))) (declare (not safe)) - (cons _vals109015_ __tmp114593)))) + (cons _vals108997_ __tmp114575)))) (declare (not safe)) - (cons __tmp114592 _bind108896_))) - (__tmp114589 - (map (lambda (_e109023109025_) - (let* ((_g109027109036_ _e109023109025_) - (_E109029109040_ + (cons __tmp114574 _bind108878_))) + (__tmp114571 + (map (lambda (_e109005109007_) + (let* ((_g109009109018_ _e109005109007_) + (_E109011109022_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g109027109036_)))) - (_K109030109045_ - (lambda (_eid109043_) - (let ((__tmp114590 + _g109009109018_)))) + (_K109012109027_ + (lambda (_eid109025_) + (let ((__tmp114572 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons _eid109043_ __tmp114590))))) + (cons _eid109025_ __tmp114572))))) (if (let () (declare (not safe)) - (##pair? _g109027109036_)) - (let ((_hd109031109048_ + (##pair? _g109009109018_)) + (let ((_hd109013109030_ (let () (declare (not safe)) - (##car _g109027109036_))) - (_tl109032109050_ + (##car _g109009109018_))) + (_tl109014109032_ (let () (declare (not safe)) - (##cdr _g109027109036_)))) - (let ((_eid109053_ _hd109031109048_)) + (##cdr _g109009109018_)))) + (let ((_eid109035_ _hd109013109030_)) (if (let () (declare (not safe)) - (##pair? _tl109032109050_)) - (let ((_tl109034109055_ + (##pair? _tl109014109032_)) + (let ((_tl109016109037_ (let () (declare (not safe)) - (##cdr _tl109032109050_)))) + (##cdr _tl109014109032_)))) (if (let () (declare (not safe)) - (##null? _tl109034109055_)) + (##null? _tl109016109037_)) (let () (declare (not safe)) - (_K109030109045_ _eid109053_)) + (_K109012109027_ _eid109035_)) (let () (declare (not safe)) - (_E109029109040_)))) + (_E109011109022_)))) (let () (declare (not safe)) - (_E109029109040_))))) + (_E109011109022_))))) (let () (declare (not safe)) - (_E109029109040_))))) - _refs109019_))) + (_E109011109022_))))) + _refs109001_))) (declare (not safe)) - (foldl1 cons __tmp114591 __tmp114589))) + (foldl1 cons __tmp114573 __tmp114571))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114587 + (__tmp114569 (let () (declare (not safe)) - (cons _check-values109017_ - _check108897_))) - (__tmp114586 + (cons _check-values108999_ + _check108879_))) + (__tmp114568 (let () (declare (not safe)) (foldl1 cons - _refs109019_ - _post108898_)))) + _refs109001_ + _post108880_)))) (declare (not safe)) - (_lp108893_ - _L108939_ - __tmp114588 - __tmp114587 - __tmp114586)))))) + (_lp108875_ + _L108921_ + __tmp114570 + __tmp114569 + __tmp114568)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113531113532_)) - (let ((_e108961109063_ + (gx#stx-pair? ___stx113513113514_)) + (let ((_e108943109045_ (let () (declare (not safe)) (gx#stx-e - ___stx113531113532_)))) - (let ((_tl108959109068_ + ___stx113513113514_)))) + (let ((_tl108941109050_ (let () (declare (not safe)) - (##cdr _e108961109063_))) - (_hd108960109066_ + (##cdr _e108943109045_))) + (_hd108942109048_ (let () (declare (not safe)) - (##car _e108961109063_)))) + (##car _e108943109045_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd108960109066_)) - (let ((_e108964109071_ + _hd108942109048_)) + (let ((_e108946109053_ (let () (declare (not safe)) (gx#stx-e - _hd108960109066_)))) - (let ((_tl108962109076_ + _hd108942109048_)))) + (let ((_tl108944109058_ (let () (declare (not safe)) - (##cdr _e108964109071_))) - (_hd108963109074_ + (##cdr _e108946109053_))) + (_hd108945109056_ (let () (declare (not safe)) - (##car _e108964109071_)))) + (##car _e108946109053_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108962109076_)) + _tl108944109058_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl108959109068_)) - (let ((_e108967109079_ + (gx#stx-pair? _tl108941109050_)) + (let ((_e108949109061_ (let () (declare (not safe)) - (gx#stx-e _tl108959109068_)))) - (let ((_tl108965109084_ + (gx#stx-e _tl108941109050_)))) + (let ((_tl108947109066_ (let () (declare (not safe)) - (##cdr _e108967109079_))) - (_hd108966109082_ + (##cdr _e108949109061_))) + (_hd108948109064_ (let () (declare (not safe)) - (##car _e108967109079_)))) + (##car _e108949109061_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108965109084_)) - (___kont113533113534_ - _hd108966109082_ - _hd108963109074_) - (let () (declare (not safe)) (_g108955108980_))))) - (let () (declare (not safe)) (_g108955108980_))) + (gx#stx-null? _tl108947109066_)) + (___kont113515113516_ + _hd108948109064_ + _hd108945109056_) + (let () (declare (not safe)) (_g108937108962_))))) + (let () (declare (not safe)) (_g108937108962_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108959109068_)) - (let ((_e108975108993_ + (gx#stx-pair? _tl108941109050_)) + (let ((_e108957108975_ (let () (declare (not safe)) - (gx#stx-e _tl108959109068_)))) - (let ((_tl108973108998_ + (gx#stx-e _tl108941109050_)))) + (let ((_tl108955108980_ (let () (declare (not safe)) - (##cdr _e108975108993_))) - (_hd108974108996_ + (##cdr _e108957108975_))) + (_hd108956108978_ (let () (declare (not safe)) - (##car _e108975108993_)))) + (##car _e108957108975_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108973108998_)) - (___kont113535113536_ - _hd108974108996_ - _hd108960109066_) - (let () (declare (not safe)) (_g108955108980_))))) - (let () (declare (not safe)) (_g108955108980_)))))) + (gx#stx-null? _tl108955108980_)) + (___kont113517113518_ + _hd108956108978_ + _hd108942109048_) + (let () (declare (not safe)) (_g108937108962_))))) + (let () (declare (not safe)) (_g108937108962_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl108959109068_)) - (let ((_e108975108993_ + _tl108941109050_)) + (let ((_e108957108975_ (let () (declare (not safe)) (gx#stx-e - _tl108959109068_)))) - (let ((_tl108973108998_ + _tl108941109050_)))) + (let ((_tl108955108980_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e108975108993_))) - (_hd108974108996_ - (let () (declare (not safe)) (##car _e108975108993_)))) + (##cdr _e108957108975_))) + (_hd108956108978_ + (let () (declare (not safe)) (##car _e108957108975_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108973108998_)) - (___kont113535113536_ _hd108974108996_ _hd108960109066_) - (let () (declare (not safe)) (_g108955108980_))))) + (gx#stx-null? _tl108955108980_)) + (___kont113517113518_ _hd108956108978_ _hd108942109048_) + (let () (declare (not safe)) (_g108937108962_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g108955108980_)))))) + (_g108937108962_)))))) (let () (declare (not safe)) - (_g108955108980_))))))) - (___kont113579113580_ + (_g108937108962_))))))) + (___kont113561113562_ (lambda () - (let* ((_body108919_ - (if _compiled-body?108807_ - _body108891_ + (let* ((_body108901_ + (if _compiled-body?108789_ + _body108873_ (let () (declare (not safe)) (gxc#compile-e__1 - _self108805_ - _body108891_)))) - (_body108921_ + _self108787_ + _body108873_)))) + (_body108903_ (let () (declare (not safe)) - (_generate-values-post108812_ - _post108898_ - _body108919_))) - (_body108923_ + (_generate-values-post108794_ + _post108880_ + _body108901_))) + (_body108905_ (let () (declare (not safe)) - (_generate-values-check108811_ - _check108897_ - _body108921_)))) - (let ((__tmp114594 - (let ((__tmp114596 - (reverse _bind108896_)) - (__tmp114595 + (_generate-values-check108793_ + _check108879_ + _body108903_)))) + (let ((__tmp114576 + (let ((__tmp114578 + (reverse _bind108878_)) + (__tmp114577 (let () (declare (not safe)) - (cons _body108923_ '())))) + (cons _body108905_ '())))) (declare (not safe)) - (cons __tmp114596 __tmp114595)))) + (cons __tmp114578 __tmp114577)))) (declare (not safe)) - (cons 'letrec __tmp114594)))))) + (cons 'letrec __tmp114576)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113575113576_)) - (let ((_e108907108931_ + (gx#stx-pair? ___stx113557113558_)) + (let ((_e108889108913_ (let () (declare (not safe)) - (gx#stx-e ___stx113575113576_)))) - (let ((_tl108905108936_ + (gx#stx-e ___stx113557113558_)))) + (let ((_tl108887108918_ (let () (declare (not safe)) - (##cdr _e108907108931_))) - (_hd108906108934_ + (##cdr _e108889108913_))) + (_hd108888108916_ (let () (declare (not safe)) - (##car _e108907108931_)))) - (___kont113577113578_ - _tl108905108936_ - _hd108906108934_))) - (___kont113579113580_))))))) - (_generate-values-check108811_ - (lambda (_check108887_ _body108888_) - (let ((__tmp114597 - (let ((__tmp114599 + (##car _e108889108913_)))) + (___kont113559113560_ + _tl108887108918_ + _hd108888108916_))) + (___kont113561113562_))))))) + (_generate-values-check108793_ + (lambda (_check108869_ _body108870_) + (let ((__tmp114579 + (let ((__tmp114581 (let () (declare (not safe)) - (cons _body108888_ '()))) - (__tmp114598 (reverse _check108887_))) + (cons _body108870_ '()))) + (__tmp114580 (reverse _check108869_))) (declare (not safe)) - (foldr1 cons __tmp114599 __tmp114598)))) + (foldr1 cons __tmp114581 __tmp114580)))) (declare (not safe)) - (cons 'begin __tmp114597)))) - (_generate-values-post108812_ - (lambda (_post108880_ _body108881_) - (let ((__tmp114600 - (let ((__tmp114602 + (cons 'begin __tmp114579)))) + (_generate-values-post108794_ + (lambda (_post108862_ _body108863_) + (let ((__tmp114582 + (let ((__tmp114584 (let () (declare (not safe)) - (cons _body108881_ '()))) - (__tmp114601 - (map (lambda (_g108882108884_) + (cons _body108863_ '()))) + (__tmp114583 + (map (lambda (_g108864108866_) (let () (declare (not safe)) - (cons 'set! _g108882108884_))) - (reverse _post108880_)))) + (cons 'set! _g108864108866_))) + (reverse _post108862_)))) (declare (not safe)) - (foldr1 cons __tmp114602 __tmp114601)))) + (foldr1 cons __tmp114584 __tmp114583)))) (declare (not safe)) - (cons 'begin __tmp114600))))) - (let* ((_g108814108831_ - (lambda (_g108815108828_) + (cons 'begin __tmp114582))))) + (let* ((_g108796108813_ + (lambda (_g108797108810_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108815108828_)))) - (_g108813108877_ - (lambda (_g108815108834_) + _g108797108810_)))) + (_g108795108859_ + (lambda (_g108797108816_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108815108834_)) - (let ((_e108820108836_ + (gx#stx-pair? _g108797108816_)) + (let ((_e108802108818_ (let () (declare (not safe)) - (gx#stx-e _g108815108834_)))) - (let ((_hd108819108839_ + (gx#stx-e _g108797108816_)))) + (let ((_hd108801108821_ (let () (declare (not safe)) - (##car _e108820108836_))) - (_tl108818108841_ + (##car _e108802108818_))) + (_tl108800108823_ (let () (declare (not safe)) - (##cdr _e108820108836_)))) + (##cdr _e108802108818_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108818108841_)) - (let ((_e108823108844_ + (gx#stx-pair? _tl108800108823_)) + (let ((_e108805108826_ (let () (declare (not safe)) - (gx#stx-e _tl108818108841_)))) - (let ((_hd108822108847_ + (gx#stx-e _tl108800108823_)))) + (let ((_hd108804108829_ (let () (declare (not safe)) - (##car _e108823108844_))) - (_tl108821108849_ + (##car _e108805108826_))) + (_tl108803108831_ (let () (declare (not safe)) - (##cdr _e108823108844_)))) + (##cdr _e108805108826_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108821108849_)) - (let ((_e108826108852_ + (gx#stx-pair? _tl108803108831_)) + (let ((_e108808108834_ (let () (declare (not safe)) - (gx#stx-e _tl108821108849_)))) - (let ((_hd108825108855_ + (gx#stx-e _tl108803108831_)))) + (let ((_hd108807108837_ (let () (declare (not safe)) - (##car _e108826108852_))) - (_tl108824108857_ + (##car _e108808108834_))) + (_tl108806108839_ (let () (declare (not safe)) - (##cdr _e108826108852_)))) + (##cdr _e108808108834_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108824108857_)) - ((lambda (_L108860_ _L108861_) + _tl108806108839_)) + ((lambda (_L108842_ _L108843_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L108861_)) + _L108843_)) (let () (declare (not safe)) - (_generate-simple108809_ - _L108861_ - _L108860_)) + (_generate-simple108791_ + _L108843_ + _L108842_)) (let () (declare (not safe)) - (_generate-values108810_ - _L108861_ - _L108860_)))) - _hd108825108855_ - _hd108822108847_) + (_generate-values108792_ + _L108843_ + _L108842_)))) + _hd108807108837_ + _hd108804108829_) (let () (declare (not safe)) - (_g108814108831_ - _g108815108834_))))) + (_g108796108813_ + _g108797108816_))))) (let () (declare (not safe)) - (_g108814108831_ _g108815108834_))))) + (_g108796108813_ _g108797108816_))))) (let () (declare (not safe)) - (_g108814108831_ _g108815108834_))))) + (_g108796108813_ _g108797108816_))))) (let () (declare (not safe)) - (_g108814108831_ _g108815108834_)))))) + (_g108796108813_ _g108797108816_)))))) (declare (not safe)) - (_g108813108877_ _stx108806_))))) + (_g108795108859_ _stx108788_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_self109117_ _stx109118_) - (let ((_compiled-body?109120_ '#f)) + (lambda (_self109099_ _stx109100_) + (let ((_compiled-body?109102_ '#f)) (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _self109117_ - _stx109118_ - _compiled-body?109120_)))) + _self109099_ + _stx109100_ + _compiled-body?109102_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g114604_ - (let ((_g114603_ (let () (declare (not safe)) (##length _g114604_)))) - (cond ((let () (declare (not safe)) (##fx= _g114603_ 2)) - (apply (lambda (_self109117_ _stx109118_) + (lambda _g114586_ + (let ((_g114585_ (let () (declare (not safe)) (##length _g114586_)))) + (cond ((let () (declare (not safe)) (##fx= _g114585_ 2)) + (apply (lambda (_self109099_ _stx109100_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__0 - _self109117_ - _stx109118_))) - _g114604_)) - ((let () (declare (not safe)) (##fx= _g114603_ 3)) - (apply (lambda (_self109122_ - _stx109123_ - _compiled-body?109124_) + _self109099_ + _stx109100_))) + _g114586_)) + ((let () (declare (not safe)) (##fx= _g114585_ 3)) + (apply (lambda (_self109104_ + _stx109105_ + _compiled-body?109106_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _self109122_ - _stx109123_ - _compiled-body?109124_))) - _g114604_)) + _self109104_ + _stx109105_ + _compiled-body?109106_))) + _g114586_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g114604_)))))) + _g114586_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_self108386_ _stx108387_) - (letrec ((_generate-values108389_ - (lambda (_hd108632_ _body108633_) - (let _lp108635_ ((_rest108637_ _hd108632_) - (_bind108638_ '())) - (let* ((_rest108639108647_ _rest108637_) - (_else108641108658_ + (lambda (_self108368_ _stx108369_) + (letrec ((_generate-values108371_ + (lambda (_hd108614_ _body108615_) + (let _lp108617_ ((_rest108619_ _hd108614_) + (_bind108620_ '())) + (let* ((_rest108621108629_ _rest108619_) + (_else108623108640_ (lambda () - (let ((_bind108655_ (reverse _bind108638_)) - (_body108656_ + (let ((_bind108637_ (reverse _bind108620_)) + (_body108638_ (let () (declare (not safe)) (gxc#compile-e__1 - _self108386_ - _body108633_)))) - (let ((__tmp114605 - (let ((__tmp114606 + _self108368_ + _body108615_)))) + (let ((__tmp114587 + (let ((__tmp114588 (let () (declare (not safe)) - (cons _body108656_ '())))) + (cons _body108638_ '())))) (declare (not safe)) - (cons _bind108655_ __tmp114606)))) + (cons _bind108637_ __tmp114588)))) (declare (not safe)) - (cons 'letrec* __tmp114605))))) - (_K108643108792_ - (lambda (_rest108661_ _hd-bind108662_) - (let* ((___stx113589113590_ _hd-bind108662_) - (_g108665108690_ + (cons 'letrec* __tmp114587))))) + (_K108625108774_ + (lambda (_rest108643_ _hd-bind108644_) + (let* ((___stx113571113572_ _hd-bind108644_) + (_g108647108672_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113589113590_))))) - (let ((___kont113591113592_ - (lambda (_L108771_ _L108772_) - (let ((_eid108786_ + ___stx113571113572_))))) + (let ((___kont113573113574_ + (lambda (_L108753_ _L108754_) + (let ((_eid108768_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L108772_))) - (_expr108787_ + _L108754_))) + (_expr108769_ (let () (declare (not safe)) (gxc#compile-e__1 - _self108386_ - _L108771_)))) - (let ((__tmp114607 - (let ((__tmp114608 - (let ((__tmp114609 + _self108368_ + _L108753_)))) + (let ((__tmp114589 + (let ((__tmp114590 + (let ((__tmp114591 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr108787_ '())))) + (cons _expr108769_ '())))) (declare (not safe)) - (cons _eid108786_ __tmp114609)))) + (cons _eid108768_ __tmp114591)))) (declare (not safe)) - (cons __tmp114608 _bind108638_)))) + (cons __tmp114590 _bind108620_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp108635_ - _rest108661_ - __tmp114607))))) - (___kont113593113594_ - (lambda (_L108711_ _L108712_) - (let* ((_vals108731_ + (_lp108617_ + _rest108643_ + __tmp114589))))) + (___kont113575113576_ + (lambda (_L108693_ _L108694_) + (let* ((_vals108713_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_tmp108733_ + (_tmp108715_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values108735_ + (_check-values108717_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp108733_ - _L108712_ - _L108711_))) - (_refs108737_ + _tmp108715_ + _L108694_ + _L108693_))) + (_refs108719_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals108731_ - _L108712_))) - (_expr108739_ + _vals108713_ + _L108694_))) + (_expr108721_ (let () (declare (not safe)) (gxc#compile-e__1 - _self108386_ - _L108711_)))) - (let ((__tmp114610 - (let ((__tmp114611 - (let ((__tmp114612 + _self108368_ + _L108693_)))) + (let ((__tmp114592 + (let ((__tmp114593 + (let ((__tmp114594 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114613 - (let ((__tmp114614 - (let ((__tmp114615 - (let ((__tmp114618 - (let ((__tmp114619 - (let ((__tmp114620 + (let ((__tmp114595 + (let ((__tmp114596 + (let ((__tmp114597 + (let ((__tmp114600 + (let ((__tmp114601 + (let ((__tmp114602 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr108739_ '())))) + (cons _expr108721_ '())))) (declare (not safe)) - (cons _tmp108733_ __tmp114620)))) + (cons _tmp108715_ __tmp114602)))) (declare (not safe)) - (cons __tmp114619 '()))) + (cons __tmp114601 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114616 - (let ((__tmp114617 + (__tmp114598 + (let ((__tmp114599 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _tmp108733_ '())))) + (cons _tmp108715_ '())))) (declare (not safe)) - (cons _check-values108735_ __tmp114617)))) + (cons _check-values108717_ __tmp114599)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114618 - __tmp114616)))) + (cons __tmp114600 + __tmp114598)))) (declare (not safe)) - (cons 'let __tmp114615)))) + (cons 'let __tmp114597)))) (declare (not safe)) - (cons __tmp114614 '())))) + (cons __tmp114596 '())))) (declare (not safe)) - (cons _vals108731_ __tmp114613)))) + (cons _vals108713_ __tmp114595)))) (declare (not safe)) - (cons __tmp114612 _bind108638_)))) + (cons __tmp114594 _bind108620_)))) (declare (not safe)) - (foldl1 cons __tmp114611 _refs108737_)))) + (foldl1 cons __tmp114593 _refs108719_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp108635_ - _rest108661_ - __tmp114610)))))) + (_lp108617_ + _rest108643_ + __tmp114592)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113589113590_)) - (let ((_e108671108747_ + (gx#stx-pair? ___stx113571113572_)) + (let ((_e108653108729_ (let () (declare (not safe)) (gx#stx-e - ___stx113589113590_)))) - (let ((_tl108669108752_ + ___stx113571113572_)))) + (let ((_tl108651108734_ (let () (declare (not safe)) - (##cdr _e108671108747_))) - (_hd108670108750_ + (##cdr _e108653108729_))) + (_hd108652108732_ (let () (declare (not safe)) - (##car _e108671108747_)))) + (##car _e108653108729_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd108670108750_)) - (let ((_e108674108755_ + _hd108652108732_)) + (let ((_e108656108737_ (let () (declare (not safe)) (gx#stx-e - _hd108670108750_)))) - (let ((_tl108672108760_ + _hd108652108732_)))) + (let ((_tl108654108742_ (let () (declare (not safe)) - (##cdr _e108674108755_))) - (_hd108673108758_ + (##cdr _e108656108737_))) + (_hd108655108740_ (let () (declare (not safe)) - (##car _e108674108755_)))) + (##car _e108656108737_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108672108760_)) + _tl108654108742_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl108669108752_)) - (let ((_e108677108763_ + _tl108651108734_)) + (let ((_e108659108745_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl108669108752_)))) - (let ((_tl108675108768_ + (gx#stx-e _tl108651108734_)))) + (let ((_tl108657108750_ (let () (declare (not safe)) - (##cdr _e108677108763_))) - (_hd108676108766_ + (##cdr _e108659108745_))) + (_hd108658108748_ (let () (declare (not safe)) - (##car _e108677108763_)))) + (##car _e108659108745_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108675108768_)) - (___kont113591113592_ - _hd108676108766_ - _hd108673108758_) - (let () (declare (not safe)) (_g108665108690_))))) - (let () (declare (not safe)) (_g108665108690_))) + (gx#stx-null? _tl108657108750_)) + (___kont113573113574_ + _hd108658108748_ + _hd108655108740_) + (let () (declare (not safe)) (_g108647108672_))))) + (let () (declare (not safe)) (_g108647108672_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108669108752_)) - (let ((_e108685108703_ + (gx#stx-pair? _tl108651108734_)) + (let ((_e108667108685_ (let () (declare (not safe)) - (gx#stx-e _tl108669108752_)))) - (let ((_tl108683108708_ + (gx#stx-e _tl108651108734_)))) + (let ((_tl108665108690_ (let () (declare (not safe)) - (##cdr _e108685108703_))) - (_hd108684108706_ + (##cdr _e108667108685_))) + (_hd108666108688_ (let () (declare (not safe)) - (##car _e108685108703_)))) + (##car _e108667108685_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108683108708_)) - (___kont113593113594_ - _hd108684108706_ - _hd108670108750_) - (let () (declare (not safe)) (_g108665108690_))))) - (let () (declare (not safe)) (_g108665108690_)))))) + (gx#stx-null? _tl108665108690_)) + (___kont113575113576_ + _hd108666108688_ + _hd108652108732_) + (let () (declare (not safe)) (_g108647108672_))))) + (let () (declare (not safe)) (_g108647108672_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl108669108752_)) - (let ((_e108685108703_ + _tl108651108734_)) + (let ((_e108667108685_ (let () (declare (not safe)) (gx#stx-e - _tl108669108752_)))) - (let ((_tl108683108708_ + _tl108651108734_)))) + (let ((_tl108665108690_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e108685108703_))) - (_hd108684108706_ - (let () (declare (not safe)) (##car _e108685108703_)))) + (##cdr _e108667108685_))) + (_hd108666108688_ + (let () (declare (not safe)) (##car _e108667108685_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108683108708_)) - (___kont113593113594_ _hd108684108706_ _hd108670108750_) - (let () (declare (not safe)) (_g108665108690_))))) + (gx#stx-null? _tl108665108690_)) + (___kont113575113576_ _hd108666108688_ _hd108652108732_) + (let () (declare (not safe)) (_g108647108672_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g108665108690_)))))) + (_g108647108672_)))))) (let () (declare (not safe)) - (_g108665108690_)))))))) + (_g108647108672_)))))))) (if (let () (declare (not safe)) - (##pair? _rest108639108647_)) - (let ((_hd108644108795_ + (##pair? _rest108621108629_)) + (let ((_hd108626108777_ (let () (declare (not safe)) - (##car _rest108639108647_))) - (_tl108645108797_ + (##car _rest108621108629_))) + (_tl108627108779_ (let () (declare (not safe)) - (##cdr _rest108639108647_)))) - (let* ((_hd-bind108800_ _hd108644108795_) - (_rest108802_ _tl108645108797_)) + (##cdr _rest108621108629_)))) + (let* ((_hd-bind108782_ _hd108626108777_) + (_rest108784_ _tl108627108779_)) (declare (not safe)) - (_K108643108792_ - _rest108802_ - _hd-bind108800_))) + (_K108625108774_ + _rest108784_ + _hd-bind108782_))) (let () (declare (not safe)) - (_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_) + (_else108623108640_))))))) + (_generate-letrec?108372_ + (lambda (_hd108504_) + (let _lp108506_ ((_rest108508_ _hd108504_)) + (let* ((_rest108509108517_ _rest108508_) + (_else108511108525_ (lambda () '#t)) + (_K108513108602_ + (lambda (_rest108528_ _hd-bind108529_) + (let* ((_g108531108548_ + (lambda (_g108532108545_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108550108563_)))) - (_g108548108617_ - (lambda (_g108550108569_) + _g108532108545_)))) + (_g108530108599_ + (lambda (_g108532108551_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108550108569_)) - (let ((_e108555108571_ + (gx#stx-pair? _g108532108551_)) + (let ((_e108537108553_ (let () (declare (not safe)) (gx#stx-e - _g108550108569_)))) - (let ((_hd108554108574_ + _g108532108551_)))) + (let ((_hd108536108556_ (let () (declare (not safe)) - (##car _e108555108571_))) - (_tl108553108576_ + (##car _e108537108553_))) + (_tl108535108558_ (let () (declare (not safe)) - (##cdr _e108555108571_)))) + (##cdr _e108537108553_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd108554108574_)) - (let ((_e108558108579_ + _hd108536108556_)) + (let ((_e108540108561_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd108554108574_)))) - (let ((_hd108557108582_ - (let () (declare (not safe)) (##car _e108558108579_))) - (_tl108556108584_ - (let () (declare (not safe)) (##cdr _e108558108579_)))) + (gx#stx-e _hd108536108556_)))) + (let ((_hd108539108564_ + (let () (declare (not safe)) (##car _e108540108561_))) + (_tl108538108566_ + (let () (declare (not safe)) (##cdr _e108540108561_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108556108584_)) + (gx#stx-null? _tl108538108566_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108553108576_)) - (let ((_e108561108587_ + (gx#stx-pair? _tl108535108558_)) + (let ((_e108543108569_ (let () (declare (not safe)) - (gx#stx-e _tl108553108576_)))) - (let ((_hd108560108590_ + (gx#stx-e _tl108535108558_)))) + (let ((_hd108542108572_ (let () (declare (not safe)) - (##car _e108561108587_))) - (_tl108559108592_ + (##car _e108543108569_))) + (_tl108541108574_ (let () (declare (not safe)) - (##cdr _e108561108587_)))) + (##cdr _e108543108569_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108559108592_)) - ((lambda (_L108595_ _L108596_) + (gx#stx-null? _tl108541108574_)) + ((lambda (_L108577_ _L108578_) (if (let () (declare (not safe)) - (_is-lambda-expr?108391_ _L108595_)) + (_is-lambda-expr?108373_ _L108577_)) (let () (declare (not safe)) - (_lp108524_ _rest108546_)) + (_lp108506_ _rest108528_)) '#f)) - _hd108560108590_ - _hd108557108582_) + _hd108542108572_ + _hd108539108564_) (let () (declare (not safe)) - (_g108549108566_ _g108550108569_))))) + (_g108531108548_ _g108532108551_))))) (let () (declare (not safe)) - (_g108549108566_ _g108550108569_))) + (_g108531108548_ _g108532108551_))) (let () (declare (not safe)) - (_g108549108566_ _g108550108569_))))) + (_g108531108548_ _g108532108551_))))) (let () (declare (not safe)) - (_g108549108566_ _g108550108569_))))) + (_g108531108548_ _g108532108551_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g108549108566_ - _g108550108569_)))))) + (_g108531108548_ + _g108532108551_)))))) (declare (not safe)) - (_g108548108617_ _hd-bind108547_))))) + (_g108530108599_ _hd-bind108529_))))) (if (let () (declare (not safe)) - (##pair? _rest108527108535_)) - (let ((_hd108532108623_ + (##pair? _rest108509108517_)) + (let ((_hd108514108605_ (let () (declare (not safe)) - (##car _rest108527108535_))) - (_tl108533108625_ + (##car _rest108509108517_))) + (_tl108515108607_ (let () (declare (not safe)) - (##cdr _rest108527108535_)))) - (let* ((_hd-bind108628_ _hd108532108623_) - (_rest108630_ _tl108533108625_)) + (##cdr _rest108509108517_)))) + (let* ((_hd-bind108610_ _hd108514108605_) + (_rest108612_ _tl108515108607_)) (declare (not safe)) - (_K108531108620_ - _rest108630_ - _hd-bind108628_))) + (_K108513108602_ + _rest108612_ + _hd-bind108610_))) (let () (declare (not safe)) - (_else108529108543_))))))) - (_is-lambda-expr?108391_ - (lambda (_expr108459_) - (let* ((___stx113633113634_ _expr108459_) - (_g108462108476_ + (_else108511108525_))))))) + (_is-lambda-expr?108373_ + (lambda (_expr108441_) + (let* ((___stx113615113616_ _expr108441_) + (_g108444108458_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113633113634_))))) - (let ((___kont113635113636_ - (lambda (_L108504_ _L108505_) '#t)) - (___kont113637113638_ (lambda () '#f))) + ___stx113615113616_))))) + (let ((___kont113617113618_ + (lambda (_L108486_ _L108487_) '#t)) + (___kont113619113620_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113633113634_)) - (let ((_e108468108488_ + (gx#stx-pair? ___stx113615113616_)) + (let ((_e108450108470_ (let () (declare (not safe)) - (gx#stx-e ___stx113633113634_)))) - (let ((_tl108466108493_ + (gx#stx-e ___stx113615113616_)))) + (let ((_tl108448108475_ (let () (declare (not safe)) - (##cdr _e108468108488_))) - (_hd108467108491_ + (##cdr _e108450108470_))) + (_hd108449108473_ (let () (declare (not safe)) - (##car _e108468108488_)))) + (##car _e108450108470_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd108467108491_)) + (gx#identifier? _hd108449108473_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd108467108491_)) + _hd108449108473_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108466108493_)) - (let ((_e108471108496_ + (gx#stx-pair? _tl108448108475_)) + (let ((_e108453108478_ (let () (declare (not safe)) (gx#stx-e - _tl108466108493_)))) - (let ((_tl108469108501_ + _tl108448108475_)))) + (let ((_tl108451108483_ (let () (declare (not safe)) - (##cdr _e108471108496_))) - (_hd108470108499_ + (##cdr _e108453108478_))) + (_hd108452108481_ (let () (declare (not safe)) - (##car _e108471108496_)))) - (___kont113635113636_ - _tl108469108501_ - _hd108470108499_))) - (___kont113637113638_)) - (___kont113637113638_)) - (___kont113637113638_)))) - (___kont113637113638_))))))) - (let* ((_g108393108410_ - (lambda (_g108394108407_) + (##car _e108453108478_)))) + (___kont113617113618_ + _tl108451108483_ + _hd108452108481_))) + (___kont113619113620_)) + (___kont113619113620_)) + (___kont113619113620_)))) + (___kont113619113620_))))))) + (let* ((_g108375108392_ + (lambda (_g108376108389_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108394108407_)))) - (_g108392108456_ - (lambda (_g108394108413_) + _g108376108389_)))) + (_g108374108438_ + (lambda (_g108376108395_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108394108413_)) - (let ((_e108399108415_ + (gx#stx-pair? _g108376108395_)) + (let ((_e108381108397_ (let () (declare (not safe)) - (gx#stx-e _g108394108413_)))) - (let ((_hd108398108418_ + (gx#stx-e _g108376108395_)))) + (let ((_hd108380108400_ (let () (declare (not safe)) - (##car _e108399108415_))) - (_tl108397108420_ + (##car _e108381108397_))) + (_tl108379108402_ (let () (declare (not safe)) - (##cdr _e108399108415_)))) + (##cdr _e108381108397_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108397108420_)) - (let ((_e108402108423_ + (gx#stx-pair? _tl108379108402_)) + (let ((_e108384108405_ (let () (declare (not safe)) - (gx#stx-e _tl108397108420_)))) - (let ((_hd108401108426_ + (gx#stx-e _tl108379108402_)))) + (let ((_hd108383108408_ (let () (declare (not safe)) - (##car _e108402108423_))) - (_tl108400108428_ + (##car _e108384108405_))) + (_tl108382108410_ (let () (declare (not safe)) - (##cdr _e108402108423_)))) + (##cdr _e108384108405_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108400108428_)) - (let ((_e108405108431_ + (gx#stx-pair? _tl108382108410_)) + (let ((_e108387108413_ (let () (declare (not safe)) - (gx#stx-e _tl108400108428_)))) - (let ((_hd108404108434_ + (gx#stx-e _tl108382108410_)))) + (let ((_hd108386108416_ (let () (declare (not safe)) - (##car _e108405108431_))) - (_tl108403108436_ + (##car _e108387108413_))) + (_tl108385108418_ (let () (declare (not safe)) - (##cdr _e108405108431_)))) + (##cdr _e108387108413_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl108403108436_)) - ((lambda (_L108439_ _L108440_) + _tl108385108418_)) + ((lambda (_L108421_ _L108422_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L108440_)) + _L108422_)) (if (let () (declare (not safe)) - (_generate-letrec?108390_ - _L108440_)) + (_generate-letrec?108372_ + _L108422_)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let - _self108386_ + _self108368_ 'letrec - _L108440_ - _L108439_ + _L108422_ + _L108421_ '#f)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let - _self108386_ + _self108368_ 'letrec* - _L108440_ - _L108439_ + _L108422_ + _L108421_ '#f))) (let () (declare (not safe)) - (_generate-values108389_ - _L108440_ - _L108439_)))) - _hd108404108434_ - _hd108401108426_) + (_generate-values108371_ + _L108422_ + _L108421_)))) + _hd108386108416_ + _hd108383108408_) (let () (declare (not safe)) - (_g108393108410_ - _g108394108413_))))) + (_g108375108392_ + _g108376108395_))))) (let () (declare (not safe)) - (_g108393108410_ _g108394108413_))))) + (_g108375108392_ _g108376108395_))))) (let () (declare (not safe)) - (_g108393108410_ _g108394108413_))))) + (_g108375108392_ _g108376108395_))))) (let () (declare (not safe)) - (_g108393108410_ _g108394108413_)))))) + (_g108375108392_ _g108376108395_)))))) (declare (not safe)) - (_g108392108456_ _stx108387_))))) + (_g108374108438_ _stx108369_))))) (define gxc#generate-runtime-simple-let? - (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 (_hd108305_) + (let _lp108307_ ((_rest108309_ _hd108305_)) + (let* ((_rest108310108326_ _rest108309_) + (_else108313108334_ (lambda () '#f))) + (let ((_K108316108347_ + (lambda (_rest108345_) + (let () (declare (not safe)) (_lp108307_ _rest108345_)))) + (_K108315108339_ (lambda () '#t))) + (let ((_try-match108312108342_ (lambda () (if (let () (declare (not safe)) - (##null? _rest108328108344_)) - (let () (declare (not safe)) (_K108333108357_)) + (##null? _rest108310108326_)) + (let () (declare (not safe)) (_K108315108339_)) (let () (declare (not safe)) - (_else108331108352_)))))) - (if (let () (declare (not safe)) (##pair? _rest108328108344_)) - (let ((_tl108336108370_ + (_else108313108334_)))))) + (if (let () (declare (not safe)) (##pair? _rest108310108326_)) + (let ((_tl108318108352_ (let () (declare (not safe)) - (##cdr _rest108328108344_))) - (_hd108335108368_ + (##cdr _rest108310108326_))) + (_hd108317108350_ (let () (declare (not safe)) - (##car _rest108328108344_)))) + (##car _rest108310108326_)))) (if (let () (declare (not safe)) - (##pair? _hd108335108368_)) - (let ((_tl108338108375_ + (##pair? _hd108317108350_)) + (let ((_tl108320108357_ (let () (declare (not safe)) - (##cdr _hd108335108368_))) - (_hd108337108373_ + (##cdr _hd108317108350_))) + (_hd108319108355_ (let () (declare (not safe)) - (##car _hd108335108368_)))) + (##car _hd108317108350_)))) (if (let () (declare (not safe)) - (##pair? _hd108337108373_)) - (let ((_tl108342108378_ + (##pair? _hd108319108355_)) + (let ((_tl108324108360_ (let () (declare (not safe)) - (##cdr _hd108337108373_)))) + (##cdr _hd108319108355_)))) (if (let () (declare (not safe)) - (##null? _tl108342108378_)) + (##null? _tl108324108360_)) (if (let () (declare (not safe)) - (##pair? _tl108338108375_)) - (let ((_tl108340108381_ + (##pair? _tl108320108357_)) + (let ((_tl108322108363_ (let () (declare (not safe)) - (##cdr _tl108338108375_)))) + (##cdr _tl108320108357_)))) (if (let () (declare (not safe)) - (##null? _tl108340108381_)) - (let ((_rest108384_ - _tl108336108370_)) + (##null? _tl108322108363_)) + (let ((_rest108366_ + _tl108318108352_)) (declare (not safe)) - (_lp108325_ _rest108384_)) + (_lp108307_ _rest108366_)) (let () (declare (not safe)) - (_else108331108352_)))) + (_else108313108334_)))) (let () (declare (not safe)) - (_else108331108352_))) + (_else108313108334_))) (let () (declare (not safe)) - (_else108331108352_)))) + (_else108313108334_)))) (let () (declare (not safe)) - (_else108331108352_)))) - (let () (declare (not safe)) (_else108331108352_)))) + (_else108313108334_)))) + (let () (declare (not safe)) (_else108313108334_)))) (let () (declare (not safe)) - (_try-match108330108360_))))))))) + (_try-match108312108342_))))))))) (define gxc#generate-runtime-simple-let - (lambda (_self108234_ - _form108235_ - _hd108236_ - _body108237_ - _compiled-body?108238_) - (letrec ((_generate1108240_ - (lambda (_bind108279_) - (let* ((_bind108280108291_ _bind108279_) - (_E108282108295_ + (lambda (_self108216_ + _form108217_ + _hd108218_ + _body108219_ + _compiled-body?108220_) + (letrec ((_generate1108222_ + (lambda (_bind108261_) + (let* ((_bind108262108273_ _bind108261_) + (_E108264108277_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _bind108280108291_)))) - (_K108283108301_ - (lambda (_expr108298_ _id108299_) - (let ((__tmp114623 + _bind108262108273_)))) + (_K108265108283_ + (lambda (_expr108280_ _id108281_) + (let ((__tmp114605 (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _id108299_))) - (__tmp114621 - (let ((__tmp114622 + _id108281_))) + (__tmp114603 + (let ((__tmp114604 (let () (declare (not safe)) (gxc#compile-e__1 - _self108234_ - _expr108298_)))) + _self108216_ + _expr108280_)))) (declare (not safe)) - (cons __tmp114622 '())))) + (cons __tmp114604 '())))) (declare (not safe)) - (cons __tmp114623 __tmp114621))))) + (cons __tmp114605 __tmp114603))))) (if (let () (declare (not safe)) - (##pair? _bind108280108291_)) - (let ((_hd108284108304_ + (##pair? _bind108262108273_)) + (let ((_hd108266108286_ (let () (declare (not safe)) - (##car _bind108280108291_))) - (_tl108285108306_ + (##car _bind108262108273_))) + (_tl108267108288_ (let () (declare (not safe)) - (##cdr _bind108280108291_)))) + (##cdr _bind108262108273_)))) (if (let () (declare (not safe)) - (##pair? _hd108284108304_)) - (let ((_hd108288108309_ + (##pair? _hd108266108286_)) + (let ((_hd108270108291_ (let () (declare (not safe)) - (##car _hd108284108304_))) - (_tl108289108311_ + (##car _hd108266108286_))) + (_tl108271108293_ (let () (declare (not safe)) - (##cdr _hd108284108304_)))) - (let ((_id108314_ _hd108288108309_)) + (##cdr _hd108266108286_)))) + (let ((_id108296_ _hd108270108291_)) (if (let () (declare (not safe)) - (##null? _tl108289108311_)) + (##null? _tl108271108293_)) (if (let () (declare (not safe)) - (##pair? _tl108285108306_)) - (let ((_hd108286108316_ + (##pair? _tl108267108288_)) + (let ((_hd108268108298_ (let () (declare (not safe)) - (##car _tl108285108306_))) - (_tl108287108318_ + (##car _tl108267108288_))) + (_tl108269108300_ (let () (declare (not safe)) - (##cdr _tl108285108306_)))) - (let ((_expr108321_ - _hd108286108316_)) + (##cdr _tl108267108288_)))) + (let ((_expr108303_ + _hd108268108298_)) (if (let () (declare (not safe)) - (##null? _tl108287108318_)) + (##null? _tl108269108300_)) (let () (declare (not safe)) - (_K108283108301_ - _expr108321_ - _id108314_)) + (_K108265108283_ + _expr108303_ + _id108296_)) (let () (declare (not safe)) - (_E108282108295_))))) + (_E108264108277_))))) (let () (declare (not safe)) - (_E108282108295_))) + (_E108264108277_))) (let () (declare (not safe)) - (_E108282108295_))))) + (_E108264108277_))))) (let () (declare (not safe)) - (_E108282108295_)))) - (let () (declare (not safe)) (_E108282108295_))))))) - (let* ((_bind108242_ (map _generate1108240_ _hd108236_)) - (_body108244_ - (if _compiled-body?108238_ - _body108237_ + (_E108264108277_)))) + (let () (declare (not safe)) (_E108264108277_))))))) + (let* ((_bind108224_ (map _generate1108222_ _hd108218_)) + (_body108226_ + (if _compiled-body?108220_ + _body108219_ (let () (declare (not safe)) - (gxc#compile-e__1 _self108234_ _body108237_)))) - (_body108276_ - (let* ((_body108245108253_ _body108244_) - (_else108247108261_ + (gxc#compile-e__1 _self108216_ _body108219_)))) + (_body108258_ + (let* ((_body108227108235_ _body108226_) + (_else108229108243_ (lambda () (let () (declare (not safe)) - (cons _body108244_ '())))) - (_K108249108266_ - (lambda (_exprs108264_) _exprs108264_))) + (cons _body108226_ '())))) + (_K108231108248_ + (lambda (_exprs108246_) _exprs108246_))) (if (let () (declare (not safe)) - (##pair? _body108245108253_)) - (let ((_hd108250108269_ + (##pair? _body108227108235_)) + (let ((_hd108232108251_ (let () (declare (not safe)) - (##car _body108245108253_))) - (_tl108251108271_ + (##car _body108227108235_))) + (_tl108233108253_ (let () (declare (not safe)) - (##cdr _body108245108253_)))) + (##cdr _body108227108235_)))) (if (let () (declare (not safe)) - (##eq? _hd108250108269_ 'begin)) - (let ((_exprs108274_ _tl108251108271_)) + (##eq? _hd108232108251_ 'begin)) + (let ((_exprs108256_ _tl108233108253_)) (declare (not safe)) - (_K108249108266_ _exprs108274_)) + (_K108231108248_ _exprs108256_)) (let () (declare (not safe)) - (_else108247108261_)))) - (let () (declare (not safe)) (_else108247108261_)))))) - (let ((__tmp114624 + (_else108229108243_)))) + (let () (declare (not safe)) (_else108229108243_)))))) + (let ((__tmp114606 (let () (declare (not safe)) - (cons _bind108242_ _body108276_)))) + (cons _bind108224_ _body108258_)))) (declare (not safe)) - (cons _form108235_ __tmp114624)))))) + (cons _form108217_ __tmp114606)))))) (define gxc#generate-runtime-quote% - (lambda (_self108141_ _stx108142_) - (letrec ((_generate1108144_ - (lambda (_datum108196_) - (if (or (let () (declare (not safe)) (null? _datum108196_)) - (interned-symbol? _datum108196_) + (lambda (_self108123_ _stx108124_) + (letrec ((_generate1108126_ + (lambda (_datum108178_) + (if (or (let () (declare (not safe)) (null? _datum108178_)) + (interned-symbol? _datum108178_) (let () (declare (not safe)) - (gx#self-quoting? _datum108196_)) + (gx#self-quoting? _datum108178_)) (let () (declare (not safe)) - (eof-object? _datum108196_))) - _datum108196_ - (if (uninterned-symbol? _datum108196_) + (eof-object? _datum108178_))) + _datum108178_ + (if (uninterned-symbol? _datum108178_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _datum108196_ + _datum108178_ '#t)) (if (let () (declare (not safe)) - (pair? _datum108196_)) - (let ((__tmp114629 - (let ((__tmp114630 (car _datum108196_))) + (pair? _datum108178_)) + (let ((__tmp114611 + (let ((__tmp114612 (car _datum108178_))) (declare (not safe)) - (_generate1108144_ __tmp114630))) - (__tmp114627 - (let ((__tmp114628 (cdr _datum108196_))) + (_generate1108126_ __tmp114612))) + (__tmp114609 + (let ((__tmp114610 (cdr _datum108178_))) (declare (not safe)) - (_generate1108144_ __tmp114628)))) + (_generate1108126_ __tmp114610)))) (declare (not safe)) - (cons __tmp114629 __tmp114627)) + (cons __tmp114611 __tmp114609)) (if (let () (declare (not safe)) - (box? _datum108196_)) - (let ((__tmp114625 - (let ((__tmp114626 - (unbox _datum108196_))) + (box? _datum108178_)) + (let ((__tmp114607 + (let ((__tmp114608 + (unbox _datum108178_))) (declare (not safe)) - (_generate1108144_ __tmp114626)))) + (_generate1108126_ __tmp114608)))) (declare (not safe)) - (box __tmp114625)) + (box __tmp114607)) (if (let () (declare (not safe)) - (vector? _datum108196_)) + (vector? _datum108178_)) (vector-map - _generate1108144_ - _datum108196_) - (if (or (s8vector? _datum108196_) + _generate1108126_ + _datum108178_) + (if (or (s8vector? _datum108178_) (let () (declare (not safe)) - (u8vector? _datum108196_)) - (s16vector? _datum108196_) - (u16vector? _datum108196_) - (s32vector? _datum108196_) - (u32vector? _datum108196_) - (s64vector? _datum108196_) - (u64vector? _datum108196_) - (f32vector? _datum108196_) - (f64vector? _datum108196_)) - _datum108196_ + (u8vector? _datum108178_)) + (s16vector? _datum108178_) + (u16vector? _datum108178_) + (s32vector? _datum108178_) + (u32vector? _datum108178_) + (s64vector? _datum108178_) + (u64vector? _datum108178_) + (f32vector? _datum108178_) + (f64vector? _datum108178_)) + _datum108178_ (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _stx108142_))))))))))) - (let* ((_g108146108159_ - (lambda (_g108147108156_) + _stx108124_))))))))))) + (let* ((_g108128108141_ + (lambda (_g108129108138_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108147108156_)))) - (_g108145108193_ - (lambda (_g108147108162_) + _g108129108138_)))) + (_g108127108175_ + (lambda (_g108129108144_) (if (let () (declare (not safe)) - (gx#stx-pair? _g108147108162_)) - (let ((_e108151108164_ + (gx#stx-pair? _g108129108144_)) + (let ((_e108133108146_ (let () (declare (not safe)) - (gx#stx-e _g108147108162_)))) - (let ((_hd108150108167_ + (gx#stx-e _g108129108144_)))) + (let ((_hd108132108149_ (let () (declare (not safe)) - (##car _e108151108164_))) - (_tl108149108169_ + (##car _e108133108146_))) + (_tl108131108151_ (let () (declare (not safe)) - (##cdr _e108151108164_)))) + (##cdr _e108133108146_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl108149108169_)) - (let ((_e108154108172_ + (gx#stx-pair? _tl108131108151_)) + (let ((_e108136108154_ (let () (declare (not safe)) - (gx#stx-e _tl108149108169_)))) - (let ((_hd108153108175_ + (gx#stx-e _tl108131108151_)))) + (let ((_hd108135108157_ (let () (declare (not safe)) - (##car _e108154108172_))) - (_tl108152108177_ + (##car _e108136108154_))) + (_tl108134108159_ (let () (declare (not safe)) - (##cdr _e108154108172_)))) + (##cdr _e108136108154_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl108152108177_)) - ((lambda (_L108180_) - (let ((__tmp114631 - (let ((__tmp114632 - (let ((__tmp114633 + (gx#stx-null? _tl108134108159_)) + ((lambda (_L108162_) + (let ((__tmp114613 + (let ((__tmp114614 + (let ((__tmp114615 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L108180_)))) + (gx#stx-e _L108162_)))) (declare (not safe)) - (_generate1108144_ __tmp114633)))) + (_generate1108126_ __tmp114615)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114632 '())))) + (cons __tmp114614 '())))) (declare (not safe)) - (cons 'quote __tmp114631))) - _hd108153108175_) + (cons 'quote __tmp114613))) + _hd108135108157_) (let () (declare (not safe)) - (_g108146108159_ _g108147108162_))))) + (_g108128108141_ _g108129108144_))))) (let () (declare (not safe)) - (_g108146108159_ _g108147108162_))))) + (_g108128108141_ _g108129108144_))))) (let () (declare (not safe)) - (_g108146108159_ _g108147108162_)))))) + (_g108128108141_ _g108129108144_)))))) (declare (not safe)) - (_g108145108193_ _stx108142_))))) + (_g108127108175_ _stx108124_))))) (define gxc#generate-runtime-call% - (lambda (_self107654_ _stx107655_) - (letrec ((_compile-call107657_ - (lambda (_rator107881_ _rands107882_) - (let ((_rator107888_ + (lambda (_self107636_ _stx107637_) + (letrec ((_compile-call107639_ + (lambda (_rator107863_ _rands107864_) + (let ((_rator107870_ (let () (declare (not safe)) - (gxc#compile-e__1 _self107654_ _rator107881_))) - (_rands107889_ - (map (lambda (_g107883107885_) + (gxc#compile-e__1 _self107636_ _rator107863_))) + (_rands107871_ + (map (lambda (_g107865107867_) (let () (declare (not safe)) (gxc#compile-e__1 - _self107654_ - _g107883107885_))) - _rands107882_))) - (let* ((___stx113680113681_ _rator107888_) - (_g107892107944_ + _self107636_ + _g107865107867_))) + _rands107864_))) + (let* ((___stx113662113663_ _rator107870_) + (_g107874107926_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113680113681_))))) - (let ((___kont113682113683_ - (lambda (_L108068_ - _L108069_ - _L108070_ - _L108071_) - (if (fx= (length _rands107889_) - (length (let ((__tmp114638 - (lambda (_g108107108110_ + ___stx113662113663_))))) + (let ((___kont113664113665_ + (lambda (_L108050_ + _L108051_ + _L108052_ + _L108053_) + (if (fx= (length _rands107871_) + (length (let ((__tmp114620 + (lambda (_g108089108092_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g108108108112_) + _g108090108094_) (let () (declare (not safe)) - (cons _g108107108110_ _g108108108112_))))) + (cons _g108089108092_ _g108090108094_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp114638 + (foldr1 __tmp114620 '() - _L108070_)))) - (let* ((_id108115_ _L108071_) - (_args108124_ - (let ((__tmp114634 - (lambda (_g108116108119_ - _g108117108121_) + _L108052_)))) + (let* ((_id108097_ _L108053_) + (_args108106_ + (let ((__tmp114616 + (lambda (_g108098108101_ + _g108099108103_) (let () (declare (not safe)) - (cons _g108116108119_ - _g108117108121_))))) + (cons _g108098108101_ + _g108099108103_))))) (declare (not safe)) - (foldr1 __tmp114634 + (foldr1 __tmp114616 '() - _L108070_))) - (_body108133_ - (let ((__tmp114635 - (lambda (_g108125108128_ - _g108126108130_) + _L108052_))) + (_body108115_ + (let ((__tmp114617 + (lambda (_g108107108110_ + _g108108108112_) (let () (declare (not safe)) - (cons _g108125108128_ - _g108126108130_))))) + (cons _g108107108110_ + _g108108108112_))))) (declare (not safe)) - (foldr1 __tmp114635 + (foldr1 __tmp114617 '() - _L108069_))) - (_init108135_ + _L108051_))) + (_init108117_ (map list - _args108124_ - _rands107889_))) - (let ((__tmp114636 - (let ((__tmp114637 + _args108106_ + _rands107871_))) + (let ((__tmp114618 + (let ((__tmp114619 (let () (declare (not safe)) - (cons _init108135_ - _body108133_)))) + (cons _init108117_ + _body108115_)))) (declare (not safe)) - (cons _id108115_ - __tmp114637)))) + (cons _id108097_ + __tmp114619)))) (declare (not safe)) - (cons 'let __tmp114636))) + (cons 'let __tmp114618))) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _stx107655_))))) - (___kont113688113689_ + _stx107637_))))) + (___kont113670113671_ (lambda () (let () (declare (not safe)) - (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_) + (cons _rator107870_ _rands107871_))))) + (let ((___match113729113730_ + (lambda (_e107882107938_ + _hd107881107941_ + _tl107880107943_ + _e107885107946_ + _hd107884107949_ + _tl107883107951_ + _e107888107954_ + _hd107887107957_ + _tl107886107959_ + _e107891107962_ + _hd107890107965_ + _tl107889107967_ + _e107894107970_ + _hd107893107973_ + _tl107892107975_ + _e107897107978_ + _hd107896107981_ + _tl107895107983_ + _e107900107986_ + _hd107899107989_ + _tl107898107991_ + ___splice113666113667_ + _target107901107994_ + _tl107903107996_) + (letrec ((_loop107904107999_ + (lambda (_hd107902108002_ + _arg107908108004_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd107920108020_)) - (let ((_e107923108025_ + _hd107902108002_)) + (let ((_e107905108007_ (let () (declare (not safe)) (gx#stx-e - _hd107920108020_)))) - (let ((_lp-tl107925108030_ + _hd107902108002_)))) + (let ((_lp-tl107907108012_ (let () (declare (not safe)) - (##cdr _e107923108025_))) - (_lp-hd107924108028_ + (##cdr _e107905108007_))) + (_lp-hd107906108010_ (let () (declare (not safe)) - (##car _e107923108025_)))) - (let ((__tmp114640 + (##car _e107905108007_)))) + (let ((__tmp114622 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd107924108028_ _arg107926108022_)))) + (cons _lp-hd107906108010_ _arg107908108004_)))) (declare (not safe)) - (_loop107922108017_ _lp-tl107925108030_ __tmp114640)))) + (_loop107904107999_ _lp-tl107907108012_ __tmp114622)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg107927108033_ - (reverse _arg107926108022_))) + (let ((_arg107909108015_ + (reverse _arg107908108004_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl107916108009_)) - (let ((___splice113686113687_ + _tl107898107991_)) + (let ((___splice113668113669_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl107916108009_ '0)))) - (let ((_tl107930108038_ + (gx#syntax-split-splice _tl107898107991_ '0)))) + (let ((_tl107912108020_ (let () (declare (not safe)) - (##vector-ref ___splice113686113687_ '1))) - (_target107928108036_ + (##vector-ref ___splice113668113669_ '1))) + (_target107910108018_ (let () (declare (not safe)) - (##vector-ref ___splice113686113687_ '0)))) + (##vector-ref ___splice113668113669_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107930108038_)) - (letrec ((_loop107931108041_ - (lambda (_hd107929108044_ - _body107935108046_) + (gx#stx-null? _tl107912108020_)) + (letrec ((_loop107913108023_ + (lambda (_hd107911108026_ + _body107917108028_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd107929108044_)) - (let ((_e107932108049_ + (gx#stx-pair? _hd107911108026_)) + (let ((_e107914108031_ (let () (declare (not safe)) (gx#stx-e - _hd107929108044_)))) - (let ((_lp-tl107934108054_ + _hd107911108026_)))) + (let ((_lp-tl107916108036_ (let () (declare (not safe)) - (##cdr _e107932108049_))) - (_lp-hd107933108052_ + (##cdr _e107914108031_))) + (_lp-hd107915108034_ (let () (declare (not safe)) - (##car _e107932108049_)))) - (let ((__tmp114639 + (##car _e107914108031_)))) + (let ((__tmp114621 (let () (declare (not safe)) - (cons _lp-hd107933108052_ - _body107935108046_)))) + (cons _lp-hd107915108034_ + _body107917108028_)))) (declare (not safe)) - (_loop107931108041_ - _lp-tl107934108054_ - __tmp114639)))) - (let ((_body107936108057_ - (reverse _body107935108046_))) + (_loop107913108023_ + _lp-tl107916108036_ + __tmp114621)))) + (let ((_body107918108039_ + (reverse _body107917108028_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107910107993_)) + _tl107892107975_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl107904107977_)) + _tl107886107959_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107901107969_)) - (let ((_e107939108060_ + _tl107883107951_)) + (let ((_e107921108042_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl107901107969_)))) - (let ((_tl107937108065_ - (let () (declare (not safe)) (##cdr _e107939108060_))) - (_hd107938108063_ - (let () (declare (not safe)) (##car _e107939108060_)))) + (gx#stx-e _tl107883107951_)))) + (let ((_tl107919108047_ + (let () (declare (not safe)) (##cdr _e107921108042_))) + (_hd107920108045_ + (let () (declare (not safe)) (##car _e107921108042_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107937108065_)) - (let ((_L108068_ _hd107938108063_) - (_L108069_ _body107936108057_) - (_L108070_ _arg107927108033_) - (_L108071_ _hd107908107983_)) + (gx#stx-null? _tl107919108047_)) + (let ((_L108050_ _hd107920108045_) + (_L108051_ _body107918108039_) + (_L108052_ _arg107909108015_) + (_L108053_ _hd107890107965_)) (if (let () (declare (not safe)) - (eq? _L108071_ _L108068_)) - (___kont113682113683_ - _L108068_ - _L108069_ - _L108070_ - _L108071_) - (___kont113688113689_))) - (___kont113688113689_)))) - (___kont113688113689_)) + (eq? _L108053_ _L108050_)) + (___kont113664113665_ + _L108050_ + _L108051_ + _L108052_ + _L108053_) + (___kont113670113671_))) + (___kont113670113671_)))) + (___kont113670113671_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113688113689_)) - (___kont113688113689_))))))) + (___kont113670113671_)) + (___kont113670113671_))))))) (let () (declare (not safe)) - (_loop107931108041_ _target107928108036_ '()))) - (___kont113688113689_)))) - (___kont113688113689_))))))) + (_loop107913108023_ _target107910108018_ '()))) + (___kont113670113671_)))) + (___kont113670113671_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop107922108017_ - _target107919108012_ + (_loop107904107999_ + _target107901107994_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113680113681_)) - (let ((_e107900107956_ + (gx#stx-pair? ___stx113662113663_)) + (let ((_e107882107938_ (let () (declare (not safe)) - (gx#stx-e ___stx113680113681_)))) - (let ((_tl107898107961_ + (gx#stx-e ___stx113662113663_)))) + (let ((_tl107880107943_ (let () (declare (not safe)) - (##cdr _e107900107956_))) - (_hd107899107959_ + (##cdr _e107882107938_))) + (_hd107881107941_ (let () (declare (not safe)) - (##car _e107900107956_)))) + (##car _e107882107938_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd107899107959_)) + (gx#identifier? _hd107881107941_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _hd107899107959_)) + _hd107881107941_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107898107961_)) - (let ((_e107903107964_ + _tl107880107943_)) + (let ((_e107885107946_ (let () (declare (not safe)) (gx#stx-e - _tl107898107961_)))) - (let ((_tl107901107969_ + _tl107880107943_)))) + (let ((_tl107883107951_ (let () (declare (not safe)) - (##cdr _e107903107964_))) - (_hd107902107967_ + (##cdr _e107885107946_))) + (_hd107884107949_ (let () (declare (not safe)) - (##car _e107903107964_)))) + (##car _e107885107946_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd107902107967_)) - (let ((_e107906107972_ + _hd107884107949_)) + (let ((_e107888107954_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd107902107967_)))) - (let ((_tl107904107977_ - (let () (declare (not safe)) (##cdr _e107906107972_))) - (_hd107905107975_ + (gx#stx-e _hd107884107949_)))) + (let ((_tl107886107959_ + (let () (declare (not safe)) (##cdr _e107888107954_))) + (_hd107887107957_ (let () (declare (not safe)) - (##car _e107906107972_)))) + (##car _e107888107954_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd107905107975_)) - (let ((_e107909107980_ + (gx#stx-pair? _hd107887107957_)) + (let ((_e107891107962_ (let () (declare (not safe)) - (gx#stx-e _hd107905107975_)))) - (let ((_tl107907107985_ + (gx#stx-e _hd107887107957_)))) + (let ((_tl107889107967_ (let () (declare (not safe)) - (##cdr _e107909107980_))) - (_hd107908107983_ + (##cdr _e107891107962_))) + (_hd107890107965_ (let () (declare (not safe)) - (##car _e107909107980_)))) + (##car _e107891107962_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107907107985_)) - (let ((_e107912107988_ + (gx#stx-pair? _tl107889107967_)) + (let ((_e107894107970_ (let () (declare (not safe)) - (gx#stx-e _tl107907107985_)))) - (let ((_tl107910107993_ + (gx#stx-e _tl107889107967_)))) + (let ((_tl107892107975_ (let () (declare (not safe)) - (##cdr _e107912107988_))) - (_hd107911107991_ + (##cdr _e107894107970_))) + (_hd107893107973_ (let () (declare (not safe)) - (##car _e107912107988_)))) + (##car _e107894107970_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd107911107991_)) - (let ((_e107915107996_ + (gx#stx-pair? _hd107893107973_)) + (let ((_e107897107978_ (let () (declare (not safe)) - (gx#stx-e _hd107911107991_)))) - (let ((_tl107913108001_ + (gx#stx-e _hd107893107973_)))) + (let ((_tl107895107983_ (let () (declare (not safe)) - (##cdr _e107915107996_))) - (_hd107914107999_ + (##cdr _e107897107978_))) + (_hd107896107981_ (let () (declare (not safe)) - (##car _e107915107996_)))) + (##car _e107897107978_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd107914107999_)) + _hd107896107981_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _hd107914107999_)) + _hd107896107981_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107913108001_)) - (let ((_e107918108004_ + _tl107895107983_)) + (let ((_e107900107986_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl107913108001_)))) - (let ((_tl107916108009_ - (let () (declare (not safe)) (##cdr _e107918108004_))) - (_hd107917108007_ + (gx#stx-e _tl107895107983_)))) + (let ((_tl107898107991_ + (let () (declare (not safe)) (##cdr _e107900107986_))) + (_hd107899107989_ (let () (declare (not safe)) - (##car _e107918108004_)))) + (##car _e107900107986_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd107917108007_)) - (let ((___splice113684113685_ + (gx#stx-pair/null? _hd107899107989_)) + (let ((___splice113666113667_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd107917108007_ + _hd107899107989_ '0)))) - (let ((_tl107921108014_ + (let ((_tl107903107996_ (let () (declare (not safe)) - (##vector-ref ___splice113684113685_ '1))) - (_target107919108012_ + (##vector-ref ___splice113666113667_ '1))) + (_target107901107994_ (let () (declare (not safe)) - (##vector-ref ___splice113684113685_ '0)))) + (##vector-ref ___splice113666113667_ '0)))) (if (let () (declare (not safe)) - (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_)) + (gx#stx-null? _tl107903107996_)) + (___match113729113730_ + _e107882107938_ + _hd107881107941_ + _tl107880107943_ + _e107885107946_ + _hd107884107949_ + _tl107883107951_ + _e107888107954_ + _hd107887107957_ + _tl107886107959_ + _e107891107962_ + _hd107890107965_ + _tl107889107967_ + _e107894107970_ + _hd107893107973_ + _tl107892107975_ + _e107897107978_ + _hd107896107981_ + _tl107895107983_ + _e107900107986_ + _hd107899107989_ + _tl107898107991_ + ___splice113666113667_ + _target107901107994_ + _tl107903107996_) + (___kont113670113671_)))) + (___kont113670113671_)))) + (___kont113670113671_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113688113689_)) - (___kont113688113689_)))) - (___kont113688113689_)))) - (___kont113688113689_)))) - (___kont113688113689_)))) - (___kont113688113689_)))) + (___kont113670113671_)) + (___kont113670113671_)))) + (___kont113670113671_)))) + (___kont113670113671_)))) + (___kont113670113671_)))) + (___kont113670113671_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113688113689_)) - (___kont113688113689_)) - (___kont113688113689_)))) - (___kont113688113689_))))))))) - (let* ((_g107659107673_ - (lambda (_g107660107670_) + (___kont113670113671_)) + (___kont113670113671_)) + (___kont113670113671_)))) + (___kont113670113671_))))))))) + (let* ((_g107641107655_ + (lambda (_g107642107652_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107660107670_)))) - (_g107658107878_ - (lambda (_g107660107676_) + _g107642107652_)))) + (_g107640107860_ + (lambda (_g107642107658_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107660107676_)) - (let ((_e107665107678_ + (gx#stx-pair? _g107642107658_)) + (let ((_e107647107660_ (let () (declare (not safe)) - (gx#stx-e _g107660107676_)))) - (let ((_hd107664107681_ + (gx#stx-e _g107642107658_)))) + (let ((_hd107646107663_ (let () (declare (not safe)) - (##car _e107665107678_))) - (_tl107663107683_ + (##car _e107647107660_))) + (_tl107645107665_ (let () (declare (not safe)) - (##cdr _e107665107678_)))) + (##cdr _e107647107660_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107663107683_)) - (let ((_e107668107686_ + (gx#stx-pair? _tl107645107665_)) + (let ((_e107650107668_ (let () (declare (not safe)) - (gx#stx-e _tl107663107683_)))) - (let ((_hd107667107689_ + (gx#stx-e _tl107645107665_)))) + (let ((_hd107649107671_ (let () (declare (not safe)) - (##car _e107668107686_))) - (_tl107666107691_ + (##car _e107650107668_))) + (_tl107648107673_ (let () (declare (not safe)) - (##cdr _e107668107686_)))) - ((lambda (_L107694_ _L107695_) + (##cdr _e107650107668_)))) + ((lambda (_L107676_ _L107677_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (_compile-call107657_ - _L107695_ - _L107694_)) - (let* ((___stx113796113797_ - _L107695_) - (_g107710107722_ + (_compile-call107639_ + _L107677_ + _L107676_)) + (let* ((___stx113778113779_ + _L107677_) + (_g107692107704_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113796113797_))))) - (let ((___kont113798113799_ + ___stx113778113779_))))) + (let ((___kont113780113781_ (lambda () - (let ((_f107752_ + (let ((_f107734_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__1 _self107654_ _L107695_)))) - (if (let ((__tmp114655 (symbol->string _f107752_))) + (gxc#compile-e__1 _self107636_ _L107677_)))) + (if (let ((__tmp114637 (symbol->string _f107734_))) (declare (not safe)) - (string-prefix? '"##" __tmp114655)) - (let _lp107754_ ((_rest107757_ (reverse _L107694_)) - (_bind107759_ '()) - (_args107760_ '())) - (let* ((_rest107761107769_ _rest107757_) - (_else107763107777_ + (string-prefix? '"##" __tmp114637)) + (let _lp107736_ ((_rest107739_ (reverse _L107676_)) + (_bind107741_ '()) + (_args107742_ '())) + (let* ((_rest107743107751_ _rest107739_) + (_else107745107759_ (lambda () - (let ((__tmp114641 - (let ((__tmp114642 - (let ((__tmp114643 - (let ((__tmp114644 + (let ((__tmp114623 + (let ((__tmp114624 + (let ((__tmp114625 + (let ((__tmp114626 (let () (declare (not safe)) - (cons _f107752_ + (cons _f107734_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _args107760_)))) + _args107742_)))) (declare (not safe)) - (cons __tmp114644 '())))) + (cons __tmp114626 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp114643)))) + __tmp114625)))) (declare (not safe)) - (cons _bind107759_ __tmp114642)))) + (cons _bind107741_ __tmp114624)))) (declare (not safe)) - (cons 'let __tmp114641)))) - (_K107765107863_ - (lambda (_rest107780_ _e107781_) - (let* ((___stx113750113751_ _e107781_) - (_g107786107804_ + (cons 'let __tmp114623)))) + (_K107747107845_ + (lambda (_rest107762_ _e107763_) + (let* ((___stx113732113733_ _e107763_) + (_g107768107786_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113750113751_))))) - (let ((___kont113752113753_ + ___stx113732113733_))))) + (let ((___kont113734113735_ (lambda () - (let ((__tmp114645 - (let ((__tmp114646 + (let ((__tmp114627 + (let ((__tmp114628 (let () (declare (not safe)) (gxc#compile-e__0 - _e107781_)))) + _e107763_)))) (declare (not safe)) - (cons __tmp114646 - _args107760_)))) + (cons __tmp114628 + _args107742_)))) (declare (not safe)) - (_lp107754_ - _rest107780_ - _bind107759_ - __tmp114645)))) - (___kont113754113755_ + (_lp107736_ + _rest107762_ + _bind107741_ + __tmp114627)))) + (___kont113736113737_ (lambda () - (let ((__tmp114647 - (let ((__tmp114648 + (let ((__tmp114629 + (let ((__tmp114630 (let () (declare (not safe)) (gxc#compile-e__0 - _e107781_)))) + _e107763_)))) (declare (not safe)) - (cons __tmp114648 - _args107760_)))) + (cons __tmp114630 + _args107742_)))) (declare (not safe)) - (_lp107754_ - _rest107780_ - _bind107759_ - __tmp114647)))) - (___kont113756113757_ + (_lp107736_ + _rest107762_ + _bind107741_ + __tmp114629)))) + (___kont113738113739_ (lambda () - (let ((_tmp107811_ - (let ((__tmp114649 + (let ((_tmp107793_ + (let ((__tmp114631 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp114649)))) - (let ((__tmp114651 - (let ((__tmp114652 - (let ((__tmp114653 + __tmp114631)))) + (let ((__tmp114633 + (let ((__tmp114634 + (let ((__tmp114635 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114654 + (let ((__tmp114636 (let () (declare (not safe)) - (gxc#compile-e__0 _e107781_)))) + (gxc#compile-e__0 _e107763_)))) (declare (not safe)) - (cons __tmp114654 '())))) + (cons __tmp114636 '())))) (declare (not safe)) - (cons _tmp107811_ __tmp114653)))) + (cons _tmp107793_ __tmp114635)))) (declare (not safe)) - (cons __tmp114652 _bind107759_))) + (cons __tmp114634 _bind107741_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114650 + (__tmp114632 (let () (declare (not safe)) - (cons _tmp107811_ - _args107760_)))) + (cons _tmp107793_ + _args107742_)))) (declare (not safe)) - (_lp107754_ - _rest107780_ - __tmp114651 - __tmp114650)))))) + (_lp107736_ + _rest107762_ + __tmp114633 + __tmp114632)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113750113751_)) - (let ((_e107790107842_ + (gx#stx-pair? ___stx113732113733_)) + (let ((_e107772107824_ (let () (declare (not safe)) (gx#stx-e - ___stx113750113751_)))) - (let ((_tl107788107847_ + ___stx113732113733_)))) + (let ((_tl107770107829_ (let () (declare (not safe)) - (##cdr _e107790107842_))) - (_hd107789107845_ + (##cdr _e107772107824_))) + (_hd107771107827_ (let () (declare (not safe)) - (##car _e107790107842_)))) + (##car _e107772107824_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd107789107845_)) + _hd107771107827_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd107789107845_)) + _hd107771107827_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107788107847_)) - (let ((_e107793107850_ + _tl107770107829_)) + (let ((_e107775107832_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl107788107847_)))) - (let ((_tl107791107855_ - (let () (declare (not safe)) (##cdr _e107793107850_))) - (_hd107792107853_ + (gx#stx-e _tl107770107829_)))) + (let ((_tl107773107837_ + (let () (declare (not safe)) (##cdr _e107775107832_))) + (_hd107774107835_ (let () (declare (not safe)) - (##car _e107793107850_)))) + (##car _e107775107832_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107791107855_)) - (___kont113752113753_) - (___kont113756113757_)))) - (___kont113756113757_)) + (gx#stx-null? _tl107773107837_)) + (___kont113734113735_) + (___kont113738113739_)))) + (___kont113738113739_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd107789107845_)) + _hd107771107827_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107788107847_)) - (let ((_e107799107827_ + _tl107770107829_)) + (let ((_e107781107809_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl107788107847_)))) - (let ((_tl107797107832_ + (gx#stx-e _tl107770107829_)))) + (let ((_tl107779107814_ (let () (declare (not safe)) - (##cdr _e107799107827_))) - (_hd107798107830_ + (##cdr _e107781107809_))) + (_hd107780107812_ (let () (declare (not safe)) - (##car _e107799107827_)))) + (##car _e107781107809_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107797107832_)) - (___kont113754113755_) - (___kont113756113757_)))) - (___kont113756113757_)) - (___kont113756113757_))) + (gx#stx-null? _tl107779107814_)) + (___kont113736113737_) + (___kont113738113739_)))) + (___kont113738113739_)) + (___kont113738113739_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113756113757_)))) - (___kont113756113757_))))))) + (___kont113738113739_)))) + (___kont113738113739_))))))) (if (let () (declare (not safe)) - (##pair? _rest107761107769_)) - (let ((_hd107766107866_ + (##pair? _rest107743107751_)) + (let ((_hd107748107848_ (let () (declare (not safe)) - (##car _rest107761107769_))) - (_tl107767107868_ + (##car _rest107743107751_))) + (_tl107749107850_ (let () (declare (not safe)) - (##cdr _rest107761107769_)))) - (let* ((_e107871_ _hd107766107866_) - (_rest107873_ _tl107767107868_)) + (##cdr _rest107743107751_)))) + (let* ((_e107853_ _hd107748107848_) + (_rest107855_ _tl107749107850_)) (declare (not safe)) - (_K107765107863_ _rest107873_ _e107871_))) + (_K107747107845_ _rest107855_ _e107853_))) (let () (declare (not safe)) - (_else107763107777_))))) + (_else107745107759_))))) (let () (declare (not safe)) - (_compile-call107657_ _L107695_ _L107694_)))))) + (_compile-call107639_ _L107677_ _L107676_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113800113801_ + (___kont113782113783_ (lambda () (let () (declare (not safe)) - (_compile-call107657_ - _L107695_ - _L107694_))))) + (_compile-call107639_ + _L107677_ + _L107676_))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx113796113797_)) - (let ((_e107714107734_ + ___stx113778113779_)) + (let ((_e107696107716_ (let () (declare (not safe)) (gx#stx-e - ___stx113796113797_)))) - (let ((_tl107712107739_ + ___stx113778113779_)))) + (let ((_tl107694107721_ (let () (declare (not safe)) - (##cdr _e107714107734_))) - (_hd107713107737_ + (##cdr _e107696107716_))) + (_hd107695107719_ (let () (declare (not safe)) - (##car _e107714107734_)))) + (##car _e107696107716_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd107713107737_)) + _hd107695107719_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-eq? '%#ref _hd107713107737_)) + (gx#stx-eq? '%#ref _hd107695107719_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107712107739_)) - (let ((_e107717107742_ + (gx#stx-pair? _tl107694107721_)) + (let ((_e107699107724_ (let () (declare (not safe)) - (gx#stx-e _tl107712107739_)))) - (let ((_tl107715107747_ + (gx#stx-e _tl107694107721_)))) + (let ((_tl107697107729_ (let () (declare (not safe)) - (##cdr _e107717107742_))) - (_hd107716107745_ + (##cdr _e107699107724_))) + (_hd107698107727_ (let () (declare (not safe)) - (##car _e107717107742_)))) + (##car _e107699107724_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107715107747_)) - (___kont113798113799_) - (___kont113800113801_)))) - (___kont113800113801_)) - (___kont113800113801_)) - (___kont113800113801_)))) + (gx#stx-null? _tl107697107729_)) + (___kont113780113781_) + (___kont113782113783_)))) + (___kont113782113783_)) + (___kont113782113783_)) + (___kont113782113783_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113800113801_)))))) - _tl107666107691_ - _hd107667107689_))) + (___kont113782113783_)))))) + _tl107648107673_ + _hd107649107671_))) (let () (declare (not safe)) - (_g107659107673_ _g107660107676_))))) + (_g107641107655_ _g107642107658_))))) (let () (declare (not safe)) - (_g107659107673_ _g107660107676_)))))) + (_g107641107655_ _g107642107658_)))))) (declare (not safe)) - (_g107658107878_ _stx107655_))))) + (_g107640107860_ _stx107637_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_self107441_ _stx107442_) - (let* ((___stx113868113869_ _stx107442_) - (_g107445107465_ + (lambda (_self107423_ _stx107424_) + (let* ((___stx113850113851_ _stx107424_) + (_g107427107447_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113868113869_))))) - (let ((___kont113870113871_ - (lambda (_L107509_ _L107510_) + ___stx113850113851_))))) + (let ((___kont113852113853_ + (lambda (_L107491_ _L107492_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (gxc#generate-runtime-call% _self107441_ _stx107442_)) - (let ((_f107528_ - (let ((__tmp114656 - (let ((__tmp114658 + (gxc#generate-runtime-call% _self107423_ _stx107424_)) + (let ((_f107510_ + (let ((__tmp114638 + (let ((__tmp114640 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp114657 + (__tmp114639 (let () (declare (not safe)) - (cons _L107510_ '())))) + (cons _L107492_ '())))) (declare (not safe)) - (cons __tmp114658 __tmp114657)))) + (cons __tmp114640 __tmp114639)))) (declare (not safe)) - (gxc#compile-e__1 _self107441_ __tmp114656)))) - (let _lp107530_ ((_rest107533_ (reverse _L107509_)) - (_bind107535_ '()) - (_args107536_ '())) - (let* ((_rest107537107545_ _rest107533_) - (_else107539107553_ + (gxc#compile-e__1 _self107423_ __tmp114638)))) + (let _lp107512_ ((_rest107515_ (reverse _L107491_)) + (_bind107517_ '()) + (_args107518_ '())) + (let* ((_rest107519107527_ _rest107515_) + (_else107521107535_ (lambda () - (let ((__tmp114659 - (let ((__tmp114660 - (let ((__tmp114661 - (let ((__tmp114662 + (let ((__tmp114641 + (let ((__tmp114642 + (let ((__tmp114643 + (let ((__tmp114644 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _f107528_ _args107536_)))) + (cons _f107510_ _args107518_)))) (declare (not safe)) - (cons __tmp114662 '())))) + (cons __tmp114644 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp114661)))) + __tmp114643)))) (declare (not safe)) - (cons _bind107535_ - __tmp114660)))) + (cons _bind107517_ + __tmp114642)))) (declare (not safe)) - (cons 'let __tmp114659)))) - (_K107541107639_ - (lambda (_rest107556_ _e107557_) - (let* ((___stx113822113823_ _e107557_) - (_g107562107580_ + (cons 'let __tmp114641)))) + (_K107523107621_ + (lambda (_rest107538_ _e107539_) + (let* ((___stx113804113805_ _e107539_) + (_g107544107562_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113822113823_))))) - (let ((___kont113824113825_ + ___stx113804113805_))))) + (let ((___kont113806113807_ (lambda () - (let ((__tmp114663 - (let ((__tmp114664 + (let ((__tmp114645 + (let ((__tmp114646 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _e107557_)))) + (gxc#compile-e__0 _e107539_)))) (declare (not safe)) - (cons __tmp114664 _args107536_)))) + (cons __tmp114646 _args107518_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp107530_ - _rest107556_ - _bind107535_ - __tmp114663)))) - (___kont113826113827_ + (_lp107512_ + _rest107538_ + _bind107517_ + __tmp114645)))) + (___kont113808113809_ (lambda () - (let ((__tmp114665 - (let ((__tmp114666 + (let ((__tmp114647 + (let ((__tmp114648 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _e107557_)))) + (gxc#compile-e__0 _e107539_)))) (declare (not safe)) - (cons __tmp114666 _args107536_)))) + (cons __tmp114648 _args107518_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp107530_ - _rest107556_ - _bind107535_ - __tmp114665)))) - (___kont113828113829_ + (_lp107512_ + _rest107538_ + _bind107517_ + __tmp114647)))) + (___kont113810113811_ (lambda () - (let ((_tmp107587_ - (let ((__tmp114667 + (let ((_tmp107569_ + (let ((__tmp114649 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp114667)))) - (let ((__tmp114669 - (let ((__tmp114670 - (let ((__tmp114671 + __tmp114649)))) + (let ((__tmp114651 + (let ((__tmp114652 + (let ((__tmp114653 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114672 + (let ((__tmp114654 (let () (declare (not safe)) - (gxc#compile-e__0 _e107557_)))) + (gxc#compile-e__0 _e107539_)))) (declare (not safe)) - (cons __tmp114672 '())))) + (cons __tmp114654 '())))) (declare (not safe)) - (cons _tmp107587_ __tmp114671)))) + (cons _tmp107569_ __tmp114653)))) (declare (not safe)) - (cons __tmp114670 _bind107535_))) - (__tmp114668 + (cons __tmp114652 _bind107517_))) + (__tmp114650 (let () (declare (not safe)) - (cons _tmp107587_ _args107536_)))) + (cons _tmp107569_ _args107518_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp107530_ - _rest107556_ - __tmp114669 - __tmp114668)))))) + (_lp107512_ + _rest107538_ + __tmp114651 + __tmp114650)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx113822113823_)) - (let ((_e107566107618_ + ___stx113804113805_)) + (let ((_e107548107600_ (let () (declare (not safe)) (gx#stx-e - ___stx113822113823_)))) - (let ((_tl107564107623_ + ___stx113804113805_)))) + (let ((_tl107546107605_ (let () (declare (not safe)) - (##cdr _e107566107618_))) - (_hd107565107621_ + (##cdr _e107548107600_))) + (_hd107547107603_ (let () (declare (not safe)) - (##car _e107566107618_)))) + (##car _e107548107600_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd107565107621_)) + _hd107547107603_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd107565107621_)) + _hd107547107603_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl107564107623_)) - (let ((_e107569107626_ + (gx#stx-pair? _tl107546107605_)) + (let ((_e107551107608_ (let () (declare (not safe)) - (gx#stx-e _tl107564107623_)))) - (let ((_tl107567107631_ + (gx#stx-e _tl107546107605_)))) + (let ((_tl107549107613_ (let () (declare (not safe)) - (##cdr _e107569107626_))) - (_hd107568107629_ + (##cdr _e107551107608_))) + (_hd107550107611_ (let () (declare (not safe)) - (##car _e107569107626_)))) + (##car _e107551107608_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107567107631_)) - (___kont113824113825_) - (___kont113828113829_)))) - (___kont113828113829_)) + (gx#stx-null? _tl107549107613_)) + (___kont113806113807_) + (___kont113810113811_)))) + (___kont113810113811_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd107565107621_)) + (gx#stx-eq? '%#quote _hd107547107603_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107564107623_)) - (let ((_e107575107603_ + (gx#stx-pair? _tl107546107605_)) + (let ((_e107557107585_ (let () (declare (not safe)) - (gx#stx-e _tl107564107623_)))) - (let ((_tl107573107608_ + (gx#stx-e _tl107546107605_)))) + (let ((_tl107555107590_ (let () (declare (not safe)) - (##cdr _e107575107603_))) - (_hd107574107606_ + (##cdr _e107557107585_))) + (_hd107556107588_ (let () (declare (not safe)) - (##car _e107575107603_)))) + (##car _e107557107585_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107573107608_)) - (___kont113826113827_) - (___kont113828113829_)))) - (___kont113828113829_)) - (___kont113828113829_))) + (gx#stx-null? _tl107555107590_)) + (___kont113808113809_) + (___kont113810113811_)))) + (___kont113810113811_)) + (___kont113810113811_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113828113829_)))) - (___kont113828113829_))))))) + (___kont113810113811_)))) + (___kont113810113811_))))))) (if (let () (declare (not safe)) - (##pair? _rest107537107545_)) - (let ((_hd107542107642_ + (##pair? _rest107519107527_)) + (let ((_hd107524107624_ (let () (declare (not safe)) - (##car _rest107537107545_))) - (_tl107543107644_ + (##car _rest107519107527_))) + (_tl107525107626_ (let () (declare (not safe)) - (##cdr _rest107537107545_)))) - (let* ((_e107647_ _hd107542107642_) - (_rest107649_ _tl107543107644_)) + (##cdr _rest107519107527_)))) + (let* ((_e107629_ _hd107524107624_) + (_rest107631_ _tl107525107626_)) (declare (not safe)) - (_K107541107639_ _rest107649_ _e107647_))) + (_K107523107621_ _rest107631_ _e107629_))) (let () (declare (not safe)) - (_else107539107553_))))))))) - (___kont113872113873_ + (_else107521107535_))))))))) + (___kont113854113855_ (lambda () (let () (declare (not safe)) - (gxc#generate-runtime-call% _self107441_ _stx107442_))))) + (gxc#generate-runtime-call% _self107423_ _stx107424_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113868113869_)) - (let ((_e107451107477_ + (gx#stx-pair? ___stx113850113851_)) + (let ((_e107433107459_ (let () (declare (not safe)) - (gx#stx-e ___stx113868113869_)))) - (let ((_tl107449107482_ - (let () (declare (not safe)) (##cdr _e107451107477_))) - (_hd107450107480_ + (gx#stx-e ___stx113850113851_)))) + (let ((_tl107431107464_ + (let () (declare (not safe)) (##cdr _e107433107459_))) + (_hd107432107462_ (let () (declare (not safe)) - (##car _e107451107477_)))) + (##car _e107433107459_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107449107482_)) - (let ((_e107454107485_ + (gx#stx-pair? _tl107431107464_)) + (let ((_e107436107467_ (let () (declare (not safe)) - (gx#stx-e _tl107449107482_)))) - (let ((_tl107452107490_ + (gx#stx-e _tl107431107464_)))) + (let ((_tl107434107472_ (let () (declare (not safe)) - (##cdr _e107454107485_))) - (_hd107453107488_ + (##cdr _e107436107467_))) + (_hd107435107470_ (let () (declare (not safe)) - (##car _e107454107485_)))) + (##car _e107436107467_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd107453107488_)) - (let ((_e107457107493_ + (gx#stx-pair? _hd107435107470_)) + (let ((_e107439107475_ (let () (declare (not safe)) - (gx#stx-e _hd107453107488_)))) - (let ((_tl107455107498_ + (gx#stx-e _hd107435107470_)))) + (let ((_tl107437107480_ (let () (declare (not safe)) - (##cdr _e107457107493_))) - (_hd107456107496_ + (##cdr _e107439107475_))) + (_hd107438107478_ (let () (declare (not safe)) - (##car _e107457107493_)))) + (##car _e107439107475_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd107456107496_)) + (gx#identifier? _hd107438107478_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd107456107496_)) + _hd107438107478_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107455107498_)) - (let ((_e107460107501_ + _tl107437107480_)) + (let ((_e107442107483_ (let () (declare (not safe)) (gx#stx-e - _tl107455107498_)))) - (let ((_tl107458107506_ + _tl107437107480_)))) + (let ((_tl107440107488_ (let () (declare (not safe)) - (##cdr _e107460107501_))) - (_hd107459107504_ + (##cdr _e107442107483_))) + (_hd107441107486_ (let () (declare (not safe)) - (##car _e107460107501_)))) + (##car _e107442107483_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107458107506_)) - (___kont113870113871_ - _tl107452107490_ - _hd107459107504_) - (___kont113872113873_)))) - (___kont113872113873_)) - (___kont113872113873_)) - (___kont113872113873_)))) - (___kont113872113873_)))) - (___kont113872113873_)))) - (___kont113872113873_)))))) + _tl107440107488_)) + (___kont113852113853_ + _tl107434107472_ + _hd107441107486_) + (___kont113854113855_)))) + (___kont113854113855_)) + (___kont113854113855_)) + (___kont113854113855_)))) + (___kont113854113855_)))) + (___kont113854113855_)))) + (___kont113854113855_)))))) (define gxc#generate-runtime-if% - (lambda (_self107253_ _stx107254_) - (letrec ((_simplify107256_ - (lambda (_code107341_) - (let* ((_code107342107360_ _code107341_) - (_else107344107368_ (lambda () _code107341_)) - (_K107346107404_ - (lambda (_expr107371_ _test107372_) - (let* ((_expr107373107381_ _expr107371_) - (_else107375107389_ + (lambda (_self107235_ _stx107236_) + (letrec ((_simplify107238_ + (lambda (_code107323_) + (let* ((_code107324107342_ _code107323_) + (_else107326107350_ (lambda () _code107323_)) + (_K107328107386_ + (lambda (_expr107353_ _test107354_) + (let* ((_expr107355107363_ _expr107353_) + (_else107357107371_ (lambda () - (let ((__tmp114673 - (let ((__tmp114674 + (let ((__tmp114655 + (let ((__tmp114656 (let () (declare (not safe)) - (cons _expr107371_ + (cons _expr107353_ '())))) (declare (not safe)) - (cons _test107372_ - __tmp114674)))) + (cons _test107354_ + __tmp114656)))) (declare (not safe)) - (cons 'and __tmp114673)))) - (_K107377107394_ - (lambda (_exprs107392_) - (let ((__tmp114675 + (cons 'and __tmp114655)))) + (_K107359107376_ + (lambda (_exprs107374_) + (let ((__tmp114657 (let () (declare (not safe)) - (cons _test107372_ - _exprs107392_)))) + (cons _test107354_ + _exprs107374_)))) (declare (not safe)) - (cons 'and __tmp114675))))) + (cons 'and __tmp114657))))) (if (let () (declare (not safe)) - (##pair? _expr107373107381_)) - (let ((_hd107378107397_ + (##pair? _expr107355107363_)) + (let ((_hd107360107379_ (let () (declare (not safe)) - (##car _expr107373107381_))) - (_tl107379107399_ + (##car _expr107355107363_))) + (_tl107361107381_ (let () (declare (not safe)) - (##cdr _expr107373107381_)))) + (##cdr _expr107355107363_)))) (if (let () (declare (not safe)) - (##eq? _hd107378107397_ 'and)) - (let ((_exprs107402_ - _tl107379107399_)) + (##eq? _hd107360107379_ 'and)) + (let ((_exprs107384_ + _tl107361107381_)) (declare (not safe)) - (_K107377107394_ _exprs107402_)) + (_K107359107376_ _exprs107384_)) (let () (declare (not safe)) - (_else107375107389_)))) + (_else107357107371_)))) (let () (declare (not safe)) - (_else107375107389_))))))) + (_else107357107371_))))))) (if (let () (declare (not safe)) - (##pair? _code107342107360_)) - (let ((_hd107347107407_ + (##pair? _code107324107342_)) + (let ((_hd107329107389_ (let () (declare (not safe)) - (##car _code107342107360_))) - (_tl107348107409_ + (##car _code107324107342_))) + (_tl107330107391_ (let () (declare (not safe)) - (##cdr _code107342107360_)))) + (##cdr _code107324107342_)))) (if (let () (declare (not safe)) - (##eq? _hd107347107407_ 'if)) + (##eq? _hd107329107389_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl107348107409_)) - (let ((_hd107349107412_ + (##pair? _tl107330107391_)) + (let ((_hd107331107394_ (let () (declare (not safe)) - (##car _tl107348107409_))) - (_tl107350107414_ + (##car _tl107330107391_))) + (_tl107332107396_ (let () (declare (not safe)) - (##cdr _tl107348107409_)))) - (let ((_test107417_ _hd107349107412_)) + (##cdr _tl107330107391_)))) + (let ((_test107399_ _hd107331107394_)) (if (let () (declare (not safe)) - (##pair? _tl107350107414_)) - (let ((_hd107351107419_ + (##pair? _tl107332107396_)) + (let ((_hd107333107401_ (let () (declare (not safe)) - (##car _tl107350107414_))) - (_tl107352107421_ + (##car _tl107332107396_))) + (_tl107334107403_ (let () (declare (not safe)) - (##cdr _tl107350107414_)))) - (let ((_expr107424_ - _hd107351107419_)) + (##cdr _tl107332107396_)))) + (let ((_expr107406_ + _hd107333107401_)) (if (let () (declare (not safe)) - (##pair? _tl107352107421_)) - (let ((_hd107353107426_ + (##pair? _tl107334107403_)) + (let ((_hd107335107408_ (let () (declare (not safe)) - (##car _tl107352107421_))) - (_tl107354107428_ + (##car _tl107334107403_))) + (_tl107336107410_ (let () (declare (not safe)) - (##cdr _tl107352107421_)))) + (##cdr _tl107334107403_)))) (if (let () (declare (not safe)) - (##pair? _hd107353107426_)) - (let ((_hd107355107431_ + (##pair? _hd107335107408_)) + (let ((_hd107337107413_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _hd107353107426_))) - (_tl107356107433_ + (##car _hd107335107408_))) + (_tl107338107415_ (let () (declare (not safe)) - (##cdr _hd107353107426_)))) + (##cdr _hd107335107408_)))) (if (let () (declare (not safe)) - (##eq? _hd107355107431_ 'quote)) + (##eq? _hd107337107413_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl107356107433_)) - (let ((_hd107357107436_ + (##pair? _tl107338107415_)) + (let ((_hd107339107418_ (let () (declare (not safe)) - (##car _tl107356107433_))) - (_tl107358107438_ + (##car _tl107338107415_))) + (_tl107340107420_ (let () (declare (not safe)) - (##cdr _tl107356107433_)))) + (##cdr _tl107338107415_)))) (if (let () (declare (not safe)) - (##eq? _hd107357107436_ '#f)) + (##eq? _hd107339107418_ '#f)) (if (let () (declare (not safe)) - (##null? _tl107358107438_)) + (##null? _tl107340107420_)) (if (let () (declare (not safe)) - (##null? _tl107354107428_)) + (##null? _tl107336107410_)) (let () (declare (not safe)) - (_K107346107404_ - _expr107424_ - _test107417_)) + (_K107328107386_ + _expr107406_ + _test107399_)) (let () (declare (not safe)) - (_else107344107368_))) + (_else107326107350_))) (let () (declare (not safe)) - (_else107344107368_))) + (_else107326107350_))) (let () (declare (not safe)) - (_else107344107368_)))) - (let () (declare (not safe)) (_else107344107368_))) - (let () (declare (not safe)) (_else107344107368_)))) - (let () (declare (not safe)) (_else107344107368_)))) + (_else107326107350_)))) + (let () (declare (not safe)) (_else107326107350_))) + (let () (declare (not safe)) (_else107326107350_)))) + (let () (declare (not safe)) (_else107326107350_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else107344107368_))))) + (_else107326107350_))))) (let () (declare (not safe)) - (_else107344107368_))))) + (_else107326107350_))))) (let () (declare (not safe)) - (_else107344107368_))) + (_else107326107350_))) (let () (declare (not safe)) - (_else107344107368_)))) + (_else107326107350_)))) (let () (declare (not safe)) - (_else107344107368_))))))) - (let* ((_g107258107279_ - (lambda (_g107259107276_) + (_else107326107350_))))))) + (let* ((_g107240107261_ + (lambda (_g107241107258_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107259107276_)))) - (_g107257107338_ - (lambda (_g107259107282_) + _g107241107258_)))) + (_g107239107320_ + (lambda (_g107241107264_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107259107282_)) - (let ((_e107265107284_ + (gx#stx-pair? _g107241107264_)) + (let ((_e107247107266_ (let () (declare (not safe)) - (gx#stx-e _g107259107282_)))) - (let ((_hd107264107287_ + (gx#stx-e _g107241107264_)))) + (let ((_hd107246107269_ (let () (declare (not safe)) - (##car _e107265107284_))) - (_tl107263107289_ + (##car _e107247107266_))) + (_tl107245107271_ (let () (declare (not safe)) - (##cdr _e107265107284_)))) + (##cdr _e107247107266_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107263107289_)) - (let ((_e107268107292_ + (gx#stx-pair? _tl107245107271_)) + (let ((_e107250107274_ (let () (declare (not safe)) - (gx#stx-e _tl107263107289_)))) - (let ((_hd107267107295_ + (gx#stx-e _tl107245107271_)))) + (let ((_hd107249107277_ (let () (declare (not safe)) - (##car _e107268107292_))) - (_tl107266107297_ + (##car _e107250107274_))) + (_tl107248107279_ (let () (declare (not safe)) - (##cdr _e107268107292_)))) + (##cdr _e107250107274_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107266107297_)) - (let ((_e107271107300_ + (gx#stx-pair? _tl107248107279_)) + (let ((_e107253107282_ (let () (declare (not safe)) - (gx#stx-e _tl107266107297_)))) - (let ((_hd107270107303_ + (gx#stx-e _tl107248107279_)))) + (let ((_hd107252107285_ (let () (declare (not safe)) - (##car _e107271107300_))) - (_tl107269107305_ + (##car _e107253107282_))) + (_tl107251107287_ (let () (declare (not safe)) - (##cdr _e107271107300_)))) + (##cdr _e107253107282_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107269107305_)) - (let ((_e107274107308_ + _tl107251107287_)) + (let ((_e107256107290_ (let () (declare (not safe)) (gx#stx-e - _tl107269107305_)))) - (let ((_hd107273107311_ + _tl107251107287_)))) + (let ((_hd107255107293_ (let () (declare (not safe)) - (##car _e107274107308_))) - (_tl107272107313_ + (##car _e107256107290_))) + (_tl107254107295_ (let () (declare (not safe)) - (##cdr _e107274107308_)))) + (##cdr _e107256107290_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107272107313_)) - ((lambda (_L107316_ + _tl107254107295_)) + ((lambda (_L107298_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L107317_ - _L107318_) + _L107299_ + _L107300_) (if (gxc#current-compile-boolean-context) - (let ((__tmp114683 - (let ((__tmp114684 - (let ((__tmp114689 + (let ((__tmp114665 + (let ((__tmp114666 + (let ((__tmp114671 (let () (declare (not safe)) (gxc#compile-e__1 - _self107253_ - _L107318_))) - (__tmp114685 - (let ((__tmp114688 + _self107235_ + _L107300_))) + (__tmp114667 + (let ((__tmp114670 (let () (declare (not safe)) (gxc#compile-e__1 - _self107253_ - _L107317_))) - (__tmp114686 - (let ((__tmp114687 + _self107235_ + _L107299_))) + (__tmp114668 + (let ((__tmp114669 (let () (declare (not safe)) (gxc#compile-e__1 - _self107253_ - _L107316_)))) + _self107235_ + _L107298_)))) (declare (not safe)) - (cons __tmp114687 '())))) + (cons __tmp114669 '())))) (declare (not safe)) - (cons __tmp114688 __tmp114686)))) + (cons __tmp114670 __tmp114668)))) (declare (not safe)) - (cons __tmp114689 __tmp114685)))) + (cons __tmp114671 __tmp114667)))) (declare (not safe)) - (cons 'if __tmp114684)))) + (cons 'if __tmp114666)))) (declare (not safe)) - (_simplify107256_ __tmp114683)) - (let ((__tmp114676 - (let ((__tmp114681 - (let ((__tmp114682 + (_simplify107238_ __tmp114665)) + (let ((__tmp114658 + (let ((__tmp114663 + (let ((__tmp114664 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _self107253_ - _L107318_))))) + _self107235_ + _L107300_))))) (declare (not safe)) (call-with-parameters - __tmp114682 + __tmp114664 gxc#current-compile-boolean-context '#t))) - (__tmp114677 - (let ((__tmp114680 + (__tmp114659 + (let ((__tmp114662 (let () (declare (not safe)) (gxc#compile-e__1 - _self107253_ - _L107317_))) - (__tmp114678 - (let ((__tmp114679 + _self107235_ + _L107299_))) + (__tmp114660 + (let ((__tmp114661 (let () (declare (not safe)) (gxc#compile-e__1 - _self107253_ - _L107316_)))) + _self107235_ + _L107298_)))) (declare (not safe)) - (cons __tmp114679 '())))) + (cons __tmp114661 '())))) (declare (not safe)) - (cons __tmp114680 __tmp114678)))) + (cons __tmp114662 __tmp114660)))) (declare (not safe)) - (cons __tmp114681 __tmp114677)))) + (cons __tmp114663 __tmp114659)))) (declare (not safe)) - (cons 'if __tmp114676)))) - _hd107273107311_ - _hd107270107303_ - _hd107267107295_) + (cons 'if __tmp114658)))) + _hd107255107293_ + _hd107252107285_ + _hd107249107277_) (let () (declare (not safe)) - (_g107258107279_ _g107259107282_))))) + (_g107240107261_ _g107241107264_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g107258107279_ - _g107259107282_))))) + (_g107240107261_ + _g107241107264_))))) (let () (declare (not safe)) - (_g107258107279_ _g107259107282_))))) + (_g107240107261_ _g107241107264_))))) (let () (declare (not safe)) - (_g107258107279_ _g107259107282_))))) + (_g107240107261_ _g107241107264_))))) (let () (declare (not safe)) - (_g107258107279_ _g107259107282_)))))) + (_g107240107261_ _g107241107264_)))))) (declare (not safe)) - (_g107257107338_ _stx107254_))))) + (_g107239107320_ _stx107236_))))) (define gxc#generate-runtime-ref% - (lambda (_self107201_ _stx107202_) - (let* ((_g107204107217_ - (lambda (_g107205107214_) + (lambda (_self107183_ _stx107184_) + (let* ((_g107186107199_ + (lambda (_g107187107196_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107205107214_)))) - (_g107203107250_ - (lambda (_g107205107220_) + _g107187107196_)))) + (_g107185107232_ + (lambda (_g107187107202_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107205107220_)) - (let ((_e107209107222_ + (gx#stx-pair? _g107187107202_)) + (let ((_e107191107204_ (let () (declare (not safe)) - (gx#stx-e _g107205107220_)))) - (let ((_hd107208107225_ + (gx#stx-e _g107187107202_)))) + (let ((_hd107190107207_ (let () (declare (not safe)) - (##car _e107209107222_))) - (_tl107207107227_ + (##car _e107191107204_))) + (_tl107189107209_ (let () (declare (not safe)) - (##cdr _e107209107222_)))) + (##cdr _e107191107204_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107207107227_)) - (let ((_e107212107230_ + (gx#stx-pair? _tl107189107209_)) + (let ((_e107194107212_ (let () (declare (not safe)) - (gx#stx-e _tl107207107227_)))) - (let ((_hd107211107233_ + (gx#stx-e _tl107189107209_)))) + (let ((_hd107193107215_ (let () (declare (not safe)) - (##car _e107212107230_))) - (_tl107210107235_ + (##car _e107194107212_))) + (_tl107192107217_ (let () (declare (not safe)) - (##cdr _e107212107230_)))) + (##cdr _e107194107212_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107210107235_)) - ((lambda (_L107238_) + (gx#stx-null? _tl107192107217_)) + ((lambda (_L107220_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L107238_))) - _hd107211107233_) + _L107220_))) + _hd107193107215_) (let () (declare (not safe)) - (_g107204107217_ _g107205107220_))))) + (_g107186107199_ _g107187107202_))))) (let () (declare (not safe)) - (_g107204107217_ _g107205107220_))))) + (_g107186107199_ _g107187107202_))))) (let () (declare (not safe)) - (_g107204107217_ _g107205107220_)))))) + (_g107186107199_ _g107187107202_)))))) (declare (not safe)) - (_g107203107250_ _stx107202_)))) + (_g107185107232_ _stx107184_)))) (define gxc#generate-runtime-setq% - (lambda (_self107133_ _stx107134_) - (let* ((_g107136107153_ - (lambda (_g107137107150_) + (lambda (_self107115_ _stx107116_) + (let* ((_g107118107135_ + (lambda (_g107119107132_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107137107150_)))) - (_g107135107198_ - (lambda (_g107137107156_) + _g107119107132_)))) + (_g107117107180_ + (lambda (_g107119107138_) (if (let () (declare (not safe)) - (gx#stx-pair? _g107137107156_)) - (let ((_e107142107158_ + (gx#stx-pair? _g107119107138_)) + (let ((_e107124107140_ (let () (declare (not safe)) - (gx#stx-e _g107137107156_)))) - (let ((_hd107141107161_ + (gx#stx-e _g107119107138_)))) + (let ((_hd107123107143_ (let () (declare (not safe)) - (##car _e107142107158_))) - (_tl107140107163_ + (##car _e107124107140_))) + (_tl107122107145_ (let () (declare (not safe)) - (##cdr _e107142107158_)))) + (##cdr _e107124107140_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107140107163_)) - (let ((_e107145107166_ + (gx#stx-pair? _tl107122107145_)) + (let ((_e107127107148_ (let () (declare (not safe)) - (gx#stx-e _tl107140107163_)))) - (let ((_hd107144107169_ + (gx#stx-e _tl107122107145_)))) + (let ((_hd107126107151_ (let () (declare (not safe)) - (##car _e107145107166_))) - (_tl107143107171_ + (##car _e107127107148_))) + (_tl107125107153_ (let () (declare (not safe)) - (##cdr _e107145107166_)))) + (##cdr _e107127107148_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl107143107171_)) - (let ((_e107148107174_ + (gx#stx-pair? _tl107125107153_)) + (let ((_e107130107156_ (let () (declare (not safe)) - (gx#stx-e _tl107143107171_)))) - (let ((_hd107147107177_ + (gx#stx-e _tl107125107153_)))) + (let ((_hd107129107159_ (let () (declare (not safe)) - (##car _e107148107174_))) - (_tl107146107179_ + (##car _e107130107156_))) + (_tl107128107161_ (let () (declare (not safe)) - (##cdr _e107148107174_)))) + (##cdr _e107130107156_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107146107179_)) - ((lambda (_L107182_ _L107183_) - (let ((__tmp114690 - (let ((__tmp114693 + _tl107128107161_)) + ((lambda (_L107164_ _L107165_) + (let ((__tmp114672 + (let ((__tmp114675 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#generate-runtime-binding-id _L107183_))) - (__tmp114691 - (let ((__tmp114692 + (gxc#generate-runtime-binding-id _L107165_))) + (__tmp114673 + (let ((__tmp114674 (let () (declare (not safe)) - (gxc#compile-e__1 _self107133_ _L107182_)))) + (gxc#compile-e__1 _self107115_ _L107164_)))) (declare (not safe)) - (cons __tmp114692 '())))) + (cons __tmp114674 '())))) (declare (not safe)) - (cons __tmp114693 __tmp114691)))) + (cons __tmp114675 __tmp114673)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp114690))) - _hd107147107177_ - _hd107144107169_) + (cons 'set! __tmp114672))) + _hd107129107159_ + _hd107126107151_) (let () (declare (not safe)) - (_g107136107153_ - _g107137107156_))))) + (_g107118107135_ + _g107119107138_))))) (let () (declare (not safe)) - (_g107136107153_ _g107137107156_))))) + (_g107118107135_ _g107119107138_))))) (let () (declare (not safe)) - (_g107136107153_ _g107137107156_))))) + (_g107118107135_ _g107119107138_))))) (let () (declare (not safe)) - (_g107136107153_ _g107137107156_)))))) + (_g107118107135_ _g107119107138_)))))) (declare (not safe)) - (_g107135107198_ _stx107134_)))) + (_g107117107180_ _stx107116_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_self106944_ _stx106945_) - (let* ((_g106947106964_ - (lambda (_g106948106961_) + (lambda (_self106926_ _stx106927_) + (let* ((_g106929106946_ + (lambda (_g106930106943_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g106948106961_)))) - (_g106946107130_ - (lambda (_g106948106967_) + _g106930106943_)))) + (_g106928107112_ + (lambda (_g106930106949_) (if (let () (declare (not safe)) - (gx#stx-pair? _g106948106967_)) - (let ((_e106953106969_ + (gx#stx-pair? _g106930106949_)) + (let ((_e106935106951_ (let () (declare (not safe)) - (gx#stx-e _g106948106967_)))) - (let ((_hd106952106972_ + (gx#stx-e _g106930106949_)))) + (let ((_hd106934106954_ (let () (declare (not safe)) - (##car _e106953106969_))) - (_tl106951106974_ + (##car _e106935106951_))) + (_tl106933106956_ (let () (declare (not safe)) - (##cdr _e106953106969_)))) + (##cdr _e106935106951_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106951106974_)) - (let ((_e106956106977_ + (gx#stx-pair? _tl106933106956_)) + (let ((_e106938106959_ (let () (declare (not safe)) - (gx#stx-e _tl106951106974_)))) - (let ((_hd106955106980_ + (gx#stx-e _tl106933106956_)))) + (let ((_hd106937106962_ (let () (declare (not safe)) - (##car _e106956106977_))) - (_tl106954106982_ + (##car _e106938106959_))) + (_tl106936106964_ (let () (declare (not safe)) - (##cdr _e106956106977_)))) + (##cdr _e106938106959_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106954106982_)) - (let ((_e106959106985_ + (gx#stx-pair? _tl106936106964_)) + (let ((_e106941106967_ (let () (declare (not safe)) - (gx#stx-e _tl106954106982_)))) - (let ((_hd106958106988_ + (gx#stx-e _tl106936106964_)))) + (let ((_hd106940106970_ (let () (declare (not safe)) - (##car _e106959106985_))) - (_tl106957106990_ + (##car _e106941106967_))) + (_tl106939106972_ (let () (declare (not safe)) - (##cdr _e106959106985_)))) + (##cdr _e106941106967_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106957106990_)) - ((lambda (_L106993_ _L106994_) + _tl106939106972_)) + ((lambda (_L106975_ _L106976_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114709 - (let ((__tmp114712 + (let ((__tmp114691 + (let ((__tmp114694 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__1 _self106944_ _L106993_))) - (__tmp114710 - (let ((__tmp114711 + (gxc#compile-e__1 _self106926_ _L106975_))) + (__tmp114692 + (let ((__tmp114693 (let () (declare (not safe)) (gxc#compile-e__1 - _self106944_ - _L106994_)))) + _self106926_ + _L106976_)))) (declare (not safe)) - (cons __tmp114711 '())))) + (cons __tmp114693 '())))) (declare (not safe)) - (cons __tmp114712 __tmp114710)))) + (cons __tmp114694 __tmp114692)))) (declare (not safe)) - (cons '##structure-instance-of? __tmp114709)) + (cons '##structure-instance-of? __tmp114691)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _lp107009_ ((_rest107012_ + (let _lp106991_ ((_rest106994_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114708 + (let ((__tmp114690 (let () (declare (not safe)) - (cons _L106993_ '())))) + (cons _L106975_ '())))) (declare (not safe)) - (cons _L106994_ __tmp114708))) - (_bind107014_ '()) - (_args107015_ '())) - (let* ((_rest107016107024_ _rest107012_) - (_else107018107032_ + (cons _L106976_ __tmp114690))) + (_bind106996_ '()) + (_args106997_ '())) + (let* ((_rest106998107006_ _rest106994_) + (_else107000107014_ (lambda () - (let ((__tmp114694 - (let ((__tmp114695 - (let ((__tmp114696 - (let ((__tmp114697 + (let ((__tmp114676 + (let ((__tmp114677 + (let ((__tmp114678 + (let ((__tmp114679 (let () (declare (not safe)) (cons '##structure-instance-of? - _args107015_)))) + _args106997_)))) (declare (not safe)) - (cons __tmp114697 '())))) + (cons __tmp114679 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp114696)))) + __tmp114678)))) (declare (not safe)) - (cons _bind107014_ __tmp114695)))) + (cons _bind106996_ __tmp114677)))) (declare (not safe)) - (cons 'let __tmp114694)))) - (_K107020107118_ - (lambda (_rest107035_ _e107036_) - (let* ((___stx113906113907_ _e107036_) - (_g107041107059_ + (cons 'let __tmp114676)))) + (_K107002107100_ + (lambda (_rest107017_ _e107018_) + (let* ((___stx113888113889_ _e107018_) + (_g107023107041_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113906113907_))))) - (let ((___kont113908113909_ + ___stx113888113889_))))) + (let ((___kont113890113891_ (lambda () - (let ((__tmp114698 - (let ((__tmp114699 + (let ((__tmp114680 + (let ((__tmp114681 (let () (declare (not safe)) (gxc#compile-e__0 - _e107036_)))) + _e107018_)))) (declare (not safe)) - (cons __tmp114699 _args107015_)))) + (cons __tmp114681 _args106997_)))) (declare (not safe)) - (_lp107009_ - _rest107035_ - _bind107014_ - __tmp114698)))) - (___kont113910113911_ + (_lp106991_ + _rest107017_ + _bind106996_ + __tmp114680)))) + (___kont113892113893_ (lambda () - (let ((__tmp114700 - (let ((__tmp114701 + (let ((__tmp114682 + (let ((__tmp114683 (let () (declare (not safe)) (gxc#compile-e__0 - _e107036_)))) + _e107018_)))) (declare (not safe)) - (cons __tmp114701 _args107015_)))) + (cons __tmp114683 _args106997_)))) (declare (not safe)) - (_lp107009_ - _rest107035_ - _bind107014_ - __tmp114700)))) - (___kont113912113913_ + (_lp106991_ + _rest107017_ + _bind106996_ + __tmp114682)))) + (___kont113894113895_ (lambda () - (let ((_tmp107066_ - (let ((__tmp114702 (gensym '__tmp))) + (let ((_tmp107048_ + (let ((__tmp114684 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp114702)))) - (let ((__tmp114704 - (let ((__tmp114705 - (let ((__tmp114706 - (let ((__tmp114707 + (make-symbol__0 __tmp114684)))) + (let ((__tmp114686 + (let ((__tmp114687 + (let ((__tmp114688 + (let ((__tmp114689 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e107036_)))) + (gxc#compile-e__0 _e107018_)))) (declare (not safe)) - (cons __tmp114707 '())))) + (cons __tmp114689 '())))) (declare (not safe)) - (cons _tmp107066_ __tmp114706)))) + (cons _tmp107048_ __tmp114688)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114705 - _bind107014_))) - (__tmp114703 + (cons __tmp114687 + _bind106996_))) + (__tmp114685 (let () (declare (not safe)) - (cons _tmp107066_ - _args107015_)))) + (cons _tmp107048_ + _args106997_)))) (declare (not safe)) - (_lp107009_ - _rest107035_ - __tmp114704 - __tmp114703)))))) + (_lp106991_ + _rest107017_ + __tmp114686 + __tmp114685)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113906113907_)) - (let ((_e107045107097_ + (gx#stx-pair? ___stx113888113889_)) + (let ((_e107027107079_ (let () (declare (not safe)) - (gx#stx-e ___stx113906113907_)))) - (let ((_tl107043107102_ + (gx#stx-e ___stx113888113889_)))) + (let ((_tl107025107084_ (let () (declare (not safe)) - (##cdr _e107045107097_))) - (_hd107044107100_ + (##cdr _e107027107079_))) + (_hd107026107082_ (let () (declare (not safe)) - (##car _e107045107097_)))) + (##car _e107027107079_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd107044107100_)) + (gx#identifier? _hd107026107082_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd107044107100_)) + _hd107026107082_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107043107102_)) - (let ((_e107048107105_ + _tl107025107084_)) + (let ((_e107030107087_ (let () (declare (not safe)) (gx#stx-e - _tl107043107102_)))) - (let ((_tl107046107110_ + _tl107025107084_)))) + (let ((_tl107028107092_ (let () (declare (not safe)) - (##cdr _e107048107105_))) - (_hd107047107108_ + (##cdr _e107030107087_))) + (_hd107029107090_ (let () (declare (not safe)) - (##car _e107048107105_)))) + (##car _e107030107087_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl107046107110_)) - (___kont113908113909_) - (___kont113912113913_)))) - (___kont113912113913_)) + _tl107028107092_)) + (___kont113890113891_) + (___kont113894113895_)))) + (___kont113894113895_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd107044107100_)) + _hd107026107082_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl107043107102_)) - (let ((_e107054107082_ + _tl107025107084_)) + (let ((_e107036107064_ (let () (declare (not safe)) (gx#stx-e - _tl107043107102_)))) - (let ((_tl107052107087_ + _tl107025107084_)))) + (let ((_tl107034107069_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e107054107082_))) - (_hd107053107085_ - (let () (declare (not safe)) (##car _e107054107082_)))) + (##cdr _e107036107064_))) + (_hd107035107067_ + (let () (declare (not safe)) (##car _e107036107064_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl107052107087_)) - (___kont113910113911_) - (___kont113912113913_)))) + (gx#stx-null? _tl107034107069_)) + (___kont113892113893_) + (___kont113894113895_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113912113913_)) - (___kont113912113913_))) - (___kont113912113913_)))) - (___kont113912113913_))))))) - (if (let () (declare (not safe)) (##pair? _rest107016107024_)) - (let ((_hd107021107121_ + (___kont113894113895_)) + (___kont113894113895_))) + (___kont113894113895_)))) + (___kont113894113895_))))))) + (if (let () (declare (not safe)) (##pair? _rest106998107006_)) + (let ((_hd107003107103_ (let () (declare (not safe)) - (##car _rest107016107024_))) - (_tl107022107123_ + (##car _rest106998107006_))) + (_tl107004107105_ (let () (declare (not safe)) - (##cdr _rest107016107024_)))) - (let* ((_e107126_ _hd107021107121_) - (_rest107128_ _tl107022107123_)) + (##cdr _rest106998107006_)))) + (let* ((_e107108_ _hd107003107103_) + (_rest107110_ _tl107004107105_)) (declare (not safe)) - (_K107020107118_ _rest107128_ _e107126_))) - (let () (declare (not safe)) (_else107018107032_))))))) + (_K107002107100_ _rest107110_ _e107108_))) + (let () (declare (not safe)) (_else107000107014_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd106958106988_ - _hd106955106980_) + _hd106940106970_ + _hd106937106962_) (let () (declare (not safe)) - (_g106947106964_ - _g106948106967_))))) + (_g106929106946_ + _g106930106949_))))) (let () (declare (not safe)) - (_g106947106964_ _g106948106967_))))) + (_g106929106946_ _g106930106949_))))) (let () (declare (not safe)) - (_g106947106964_ _g106948106967_))))) + (_g106929106946_ _g106930106949_))))) (let () (declare (not safe)) - (_g106947106964_ _g106948106967_)))))) + (_g106929106946_ _g106930106949_)))))) (declare (not safe)) - (_g106946107130_ _stx106945_)))) + (_g106928107112_ _stx106927_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_self106755_ _stx106756_) - (let* ((_g106758106775_ - (lambda (_g106759106772_) + (lambda (_self106737_ _stx106738_) + (let* ((_g106740106757_ + (lambda (_g106741106754_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g106759106772_)))) - (_g106757106941_ - (lambda (_g106759106778_) + _g106741106754_)))) + (_g106739106923_ + (lambda (_g106741106760_) (if (let () (declare (not safe)) - (gx#stx-pair? _g106759106778_)) - (let ((_e106764106780_ + (gx#stx-pair? _g106741106760_)) + (let ((_e106746106762_ (let () (declare (not safe)) - (gx#stx-e _g106759106778_)))) - (let ((_hd106763106783_ + (gx#stx-e _g106741106760_)))) + (let ((_hd106745106765_ (let () (declare (not safe)) - (##car _e106764106780_))) - (_tl106762106785_ + (##car _e106746106762_))) + (_tl106744106767_ (let () (declare (not safe)) - (##cdr _e106764106780_)))) + (##cdr _e106746106762_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106762106785_)) - (let ((_e106767106788_ + (gx#stx-pair? _tl106744106767_)) + (let ((_e106749106770_ (let () (declare (not safe)) - (gx#stx-e _tl106762106785_)))) - (let ((_hd106766106791_ + (gx#stx-e _tl106744106767_)))) + (let ((_hd106748106773_ (let () (declare (not safe)) - (##car _e106767106788_))) - (_tl106765106793_ + (##car _e106749106770_))) + (_tl106747106775_ (let () (declare (not safe)) - (##cdr _e106767106788_)))) + (##cdr _e106749106770_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106765106793_)) - (let ((_e106770106796_ + (gx#stx-pair? _tl106747106775_)) + (let ((_e106752106778_ (let () (declare (not safe)) - (gx#stx-e _tl106765106793_)))) - (let ((_hd106769106799_ + (gx#stx-e _tl106747106775_)))) + (let ((_hd106751106781_ (let () (declare (not safe)) - (##car _e106770106796_))) - (_tl106768106801_ + (##car _e106752106778_))) + (_tl106750106783_ (let () (declare (not safe)) - (##cdr _e106770106796_)))) + (##cdr _e106752106778_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106768106801_)) - ((lambda (_L106804_ _L106805_) + _tl106750106783_)) + ((lambda (_L106786_ _L106787_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114728 - (let ((__tmp114731 + (let ((__tmp114710 + (let ((__tmp114713 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__1 _self106755_ _L106804_))) - (__tmp114729 - (let ((__tmp114730 + (gxc#compile-e__1 _self106737_ _L106786_))) + (__tmp114711 + (let ((__tmp114712 (let () (declare (not safe)) (gxc#compile-e__1 - _self106755_ - _L106805_)))) + _self106737_ + _L106787_)))) (declare (not safe)) - (cons __tmp114730 '())))) + (cons __tmp114712 '())))) (declare (not safe)) - (cons __tmp114731 __tmp114729)))) + (cons __tmp114713 __tmp114711)))) (declare (not safe)) - (cons '##structure-direct-instance-of? __tmp114728)) + (cons '##structure-direct-instance-of? __tmp114710)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _lp106820_ ((_rest106823_ + (let _lp106802_ ((_rest106805_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114727 + (let ((__tmp114709 (let () (declare (not safe)) - (cons _L106804_ '())))) + (cons _L106786_ '())))) (declare (not safe)) - (cons _L106805_ __tmp114727))) - (_bind106825_ '()) - (_args106826_ '())) - (let* ((_rest106827106835_ _rest106823_) - (_else106829106843_ + (cons _L106787_ __tmp114709))) + (_bind106807_ '()) + (_args106808_ '())) + (let* ((_rest106809106817_ _rest106805_) + (_else106811106825_ (lambda () - (let ((__tmp114713 - (let ((__tmp114714 - (let ((__tmp114715 - (let ((__tmp114716 + (let ((__tmp114695 + (let ((__tmp114696 + (let ((__tmp114697 + (let ((__tmp114698 (let () (declare (not safe)) (cons '##structure-direct-instance-of? - _args106826_)))) + _args106808_)))) (declare (not safe)) - (cons __tmp114716 '())))) + (cons __tmp114698 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp114715)))) + __tmp114697)))) (declare (not safe)) - (cons _bind106825_ __tmp114714)))) + (cons _bind106807_ __tmp114696)))) (declare (not safe)) - (cons 'let __tmp114713)))) - (_K106831106929_ - (lambda (_rest106846_ _e106847_) - (let* ((___stx113952113953_ _e106847_) - (_g106852106870_ + (cons 'let __tmp114695)))) + (_K106813106911_ + (lambda (_rest106828_ _e106829_) + (let* ((___stx113934113935_ _e106829_) + (_g106834106852_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113952113953_))))) - (let ((___kont113954113955_ + ___stx113934113935_))))) + (let ((___kont113936113937_ (lambda () - (let ((__tmp114717 - (let ((__tmp114718 + (let ((__tmp114699 + (let ((__tmp114700 (let () (declare (not safe)) (gxc#compile-e__0 - _e106847_)))) + _e106829_)))) (declare (not safe)) - (cons __tmp114718 _args106826_)))) + (cons __tmp114700 _args106808_)))) (declare (not safe)) - (_lp106820_ - _rest106846_ - _bind106825_ - __tmp114717)))) - (___kont113956113957_ + (_lp106802_ + _rest106828_ + _bind106807_ + __tmp114699)))) + (___kont113938113939_ (lambda () - (let ((__tmp114719 - (let ((__tmp114720 + (let ((__tmp114701 + (let ((__tmp114702 (let () (declare (not safe)) (gxc#compile-e__0 - _e106847_)))) + _e106829_)))) (declare (not safe)) - (cons __tmp114720 _args106826_)))) + (cons __tmp114702 _args106808_)))) (declare (not safe)) - (_lp106820_ - _rest106846_ - _bind106825_ - __tmp114719)))) - (___kont113958113959_ + (_lp106802_ + _rest106828_ + _bind106807_ + __tmp114701)))) + (___kont113940113941_ (lambda () - (let ((_tmp106877_ - (let ((__tmp114721 (gensym '__tmp))) + (let ((_tmp106859_ + (let ((__tmp114703 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp114721)))) - (let ((__tmp114723 - (let ((__tmp114724 - (let ((__tmp114725 - (let ((__tmp114726 + (make-symbol__0 __tmp114703)))) + (let ((__tmp114705 + (let ((__tmp114706 + (let ((__tmp114707 + (let ((__tmp114708 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e106847_)))) + (gxc#compile-e__0 _e106829_)))) (declare (not safe)) - (cons __tmp114726 '())))) + (cons __tmp114708 '())))) (declare (not safe)) - (cons _tmp106877_ __tmp114725)))) + (cons _tmp106859_ __tmp114707)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114724 - _bind106825_))) - (__tmp114722 + (cons __tmp114706 + _bind106807_))) + (__tmp114704 (let () (declare (not safe)) - (cons _tmp106877_ - _args106826_)))) + (cons _tmp106859_ + _args106808_)))) (declare (not safe)) - (_lp106820_ - _rest106846_ - __tmp114723 - __tmp114722)))))) + (_lp106802_ + _rest106828_ + __tmp114705 + __tmp114704)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113952113953_)) - (let ((_e106856106908_ + (gx#stx-pair? ___stx113934113935_)) + (let ((_e106838106890_ (let () (declare (not safe)) - (gx#stx-e ___stx113952113953_)))) - (let ((_tl106854106913_ + (gx#stx-e ___stx113934113935_)))) + (let ((_tl106836106895_ (let () (declare (not safe)) - (##cdr _e106856106908_))) - (_hd106855106911_ + (##cdr _e106838106890_))) + (_hd106837106893_ (let () (declare (not safe)) - (##car _e106856106908_)))) + (##car _e106838106890_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd106855106911_)) + (gx#identifier? _hd106837106893_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106855106911_)) + _hd106837106893_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106854106913_)) - (let ((_e106859106916_ + _tl106836106895_)) + (let ((_e106841106898_ (let () (declare (not safe)) (gx#stx-e - _tl106854106913_)))) - (let ((_tl106857106921_ + _tl106836106895_)))) + (let ((_tl106839106903_ (let () (declare (not safe)) - (##cdr _e106859106916_))) - (_hd106858106919_ + (##cdr _e106841106898_))) + (_hd106840106901_ (let () (declare (not safe)) - (##car _e106859106916_)))) + (##car _e106841106898_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106857106921_)) - (___kont113954113955_) - (___kont113958113959_)))) - (___kont113958113959_)) + _tl106839106903_)) + (___kont113936113937_) + (___kont113940113941_)))) + (___kont113940113941_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd106855106911_)) + _hd106837106893_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106854106913_)) - (let ((_e106865106893_ + _tl106836106895_)) + (let ((_e106847106875_ (let () (declare (not safe)) (gx#stx-e - _tl106854106913_)))) - (let ((_tl106863106898_ + _tl106836106895_)))) + (let ((_tl106845106880_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e106865106893_))) - (_hd106864106896_ - (let () (declare (not safe)) (##car _e106865106893_)))) + (##cdr _e106847106875_))) + (_hd106846106878_ + (let () (declare (not safe)) (##car _e106847106875_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106863106898_)) - (___kont113956113957_) - (___kont113958113959_)))) + (gx#stx-null? _tl106845106880_)) + (___kont113938113939_) + (___kont113940113941_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont113958113959_)) - (___kont113958113959_))) - (___kont113958113959_)))) - (___kont113958113959_))))))) - (if (let () (declare (not safe)) (##pair? _rest106827106835_)) - (let ((_hd106832106932_ + (___kont113940113941_)) + (___kont113940113941_))) + (___kont113940113941_)))) + (___kont113940113941_))))))) + (if (let () (declare (not safe)) (##pair? _rest106809106817_)) + (let ((_hd106814106914_ (let () (declare (not safe)) - (##car _rest106827106835_))) - (_tl106833106934_ + (##car _rest106809106817_))) + (_tl106815106916_ (let () (declare (not safe)) - (##cdr _rest106827106835_)))) - (let* ((_e106937_ _hd106832106932_) - (_rest106939_ _tl106833106934_)) + (##cdr _rest106809106817_)))) + (let* ((_e106919_ _hd106814106914_) + (_rest106921_ _tl106815106916_)) (declare (not safe)) - (_K106831106929_ _rest106939_ _e106937_))) - (let () (declare (not safe)) (_else106829106843_))))))) + (_K106813106911_ _rest106921_ _e106919_))) + (let () (declare (not safe)) (_else106811106825_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd106769106799_ - _hd106766106791_) + _hd106751106781_ + _hd106748106773_) (let () (declare (not safe)) - (_g106758106775_ - _g106759106778_))))) + (_g106740106757_ + _g106741106760_))))) (let () (declare (not safe)) - (_g106758106775_ _g106759106778_))))) + (_g106740106757_ _g106741106760_))))) (let () (declare (not safe)) - (_g106758106775_ _g106759106778_))))) + (_g106740106757_ _g106741106760_))))) (let () (declare (not safe)) - (_g106758106775_ _g106759106778_)))))) + (_g106740106757_ _g106741106760_)))))) (declare (not safe)) - (_g106757106941_ _stx106756_)))) + (_g106739106923_ _stx106738_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_self106671_ _stx106672_) - (let* ((_g106674106695_ - (lambda (_g106675106692_) + (lambda (_self106653_ _stx106654_) + (let* ((_g106656106677_ + (lambda (_g106657106674_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g106675106692_)))) - (_g106673106752_ - (lambda (_g106675106698_) + _g106657106674_)))) + (_g106655106734_ + (lambda (_g106657106680_) (if (let () (declare (not safe)) - (gx#stx-pair? _g106675106698_)) - (let ((_e106681106700_ + (gx#stx-pair? _g106657106680_)) + (let ((_e106663106682_ (let () (declare (not safe)) - (gx#stx-e _g106675106698_)))) - (let ((_hd106680106703_ + (gx#stx-e _g106657106680_)))) + (let ((_hd106662106685_ (let () (declare (not safe)) - (##car _e106681106700_))) - (_tl106679106705_ + (##car _e106663106682_))) + (_tl106661106687_ (let () (declare (not safe)) - (##cdr _e106681106700_)))) + (##cdr _e106663106682_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106679106705_)) - (let ((_e106684106708_ + (gx#stx-pair? _tl106661106687_)) + (let ((_e106666106690_ (let () (declare (not safe)) - (gx#stx-e _tl106679106705_)))) - (let ((_hd106683106711_ + (gx#stx-e _tl106661106687_)))) + (let ((_hd106665106693_ (let () (declare (not safe)) - (##car _e106684106708_))) - (_tl106682106713_ + (##car _e106666106690_))) + (_tl106664106695_ (let () (declare (not safe)) - (##cdr _e106684106708_)))) + (##cdr _e106666106690_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106682106713_)) - (let ((_e106687106716_ + (gx#stx-pair? _tl106664106695_)) + (let ((_e106669106698_ (let () (declare (not safe)) - (gx#stx-e _tl106682106713_)))) - (let ((_hd106686106719_ + (gx#stx-e _tl106664106695_)))) + (let ((_hd106668106701_ (let () (declare (not safe)) - (##car _e106687106716_))) - (_tl106685106721_ + (##car _e106669106698_))) + (_tl106667106703_ (let () (declare (not safe)) - (##cdr _e106687106716_)))) + (##cdr _e106669106698_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106685106721_)) - (let ((_e106690106724_ + _tl106667106703_)) + (let ((_e106672106706_ (let () (declare (not safe)) (gx#stx-e - _tl106685106721_)))) - (let ((_hd106689106727_ + _tl106667106703_)))) + (let ((_hd106671106709_ (let () (declare (not safe)) - (##car _e106690106724_))) - (_tl106688106729_ + (##car _e106672106706_))) + (_tl106670106711_ (let () (declare (not safe)) - (##cdr _e106690106724_)))) + (##cdr _e106672106706_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106688106729_)) - ((lambda (_L106732_ - _L106733_ - _L106734_) - (let ((__tmp114732 - (let ((__tmp114738 + _tl106670106711_)) + ((lambda (_L106714_ + _L106715_ + _L106716_) + (let ((__tmp114714 + (let ((__tmp114720 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__1 _self106671_ _L106732_))) - (__tmp114733 - (let ((__tmp114737 + (gxc#compile-e__1 _self106653_ _L106714_))) + (__tmp114715 + (let ((__tmp114719 (let () (declare (not safe)) (gxc#compile-e__1 - _self106671_ - _L106733_))) - (__tmp114734 - (let ((__tmp114736 + _self106653_ + _L106715_))) + (__tmp114716 + (let ((__tmp114718 (let () (declare (not safe)) (gxc#compile-e__1 - _self106671_ - _L106734_))) - (__tmp114735 + _self106653_ + _L106716_))) + (__tmp114717 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp114736 __tmp114735)))) + (cons __tmp114718 __tmp114717)))) (declare (not safe)) - (cons __tmp114737 __tmp114734)))) + (cons __tmp114719 __tmp114716)))) (declare (not safe)) - (cons __tmp114738 __tmp114733)))) + (cons __tmp114720 __tmp114715)))) (declare (not safe)) - (cons '##structure-ref __tmp114732))) - _hd106689106727_ - _hd106686106719_ - _hd106683106711_) + (cons '##structure-ref __tmp114714))) + _hd106671106709_ + _hd106668106701_ + _hd106665106693_) (let () (declare (not safe)) - (_g106674106695_ _g106675106698_))))) + (_g106656106677_ _g106657106680_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g106674106695_ - _g106675106698_))))) + (_g106656106677_ + _g106657106680_))))) (let () (declare (not safe)) - (_g106674106695_ _g106675106698_))))) + (_g106656106677_ _g106657106680_))))) (let () (declare (not safe)) - (_g106674106695_ _g106675106698_))))) + (_g106656106677_ _g106657106680_))))) (let () (declare (not safe)) - (_g106674106695_ _g106675106698_)))))) + (_g106656106677_ _g106657106680_)))))) (declare (not safe)) - (_g106673106752_ _stx106672_)))) + (_g106655106734_ _stx106654_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_self106571_ _stx106572_) - (let* ((_g106574106599_ - (lambda (_g106575106596_) + (lambda (_self106553_ _stx106554_) + (let* ((_g106556106581_ + (lambda (_g106557106578_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g106575106596_)))) - (_g106573106668_ - (lambda (_g106575106602_) + _g106557106578_)))) + (_g106555106650_ + (lambda (_g106557106584_) (if (let () (declare (not safe)) - (gx#stx-pair? _g106575106602_)) - (let ((_e106582106604_ + (gx#stx-pair? _g106557106584_)) + (let ((_e106564106586_ (let () (declare (not safe)) - (gx#stx-e _g106575106602_)))) - (let ((_hd106581106607_ + (gx#stx-e _g106557106584_)))) + (let ((_hd106563106589_ (let () (declare (not safe)) - (##car _e106582106604_))) - (_tl106580106609_ + (##car _e106564106586_))) + (_tl106562106591_ (let () (declare (not safe)) - (##cdr _e106582106604_)))) + (##cdr _e106564106586_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106580106609_)) - (let ((_e106585106612_ + (gx#stx-pair? _tl106562106591_)) + (let ((_e106567106594_ (let () (declare (not safe)) - (gx#stx-e _tl106580106609_)))) - (let ((_hd106584106615_ + (gx#stx-e _tl106562106591_)))) + (let ((_hd106566106597_ (let () (declare (not safe)) - (##car _e106585106612_))) - (_tl106583106617_ + (##car _e106567106594_))) + (_tl106565106599_ (let () (declare (not safe)) - (##cdr _e106585106612_)))) + (##cdr _e106567106594_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106583106617_)) - (let ((_e106588106620_ + (gx#stx-pair? _tl106565106599_)) + (let ((_e106570106602_ (let () (declare (not safe)) - (gx#stx-e _tl106583106617_)))) - (let ((_hd106587106623_ + (gx#stx-e _tl106565106599_)))) + (let ((_hd106569106605_ (let () (declare (not safe)) - (##car _e106588106620_))) - (_tl106586106625_ + (##car _e106570106602_))) + (_tl106568106607_ (let () (declare (not safe)) - (##cdr _e106588106620_)))) + (##cdr _e106570106602_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106586106625_)) - (let ((_e106591106628_ + _tl106568106607_)) + (let ((_e106573106610_ (let () (declare (not safe)) (gx#stx-e - _tl106586106625_)))) - (let ((_hd106590106631_ + _tl106568106607_)))) + (let ((_hd106572106613_ (let () (declare (not safe)) - (##car _e106591106628_))) - (_tl106589106633_ + (##car _e106573106610_))) + (_tl106571106615_ (let () (declare (not safe)) - (##cdr _e106591106628_)))) + (##cdr _e106573106610_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106589106633_)) - (let ((_e106594106636_ + _tl106571106615_)) + (let ((_e106576106618_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl106589106633_)))) - (let ((_hd106593106639_ - (let () (declare (not safe)) (##car _e106594106636_))) - (_tl106592106641_ - (let () (declare (not safe)) (##cdr _e106594106636_)))) + (gx#stx-e _tl106571106615_)))) + (let ((_hd106575106621_ + (let () (declare (not safe)) (##car _e106576106618_))) + (_tl106574106623_ + (let () (declare (not safe)) (##cdr _e106576106618_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106592106641_)) - ((lambda (_L106644_ _L106645_ _L106646_ _L106647_) - (let ((__tmp114739 - (let ((__tmp114747 + (gx#stx-null? _tl106574106623_)) + ((lambda (_L106626_ _L106627_ _L106628_ _L106629_) + (let ((__tmp114721 + (let ((__tmp114729 (let () (declare (not safe)) (gxc#compile-e__1 - _self106571_ - _L106645_))) - (__tmp114740 - (let ((__tmp114746 + _self106553_ + _L106627_))) + (__tmp114722 + (let ((__tmp114728 (let () (declare (not safe)) (gxc#compile-e__1 - _self106571_ - _L106644_))) - (__tmp114741 - (let ((__tmp114745 + _self106553_ + _L106626_))) + (__tmp114723 + (let ((__tmp114727 (let () (declare (not safe)) (gxc#compile-e__1 - _self106571_ - _L106646_))) - (__tmp114742 - (let ((__tmp114744 + _self106553_ + _L106628_))) + (__tmp114724 + (let ((__tmp114726 (let () (declare (not safe)) (gxc#compile-e__1 - _self106571_ - _L106647_))) - (__tmp114743 + _self106553_ + _L106629_))) + (__tmp114725 (let () (declare (not safe)) @@ -12741,300 +12741,300 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp114744 __tmp114743)))) + (cons __tmp114726 __tmp114725)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114745 - __tmp114742)))) + (cons __tmp114727 + __tmp114724)))) (declare (not safe)) - (cons __tmp114746 __tmp114741)))) + (cons __tmp114728 __tmp114723)))) (declare (not safe)) - (cons __tmp114747 __tmp114740)))) + (cons __tmp114729 __tmp114722)))) (declare (not safe)) - (cons '##structure-set! __tmp114739))) - _hd106593106639_ - _hd106590106631_ - _hd106587106623_ - _hd106584106615_) + (cons '##structure-set! __tmp114721))) + _hd106575106621_ + _hd106572106613_ + _hd106569106605_ + _hd106566106597_) (let () (declare (not safe)) - (_g106574106599_ _g106575106602_))))) + (_g106556106581_ _g106557106584_))))) (let () (declare (not safe)) - (_g106574106599_ _g106575106602_))))) + (_g106556106581_ _g106557106584_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g106574106599_ - _g106575106602_))))) + (_g106556106581_ + _g106557106584_))))) (let () (declare (not safe)) - (_g106574106599_ _g106575106602_))))) + (_g106556106581_ _g106557106584_))))) (let () (declare (not safe)) - (_g106574106599_ _g106575106602_))))) + (_g106556106581_ _g106557106584_))))) (let () (declare (not safe)) - (_g106574106599_ _g106575106602_)))))) + (_g106556106581_ _g106557106584_)))))) (declare (not safe)) - (_g106573106668_ _stx106572_)))) + (_g106555106650_ _stx106554_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_self106487_ _stx106488_) - (let* ((_g106490106511_ - (lambda (_g106491106508_) + (lambda (_self106469_ _stx106470_) + (let* ((_g106472106493_ + (lambda (_g106473106490_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g106491106508_)))) - (_g106489106568_ - (lambda (_g106491106514_) + _g106473106490_)))) + (_g106471106550_ + (lambda (_g106473106496_) (if (let () (declare (not safe)) - (gx#stx-pair? _g106491106514_)) - (let ((_e106497106516_ + (gx#stx-pair? _g106473106496_)) + (let ((_e106479106498_ (let () (declare (not safe)) - (gx#stx-e _g106491106514_)))) - (let ((_hd106496106519_ + (gx#stx-e _g106473106496_)))) + (let ((_hd106478106501_ (let () (declare (not safe)) - (##car _e106497106516_))) - (_tl106495106521_ + (##car _e106479106498_))) + (_tl106477106503_ (let () (declare (not safe)) - (##cdr _e106497106516_)))) + (##cdr _e106479106498_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106495106521_)) - (let ((_e106500106524_ + (gx#stx-pair? _tl106477106503_)) + (let ((_e106482106506_ (let () (declare (not safe)) - (gx#stx-e _tl106495106521_)))) - (let ((_hd106499106527_ + (gx#stx-e _tl106477106503_)))) + (let ((_hd106481106509_ (let () (declare (not safe)) - (##car _e106500106524_))) - (_tl106498106529_ + (##car _e106482106506_))) + (_tl106480106511_ (let () (declare (not safe)) - (##cdr _e106500106524_)))) + (##cdr _e106482106506_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106498106529_)) - (let ((_e106503106532_ + (gx#stx-pair? _tl106480106511_)) + (let ((_e106485106514_ (let () (declare (not safe)) - (gx#stx-e _tl106498106529_)))) - (let ((_hd106502106535_ + (gx#stx-e _tl106480106511_)))) + (let ((_hd106484106517_ (let () (declare (not safe)) - (##car _e106503106532_))) - (_tl106501106537_ + (##car _e106485106514_))) + (_tl106483106519_ (let () (declare (not safe)) - (##cdr _e106503106532_)))) + (##cdr _e106485106514_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106501106537_)) - (let ((_e106506106540_ + _tl106483106519_)) + (let ((_e106488106522_ (let () (declare (not safe)) (gx#stx-e - _tl106501106537_)))) - (let ((_hd106505106543_ + _tl106483106519_)))) + (let ((_hd106487106525_ (let () (declare (not safe)) - (##car _e106506106540_))) - (_tl106504106545_ + (##car _e106488106522_))) + (_tl106486106527_ (let () (declare (not safe)) - (##cdr _e106506106540_)))) + (##cdr _e106488106522_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106504106545_)) - ((lambda (_L106548_ - _L106549_ - _L106550_) - (let ((__tmp114748 - (let ((__tmp114754 + _tl106486106527_)) + ((lambda (_L106530_ + _L106531_ + _L106532_) + (let ((__tmp114730 + (let ((__tmp114736 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__1 _self106487_ _L106548_))) - (__tmp114749 - (let ((__tmp114753 + (gxc#compile-e__1 _self106469_ _L106530_))) + (__tmp114731 + (let ((__tmp114735 (let () (declare (not safe)) (gxc#compile-e__1 - _self106487_ - _L106549_))) - (__tmp114750 - (let ((__tmp114752 + _self106469_ + _L106531_))) + (__tmp114732 + (let ((__tmp114734 (let () (declare (not safe)) (gxc#compile-e__1 - _self106487_ - _L106550_))) - (__tmp114751 + _self106469_ + _L106532_))) + (__tmp114733 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp114752 __tmp114751)))) + (cons __tmp114734 __tmp114733)))) (declare (not safe)) - (cons __tmp114753 __tmp114750)))) + (cons __tmp114735 __tmp114732)))) (declare (not safe)) - (cons __tmp114754 __tmp114749)))) + (cons __tmp114736 __tmp114731)))) (declare (not safe)) - (cons '##direct-structure-ref __tmp114748))) - _hd106505106543_ - _hd106502106535_ - _hd106499106527_) + (cons '##direct-structure-ref __tmp114730))) + _hd106487106525_ + _hd106484106517_ + _hd106481106509_) (let () (declare (not safe)) - (_g106490106511_ _g106491106514_))))) + (_g106472106493_ _g106473106496_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g106490106511_ - _g106491106514_))))) + (_g106472106493_ + _g106473106496_))))) (let () (declare (not safe)) - (_g106490106511_ _g106491106514_))))) + (_g106472106493_ _g106473106496_))))) (let () (declare (not safe)) - (_g106490106511_ _g106491106514_))))) + (_g106472106493_ _g106473106496_))))) (let () (declare (not safe)) - (_g106490106511_ _g106491106514_)))))) + (_g106472106493_ _g106473106496_)))))) (declare (not safe)) - (_g106489106568_ _stx106488_)))) + (_g106471106550_ _stx106470_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_self106387_ _stx106388_) - (let* ((_g106390106415_ - (lambda (_g106391106412_) + (lambda (_self106369_ _stx106370_) + (let* ((_g106372106397_ + (lambda (_g106373106394_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g106391106412_)))) - (_g106389106484_ - (lambda (_g106391106418_) + _g106373106394_)))) + (_g106371106466_ + (lambda (_g106373106400_) (if (let () (declare (not safe)) - (gx#stx-pair? _g106391106418_)) - (let ((_e106398106420_ + (gx#stx-pair? _g106373106400_)) + (let ((_e106380106402_ (let () (declare (not safe)) - (gx#stx-e _g106391106418_)))) - (let ((_hd106397106423_ + (gx#stx-e _g106373106400_)))) + (let ((_hd106379106405_ (let () (declare (not safe)) - (##car _e106398106420_))) - (_tl106396106425_ + (##car _e106380106402_))) + (_tl106378106407_ (let () (declare (not safe)) - (##cdr _e106398106420_)))) + (##cdr _e106380106402_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106396106425_)) - (let ((_e106401106428_ + (gx#stx-pair? _tl106378106407_)) + (let ((_e106383106410_ (let () (declare (not safe)) - (gx#stx-e _tl106396106425_)))) - (let ((_hd106400106431_ + (gx#stx-e _tl106378106407_)))) + (let ((_hd106382106413_ (let () (declare (not safe)) - (##car _e106401106428_))) - (_tl106399106433_ + (##car _e106383106410_))) + (_tl106381106415_ (let () (declare (not safe)) - (##cdr _e106401106428_)))) + (##cdr _e106383106410_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106399106433_)) - (let ((_e106404106436_ + (gx#stx-pair? _tl106381106415_)) + (let ((_e106386106418_ (let () (declare (not safe)) - (gx#stx-e _tl106399106433_)))) - (let ((_hd106403106439_ + (gx#stx-e _tl106381106415_)))) + (let ((_hd106385106421_ (let () (declare (not safe)) - (##car _e106404106436_))) - (_tl106402106441_ + (##car _e106386106418_))) + (_tl106384106423_ (let () (declare (not safe)) - (##cdr _e106404106436_)))) + (##cdr _e106386106418_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106402106441_)) - (let ((_e106407106444_ + _tl106384106423_)) + (let ((_e106389106426_ (let () (declare (not safe)) (gx#stx-e - _tl106402106441_)))) - (let ((_hd106406106447_ + _tl106384106423_)))) + (let ((_hd106388106429_ (let () (declare (not safe)) - (##car _e106407106444_))) - (_tl106405106449_ + (##car _e106389106426_))) + (_tl106387106431_ (let () (declare (not safe)) - (##cdr _e106407106444_)))) + (##cdr _e106389106426_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106405106449_)) - (let ((_e106410106452_ + _tl106387106431_)) + (let ((_e106392106434_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl106405106449_)))) - (let ((_hd106409106455_ - (let () (declare (not safe)) (##car _e106410106452_))) - (_tl106408106457_ - (let () (declare (not safe)) (##cdr _e106410106452_)))) + (gx#stx-e _tl106387106431_)))) + (let ((_hd106391106437_ + (let () (declare (not safe)) (##car _e106392106434_))) + (_tl106390106439_ + (let () (declare (not safe)) (##cdr _e106392106434_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106408106457_)) - ((lambda (_L106460_ _L106461_ _L106462_ _L106463_) - (let ((__tmp114755 - (let ((__tmp114763 + (gx#stx-null? _tl106390106439_)) + ((lambda (_L106442_ _L106443_ _L106444_ _L106445_) + (let ((__tmp114737 + (let ((__tmp114745 (let () (declare (not safe)) (gxc#compile-e__1 - _self106387_ - _L106461_))) - (__tmp114756 - (let ((__tmp114762 + _self106369_ + _L106443_))) + (__tmp114738 + (let ((__tmp114744 (let () (declare (not safe)) (gxc#compile-e__1 - _self106387_ - _L106460_))) - (__tmp114757 - (let ((__tmp114761 + _self106369_ + _L106442_))) + (__tmp114739 + (let ((__tmp114743 (let () (declare (not safe)) (gxc#compile-e__1 - _self106387_ - _L106462_))) - (__tmp114758 - (let ((__tmp114760 + _self106369_ + _L106444_))) + (__tmp114740 + (let ((__tmp114742 (let () (declare (not safe)) (gxc#compile-e__1 - _self106387_ - _L106463_))) - (__tmp114759 + _self106369_ + _L106445_))) + (__tmp114741 (let () (declare (not safe)) @@ -13042,838 +13042,838 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp114760 __tmp114759)))) + (cons __tmp114742 __tmp114741)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114761 - __tmp114758)))) + (cons __tmp114743 + __tmp114740)))) (declare (not safe)) - (cons __tmp114762 __tmp114757)))) + (cons __tmp114744 __tmp114739)))) (declare (not safe)) - (cons __tmp114763 __tmp114756)))) + (cons __tmp114745 __tmp114738)))) (declare (not safe)) - (cons '##direct-structure-set! __tmp114755))) - _hd106409106455_ - _hd106406106447_ - _hd106403106439_ - _hd106400106431_) + (cons '##direct-structure-set! __tmp114737))) + _hd106391106437_ + _hd106388106429_ + _hd106385106421_ + _hd106382106413_) (let () (declare (not safe)) - (_g106390106415_ _g106391106418_))))) + (_g106372106397_ _g106373106400_))))) (let () (declare (not safe)) - (_g106390106415_ _g106391106418_))))) + (_g106372106397_ _g106373106400_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g106390106415_ - _g106391106418_))))) + (_g106372106397_ + _g106373106400_))))) (let () (declare (not safe)) - (_g106390106415_ _g106391106418_))))) + (_g106372106397_ _g106373106400_))))) (let () (declare (not safe)) - (_g106390106415_ _g106391106418_))))) + (_g106372106397_ _g106373106400_))))) (let () (declare (not safe)) - (_g106390106415_ _g106391106418_)))))) + (_g106372106397_ _g106373106400_)))))) (declare (not safe)) - (_g106389106484_ _stx106388_)))) + (_g106371106466_ _stx106370_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_self106182_ _stx106183_) - (let* ((_g106185106206_ - (lambda (_g106186106203_) + (lambda (_self106164_ _stx106165_) + (let* ((_g106167106188_ + (lambda (_g106168106185_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g106186106203_)))) - (_g106184106384_ - (lambda (_g106186106209_) + _g106168106185_)))) + (_g106166106366_ + (lambda (_g106168106191_) (if (let () (declare (not safe)) - (gx#stx-pair? _g106186106209_)) - (let ((_e106192106211_ + (gx#stx-pair? _g106168106191_)) + (let ((_e106174106193_ (let () (declare (not safe)) - (gx#stx-e _g106186106209_)))) - (let ((_hd106191106214_ + (gx#stx-e _g106168106191_)))) + (let ((_hd106173106196_ (let () (declare (not safe)) - (##car _e106192106211_))) - (_tl106190106216_ + (##car _e106174106193_))) + (_tl106172106198_ (let () (declare (not safe)) - (##cdr _e106192106211_)))) + (##cdr _e106174106193_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106190106216_)) - (let ((_e106195106219_ + (gx#stx-pair? _tl106172106198_)) + (let ((_e106177106201_ (let () (declare (not safe)) - (gx#stx-e _tl106190106216_)))) - (let ((_hd106194106222_ + (gx#stx-e _tl106172106198_)))) + (let ((_hd106176106204_ (let () (declare (not safe)) - (##car _e106195106219_))) - (_tl106193106224_ + (##car _e106177106201_))) + (_tl106175106206_ (let () (declare (not safe)) - (##cdr _e106195106219_)))) + (##cdr _e106177106201_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106193106224_)) - (let ((_e106198106227_ + (gx#stx-pair? _tl106175106206_)) + (let ((_e106180106209_ (let () (declare (not safe)) - (gx#stx-e _tl106193106224_)))) - (let ((_hd106197106230_ + (gx#stx-e _tl106175106206_)))) + (let ((_hd106179106212_ (let () (declare (not safe)) - (##car _e106198106227_))) - (_tl106196106232_ + (##car _e106180106209_))) + (_tl106178106214_ (let () (declare (not safe)) - (##cdr _e106198106227_)))) + (##cdr _e106180106209_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106196106232_)) - (let ((_e106201106235_ + _tl106178106214_)) + (let ((_e106183106217_ (let () (declare (not safe)) (gx#stx-e - _tl106196106232_)))) - (let ((_hd106200106238_ + _tl106178106214_)))) + (let ((_hd106182106220_ (let () (declare (not safe)) - (##car _e106201106235_))) - (_tl106199106240_ + (##car _e106183106217_))) + (_tl106181106222_ (let () (declare (not safe)) - (##cdr _e106201106235_)))) + (##cdr _e106183106217_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl106199106240_)) - ((lambda (_L106243_ - _L106244_ - _L106245_) + _tl106181106222_)) + ((lambda (_L106225_ + _L106226_ + _L106227_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114782 - (let ((__tmp114788 + (let ((__tmp114764 + (let ((__tmp114770 (let () (declare (not safe)) (gxc#compile-e__1 - _self106182_ - _L106243_))) - (__tmp114783 - (let ((__tmp114787 + _self106164_ + _L106225_))) + (__tmp114765 + (let ((__tmp114769 (let () (declare (not safe)) (gxc#compile-e__1 - _self106182_ - _L106244_))) - (__tmp114784 - (let ((__tmp114786 + _self106164_ + _L106226_))) + (__tmp114766 + (let ((__tmp114768 (let () (declare (not safe)) (gxc#compile-e__1 - _self106182_ - _L106245_))) - (__tmp114785 + _self106164_ + _L106227_))) + (__tmp114767 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp114786 __tmp114785)))) + (cons __tmp114768 __tmp114767)))) (declare (not safe)) - (cons __tmp114787 __tmp114784)))) + (cons __tmp114769 __tmp114766)))) (declare (not safe)) - (cons __tmp114788 __tmp114783)))) + (cons __tmp114770 __tmp114765)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp114782)) - (let _lp106263_ ((_rest106266_ - (let ((__tmp114780 - (let ((__tmp114781 + (cons '##unchecked-structure-ref __tmp114764)) + (let _lp106245_ ((_rest106248_ + (let ((__tmp114762 + (let ((__tmp114763 (let () (declare (not safe)) - (cons _L106243_ '())))) + (cons _L106225_ '())))) (declare (not safe)) - (cons _L106244_ __tmp114781)))) + (cons _L106226_ __tmp114763)))) (declare (not safe)) - (cons _L106245_ __tmp114780))) - (_bind106268_ '()) - (_args106269_ '())) - (let* ((_rest106270106278_ _rest106266_) - (_else106272106286_ + (cons _L106227_ __tmp114762))) + (_bind106250_ '()) + (_args106251_ '())) + (let* ((_rest106252106260_ _rest106248_) + (_else106254106268_ (lambda () - (let ((__tmp114764 - (let ((__tmp114765 - (let ((__tmp114766 - (let ((__tmp114767 - (let ((__tmp114768 + (let ((__tmp114746 + (let ((__tmp114747 + (let ((__tmp114748 + (let ((__tmp114749 + (let ((__tmp114750 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114769 + (let ((__tmp114751 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (foldr1 cons __tmp114769 _args106269_)))) + (foldr1 cons __tmp114751 _args106251_)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp114768)))) + (cons '##unchecked-structure-ref __tmp114750)))) (declare (not safe)) - (cons __tmp114767 '())))) + (cons __tmp114749 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp114766)))) + __tmp114748)))) (declare (not safe)) - (cons _bind106268_ __tmp114765)))) + (cons _bind106250_ __tmp114747)))) (declare (not safe)) - (cons 'let __tmp114764)))) - (_K106274106372_ - (lambda (_rest106289_ _e106290_) - (let* ((___stx113998113999_ _e106290_) - (_g106295106313_ + (cons 'let __tmp114746)))) + (_K106256106354_ + (lambda (_rest106271_ _e106272_) + (let* ((___stx113980113981_ _e106272_) + (_g106277106295_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx113998113999_))))) - (let ((___kont114000114001_ + ___stx113980113981_))))) + (let ((___kont113982113983_ (lambda () - (let ((__tmp114770 - (let ((__tmp114771 + (let ((__tmp114752 + (let ((__tmp114753 (let () (declare (not safe)) (gxc#compile-e__0 - _e106290_)))) + _e106272_)))) (declare (not safe)) - (cons __tmp114771 - _args106269_)))) + (cons __tmp114753 + _args106251_)))) (declare (not safe)) - (_lp106263_ - _rest106289_ - _bind106268_ - __tmp114770)))) - (___kont114002114003_ + (_lp106245_ + _rest106271_ + _bind106250_ + __tmp114752)))) + (___kont113984113985_ (lambda () - (let ((__tmp114772 - (let ((__tmp114773 + (let ((__tmp114754 + (let ((__tmp114755 (let () (declare (not safe)) (gxc#compile-e__0 - _e106290_)))) + _e106272_)))) (declare (not safe)) - (cons __tmp114773 - _args106269_)))) + (cons __tmp114755 + _args106251_)))) (declare (not safe)) - (_lp106263_ - _rest106289_ - _bind106268_ - __tmp114772)))) - (___kont114004114005_ + (_lp106245_ + _rest106271_ + _bind106250_ + __tmp114754)))) + (___kont113986113987_ (lambda () - (let ((_tmp106320_ - (let ((__tmp114774 + (let ((_tmp106302_ + (let ((__tmp114756 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp114774)))) - (let ((__tmp114776 - (let ((__tmp114777 - (let ((__tmp114778 + __tmp114756)))) + (let ((__tmp114758 + (let ((__tmp114759 + (let ((__tmp114760 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114779 + (let ((__tmp114761 (let () (declare (not safe)) - (gxc#compile-e__0 _e106290_)))) + (gxc#compile-e__0 _e106272_)))) (declare (not safe)) - (cons __tmp114779 '())))) + (cons __tmp114761 '())))) (declare (not safe)) - (cons _tmp106320_ __tmp114778)))) + (cons _tmp106302_ __tmp114760)))) (declare (not safe)) - (cons __tmp114777 _bind106268_))) + (cons __tmp114759 _bind106250_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114775 + (__tmp114757 (let () (declare (not safe)) - (cons _tmp106320_ - _args106269_)))) + (cons _tmp106302_ + _args106251_)))) (declare (not safe)) - (_lp106263_ - _rest106289_ - __tmp114776 - __tmp114775)))))) + (_lp106245_ + _rest106271_ + __tmp114758 + __tmp114757)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx113998113999_)) - (let ((_e106299106351_ + (gx#stx-pair? ___stx113980113981_)) + (let ((_e106281106333_ (let () (declare (not safe)) (gx#stx-e - ___stx113998113999_)))) - (let ((_tl106297106356_ + ___stx113980113981_)))) + (let ((_tl106279106338_ (let () (declare (not safe)) - (##cdr _e106299106351_))) - (_hd106298106354_ + (##cdr _e106281106333_))) + (_hd106280106336_ (let () (declare (not safe)) - (##car _e106299106351_)))) + (##car _e106281106333_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106298106354_)) + _hd106280106336_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd106298106354_)) + _hd106280106336_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl106297106356_)) - (let ((_e106302106359_ + _tl106279106338_)) + (let ((_e106284106341_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl106297106356_)))) - (let ((_tl106300106364_ + (gx#stx-e _tl106279106338_)))) + (let ((_tl106282106346_ (let () (declare (not safe)) - (##cdr _e106302106359_))) - (_hd106301106362_ + (##cdr _e106284106341_))) + (_hd106283106344_ (let () (declare (not safe)) - (##car _e106302106359_)))) + (##car _e106284106341_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106300106364_)) - (___kont114000114001_) - (___kont114004114005_)))) - (___kont114004114005_)) + (gx#stx-null? _tl106282106346_)) + (___kont113982113983_) + (___kont113986113987_)))) + (___kont113986113987_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd106298106354_)) + _hd106280106336_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl106297106356_)) - (let ((_e106308106336_ + (gx#stx-pair? _tl106279106338_)) + (let ((_e106290106318_ (let () (declare (not safe)) - (gx#stx-e _tl106297106356_)))) - (let ((_tl106306106341_ + (gx#stx-e _tl106279106338_)))) + (let ((_tl106288106323_ (let () (declare (not safe)) - (##cdr _e106308106336_))) - (_hd106307106339_ + (##cdr _e106290106318_))) + (_hd106289106321_ (let () (declare (not safe)) - (##car _e106308106336_)))) + (##car _e106290106318_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106306106341_)) - (___kont114002114003_) - (___kont114004114005_)))) - (___kont114004114005_)) - (___kont114004114005_))) + (gx#stx-null? _tl106288106323_)) + (___kont113984113985_) + (___kont113986113987_)))) + (___kont113986113987_)) + (___kont113986113987_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont114004114005_)))) - (___kont114004114005_))))))) + (___kont113986113987_)))) + (___kont113986113987_))))))) (if (let () (declare (not safe)) - (##pair? _rest106270106278_)) - (let ((_hd106275106375_ + (##pair? _rest106252106260_)) + (let ((_hd106257106357_ (let () (declare (not safe)) - (##car _rest106270106278_))) - (_tl106276106377_ + (##car _rest106252106260_))) + (_tl106258106359_ (let () (declare (not safe)) - (##cdr _rest106270106278_)))) - (let* ((_e106380_ _hd106275106375_) - (_rest106382_ _tl106276106377_)) + (##cdr _rest106252106260_)))) + (let* ((_e106362_ _hd106257106357_) + (_rest106364_ _tl106258106359_)) (declare (not safe)) - (_K106274106372_ _rest106382_ _e106380_))) + (_K106256106354_ _rest106364_ _e106362_))) (let () (declare (not safe)) - (_else106272106286_))))))) - _hd106200106238_ - _hd106197106230_ - _hd106194106222_) + (_else106254106268_))))))) + _hd106182106220_ + _hd106179106212_ + _hd106176106204_) (let () (declare (not safe)) - (_g106185106206_ _g106186106209_))))) + (_g106167106188_ _g106168106191_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g106185106206_ - _g106186106209_))))) + (_g106167106188_ + _g106168106191_))))) (let () (declare (not safe)) - (_g106185106206_ _g106186106209_))))) + (_g106167106188_ _g106168106191_))))) (let () (declare (not safe)) - (_g106185106206_ _g106186106209_))))) + (_g106167106188_ _g106168106191_))))) (let () (declare (not safe)) - (_g106185106206_ _g106186106209_)))))) + (_g106167106188_ _g106168106191_)))))) (declare (not safe)) - (_g106184106384_ _stx106183_)))) + (_g106166106366_ _stx106165_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_self105961_ _stx105962_) - (let* ((_g105964105989_ - (lambda (_g105965105986_) + (lambda (_self105943_ _stx105944_) + (let* ((_g105946105971_ + (lambda (_g105947105968_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105965105986_)))) - (_g105963106179_ - (lambda (_g105965105992_) + _g105947105968_)))) + (_g105945106161_ + (lambda (_g105947105974_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105965105992_)) - (let ((_e105972105994_ + (gx#stx-pair? _g105947105974_)) + (let ((_e105954105976_ (let () (declare (not safe)) - (gx#stx-e _g105965105992_)))) - (let ((_hd105971105997_ + (gx#stx-e _g105947105974_)))) + (let ((_hd105953105979_ (let () (declare (not safe)) - (##car _e105972105994_))) - (_tl105970105999_ + (##car _e105954105976_))) + (_tl105952105981_ (let () (declare (not safe)) - (##cdr _e105972105994_)))) + (##cdr _e105954105976_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105970105999_)) - (let ((_e105975106002_ + (gx#stx-pair? _tl105952105981_)) + (let ((_e105957105984_ (let () (declare (not safe)) - (gx#stx-e _tl105970105999_)))) - (let ((_hd105974106005_ + (gx#stx-e _tl105952105981_)))) + (let ((_hd105956105987_ (let () (declare (not safe)) - (##car _e105975106002_))) - (_tl105973106007_ + (##car _e105957105984_))) + (_tl105955105989_ (let () (declare (not safe)) - (##cdr _e105975106002_)))) + (##cdr _e105957105984_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105973106007_)) - (let ((_e105978106010_ + (gx#stx-pair? _tl105955105989_)) + (let ((_e105960105992_ (let () (declare (not safe)) - (gx#stx-e _tl105973106007_)))) - (let ((_hd105977106013_ + (gx#stx-e _tl105955105989_)))) + (let ((_hd105959105995_ (let () (declare (not safe)) - (##car _e105978106010_))) - (_tl105976106015_ + (##car _e105960105992_))) + (_tl105958105997_ (let () (declare (not safe)) - (##cdr _e105978106010_)))) + (##cdr _e105960105992_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl105976106015_)) - (let ((_e105981106018_ + _tl105958105997_)) + (let ((_e105963106000_ (let () (declare (not safe)) (gx#stx-e - _tl105976106015_)))) - (let ((_hd105980106021_ + _tl105958105997_)))) + (let ((_hd105962106003_ (let () (declare (not safe)) - (##car _e105981106018_))) - (_tl105979106023_ + (##car _e105963106000_))) + (_tl105961106005_ (let () (declare (not safe)) - (##cdr _e105981106018_)))) + (##cdr _e105963106000_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl105979106023_)) - (let ((_e105984106026_ + _tl105961106005_)) + (let ((_e105966106008_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl105979106023_)))) - (let ((_hd105983106029_ - (let () (declare (not safe)) (##car _e105984106026_))) - (_tl105982106031_ - (let () (declare (not safe)) (##cdr _e105984106026_)))) + (gx#stx-e _tl105961106005_)))) + (let ((_hd105965106011_ + (let () (declare (not safe)) (##car _e105966106008_))) + (_tl105964106013_ + (let () (declare (not safe)) (##cdr _e105966106008_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105982106031_)) - ((lambda (_L106034_ _L106035_ _L106036_ _L106037_) + (gx#stx-null? _tl105964106013_)) + ((lambda (_L106016_ _L106017_ _L106018_ _L106019_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp114808 - (let ((__tmp114816 + (let ((__tmp114790 + (let ((__tmp114798 (let () (declare (not safe)) (gxc#compile-e__1 - _self105961_ - _L106035_))) - (__tmp114809 - (let ((__tmp114815 + _self105943_ + _L106017_))) + (__tmp114791 + (let ((__tmp114797 (let () (declare (not safe)) (gxc#compile-e__1 - _self105961_ - _L106034_))) - (__tmp114810 - (let ((__tmp114814 + _self105943_ + _L106016_))) + (__tmp114792 + (let ((__tmp114796 (let () (declare (not safe)) (gxc#compile-e__1 - _self105961_ - _L106036_))) - (__tmp114811 - (let ((__tmp114813 + _self105943_ + _L106018_))) + (__tmp114793 + (let ((__tmp114795 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _self105961_ _L106037_))) - (__tmp114812 + (gxc#compile-e__1 _self105943_ _L106019_))) + (__tmp114794 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp114813 __tmp114812)))) + (cons __tmp114795 __tmp114794)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114814 - __tmp114811)))) + (cons __tmp114796 + __tmp114793)))) (declare (not safe)) - (cons __tmp114815 __tmp114810)))) + (cons __tmp114797 __tmp114792)))) (declare (not safe)) - (cons __tmp114816 __tmp114809)))) + (cons __tmp114798 __tmp114791)))) (declare (not safe)) - (cons '##unchecked-structure-set! __tmp114808)) - (let _lp106058_ ((_rest106061_ - (let ((__tmp114805 - (let ((__tmp114806 - (let ((__tmp114807 + (cons '##unchecked-structure-set! __tmp114790)) + (let _lp106040_ ((_rest106043_ + (let ((__tmp114787 + (let ((__tmp114788 + (let ((__tmp114789 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L106035_ '())))) + (cons _L106017_ '())))) (declare (not safe)) - (cons _L106034_ __tmp114807)))) + (cons _L106016_ __tmp114789)))) (declare (not safe)) - (cons _L106036_ __tmp114806)))) + (cons _L106018_ __tmp114788)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L106037_ __tmp114805))) - (_bind106063_ '()) - (_args106064_ '())) - (let* ((_rest106065106073_ _rest106061_) - (_else106067106081_ + (cons _L106019_ __tmp114787))) + (_bind106045_ '()) + (_args106046_ '())) + (let* ((_rest106047106055_ _rest106043_) + (_else106049106063_ (lambda () - (let ((__tmp114789 - (let ((__tmp114790 - (let ((__tmp114791 - (let ((__tmp114792 + (let ((__tmp114771 + (let ((__tmp114772 + (let ((__tmp114773 + (let ((__tmp114774 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114793 - (let ((__tmp114794 + (let ((__tmp114775 + (let ((__tmp114776 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (foldr1 cons __tmp114794 _args106064_)))) + (foldr1 cons __tmp114776 _args106046_)))) (declare (not safe)) (cons '##unchecked-structure-set! - __tmp114793)))) + __tmp114775)))) (declare (not safe)) - (cons __tmp114792 '())))) + (cons __tmp114774 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp114791)))) + (cons '(declare (not safe)) __tmp114773)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _bind106063_ - __tmp114790)))) + (cons _bind106045_ + __tmp114772)))) (declare (not safe)) - (cons 'let __tmp114789)))) - (_K106069106167_ - (lambda (_rest106084_ _e106085_) - (let* ((___stx114044114045_ _e106085_) - (_g106090106108_ + (cons 'let __tmp114771)))) + (_K106051106149_ + (lambda (_rest106066_ _e106067_) + (let* ((___stx114026114027_ _e106067_) + (_g106072106090_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx114044114045_))))) - (let ((___kont114046114047_ + ___stx114026114027_))))) + (let ((___kont114028114029_ (lambda () - (let ((__tmp114795 - (let ((__tmp114796 + (let ((__tmp114777 + (let ((__tmp114778 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e106085_)))) + (gxc#compile-e__0 _e106067_)))) (declare (not safe)) - (cons __tmp114796 _args106064_)))) + (cons __tmp114778 _args106046_)))) (declare (not safe)) - (_lp106058_ _rest106084_ _bind106063_ __tmp114795)))) + (_lp106040_ _rest106066_ _bind106045_ __tmp114777)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont114048114049_ + (___kont114030114031_ (lambda () - (let ((__tmp114797 - (let ((__tmp114798 + (let ((__tmp114779 + (let ((__tmp114780 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e106085_)))) + (gxc#compile-e__0 _e106067_)))) (declare (not safe)) - (cons __tmp114798 _args106064_)))) + (cons __tmp114780 _args106046_)))) (declare (not safe)) - (_lp106058_ _rest106084_ _bind106063_ __tmp114797)))) + (_lp106040_ _rest106066_ _bind106045_ __tmp114779)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont114050114051_ + (___kont114032114033_ (lambda () - (let ((_tmp106115_ - (let ((__tmp114799 + (let ((_tmp106097_ + (let ((__tmp114781 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp114799)))) - (let ((__tmp114801 - (let ((__tmp114802 - (let ((__tmp114803 - (let ((__tmp114804 + (make-symbol__0 __tmp114781)))) + (let ((__tmp114783 + (let ((__tmp114784 + (let ((__tmp114785 + (let ((__tmp114786 (let () (declare (not safe)) - (gxc#compile-e__0 _e106085_)))) + (gxc#compile-e__0 _e106067_)))) (declare (not safe)) - (cons __tmp114804 '())))) + (cons __tmp114786 '())))) (declare (not safe)) - (cons _tmp106115_ __tmp114803)))) + (cons _tmp106097_ __tmp114785)))) (declare (not safe)) - (cons __tmp114802 _bind106063_))) - (__tmp114800 + (cons __tmp114784 _bind106045_))) + (__tmp114782 (let () (declare (not safe)) - (cons _tmp106115_ _args106064_)))) + (cons _tmp106097_ _args106046_)))) (declare (not safe)) - (_lp106058_ _rest106084_ __tmp114801 __tmp114800)))))) + (_lp106040_ _rest106066_ __tmp114783 __tmp114782)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx114044114045_)) - (let ((_e106094106146_ + ___stx114026114027_)) + (let ((_e106076106128_ (let () (declare (not safe)) (gx#stx-e - ___stx114044114045_)))) - (let ((_tl106092106151_ + ___stx114026114027_)))) + (let ((_tl106074106133_ (let () (declare (not safe)) - (##cdr _e106094106146_))) - (_hd106093106149_ + (##cdr _e106076106128_))) + (_hd106075106131_ (let () (declare (not safe)) - (##car _e106094106146_)))) + (##car _e106076106128_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd106093106149_)) + _hd106075106131_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd106093106149_)) + (gx#stx-eq? '%#ref _hd106075106131_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106092106151_)) - (let ((_e106097106154_ + (gx#stx-pair? _tl106074106133_)) + (let ((_e106079106136_ (let () (declare (not safe)) - (gx#stx-e _tl106092106151_)))) - (let ((_tl106095106159_ + (gx#stx-e _tl106074106133_)))) + (let ((_tl106077106141_ (let () (declare (not safe)) - (##cdr _e106097106154_))) - (_hd106096106157_ + (##cdr _e106079106136_))) + (_hd106078106139_ (let () (declare (not safe)) - (##car _e106097106154_)))) + (##car _e106079106136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106095106159_)) - (___kont114046114047_) - (___kont114050114051_)))) - (___kont114050114051_)) + (gx#stx-null? _tl106077106141_)) + (___kont114028114029_) + (___kont114032114033_)))) + (___kont114032114033_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd106093106149_)) + (gx#stx-eq? '%#quote _hd106075106131_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl106092106151_)) - (let ((_e106103106131_ + (gx#stx-pair? _tl106074106133_)) + (let ((_e106085106113_ (let () (declare (not safe)) - (gx#stx-e _tl106092106151_)))) - (let ((_tl106101106136_ + (gx#stx-e _tl106074106133_)))) + (let ((_tl106083106118_ (let () (declare (not safe)) - (##cdr _e106103106131_))) - (_hd106102106134_ + (##cdr _e106085106113_))) + (_hd106084106116_ (let () (declare (not safe)) - (##car _e106103106131_)))) + (##car _e106085106113_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl106101106136_)) - (___kont114048114049_) - (___kont114050114051_)))) - (___kont114050114051_)) - (___kont114050114051_))) - (___kont114050114051_)))) + (gx#stx-null? _tl106083106118_)) + (___kont114030114031_) + (___kont114032114033_)))) + (___kont114032114033_)) + (___kont114032114033_))) + (___kont114032114033_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont114050114051_))))))) + (___kont114032114033_))))))) (if (let () (declare (not safe)) - (##pair? _rest106065106073_)) - (let ((_hd106070106170_ + (##pair? _rest106047106055_)) + (let ((_hd106052106152_ (let () (declare (not safe)) - (##car _rest106065106073_))) - (_tl106071106172_ + (##car _rest106047106055_))) + (_tl106053106154_ (let () (declare (not safe)) - (##cdr _rest106065106073_)))) - (let* ((_e106175_ _hd106070106170_) - (_rest106177_ _tl106071106172_)) + (##cdr _rest106047106055_)))) + (let* ((_e106157_ _hd106052106152_) + (_rest106159_ _tl106053106154_)) (declare (not safe)) - (_K106069106167_ - _rest106177_ - _e106175_))) + (_K106051106149_ + _rest106159_ + _e106157_))) (let () (declare (not safe)) - (_else106067106081_))))))) - _hd105983106029_ - _hd105980106021_ - _hd105977106013_ - _hd105974106005_) + (_else106049106063_))))))) + _hd105965106011_ + _hd105962106003_ + _hd105959105995_ + _hd105956105987_) (let () (declare (not safe)) - (_g105964105989_ _g105965105992_))))) + (_g105946105971_ _g105947105974_))))) (let () (declare (not safe)) - (_g105964105989_ _g105965105992_))))) + (_g105946105971_ _g105947105974_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105964105989_ - _g105965105992_))))) + (_g105946105971_ + _g105947105974_))))) (let () (declare (not safe)) - (_g105964105989_ _g105965105992_))))) + (_g105946105971_ _g105947105974_))))) (let () (declare (not safe)) - (_g105964105989_ _g105965105992_))))) + (_g105946105971_ _g105947105974_))))) (let () (declare (not safe)) - (_g105964105989_ _g105965105992_)))))) + (_g105946105971_ _g105947105974_)))))) (declare (not safe)) - (_g105963106179_ _stx105962_)))) + (_g105945106161_ _stx105944_)))) (define gxc#generate-runtime-loader-import% - (lambda (_self105814_ _stx105815_) - (letrec ((_import-set-template105817_ - (lambda (_in105913_ _phi105914_) - (let ((_iphi105916_ - (fx+ _phi105914_ + (lambda (_self105796_ _stx105797_) + (letrec ((_import-set-template105799_ + (lambda (_in105895_ _phi105896_) + (let ((_iphi105898_ + (fx+ _phi105896_ (##direct-structure-ref - _in105913_ + _in105895_ '2 gx#import-set::t '#f))) - (_imports105917_ + (_imports105899_ (##structure-ref (##direct-structure-ref - _in105913_ + _in105895_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp105919_ ((_rest105921_ _imports105917_) - (_r105922_ '())) - (let* ((_rest105923105931_ _rest105921_) - (_else105925105939_ (lambda () _r105922_)) - (_K105927105949_ - (lambda (_rest105942_ _in105943_) + (let _lp105901_ ((_rest105903_ _imports105899_) + (_r105904_ '())) + (let* ((_rest105905105913_ _rest105903_) + (_else105907105921_ (lambda () _r105904_)) + (_K105909105931_ + (lambda (_rest105924_ _in105925_) (if (let () (declare (not safe)) (##structure-instance-of? - _in105943_ + _in105925_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi105916_)) - (let ((__tmp114823 + (fxzero? _iphi105898_)) + (let ((__tmp114805 (let () (declare (not safe)) - (cons _in105943_ - _r105922_)))) + (cons _in105925_ + _r105904_)))) (declare (not safe)) - (_lp105919_ - _rest105942_ - __tmp114823)) + (_lp105901_ + _rest105924_ + __tmp114805)) (let () (declare (not safe)) - (_lp105919_ - _rest105942_ - _r105922_))) + (_lp105901_ + _rest105924_ + _r105904_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105943_ + _in105925_ 'gx#module-import::t)) - (let ((_iphi105945_ - (fx+ _phi105914_ + (let ((_iphi105927_ + (fx+ _phi105896_ (##direct-structure-ref - _in105943_ + _in105925_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi105945_)) - (let ((__tmp114821 - (let ((__tmp114822 + (fxzero? _iphi105927_)) + (let ((__tmp114803 + (let ((__tmp114804 (##direct-structure-ref (##direct-structure-ref - _in105943_ + _in105925_ '1 gx#module-import::t '#f) @@ -13881,199 +13881,199 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp114822 - _r105922_)))) + (cons __tmp114804 + _r105904_)))) (declare (not safe)) - (_lp105919_ - _rest105942_ - __tmp114821)) + (_lp105901_ + _rest105924_ + __tmp114803)) (let () (declare (not safe)) - (_lp105919_ - _rest105942_ - _r105922_)))) + (_lp105901_ + _rest105924_ + _r105904_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105943_ + _in105925_ 'gx#import-set::t)) - (let ((_xphi105947_ - (fx+ _iphi105916_ + (let ((_xphi105929_ + (fx+ _iphi105898_ (##direct-structure-ref - _in105943_ + _in105925_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi105947_)) - (let ((__tmp114819 - (let ((__tmp114820 + (fxzero? _xphi105929_)) + (let ((__tmp114801 + (let ((__tmp114802 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in105943_ + _in105925_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp114820 _r105922_)))) + (cons __tmp114802 _r105904_)))) (declare (not safe)) - (_lp105919_ _rest105942_ __tmp114819)) + (_lp105901_ _rest105924_ __tmp114801)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fxpositive? - _xphi105947_) - (let ((__tmp114817 - (let ((__tmp114818 + _xphi105929_) + (let ((__tmp114799 + (let ((__tmp114800 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_import-set-template105817_ - _in105943_ - _iphi105916_)))) + (_import-set-template105799_ + _in105925_ + _iphi105898_)))) (declare (not safe)) - (foldl1 cons _r105922_ __tmp114818)))) + (foldl1 cons _r105904_ __tmp114800)))) (declare (not safe)) - (_lp105919_ _rest105942_ __tmp114817)) + (_lp105901_ _rest105924_ __tmp114799)) (let () (declare (not safe)) - (_lp105919_ _rest105942_ _r105922_))))) + (_lp105901_ _rest105924_ _r105904_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp105919_ - _rest105942_ - _r105922_)))))))) + (_lp105901_ + _rest105924_ + _r105904_)))))))) (if (let () (declare (not safe)) - (##pair? _rest105923105931_)) - (let ((_hd105928105952_ + (##pair? _rest105905105913_)) + (let ((_hd105910105934_ (let () (declare (not safe)) - (##car _rest105923105931_))) - (_tl105929105954_ + (##car _rest105905105913_))) + (_tl105911105936_ (let () (declare (not safe)) - (##cdr _rest105923105931_)))) - (let* ((_in105957_ _hd105928105952_) - (_rest105959_ _tl105929105954_)) + (##cdr _rest105905105913_)))) + (let* ((_in105939_ _hd105910105934_) + (_rest105941_ _tl105911105936_)) (declare (not safe)) - (_K105927105949_ _rest105959_ _in105957_))) + (_K105909105931_ _rest105941_ _in105939_))) (let () (declare (not safe)) - (_else105925105939_))))))))) - (let* ((_g105819105829_ - (lambda (_g105820105826_) + (_else105907105921_))))))))) + (let* ((_g105801105811_ + (lambda (_g105802105808_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105820105826_)))) - (_g105818105910_ - (lambda (_g105820105832_) + _g105802105808_)))) + (_g105800105892_ + (lambda (_g105802105814_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105820105832_)) - (let ((_e105824105834_ + (gx#stx-pair? _g105802105814_)) + (let ((_e105806105816_ (let () (declare (not safe)) - (gx#stx-e _g105820105832_)))) - (let ((_hd105823105837_ + (gx#stx-e _g105802105814_)))) + (let ((_hd105805105819_ (let () (declare (not safe)) - (##car _e105824105834_))) - (_tl105822105839_ + (##car _e105806105816_))) + (_tl105804105821_ (let () (declare (not safe)) - (##cdr _e105824105834_)))) - ((lambda (_L105842_) - (let ((_ht105853_ + (##cdr _e105806105816_)))) + ((lambda (_L105824_) + (let ((_ht105835_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let _lp105855_ ((_rest105857_ _L105842_) - (_loads105858_ '())) - (letrec ((_K105860_ - (lambda (_ctx105903_ _rest105904_) - (let ((_id105906_ + (let _lp105837_ ((_rest105839_ _L105824_) + (_loads105840_ '())) + (letrec ((_K105842_ + (lambda (_ctx105885_ _rest105886_) + (let ((_id105888_ (##structure-ref - _ctx105903_ + _ctx105885_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (hash-get - _ht105853_ - _id105906_)) + _ht105835_ + _id105888_)) (let () (declare (not safe)) - (_lp105855_ - _rest105904_ - _loads105858_)) - (let ((_rt105908_ + (_lp105837_ + _rest105886_ + _loads105840_)) + (let ((_rt105890_ (let () (declare (not safe)) (gxc#module-id->path-string - _id105906_)))) + _id105888_)))) (let () (declare (not safe)) (hash-put! - _ht105853_ - _id105906_ - _rt105908_)) - (let ((__tmp114824 + _ht105835_ + _id105888_ + _rt105890_)) + (let ((__tmp114806 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _rt105908_ _loads105858_)))) + (cons _rt105890_ _loads105840_)))) (declare (not safe)) - (_lp105855_ _rest105904_ __tmp114824)))))))) + (_lp105837_ _rest105886_ __tmp114806)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest105861105869_ _rest105857_) - (_else105863105881_ + (let* ((_rest105843105851_ _rest105839_) + (_else105845105863_ (lambda () - (let ((__tmp114825 - (map (lambda (_g105876105878_) + (let ((__tmp114807 + (map (lambda (_g105858105860_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g105876105878_)) - (reverse _loads105858_)))) + _g105858105860_)) + (reverse _loads105840_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'begin __tmp114825)))) - (_K105865105891_ - (lambda (_rest105884_ _in105885_) + (cons 'begin __tmp114807)))) + (_K105847105873_ + (lambda (_rest105866_ _in105867_) (if (let () (declare (not safe)) (##structure-instance-of? - _in105885_ + _in105867_ 'gx#module-context::t)) (let () (declare (not safe)) - (_K105860_ - _in105885_ - _rest105884_)) + (_K105842_ + _in105867_ + _rest105866_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105885_ + _in105867_ 'gx#module-import::t)) - (if (let ((__tmp114829 + (if (let ((__tmp114811 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in105885_ + _in105867_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp114829)) - (let ((__tmp114828 + (fxzero? __tmp114811)) + (let ((__tmp114810 (##direct-structure-ref (##direct-structure-ref - _in105885_ + _in105867_ '1 gx#module-import::t '#f) @@ -14081,785 +14081,785 @@ gx#module-export::t '#f))) (declare (not safe)) - (_K105860_ __tmp114828 _rest105884_)) + (_K105842_ __tmp114810 _rest105866_)) (let () (declare (not safe)) - (_lp105855_ _rest105884_ _loads105858_))) + (_lp105837_ _rest105866_ _loads105840_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105885_ + _in105867_ 'gx#import-set::t)) - (let ((_phi105887_ + (let ((_phi105869_ (##direct-structure-ref - _in105885_ + _in105867_ '2 gx#import-set::t '#f))) - (if (let () (declare (not safe)) (fxzero? _phi105887_)) - (let ((__tmp114827 + (if (let () (declare (not safe)) (fxzero? _phi105869_)) + (let ((__tmp114809 (##direct-structure-ref - _in105885_ + _in105867_ '1 gx#import-set::t '#f))) (declare (not safe)) - (_K105860_ __tmp114827 _rest105884_)) - (if (fxpositive? _phi105887_) - (let* ((_deps105889_ + (_K105842_ __tmp114809 _rest105866_)) + (if (fxpositive? _phi105869_) + (let* ((_deps105871_ (let () (declare (not safe)) - (_import-set-template105817_ - _in105885_ + (_import-set-template105799_ + _in105867_ '0))) - (__tmp114826 + (__tmp114808 (let () (declare (not safe)) (foldl1 cons - _rest105884_ - _deps105889_)))) + _rest105866_ + _deps105871_)))) (declare (not safe)) - (_lp105855_ __tmp114826 _loads105858_)) + (_lp105837_ __tmp114808 _loads105840_)) (let () (declare (not safe)) - (_lp105855_ _rest105884_ _loads105858_))))) + (_lp105837_ _rest105866_ _loads105840_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _stx105815_ - _in105885_)))))))) + _stx105797_ + _in105867_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest105861105869_)) - (let ((_hd105866105894_ + (##pair? _rest105843105851_)) + (let ((_hd105848105876_ (let () (declare (not safe)) - (##car _rest105861105869_))) - (_tl105867105896_ + (##car _rest105843105851_))) + (_tl105849105878_ (let () (declare (not safe)) - (##cdr _rest105861105869_)))) - (let* ((_in105899_ - _hd105866105894_) - (_rest105901_ - _tl105867105896_)) + (##cdr _rest105843105851_)))) + (let* ((_in105881_ + _hd105848105876_) + (_rest105883_ + _tl105849105878_)) (declare (not safe)) - (_K105865105891_ - _rest105901_ - _in105899_))) + (_K105847105873_ + _rest105883_ + _in105881_))) (let () (declare (not safe)) - (_else105863105881_)))))))) - _tl105822105839_))) + (_else105845105863_)))))))) + _tl105804105821_))) (let () (declare (not safe)) - (_g105819105829_ _g105820105832_)))))) + (_g105801105811_ _g105802105814_)))))) (declare (not safe)) - (_g105818105910_ _stx105815_))))) + (_g105800105892_ _stx105797_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_self105629_ _stx105630_) - (letrec ((_add-lift!105632_ - (lambda (_expr105812_) + (lambda (_self105611_ _stx105612_) + (letrec ((_add-lift!105614_ + (lambda (_expr105794_) (set-box! (gxc#current-compile-lift) - (let ((__tmp114830 (unbox (gxc#current-compile-lift)))) + (let ((__tmp114812 (unbox (gxc#current-compile-lift)))) (declare (not safe)) - (cons _expr105812_ __tmp114830))))) - (_generate-syntax-quote105633_ - (lambda (_id105809_ _marks105810_) - (let ((__tmp114831 - (let ((__tmp114832 - (let ((__tmp114836 - (let ((__tmp114837 + (cons _expr105794_ __tmp114812))))) + (_generate-syntax-quote105615_ + (lambda (_id105791_ _marks105792_) + (let ((__tmp114813 + (let ((__tmp114814 + (let ((__tmp114818 + (let ((__tmp114819 (let () (declare (not safe)) - (cons _id105809_ '())))) + (cons _id105791_ '())))) (declare (not safe)) - (cons 'quote __tmp114837))) - (__tmp114833 - (let ((__tmp114834 - (let ((__tmp114835 + (cons 'quote __tmp114819))) + (__tmp114815 + (let ((__tmp114816 + (let ((__tmp114817 (let () (declare (not safe)) - (cons _marks105810_ + (cons _marks105792_ '())))) (declare (not safe)) (cons '(gx#current-expander-context) - __tmp114835)))) + __tmp114817)))) (declare (not safe)) - (cons '#f __tmp114834)))) + (cons '#f __tmp114816)))) (declare (not safe)) - (cons __tmp114836 __tmp114833)))) + (cons __tmp114818 __tmp114815)))) (declare (not safe)) - (cons 'gx#syntax-quote::t __tmp114832)))) + (cons 'gx#syntax-quote::t __tmp114814)))) (declare (not safe)) - (cons '##structure __tmp114831)))) - (_generate-simple105634_ - (lambda (_stxq105804_) - (let ((_gid105806_ + (cons '##structure __tmp114813)))) + (_generate-simple105616_ + (lambda (_stxq105786_) + (let ((_gid105788_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid105807_ + (_qid105789_ (let () (declare (not safe)) - (gxc#generate-runtime-identifier _stxq105804_)))) - (let ((__tmp114838 - (let ((__tmp114839 - (let ((__tmp114840 - (let ((__tmp114841 + (gxc#generate-runtime-identifier _stxq105786_)))) + (let ((__tmp114820 + (let ((__tmp114821 + (let ((__tmp114822 + (let ((__tmp114823 (let () (declare (not safe)) - (_generate-syntax-quote105633_ - _qid105807_ + (_generate-syntax-quote105615_ + _qid105789_ ''())))) (declare (not safe)) - (cons __tmp114841 '())))) + (cons __tmp114823 '())))) (declare (not safe)) - (cons _gid105806_ __tmp114840)))) + (cons _gid105788_ __tmp114822)))) (declare (not safe)) - (cons 'define __tmp114839)))) + (cons 'define __tmp114821)))) (declare (not safe)) - (_add-lift!105632_ __tmp114838)) - (let ((__tmp114842 (gxc#current-compile-identifiers))) + (_add-lift!105614_ __tmp114820)) + (let ((__tmp114824 (gxc#current-compile-identifiers))) (declare (not safe)) - (hash-put! __tmp114842 _stxq105804_ _gid105806_)) - _gid105806_))) - (_generate-serialized105635_ - (lambda (_stxq105794_ _marks105795_) - (let* ((_mark-refs105797_ - (map _generate-mark105636_ _marks105795_)) - (_gid105799_ + (hash-put! __tmp114824 _stxq105786_ _gid105788_)) + _gid105788_))) + (_generate-serialized105617_ + (lambda (_stxq105776_ _marks105777_) + (let* ((_mark-refs105779_ + (map _generate-mark105618_ _marks105777_)) + (_gid105781_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid105801_ + (_qid105783_ (let () (declare (not safe)) - (gxc#generate-runtime-identifier _stxq105794_)))) - (let ((__tmp114843 - (let ((__tmp114844 - (let ((__tmp114845 - (let ((__tmp114846 - (let ((__tmp114847 + (gxc#generate-runtime-identifier _stxq105776_)))) + (let ((__tmp114825 + (let ((__tmp114826 + (let ((__tmp114827 + (let ((__tmp114828 + (let ((__tmp114829 (let () (declare (not safe)) (cons 'list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _mark-refs105797_)))) + _mark-refs105779_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_generate-syntax-quote105633_ - _qid105801_ - __tmp114847)))) + (_generate-syntax-quote105615_ + _qid105783_ + __tmp114829)))) (declare (not safe)) - (cons __tmp114846 '())))) + (cons __tmp114828 '())))) (declare (not safe)) - (cons _gid105799_ __tmp114845)))) + (cons _gid105781_ __tmp114827)))) (declare (not safe)) - (cons 'define __tmp114844)))) + (cons 'define __tmp114826)))) (declare (not safe)) - (_add-lift!105632_ __tmp114843)) - (let ((__tmp114848 (gxc#current-compile-identifiers))) + (_add-lift!105614_ __tmp114825)) + (let ((__tmp114830 (gxc#current-compile-identifiers))) (declare (not safe)) - (hash-put! __tmp114848 _stxq105794_ _gid105799_)) - _gid105799_))) - (_generate-mark105636_ - (lambda (_mark105780_) - (let ((_$e105782_ - (let ((__tmp114849 (gxc#current-compile-marks))) + (hash-put! __tmp114830 _stxq105776_ _gid105781_)) + _gid105781_))) + (_generate-mark105618_ + (lambda (_mark105762_) + (let ((_$e105764_ + (let ((__tmp114831 (gxc#current-compile-marks))) (declare (not safe)) - (hash-get __tmp114849 _mark105780_)))) - (if _$e105782_ - (values _$e105782_) - (let* ((_gid105785_ + (hash-get __tmp114831 _mark105762_)))) + (if _$e105764_ + (values _$e105764_) + (let* ((_gid105767_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_repr105787_ + (_repr105769_ (let () (declare (not safe)) - (_serialize-mark105637_ _mark105780_))) - (_ctx105789_ - (let ((__tmp114850 + (_serialize-mark105619_ _mark105762_))) + (_ctx105771_ + (let ((__tmp114832 (##structure-ref - _mark105780_ + _mark105762_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp114850))) - (_ctx-ref105791_ - (if (let ((__tmp114855 + (gx#core-context-top__1 __tmp114832))) + (_ctx-ref105773_ + (if (let ((__tmp114837 (gx#current-expander-context))) (declare (not safe)) - (eq? _ctx105789_ __tmp114855)) + (eq? _ctx105771_ __tmp114837)) '(gx#current-expander-context) - (let ((__tmp114851 - (let ((__tmp114852 - (let ((__tmp114853 - (let ((__tmp114854 + (let ((__tmp114833 + (let ((__tmp114834 + (let ((__tmp114835 + (let ((__tmp114836 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_context-ref105638_ _ctx105789_)))) + (_context-ref105620_ _ctx105771_)))) (declare (not safe)) - (cons __tmp114854 '())))) + (cons __tmp114836 '())))) (declare (not safe)) - (cons 'quote __tmp114853)))) + (cons 'quote __tmp114835)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114852 '())))) + (cons __tmp114834 '())))) (declare (not safe)) (cons 'gx#import-module - __tmp114851))))) - (let ((__tmp114856 (gxc#current-compile-marks))) + __tmp114833))))) + (let ((__tmp114838 (gxc#current-compile-marks))) (declare (not safe)) - (hash-put! __tmp114856 _mark105780_ _gid105785_)) - (let ((__tmp114857 - (let ((__tmp114858 - (let ((__tmp114859 - (let ((__tmp114860 - (let ((__tmp114861 - (let ((__tmp114863 + (hash-put! __tmp114838 _mark105762_ _gid105767_)) + (let ((__tmp114839 + (let ((__tmp114840 + (let ((__tmp114841 + (let ((__tmp114842 + (let ((__tmp114843 + (let ((__tmp114845 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114864 + (let ((__tmp114846 (let () (declare (not safe)) - (cons _repr105787_ '())))) + (cons _repr105769_ '())))) (declare (not safe)) - (cons 'quote __tmp114864))) - (__tmp114862 + (cons 'quote __tmp114846))) + (__tmp114844 (let () (declare (not safe)) - (cons _ctx-ref105791_ '())))) + (cons _ctx-ref105773_ '())))) (declare (not safe)) - (cons __tmp114863 __tmp114862)))) + (cons __tmp114845 __tmp114844)))) (declare (not safe)) - (cons 'gx#core-deserialize-mark __tmp114861)))) + (cons 'gx#core-deserialize-mark __tmp114843)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114860 '())))) + (cons __tmp114842 '())))) (declare (not safe)) - (cons _gid105785_ __tmp114859)))) + (cons _gid105767_ __tmp114841)))) (declare (not safe)) - (cons 'define __tmp114858)))) + (cons 'define __tmp114840)))) (declare (not safe)) - (_add-lift!105632_ __tmp114857)) - _gid105785_))))) - (_serialize-mark105637_ - (lambda (_mark105727_) - (letrec ((_quote-e105729_ - (lambda (_sym105778_) - (if (interned-symbol? _sym105778_) - _sym105778_ + (_add-lift!105614_ __tmp114839)) + _gid105767_))))) + (_serialize-mark105619_ + (lambda (_mark105709_) + (letrec ((_quote-e105711_ + (lambda (_sym105760_) + (if (interned-symbol? _sym105760_) + _sym105760_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym105778_)))))) - (let* ((_mark105730105739_ _mark105727_) - (_E105732105743_ + _sym105760_)))))) + (let* ((_mark105712105721_ _mark105709_) + (_E105714105725_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _mark105730105739_)))) - (_K105733105755_ - (lambda (_trace105746_ - _phi105747_ - _ctx105748_ - _subst105749_) - (let* ((_subs105751_ - (if _subst105749_ + _mark105712105721_)))) + (_K105715105737_ + (lambda (_trace105728_ + _phi105729_ + _ctx105730_ + _subst105731_) + (let* ((_subs105733_ + (if _subst105731_ (let () (declare (not safe)) - (hash->list _subst105749_)) + (hash->list _subst105731_)) '())) - (__tmp114865 - (map (lambda (_pair105753_) - (let ((__tmp114868 - (let ((__tmp114869 - (car _pair105753_))) + (__tmp114847 + (map (lambda (_pair105735_) + (let ((__tmp114850 + (let ((__tmp114851 + (car _pair105735_))) (declare (not safe)) - (_quote-e105729_ - __tmp114869))) - (__tmp114866 - (let ((__tmp114867 - (cdr _pair105753_))) + (_quote-e105711_ + __tmp114851))) + (__tmp114848 + (let ((__tmp114849 + (cdr _pair105735_))) (declare (not safe)) - (_quote-e105729_ - __tmp114867)))) + (_quote-e105711_ + __tmp114849)))) (declare (not safe)) - (cons __tmp114868 - __tmp114866))) - _subs105751_))) + (cons __tmp114850 + __tmp114848))) + _subs105733_))) (declare (not safe)) - (cons _phi105747_ __tmp114865))))) + (cons _phi105729_ __tmp114847))))) (if (let () (declare (not safe)) (##structure-instance-of? - _mark105730105739_ + _mark105712105721_ 'gx#expander-mark::t)) - (let* ((_e105734105758_ + (let* ((_e105716105740_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark105730105739_ + _mark105712105721_ '1 gx#expander-mark::t '#f))) - (_subst105761_ _e105734105758_) - (_e105735105763_ + (_subst105743_ _e105716105740_) + (_e105717105745_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark105730105739_ + _mark105712105721_ '2 gx#expander-mark::t '#f))) - (_ctx105766_ _e105735105763_) - (_e105736105768_ + (_ctx105748_ _e105717105745_) + (_e105718105750_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark105730105739_ + _mark105712105721_ '3 gx#expander-mark::t '#f))) - (_phi105771_ _e105736105768_) - (_e105737105773_ + (_phi105753_ _e105718105750_) + (_e105719105755_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark105730105739_ + _mark105712105721_ '4 gx#expander-mark::t '#f))) - (_trace105776_ _e105737105773_)) + (_trace105758_ _e105719105755_)) (declare (not safe)) - (_K105733105755_ - _trace105776_ - _phi105771_ - _ctx105766_ - _subst105761_)) + (_K105715105737_ + _trace105758_ + _phi105753_ + _ctx105748_ + _subst105743_)) (let () (declare (not safe)) - (_E105732105743_))))))) - (_context-ref105638_ - (lambda (_ctx105714_) - (if (let ((__tmp114877 + (_E105714105725_))))))) + (_context-ref105620_ + (lambda (_ctx105696_) + (if (let ((__tmp114859 (##structure-ref - _ctx105714_ + _ctx105696_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp114877 + __tmp114859 'gx#module-context::t)) - (let ((_ctx-ref105716_ + (let ((_ctx-ref105698_ (let () (declare (not safe)) - (_context-ref-nested105640_ _ctx105714_))) - (_ctx-origin105717_ + (_context-ref-nested105622_ _ctx105696_))) + (_ctx-origin105699_ (let () (declare (not safe)) - (_context-ref-origin105639_ _ctx105714_))) - (_origin105718_ - (let ((__tmp114871 + (_context-ref-origin105621_ _ctx105696_))) + (_origin105700_ + (let ((__tmp114853 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-origin105639_ __tmp114871)))) + (_context-ref-origin105621_ __tmp114853)))) (if (let () (declare (not safe)) - (eq? _origin105718_ _ctx-origin105717_)) - (let ((_ref105720_ - (let ((__tmp114872 + (eq? _origin105700_ _ctx-origin105699_)) + (let ((_ref105702_ + (let ((__tmp114854 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-nested105640_ - __tmp114872)))) - (let _lp105722_ ((_ref105724_ - (cdr _ref105720_)) - (_ctx-ref105725_ - (cdr _ctx-ref105716_))) + (_context-ref-nested105622_ + __tmp114854)))) + (let _lp105704_ ((_ref105706_ + (cdr _ref105702_)) + (_ctx-ref105707_ + (cdr _ctx-ref105698_))) (if (and (let () (declare (not safe)) - (pair? _ref105724_)) - (let ((__tmp114876 - (car _ref105724_)) - (__tmp114875 - (car _ctx-ref105725_))) + (pair? _ref105706_)) + (let ((__tmp114858 + (car _ref105706_)) + (__tmp114857 + (car _ctx-ref105707_))) (declare (not safe)) - (eq? __tmp114876 __tmp114875))) - (let ((__tmp114874 (cdr _ref105724_)) - (__tmp114873 - (cdr _ctx-ref105725_))) + (eq? __tmp114858 __tmp114857))) + (let ((__tmp114856 (cdr _ref105706_)) + (__tmp114855 + (cdr _ctx-ref105707_))) (declare (not safe)) - (_lp105722_ __tmp114874 __tmp114873)) + (_lp105704_ __tmp114856 __tmp114855)) (let () (declare (not safe)) - (cons '#f _ctx-ref105725_))))) - _ctx-ref105716_)) - (let ((__tmp114870 + (cons '#f _ctx-ref105707_))))) + _ctx-ref105698_)) + (let ((__tmp114852 (##structure-ref - _ctx105714_ + _ctx105696_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp114870))))) - (_context-ref-origin105639_ - (lambda (_ctx105706_) - (let _lp105708_ ((_ctx105710_ _ctx105706_)) - (let ((_super105712_ + (make-symbol__1 '":" __tmp114852))))) + (_context-ref-origin105621_ + (lambda (_ctx105688_) + (let _lp105690_ ((_ctx105692_ _ctx105688_)) + (let ((_super105694_ (##structure-ref - _ctx105710_ + _ctx105692_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super105712_ + _super105694_ 'gx#module-context::t)) (let () (declare (not safe)) - (_lp105708_ _super105712_)) - _ctx105710_))))) - (_context-ref-nested105640_ - (lambda (_ctx105697_) - (let _lp105699_ ((_ctx105701_ _ctx105697_) (_r105702_ '())) - (let ((_super105704_ + (_lp105690_ _super105694_)) + _ctx105692_))))) + (_context-ref-nested105622_ + (lambda (_ctx105679_) + (let _lp105681_ ((_ctx105683_ _ctx105679_) (_r105684_ '())) + (let ((_super105686_ (##structure-ref - _ctx105701_ + _ctx105683_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super105704_ + _super105686_ 'gx#module-context::t)) - (let ((__tmp114880 - (let ((__tmp114881 + (let ((__tmp114862 + (let ((__tmp114863 (car (##structure-ref - _ctx105701_ + _ctx105683_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp114881 _r105702_)))) + (cons __tmp114863 _r105684_)))) (declare (not safe)) - (_lp105699_ _super105704_ __tmp114880)) - (let ((__tmp114878 - (let ((__tmp114879 + (_lp105681_ _super105686_ __tmp114862)) + (let ((__tmp114860 + (let ((__tmp114861 (##structure-ref - _ctx105701_ + _ctx105683_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp114879)))) + (make-symbol__1 '":" __tmp114861)))) (declare (not safe)) - (cons __tmp114878 _r105702_)))))))) - (let* ((_g105642105655_ - (lambda (_g105643105652_) + (cons __tmp114860 _r105684_)))))))) + (let* ((_g105624105637_ + (lambda (_g105625105634_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105643105652_)))) - (_g105641105694_ - (lambda (_g105643105658_) + _g105625105634_)))) + (_g105623105676_ + (lambda (_g105625105640_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105643105658_)) - (let ((_e105647105660_ + (gx#stx-pair? _g105625105640_)) + (let ((_e105629105642_ (let () (declare (not safe)) - (gx#stx-e _g105643105658_)))) - (let ((_hd105646105663_ + (gx#stx-e _g105625105640_)))) + (let ((_hd105628105645_ (let () (declare (not safe)) - (##car _e105647105660_))) - (_tl105645105665_ + (##car _e105629105642_))) + (_tl105627105647_ (let () (declare (not safe)) - (##cdr _e105647105660_)))) + (##cdr _e105629105642_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105645105665_)) - (let ((_e105650105668_ + (gx#stx-pair? _tl105627105647_)) + (let ((_e105632105650_ (let () (declare (not safe)) - (gx#stx-e _tl105645105665_)))) - (let ((_hd105649105671_ + (gx#stx-e _tl105627105647_)))) + (let ((_hd105631105653_ (let () (declare (not safe)) - (##car _e105650105668_))) - (_tl105648105673_ + (##car _e105632105650_))) + (_tl105630105655_ (let () (declare (not safe)) - (##cdr _e105650105668_)))) + (##cdr _e105632105650_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl105648105673_)) - ((lambda (_L105676_) + (gx#stx-null? _tl105630105655_)) + ((lambda (_L105658_) (if (let () (declare (not safe)) - (gx#identifier? _L105676_)) - (let ((_$e105689_ - (let ((__tmp114882 + (gx#identifier? _L105658_)) + (let ((_$e105671_ + (let ((__tmp114864 (gxc#current-compile-identifiers))) (declare (not safe)) (hash-get - __tmp114882 - _L105676_)))) - (if _$e105689_ - (values _$e105689_) - (let ((_marks105692_ + __tmp114864 + _L105658_)))) + (if _$e105671_ + (values _$e105671_) + (let ((_marks105674_ (##direct-structure-ref - _L105676_ + _L105658_ '4 gx#syntax-quote::t '#f))) (if (let () (declare (not safe)) - (null? _marks105692_)) + (null? _marks105674_)) (let () (declare (not safe)) - (_generate-simple105634_ - _L105676_)) + (_generate-simple105616_ + _L105658_)) (let () (declare (not safe)) - (_generate-serialized105635_ - _L105676_ - _marks105692_)))))) + (_generate-serialized105617_ + _L105658_ + _marks105674_)))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _L105676_)))) - _hd105649105671_) + _L105658_)))) + _hd105631105653_) (let () (declare (not safe)) - (_g105642105655_ _g105643105658_))))) + (_g105624105637_ _g105625105640_))))) (let () (declare (not safe)) - (_g105642105655_ _g105643105658_))))) + (_g105624105637_ _g105625105640_))))) (let () (declare (not safe)) - (_g105642105655_ _g105643105658_)))))) + (_g105624105637_ _g105625105640_)))))) (declare (not safe)) - (_g105641105694_ _stx105630_))))) + (_g105623105676_ _stx105612_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_self105561_ _stx105562_) - (let* ((_g105564105581_ - (lambda (_g105565105578_) + (lambda (_self105543_ _stx105544_) + (let* ((_g105546105563_ + (lambda (_g105547105560_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105565105578_)))) - (_g105563105626_ - (lambda (_g105565105584_) + _g105547105560_)))) + (_g105545105608_ + (lambda (_g105547105566_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105565105584_)) - (let ((_e105570105586_ + (gx#stx-pair? _g105547105566_)) + (let ((_e105552105568_ (let () (declare (not safe)) - (gx#stx-e _g105565105584_)))) - (let ((_hd105569105589_ + (gx#stx-e _g105547105566_)))) + (let ((_hd105551105571_ (let () (declare (not safe)) - (##car _e105570105586_))) - (_tl105568105591_ + (##car _e105552105568_))) + (_tl105550105573_ (let () (declare (not safe)) - (##cdr _e105570105586_)))) + (##cdr _e105552105568_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105568105591_)) - (let ((_e105573105594_ + (gx#stx-pair? _tl105550105573_)) + (let ((_e105555105576_ (let () (declare (not safe)) - (gx#stx-e _tl105568105591_)))) - (let ((_hd105572105597_ + (gx#stx-e _tl105550105573_)))) + (let ((_hd105554105579_ (let () (declare (not safe)) - (##car _e105573105594_))) - (_tl105571105599_ + (##car _e105555105576_))) + (_tl105553105581_ (let () (declare (not safe)) - (##cdr _e105573105594_)))) + (##cdr _e105555105576_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105571105599_)) - (let ((_e105576105602_ + (gx#stx-pair? _tl105553105581_)) + (let ((_e105558105584_ (let () (declare (not safe)) - (gx#stx-e _tl105571105599_)))) - (let ((_hd105575105605_ + (gx#stx-e _tl105553105581_)))) + (let ((_hd105557105587_ (let () (declare (not safe)) - (##car _e105576105602_))) - (_tl105574105607_ + (##car _e105558105584_))) + (_tl105556105589_ (let () (declare (not safe)) - (##cdr _e105576105602_)))) + (##cdr _e105558105584_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl105574105607_)) - ((lambda (_L105610_ _L105611_) - (let ((__tmp114883 - (let ((__tmp114886 + _tl105556105589_)) + ((lambda (_L105592_ _L105593_) + (let ((__tmp114865 + (let ((__tmp114868 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L105611_))) - (__tmp114884 - (let ((__tmp114885 + (gx#stx-e _L105593_))) + (__tmp114866 + (let ((__tmp114867 (let () (declare (not safe)) - (gxc#compile-e__1 _self105561_ _L105610_)))) + (gxc#compile-e__1 _self105543_ _L105592_)))) (declare (not safe)) - (cons __tmp114885 '())))) + (cons __tmp114867 '())))) (declare (not safe)) - (cons __tmp114886 __tmp114884)))) + (cons __tmp114868 __tmp114866)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'define __tmp114883))) - _hd105575105605_ - _hd105572105597_) + (cons 'define __tmp114865))) + _hd105557105587_ + _hd105554105579_) (let () (declare (not safe)) - (_g105564105581_ - _g105565105584_))))) + (_g105546105563_ + _g105547105566_))))) (let () (declare (not safe)) - (_g105564105581_ _g105565105584_))))) + (_g105546105563_ _g105547105566_))))) (let () (declare (not safe)) - (_g105564105581_ _g105565105584_))))) + (_g105546105563_ _g105547105566_))))) (let () (declare (not safe)) - (_g105564105581_ _g105565105584_)))))) + (_g105546105563_ _g105547105566_)))))) (declare (not safe)) - (_g105563105626_ _stx105562_)))) + (_g105545105608_ _stx105544_)))) (define gxc#generate-meta-begin% - (lambda (_self105510_ _stx105511_) - (let* ((_g105513105523_ - (lambda (_g105514105520_) + (lambda (_self105492_ _stx105493_) + (let* ((_g105495105505_ + (lambda (_g105496105502_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105514105520_)))) - (_g105512105558_ - (lambda (_g105514105526_) + _g105496105502_)))) + (_g105494105540_ + (lambda (_g105496105508_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105514105526_)) - (let ((_e105518105528_ + (gx#stx-pair? _g105496105508_)) + (let ((_e105500105510_ (let () (declare (not safe)) - (gx#stx-e _g105514105526_)))) - (let ((_hd105517105531_ + (gx#stx-e _g105496105508_)))) + (let ((_hd105499105513_ (let () (declare (not safe)) - (##car _e105518105528_))) - (_tl105516105533_ + (##car _e105500105510_))) + (_tl105498105515_ (let () (declare (not safe)) - (##cdr _e105518105528_)))) - ((lambda (_L105536_) - (let* ((_c-body105550_ - (map (lambda (_g105545105547_) + (##cdr _e105500105510_)))) + ((lambda (_L105518_) + (let* ((_c-body105532_ + (map (lambda (_g105527105529_) (let () (declare (not safe)) (gxc#compile-e__1 - _self105510_ - _g105545105547_))) - _L105536_)) - (_c-body105555_ - (filter (lambda (_$obj105552_) - (let ((__tmp114887 + _self105492_ + _g105527105529_))) + _L105518_)) + (_c-body105537_ + (filter (lambda (_$obj105534_) + (let ((__tmp114869 (let () (declare (not safe)) - (eq? _$obj105552_ + (eq? _$obj105534_ '#!void)))) (declare (not safe)) - (not __tmp114887))) - _c-body105550_))) + (not __tmp114869))) + _c-body105532_))) (let () (declare (not safe)) - (cons '%#begin _c-body105555_)))) - _tl105516105533_))) + (cons '%#begin _c-body105537_)))) + _tl105498105515_))) (let () (declare (not safe)) - (_g105513105523_ _g105514105526_)))))) + (_g105495105505_ _g105496105508_)))))) (declare (not safe)) - (_g105512105558_ _stx105511_)))) + (_g105494105540_ _stx105493_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_self105418_ _stx105419_) - (let* ((_g105421105431_ - (lambda (_g105422105428_) + (lambda (_self105400_ _stx105401_) + (let* ((_g105403105413_ + (lambda (_g105404105410_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105422105428_)))) - (_g105420105507_ - (lambda (_g105422105434_) + _g105404105410_)))) + (_g105402105489_ + (lambda (_g105404105416_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105422105434_)) - (let ((_e105426105436_ + (gx#stx-pair? _g105404105416_)) + (let ((_e105408105418_ (let () (declare (not safe)) - (gx#stx-e _g105422105434_)))) - (let ((_hd105425105439_ + (gx#stx-e _g105404105416_)))) + (let ((_hd105407105421_ (let () (declare (not safe)) - (##car _e105426105436_))) - (_tl105424105441_ + (##car _e105408105418_))) + (_tl105406105423_ (let () (declare (not safe)) - (##cdr _e105426105436_)))) - ((lambda (_L105444_) - (let* ((_phi105454_ - (let ((__tmp114888 + (##cdr _e105408105418_)))) + ((lambda (_L105426_) + (let* ((_phi105436_ + (let ((__tmp114870 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp114888 '1))) - (_block105456_ - (let ((__tmp114889 + (fx+ __tmp114870 '1))) + (_block105438_ + (let ((__tmp114871 (let () (declare (not safe)) (slot-ref__0 - _self105418_ + _self105400_ 'state)))) (declare (not safe)) (gxc#meta-state-begin-phi! - __tmp114889 - _phi105454_))) - (_compiled105459_ - (let ((__tmp114890 + __tmp114871 + _phi105436_))) + (_compiled105441_ + (let ((__tmp114872 (lambda () - (let ((__tmp114892 - (let ((__tmp114893 + (let ((__tmp114874 + (let ((__tmp114875 (let () (declare (not safe)) @@ -14867,637 +14867,637 @@ '#f '%#begin)))) (declare (not safe)) - (cons __tmp114893 - _L105444_))) - (__tmp114891 + (cons __tmp114875 + _L105426_))) + (__tmp114873 (let () (declare (not safe)) (slot-ref__0 - _self105418_ + _self105400_ 'state)))) (declare (not safe)) (gxc#apply-generate-meta-phi - __tmp114892 + __tmp114874 'state: - __tmp114891))))) + __tmp114873))))) (declare (not safe)) (call-with-parameters - __tmp114890 + __tmp114872 gx#current-expander-phi - _phi105454_)))) - (let* ((_g105462105472_ - (lambda (_g105463105469_) + _phi105436_)))) + (let* ((_g105444105454_ + (lambda (_g105445105451_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105463105469_)))) - (_g105461105504_ - (lambda (_g105463105475_) + _g105445105451_)))) + (_g105443105486_ + (lambda (_g105445105457_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105463105475_)) - (let ((_e105467105477_ + (gx#stx-pair? _g105445105457_)) + (let ((_e105449105459_ (let () (declare (not safe)) (gx#stx-e - _g105463105475_)))) - (let ((_hd105466105480_ + _g105445105457_)))) + (let ((_hd105448105462_ (let () (declare (not safe)) - (##car _e105467105477_))) - (_tl105465105482_ + (##car _e105449105459_))) + (_tl105447105464_ (let () (declare (not safe)) - (##cdr _e105467105477_)))) + (##cdr _e105449105459_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd105466105480_)) + _hd105448105462_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _hd105466105480_)) - ((lambda (_L105485_) - (let ((_c-body105502_ + _hd105448105462_)) + ((lambda (_L105467_) + (let ((_c-body105484_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (filter (lambda (_$obj105499_) - (let ((__tmp114894 + (filter (lambda (_$obj105481_) + (let ((__tmp114876 (let () (declare (not safe)) - (eq? _$obj105499_ '#!void)))) + (eq? _$obj105481_ '#!void)))) (declare (not safe)) - (not __tmp114894))) - _L105485_))) - (if _block105456_ - (let ((__tmp114895 - (let ((__tmp114896 - (let ((__tmp114897 - (let ((__tmp114901 - (let ((__tmp114902 + (not __tmp114876))) + _L105467_))) + (if _block105438_ + (let ((__tmp114877 + (let ((__tmp114878 + (let ((__tmp114879 + (let ((__tmp114883 + (let ((__tmp114884 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp114902))) + (cons '%#ref __tmp114884))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114898 - (let ((__tmp114899 - (let ((__tmp114900 + (__tmp114880 + (let ((__tmp114881 + (let ((__tmp114882 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _block105456_ '())))) + (cons _block105438_ '())))) (declare (not safe)) - (cons '%#quote __tmp114900)))) + (cons '%#quote __tmp114882)))) (declare (not safe)) - (cons __tmp114899 '())))) + (cons __tmp114881 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114901 - __tmp114898)))) + (cons __tmp114883 + __tmp114880)))) (declare (not safe)) - (cons '%#call __tmp114897)))) + (cons '%#call __tmp114879)))) (declare (not safe)) - (cons __tmp114896 _c-body105502_)))) + (cons __tmp114878 _c-body105484_)))) (declare (not safe)) - (cons '%#begin-syntax __tmp114895)) + (cons '%#begin-syntax __tmp114877)) (if (let () (declare (not safe)) - (null? _c-body105502_)) + (null? _c-body105484_)) '#!void (let () (declare (not safe)) - (cons '%#begin-syntax _c-body105502_)))))) - _tl105465105482_) + (cons '%#begin-syntax _c-body105484_)))))) + _tl105447105464_) (let () (declare (not safe)) - (_g105462105472_ _g105463105475_))) + (_g105444105454_ _g105445105457_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g105462105472_ - _g105463105475_))))) + (_g105444105454_ + _g105445105457_))))) (let () (declare (not safe)) - (_g105462105472_ - _g105463105475_)))))) + (_g105444105454_ + _g105445105457_)))))) (declare (not safe)) - (_g105461105504_ _compiled105459_)))) - _tl105424105441_))) + (_g105443105486_ _compiled105441_)))) + _tl105406105423_))) (let () (declare (not safe)) - (_g105421105431_ _g105422105434_)))))) + (_g105403105413_ _g105404105416_)))))) (declare (not safe)) - (_g105420105507_ _stx105419_)))) + (_g105402105489_ _stx105401_)))) (define gxc#generate-meta-module% - (lambda (_self105349_ _stx105350_) - (let ((__tmp114903 + (lambda (_self105331_ _stx105332_) + (let ((__tmp114885 (let () (declare (not safe)) - (slot-ref__0 _self105349_ 'state)))) + (slot-ref__0 _self105331_ 'state)))) (declare (not safe)) - (gxc#meta-state-end-phi! __tmp114903)) - (let* ((_g105352105366_ - (lambda (_g105353105363_) + (gxc#meta-state-end-phi! __tmp114885)) + (let* ((_g105334105348_ + (lambda (_g105335105345_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105353105363_)))) - (_g105351105415_ - (lambda (_g105353105369_) + _g105335105345_)))) + (_g105333105397_ + (lambda (_g105335105351_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105353105369_)) - (let ((_e105358105371_ + (gx#stx-pair? _g105335105351_)) + (let ((_e105340105353_ (let () (declare (not safe)) - (gx#stx-e _g105353105369_)))) - (let ((_hd105357105374_ + (gx#stx-e _g105335105351_)))) + (let ((_hd105339105356_ (let () (declare (not safe)) - (##car _e105358105371_))) - (_tl105356105376_ + (##car _e105340105353_))) + (_tl105338105358_ (let () (declare (not safe)) - (##cdr _e105358105371_)))) + (##cdr _e105340105353_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl105356105376_)) - (let ((_e105361105379_ + (gx#stx-pair? _tl105338105358_)) + (let ((_e105343105361_ (let () (declare (not safe)) - (gx#stx-e _tl105356105376_)))) - (let ((_hd105360105382_ + (gx#stx-e _tl105338105358_)))) + (let ((_hd105342105364_ (let () (declare (not safe)) - (##car _e105361105379_))) - (_tl105359105384_ + (##car _e105343105361_))) + (_tl105341105366_ (let () (declare (not safe)) - (##cdr _e105361105379_)))) - ((lambda (_L105387_ _L105388_) - (let ((_key105401_ + (##cdr _e105343105361_)))) + ((lambda (_L105369_ _L105370_) + (let ((_key105383_ (let () (declare (not safe)) (gx#core-identifier-key - _L105388_)))) - (if (interned-symbol? _key105401_) + _L105370_)))) + (if (interned-symbol? _key105383_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _stx105350_ - _L105388_ - _key105401_))) - (let* ((_ctx105403_ + _stx105332_ + _L105370_ + _key105383_))) + (let* ((_ctx105385_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L105388_))) - (_code105406_ - (let ((__tmp114904 + _L105370_))) + (_code105388_ + (let ((__tmp114886 (lambda () - (let ((__tmp114905 + (let ((__tmp114887 (##structure-ref - _ctx105403_ + _ctx105385_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _self105349_ - __tmp114905))))) + _self105331_ + __tmp114887))))) (declare (not safe)) (call-with-parameters - __tmp114904 + __tmp114886 gx#current-expander-context - _ctx105403_))) - (_rt105408_ - (let ((__tmp114906 + _ctx105385_))) + (_rt105390_ + (let ((__tmp114888 (gxc#current-compile-runtime-sections))) (declare (not safe)) (hash-get - __tmp114906 - _ctx105403_))) - (_loader105410_ - (if _rt105408_ - (let ((__tmp114907 - (let ((__tmp114908 + __tmp114888 + _ctx105385_))) + (_loader105392_ + (if _rt105390_ + (let ((__tmp114889 + (let ((__tmp114890 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114912 - (let ((__tmp114913 + (let ((__tmp114894 + (let ((__tmp114895 (let () (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp114913))) - (__tmp114909 - (let ((__tmp114910 - (let ((__tmp114911 + (cons '%#ref __tmp114895))) + (__tmp114891 + (let ((__tmp114892 + (let ((__tmp114893 (let () (declare (not safe)) - (cons _rt105408_ '())))) + (cons _rt105390_ '())))) (declare (not safe)) - (cons '%#quote __tmp114911)))) + (cons '%#quote __tmp114893)))) (declare (not safe)) - (cons __tmp114910 '())))) + (cons __tmp114892 '())))) (declare (not safe)) - (cons __tmp114912 __tmp114909)))) + (cons __tmp114894 __tmp114891)))) (declare (not safe)) - (cons '%#call __tmp114908)))) + (cons '%#call __tmp114890)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp114907 '())) + (cons __tmp114889 '())) '())) - (_modid105412_ + (_modid105394_ (let () (declare (not safe)) - (gx#stx-e _L105388_)))) - (let ((__tmp114914 + (gx#stx-e _L105370_)))) + (let ((__tmp114896 (let () (declare (not safe)) (slot-ref__0 - _self105349_ + _self105331_ 'state)))) (declare (not safe)) (gxc#meta-state-end-phi! - __tmp114914)) - (let ((__tmp114915 - (let ((__tmp114916 + __tmp114896)) + (let ((__tmp114897 + (let ((__tmp114898 (let () (declare (not safe)) - (cons _code105406_ - _loader105410_)))) + (cons _code105388_ + _loader105392_)))) (declare (not safe)) - (cons _modid105412_ - __tmp114916)))) + (cons _modid105394_ + __tmp114898)))) (declare (not safe)) - (cons '%#module __tmp114915))))) - _tl105359105384_ - _hd105360105382_))) + (cons '%#module __tmp114897))))) + _tl105341105366_ + _hd105342105364_))) (let () (declare (not safe)) - (_g105352105366_ _g105353105369_))))) + (_g105334105348_ _g105335105351_))))) (let () (declare (not safe)) - (_g105352105366_ _g105353105369_)))))) + (_g105334105348_ _g105335105351_)))))) (declare (not safe)) - (_g105351105415_ _stx105350_)))) + (_g105333105397_ _stx105332_)))) (define gxc#generate-meta-import-path - (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 + (lambda (_ctx105321_ _context-chain105322_) + (let _lp105324_ ((_ctx105326_ _ctx105321_) (_path105327_ '())) + (let ((_super105329_ + (##structure-ref _ctx105326_ '3 gx#phi-context::t '#f))) + (if (memq _super105329_ _context-chain105322_) + (let ((__tmp114903 + (let ((__tmp114904 (car (##structure-ref - _ctx105344_ + _ctx105326_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp114922 _path105345_)))) + (cons __tmp114904 _path105327_)))) (declare (not safe)) - (cons '#f __tmp114921)) + (cons '#f __tmp114903)) (if (let () (declare (not safe)) (##structure-instance-of? - _super105347_ + _super105329_ 'gx#module-context::t)) - (let ((__tmp114919 - (let ((__tmp114920 + (let ((__tmp114901 + (let ((__tmp114902 (car (##structure-ref - _ctx105344_ + _ctx105326_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp114920 _path105345_)))) + (cons __tmp114902 _path105327_)))) (declare (not safe)) - (_lp105342_ _super105347_ __tmp114919)) - (let ((__tmp114917 - (let ((__tmp114918 + (_lp105324_ _super105329_ __tmp114901)) + (let ((__tmp114899 + (let ((__tmp114900 (##structure-ref - _ctx105344_ + _ctx105326_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp114918)))) + (make-symbol__1 '":" __tmp114900)))) (declare (not safe)) - (cons __tmp114917 _path105345_)))))))) + (cons __tmp114899 _path105327_)))))))) (define gxc#current-context-chain (lambda () - (let _lp105334_ ((_ctx105336_ (gx#current-expander-context)) - (_r105337_ '())) + (let _lp105316_ ((_ctx105318_ (gx#current-expander-context)) + (_r105319_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _ctx105336_ 'gx#module-context::t)) - (let ((__tmp114924 - (##structure-ref _ctx105336_ '3 gx#phi-context::t '#f)) - (__tmp114923 + (##structure-instance-of? _ctx105318_ 'gx#module-context::t)) + (let ((__tmp114906 + (##structure-ref _ctx105318_ '3 gx#phi-context::t '#f)) + (__tmp114905 (let () (declare (not safe)) - (cons _ctx105336_ _r105337_)))) + (cons _ctx105318_ _r105319_)))) (declare (not safe)) - (_lp105334_ __tmp114924 __tmp114923)) - _r105337_)))) + (_lp105316_ __tmp114906 __tmp114905)) + _r105319_)))) (define gxc#generate-meta-import% - (lambda (_self105103_ _stx105104_) - (letrec* ((_context-chain105106_ + (lambda (_self105085_ _stx105086_) + (letrec* ((_context-chain105088_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-spec105107_ - (lambda (_in105270_) - (let* ((_in105271105283_ _in105270_) - (_E105273105287_ + (_make-import-spec105089_ + (lambda (_in105252_) + (let* ((_in105253105265_ _in105252_) + (_E105255105269_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _in105271105283_)))) - (_K105274105297_ - (lambda (_phi105290_ - _name105291_ - _src-name105292_ - _src-phi105293_ - _src-key105294_ - _src-ctx105295_) - (let ((__tmp114925 - (let ((__tmp114929 + _in105253105265_)))) + (_K105256105279_ + (lambda (_phi105272_ + _name105273_ + _src-name105274_ + _src-phi105275_ + _src-key105276_ + _src-ctx105277_) + (let ((__tmp114907 + (let ((__tmp114911 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name105291_))) - (__tmp114926 - (let ((__tmp114927 - (let ((__tmp114928 + _name105273_))) + (__tmp114908 + (let ((__tmp114909 + (let ((__tmp114910 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _src-name105292_)))) + _src-name105274_)))) (declare (not safe)) - (cons __tmp114928 '())))) + (cons __tmp114910 '())))) (declare (not safe)) - (cons _src-phi105293_ - __tmp114927)))) + (cons _src-phi105275_ + __tmp114909)))) (declare (not safe)) - (cons __tmp114929 __tmp114926)))) + (cons __tmp114911 __tmp114908)))) (declare (not safe)) - (cons _phi105290_ __tmp114925))))) + (cons _phi105272_ __tmp114907))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105271105283_ + _in105253105265_ 'gx#module-import::t)) - (let ((_e105275105300_ + (let ((_e105257105282_ (let () (declare (not safe)) (##unchecked-structure-ref - _in105271105283_ + _in105253105265_ '1 gx#module-import::t '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e105275105300_ + _e105257105282_ 'gx#module-export::t)) - (let* ((_e105278105303_ + (let* ((_e105260105285_ (let () (declare (not safe)) (##unchecked-structure-ref - _e105275105300_ + _e105257105282_ '1 gx#module-export::t '#f))) - (_src-ctx105306_ _e105278105303_) - (_e105279105308_ + (_src-ctx105288_ _e105260105285_) + (_e105261105290_ (let () (declare (not safe)) (##unchecked-structure-ref - _e105275105300_ + _e105257105282_ '2 gx#module-export::t '#f))) - (_src-key105311_ _e105279105308_) - (_e105280105313_ + (_src-key105293_ _e105261105290_) + (_e105262105295_ (let () (declare (not safe)) (##unchecked-structure-ref - _e105275105300_ + _e105257105282_ '3 gx#module-export::t '#f))) - (_src-phi105316_ _e105280105313_) - (_e105281105318_ + (_src-phi105298_ _e105262105295_) + (_e105263105300_ (let () (declare (not safe)) (##unchecked-structure-ref - _e105275105300_ + _e105257105282_ '4 gx#module-export::t '#f))) - (_src-name105321_ _e105281105318_) - (_e105276105323_ + (_src-name105303_ _e105263105300_) + (_e105258105305_ (let () (declare (not safe)) (##unchecked-structure-ref - _in105271105283_ + _in105253105265_ '2 gx#module-import::t '#f))) - (_name105326_ _e105276105323_) - (_e105277105328_ + (_name105308_ _e105258105305_) + (_e105259105310_ (let () (declare (not safe)) (##unchecked-structure-ref - _in105271105283_ + _in105253105265_ '3 gx#module-import::t '#f))) - (_phi105331_ _e105277105328_)) + (_phi105313_ _e105259105310_)) (declare (not safe)) - (_K105274105297_ - _phi105331_ - _name105326_ - _src-name105321_ - _src-phi105316_ - _src-key105311_ - _src-ctx105306_)) + (_K105256105279_ + _phi105313_ + _name105308_ + _src-name105303_ + _src-phi105298_ + _src-key105293_ + _src-ctx105288_)) (let () (declare (not safe)) - (_E105273105287_)))) - (let () (declare (not safe)) (_E105273105287_)))))) - (_make-import-path105108_ - (lambda (_ctx105268_) + (_E105255105269_)))) + (let () (declare (not safe)) (_E105255105269_)))))) + (_make-import-path105090_ + (lambda (_ctx105250_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx105268_ - _context-chain105106_)))) - (_make-import-spec-in105109_ - (lambda (_ctx105265_ _in105266_) - (let ((__tmp114930 - (let ((__tmp114932 + _ctx105250_ + _context-chain105088_)))) + (_make-import-spec-in105091_ + (lambda (_ctx105247_ _in105248_) + (let ((__tmp114912 + (let ((__tmp114914 (let () (declare (not safe)) - (_make-import-path105108_ _ctx105265_))) - (__tmp114931 (reverse _in105266_))) + (_make-import-path105090_ _ctx105247_))) + (__tmp114913 (reverse _in105248_))) (declare (not safe)) - (cons __tmp114932 __tmp114931)))) + (cons __tmp114914 __tmp114913)))) (declare (not safe)) - (cons 'spec: __tmp114930))))) - (let ((__tmp114933 + (cons 'spec: __tmp114912))))) + (let ((__tmp114915 (let () (declare (not safe)) - (slot-ref__0 _self105103_ 'state)))) + (slot-ref__0 _self105085_ 'state)))) (declare (not safe)) - (gxc#meta-state-end-phi! __tmp114933)) - (let* ((_g105111105121_ - (lambda (_g105112105118_) + (gxc#meta-state-end-phi! __tmp114915)) + (let* ((_g105093105103_ + (lambda (_g105094105100_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g105112105118_)))) - (_g105110105262_ - (lambda (_g105112105124_) + _g105094105100_)))) + (_g105092105244_ + (lambda (_g105094105106_) (if (let () (declare (not safe)) - (gx#stx-pair? _g105112105124_)) - (let ((_e105116105126_ + (gx#stx-pair? _g105094105106_)) + (let ((_e105098105108_ (let () (declare (not safe)) - (gx#stx-e _g105112105124_)))) - (let ((_hd105115105129_ + (gx#stx-e _g105094105106_)))) + (let ((_hd105097105111_ (let () (declare (not safe)) - (##car _e105116105126_))) - (_tl105114105131_ + (##car _e105098105108_))) + (_tl105096105113_ (let () (declare (not safe)) - (##cdr _e105116105126_)))) - ((lambda (_L105134_) - (let _lp105145_ ((_rest105147_ _L105134_) - (_current-src105148_ '#f) - (_current-in105149_ '()) - (_r105150_ '())) - (let* ((_rest105151105159_ _rest105147_) - (_else105153105169_ + (##cdr _e105098105108_)))) + ((lambda (_L105116_) + (let _lp105127_ ((_rest105129_ _L105116_) + (_current-src105130_ '#f) + (_current-in105131_ '()) + (_r105132_ '())) + (let* ((_rest105133105141_ _rest105129_) + (_else105135105151_ (lambda () - (let* ((_r105167_ - (if _current-src105148_ - (let ((__tmp114934 + (let* ((_r105149_ + (if _current-src105130_ + (let ((__tmp114916 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_make-import-spec-in105109_ - _current-src105148_ - _current-in105149_)))) + (_make-import-spec-in105091_ + _current-src105130_ + _current-in105131_)))) (declare (not safe)) - (cons __tmp114934 _r105150_)) - _r105150_)) + (cons __tmp114916 _r105132_)) + _r105132_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp114935 - (reverse _r105167_))) + (__tmp114917 + (reverse _r105149_))) (declare (not safe)) - (cons '%#import __tmp114935)))) - (_K105155105250_ - (lambda (_rest105172_ _in105173_) + (cons '%#import __tmp114917)))) + (_K105137105232_ + (lambda (_rest105154_ _in105155_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105173_ + _in105155_ 'gx#module-import::t)) - (let* ((_in105174105181_ - _in105173_) - (_E105176105185_ + (let* ((_in105156105163_ + _in105155_) + (_E105158105167_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in105174105181_)))) - (_K105177105190_ - (lambda (_src-ctx105188_) + _in105156105163_)))) + (_K105159105172_ + (lambda (_src-ctx105170_) (if (let () (declare (not safe)) - (eq? _current-src105148_ _src-ctx105188_)) - (let ((__tmp114951 - (let ((__tmp114952 + (eq? _current-src105130_ _src-ctx105170_)) + (let ((__tmp114933 + (let ((__tmp114934 (let () (declare (not safe)) - (_make-import-spec105107_ _in105173_)))) + (_make-import-spec105089_ _in105155_)))) (declare (not safe)) - (cons __tmp114952 _current-in105149_)))) + (cons __tmp114934 _current-in105131_)))) (declare (not safe)) - (_lp105145_ - _rest105172_ - _current-src105148_ - __tmp114951 - _r105150_)) - (if _current-src105148_ - (let ((__tmp114949 - (let ((__tmp114950 + (_lp105127_ + _rest105154_ + _current-src105130_ + __tmp114933 + _r105132_)) + (if _current-src105130_ + (let ((__tmp114931 + (let ((__tmp114932 (let () (declare (not safe)) - (_make-import-spec105107_ - _in105173_)))) + (_make-import-spec105089_ + _in105155_)))) (declare (not safe)) - (cons __tmp114950 '()))) - (__tmp114947 - (let ((__tmp114948 + (cons __tmp114932 '()))) + (__tmp114929 + (let ((__tmp114930 (let () (declare (not safe)) - (_make-import-spec-in105109_ - _current-src105148_ - _current-in105149_)))) + (_make-import-spec-in105091_ + _current-src105130_ + _current-in105131_)))) (declare (not safe)) - (cons __tmp114948 _r105150_)))) + (cons __tmp114930 _r105132_)))) (declare (not safe)) - (_lp105145_ - _rest105172_ - _src-ctx105188_ - __tmp114949 - __tmp114947)) - (let ((__tmp114945 - (let ((__tmp114946 + (_lp105127_ + _rest105154_ + _src-ctx105170_ + __tmp114931 + __tmp114929)) + (let ((__tmp114927 + (let ((__tmp114928 (let () (declare (not safe)) - (_make-import-spec105107_ - _in105173_)))) + (_make-import-spec105089_ + _in105155_)))) (declare (not safe)) - (cons __tmp114946 '())))) + (cons __tmp114928 '())))) (declare (not safe)) - (_lp105145_ - _rest105172_ - _src-ctx105188_ - __tmp114945 - _r105150_))))))) + (_lp105127_ + _rest105154_ + _src-ctx105170_ + __tmp114927 + _r105132_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105174105181_ + _in105156105163_ 'gx#module-import::t)) - (let ((_e105178105193_ + (let ((_e105160105175_ (let () (declare (not safe)) (##unchecked-structure-ref - _in105174105181_ + _in105156105163_ '1 gx#module-import::t '#f)))) @@ -15505,830 +15505,830 @@ (declare (not safe)) (##structure-direct-instance-of? - _e105178105193_ + _e105160105175_ 'gx#module-export::t)) - (let* ((_e105179105196_ + (let* ((_e105161105178_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _e105178105193_ + _e105160105175_ '1 gx#module-export::t '#f))) - (_src-ctx105199_ _e105179105196_)) + (_src-ctx105181_ _e105161105178_)) (declare (not safe)) - (_K105177105190_ _src-ctx105199_)) - (let () (declare (not safe)) (_E105176105185_)))) + (_K105159105172_ _src-ctx105181_)) + (let () (declare (not safe)) (_E105158105167_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E105176105185_)))) + (_E105158105167_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in105173_ + _in105155_ 'gx#import-set::t)) - (let* ((_phi105201_ + (let* ((_phi105183_ (##direct-structure-ref - _in105173_ + _in105155_ '2 gx#import-set::t '#f)) - (_src105203_ + (_src105185_ (##direct-structure-ref - _in105173_ + _in105155_ '1 gx#import-set::t '#f)) - (_src-in105243_ - (let* ((_g105204105213_ + (_src-in105225_ + (let* ((_g105186105195_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_make-import-path105108_ _src105203_))) - (_E105207105217_ + (_make-import-path105090_ _src105185_))) + (_E105189105199_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g105204105213_))))) - (let ((_K105209105233_ - (lambda (_path105231_) _path105231_)) - (_K105208105223_ - (lambda (_path105221_) + _g105186105195_))))) + (let ((_K105191105215_ + (lambda (_path105213_) _path105213_)) + (_K105190105205_ + (lambda (_path105203_) (let () (declare (not safe)) - (cons 'in: _path105221_))))) + (cons 'in: _path105203_))))) (if (let () (declare (not safe)) - (##pair? _g105204105213_)) - (let ((_tl105211105238_ + (##pair? _g105186105195_)) + (let ((_tl105193105220_ (let () (declare (not safe)) - (##cdr _g105204105213_))) - (_hd105210105236_ + (##cdr _g105186105195_))) + (_hd105192105218_ (let () (declare (not safe)) - (##car _g105204105213_)))) + (##car _g105186105195_)))) (if (let () (declare (not safe)) - (##null? _tl105211105238_)) - (let ((_path105241_ _hd105210105236_)) + (##null? _tl105193105220_)) + (let ((_path105223_ _hd105192105218_)) (declare (not safe)) - (_K105209105233_ _path105241_)) - (let ((_path105226_ _g105204105213_)) + (_K105191105215_ _path105223_)) + (let ((_path105208_ _g105186105195_)) (declare (not safe)) - (_K105208105223_ _path105226_)))) - (let ((_path105226_ _g105204105213_)) + (_K105190105205_ _path105208_)))) + (let ((_path105208_ _g105186105195_)) (declare (not safe)) - (_K105208105223_ _path105226_)))))) - (_r105245_ - (if _current-src105148_ - (let ((__tmp114940 + (_K105190105205_ _path105208_)))))) + (_r105227_ + (if _current-src105130_ + (let ((__tmp114922 (let () (declare (not safe)) - (_make-import-spec-in105109_ - _current-src105148_ - _current-in105149_)))) + (_make-import-spec-in105091_ + _current-src105130_ + _current-in105131_)))) (declare (not safe)) - (cons __tmp114940 _r105150_)) - _r105150_))) + (cons __tmp114922 _r105132_)) + _r105132_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp114941 - (let ((__tmp114942 + (let ((__tmp114923 + (let ((__tmp114924 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) - (fxzero? _phi105201_)) - _src-in105243_ - (let ((__tmp114943 - (let ((__tmp114944 + (fxzero? _phi105183_)) + _src-in105225_ + (let ((__tmp114925 + (let ((__tmp114926 (let () (declare (not safe)) - (cons _src-in105243_ '())))) + (cons _src-in105225_ '())))) (declare (not safe)) - (cons _phi105201_ __tmp114944)))) + (cons _phi105183_ __tmp114926)))) (declare (not safe)) - (cons 'phi: __tmp114943))))) + (cons 'phi: __tmp114925))))) (declare (not safe)) - (cons __tmp114942 _r105245_)))) + (cons __tmp114924 _r105227_)))) (declare (not safe)) - (_lp105145_ _rest105172_ '#f '() __tmp114941))) + (_lp105127_ _rest105154_ '#f '() __tmp114923))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _in105173_ + _in105155_ 'gx#module-context::t)) - (let* ((_r105248_ - (if _current-src105148_ + (let* ((_r105230_ + (if _current-src105130_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114936 + (let ((__tmp114918 (let () (declare (not safe)) - (_make-import-spec-in105109_ - _current-src105148_ - _current-in105149_)))) + (_make-import-spec-in105091_ + _current-src105130_ + _current-in105131_)))) (declare (not safe)) - (cons __tmp114936 _r105150_)) - _r105150_)) - (__tmp114937 - (let ((__tmp114938 - (let ((__tmp114939 + (cons __tmp114918 _r105132_)) + _r105132_)) + (__tmp114919 + (let ((__tmp114920 + (let ((__tmp114921 (let () (declare (not safe)) - (_make-import-path105108_ _in105173_)))) + (_make-import-path105090_ _in105155_)))) (declare (not safe)) - (cons 'runtime: __tmp114939)))) + (cons 'runtime: __tmp114921)))) (declare (not safe)) - (cons __tmp114938 _r105248_)))) + (cons __tmp114920 _r105230_)))) (declare (not safe)) - (_lp105145_ _rest105172_ '#f '() __tmp114937)) + (_lp105127_ _rest105154_ '#f '() __tmp114919)) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest105151105159_)) - (let ((_hd105156105253_ + (##pair? _rest105133105141_)) + (let ((_hd105138105235_ (let () (declare (not safe)) - (##car _rest105151105159_))) - (_tl105157105255_ + (##car _rest105133105141_))) + (_tl105139105237_ (let () (declare (not safe)) - (##cdr _rest105151105159_)))) - (let* ((_in105258_ _hd105156105253_) - (_rest105260_ - _tl105157105255_)) + (##cdr _rest105133105141_)))) + (let* ((_in105240_ _hd105138105235_) + (_rest105242_ + _tl105139105237_)) (declare (not safe)) - (_K105155105250_ - _rest105260_ - _in105258_))) + (_K105137105232_ + _rest105242_ + _in105240_))) (let () (declare (not safe)) - (_else105153105169_)))))) - _tl105114105131_))) + (_else105135105151_)))))) + _tl105096105113_))) (let () (declare (not safe)) - (_g105111105121_ _g105112105124_)))))) + (_g105093105103_ _g105094105106_)))))) (declare (not safe)) - (_g105110105262_ _stx105104_))))) + (_g105092105244_ _stx105086_))))) (define gxc#generate-meta-export% - (lambda (_self104913_ _stx104914_) - (letrec* ((_context-chain104916_ + (lambda (_self104895_ _stx104896_) + (letrec* ((_context-chain104898_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-path104917_ - (lambda (_ctx105101_) + (_make-import-path104899_ + (lambda (_ctx105083_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx105101_ - _context-chain104916_))))) - (let* ((_g104919104929_ - (lambda (_g104920104926_) + _ctx105083_ + _context-chain104898_))))) + (let* ((_g104901104911_ + (lambda (_g104902104908_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104920104926_)))) - (_g104918105098_ - (lambda (_g104920104932_) + _g104902104908_)))) + (_g104900105080_ + (lambda (_g104902104914_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104920104932_)) - (let ((_e104924104934_ + (gx#stx-pair? _g104902104914_)) + (let ((_e104906104916_ (let () (declare (not safe)) - (gx#stx-e _g104920104932_)))) - (let ((_hd104923104937_ + (gx#stx-e _g104902104914_)))) + (let ((_hd104905104919_ (let () (declare (not safe)) - (##car _e104924104934_))) - (_tl104922104939_ + (##car _e104906104916_))) + (_tl104904104921_ (let () (declare (not safe)) - (##cdr _e104924104934_)))) - ((lambda (_L104942_) - (let _lp104953_ ((_rest104955_ _L104942_) - (_r104956_ '())) - (let* ((_rest104957104965_ _rest104955_) - (_else104959104973_ + (##cdr _e104906104916_)))) + ((lambda (_L104924_) + (let _lp104935_ ((_rest104937_ _L104924_) + (_r104938_ '())) + (let* ((_rest104939104947_ _rest104937_) + (_else104941104955_ (lambda () - (let ((__tmp114953 - (reverse _r104956_))) + (let ((__tmp114935 + (reverse _r104938_))) (declare (not safe)) - (cons '%#export __tmp114953)))) - (_K104961105086_ - (lambda (_rest104976_ _out104977_) - (let* ((_out104978104991_ - _out104977_) - (_E104981104995_ + (cons '%#export __tmp114935)))) + (_K104943105068_ + (lambda (_rest104958_ _out104959_) + (let* ((_out104960104973_ + _out104959_) + (_E104963104977_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _out104978104991_))))) - (let ((_K104985105065_ - (lambda (_name105061_ - _phi105062_ - _key105063_) - (let ((__tmp114954 - (let ((__tmp114955 + _out104960104973_))))) + (let ((_K104967105047_ + (lambda (_name105043_ + _phi105044_ + _key105045_) + (let ((__tmp114936 + (let ((__tmp114937 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114956 - (let ((__tmp114957 - (let ((__tmp114960 + (let ((__tmp114938 + (let ((__tmp114939 + (let ((__tmp114942 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _key105063_))) - (__tmp114958 - (let ((__tmp114959 + _key105045_))) + (__tmp114940 + (let ((__tmp114941 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name105061_)))) + _name105043_)))) (declare (not safe)) - (cons __tmp114959 '())))) + (cons __tmp114941 '())))) (declare (not safe)) - (cons __tmp114960 __tmp114958)))) + (cons __tmp114942 __tmp114940)))) (declare (not safe)) - (cons _phi105062_ __tmp114957)))) + (cons _phi105044_ __tmp114939)))) (declare (not safe)) - (cons 'spec: __tmp114956)))) + (cons 'spec: __tmp114938)))) (declare (not safe)) - (cons __tmp114955 _r104956_)))) + (cons __tmp114937 _r104938_)))) (declare (not safe)) - (_lp104953_ _rest104976_ __tmp114954)))) + (_lp104935_ _rest104958_ __tmp114936)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K104982105045_ - (lambda (_phi104999_ - _src105000_) - (let* ((_out105040_ - (if _src105000_ + (_K104964105027_ + (lambda (_phi104981_ + _src104982_) + (let* ((_out105022_ + (if _src104982_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp114961 - (let ((__tmp114962 - (let* ((_g105001105010_ + (let ((__tmp114943 + (let ((__tmp114944 + (let* ((_g104983104992_ (let () (declare (not safe)) - (_make-import-path104917_ - _src105000_))) - (_E105004105014_ + (_make-import-path104899_ + _src104982_))) + (_E104986104996_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g105001105010_))))) - (let ((_K105006105030_ - (lambda (_path105028_) - _path105028_)) - (_K105005105020_ - (lambda (_path105018_) + _g104983104992_))))) + (let ((_K104988105012_ + (lambda (_path105010_) + _path105010_)) + (_K104987105002_ + (lambda (_path105000_) (let () (declare (not safe)) (cons 'in: - _path105018_))))) + _path105000_))))) (if (let () (declare (not safe)) - (##pair? _g105001105010_)) - (let ((_tl105008105035_ + (##pair? _g104983104992_)) + (let ((_tl104990105017_ (let () (declare (not safe)) - (##cdr _g105001105010_))) - (_hd105007105033_ + (##cdr _g104983104992_))) + (_hd104989105015_ (let () (declare (not safe)) - (##car _g105001105010_)))) + (##car _g104983104992_)))) (if (let () (declare (not safe)) - (##null? _tl105008105035_)) - (let ((_path105038_ - _hd105007105033_)) + (##null? _tl104990105017_)) + (let ((_path105020_ + _hd104989105015_)) (declare (not safe)) - (_K105006105030_ - _path105038_)) - (let ((_path105023_ - _g105001105010_)) + (_K104988105012_ + _path105020_)) + (let ((_path105005_ + _g104983104992_)) (declare (not safe)) - (_K105005105020_ - _path105023_)))) - (let ((_path105023_ - _g105001105010_)) + (_K104987105002_ + _path105005_)))) + (let ((_path105005_ + _g104983104992_)) (declare (not safe)) - (_K105005105020_ - _path105023_))))))) + (_K104987105002_ + _path105005_))))))) (declare (not safe)) - (cons __tmp114962 '())))) + (cons __tmp114944 '())))) (declare (not safe)) - (cons 'import: __tmp114961)) + (cons 'import: __tmp114943)) '#t)) - (_out105042_ - (if (let () (declare (not safe)) (fxzero? _phi104999_)) - _out105040_ - (let ((__tmp114963 - (let ((__tmp114964 + (_out105024_ + (if (let () (declare (not safe)) (fxzero? _phi104981_)) + _out105022_ + (let ((__tmp114945 + (let ((__tmp114946 (let () (declare (not safe)) - (cons _out105040_ '())))) + (cons _out105022_ '())))) (declare (not safe)) - (cons _phi104999_ __tmp114964)))) + (cons _phi104981_ __tmp114946)))) (declare (not safe)) - (cons 'phi: __tmp114963))))) - (let ((__tmp114965 + (cons 'phi: __tmp114945))))) + (let ((__tmp114947 (let () (declare (not safe)) - (cons _out105042_ _r104956_)))) + (cons _out105024_ _r104938_)))) (declare (not safe)) - (_lp104953_ _rest104976_ __tmp114965)))))) + (_lp104935_ _rest104958_ __tmp114947)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match104980105058_ + (let ((_try-match104962105040_ (lambda () (if (let () (declare (not safe)) (##structure-direct-instance-of? - _out104978104991_ + _out104960104973_ 'gx#export-set::t)) - (let* ((_e104983105048_ + (let* ((_e104965105030_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _out104978104991_ + _out104960104973_ '1 gx#export-set::t '#f))) - (_e104984105053_ + (_e104966105035_ (let () (declare (not safe)) (##unchecked-structure-ref - _out104978104991_ + _out104960104973_ '2 gx#export-set::t '#f)))) - (let ((_src105051_ _e104983105048_) - (_phi105056_ _e104984105053_)) + (let ((_src105033_ _e104965105030_) + (_phi105038_ _e104966105035_)) (let () (declare (not safe)) - (_K104982105045_ _phi105056_ _src105051_)))) - (let () (declare (not safe)) (_E104981104995_)))))) + (_K104964105027_ _phi105038_ _src105033_)))) + (let () (declare (not safe)) (_E104963104977_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _out104978104991_ + _out104960104973_ 'gx#module-export::t)) - (let* ((_e104986105068_ + (let* ((_e104968105050_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _out104978104991_ + _out104960104973_ '1 gx#module-export::t '#f))) - (_e104987105071_ + (_e104969105053_ (let () (declare (not safe)) (##unchecked-structure-ref - _out104978104991_ + _out104960104973_ '2 gx#module-export::t '#f))) - (_e104988105076_ + (_e104970105058_ (let () (declare (not safe)) (##unchecked-structure-ref - _out104978104991_ + _out104960104973_ '3 gx#module-export::t '#f))) - (_e104989105081_ + (_e104971105063_ (let () (declare (not safe)) (##unchecked-structure-ref - _out104978104991_ + _out104960104973_ '4 gx#module-export::t '#f)))) - (let ((_key105074_ _e104987105071_) - (_phi105079_ _e104988105076_) - (_name105084_ _e104989105081_)) + (let ((_key105056_ _e104969105053_) + (_phi105061_ _e104970105058_) + (_name105066_ _e104971105063_)) (let () (declare (not safe)) - (_K104985105065_ _name105084_ _phi105079_ _key105074_)))) + (_K104967105047_ _name105066_ _phi105061_ _key105056_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_try-match104980105058_))))))))) + (_try-match104962105040_))))))))) (if (let () (declare (not safe)) - (##pair? _rest104957104965_)) - (let ((_hd104962105089_ + (##pair? _rest104939104947_)) + (let ((_hd104944105071_ (let () (declare (not safe)) - (##car _rest104957104965_))) - (_tl104963105091_ + (##car _rest104939104947_))) + (_tl104945105073_ (let () (declare (not safe)) - (##cdr _rest104957104965_)))) - (let* ((_out105094_ _hd104962105089_) - (_rest105096_ - _tl104963105091_)) + (##cdr _rest104939104947_)))) + (let* ((_out105076_ _hd104944105071_) + (_rest105078_ + _tl104945105073_)) (declare (not safe)) - (_K104961105086_ - _rest105096_ - _out105094_))) + (_K104943105068_ + _rest105078_ + _out105076_))) (let () (declare (not safe)) - (_else104959104973_)))))) - _tl104922104939_))) + (_else104941104955_)))))) + _tl104904104921_))) (let () (declare (not safe)) - (_g104919104929_ _g104920104932_)))))) + (_g104901104911_ _g104902104914_)))))) (declare (not safe)) - (_g104918105098_ _stx104914_))))) + (_g104900105080_ _stx104896_))))) (define gxc#generate-meta-provide% - (lambda (_self104874_ _stx104875_) - (let ((__tmp114966 + (lambda (_self104856_ _stx104857_) + (let ((__tmp114948 (let () (declare (not safe)) - (slot-ref__0 _self104874_ 'state)))) + (slot-ref__0 _self104856_ 'state)))) (declare (not safe)) - (gxc#meta-state-end-phi! __tmp114966)) - (let* ((_g104877104887_ - (lambda (_g104878104884_) + (gxc#meta-state-end-phi! __tmp114948)) + (let* ((_g104859104869_ + (lambda (_g104860104866_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104878104884_)))) - (_g104876104910_ - (lambda (_g104878104890_) + _g104860104866_)))) + (_g104858104892_ + (lambda (_g104860104872_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104878104890_)) - (let ((_e104882104892_ + (gx#stx-pair? _g104860104872_)) + (let ((_e104864104874_ (let () (declare (not safe)) - (gx#stx-e _g104878104890_)))) - (let ((_hd104881104895_ + (gx#stx-e _g104860104872_)))) + (let ((_hd104863104877_ (let () (declare (not safe)) - (##car _e104882104892_))) - (_tl104880104897_ + (##car _e104864104874_))) + (_tl104862104879_ (let () (declare (not safe)) - (##cdr _e104882104892_)))) - ((lambda (_L104900_) - (let ((__tmp114967 + (##cdr _e104864104874_)))) + ((lambda (_L104882_) + (let ((__tmp114949 (map gxc#generate-runtime-identifier - _L104900_))) + _L104882_))) (declare (not safe)) - (cons '%#provide __tmp114967))) - _tl104880104897_))) + (cons '%#provide __tmp114949))) + _tl104862104879_))) (let () (declare (not safe)) - (_g104877104887_ _g104878104890_)))))) + (_g104859104869_ _g104860104872_)))))) (declare (not safe)) - (_g104876104910_ _stx104875_)))) + (_g104858104892_ _stx104857_)))) (define gxc#generate-meta-extern% - (lambda (_self104745_ _stx104746_) - (letrec ((_generate1104748_ - (lambda (_id104869_ _eid104870_) - (let ((_eid104872_ + (lambda (_self104727_ _stx104728_) + (letrec ((_generate1104730_ + (lambda (_id104851_ _eid104852_) + (let ((_eid104854_ (let () (declare (not safe)) - (gx#stx-e _eid104870_)))) - (if (interned-symbol? _eid104872_) + (gx#stx-e _eid104852_)))) + (if (interned-symbol? _eid104854_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _stx104746_ - _eid104872_))) - (let ((__tmp114969 + _stx104728_ + _eid104854_))) + (let ((__tmp114951 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id104869_))) - (__tmp114968 + (gxc#generate-runtime-identifier _id104851_))) + (__tmp114950 (let () (declare (not safe)) - (cons _eid104872_ '())))) + (cons _eid104854_ '())))) (declare (not safe)) - (cons __tmp114969 __tmp114968)))))) - (let* ((_g104750104778_ - (lambda (_g104751104775_) + (cons __tmp114951 __tmp114950)))))) + (let* ((_g104732104760_ + (lambda (_g104733104757_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104751104775_)))) - (_g104749104866_ - (lambda (_g104751104781_) + _g104733104757_)))) + (_g104731104848_ + (lambda (_g104733104763_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104751104781_)) - (let ((_e104756104783_ + (gx#stx-pair? _g104733104763_)) + (let ((_e104738104765_ (let () (declare (not safe)) - (gx#stx-e _g104751104781_)))) - (let ((_hd104755104786_ + (gx#stx-e _g104733104763_)))) + (let ((_hd104737104768_ (let () (declare (not safe)) - (##car _e104756104783_))) - (_tl104754104788_ + (##car _e104738104765_))) + (_tl104736104770_ (let () (declare (not safe)) - (##cdr _e104756104783_)))) + (##cdr _e104738104765_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl104754104788_)) - (let ((_g114970_ + (gx#stx-pair/null? _tl104736104770_)) + (let ((_g114952_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl104754104788_ + _tl104736104770_ '0)))) (begin - (let ((_g114971_ + (let ((_g114953_ (let () (declare (not safe)) - (if (##values? _g114970_) - (##vector-length _g114970_) + (if (##values? _g114952_) + (##vector-length _g114952_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g114971_ 2))) + (##fx= _g114953_ 2))) (error "Context expects 2 values" - _g114971_))) - (let ((_target104757104791_ + _g114953_))) + (let ((_target104739104773_ (let () (declare (not safe)) - (##vector-ref _g114970_ 0))) - (_tl104759104793_ + (##vector-ref _g114952_ 0))) + (_tl104741104775_ (let () (declare (not safe)) - (##vector-ref _g114970_ 1)))) + (##vector-ref _g114952_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104759104793_)) - (letrec ((_loop104760104796_ - (lambda (_hd104758104799_ - _eid104764104801_ - _id104765104803_) + (gx#stx-null? _tl104741104775_)) + (letrec ((_loop104742104778_ + (lambda (_hd104740104781_ + _eid104746104783_ + _id104747104785_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd104758104799_)) - (let ((_e104761104806_ + _hd104740104781_)) + (let ((_e104743104788_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd104758104799_)))) - (let ((_lp-hd104762104809_ + (gx#stx-e _hd104740104781_)))) + (let ((_lp-hd104744104791_ (let () (declare (not safe)) - (##car _e104761104806_))) - (_lp-tl104763104811_ + (##car _e104743104788_))) + (_lp-tl104745104793_ (let () (declare (not safe)) - (##cdr _e104761104806_)))) + (##cdr _e104743104788_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd104762104809_)) - (let ((_e104770104814_ + (gx#stx-pair? _lp-hd104744104791_)) + (let ((_e104752104796_ (let () (declare (not safe)) - (gx#stx-e _lp-hd104762104809_)))) - (let ((_hd104769104817_ + (gx#stx-e _lp-hd104744104791_)))) + (let ((_hd104751104799_ (let () (declare (not safe)) - (##car _e104770104814_))) - (_tl104768104819_ + (##car _e104752104796_))) + (_tl104750104801_ (let () (declare (not safe)) - (##cdr _e104770104814_)))) + (##cdr _e104752104796_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104768104819_)) - (let ((_e104773104822_ + (gx#stx-pair? _tl104750104801_)) + (let ((_e104755104804_ (let () (declare (not safe)) - (gx#stx-e _tl104768104819_)))) - (let ((_hd104772104825_ + (gx#stx-e _tl104750104801_)))) + (let ((_hd104754104807_ (let () (declare (not safe)) - (##car _e104773104822_))) - (_tl104771104827_ + (##car _e104755104804_))) + (_tl104753104809_ (let () (declare (not safe)) - (##cdr _e104773104822_)))) + (##cdr _e104755104804_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104771104827_)) - (let ((__tmp114976 + (gx#stx-null? _tl104753104809_)) + (let ((__tmp114958 (let () (declare (not safe)) - (cons _hd104772104825_ - _eid104764104801_))) - (__tmp114975 + (cons _hd104754104807_ + _eid104746104783_))) + (__tmp114957 (let () (declare (not safe)) - (cons _hd104769104817_ - _id104765104803_)))) + (cons _hd104751104799_ + _id104747104785_)))) (declare (not safe)) - (_loop104760104796_ - _lp-tl104763104811_ - __tmp114976 - __tmp114975)) + (_loop104742104778_ + _lp-tl104745104793_ + __tmp114958 + __tmp114957)) (let () (declare (not safe)) - (_g104750104778_ - _g104751104781_))))) + (_g104732104760_ + _g104733104763_))))) (let () (declare (not safe)) - (_g104750104778_ _g104751104781_))))) + (_g104732104760_ _g104733104763_))))) (let () (declare (not safe)) - (_g104750104778_ _g104751104781_))))) - (let ((_eid104766104830_ (reverse _eid104764104801_)) - (_id104767104832_ (reverse _id104765104803_))) - ((lambda (_L104835_ _L104836_) - (let ((__tmp114972 - (map _generate1104748_ - (let ((__tmp114973 - (lambda (_g104851104854_ - _g104852104856_) + (_g104732104760_ _g104733104763_))))) + (let ((_eid104748104812_ (reverse _eid104746104783_)) + (_id104749104814_ (reverse _id104747104785_))) + ((lambda (_L104817_ _L104818_) + (let ((__tmp114954 + (map _generate1104730_ + (let ((__tmp114955 + (lambda (_g104833104836_ + _g104834104838_) (let () (declare (not safe)) - (cons _g104851104854_ - _g104852104856_))))) + (cons _g104833104836_ + _g104834104838_))))) (declare (not safe)) - (foldr1 __tmp114973 '() _L104836_)) - (let ((__tmp114974 - (lambda (_g104858104861_ - _g104859104863_) + (foldr1 __tmp114955 '() _L104818_)) + (let ((__tmp114956 + (lambda (_g104840104843_ + _g104841104845_) (let () (declare (not safe)) - (cons _g104858104861_ - _g104859104863_))))) + (cons _g104840104843_ + _g104841104845_))))) (declare (not safe)) - (foldr1 __tmp114974 '() _L104835_))))) + (foldr1 __tmp114956 '() _L104817_))))) (declare (not safe)) - (cons '%#extern __tmp114972))) - _eid104766104830_ - _id104767104832_)))))) + (cons '%#extern __tmp114954))) + _eid104748104812_ + _id104749104814_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop104760104796_ - _target104757104791_ + (_loop104742104778_ + _target104739104773_ '() '()))) (let () (declare (not safe)) - (_g104750104778_ - _g104751104781_)))))) + (_g104732104760_ + _g104733104763_)))))) (let () (declare (not safe)) - (_g104750104778_ _g104751104781_))))) + (_g104732104760_ _g104733104763_))))) (let () (declare (not safe)) - (_g104750104778_ _g104751104781_)))))) + (_g104732104760_ _g104733104763_)))))) (declare (not safe)) - (_g104749104866_ _stx104746_))))) + (_g104731104848_ _stx104728_))))) (define gxc#generate-meta-define-values% - (lambda (_self104535_ _stx104536_) - (letrec ((_generate1104538_ - (lambda (_id104740_) - (let ((_eid104742_ + (lambda (_self104517_ _stx104518_) + (letrec ((_generate1104520_ + (lambda (_id104722_) + (let ((_eid104724_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id104740_))) - (_ident104743_ + (gxc#generate-runtime-binding-id _id104722_))) + (_ident104725_ (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id104740_)))) - (let ((__tmp114977 - (let ((__tmp114978 + (gxc#generate-runtime-identifier _id104722_)))) + (let ((__tmp114959 + (let ((__tmp114960 (let () (declare (not safe)) - (cons _eid104742_ '())))) + (cons _eid104724_ '())))) (declare (not safe)) - (cons _ident104743_ __tmp114978)))) + (cons _ident104725_ __tmp114960)))) (declare (not safe)) - (cons '%#define-runtime __tmp114977))))) - (_generate*104539_ - (lambda (_all104708_) - (let* ((_all104709104717_ _all104708_) - (_else104711104725_ + (cons '%#define-runtime __tmp114959))))) + (_generate*104521_ + (lambda (_all104690_) + (let* ((_all104691104699_ _all104690_) + (_else104693104707_ (lambda () (let () (declare (not safe)) - (cons '%#begin _all104708_)))) - (_K104713104730_ - (lambda (_one104728_) _one104728_))) + (cons '%#begin _all104690_)))) + (_K104695104712_ + (lambda (_one104710_) _one104710_))) (if (let () (declare (not safe)) - (##pair? _all104709104717_)) - (let ((_hd104714104733_ + (##pair? _all104691104699_)) + (let ((_hd104696104715_ (let () (declare (not safe)) - (##car _all104709104717_))) - (_tl104715104735_ + (##car _all104691104699_))) + (_tl104697104717_ (let () (declare (not safe)) - (##cdr _all104709104717_)))) - (let ((_one104738_ _hd104714104733_)) + (##cdr _all104691104699_)))) + (let ((_one104720_ _hd104696104715_)) (if (let () (declare (not safe)) - (##null? _tl104715104735_)) + (##null? _tl104697104717_)) (let () (declare (not safe)) - (_K104713104730_ _one104738_)) + (_K104695104712_ _one104720_)) (let () (declare (not safe)) - (_else104711104725_))))) + (_else104693104707_))))) (let () (declare (not safe)) - (_else104711104725_))))))) - (let* ((_g104541104558_ - (lambda (_g104542104555_) + (_else104693104707_))))))) + (let* ((_g104523104540_ + (lambda (_g104524104537_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104542104555_)))) - (_g104540104705_ - (lambda (_g104542104561_) + _g104524104537_)))) + (_g104522104687_ + (lambda (_g104524104543_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104542104561_)) - (let ((_e104547104563_ + (gx#stx-pair? _g104524104543_)) + (let ((_e104529104545_ (let () (declare (not safe)) - (gx#stx-e _g104542104561_)))) - (let ((_hd104546104566_ + (gx#stx-e _g104524104543_)))) + (let ((_hd104528104548_ (let () (declare (not safe)) - (##car _e104547104563_))) - (_tl104545104568_ + (##car _e104529104545_))) + (_tl104527104550_ (let () (declare (not safe)) - (##cdr _e104547104563_)))) + (##cdr _e104529104545_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104545104568_)) - (let ((_e104550104571_ + (gx#stx-pair? _tl104527104550_)) + (let ((_e104532104553_ (let () (declare (not safe)) - (gx#stx-e _tl104545104568_)))) - (let ((_hd104549104574_ + (gx#stx-e _tl104527104550_)))) + (let ((_hd104531104556_ (let () (declare (not safe)) - (##car _e104550104571_))) - (_tl104548104576_ + (##car _e104532104553_))) + (_tl104530104558_ (let () (declare (not safe)) - (##cdr _e104550104571_)))) + (##cdr _e104532104553_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104548104576_)) - (let ((_e104553104579_ + (gx#stx-pair? _tl104530104558_)) + (let ((_e104535104561_ (let () (declare (not safe)) - (gx#stx-e _tl104548104576_)))) - (let ((_hd104552104582_ + (gx#stx-e _tl104530104558_)))) + (let ((_hd104534104564_ (let () (declare (not safe)) - (##car _e104553104579_))) - (_tl104551104584_ + (##car _e104535104561_))) + (_tl104533104566_ (let () (declare (not safe)) - (##cdr _e104553104579_)))) + (##cdr _e104535104561_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104551104584_)) - ((lambda (_L104587_ _L104588_) - (let _lp104604_ ((_rest104606_ + _tl104533104566_)) + ((lambda (_L104569_ _L104570_) + (let _lp104586_ ((_rest104588_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L104588_) - (_r104607_ '())) + _L104570_) + (_r104589_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((___stx114121114122_ - _rest104606_) - (_g104612104629_ + (let* ((___stx114103114104_ + _rest104588_) + (_g104594104611_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -16336,185 +16336,185 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx114121114122_))))) - (let ((___kont114123114124_ - (lambda (_L104692_) + ___stx114103114104_))))) + (let ((___kont114105114106_ + (lambda (_L104674_) (let () (declare (not safe)) - (_lp104604_ _L104692_ _r104607_)))) - (___kont114125114126_ - (lambda (_L104665_ _L104666_) - (let ((__tmp114979 - (let ((__tmp114980 + (_lp104586_ _L104674_ _r104589_)))) + (___kont114107114108_ + (lambda (_L104647_ _L104648_) + (let ((__tmp114961 + (let ((__tmp114962 (let () (declare (not safe)) - (_generate1104538_ _L104666_)))) + (_generate1104520_ _L104648_)))) (declare (not safe)) - (cons __tmp114980 _r104607_)))) + (cons __tmp114962 _r104589_)))) (declare (not safe)) - (_lp104604_ _L104665_ __tmp114979)))) - (___kont114127114128_ - (lambda (_L104641_) - (let ((__tmp114981 - (let ((__tmp114982 - (let ((__tmp114983 + (_lp104586_ _L104647_ __tmp114961)))) + (___kont114109114110_ + (lambda (_L104623_) + (let ((__tmp114963 + (let ((__tmp114964 + (let ((__tmp114965 (let () (declare (not safe)) - (_generate1104538_ _L104641_)))) + (_generate1104520_ _L104623_)))) (declare (not safe)) - (cons __tmp114983 '())))) + (cons __tmp114965 '())))) (declare (not safe)) - (foldl1 cons __tmp114982 _r104607_)))) + (foldl1 cons __tmp114964 _r104589_)))) (declare (not safe)) - (_generate*104539_ __tmp114981)))) - (___kont114129114130_ + (_generate*104521_ __tmp114963)))) + (___kont114111114112_ (lambda () - (let ((__tmp114984 (reverse _r104607_))) + (let ((__tmp114966 (reverse _r104589_))) (declare (not safe)) - (_generate*104539_ __tmp114984))))) - (let ((_g104610104652_ + (_generate*104521_ __tmp114966))))) + (let ((_g104592104634_ (lambda () - (let ((_L104641_ ___stx114121114122_)) + (let ((_L104623_ ___stx114103114104_)) (if (let () (declare (not safe)) - (gx#identifier? _L104641_)) - (___kont114127114128_ _L104641_) - (___kont114129114130_)))))) + (gx#identifier? _L104623_)) + (___kont114109114110_ _L104623_) + (___kont114111114112_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx114121114122_)) - (let ((_e104617104681_ + (gx#stx-pair? ___stx114103114104_)) + (let ((_e104599104663_ (let () (declare (not safe)) - (gx#stx-e ___stx114121114122_)))) - (let ((_tl104615104686_ + (gx#stx-e ___stx114103114104_)))) + (let ((_tl104597104668_ (let () (declare (not safe)) - (##cdr _e104617104681_))) - (_hd104616104684_ + (##cdr _e104599104663_))) + (_hd104598104666_ (let () (declare (not safe)) - (##car _e104617104681_)))) + (##car _e104599104663_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd104616104684_)) - (let ((_e104618104689_ + (gx#stx-datum? _hd104598104666_)) + (let ((_e104600104671_ (let () (declare (not safe)) - (gx#stx-e _hd104616104684_)))) + (gx#stx-e _hd104598104666_)))) (if (let () (declare (not safe)) - (equal? _e104618104689_ '#f)) - (___kont114123114124_ _tl104615104686_) - (___kont114125114126_ - _tl104615104686_ - _hd104616104684_))) - (___kont114125114126_ - _tl104615104686_ - _hd104616104684_)))) - (let () (declare (not safe)) (_g104610104652_)))))))) + (equal? _e104600104671_ '#f)) + (___kont114105114106_ _tl104597104668_) + (___kont114107114108_ + _tl104597104668_ + _hd104598104666_))) + (___kont114107114108_ + _tl104597104668_ + _hd104598104666_)))) + (let () (declare (not safe)) (_g104592104634_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd104552104582_ - _hd104549104574_) + _hd104534104564_ + _hd104531104556_) (let () (declare (not safe)) - (_g104541104558_ - _g104542104561_))))) + (_g104523104540_ + _g104524104543_))))) (let () (declare (not safe)) - (_g104541104558_ _g104542104561_))))) + (_g104523104540_ _g104524104543_))))) (let () (declare (not safe)) - (_g104541104558_ _g104542104561_))))) + (_g104523104540_ _g104524104543_))))) (let () (declare (not safe)) - (_g104541104558_ _g104542104561_)))))) + (_g104523104540_ _g104524104543_)))))) (declare (not safe)) - (_g104540104705_ _stx104536_))))) + (_g104522104687_ _stx104518_))))) (define gxc#generate-meta-define-syntax% - (lambda (_self104432_ _stx104433_) - (let* ((_g104435104452_ - (lambda (_g104436104449_) + (lambda (_self104414_ _stx104415_) + (let* ((_g104417104434_ + (lambda (_g104418104431_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104436104449_)))) - (_g104434104532_ - (lambda (_g104436104455_) + _g104418104431_)))) + (_g104416104514_ + (lambda (_g104418104437_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104436104455_)) - (let ((_e104441104457_ + (gx#stx-pair? _g104418104437_)) + (let ((_e104423104439_ (let () (declare (not safe)) - (gx#stx-e _g104436104455_)))) - (let ((_hd104440104460_ + (gx#stx-e _g104418104437_)))) + (let ((_hd104422104442_ (let () (declare (not safe)) - (##car _e104441104457_))) - (_tl104439104462_ + (##car _e104423104439_))) + (_tl104421104444_ (let () (declare (not safe)) - (##cdr _e104441104457_)))) + (##cdr _e104423104439_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104439104462_)) - (let ((_e104444104465_ + (gx#stx-pair? _tl104421104444_)) + (let ((_e104426104447_ (let () (declare (not safe)) - (gx#stx-e _tl104439104462_)))) - (let ((_hd104443104468_ + (gx#stx-e _tl104421104444_)))) + (let ((_hd104425104450_ (let () (declare (not safe)) - (##car _e104444104465_))) - (_tl104442104470_ + (##car _e104426104447_))) + (_tl104424104452_ (let () (declare (not safe)) - (##cdr _e104444104465_)))) + (##cdr _e104426104447_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104442104470_)) - (let ((_e104447104473_ + (gx#stx-pair? _tl104424104452_)) + (let ((_e104429104455_ (let () (declare (not safe)) - (gx#stx-e _tl104442104470_)))) - (let ((_hd104446104476_ + (gx#stx-e _tl104424104452_)))) + (let ((_hd104428104458_ (let () (declare (not safe)) - (##car _e104447104473_))) - (_tl104445104478_ + (##car _e104429104455_))) + (_tl104427104460_ (let () (declare (not safe)) - (##cdr _e104447104473_)))) + (##cdr _e104429104455_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104445104478_)) - ((lambda (_L104481_ _L104482_) - (let* ((_eid104497_ + _tl104427104460_)) + ((lambda (_L104463_ _L104464_) + (let* ((_eid104479_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L104482_))) - (_phi104499_ - (let ((__tmp114985 + _L104464_))) + (_phi104481_ + (let ((__tmp114967 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp114985 + (fx+ __tmp114967 '1))) - (_block104501_ - (let ((__tmp114986 + (_block104483_ + (let ((__tmp114968 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _self104432_ 'state)))) + (slot-ref__0 _self104414_ 'state)))) (declare (not safe)) - (gxc#meta-state-begin-phi! __tmp114986 _phi104499_)))) + (gxc#meta-state-begin-phi! __tmp114968 _phi104481_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_g104504104511_ - (lambda (_g104505104508_) + (let* ((_g104486104493_ + (lambda (_g104487104490_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -16522,265 +16522,265 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104505104508_)))) - (_g104503104529_ - (lambda (_g104505104514_) - ((lambda (_L104516_) + _g104487104490_)))) + (_g104485104511_ + (lambda (_g104487104496_) + ((lambda (_L104498_) (let () - (let ((__tmp114991 + (let ((__tmp114973 (let () (declare (not safe)) - (slot-ref__0 _self104432_ 'state))) - (__tmp114987 - (let ((__tmp114990 + (slot-ref__0 _self104414_ 'state))) + (__tmp114969 + (let ((__tmp114972 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime))) - (__tmp114988 - (let ((__tmp114989 + (__tmp114970 + (let ((__tmp114971 (let () (declare (not safe)) - (cons _L104481_ '())))) + (cons _L104463_ '())))) (declare (not safe)) - (cons _L104516_ __tmp114989)))) + (cons _L104498_ __tmp114971)))) (declare (not safe)) - (cons __tmp114990 __tmp114988)))) + (cons __tmp114972 __tmp114970)))) (declare (not safe)) (gxc#meta-state-add-phi! - __tmp114991 - _phi104499_ - __tmp114987)))) - _g104505104514_)))) + __tmp114973 + _phi104481_ + __tmp114969)))) + _g104487104496_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g104503104529_ - _eid104497_)) - (if _block104501_ - (let ((__tmp114995 - (let ((__tmp115001 + (_g104485104511_ + _eid104479_)) + (if _block104483_ + (let ((__tmp114977 + (let ((__tmp114983 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115002 - (let ((__tmp115003 - (let ((__tmp115004 - (let ((__tmp115008 - (let ((__tmp115009 + (let ((__tmp114984 + (let ((__tmp114985 + (let ((__tmp114986 + (let ((__tmp114990 + (let ((__tmp114991 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp115009))) - (__tmp115005 - (let ((__tmp115006 - (let ((__tmp115007 + (cons '%#ref __tmp114991))) + (__tmp114987 + (let ((__tmp114988 + (let ((__tmp114989 (let () (declare (not safe)) - (cons _block104501_ '())))) + (cons _block104483_ '())))) (declare (not safe)) - (cons '%#quote __tmp115007)))) + (cons '%#quote __tmp114989)))) (declare (not safe)) - (cons __tmp115006 '())))) + (cons __tmp114988 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115008 - __tmp115005)))) + (cons __tmp114990 + __tmp114987)))) (declare (not safe)) - (cons '%#call __tmp115004)))) + (cons '%#call __tmp114986)))) (declare (not safe)) - (cons __tmp115003 '())))) + (cons __tmp114985 '())))) (declare (not safe)) - (cons '%#begin-syntax __tmp115002))) - (__tmp114996 - (let ((__tmp114997 - (let ((__tmp114998 - (let ((__tmp115000 + (cons '%#begin-syntax __tmp114984))) + (__tmp114978 + (let ((__tmp114979 + (let ((__tmp114980 + (let ((__tmp114982 (let () (declare (not safe)) (gxc#generate-runtime-identifier - _L104482_))) - (__tmp114999 + _L104464_))) + (__tmp114981 (let () (declare (not safe)) - (cons _eid104497_ '())))) + (cons _eid104479_ '())))) (declare (not safe)) - (cons __tmp115000 __tmp114999)))) + (cons __tmp114982 __tmp114981)))) (declare (not safe)) - (cons '%#define-syntax __tmp114998)))) + (cons '%#define-syntax __tmp114980)))) (declare (not safe)) - (cons __tmp114997 '())))) + (cons __tmp114979 '())))) (declare (not safe)) - (cons __tmp115001 __tmp114996)))) + (cons __tmp114983 __tmp114978)))) (declare (not safe)) - (cons '%#begin __tmp114995)) - (let ((__tmp114992 - (let ((__tmp114994 + (cons '%#begin __tmp114977)) + (let ((__tmp114974 + (let ((__tmp114976 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L104482_))) - (__tmp114993 + (gxc#generate-runtime-identifier _L104464_))) + (__tmp114975 (let () (declare (not safe)) - (cons _eid104497_ '())))) + (cons _eid104479_ '())))) (declare (not safe)) - (cons __tmp114994 __tmp114993)))) + (cons __tmp114976 __tmp114975)))) (declare (not safe)) - (cons '%#define-syntax __tmp114992))))) + (cons '%#define-syntax __tmp114974))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd104446104476_ - _hd104443104468_) + _hd104428104458_ + _hd104425104450_) (let () (declare (not safe)) - (_g104435104452_ - _g104436104455_))))) + (_g104417104434_ + _g104418104437_))))) (let () (declare (not safe)) - (_g104435104452_ _g104436104455_))))) + (_g104417104434_ _g104418104437_))))) (let () (declare (not safe)) - (_g104435104452_ _g104436104455_))))) + (_g104417104434_ _g104418104437_))))) (let () (declare (not safe)) - (_g104435104452_ _g104436104455_)))))) + (_g104417104434_ _g104418104437_)))))) (declare (not safe)) - (_g104434104532_ _stx104433_)))) + (_g104416104514_ _stx104415_)))) (define gxc#generate-meta-define-alias% - (lambda (_self104364_ _stx104365_) - (let* ((_g104367104384_ - (lambda (_g104368104381_) + (lambda (_self104346_ _stx104347_) + (let* ((_g104349104366_ + (lambda (_g104350104363_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104368104381_)))) - (_g104366104429_ - (lambda (_g104368104387_) + _g104350104363_)))) + (_g104348104411_ + (lambda (_g104350104369_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104368104387_)) - (let ((_e104373104389_ + (gx#stx-pair? _g104350104369_)) + (let ((_e104355104371_ (let () (declare (not safe)) - (gx#stx-e _g104368104387_)))) - (let ((_hd104372104392_ + (gx#stx-e _g104350104369_)))) + (let ((_hd104354104374_ (let () (declare (not safe)) - (##car _e104373104389_))) - (_tl104371104394_ + (##car _e104355104371_))) + (_tl104353104376_ (let () (declare (not safe)) - (##cdr _e104373104389_)))) + (##cdr _e104355104371_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104371104394_)) - (let ((_e104376104397_ + (gx#stx-pair? _tl104353104376_)) + (let ((_e104358104379_ (let () (declare (not safe)) - (gx#stx-e _tl104371104394_)))) - (let ((_hd104375104400_ + (gx#stx-e _tl104353104376_)))) + (let ((_hd104357104382_ (let () (declare (not safe)) - (##car _e104376104397_))) - (_tl104374104402_ + (##car _e104358104379_))) + (_tl104356104384_ (let () (declare (not safe)) - (##cdr _e104376104397_)))) + (##cdr _e104358104379_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104374104402_)) - (let ((_e104379104405_ + (gx#stx-pair? _tl104356104384_)) + (let ((_e104361104387_ (let () (declare (not safe)) - (gx#stx-e _tl104374104402_)))) - (let ((_hd104378104408_ + (gx#stx-e _tl104356104384_)))) + (let ((_hd104360104390_ (let () (declare (not safe)) - (##car _e104379104405_))) - (_tl104377104410_ + (##car _e104361104387_))) + (_tl104359104392_ (let () (declare (not safe)) - (##cdr _e104379104405_)))) + (##cdr _e104361104387_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104377104410_)) - ((lambda (_L104413_ _L104414_) - (let ((__tmp115010 - (let ((__tmp115013 + _tl104359104392_)) + ((lambda (_L104395_ _L104396_) + (let ((__tmp114992 + (let ((__tmp114995 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#generate-runtime-identifier _L104414_))) - (__tmp115011 - (let ((__tmp115012 + (gxc#generate-runtime-identifier _L104396_))) + (__tmp114993 + (let ((__tmp114994 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L104413_)))) + (gxc#generate-runtime-identifier _L104395_)))) (declare (not safe)) - (cons __tmp115012 '())))) + (cons __tmp114994 '())))) (declare (not safe)) - (cons __tmp115013 __tmp115011)))) + (cons __tmp114995 __tmp114993)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#define-alias - __tmp115010))) - _hd104378104408_ - _hd104375104400_) + __tmp114992))) + _hd104360104390_ + _hd104357104382_) (let () (declare (not safe)) - (_g104367104384_ - _g104368104387_))))) + (_g104349104366_ + _g104350104369_))))) (let () (declare (not safe)) - (_g104367104384_ _g104368104387_))))) + (_g104349104366_ _g104350104369_))))) (let () (declare (not safe)) - (_g104367104384_ _g104368104387_))))) + (_g104349104366_ _g104350104369_))))) (let () (declare (not safe)) - (_g104367104384_ _g104368104387_)))))) + (_g104349104366_ _g104350104369_)))))) (declare (not safe)) - (_g104366104429_ _stx104365_)))) + (_g104348104411_ _stx104347_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_self104361_ _stx104362_) - (let ((__tmp115015 - (let () (declare (not safe)) (slot-ref__0 _self104361_ 'state))) - (__tmp115014 (gx#current-expander-phi))) + (lambda (_self104343_ _stx104344_) + (let ((__tmp114997 + (let () (declare (not safe)) (slot-ref__0 _self104343_ 'state))) + (__tmp114996 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! __tmp115015 __tmp115014 _stx104362_)) + (gxc#meta-state-add-phi! __tmp114997 __tmp114996 _stx104344_)) (let () (declare (not safe)) - (gxc#generate-meta-define-values% _self104361_ _stx104362_)))) + (gxc#generate-meta-define-values% _self104343_ _stx104344_)))) (define gxc#generate-meta-phi-expr - (lambda (_self104358_ _stx104359_) - (let ((__tmp115017 - (let () (declare (not safe)) (slot-ref__0 _self104358_ 'state))) - (__tmp115016 (gx#current-expander-phi))) + (lambda (_self104340_ _stx104341_) + (let ((__tmp114999 + (let () (declare (not safe)) (slot-ref__0 _self104340_ 'state))) + (__tmp114998 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! __tmp115017 __tmp115016 _stx104359_)) + (gxc#meta-state-add-phi! __tmp114999 __tmp114998 _stx104341_)) '#!void)) (define gxc#meta-state::t - (let ((__tmp115020 (list)) - (__tmp115018 - (let ((__tmp115019 + (let ((__tmp115002 (list)) + (__tmp115000 + (let ((__tmp115001 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp115019 '())))) + (cons __tmp115001 '())))) (declare (not safe)) (make-class-type 'gxc#meta-state::t 'meta-state - __tmp115020 + __tmp115002 '(src n open blocks) - __tmp115018 + __tmp115000 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _$args104355_ - (apply make-instance gxc#meta-state::t _$args104355_))) + (lambda _$args104337_ + (apply make-instance gxc#meta-state::t _$args104337_))) (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 (_self104352_ _ctx104353_) - (if (let ((__tmp115029 + (lambda (_self104334_ _ctx104335_) + (if (let ((__tmp115011 (let () (declare (not safe)) - (##structure-length _self104352_)))) + (##structure-length _self104334_)))) (declare (not safe)) - (##fx< '4 __tmp115029)) + (##fx< '4 __tmp115011)) (begin - (let ((__tmp115023 - (let ((__tmp115024 + (let ((__tmp115005 + (let ((__tmp115006 (##structure-ref - _ctx104353_ + _ctx104335_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp115024))) - (__tmp115022 + (gxc#module-id->path-string __tmp115006))) + (__tmp115004 (let () (declare (not safe)) - (##structure-type _self104352_)))) + (##structure-type _self104334_)))) (declare (not safe)) (##unchecked-structure-set! - _self104352_ - __tmp115023 + _self104334_ + __tmp115005 '1 - __tmp115022 + __tmp115004 '#f)) - (let ((__tmp115025 + (let ((__tmp115007 (let () (declare (not safe)) - (##structure-type _self104352_)))) + (##structure-type _self104334_)))) (declare (not safe)) (##unchecked-structure-set! - _self104352_ + _self104334_ '1 '2 - __tmp115025 + __tmp115007 '#f)) - (let ((__tmp115027 + (let ((__tmp115009 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp115026 + (__tmp115008 (let () (declare (not safe)) - (##structure-type _self104352_)))) + (##structure-type _self104334_)))) (declare (not safe)) (##unchecked-structure-set! - _self104352_ - __tmp115027 + _self104334_ + __tmp115009 '3 - __tmp115026 + __tmp115008 '#f)) - (let ((__tmp115028 + (let ((__tmp115010 (let () (declare (not safe)) - (##structure-type _self104352_)))) + (##structure-type _self104334_)))) (declare (not safe)) (##unchecked-structure-set! - _self104352_ + _self104334_ '() '4 - __tmp115028 + __tmp115010 '#f))) - (let ((__tmp115021 + (let ((__tmp115003 (let () (declare (not safe)) - (##vector-length _self104352_)))) + (##vector-length _self104334_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self104352_ + _self104334_ '4 - __tmp115021))))) + __tmp115003))))) (let () (declare (not safe)) (bind-method!__% gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp115032 (list)) - (__tmp115030 - (let ((__tmp115031 + (let ((__tmp115014 (list)) + (__tmp115012 + (let ((__tmp115013 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp115031 '())))) + (cons __tmp115013 '())))) (declare (not safe)) (make-class-type 'gxc#meta-state-block::t 'meta-state-block - __tmp115032 + __tmp115014 '(ctx phi n code) - __tmp115030 + __tmp115012 '#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 _$args104227_ - (apply make-instance gxc#meta-state-block::t _$args104227_))) + (lambda _$args104209_ + (apply make-instance gxc#meta-state-block::t _$args104209_))) (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 (_state104186_ _phi104187_) - (let* ((_state104188104196_ _state104186_) - (_E104190104200_ + (lambda (_state104168_ _phi104169_) + (let* ((_state104170104178_ _state104168_) + (_E104172104182_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _state104188104196_)))) - (_K104191104209_ - (lambda (_open104203_ _n104204_ _src104205_) + (error '"No clause matching" _state104170104178_)))) + (_K104173104191_ + (lambda (_open104185_ _n104186_ _src104187_) (if (let () (declare (not safe)) - (hash-get _open104203_ _phi104187_)) + (hash-get _open104185_ _phi104169_)) '#f - (let ((_block-ref104207_ + (let ((_block-ref104189_ (string-append - _src104205_ + _src104187_ '"~" - (number->string _n104204_)))) + (number->string _n104186_)))) (##structure-set! - _state104186_ - (let () (declare (not safe)) (fx+ _n104204_ '1)) + _state104168_ + (let () (declare (not safe)) (fx+ _n104186_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp115033 - (let ((__tmp115034 + (let ((__tmp115015 + (let ((__tmp115016 (gx#current-expander-context))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp115034 - _phi104187_ - _n104204_ + __tmp115016 + _phi104169_ + _n104186_ '())))) (declare (not safe)) - (hash-put! _open104203_ _phi104187_ __tmp115033)) - _block-ref104207_))))) + (hash-put! _open104185_ _phi104169_ __tmp115015)) + _block-ref104189_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _state104188104196_ + _state104170104178_ 'gxc#meta-state::t)) - (let* ((_e104192104212_ + (let* ((_e104174104194_ (let () (declare (not safe)) (##unchecked-structure-ref - _state104188104196_ + _state104170104178_ '1 gxc#meta-state::t '#f))) - (_src104215_ _e104192104212_) - (_e104193104217_ + (_src104197_ _e104174104194_) + (_e104175104199_ (let () (declare (not safe)) (##unchecked-structure-ref - _state104188104196_ + _state104170104178_ '2 gxc#meta-state::t '#f))) - (_n104220_ _e104193104217_) - (_e104194104222_ + (_n104202_ _e104175104199_) + (_e104176104204_ (let () (declare (not safe)) (##unchecked-structure-ref - _state104188104196_ + _state104170104178_ '3 gxc#meta-state::t '#f))) - (_open104225_ _e104194104222_)) + (_open104207_ _e104176104204_)) (declare (not safe)) - (_K104191104209_ _open104225_ _n104220_ _src104215_)) - (let () (declare (not safe)) (_E104190104200_)))))) + (_K104173104191_ _open104207_ _n104202_ _src104197_)) + (let () (declare (not safe)) (_E104172104182_)))))) (define gxc#meta-state-add-phi! - (lambda (_state104180_ _phi104181_ _stx104182_) - (let ((_block104184_ - (let ((__tmp115035 + (lambda (_state104162_ _phi104163_ _stx104164_) + (let ((_block104166_ + (let ((__tmp115017 (##structure-ref - _state104180_ + _state104162_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-get __tmp115035 _phi104181_)))) + (hash-get __tmp115017 _phi104163_)))) (##structure-set! - _block104184_ - (let ((__tmp115036 + _block104166_ + (let ((__tmp115018 (##structure-ref - _block104184_ + _block104166_ '4 gxc#meta-state-block::t '#f))) (declare (not safe)) - (cons _stx104182_ __tmp115036)) + (cons _stx104164_ __tmp115018)) '4 gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_state104175_) + (lambda (_state104157_) (##structure-set! - _state104175_ - (let ((__tmp115039 - (lambda (_g115040_ _block104177_ _r104178_) + _state104157_ + (let ((__tmp115021 + (lambda (_g115022_ _block104159_ _r104160_) (let () (declare (not safe)) - (cons _block104177_ _r104178_)))) - (__tmp115038 - (##structure-ref _state104175_ '4 gxc#meta-state::t '#f)) - (__tmp115037 - (##structure-ref _state104175_ '3 gxc#meta-state::t '#f))) + (cons _block104159_ _r104160_)))) + (__tmp115020 + (##structure-ref _state104157_ '4 gxc#meta-state::t '#f)) + (__tmp115019 + (##structure-ref _state104157_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-fold __tmp115039 __tmp115038 __tmp115037)) + (hash-fold __tmp115021 __tmp115020 __tmp115019)) '4 gxc#meta-state::t '#f) (##structure-set! - _state104175_ + _state104157_ (let () (declare (not safe)) (make-hash-table-eq)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_state104127_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state104127_)) - (let ((__tmp115042 - (lambda (_block104129_ _r104130_) - (let* ((_block104131104140_ _block104129_) - (_E104133104144_ + (lambda (_state104109_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state104109_)) + (let ((__tmp115024 + (lambda (_block104111_ _r104112_) + (let* ((_block104113104122_ _block104111_) + (_E104115104126_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block104131104140_)))) - (_K104134104152_ - (lambda (_code104147_ - _n104148_ - _phi104149_ - _ctx104150_) + _block104113104122_)))) + (_K104116104134_ + (lambda (_code104129_ + _n104130_ + _phi104131_ + _ctx104132_) (if (let () (declare (not safe)) - (null? _code104147_)) - _r104130_ - (let ((__tmp115043 - (let ((__tmp115044 - (let ((__tmp115045 - (let ((__tmp115046 - (let ((__tmp115047 + (null? _code104129_)) + _r104112_ + (let ((__tmp115025 + (let ((__tmp115026 + (let ((__tmp115027 + (let ((__tmp115028 + (let ((__tmp115029 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115048 (reverse _code104147_))) + (let ((__tmp115030 (reverse _code104129_))) (declare (not safe)) - (cons '%#begin __tmp115048)))) + (cons '%#begin __tmp115030)))) (declare (not safe)) - (cons __tmp115047 '())))) + (cons __tmp115029 '())))) (declare (not safe)) - (cons _n104148_ __tmp115046)))) + (cons _n104130_ __tmp115028)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _phi104149_ - __tmp115045)))) + (cons _phi104131_ + __tmp115027)))) (declare (not safe)) - (cons _ctx104150_ __tmp115044)))) + (cons _ctx104132_ __tmp115026)))) (declare (not safe)) - (cons __tmp115043 _r104130_)))))) + (cons __tmp115025 _r104112_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _block104131104140_ + _block104113104122_ 'gxc#meta-state-block::t)) - (let* ((_e104135104155_ + (let* ((_e104117104137_ (let () (declare (not safe)) (##unchecked-structure-ref - _block104131104140_ + _block104113104122_ '1 gxc#meta-state-block::t '#f))) - (_ctx104158_ _e104135104155_) - (_e104136104160_ + (_ctx104140_ _e104117104137_) + (_e104118104142_ (let () (declare (not safe)) (##unchecked-structure-ref - _block104131104140_ + _block104113104122_ '2 gxc#meta-state-block::t '#f))) - (_phi104163_ _e104136104160_) - (_e104137104165_ + (_phi104145_ _e104118104142_) + (_e104119104147_ (let () (declare (not safe)) (##unchecked-structure-ref - _block104131104140_ + _block104113104122_ '3 gxc#meta-state-block::t '#f))) - (_n104168_ _e104137104165_) - (_e104138104170_ + (_n104150_ _e104119104147_) + (_e104120104152_ (let () (declare (not safe)) (##unchecked-structure-ref - _block104131104140_ + _block104113104122_ '4 gxc#meta-state-block::t '#f))) - (_code104173_ _e104138104170_)) + (_code104155_ _e104120104152_)) (declare (not safe)) - (_K104134104152_ - _code104173_ - _n104168_ - _phi104163_ - _ctx104158_)) - (let () (declare (not safe)) (_E104133104144_)))))) - (__tmp115041 - (##structure-ref _state104127_ '4 gxc#meta-state::t '#f))) + (_K104116104134_ + _code104155_ + _n104150_ + _phi104145_ + _ctx104140_)) + (let () (declare (not safe)) (_E104115104126_)))))) + (__tmp115023 + (##structure-ref _state104109_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (foldl1 __tmp115042 '() __tmp115041)))) + (foldl1 __tmp115024 '() __tmp115023)))) (define gxc#collect-expression-refs - (lambda (_stx104123_) - (let ((_ht104125_ (let () (declare (not safe)) (make-hash-table-eq)))) + (lambda (_stx104105_) + (let ((_ht104107_ (let () (declare (not safe)) (make-hash-table-eq)))) (let () (declare (not safe)) - (gxc#apply-collect-expression-refs _stx104123_ 'table: _ht104125_)) - _ht104125_))) + (gxc#apply-collect-expression-refs _stx104105_ 'table: _ht104107_)) + _ht104107_))) (define gxc#collect-refs-ref% - (lambda (_self104066_ _stx104067_) - (let* ((_g104069104082_ - (lambda (_g104070104079_) + (lambda (_self104048_ _stx104049_) + (let* ((_g104051104064_ + (lambda (_g104052104061_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g104070104079_)))) - (_g104068104120_ - (lambda (_g104070104085_) + _g104052104061_)))) + (_g104050104102_ + (lambda (_g104052104067_) (if (let () (declare (not safe)) - (gx#stx-pair? _g104070104085_)) - (let ((_e104074104087_ + (gx#stx-pair? _g104052104067_)) + (let ((_e104056104069_ (let () (declare (not safe)) - (gx#stx-e _g104070104085_)))) - (let ((_hd104073104090_ + (gx#stx-e _g104052104067_)))) + (let ((_hd104055104072_ (let () (declare (not safe)) - (##car _e104074104087_))) - (_tl104072104092_ + (##car _e104056104069_))) + (_tl104054104074_ (let () (declare (not safe)) - (##cdr _e104074104087_)))) + (##cdr _e104056104069_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104072104092_)) - (let ((_e104077104095_ + (gx#stx-pair? _tl104054104074_)) + (let ((_e104059104077_ (let () (declare (not safe)) - (gx#stx-e _tl104072104092_)))) - (let ((_hd104076104098_ + (gx#stx-e _tl104054104074_)))) + (let ((_hd104058104080_ (let () (declare (not safe)) - (##car _e104077104095_))) - (_tl104075104100_ + (##car _e104059104077_))) + (_tl104057104082_ (let () (declare (not safe)) - (##cdr _e104077104095_)))) + (##cdr _e104059104077_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl104075104100_)) - ((lambda (_L104103_) - (let* ((_bind104115_ + (gx#stx-null? _tl104057104082_)) + ((lambda (_L104085_) + (let* ((_bind104097_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L104103_))) - (_eid104117_ - (if _bind104115_ + _L104085_))) + (_eid104099_ + (if _bind104097_ (##structure-ref - _bind104115_ + _bind104097_ '1 gx#binding::t '#f) (let () (declare (not safe)) - (gx#stx-e _L104103_))))) - (let ((__tmp115049 + (gx#stx-e _L104085_))))) + (let ((__tmp115031 (let () (declare (not safe)) (slot-ref__0 - _self104066_ + _self104048_ 'table)))) (declare (not safe)) (hash-put! - __tmp115049 - _eid104117_ - _eid104117_)))) - _hd104076104098_) + __tmp115031 + _eid104099_ + _eid104099_)))) + _hd104058104080_) (let () (declare (not safe)) - (_g104069104082_ _g104070104085_))))) + (_g104051104064_ _g104052104067_))))) (let () (declare (not safe)) - (_g104069104082_ _g104070104085_))))) + (_g104051104064_ _g104052104067_))))) (let () (declare (not safe)) - (_g104069104082_ _g104070104085_)))))) + (_g104051104064_ _g104052104067_)))))) (declare (not safe)) - (_g104068104120_ _stx104067_)))) + (_g104050104102_ _stx104049_)))) (define gxc#collect-refs-setq% - (lambda (_self103993_ _stx103994_) - (let* ((_g103996104013_ - (lambda (_g103997104010_) + (lambda (_self103975_ _stx103976_) + (let* ((_g103978103995_ + (lambda (_g103979103992_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103997104010_)))) - (_g103995104063_ - (lambda (_g103997104016_) + _g103979103992_)))) + (_g103977104045_ + (lambda (_g103979103998_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103997104016_)) - (let ((_e104002104018_ + (gx#stx-pair? _g103979103998_)) + (let ((_e103984104000_ (let () (declare (not safe)) - (gx#stx-e _g103997104016_)))) - (let ((_hd104001104021_ + (gx#stx-e _g103979103998_)))) + (let ((_hd103983104003_ (let () (declare (not safe)) - (##car _e104002104018_))) - (_tl104000104023_ + (##car _e103984104000_))) + (_tl103982104005_ (let () (declare (not safe)) - (##cdr _e104002104018_)))) + (##cdr _e103984104000_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104000104023_)) - (let ((_e104005104026_ + (gx#stx-pair? _tl103982104005_)) + (let ((_e103987104008_ (let () (declare (not safe)) - (gx#stx-e _tl104000104023_)))) - (let ((_hd104004104029_ + (gx#stx-e _tl103982104005_)))) + (let ((_hd103986104011_ (let () (declare (not safe)) - (##car _e104005104026_))) - (_tl104003104031_ + (##car _e103987104008_))) + (_tl103985104013_ (let () (declare (not safe)) - (##cdr _e104005104026_)))) + (##cdr _e103987104008_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl104003104031_)) - (let ((_e104008104034_ + (gx#stx-pair? _tl103985104013_)) + (let ((_e103990104016_ (let () (declare (not safe)) - (gx#stx-e _tl104003104031_)))) - (let ((_hd104007104037_ + (gx#stx-e _tl103985104013_)))) + (let ((_hd103989104019_ (let () (declare (not safe)) - (##car _e104008104034_))) - (_tl104006104039_ + (##car _e103990104016_))) + (_tl103988104021_ (let () (declare (not safe)) - (##cdr _e104008104034_)))) + (##cdr _e103990104016_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl104006104039_)) - ((lambda (_L104042_ _L104043_) - (let* ((_bind104058_ + _tl103988104021_)) + ((lambda (_L104024_ _L104025_) + (let* ((_bind104040_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L104043_))) - (_eid104060_ - (if _bind104058_ + _L104025_))) + (_eid104042_ + (if _bind104040_ (##structure-ref - _bind104058_ + _bind104040_ '1 gx#binding::t '#f) @@ -17391,405 +17391,405 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _L104043_))))) + (gx#stx-e _L104025_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp115050 + (let ((__tmp115032 (let () (declare (not safe)) (slot-ref__0 - _self103993_ + _self103975_ 'table)))) (declare (not safe)) (hash-put! - __tmp115050 - _eid104060_ - _eid104060_)) + __tmp115032 + _eid104042_ + _eid104042_)) (let () (declare (not safe)) (gxc#compile-e__1 - _self103993_ - _L104042_)))) - _hd104007104037_ - _hd104004104029_) + _self103975_ + _L104024_)))) + _hd103989104019_ + _hd103986104011_) (let () (declare (not safe)) - (_g103996104013_ - _g103997104016_))))) + (_g103978103995_ + _g103979103998_))))) (let () (declare (not safe)) - (_g103996104013_ _g103997104016_))))) + (_g103978103995_ _g103979103998_))))) (let () (declare (not safe)) - (_g103996104013_ _g103997104016_))))) + (_g103978103995_ _g103979103998_))))) (let () (declare (not safe)) - (_g103996104013_ _g103997104016_)))))) + (_g103978103995_ _g103979103998_)))))) (declare (not safe)) - (_g103995104063_ _stx103994_)))) + (_g103977104045_ _stx103976_)))) (define gxc#find-runtime-begin% - (lambda (_self103950_ _stx103951_) - (let* ((_g103953103963_ - (lambda (_g103954103960_) + (lambda (_self103932_ _stx103933_) + (let* ((_g103935103945_ + (lambda (_g103936103942_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103954103960_)))) - (_g103952103990_ - (lambda (_g103954103966_) + _g103936103942_)))) + (_g103934103972_ + (lambda (_g103936103948_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103954103966_)) - (let ((_e103958103968_ + (gx#stx-pair? _g103936103948_)) + (let ((_e103940103950_ (let () (declare (not safe)) - (gx#stx-e _g103954103966_)))) - (let ((_hd103957103971_ + (gx#stx-e _g103936103948_)))) + (let ((_hd103939103953_ (let () (declare (not safe)) - (##car _e103958103968_))) - (_tl103956103973_ + (##car _e103940103950_))) + (_tl103938103955_ (let () (declare (not safe)) - (##cdr _e103958103968_)))) - ((lambda (_L103976_) - (let ((__tmp115051 - (lambda (_g103985103987_) + (##cdr _e103940103950_)))) + ((lambda (_L103958_) + (let ((__tmp115033 + (lambda (_g103967103969_) (let () (declare (not safe)) (gxc#compile-e__1 - _self103950_ - _g103985103987_))))) + _self103932_ + _g103967103969_))))) (declare (not safe)) - (ormap1 __tmp115051 _L103976_))) - _tl103956103973_))) + (ormap1 __tmp115033 _L103958_))) + _tl103938103955_))) (let () (declare (not safe)) - (_g103953103963_ _g103954103966_)))))) + (_g103935103945_ _g103936103948_)))))) (declare (not safe)) - (_g103952103990_ _stx103951_)))) - (define gxc#count-values-single% (lambda (_self103947_ _stx103948_) '1)) + (_g103934103972_ _stx103933_)))) + (define gxc#count-values-single% (lambda (_self103929_ _stx103930_) '1)) (define gxc#count-values-call% - (lambda (_self103813_ _stx103814_) - (let* ((___stx114151114152_ _stx103814_) - (_g103817103846_ + (lambda (_self103795_ _stx103796_) + (let* ((___stx114133114134_ _stx103796_) + (_g103799103828_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx114151114152_))))) - (let ((___kont114153114154_ - (lambda (_L103914_ _L103915_) - (length (let ((__tmp115052 - (lambda (_g103936103939_ _g103937103941_) + ___stx114133114134_))))) + (let ((___kont114135114136_ + (lambda (_L103896_ _L103897_) + (length (let ((__tmp115034 + (lambda (_g103918103921_ _g103919103923_) (let () (declare (not safe)) - (cons _g103936103939_ - _g103937103941_))))) + (cons _g103918103921_ + _g103919103923_))))) (declare (not safe)) - (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_) + (foldr1 __tmp115034 '() _L103896_))))) + (___kont114139114140_ (lambda () '#f))) + (let ((___match114178114179_ + (lambda (_e103805103840_ + _hd103804103843_ + _tl103803103845_ + _e103808103848_ + _hd103807103851_ + _tl103806103853_ + _e103811103856_ + _hd103810103859_ + _tl103809103861_ + _e103814103864_ + _hd103813103867_ + _tl103812103869_ + ___splice114137114138_ + _target103815103872_ + _tl103817103874_) + (letrec ((_loop103818103877_ + (lambda (_hd103816103880_ _rand103822103882_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd103834103898_)) - (let ((_e103837103903_ + (gx#stx-pair? _hd103816103880_)) + (let ((_e103819103885_ (let () (declare (not safe)) - (gx#stx-e _hd103834103898_)))) - (let ((_lp-tl103839103908_ + (gx#stx-e _hd103816103880_)))) + (let ((_lp-tl103821103890_ (let () (declare (not safe)) - (##cdr _e103837103903_))) - (_lp-hd103838103906_ + (##cdr _e103819103885_))) + (_lp-hd103820103888_ (let () (declare (not safe)) - (##car _e103837103903_)))) - (let ((__tmp115053 + (##car _e103819103885_)))) + (let ((__tmp115035 (let () (declare (not safe)) - (cons _lp-hd103838103906_ - _rand103840103900_)))) + (cons _lp-hd103820103888_ + _rand103822103882_)))) (declare (not safe)) - (_loop103836103895_ - _lp-tl103839103908_ - __tmp115053)))) - (let ((_rand103841103911_ - (reverse _rand103840103900_))) - (let ((_L103914_ _rand103841103911_) - (_L103915_ _hd103831103885_)) + (_loop103818103877_ + _lp-tl103821103890_ + __tmp115035)))) + (let ((_rand103823103893_ + (reverse _rand103822103882_))) + (let ((_L103896_ _rand103823103893_) + (_L103897_ _hd103813103867_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L103915_ + _L103897_ 'values)) - (___kont114153114154_ - _L103914_ - _L103915_) - (___kont114157114158_)))))))) + (___kont114135114136_ + _L103896_ + _L103897_) + (___kont114139114140_)))))))) (let () (declare (not safe)) - (_loop103836103895_ _target103833103890_ '())))))) + (_loop103818103877_ _target103815103872_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx114151114152_)) - (let ((_e103823103858_ + (gx#stx-pair? ___stx114133114134_)) + (let ((_e103805103840_ (let () (declare (not safe)) - (gx#stx-e ___stx114151114152_)))) - (let ((_tl103821103863_ + (gx#stx-e ___stx114133114134_)))) + (let ((_tl103803103845_ (let () (declare (not safe)) - (##cdr _e103823103858_))) - (_hd103822103861_ + (##cdr _e103805103840_))) + (_hd103804103843_ (let () (declare (not safe)) - (##car _e103823103858_)))) + (##car _e103805103840_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103821103863_)) - (let ((_e103826103866_ + (gx#stx-pair? _tl103803103845_)) + (let ((_e103808103848_ (let () (declare (not safe)) - (gx#stx-e _tl103821103863_)))) - (let ((_tl103824103871_ + (gx#stx-e _tl103803103845_)))) + (let ((_tl103806103853_ (let () (declare (not safe)) - (##cdr _e103826103866_))) - (_hd103825103869_ + (##cdr _e103808103848_))) + (_hd103807103851_ (let () (declare (not safe)) - (##car _e103826103866_)))) + (##car _e103808103848_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd103825103869_)) - (let ((_e103829103874_ + (gx#stx-pair? _hd103807103851_)) + (let ((_e103811103856_ (let () (declare (not safe)) - (gx#stx-e _hd103825103869_)))) - (let ((_tl103827103879_ + (gx#stx-e _hd103807103851_)))) + (let ((_tl103809103861_ (let () (declare (not safe)) - (##cdr _e103829103874_))) - (_hd103828103877_ + (##cdr _e103811103856_))) + (_hd103810103859_ (let () (declare (not safe)) - (##car _e103829103874_)))) + (##car _e103811103856_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd103828103877_)) + (gx#identifier? _hd103810103859_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd103828103877_)) + _hd103810103859_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103827103879_)) - (let ((_e103832103882_ + _tl103809103861_)) + (let ((_e103814103864_ (let () (declare (not safe)) (gx#stx-e - _tl103827103879_)))) - (let ((_tl103830103887_ + _tl103809103861_)))) + (let ((_tl103812103869_ (let () (declare (not safe)) - (##cdr _e103832103882_))) - (_hd103831103885_ + (##cdr _e103814103864_))) + (_hd103813103867_ (let () (declare (not safe)) - (##car _e103832103882_)))) + (##car _e103814103864_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl103830103887_)) + _tl103812103869_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _tl103824103871_)) - (let ((___splice114155114156_ + (gx#stx-pair/null? _tl103806103853_)) + (let ((___splice114137114138_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl103824103871_ '0)))) - (let ((_tl103835103892_ + (gx#syntax-split-splice _tl103806103853_ '0)))) + (let ((_tl103817103874_ (let () (declare (not safe)) - (##vector-ref ___splice114155114156_ '1))) - (_target103833103890_ + (##vector-ref ___splice114137114138_ '1))) + (_target103815103872_ (let () (declare (not safe)) - (##vector-ref ___splice114155114156_ '0)))) + (##vector-ref ___splice114137114138_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103835103892_)) - (___match114196114197_ - _e103823103858_ - _hd103822103861_ - _tl103821103863_ - _e103826103866_ - _hd103825103869_ - _tl103824103871_ - _e103829103874_ - _hd103828103877_ - _tl103827103879_ - _e103832103882_ - _hd103831103885_ - _tl103830103887_ - ___splice114155114156_ - _target103833103890_ - _tl103835103892_) - (___kont114157114158_)))) - (___kont114157114158_)) - (___kont114157114158_)))) + (gx#stx-null? _tl103817103874_)) + (___match114178114179_ + _e103805103840_ + _hd103804103843_ + _tl103803103845_ + _e103808103848_ + _hd103807103851_ + _tl103806103853_ + _e103811103856_ + _hd103810103859_ + _tl103809103861_ + _e103814103864_ + _hd103813103867_ + _tl103812103869_ + ___splice114137114138_ + _target103815103872_ + _tl103817103874_) + (___kont114139114140_)))) + (___kont114139114140_)) + (___kont114139114140_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont114157114158_)) - (___kont114157114158_)) - (___kont114157114158_)))) - (___kont114157114158_)))) - (___kont114157114158_)))) - (___kont114157114158_))))))) + (___kont114139114140_)) + (___kont114139114140_)) + (___kont114139114140_)))) + (___kont114139114140_)))) + (___kont114139114140_)))) + (___kont114139114140_))))))) (define gxc#count-values-if% - (lambda (_self103716_ _stx103717_) - (let* ((_g103719103740_ - (lambda (_g103720103737_) + (lambda (_self103698_ _stx103699_) + (let* ((_g103701103722_ + (lambda (_g103702103719_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103720103737_)))) - (_g103718103810_ - (lambda (_g103720103743_) + _g103702103719_)))) + (_g103700103792_ + (lambda (_g103702103725_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103720103743_)) - (let ((_e103726103745_ + (gx#stx-pair? _g103702103725_)) + (let ((_e103708103727_ (let () (declare (not safe)) - (gx#stx-e _g103720103743_)))) - (let ((_hd103725103748_ + (gx#stx-e _g103702103725_)))) + (let ((_hd103707103730_ (let () (declare (not safe)) - (##car _e103726103745_))) - (_tl103724103750_ + (##car _e103708103727_))) + (_tl103706103732_ (let () (declare (not safe)) - (##cdr _e103726103745_)))) + (##cdr _e103708103727_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103724103750_)) - (let ((_e103729103753_ + (gx#stx-pair? _tl103706103732_)) + (let ((_e103711103735_ (let () (declare (not safe)) - (gx#stx-e _tl103724103750_)))) - (let ((_hd103728103756_ + (gx#stx-e _tl103706103732_)))) + (let ((_hd103710103738_ (let () (declare (not safe)) - (##car _e103729103753_))) - (_tl103727103758_ + (##car _e103711103735_))) + (_tl103709103740_ (let () (declare (not safe)) - (##cdr _e103729103753_)))) + (##cdr _e103711103735_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103727103758_)) - (let ((_e103732103761_ + (gx#stx-pair? _tl103709103740_)) + (let ((_e103714103743_ (let () (declare (not safe)) - (gx#stx-e _tl103727103758_)))) - (let ((_hd103731103764_ + (gx#stx-e _tl103709103740_)))) + (let ((_hd103713103746_ (let () (declare (not safe)) - (##car _e103732103761_))) - (_tl103730103766_ + (##car _e103714103743_))) + (_tl103712103748_ (let () (declare (not safe)) - (##cdr _e103732103761_)))) + (##cdr _e103714103743_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103730103766_)) - (let ((_e103735103769_ + _tl103712103748_)) + (let ((_e103717103751_ (let () (declare (not safe)) (gx#stx-e - _tl103730103766_)))) - (let ((_hd103734103772_ + _tl103712103748_)))) + (let ((_hd103716103754_ (let () (declare (not safe)) - (##car _e103735103769_))) - (_tl103733103774_ + (##car _e103717103751_))) + (_tl103715103756_ (let () (declare (not safe)) - (##cdr _e103735103769_)))) + (##cdr _e103717103751_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl103733103774_)) - ((lambda (_L103777_ - _L103778_ - _L103779_) - (let ((_c1103796103798_ + _tl103715103756_)) + ((lambda (_L103759_ + _L103760_ + _L103761_) + (let ((_c1103778103780_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _self103716_ _L103778_)))) - (if _c1103796103798_ - (let* ((_c1103801_ _c1103796103798_) - (_c2103802103804_ + (gxc#compile-e__1 _self103698_ _L103760_)))) + (if _c1103778103780_ + (let* ((_c1103783_ _c1103778103780_) + (_c2103784103786_ (let () (declare (not safe)) - (gxc#compile-e__1 _self103716_ _L103777_)))) - (if _c2103802103804_ - (let ((_c2103807_ _c2103802103804_)) - (if (fx= _c1103801_ _c2103807_) _c1103801_ '#f)) + (gxc#compile-e__1 _self103698_ _L103759_)))) + (if _c2103784103786_ + (let ((_c2103789_ _c2103784103786_)) + (if (fx= _c1103783_ _c2103789_) _c1103783_ '#f)) '#f)) '#f))) - _hd103734103772_ - _hd103731103764_ - _hd103728103756_) + _hd103716103754_ + _hd103713103746_ + _hd103710103738_) (let () (declare (not safe)) - (_g103719103740_ _g103720103743_))))) + (_g103701103722_ _g103702103725_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g103719103740_ - _g103720103743_))))) + (_g103701103722_ + _g103702103725_))))) (let () (declare (not safe)) - (_g103719103740_ _g103720103743_))))) + (_g103701103722_ _g103702103725_))))) (let () (declare (not safe)) - (_g103719103740_ _g103720103743_))))) + (_g103701103722_ _g103702103725_))))) (let () (declare (not safe)) - (_g103719103740_ _g103720103743_)))))) + (_g103701103722_ _g103702103725_)))))) (declare (not safe)) - (_g103718103810_ _stx103717_)))))) + (_g103700103792_ _stx103699_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~1.scm b/src/bootstrap/gerbil/compiler/compile~1.scm index ae085231e..aa6887726 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]#_g115056_| + (define |gxc[1]#_g115038_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115058_| + (define |gxc[1]#_g115040_| (##structure gx#syntax-quote::t '::collect-bindings::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115060_| + (define |gxc[1]#_g115042_| (##structure gx#syntax-quote::t 'make-::collect-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115062_| + (define |gxc[1]#_g115044_| (##structure gx#syntax-quote::t '::collect-bindings? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115066_| + (define |gxc[1]#_g115048_| (##structure gx#syntax-quote::t '::lift-modules::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115068_| + (define |gxc[1]#_g115050_| (##structure gx#syntax-quote::t 'make-::lift-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115070_| + (define |gxc[1]#_g115052_| (##structure gx#syntax-quote::t '::lift-modules? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115074_| + (define |gxc[1]#_g115056_| (##structure gx#syntax-quote::t '::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115078_| + (define |gxc[1]#_g115060_| (##structure gx#syntax-quote::t '::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115082_| + (define |gxc[1]#_g115064_| (##structure gx#syntax-quote::t '&::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115086_| + (define |gxc[1]#_g115068_| (##structure gx#syntax-quote::t '&::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115088_| + (define |gxc[1]#_g115070_| (##structure gx#syntax-quote::t '::find-runtime-code::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115090_| + (define |gxc[1]#_g115072_| (##structure gx#syntax-quote::t 'make-::find-runtime-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115092_| + (define |gxc[1]#_g115074_| (##structure gx#syntax-quote::t '::find-runtime-code? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115095_| + (define |gxc[1]#_g115077_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115097_| + (define |gxc[1]#_g115079_| (##structure gx#syntax-quote::t '::find-lambda-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115099_| + (define |gxc[1]#_g115081_| (##structure gx#syntax-quote::t 'make-::find-lambda-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115101_| + (define |gxc[1]#_g115083_| (##structure gx#syntax-quote::t '::find-lambda-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115104_| + (define |gxc[1]#_g115086_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115106_| + (define |gxc[1]#_g115088_| (##structure gx#syntax-quote::t '::count-values::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115108_| + (define |gxc[1]#_g115090_| (##structure gx#syntax-quote::t 'make-::count-values #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115110_| + (define |gxc[1]#_g115092_| (##structure gx#syntax-quote::t '::count-values? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115112_| + (define |gxc[1]#_g115094_| (##structure gx#syntax-quote::t '::generate-runtime-empty::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115114_| + (define |gxc[1]#_g115096_| (##structure gx#syntax-quote::t 'make-::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115116_| + (define |gxc[1]#_g115098_| (##structure gx#syntax-quote::t '::generate-runtime-empty? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115119_| + (define |gxc[1]#_g115101_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115121_| + (define |gxc[1]#_g115103_| (##structure gx#syntax-quote::t '::generate-loader::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115123_| + (define |gxc[1]#_g115105_| (##structure gx#syntax-quote::t 'make-::generate-loader #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115125_| + (define |gxc[1]#_g115107_| (##structure gx#syntax-quote::t '::generate-loader? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115129_| + (define |gxc[1]#_g115111_| (##structure gx#syntax-quote::t '::generate-runtime::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115131_| + (define |gxc[1]#_g115113_| (##structure gx#syntax-quote::t 'make-::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115133_| + (define |gxc[1]#_g115115_| (##structure gx#syntax-quote::t '::generate-runtime? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115136_| + (define |gxc[1]#_g115118_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115138_| + (define |gxc[1]#_g115120_| (##structure gx#syntax-quote::t '::generate-runtime-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115140_| + (define |gxc[1]#_g115122_| (##structure gx#syntax-quote::t 'make-::generate-runtime-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115142_| + (define |gxc[1]#_g115124_| (##structure gx#syntax-quote::t '::generate-runtime-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115144_| + (define |gxc[1]#_g115126_| (##structure gx#syntax-quote::t '::collect-expression-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115146_| + (define |gxc[1]#_g115128_| (##structure gx#syntax-quote::t 'make-::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115148_| + (define |gxc[1]#_g115130_| (##structure gx#syntax-quote::t '::collect-expression-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115152_| + (define |gxc[1]#_g115134_| (##structure gx#syntax-quote::t '::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115156_| + (define |gxc[1]#_g115138_| (##structure gx#syntax-quote::t '::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115160_| + (define |gxc[1]#_g115142_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115164_| + (define |gxc[1]#_g115146_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115167_| + (define |gxc[1]#_g115149_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115169_| + (define |gxc[1]#_g115151_| (##structure gx#syntax-quote::t '::generate-meta::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115171_| + (define |gxc[1]#_g115153_| (##structure gx#syntax-quote::t 'make-::generate-meta #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115173_| + (define |gxc[1]#_g115155_| (##structure gx#syntax-quote::t '::generate-meta? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115177_| + (define |gxc[1]#_g115159_| (##structure gx#syntax-quote::t '::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115181_| + (define |gxc[1]#_g115163_| (##structure gx#syntax-quote::t '::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115185_| + (define |gxc[1]#_g115167_| (##structure gx#syntax-quote::t '&::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115189_| + (define |gxc[1]#_g115171_| (##structure gx#syntax-quote::t '&::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115191_| + (define |gxc[1]#_g115173_| (##structure gx#syntax-quote::t '::generate-meta-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115193_| + (define |gxc[1]#_g115175_| (##structure gx#syntax-quote::t 'make-::generate-meta-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115195_| + (define |gxc[1]#_g115177_| (##structure gx#syntax-quote::t '::generate-meta-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115199_| + (define |gxc[1]#_g115181_| (##structure gx#syntax-quote::t '::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115203_| + (define |gxc[1]#_g115185_| (##structure gx#syntax-quote::t '::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115207_| + (define |gxc[1]#_g115189_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115211_| + (define |gxc[1]#_g115193_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115363_| + (define |gxc[1]#_g115345_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115365_| + (define |gxc[1]#_g115347_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115367_| + (define |gxc[1]#_g115349_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115374_| + (define |gxc[1]#_g115356_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115377_| + (define |gxc[1]#_g115359_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115380_| + (define |gxc[1]#_g115362_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115383_| + (define |gxc[1]#_g115365_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115390_| + (define |gxc[1]#_g115372_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115393_| + (define |gxc[1]#_g115375_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115396_| + (define |gxc[1]#_g115378_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115399_| + (define |gxc[1]#_g115381_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115406_| + (define |gxc[1]#_g115388_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115409_| + (define |gxc[1]#_g115391_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115412_| + (define |gxc[1]#_g115394_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115415_| + (define |gxc[1]#_g115397_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115422_| + (define |gxc[1]#_g115404_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115425_| + (define |gxc[1]#_g115407_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115428_| + (define |gxc[1]#_g115410_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115431_| + (define |gxc[1]#_g115413_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115433_| + (define |gxc[1]#_g115415_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115435_| + (define |gxc[1]#_g115417_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115437_| + (define |gxc[1]#_g115419_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115444_| + (define |gxc[1]#_g115426_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115447_| + (define |gxc[1]#_g115429_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115450_| + (define |gxc[1]#_g115432_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115453_| + (define |gxc[1]#_g115435_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115460_| + (define |gxc[1]#_g115442_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115463_| + (define |gxc[1]#_g115445_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115466_| + (define |gxc[1]#_g115448_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115469_| + (define |gxc[1]#_g115451_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115476_| + (define |gxc[1]#_g115458_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115479_| + (define |gxc[1]#_g115461_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115482_| + (define |gxc[1]#_g115464_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115485_| + (define |gxc[1]#_g115467_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115492_| + (define |gxc[1]#_g115474_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115495_| + (define |gxc[1]#_g115477_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115498_| + (define |gxc[1]#_g115480_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g115501_| + (define |gxc[1]#_g115483_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! @@ -674,7 +674,7 @@ '())) (begin (define |gxc[:0:]#::collect-bindings| - (let ((__obj114198 + (let ((__obj114180 (let () (declare (not safe)) (##structure @@ -698,7 +698,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114180 '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! - __obj114198 + __obj114180 '::collect-bindings '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -714,26 +714,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114180 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115054 - (let ((__tmp115055 |gxc[1]#_g115056_|)) + (let ((__tmp115036 + (let ((__tmp115037 |gxc[1]#_g115038_|)) (declare (not safe)) - (cons __tmp115055 '())))) + (cons __tmp115037 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114198 - __tmp115054 + __obj114180 + __tmp115036 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114180 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -741,7 +741,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114180 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -749,7 +749,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114180 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -757,39 +757,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114180 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115057 |gxc[1]#_g115058_|)) + (let ((__tmp115039 |gxc[1]#_g115040_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114198 - __tmp115057 + __obj114180 + __tmp115039 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115059 |gxc[1]#_g115060_|)) + (let ((__tmp115041 |gxc[1]#_g115042_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114198 - __tmp115059 + __obj114180 + __tmp115041 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115061 |gxc[1]#_g115062_|)) + (let ((__tmp115043 |gxc[1]#_g115044_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114198 - __tmp115061 + __obj114180 + __tmp115043 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114180 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -797,7 +797,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114180 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -805,7 +805,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114180 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -813,14 +813,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114198 + __obj114180 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114198)) + __obj114180)) (define |gxc[:0:]#::lift-modules| - (let ((__obj114200 + (let ((__obj114182 (let () (declare (not safe)) (##structure @@ -844,7 +844,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114182 '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! - __obj114200 + __obj114182 '::lift-modules '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -860,26 +860,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114182 '(modules) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115063 - (let ((__tmp115064 |gxc[1]#_g115056_|)) + (let ((__tmp115045 + (let ((__tmp115046 |gxc[1]#_g115038_|)) (declare (not safe)) - (cons __tmp115064 '())))) + (cons __tmp115046 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114200 - __tmp115063 + __obj114182 + __tmp115045 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114182 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -887,7 +887,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114182 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -895,7 +895,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114182 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -903,94 +903,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114200 + __obj114182 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115065 |gxc[1]#_g115066_|)) + (let ((__tmp115047 |gxc[1]#_g115048_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114200 - __tmp115065 + __obj114182 + __tmp115047 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115067 |gxc[1]#_g115068_|)) + (let ((__tmp115049 |gxc[1]#_g115050_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114200 - __tmp115067 + __obj114182 + __tmp115049 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115069 |gxc[1]#_g115070_|)) + (let ((__tmp115051 |gxc[1]#_g115052_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114200 - __tmp115069 + __obj114182 + __tmp115051 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115071 - (let ((__tmp115072 - (let ((__tmp115073 |gxc[1]#_g115074_|)) + (let ((__tmp115053 + (let ((__tmp115054 + (let ((__tmp115055 |gxc[1]#_g115056_|)) (declare (not safe)) - (cons 'modules __tmp115073)))) + (cons 'modules __tmp115055)))) (declare (not safe)) - (cons __tmp115072 '())))) + (cons __tmp115054 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114200 - __tmp115071 + __obj114182 + __tmp115053 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115075 - (let ((__tmp115076 - (let ((__tmp115077 |gxc[1]#_g115078_|)) + (let ((__tmp115057 + (let ((__tmp115058 + (let ((__tmp115059 |gxc[1]#_g115060_|)) (declare (not safe)) - (cons 'modules __tmp115077)))) + (cons 'modules __tmp115059)))) (declare (not safe)) - (cons __tmp115076 '())))) + (cons __tmp115058 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114200 - __tmp115075 + __obj114182 + __tmp115057 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115079 - (let ((__tmp115080 - (let ((__tmp115081 |gxc[1]#_g115082_|)) + (let ((__tmp115061 + (let ((__tmp115062 + (let ((__tmp115063 |gxc[1]#_g115064_|)) (declare (not safe)) - (cons 'modules __tmp115081)))) + (cons 'modules __tmp115063)))) (declare (not safe)) - (cons __tmp115080 '())))) + (cons __tmp115062 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114200 - __tmp115079 + __obj114182 + __tmp115061 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115083 - (let ((__tmp115084 - (let ((__tmp115085 |gxc[1]#_g115086_|)) + (let ((__tmp115065 + (let ((__tmp115066 + (let ((__tmp115067 |gxc[1]#_g115068_|)) (declare (not safe)) - (cons 'modules __tmp115085)))) + (cons 'modules __tmp115067)))) (declare (not safe)) - (cons __tmp115084 '())))) + (cons __tmp115066 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114200 - __tmp115083 + __obj114182 + __tmp115065 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114200)) + __obj114182)) (define |gxc[:0:]#::find-runtime-code| - (let ((__obj114202 + (let ((__obj114184 (let () (declare (not safe)) (##structure @@ -1014,7 +1014,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114184 '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! - __obj114202 + __obj114184 '::find-runtime-code '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1030,7 +1030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114184 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -1038,7 +1038,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114184 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1046,7 +1046,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114184 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1054,7 +1054,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114184 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1062,7 +1062,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114184 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1070,39 +1070,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114184 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115087 |gxc[1]#_g115088_|)) + (let ((__tmp115069 |gxc[1]#_g115070_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114202 - __tmp115087 + __obj114184 + __tmp115069 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115089 |gxc[1]#_g115090_|)) + (let ((__tmp115071 |gxc[1]#_g115072_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114202 - __tmp115089 + __obj114184 + __tmp115071 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115091 |gxc[1]#_g115092_|)) + (let ((__tmp115073 |gxc[1]#_g115074_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114202 - __tmp115091 + __obj114184 + __tmp115073 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114184 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1110,7 +1110,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114184 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1118,7 +1118,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114184 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1126,14 +1126,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114202 + __obj114184 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114202)) + __obj114184)) (define |gxc[:0:]#::find-lambda-expression| - (let ((__obj114204 + (let ((__obj114186 (let () (declare (not safe)) (##structure @@ -1157,7 +1157,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114186 '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! - __obj114204 + __obj114186 '::find-lambda-expression '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1173,26 +1173,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114186 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115093 - (let ((__tmp115094 |gxc[1]#_g115095_|)) + (let ((__tmp115075 + (let ((__tmp115076 |gxc[1]#_g115077_|)) (declare (not safe)) - (cons __tmp115094 '())))) + (cons __tmp115076 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114204 - __tmp115093 + __obj114186 + __tmp115075 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114186 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1200,7 +1200,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114186 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1208,7 +1208,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114186 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1216,39 +1216,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114186 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115096 |gxc[1]#_g115097_|)) + (let ((__tmp115078 |gxc[1]#_g115079_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114204 - __tmp115096 + __obj114186 + __tmp115078 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115098 |gxc[1]#_g115099_|)) + (let ((__tmp115080 |gxc[1]#_g115081_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114204 - __tmp115098 + __obj114186 + __tmp115080 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115100 |gxc[1]#_g115101_|)) + (let ((__tmp115082 |gxc[1]#_g115083_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114204 - __tmp115100 + __obj114186 + __tmp115082 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114186 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1256,7 +1256,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114186 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1264,7 +1264,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114186 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1272,14 +1272,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114204 + __obj114186 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114204)) + __obj114186)) (define |gxc[:0:]#::count-values| - (let ((__obj114206 + (let ((__obj114188 (let () (declare (not safe)) (##structure @@ -1303,7 +1303,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114206 + __obj114188 '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! - __obj114206 + __obj114188 '::count-values '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1319,26 +1319,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114206 + __obj114188 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115102 - (let ((__tmp115103 |gxc[1]#_g115104_|)) + (let ((__tmp115084 + (let ((__tmp115085 |gxc[1]#_g115086_|)) (declare (not safe)) - (cons __tmp115103 '())))) + (cons __tmp115085 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114206 - __tmp115102 + __obj114188 + __tmp115084 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114206 + __obj114188 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1346,7 +1346,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114206 + __obj114188 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1354,7 +1354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114206 + __obj114188 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1362,39 +1362,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114206 + __obj114188 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115105 |gxc[1]#_g115106_|)) + (let ((__tmp115087 |gxc[1]#_g115088_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114206 - __tmp115105 + __obj114188 + __tmp115087 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115107 |gxc[1]#_g115108_|)) + (let ((__tmp115089 |gxc[1]#_g115090_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114206 - __tmp115107 + __obj114188 + __tmp115089 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115109 |gxc[1]#_g115110_|)) + (let ((__tmp115091 |gxc[1]#_g115092_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114206 - __tmp115109 + __obj114188 + __tmp115091 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114206 + __obj114188 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1402,7 +1402,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114206 + __obj114188 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1410,7 +1410,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114206 + __obj114188 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1418,14 +1418,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114206 + __obj114188 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114206)) + __obj114188)) (define |gxc[:0:]#::generate-runtime-empty| - (let ((__obj114208 + (let ((__obj114190 (let () (declare (not safe)) (##structure @@ -1449,7 +1449,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114208 + __obj114190 '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! - __obj114208 + __obj114190 '::generate-runtime-empty '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1465,7 +1465,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114208 + __obj114190 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -1473,7 +1473,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114208 + __obj114190 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1481,7 +1481,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114208 + __obj114190 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1489,7 +1489,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114208 + __obj114190 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1497,7 +1497,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114208 + __obj114190 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1505,39 +1505,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114208 + __obj114190 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115111 |gxc[1]#_g115112_|)) + (let ((__tmp115093 |gxc[1]#_g115094_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114208 - __tmp115111 + __obj114190 + __tmp115093 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115113 |gxc[1]#_g115114_|)) + (let ((__tmp115095 |gxc[1]#_g115096_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114208 - __tmp115113 + __obj114190 + __tmp115095 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115115 |gxc[1]#_g115116_|)) + (let ((__tmp115097 |gxc[1]#_g115098_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114208 - __tmp115115 + __obj114190 + __tmp115097 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114208 + __obj114190 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1545,7 +1545,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114208 + __obj114190 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1553,7 +1553,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114208 + __obj114190 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1561,14 +1561,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114208 + __obj114190 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114208)) + __obj114190)) (define |gxc[:0:]#::generate-loader| - (let ((__obj114209 + (let ((__obj114191 (let () (declare (not safe)) (##structure @@ -1592,7 +1592,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114191 '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! - __obj114209 + __obj114191 '::generate-loader '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1608,26 +1608,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114191 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115117 - (let ((__tmp115118 |gxc[1]#_g115119_|)) + (let ((__tmp115099 + (let ((__tmp115100 |gxc[1]#_g115101_|)) (declare (not safe)) - (cons __tmp115118 '())))) + (cons __tmp115100 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114209 - __tmp115117 + __obj114191 + __tmp115099 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114191 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1635,7 +1635,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114191 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1643,7 +1643,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114191 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1651,39 +1651,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114191 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115120 |gxc[1]#_g115121_|)) + (let ((__tmp115102 |gxc[1]#_g115103_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114209 - __tmp115120 + __obj114191 + __tmp115102 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115122 |gxc[1]#_g115123_|)) + (let ((__tmp115104 |gxc[1]#_g115105_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114209 - __tmp115122 + __obj114191 + __tmp115104 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115124 |gxc[1]#_g115125_|)) + (let ((__tmp115106 |gxc[1]#_g115107_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114209 - __tmp115124 + __obj114191 + __tmp115106 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114191 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1691,7 +1691,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114191 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1699,7 +1699,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114191 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1707,14 +1707,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114209 + __obj114191 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114209)) + __obj114191)) (define |gxc[:0:]#::generate-runtime| - (let ((__obj114211 + (let ((__obj114193 (let () (declare (not safe)) (##structure @@ -1738,7 +1738,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114193 '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! - __obj114211 + __obj114193 '::generate-runtime '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1754,26 +1754,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114193 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115126 - (let ((__tmp115127 |gxc[1]#_g115119_|)) + (let ((__tmp115108 + (let ((__tmp115109 |gxc[1]#_g115101_|)) (declare (not safe)) - (cons __tmp115127 '())))) + (cons __tmp115109 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114211 - __tmp115126 + __obj114193 + __tmp115108 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114193 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1781,7 +1781,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114193 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1789,7 +1789,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114193 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1797,39 +1797,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114193 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115128 |gxc[1]#_g115129_|)) + (let ((__tmp115110 |gxc[1]#_g115111_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114211 - __tmp115128 + __obj114193 + __tmp115110 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115130 |gxc[1]#_g115131_|)) + (let ((__tmp115112 |gxc[1]#_g115113_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114211 - __tmp115130 + __obj114193 + __tmp115112 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115132 |gxc[1]#_g115133_|)) + (let ((__tmp115114 |gxc[1]#_g115115_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114211 - __tmp115132 + __obj114193 + __tmp115114 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114193 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1837,7 +1837,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114193 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1845,7 +1845,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114193 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1853,14 +1853,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114211 + __obj114193 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114211)) + __obj114193)) (define |gxc[:0:]#::generate-runtime-phi| - (let ((__obj114213 + (let ((__obj114195 (let () (declare (not safe)) (##structure @@ -1884,7 +1884,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114195 '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! - __obj114213 + __obj114195 '::generate-runtime-phi '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1900,26 +1900,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114195 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115134 - (let ((__tmp115135 |gxc[1]#_g115136_|)) + (let ((__tmp115116 + (let ((__tmp115117 |gxc[1]#_g115118_|)) (declare (not safe)) - (cons __tmp115135 '())))) + (cons __tmp115117 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114213 - __tmp115134 + __obj114195 + __tmp115116 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114195 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1927,7 +1927,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114195 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1935,7 +1935,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114195 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1943,39 +1943,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114195 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115137 |gxc[1]#_g115138_|)) + (let ((__tmp115119 |gxc[1]#_g115120_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114213 - __tmp115137 + __obj114195 + __tmp115119 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115139 |gxc[1]#_g115140_|)) + (let ((__tmp115121 |gxc[1]#_g115122_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114213 - __tmp115139 + __obj114195 + __tmp115121 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115141 |gxc[1]#_g115142_|)) + (let ((__tmp115123 |gxc[1]#_g115124_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114213 - __tmp115141 + __obj114195 + __tmp115123 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114195 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1983,7 +1983,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114195 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1991,7 +1991,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114195 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1999,14 +1999,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114213 + __obj114195 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114213)) + __obj114195)) (define |gxc[:0:]#::collect-expression-refs| - (let ((__obj114215 + (let ((__obj114197 (let () (declare (not safe)) (##structure @@ -2030,7 +2030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114197 '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! - __obj114215 + __obj114197 '::collect-expression-refs '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2046,7 +2046,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114197 '(table) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -2054,7 +2054,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114197 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -2062,7 +2062,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114197 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2070,7 +2070,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114197 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2078,7 +2078,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114197 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2086,94 +2086,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114215 + __obj114197 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115143 |gxc[1]#_g115144_|)) + (let ((__tmp115125 |gxc[1]#_g115126_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114215 - __tmp115143 + __obj114197 + __tmp115125 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115145 |gxc[1]#_g115146_|)) + (let ((__tmp115127 |gxc[1]#_g115128_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114215 - __tmp115145 + __obj114197 + __tmp115127 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115147 |gxc[1]#_g115148_|)) + (let ((__tmp115129 |gxc[1]#_g115130_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114215 - __tmp115147 + __obj114197 + __tmp115129 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115149 - (let ((__tmp115150 - (let ((__tmp115151 |gxc[1]#_g115152_|)) + (let ((__tmp115131 + (let ((__tmp115132 + (let ((__tmp115133 |gxc[1]#_g115134_|)) (declare (not safe)) - (cons 'table __tmp115151)))) + (cons 'table __tmp115133)))) (declare (not safe)) - (cons __tmp115150 '())))) + (cons __tmp115132 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114215 - __tmp115149 + __obj114197 + __tmp115131 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115153 - (let ((__tmp115154 - (let ((__tmp115155 |gxc[1]#_g115156_|)) + (let ((__tmp115135 + (let ((__tmp115136 + (let ((__tmp115137 |gxc[1]#_g115138_|)) (declare (not safe)) - (cons 'table __tmp115155)))) + (cons 'table __tmp115137)))) (declare (not safe)) - (cons __tmp115154 '())))) + (cons __tmp115136 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114215 - __tmp115153 + __obj114197 + __tmp115135 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115157 - (let ((__tmp115158 - (let ((__tmp115159 |gxc[1]#_g115160_|)) + (let ((__tmp115139 + (let ((__tmp115140 + (let ((__tmp115141 |gxc[1]#_g115142_|)) (declare (not safe)) - (cons 'table __tmp115159)))) + (cons 'table __tmp115141)))) (declare (not safe)) - (cons __tmp115158 '())))) + (cons __tmp115140 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114215 - __tmp115157 + __obj114197 + __tmp115139 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115161 - (let ((__tmp115162 - (let ((__tmp115163 |gxc[1]#_g115164_|)) + (let ((__tmp115143 + (let ((__tmp115144 + (let ((__tmp115145 |gxc[1]#_g115146_|)) (declare (not safe)) - (cons 'table __tmp115163)))) + (cons 'table __tmp115145)))) (declare (not safe)) - (cons __tmp115162 '())))) + (cons __tmp115144 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114215 - __tmp115161 + __obj114197 + __tmp115143 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114215)) + __obj114197)) (define |gxc[:0:]#::generate-meta| - (let ((__obj114217 + (let ((__obj114199 (let () (declare (not safe)) (##structure @@ -2197,7 +2197,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114217 + __obj114199 '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! - __obj114217 + __obj114199 '::generate-meta '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2213,26 +2213,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114217 + __obj114199 '(state) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115165 - (let ((__tmp115166 |gxc[1]#_g115167_|)) + (let ((__tmp115147 + (let ((__tmp115148 |gxc[1]#_g115149_|)) (declare (not safe)) - (cons __tmp115166 '())))) + (cons __tmp115148 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114217 - __tmp115165 + __obj114199 + __tmp115147 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114217 + __obj114199 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2240,7 +2240,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114217 + __obj114199 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2248,7 +2248,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114217 + __obj114199 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2256,94 +2256,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114217 + __obj114199 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115168 |gxc[1]#_g115169_|)) + (let ((__tmp115150 |gxc[1]#_g115151_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114217 - __tmp115168 + __obj114199 + __tmp115150 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115170 |gxc[1]#_g115171_|)) + (let ((__tmp115152 |gxc[1]#_g115153_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114217 - __tmp115170 + __obj114199 + __tmp115152 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115172 |gxc[1]#_g115173_|)) + (let ((__tmp115154 |gxc[1]#_g115155_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114217 - __tmp115172 + __obj114199 + __tmp115154 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115174 - (let ((__tmp115175 - (let ((__tmp115176 |gxc[1]#_g115177_|)) + (let ((__tmp115156 + (let ((__tmp115157 + (let ((__tmp115158 |gxc[1]#_g115159_|)) (declare (not safe)) - (cons 'state __tmp115176)))) + (cons 'state __tmp115158)))) (declare (not safe)) - (cons __tmp115175 '())))) + (cons __tmp115157 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114217 - __tmp115174 + __obj114199 + __tmp115156 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115178 - (let ((__tmp115179 - (let ((__tmp115180 |gxc[1]#_g115181_|)) + (let ((__tmp115160 + (let ((__tmp115161 + (let ((__tmp115162 |gxc[1]#_g115163_|)) (declare (not safe)) - (cons 'state __tmp115180)))) + (cons 'state __tmp115162)))) (declare (not safe)) - (cons __tmp115179 '())))) + (cons __tmp115161 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114217 - __tmp115178 + __obj114199 + __tmp115160 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115182 - (let ((__tmp115183 - (let ((__tmp115184 |gxc[1]#_g115185_|)) + (let ((__tmp115164 + (let ((__tmp115165 + (let ((__tmp115166 |gxc[1]#_g115167_|)) (declare (not safe)) - (cons 'state __tmp115184)))) + (cons 'state __tmp115166)))) (declare (not safe)) - (cons __tmp115183 '())))) + (cons __tmp115165 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114217 - __tmp115182 + __obj114199 + __tmp115164 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115186 - (let ((__tmp115187 - (let ((__tmp115188 |gxc[1]#_g115189_|)) + (let ((__tmp115168 + (let ((__tmp115169 + (let ((__tmp115170 |gxc[1]#_g115171_|)) (declare (not safe)) - (cons 'state __tmp115188)))) + (cons 'state __tmp115170)))) (declare (not safe)) - (cons __tmp115187 '())))) + (cons __tmp115169 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114217 - __tmp115186 + __obj114199 + __tmp115168 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114217)) + __obj114199)) (define |gxc[:0:]#::generate-meta-phi| - (let ((__obj114219 + (let ((__obj114201 (let () (declare (not safe)) (##structure @@ -2367,7 +2367,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114219 + __obj114201 '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! - __obj114219 + __obj114201 '::generate-meta-phi '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2383,7 +2383,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114219 + __obj114201 '(state) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -2391,7 +2391,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114219 + __obj114201 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -2399,7 +2399,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114219 + __obj114201 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2407,7 +2407,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114219 + __obj114201 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2415,7 +2415,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114219 + __obj114201 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2423,434 +2423,434 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114219 + __obj114201 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115190 |gxc[1]#_g115191_|)) + (let ((__tmp115172 |gxc[1]#_g115173_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114219 - __tmp115190 + __obj114201 + __tmp115172 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115192 |gxc[1]#_g115193_|)) + (let ((__tmp115174 |gxc[1]#_g115175_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114219 - __tmp115192 + __obj114201 + __tmp115174 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115194 |gxc[1]#_g115195_|)) + (let ((__tmp115176 |gxc[1]#_g115177_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114219 - __tmp115194 + __obj114201 + __tmp115176 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115196 - (let ((__tmp115197 - (let ((__tmp115198 |gxc[1]#_g115199_|)) + (let ((__tmp115178 + (let ((__tmp115179 + (let ((__tmp115180 |gxc[1]#_g115181_|)) (declare (not safe)) - (cons 'state __tmp115198)))) + (cons 'state __tmp115180)))) (declare (not safe)) - (cons __tmp115197 '())))) + (cons __tmp115179 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114219 - __tmp115196 + __obj114201 + __tmp115178 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115200 - (let ((__tmp115201 - (let ((__tmp115202 |gxc[1]#_g115203_|)) + (let ((__tmp115182 + (let ((__tmp115183 + (let ((__tmp115184 |gxc[1]#_g115185_|)) (declare (not safe)) - (cons 'state __tmp115202)))) + (cons 'state __tmp115184)))) (declare (not safe)) - (cons __tmp115201 '())))) + (cons __tmp115183 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114219 - __tmp115200 + __obj114201 + __tmp115182 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115204 - (let ((__tmp115205 - (let ((__tmp115206 |gxc[1]#_g115207_|)) + (let ((__tmp115186 + (let ((__tmp115187 + (let ((__tmp115188 |gxc[1]#_g115189_|)) (declare (not safe)) - (cons 'state __tmp115206)))) + (cons 'state __tmp115188)))) (declare (not safe)) - (cons __tmp115205 '())))) + (cons __tmp115187 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114219 - __tmp115204 + __obj114201 + __tmp115186 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115208 - (let ((__tmp115209 - (let ((__tmp115210 |gxc[1]#_g115211_|)) + (let ((__tmp115190 + (let ((__tmp115191 + (let ((__tmp115192 |gxc[1]#_g115193_|)) (declare (not safe)) - (cons 'state __tmp115210)))) + (cons 'state __tmp115192)))) (declare (not safe)) - (cons __tmp115209 '())))) + (cons __tmp115191 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114219 - __tmp115208 + __obj114201 + __tmp115190 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114219)) + __obj114201)) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_$stx103465_) - (let* ((_g103469103504_ - (lambda (_g103470103500_) + (lambda (_$stx103447_) + (let* ((_g103451103486_ + (lambda (_g103452103482_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103470103500_)))) - (_g103468103630_ - (lambda (_g103470103508_) + _g103452103482_)))) + (_g103450103612_ + (lambda (_g103452103490_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103470103508_)) - (let ((_e103477103511_ + (gx#stx-pair? _g103452103490_)) + (let ((_e103459103493_ (let () (declare (not safe)) - (gx#syntax-e _g103470103508_)))) - (let ((_hd103476103515_ + (gx#syntax-e _g103452103490_)))) + (let ((_hd103458103497_ (let () (declare (not safe)) - (##car _e103477103511_))) - (_tl103475103518_ + (##car _e103459103493_))) + (_tl103457103500_ (let () (declare (not safe)) - (##cdr _e103477103511_)))) + (##cdr _e103459103493_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103475103518_)) - (let ((_e103480103521_ + (gx#stx-pair? _tl103457103500_)) + (let ((_e103462103503_ (let () (declare (not safe)) - (gx#syntax-e _tl103475103518_)))) - (let ((_hd103479103525_ + (gx#syntax-e _tl103457103500_)))) + (let ((_hd103461103507_ (let () (declare (not safe)) - (##car _e103480103521_))) - (_tl103478103528_ + (##car _e103462103503_))) + (_tl103460103510_ (let () (declare (not safe)) - (##cdr _e103480103521_)))) + (##cdr _e103462103503_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd103479103525_)) - (let ((_e103483103531_ + (gx#stx-pair? _hd103461103507_)) + (let ((_e103465103513_ (let () (declare (not safe)) (gx#syntax-e - _hd103479103525_)))) - (let ((_hd103482103535_ + _hd103461103507_)))) + (let ((_hd103464103517_ (let () (declare (not safe)) - (##car _e103483103531_))) - (_tl103481103538_ + (##car _e103465103513_))) + (_tl103463103520_ (let () (declare (not safe)) - (##cdr _e103483103531_)))) + (##cdr _e103465103513_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103481103538_)) - (let ((_e103486103541_ + _tl103463103520_)) + (let ((_e103468103523_ (let () (declare (not safe)) (gx#syntax-e - _tl103481103538_)))) - (let ((_hd103485103545_ + _tl103463103520_)))) + (let ((_hd103467103527_ (let () (declare (not safe)) - (##car _e103486103541_))) - (_tl103484103548_ + (##car _e103468103523_))) + (_tl103466103530_ (let () (declare (not safe)) - (##cdr _e103486103541_)))) + (##cdr _e103468103523_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl103484103548_)) - (let ((_e103489103551_ + _tl103466103530_)) + (let ((_e103471103533_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _tl103484103548_)))) - (let ((_hd103488103555_ - (let () (declare (not safe)) (##car _e103489103551_))) - (_tl103487103558_ - (let () (declare (not safe)) (##cdr _e103489103551_)))) + (gx#syntax-e _tl103466103530_)))) + (let ((_hd103470103537_ + (let () (declare (not safe)) (##car _e103471103533_))) + (_tl103469103540_ + (let () (declare (not safe)) (##cdr _e103471103533_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103487103558_)) + (gx#stx-null? _tl103469103540_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl103478103528_)) - (let ((_g115212_ + (gx#stx-pair/null? _tl103460103510_)) + (let ((_g115194_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl103478103528_ + _tl103460103510_ '0)))) (begin - (let ((_g115213_ + (let ((_g115195_ (let () (declare (not safe)) - (if (##values? _g115212_) - (##vector-length _g115212_) + (if (##values? _g115194_) + (##vector-length _g115194_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g115213_ 2))) + (##fx= _g115195_ 2))) (error "Context expects 2 values" - _g115213_))) - (let ((_target103490103561_ + _g115195_))) + (let ((_target103472103543_ (let () (declare (not safe)) - (##vector-ref _g115212_ 0))) - (_tl103492103564_ + (##vector-ref _g115194_ 0))) + (_tl103474103546_ (let () (declare (not safe)) - (##vector-ref _g115212_ 1)))) + (##vector-ref _g115194_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl103492103564_)) - (letrec ((_loop103493103567_ - (lambda (_hd103491103571_ - _body103497103574_) + (gx#stx-null? _tl103474103546_)) + (letrec ((_loop103475103549_ + (lambda (_hd103473103553_ + _body103479103556_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd103491103571_)) - (let ((_e103494103577_ + _hd103473103553_)) + (let ((_e103476103559_ (let () (declare (not safe)) (gx#syntax-e - _hd103491103571_)))) - (let ((_lp-hd103495103581_ + _hd103473103553_)))) + (let ((_lp-hd103477103563_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e103494103577_))) - (_lp-tl103496103584_ - (let () (declare (not safe)) (##cdr _e103494103577_)))) - (_loop103493103567_ - _lp-tl103496103584_ + (##car _e103476103559_))) + (_lp-tl103478103566_ + (let () (declare (not safe)) (##cdr _e103476103559_)))) + (_loop103475103549_ + _lp-tl103478103566_ (let () (declare (not safe)) - (cons _lp-hd103495103581_ _body103497103574_))))) + (cons _lp-hd103477103563_ _body103479103556_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body103498103587_ - (reverse _body103497103574_))) - ((lambda (_L103591_ - _L103593_ - _L103594_ - _L103595_) - (let ((__tmp115345 + (let ((_body103480103569_ + (reverse _body103479103556_))) + ((lambda (_L103573_ + _L103575_ + _L103576_ + _L103577_) + (let ((__tmp115327 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp115214 - (let ((__tmp115344 + (__tmp115196 + (let ((__tmp115326 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp115215 - (let ((__tmp115330 - (let ((__tmp115341 - (let ((__tmp115343 + (__tmp115197 + (let ((__tmp115312 + (let ((__tmp115323 + (let ((__tmp115325 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp115342 + (__tmp115324 (let () (declare (not safe)) - (cons _L103593_ '())))) + (cons _L103575_ '())))) (declare (not safe)) - (cons __tmp115343 __tmp115342))) - (__tmp115331 - (let ((__tmp115337 - (let ((__tmp115338 - (let ((__tmp115339 + (cons __tmp115325 __tmp115324))) + (__tmp115313 + (let ((__tmp115319 + (let ((__tmp115320 + (let ((__tmp115321 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115340 + (let ((__tmp115322 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp115340 '())))) + (cons __tmp115322 '())))) (declare (not safe)) - (cons __tmp115339 '())))) + (cons __tmp115321 '())))) (declare (not safe)) - (cons _L103595_ __tmp115338))) + (cons _L103577_ __tmp115320))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp115332 - (let ((__tmp115333 - (let ((__tmp115334 + (__tmp115314 + (let ((__tmp115315 + (let ((__tmp115316 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115335 - (let ((__tmp115336 + (let ((__tmp115317 + (let ((__tmp115318 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp115336 '())))) + (cons __tmp115318 '())))) (declare (not safe)) - (cons __tmp115335 '())))) + (cons __tmp115317 '())))) (declare (not safe)) - (cons _L103594_ __tmp115334)))) + (cons _L103576_ __tmp115316)))) (declare (not safe)) - (cons __tmp115333 '())))) + (cons __tmp115315 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115337 - __tmp115332)))) + (cons __tmp115319 + __tmp115314)))) (declare (not safe)) - (cons __tmp115341 __tmp115331))) - (__tmp115216 - (let ((__tmp115217 - (let ((__tmp115329 + (cons __tmp115323 __tmp115313))) + (__tmp115198 + (let ((__tmp115199 + (let ((__tmp115311 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'match))) - (__tmp115218 - (let ((__tmp115328 + (__tmp115200 + (let ((__tmp115310 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp115219 - (let ((__tmp115225 + (__tmp115201 + (let ((__tmp115207 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115323 - (let ((__tmp115327 + (let ((__tmp115305 + (let ((__tmp115309 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp115324 - (let ((__tmp115326 + (__tmp115306 + (let ((__tmp115308 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp115325 + (__tmp115307 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp115326 __tmp115325)))) + (cons __tmp115308 __tmp115307)))) (declare (not safe)) - (cons __tmp115327 __tmp115324))) - (__tmp115226 - (let ((__tmp115227 - (let ((__tmp115322 + (cons __tmp115309 __tmp115306))) + (__tmp115208 + (let ((__tmp115209 + (let ((__tmp115304 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp115228 - (let ((__tmp115321 + (__tmp115210 + (let ((__tmp115303 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp115229 - (let ((__tmp115317 - (let ((__tmp115320 + (__tmp115211 + (let ((__tmp115299 + (let ((__tmp115302 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp115318 - (let ((__tmp115319 + (__tmp115300 + (let ((__tmp115301 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)))) (declare (not safe)) - (cons __tmp115319 '())))) + (cons __tmp115301 '())))) (declare (not safe)) - (cons __tmp115320 __tmp115318))) - (__tmp115230 - (let ((__tmp115297 - (let ((__tmp115313 - (let ((__tmp115316 + (cons __tmp115302 __tmp115300))) + (__tmp115212 + (let ((__tmp115279 + (let ((__tmp115295 + (let ((__tmp115298 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp115314 - (let ((__tmp115315 + (__tmp115296 + (let ((__tmp115297 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp115315 '())))) + (cons __tmp115297 '())))) (declare (not safe)) - (cons __tmp115316 __tmp115314))) - (__tmp115298 - (let ((__tmp115299 - (let ((__tmp115312 + (cons __tmp115298 __tmp115296))) + (__tmp115280 + (let ((__tmp115281 + (let ((__tmp115294 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp115300 - (let ((__tmp115311 + (__tmp115282 + (let ((__tmp115293 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp115301 - (let ((__tmp115302 - (let ((__tmp115303 + (__tmp115283 + (let ((__tmp115284 + (let ((__tmp115285 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115310 + (let ((__tmp115292 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp115304 - (let ((__tmp115306 - (let ((__tmp115309 + (__tmp115286 + (let ((__tmp115288 + (let ((__tmp115291 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp115307 - (let ((__tmp115308 + (__tmp115289 + (let ((__tmp115290 (let () (declare (not safe)) @@ -2858,462 +2858,462 @@ '#f 'e)))) (declare (not safe)) - (cons __tmp115308 '())))) + (cons __tmp115290 '())))) (declare (not safe)) - (cons __tmp115309 __tmp115307))) - (__tmp115305 + (cons __tmp115291 __tmp115289))) + (__tmp115287 (let () (declare (not safe)) - (cons _L103594_ '())))) + (cons _L103576_ '())))) (declare (not safe)) - (cons __tmp115306 __tmp115305)))) + (cons __tmp115288 __tmp115287)))) (declare (not safe)) - (cons __tmp115310 __tmp115304)))) + (cons __tmp115292 __tmp115286)))) (declare (not safe)) - (cons __tmp115303 '())))) + (cons __tmp115285 '())))) (declare (not safe)) - (cons _L103595_ __tmp115302)))) + (cons _L103577_ __tmp115284)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115311 - __tmp115301)))) + (cons __tmp115293 + __tmp115283)))) (declare (not safe)) - (cons __tmp115312 __tmp115300)))) + (cons __tmp115294 __tmp115282)))) (declare (not safe)) - (cons __tmp115299 '())))) + (cons __tmp115281 '())))) (declare (not safe)) - (cons __tmp115313 __tmp115298))) - (__tmp115231 - (let ((__tmp115277 - (let ((__tmp115293 - (let ((__tmp115296 + (cons __tmp115295 __tmp115280))) + (__tmp115213 + (let ((__tmp115259 + (let ((__tmp115275 + (let ((__tmp115278 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp115294 - (let ((__tmp115295 + (__tmp115276 + (let ((__tmp115277 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp115295 '())))) + (cons __tmp115277 '())))) (declare (not safe)) - (cons __tmp115296 __tmp115294))) - (__tmp115278 - (let ((__tmp115279 - (let ((__tmp115292 + (cons __tmp115278 __tmp115276))) + (__tmp115260 + (let ((__tmp115261 + (let ((__tmp115274 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp115280 - (let ((__tmp115291 + (__tmp115262 + (let ((__tmp115273 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp115281 - (let ((__tmp115282 - (let ((__tmp115283 - (let ((__tmp115290 + (__tmp115263 + (let ((__tmp115264 + (let ((__tmp115265 + (let ((__tmp115272 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp115284 - (let ((__tmp115286 - (let ((__tmp115289 + (__tmp115266 + (let ((__tmp115268 + (let ((__tmp115271 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp115287 - (let ((__tmp115288 + (__tmp115269 + (let ((__tmp115270 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp115288 '())))) + (cons __tmp115270 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115289 - __tmp115287))) - (__tmp115285 + (cons __tmp115271 + __tmp115269))) + (__tmp115267 (let () (declare (not safe)) - (cons _L103594_ '())))) + (cons _L103576_ '())))) (declare (not safe)) - (cons __tmp115286 __tmp115285)))) + (cons __tmp115268 __tmp115267)))) (declare (not safe)) - (cons __tmp115290 __tmp115284)))) + (cons __tmp115272 __tmp115266)))) (declare (not safe)) - (cons __tmp115283 '())))) + (cons __tmp115265 '())))) (declare (not safe)) - (cons _L103595_ __tmp115282)))) + (cons _L103577_ __tmp115264)))) (declare (not safe)) - (cons __tmp115291 __tmp115281)))) + (cons __tmp115273 __tmp115263)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115292 - __tmp115280)))) + (cons __tmp115274 + __tmp115262)))) (declare (not safe)) - (cons __tmp115279 '())))) + (cons __tmp115261 '())))) (declare (not safe)) - (cons __tmp115293 __tmp115278))) - (__tmp115232 - (let ((__tmp115233 - (let ((__tmp115276 + (cons __tmp115275 __tmp115260))) + (__tmp115214 + (let ((__tmp115215 + (let ((__tmp115258 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_))) - (__tmp115234 - (let ((__tmp115235 - (let ((__tmp115275 + (__tmp115216 + (let ((__tmp115217 + (let ((__tmp115257 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp115236 - (let ((__tmp115262 - (let ((__tmp115274 + (__tmp115218 + (let ((__tmp115244 + (let ((__tmp115256 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp115263 - (let ((__tmp115264 - (let ((__tmp115273 + (__tmp115245 + (let ((__tmp115246 + (let ((__tmp115255 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-symbol))) - (__tmp115265 - (let ((__tmp115266 - (let ((__tmp115272 + (__tmp115247 + (let ((__tmp115248 + (let ((__tmp115254 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gensym))) - (__tmp115267 - (let ((__tmp115268 - (let ((__tmp115271 + (__tmp115249 + (let ((__tmp115250 + (let ((__tmp115253 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp115269 - (let ((__tmp115270 + (__tmp115251 + (let ((__tmp115252 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '__tmp)))) (declare (not safe)) - (cons __tmp115270 '())))) + (cons __tmp115252 '())))) (declare (not safe)) - (cons __tmp115271 __tmp115269)))) + (cons __tmp115253 __tmp115251)))) (declare (not safe)) - (cons __tmp115268 '())))) + (cons __tmp115250 '())))) (declare (not safe)) - (cons __tmp115272 __tmp115267)))) + (cons __tmp115254 __tmp115249)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115266 '())))) + (cons __tmp115248 '())))) (declare (not safe)) - (cons __tmp115273 __tmp115265)))) + (cons __tmp115255 __tmp115247)))) (declare (not safe)) - (cons __tmp115264 '())))) + (cons __tmp115246 '())))) (declare (not safe)) - (cons __tmp115274 __tmp115263))) - (__tmp115237 - (let ((__tmp115238 - (let ((__tmp115261 + (cons __tmp115256 __tmp115245))) + (__tmp115219 + (let ((__tmp115220 + (let ((__tmp115243 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp115239 - (let ((__tmp115260 + (__tmp115221 + (let ((__tmp115242 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp115240 - (let ((__tmp115247 - (let ((__tmp115259 + (__tmp115222 + (let ((__tmp115229 + (let ((__tmp115241 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp115248 - (let ((__tmp115250 - (let ((__tmp115258 + (__tmp115230 + (let ((__tmp115232 + (let ((__tmp115240 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp115251 - (let ((__tmp115257 + (__tmp115233 + (let ((__tmp115239 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp115252 - (let ((__tmp115253 - (let ((__tmp115256 + (__tmp115234 + (let ((__tmp115235 + (let ((__tmp115238 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp115254 - (let ((__tmp115255 + (__tmp115236 + (let ((__tmp115237 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp115255 '())))) + (cons __tmp115237 '())))) (declare (not safe)) - (cons __tmp115256 __tmp115254)))) + (cons __tmp115238 __tmp115236)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115253 '())))) + (cons __tmp115235 '())))) (declare (not safe)) - (cons __tmp115257 __tmp115252)))) + (cons __tmp115239 __tmp115234)))) (declare (not safe)) - (cons __tmp115258 __tmp115251))) - (__tmp115249 + (cons __tmp115240 __tmp115233))) + (__tmp115231 (let () (declare (not safe)) - (cons _L103595_ '())))) + (cons _L103577_ '())))) (declare (not safe)) - (cons __tmp115250 __tmp115249)))) + (cons __tmp115232 __tmp115231)))) (declare (not safe)) - (cons __tmp115259 __tmp115248))) - (__tmp115241 - (let ((__tmp115242 - (let ((__tmp115246 + (cons __tmp115241 __tmp115230))) + (__tmp115223 + (let ((__tmp115224 + (let ((__tmp115228 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp115243 - (let ((__tmp115245 + (__tmp115225 + (let ((__tmp115227 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp115244 + (__tmp115226 (let () (declare (not safe)) - (cons _L103594_ '())))) + (cons _L103576_ '())))) (declare (not safe)) - (cons __tmp115245 __tmp115244)))) + (cons __tmp115227 __tmp115226)))) (declare (not safe)) - (cons __tmp115246 __tmp115243)))) + (cons __tmp115228 __tmp115225)))) (declare (not safe)) - (cons __tmp115242 '())))) + (cons __tmp115224 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115247 - __tmp115241)))) + (cons __tmp115229 + __tmp115223)))) (declare (not safe)) - (cons __tmp115260 __tmp115240)))) + (cons __tmp115242 __tmp115222)))) (declare (not safe)) - (cons __tmp115261 __tmp115239)))) + (cons __tmp115243 __tmp115221)))) (declare (not safe)) - (cons __tmp115238 '())))) + (cons __tmp115220 '())))) (declare (not safe)) - (cons __tmp115262 __tmp115237)))) + (cons __tmp115244 __tmp115219)))) (declare (not safe)) - (cons __tmp115275 __tmp115236)))) + (cons __tmp115257 __tmp115218)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115235 '())))) + (cons __tmp115217 '())))) (declare (not safe)) - (cons __tmp115276 __tmp115234)))) + (cons __tmp115258 __tmp115216)))) (declare (not safe)) - (cons __tmp115233 '())))) + (cons __tmp115215 '())))) (declare (not safe)) - (cons __tmp115277 __tmp115232)))) + (cons __tmp115259 __tmp115214)))) (declare (not safe)) - (cons __tmp115297 __tmp115231)))) + (cons __tmp115279 __tmp115213)))) (declare (not safe)) - (cons __tmp115317 __tmp115230)))) + (cons __tmp115299 __tmp115212)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115321 - __tmp115229)))) + (cons __tmp115303 + __tmp115211)))) (declare (not safe)) - (cons __tmp115322 __tmp115228)))) + (cons __tmp115304 __tmp115210)))) (declare (not safe)) - (cons __tmp115227 '())))) + (cons __tmp115209 '())))) (declare (not safe)) - (cons __tmp115323 __tmp115226))) - (__tmp115220 - (let ((__tmp115221 - (let ((__tmp115224 + (cons __tmp115305 __tmp115208))) + (__tmp115202 + (let ((__tmp115203 + (let ((__tmp115206 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp115222 - (let ((__tmp115223 - (lambda (_g103621103624_ - _g103622103627_) + (__tmp115204 + (let ((__tmp115205 + (lambda (_g103603103606_ + _g103604103609_) (let () (declare (not safe)) - (cons _g103621103624_ - _g103622103627_))))) + (cons _g103603103606_ + _g103604103609_))))) (declare (not safe)) - (foldr1 __tmp115223 '() _L103591_)))) + (foldr1 __tmp115205 '() _L103573_)))) (declare (not safe)) - (cons __tmp115224 __tmp115222)))) + (cons __tmp115206 __tmp115204)))) (declare (not safe)) - (cons __tmp115221 '())))) + (cons __tmp115203 '())))) (declare (not safe)) - (cons __tmp115225 __tmp115220)))) + (cons __tmp115207 __tmp115202)))) (declare (not safe)) - (cons __tmp115328 __tmp115219)))) + (cons __tmp115310 __tmp115201)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115329 - __tmp115218)))) + (cons __tmp115311 + __tmp115200)))) (declare (not safe)) - (cons __tmp115217 '())))) + (cons __tmp115199 '())))) (declare (not safe)) - (cons __tmp115330 __tmp115216)))) + (cons __tmp115312 __tmp115198)))) (declare (not safe)) - (cons __tmp115344 __tmp115215)))) + (cons __tmp115326 __tmp115197)))) (declare (not safe)) - (cons __tmp115345 __tmp115214))) - _body103498103587_ - _hd103488103555_ - _hd103485103545_ - _hd103482103535_)))))) + (cons __tmp115327 __tmp115196))) + _body103480103569_ + _hd103470103537_ + _hd103467103527_ + _hd103464103517_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop103493103567_ - _target103490103561_ + (_loop103475103549_ + _target103472103543_ '())) - (_g103469103504_ _g103470103508_))))) - (_g103469103504_ _g103470103508_)) - (_g103469103504_ _g103470103508_)))) - (_g103469103504_ _g103470103508_)))) + (_g103451103486_ _g103452103490_))))) + (_g103451103486_ _g103452103490_)) + (_g103451103486_ _g103452103490_)))) + (_g103451103486_ _g103452103490_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g103469103504_ - _g103470103508_)))) - (_g103469103504_ _g103470103508_)))) - (_g103469103504_ _g103470103508_)))) - (_g103469103504_ _g103470103508_))))) - (_g103468103630_ _$stx103465_)))) + (_g103451103486_ + _g103452103490_)))) + (_g103451103486_ _g103452103490_)))) + (_g103451103486_ _g103452103490_)))) + (_g103451103486_ _g103452103490_))))) + (_g103450103612_ _$stx103447_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_$stx103635_) - (let* ((_g103639103657_ - (lambda (_g103640103653_) + (lambda (_$stx103617_) + (let* ((_g103621103639_ + (lambda (_g103622103635_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g103640103653_)))) - (_g103638103712_ - (lambda (_g103640103661_) + _g103622103635_)))) + (_g103620103694_ + (lambda (_g103622103643_) (if (let () (declare (not safe)) - (gx#stx-pair? _g103640103661_)) - (let ((_e103645103664_ + (gx#stx-pair? _g103622103643_)) + (let ((_e103627103646_ (let () (declare (not safe)) - (gx#syntax-e _g103640103661_)))) - (let ((_hd103644103668_ + (gx#syntax-e _g103622103643_)))) + (let ((_hd103626103650_ (let () (declare (not safe)) - (##car _e103645103664_))) - (_tl103643103671_ + (##car _e103627103646_))) + (_tl103625103653_ (let () (declare (not safe)) - (##cdr _e103645103664_)))) + (##cdr _e103627103646_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103643103671_)) - (let ((_e103648103674_ + (gx#stx-pair? _tl103625103653_)) + (let ((_e103630103656_ (let () (declare (not safe)) - (gx#syntax-e _tl103643103671_)))) - (let ((_hd103647103678_ + (gx#syntax-e _tl103625103653_)))) + (let ((_hd103629103660_ (let () (declare (not safe)) - (##car _e103648103674_))) - (_tl103646103681_ + (##car _e103630103656_))) + (_tl103628103663_ (let () (declare (not safe)) - (##cdr _e103648103674_)))) + (##cdr _e103630103656_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl103646103681_)) - (let ((_e103651103684_ + (gx#stx-pair? _tl103628103663_)) + (let ((_e103633103666_ (let () (declare (not safe)) (gx#syntax-e - _tl103646103681_)))) - (let ((_hd103650103688_ + _tl103628103663_)))) + (let ((_hd103632103670_ (let () (declare (not safe)) - (##car _e103651103684_))) - (_tl103649103691_ + (##car _e103633103666_))) + (_tl103631103673_ (let () (declare (not safe)) - (##cdr _e103651103684_)))) + (##cdr _e103633103666_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl103649103691_)) - ((lambda (_L103694_ _L103696_) - (let ((__tmp115361 + _tl103631103673_)) + ((lambda (_L103676_ _L103678_) + (let ((__tmp115343 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cond-expand))) - (__tmp115346 - (let ((__tmp115358 - (let ((__tmp115360 + (__tmp115328 + (let ((__tmp115340 + (let ((__tmp115342 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives))) - (__tmp115359 + (__tmp115341 (let () (declare (not safe)) - (cons _L103696_ '())))) + (cons _L103678_ '())))) (declare (not safe)) - (cons __tmp115360 __tmp115359))) - (__tmp115347 - (let ((__tmp115348 - (let ((__tmp115357 + (cons __tmp115342 __tmp115341))) + (__tmp115329 + (let ((__tmp115330 + (let ((__tmp115339 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp115349 - (let ((__tmp115350 - (let ((__tmp115356 + (__tmp115331 + (let ((__tmp115332 + (let ((__tmp115338 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp115351 - (let ((__tmp115354 - (let ((__tmp115355 + (__tmp115333 + (let ((__tmp115336 + (let ((__tmp115337 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -3321,40 +3321,40 @@ '#f 'current-compile-decls-unsafe?)))) (declare (not safe)) - (cons __tmp115355 '()))) - (__tmp115352 - (let ((__tmp115353 - (let () (declare (not safe)) (cons _L103694_ '())))) + (cons __tmp115337 '()))) + (__tmp115334 + (let ((__tmp115335 + (let () (declare (not safe)) (cons _L103676_ '())))) (declare (not safe)) - (cons _L103696_ __tmp115353)))) + (cons _L103678_ __tmp115335)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115354 - __tmp115352)))) + (cons __tmp115336 + __tmp115334)))) (declare (not safe)) - (cons __tmp115356 __tmp115351)))) + (cons __tmp115338 __tmp115333)))) (declare (not safe)) - (cons __tmp115350 '())))) + (cons __tmp115332 '())))) (declare (not safe)) - (cons __tmp115357 __tmp115349)))) + (cons __tmp115339 __tmp115331)))) (declare (not safe)) - (cons __tmp115348 '())))) + (cons __tmp115330 '())))) (declare (not safe)) - (cons __tmp115358 __tmp115347)))) + (cons __tmp115340 __tmp115329)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115361 - __tmp115346))) - _hd103650103688_ - _hd103647103678_) - (_g103639103657_ - _g103640103661_)))) - (_g103639103657_ _g103640103661_)))) - (_g103639103657_ _g103640103661_)))) - (_g103639103657_ _g103640103661_))))) - (_g103638103712_ _$stx103635_)))) + (cons __tmp115343 + __tmp115328))) + _hd103632103670_ + _hd103629103660_) + (_g103621103639_ + _g103622103643_)))) + (_g103621103639_ _g103622103643_)))) + (_g103621103639_ _g103622103643_)))) + (_g103621103639_ _g103622103643_))))) + (_g103620103694_ _$stx103617_)))) (define |gxc[:0:]#meta-state| - (let ((__obj114221 + (let ((__obj114203 (let () (declare (not safe)) (##structure @@ -3378,7 +3378,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114221 + __obj114203 '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! - __obj114221 + __obj114203 'meta-state '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3394,7 +3394,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114221 + __obj114203 '(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! - __obj114221 + __obj114203 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3410,7 +3410,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114221 + __obj114203 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3418,7 +3418,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114221 + __obj114203 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3426,7 +3426,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114221 + __obj114203 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3434,182 +3434,182 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114221 + __obj114203 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115362 |gxc[1]#_g115363_|)) + (let ((__tmp115344 |gxc[1]#_g115345_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114221 - __tmp115362 + __obj114203 + __tmp115344 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115364 |gxc[1]#_g115365_|)) + (let ((__tmp115346 |gxc[1]#_g115347_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114221 - __tmp115364 + __obj114203 + __tmp115346 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115366 |gxc[1]#_g115367_|)) + (let ((__tmp115348 |gxc[1]#_g115349_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114221 - __tmp115366 + __obj114203 + __tmp115348 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115368 - (let ((__tmp115381 - (let ((__tmp115382 |gxc[1]#_g115383_|)) + (let ((__tmp115350 + (let ((__tmp115363 + (let ((__tmp115364 |gxc[1]#_g115365_|)) (declare (not safe)) - (cons 'src __tmp115382))) - (__tmp115369 - (let ((__tmp115378 - (let ((__tmp115379 |gxc[1]#_g115380_|)) + (cons 'src __tmp115364))) + (__tmp115351 + (let ((__tmp115360 + (let ((__tmp115361 |gxc[1]#_g115362_|)) (declare (not safe)) - (cons 'n __tmp115379))) - (__tmp115370 - (let ((__tmp115375 - (let ((__tmp115376 |gxc[1]#_g115377_|)) + (cons 'n __tmp115361))) + (__tmp115352 + (let ((__tmp115357 + (let ((__tmp115358 |gxc[1]#_g115359_|)) (declare (not safe)) - (cons 'open __tmp115376))) - (__tmp115371 - (let ((__tmp115372 - (let ((__tmp115373 - |gxc[1]#_g115374_|)) + (cons 'open __tmp115358))) + (__tmp115353 + (let ((__tmp115354 + (let ((__tmp115355 + |gxc[1]#_g115356_|)) (declare (not safe)) - (cons 'blocks __tmp115373)))) + (cons 'blocks __tmp115355)))) (declare (not safe)) - (cons __tmp115372 '())))) + (cons __tmp115354 '())))) (declare (not safe)) - (cons __tmp115375 __tmp115371)))) + (cons __tmp115357 __tmp115353)))) (declare (not safe)) - (cons __tmp115378 __tmp115370)))) + (cons __tmp115360 __tmp115352)))) (declare (not safe)) - (cons __tmp115381 __tmp115369)))) + (cons __tmp115363 __tmp115351)))) (declare (not safe)) (##unchecked-structure-set! - __obj114221 - __tmp115368 + __obj114203 + __tmp115350 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115384 - (let ((__tmp115397 - (let ((__tmp115398 |gxc[1]#_g115399_|)) + (let ((__tmp115366 + (let ((__tmp115379 + (let ((__tmp115380 |gxc[1]#_g115381_|)) (declare (not safe)) - (cons 'src __tmp115398))) - (__tmp115385 - (let ((__tmp115394 - (let ((__tmp115395 |gxc[1]#_g115396_|)) + (cons 'src __tmp115380))) + (__tmp115367 + (let ((__tmp115376 + (let ((__tmp115377 |gxc[1]#_g115378_|)) (declare (not safe)) - (cons 'n __tmp115395))) - (__tmp115386 - (let ((__tmp115391 - (let ((__tmp115392 |gxc[1]#_g115393_|)) + (cons 'n __tmp115377))) + (__tmp115368 + (let ((__tmp115373 + (let ((__tmp115374 |gxc[1]#_g115375_|)) (declare (not safe)) - (cons 'open __tmp115392))) - (__tmp115387 - (let ((__tmp115388 - (let ((__tmp115389 - |gxc[1]#_g115390_|)) + (cons 'open __tmp115374))) + (__tmp115369 + (let ((__tmp115370 + (let ((__tmp115371 + |gxc[1]#_g115372_|)) (declare (not safe)) - (cons 'blocks __tmp115389)))) + (cons 'blocks __tmp115371)))) (declare (not safe)) - (cons __tmp115388 '())))) + (cons __tmp115370 '())))) (declare (not safe)) - (cons __tmp115391 __tmp115387)))) + (cons __tmp115373 __tmp115369)))) (declare (not safe)) - (cons __tmp115394 __tmp115386)))) + (cons __tmp115376 __tmp115368)))) (declare (not safe)) - (cons __tmp115397 __tmp115385)))) + (cons __tmp115379 __tmp115367)))) (declare (not safe)) (##unchecked-structure-set! - __obj114221 - __tmp115384 + __obj114203 + __tmp115366 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115400 - (let ((__tmp115413 - (let ((__tmp115414 |gxc[1]#_g115415_|)) + (let ((__tmp115382 + (let ((__tmp115395 + (let ((__tmp115396 |gxc[1]#_g115397_|)) (declare (not safe)) - (cons 'src __tmp115414))) - (__tmp115401 - (let ((__tmp115410 - (let ((__tmp115411 |gxc[1]#_g115412_|)) + (cons 'src __tmp115396))) + (__tmp115383 + (let ((__tmp115392 + (let ((__tmp115393 |gxc[1]#_g115394_|)) (declare (not safe)) - (cons 'n __tmp115411))) - (__tmp115402 - (let ((__tmp115407 - (let ((__tmp115408 |gxc[1]#_g115409_|)) + (cons 'n __tmp115393))) + (__tmp115384 + (let ((__tmp115389 + (let ((__tmp115390 |gxc[1]#_g115391_|)) (declare (not safe)) - (cons 'open __tmp115408))) - (__tmp115403 - (let ((__tmp115404 - (let ((__tmp115405 - |gxc[1]#_g115406_|)) + (cons 'open __tmp115390))) + (__tmp115385 + (let ((__tmp115386 + (let ((__tmp115387 + |gxc[1]#_g115388_|)) (declare (not safe)) - (cons 'blocks __tmp115405)))) + (cons 'blocks __tmp115387)))) (declare (not safe)) - (cons __tmp115404 '())))) + (cons __tmp115386 '())))) (declare (not safe)) - (cons __tmp115407 __tmp115403)))) + (cons __tmp115389 __tmp115385)))) (declare (not safe)) - (cons __tmp115410 __tmp115402)))) + (cons __tmp115392 __tmp115384)))) (declare (not safe)) - (cons __tmp115413 __tmp115401)))) + (cons __tmp115395 __tmp115383)))) (declare (not safe)) (##unchecked-structure-set! - __obj114221 - __tmp115400 + __obj114203 + __tmp115382 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115416 - (let ((__tmp115429 - (let ((__tmp115430 |gxc[1]#_g115431_|)) + (let ((__tmp115398 + (let ((__tmp115411 + (let ((__tmp115412 |gxc[1]#_g115413_|)) (declare (not safe)) - (cons 'src __tmp115430))) - (__tmp115417 - (let ((__tmp115426 - (let ((__tmp115427 |gxc[1]#_g115428_|)) + (cons 'src __tmp115412))) + (__tmp115399 + (let ((__tmp115408 + (let ((__tmp115409 |gxc[1]#_g115410_|)) (declare (not safe)) - (cons 'n __tmp115427))) - (__tmp115418 - (let ((__tmp115423 - (let ((__tmp115424 |gxc[1]#_g115425_|)) + (cons 'n __tmp115409))) + (__tmp115400 + (let ((__tmp115405 + (let ((__tmp115406 |gxc[1]#_g115407_|)) (declare (not safe)) - (cons 'open __tmp115424))) - (__tmp115419 - (let ((__tmp115420 - (let ((__tmp115421 - |gxc[1]#_g115422_|)) + (cons 'open __tmp115406))) + (__tmp115401 + (let ((__tmp115402 + (let ((__tmp115403 + |gxc[1]#_g115404_|)) (declare (not safe)) - (cons 'blocks __tmp115421)))) + (cons 'blocks __tmp115403)))) (declare (not safe)) - (cons __tmp115420 '())))) + (cons __tmp115402 '())))) (declare (not safe)) - (cons __tmp115423 __tmp115419)))) + (cons __tmp115405 __tmp115401)))) (declare (not safe)) - (cons __tmp115426 __tmp115418)))) + (cons __tmp115408 __tmp115400)))) (declare (not safe)) - (cons __tmp115429 __tmp115417)))) + (cons __tmp115411 __tmp115399)))) (declare (not safe)) (##unchecked-structure-set! - __obj114221 - __tmp115416 + __obj114203 + __tmp115398 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114221)) + __obj114203)) (define |gxc[:0:]#meta-state-block| - (let ((__obj114222 + (let ((__obj114204 (let () (declare (not safe)) (##structure @@ -3633,7 +3633,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114222 + __obj114204 '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! - __obj114222 + __obj114204 'meta-state-block '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3649,7 +3649,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114222 + __obj114204 '(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! - __obj114222 + __obj114204 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3665,7 +3665,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114222 + __obj114204 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3673,7 +3673,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114222 + __obj114204 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3681,7 +3681,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114222 + __obj114204 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3689,177 +3689,177 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114222 + __obj114204 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115432 |gxc[1]#_g115433_|)) + (let ((__tmp115414 |gxc[1]#_g115415_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114222 - __tmp115432 + __obj114204 + __tmp115414 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115434 |gxc[1]#_g115435_|)) + (let ((__tmp115416 |gxc[1]#_g115417_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114222 - __tmp115434 + __obj114204 + __tmp115416 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115436 |gxc[1]#_g115437_|)) + (let ((__tmp115418 |gxc[1]#_g115419_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114222 - __tmp115436 + __obj114204 + __tmp115418 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115438 - (let ((__tmp115451 - (let ((__tmp115452 |gxc[1]#_g115453_|)) + (let ((__tmp115420 + (let ((__tmp115433 + (let ((__tmp115434 |gxc[1]#_g115435_|)) (declare (not safe)) - (cons 'ctx __tmp115452))) - (__tmp115439 - (let ((__tmp115448 - (let ((__tmp115449 |gxc[1]#_g115450_|)) + (cons 'ctx __tmp115434))) + (__tmp115421 + (let ((__tmp115430 + (let ((__tmp115431 |gxc[1]#_g115432_|)) (declare (not safe)) - (cons 'phi __tmp115449))) - (__tmp115440 - (let ((__tmp115445 - (let ((__tmp115446 |gxc[1]#_g115447_|)) + (cons 'phi __tmp115431))) + (__tmp115422 + (let ((__tmp115427 + (let ((__tmp115428 |gxc[1]#_g115429_|)) (declare (not safe)) - (cons 'n __tmp115446))) - (__tmp115441 - (let ((__tmp115442 - (let ((__tmp115443 - |gxc[1]#_g115444_|)) + (cons 'n __tmp115428))) + (__tmp115423 + (let ((__tmp115424 + (let ((__tmp115425 + |gxc[1]#_g115426_|)) (declare (not safe)) - (cons 'code __tmp115443)))) + (cons 'code __tmp115425)))) (declare (not safe)) - (cons __tmp115442 '())))) + (cons __tmp115424 '())))) (declare (not safe)) - (cons __tmp115445 __tmp115441)))) + (cons __tmp115427 __tmp115423)))) (declare (not safe)) - (cons __tmp115448 __tmp115440)))) + (cons __tmp115430 __tmp115422)))) (declare (not safe)) - (cons __tmp115451 __tmp115439)))) + (cons __tmp115433 __tmp115421)))) (declare (not safe)) (##unchecked-structure-set! - __obj114222 - __tmp115438 + __obj114204 + __tmp115420 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115454 - (let ((__tmp115467 - (let ((__tmp115468 |gxc[1]#_g115469_|)) + (let ((__tmp115436 + (let ((__tmp115449 + (let ((__tmp115450 |gxc[1]#_g115451_|)) (declare (not safe)) - (cons 'ctx __tmp115468))) - (__tmp115455 - (let ((__tmp115464 - (let ((__tmp115465 |gxc[1]#_g115466_|)) + (cons 'ctx __tmp115450))) + (__tmp115437 + (let ((__tmp115446 + (let ((__tmp115447 |gxc[1]#_g115448_|)) (declare (not safe)) - (cons 'phi __tmp115465))) - (__tmp115456 - (let ((__tmp115461 - (let ((__tmp115462 |gxc[1]#_g115463_|)) + (cons 'phi __tmp115447))) + (__tmp115438 + (let ((__tmp115443 + (let ((__tmp115444 |gxc[1]#_g115445_|)) (declare (not safe)) - (cons 'n __tmp115462))) - (__tmp115457 - (let ((__tmp115458 - (let ((__tmp115459 - |gxc[1]#_g115460_|)) + (cons 'n __tmp115444))) + (__tmp115439 + (let ((__tmp115440 + (let ((__tmp115441 + |gxc[1]#_g115442_|)) (declare (not safe)) - (cons 'code __tmp115459)))) + (cons 'code __tmp115441)))) (declare (not safe)) - (cons __tmp115458 '())))) + (cons __tmp115440 '())))) (declare (not safe)) - (cons __tmp115461 __tmp115457)))) + (cons __tmp115443 __tmp115439)))) (declare (not safe)) - (cons __tmp115464 __tmp115456)))) + (cons __tmp115446 __tmp115438)))) (declare (not safe)) - (cons __tmp115467 __tmp115455)))) + (cons __tmp115449 __tmp115437)))) (declare (not safe)) (##unchecked-structure-set! - __obj114222 - __tmp115454 + __obj114204 + __tmp115436 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115470 - (let ((__tmp115483 - (let ((__tmp115484 |gxc[1]#_g115485_|)) + (let ((__tmp115452 + (let ((__tmp115465 + (let ((__tmp115466 |gxc[1]#_g115467_|)) (declare (not safe)) - (cons 'ctx __tmp115484))) - (__tmp115471 - (let ((__tmp115480 - (let ((__tmp115481 |gxc[1]#_g115482_|)) + (cons 'ctx __tmp115466))) + (__tmp115453 + (let ((__tmp115462 + (let ((__tmp115463 |gxc[1]#_g115464_|)) (declare (not safe)) - (cons 'phi __tmp115481))) - (__tmp115472 - (let ((__tmp115477 - (let ((__tmp115478 |gxc[1]#_g115479_|)) + (cons 'phi __tmp115463))) + (__tmp115454 + (let ((__tmp115459 + (let ((__tmp115460 |gxc[1]#_g115461_|)) (declare (not safe)) - (cons 'n __tmp115478))) - (__tmp115473 - (let ((__tmp115474 - (let ((__tmp115475 - |gxc[1]#_g115476_|)) + (cons 'n __tmp115460))) + (__tmp115455 + (let ((__tmp115456 + (let ((__tmp115457 + |gxc[1]#_g115458_|)) (declare (not safe)) - (cons 'code __tmp115475)))) + (cons 'code __tmp115457)))) (declare (not safe)) - (cons __tmp115474 '())))) + (cons __tmp115456 '())))) (declare (not safe)) - (cons __tmp115477 __tmp115473)))) + (cons __tmp115459 __tmp115455)))) (declare (not safe)) - (cons __tmp115480 __tmp115472)))) + (cons __tmp115462 __tmp115454)))) (declare (not safe)) - (cons __tmp115483 __tmp115471)))) + (cons __tmp115465 __tmp115453)))) (declare (not safe)) (##unchecked-structure-set! - __obj114222 - __tmp115470 + __obj114204 + __tmp115452 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp115486 - (let ((__tmp115499 - (let ((__tmp115500 |gxc[1]#_g115501_|)) + (let ((__tmp115468 + (let ((__tmp115481 + (let ((__tmp115482 |gxc[1]#_g115483_|)) (declare (not safe)) - (cons 'ctx __tmp115500))) - (__tmp115487 - (let ((__tmp115496 - (let ((__tmp115497 |gxc[1]#_g115498_|)) + (cons 'ctx __tmp115482))) + (__tmp115469 + (let ((__tmp115478 + (let ((__tmp115479 |gxc[1]#_g115480_|)) (declare (not safe)) - (cons 'phi __tmp115497))) - (__tmp115488 - (let ((__tmp115493 - (let ((__tmp115494 |gxc[1]#_g115495_|)) + (cons 'phi __tmp115479))) + (__tmp115470 + (let ((__tmp115475 + (let ((__tmp115476 |gxc[1]#_g115477_|)) (declare (not safe)) - (cons 'n __tmp115494))) - (__tmp115489 - (let ((__tmp115490 - (let ((__tmp115491 - |gxc[1]#_g115492_|)) + (cons 'n __tmp115476))) + (__tmp115471 + (let ((__tmp115472 + (let ((__tmp115473 + |gxc[1]#_g115474_|)) (declare (not safe)) - (cons 'code __tmp115491)))) + (cons 'code __tmp115473)))) (declare (not safe)) - (cons __tmp115490 '())))) + (cons __tmp115472 '())))) (declare (not safe)) - (cons __tmp115493 __tmp115489)))) + (cons __tmp115475 __tmp115471)))) (declare (not safe)) - (cons __tmp115496 __tmp115488)))) + (cons __tmp115478 __tmp115470)))) (declare (not safe)) - (cons __tmp115499 __tmp115487)))) + (cons __tmp115481 __tmp115469)))) (declare (not safe)) (##unchecked-structure-set! - __obj114222 - __tmp115486 + __obj114204 + __tmp115468 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj114222)))) + __obj114204)))) diff --git a/src/bootstrap/gerbil/compiler/driver~0.scm b/src/bootstrap/gerbil/compiler/driver~0.scm index 51d72e5cb..c8a15c138 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 1710833429) + (define gerbil/compiler/driver::timestamp 1710943503) (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 (_path160230_ _fun160231_) + (lambda (_path160212_ _fun160213_) (with-output-to-file - (let ((__tmp160324 + (let ((__tmp160306 (let () (declare (not safe)) - (cons _path160230_ gxc#scheme-file-settings)))) + (cons _path160212_ gxc#scheme-file-settings)))) (declare (not safe)) - (cons 'path: __tmp160324)) - _fun160231_))) + (cons 'path: __tmp160306)) + _fun160213_))) (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-libdir160225_) - (string-append '"-Wl,-rpath=" _gerbil-libdir160225_))) + (lambda (_gerbil-libdir160207_) + (string-append '"-Wl,-rpath=" _gerbil-libdir160207_))) (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 (_dir160223_) (delete-file-or-directory _dir160223_ '#t))) + (lambda (_dir160205_) (delete-file-or-directory _dir160205_ '#t))) (define gxc#compile-module__% - (lambda (_srcpath160197_ _opts160198_) - (if (let () (declare (not safe)) (string? _srcpath160197_)) + (lambda (_srcpath160179_ _opts160180_) + (if (let () (declare (not safe)) (string? _srcpath160179_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath160197_))) - (let ((_outdir160200_ + _srcpath160179_))) + (let ((_outdir160182_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _opts160198_))) - (_invoke-gsc?160201_ + (pgetq__0 'output-dir: _opts160180_))) + (_invoke-gsc?160183_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _opts160198_))) - (_gsc-options160202_ + (pgetq__0 'invoke-gsc: _opts160180_))) + (_gsc-options160184_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _opts160198_))) - (_keep-scm?160203_ + (pgetq__0 'gsc-options: _opts160180_))) + (_keep-scm?160185_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _opts160198_))) - (_verbosity160204_ - (let () (declare (not safe)) (pgetq__0 'verbose: _opts160198_))) - (_optimize160205_ + (pgetq__0 'keep-scm: _opts160180_))) + (_verbosity160186_ + (let () (declare (not safe)) (pgetq__0 'verbose: _opts160180_))) + (_optimize160187_ (let () (declare (not safe)) - (pgetq__0 'optimize: _opts160198_))) - (_debug160206_ - (let () (declare (not safe)) (pgetq__0 'debug: _opts160198_))) - (_gen-ssxi160207_ + (pgetq__0 'optimize: _opts160180_))) + (_debug160188_ + (let () (declare (not safe)) (pgetq__0 'debug: _opts160180_))) + (_gen-ssxi160189_ (let () (declare (not safe)) - (pgetq__0 'generate-ssxi: _opts160198_)))) - (if _outdir160200_ - (let ((__tmp160325 + (pgetq__0 'generate-ssxi: _opts160180_)))) + (if _outdir160182_ + (let ((__tmp160307 (lambda () (let () (declare (not safe)) - (create-directory*__0 _outdir160200_))))) + (create-directory*__0 _outdir160182_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160325)) + (with-lock gxc#+driver-mutex+ __tmp160307)) '#!void) - (if _optimize160205_ - (let ((__tmp160326 + (if _optimize160187_ + (let ((__tmp160308 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160326)) + (with-lock gxc#+driver-mutex+ __tmp160308)) '#!void) - (let ((__tmp160330 + (let ((__tmp160312 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _srcpath160197_)) - (let ((__tmp160331 - (let ((__tmp160332 + (gxc#verbose '"compile " _srcpath160179_)) + (let ((__tmp160313 + (let ((__tmp160314 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath160197_))))) + (gx#import-module__0 _srcpath160179_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160332)))) + (with-lock gxc#+driver-mutex+ __tmp160314)))) (declare (not safe)) - (gxc#compile-top-module __tmp160331)))) - (__tmp160329 + (gxc#compile-top-module __tmp160313)))) + (__tmp160311 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp160327 - (let ((__tmp160328 + (__tmp160309 + (let ((__tmp160310 (let () (declare (not safe)) - (cons _srcpath160197_ '())))) + (cons _srcpath160179_ '())))) (declare (not safe)) - (cons 'compile-module __tmp160328)))) + (cons 'compile-module __tmp160310)))) (declare (not safe)) (call-with-parameters - __tmp160330 + __tmp160312 gxc#current-compile-output-dir - _outdir160200_ + _outdir160182_ gxc#current-compile-invoke-gsc - _invoke-gsc?160201_ + _invoke-gsc?160183_ gxc#current-compile-gsc-options - _gsc-options160202_ + _gsc-options160184_ gxc#current-compile-keep-scm - _keep-scm?160203_ + _keep-scm?160185_ gxc#current-compile-verbose - _verbosity160204_ + _verbosity160186_ gxc#current-compile-optimize - _optimize160205_ + _optimize160187_ gxc#current-compile-debug - _debug160206_ + _debug160188_ gxc#current-compile-generate-ssxi - _gen-ssxi160207_ + _gen-ssxi160189_ gxc#current-compile-timestamp - __tmp160329 + __tmp160311 gxc#current-compile-context - __tmp160327 + __tmp160309 gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_srcpath160216_) - (let ((_opts160218_ '())) + (lambda (_srcpath160198_) + (let ((_opts160200_ '())) (declare (not safe)) - (gxc#compile-module__% _srcpath160216_ _opts160218_)))) + (gxc#compile-module__% _srcpath160198_ _opts160200_)))) (define gxc#compile-module - (lambda _g160334_ - (let ((_g160333_ (let () (declare (not safe)) (##length _g160334_)))) - (cond ((let () (declare (not safe)) (##fx= _g160333_ 1)) - (apply (lambda (_srcpath160216_) + (lambda _g160316_ + (let ((_g160315_ (let () (declare (not safe)) (##length _g160316_)))) + (cond ((let () (declare (not safe)) (##fx= _g160315_ 1)) + (apply (lambda (_srcpath160198_) (let () (declare (not safe)) - (gxc#compile-module__0 _srcpath160216_))) - _g160334_)) - ((let () (declare (not safe)) (##fx= _g160333_ 2)) - (apply (lambda (_srcpath160220_ _opts160221_) + (gxc#compile-module__0 _srcpath160198_))) + _g160316_)) + ((let () (declare (not safe)) (##fx= _g160315_ 2)) + (apply (lambda (_srcpath160202_ _opts160203_) (let () (declare (not safe)) (gxc#compile-module__% - _srcpath160220_ - _opts160221_))) - _g160334_)) + _srcpath160202_ + _opts160203_))) + _g160316_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g160334_)))))) + _g160316_)))))) (define gxc#compile-exe__% - (lambda (_srcpath160173_ _opts160174_) - (if (let () (declare (not safe)) (string? _srcpath160173_)) + (lambda (_srcpath160155_ _opts160156_) + (if (let () (declare (not safe)) (string? _srcpath160155_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath160173_))) - (let ((_outdir160176_ + _srcpath160155_))) + (let ((_outdir160158_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _opts160174_))) - (_invoke-gsc?160177_ + (pgetq__0 'output-dir: _opts160156_))) + (_invoke-gsc?160159_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _opts160174_))) - (_gsc-options160178_ + (pgetq__0 'invoke-gsc: _opts160156_))) + (_gsc-options160160_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _opts160174_))) - (_keep-scm?160179_ + (pgetq__0 'gsc-options: _opts160156_))) + (_keep-scm?160161_ (let () (declare (not safe)) - (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 + (pgetq__0 'keep-scm: _opts160156_))) + (_verbosity160162_ + (let () (declare (not safe)) (pgetq__0 'verbose: _opts160156_))) + (_debug160163_ + (let () (declare (not safe)) (pgetq__0 'debug: _opts160156_)))) + (if _outdir160158_ + (let ((__tmp160317 (lambda () (let () (declare (not safe)) - (create-directory*__0 _outdir160176_))))) + (create-directory*__0 _outdir160158_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160335)) + (with-lock gxc#+driver-mutex+ __tmp160317)) '#!void) - (let ((__tmp160339 + (let ((__tmp160321 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _srcpath160173_)) - (let ((__tmp160340 - (let ((__tmp160341 + (gxc#verbose '"compile exe " _srcpath160155_)) + (let ((__tmp160322 + (let ((__tmp160323 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath160173_))))) + (gx#import-module__0 _srcpath160155_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160341)))) + (with-lock gxc#+driver-mutex+ __tmp160323)))) (declare (not safe)) (gxc#compile-executable-module - __tmp160340 - _opts160174_)))) - (__tmp160338 + __tmp160322 + _opts160156_)))) + (__tmp160320 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp160336 - (let ((__tmp160337 + (__tmp160318 + (let ((__tmp160319 (let () (declare (not safe)) - (cons _srcpath160173_ '())))) + (cons _srcpath160155_ '())))) (declare (not safe)) - (cons 'compile-exe __tmp160337)))) + (cons 'compile-exe __tmp160319)))) (declare (not safe)) (call-with-parameters - __tmp160339 + __tmp160321 gxc#current-compile-output-dir - _outdir160176_ + _outdir160158_ gxc#current-compile-invoke-gsc - _invoke-gsc?160177_ + _invoke-gsc?160159_ gxc#current-compile-gsc-options - _gsc-options160178_ + _gsc-options160160_ gxc#current-compile-keep-scm - _keep-scm?160179_ + _keep-scm?160161_ gxc#current-compile-verbose - _verbosity160180_ + _verbosity160162_ gxc#current-compile-debug - _debug160181_ + _debug160163_ gxc#current-compile-timestamp - __tmp160338 + __tmp160320 gxc#current-compile-context - __tmp160336 + __tmp160318 gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_srcpath160189_) - (let ((_opts160191_ '())) + (lambda (_srcpath160171_) + (let ((_opts160173_ '())) (declare (not safe)) - (gxc#compile-exe__% _srcpath160189_ _opts160191_)))) + (gxc#compile-exe__% _srcpath160171_ _opts160173_)))) (define gxc#compile-exe - (lambda _g160343_ - (let ((_g160342_ (let () (declare (not safe)) (##length _g160343_)))) - (cond ((let () (declare (not safe)) (##fx= _g160342_ 1)) - (apply (lambda (_srcpath160189_) + (lambda _g160325_ + (let ((_g160324_ (let () (declare (not safe)) (##length _g160325_)))) + (cond ((let () (declare (not safe)) (##fx= _g160324_ 1)) + (apply (lambda (_srcpath160171_) (let () (declare (not safe)) - (gxc#compile-exe__0 _srcpath160189_))) - _g160343_)) - ((let () (declare (not safe)) (##fx= _g160342_ 2)) - (apply (lambda (_srcpath160193_ _opts160194_) + (gxc#compile-exe__0 _srcpath160171_))) + _g160325_)) + ((let () (declare (not safe)) (##fx= _g160324_ 2)) + (apply (lambda (_srcpath160175_ _opts160176_) (let () (declare (not safe)) - (gxc#compile-exe__% _srcpath160193_ _opts160194_))) - _g160343_)) + (gxc#compile-exe__% _srcpath160175_ _opts160176_))) + _g160325_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g160343_)))))) + _g160325_)))))) (define gxc#compile-executable-module - (lambda (_ctx160169_ _opts160170_) + (lambda (_ctx160151_ _opts160152_) (if (let () (declare (not safe)) - (pgetq__0 'full-program-optimization: _opts160170_)) + (pgetq__0 'full-program-optimization: _opts160152_)) (let () (declare (not safe)) (gxc#compile-executable-module/full-program-optimization - _ctx160169_ - _opts160170_)) + _ctx160151_ + _opts160152_)) (let () (declare (not safe)) (gxc#compile-executable-module/separate - _ctx160169_ - _opts160170_))))) + _ctx160151_ + _opts160152_))))) (define gxc#compile-executable-module/separate - (lambda (_ctx160052_ _opts160053_) - (letrec ((_generate-stub160055_ - (lambda (_builtin-modules160165_) - (let ((_mod-main160167_ + (lambda (_ctx160034_ _opts160035_) + (letrec ((_generate-stub160037_ + (lambda (_builtin-modules160147_) + (let ((_mod-main160149_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx160052_ 'main)))) - (write (let ((__tmp160344 - (let ((__tmp160345 - (let ((__tmp160346 - (let ((__tmp160347 - (let ((__tmp160349 - (let ((__tmp160350 + (gxc#find-runtime-symbol _ctx160034_ 'main)))) + (write (let ((__tmp160326 + (let ((__tmp160327 + (let ((__tmp160328 + (let ((__tmp160329 + (let ((__tmp160331 + (let ((__tmp160332 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _builtin-modules160165_ '())))) + (cons _builtin-modules160147_ '())))) (declare (not safe)) - (cons 'quote __tmp160350))) - (__tmp160348 + (cons 'quote __tmp160332))) + (__tmp160330 (let () (declare (not safe)) (cons 'libgerbil-builtin-modules '())))) (declare (not safe)) - (cons __tmp160349 __tmp160348)))) + (cons __tmp160331 __tmp160330)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'append - __tmp160347)))) + __tmp160329)))) (declare (not safe)) - (cons __tmp160346 '())))) + (cons __tmp160328 '())))) (declare (not safe)) - (cons 'builtin-modules __tmp160345)))) + (cons 'builtin-modules __tmp160327)))) (declare (not safe)) - (cons 'define __tmp160344))) - (write (let ((__tmp160351 - (let ((__tmp160390 + (cons 'define __tmp160326))) + (write (let ((__tmp160333 + (let ((__tmp160372 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp160352 - (let ((__tmp160353 - (let ((__tmp160354 - (let ((__tmp160378 - (let ((__tmp160379 + (__tmp160334 + (let ((__tmp160335 + (let ((__tmp160336 + (let ((__tmp160360 + (let ((__tmp160361 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160380 - (let ((__tmp160388 - (let ((__tmp160389 + (let ((__tmp160362 + (let ((__tmp160370 + (let ((__tmp160371 (let () (declare (not safe)) (cons 'builtin-modules '())))) (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp160389))) - (__tmp160381 - (let ((__tmp160382 - (let ((__tmp160383 - (let ((__tmp160384 + __tmp160371))) + (__tmp160363 + (let ((__tmp160364 + (let ((__tmp160365 + (let ((__tmp160366 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160385 - (let ((__tmp160386 - (let ((__tmp160387 + (let ((__tmp160367 + (let ((__tmp160368 + (let ((__tmp160369 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp160387 '())))) + (cons __tmp160369 '())))) (declare (not safe)) - (cons 'cdr __tmp160386)))) + (cons 'cdr __tmp160368)))) (declare (not safe)) - (cons __tmp160385 '())))) + (cons __tmp160367 '())))) (declare (not safe)) - (cons _mod-main160167_ __tmp160384)))) + (cons _mod-main160149_ __tmp160366)))) (declare (not safe)) - (cons 'apply __tmp160383)))) + (cons 'apply __tmp160365)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160382 '())))) + (cons __tmp160364 '())))) (declare (not safe)) - (cons __tmp160388 __tmp160381)))) + (cons __tmp160370 __tmp160363)))) (declare (not safe)) - (cons '() __tmp160380)))) + (cons '() __tmp160362)))) (declare (not safe)) - (cons 'lambda __tmp160379))) - (__tmp160355 - (let ((__tmp160356 - (let ((__tmp160357 - (let ((__tmp160358 - (let ((__tmp160369 - (let ((__tmp160370 - (let ((__tmp160371 + (cons 'lambda __tmp160361))) + (__tmp160337 + (let ((__tmp160338 + (let ((__tmp160339 + (let ((__tmp160340 + (let ((__tmp160351 + (let ((__tmp160352 + (let ((__tmp160353 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160372 - (let ((__tmp160373 - (let ((__tmp160374 - (let ((__tmp160375 - (let ((__tmp160376 - (let ((__tmp160377 + (let ((__tmp160354 + (let ((__tmp160355 + (let ((__tmp160356 + (let ((__tmp160357 + (let ((__tmp160358 + (let ((__tmp160359 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'current-output-port '())))) (declare (not safe)) - (cons __tmp160377 '())))) + (cons __tmp160359 '())))) (declare (not safe)) - (cons 'force-output __tmp160376)))) + (cons 'force-output __tmp160358)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160375 '())))) + (cons __tmp160357 '())))) (declare (not safe)) - (cons '() __tmp160374)))) + (cons '() __tmp160356)))) (declare (not safe)) - (cons 'lambda __tmp160373)))) + (cons 'lambda __tmp160355)))) (declare (not safe)) - (cons __tmp160372 '())))) + (cons __tmp160354 '())))) (declare (not safe)) - (cons 'void __tmp160371)))) + (cons 'void __tmp160353)))) (declare (not safe)) - (cons 'with-catch __tmp160370))) + (cons 'with-catch __tmp160352))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp160359 - (let ((__tmp160360 - (let ((__tmp160361 + (__tmp160341 + (let ((__tmp160342 + (let ((__tmp160343 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160362 - (let ((__tmp160363 - (let ((__tmp160364 - (let ((__tmp160365 - (let ((__tmp160366 - (let ((__tmp160367 + (let ((__tmp160344 + (let ((__tmp160345 + (let ((__tmp160346 + (let ((__tmp160347 + (let ((__tmp160348 + (let ((__tmp160349 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160368 + (let ((__tmp160350 (let () (declare (not safe)) (cons 'current-error-port '())))) (declare (not safe)) - (cons __tmp160368 '())))) + (cons __tmp160350 '())))) (declare (not safe)) - (cons 'force-output __tmp160367)))) + (cons 'force-output __tmp160349)))) (declare (not safe)) - (cons __tmp160366 '())))) + (cons __tmp160348 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp160365)))) + (cons '() __tmp160347)))) (declare (not safe)) - (cons 'lambda __tmp160364)))) + (cons 'lambda __tmp160346)))) (declare (not safe)) - (cons __tmp160363 '())))) + (cons __tmp160345 '())))) (declare (not safe)) - (cons 'void __tmp160362)))) + (cons 'void __tmp160344)))) (declare (not safe)) - (cons 'with-catch __tmp160361)))) + (cons 'with-catch __tmp160343)))) (declare (not safe)) - (cons __tmp160360 '())))) + (cons __tmp160342 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160369 - __tmp160359)))) + (cons __tmp160351 + __tmp160341)))) (declare (not safe)) - (cons '() __tmp160358)))) + (cons '() __tmp160340)))) (declare (not safe)) - (cons 'lambda __tmp160357)))) + (cons 'lambda __tmp160339)))) (declare (not safe)) - (cons __tmp160356 '())))) + (cons __tmp160338 '())))) (declare (not safe)) - (cons __tmp160378 __tmp160355)))) + (cons __tmp160360 __tmp160337)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'with-unwind-protect - __tmp160354)))) + __tmp160336)))) (declare (not safe)) - (cons __tmp160353 '())))) + (cons __tmp160335 '())))) (declare (not safe)) - (cons __tmp160390 __tmp160352)))) + (cons __tmp160372 __tmp160334)))) (declare (not safe)) - (cons 'define __tmp160351))) + (cons 'define __tmp160333))) (write '(gerbil-main)) (newline)))) - (_get-libgerbil-ld-opts160056_ - (lambda (_libgerbil160163_) + (_get-libgerbil-ld-opts160038_ + (lambda (_libgerbil160145_) (call-with-input-file - (string-append _libgerbil160163_ '".ldd") + (string-append _libgerbil160145_ '".ldd") read))) - (_replace-extension160057_ - (lambda (_path160160_ _ext160161_) + (_replace-extension160039_ + (lambda (_path160142_ _ext160143_) (string-append - (path-strip-extension _path160160_) - _ext160161_))) - (_not-exclude-module?160058_ - (lambda (_ctx160156_) - (let ((_id-str160158_ + (path-strip-extension _path160142_) + _ext160143_))) + (_not-exclude-module?160040_ + (lambda (_ctx160138_) + (let ((_id-str160140_ (symbol->string (##structure-ref - _ctx160156_ + _ctx160138_ '1 gx#expander-context::t '#f)))) - (if (let ((__tmp160392 + (if (let ((__tmp160374 (let () (declare (not safe)) (string-prefix? '"gerbil/" - _id-str160158_)))) + _id-str160140_)))) (declare (not safe)) - (not __tmp160392)) - (let ((__tmp160391 + (not __tmp160374)) + (let ((__tmp160373 (let () (declare (not safe)) - (string-prefix? '"std/" _id-str160158_)))) + (string-prefix? '"std/" _id-str160140_)))) (declare (not safe)) - (not __tmp160391)) + (not __tmp160373)) '#f)))) - (_not-file-empty?160059_ - (lambda (_path160154_) - (let ((__tmp160393 + (_not-file-empty?160041_ + (lambda (_path160136_) + (let ((__tmp160375 (let () (declare (not safe)) - (gxc#file-empty? _path160154_)))) + (gxc#file-empty? _path160136_)))) (declare (not safe)) - (not __tmp160393)))) - (_compile-stub160060_ - (lambda (_output-scm160067_ _output-bin160068_) - (let* ((_gerbil-home160070_ + (not __tmp160375)))) + (_compile-stub160042_ + (lambda (_output-scm160049_ _output-bin160050_) + (let* ((_gerbil-home160052_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir160072_ - (path-expand '"lib" _gerbil-home160070_)) - (_gerbil-staticdir160074_ - (path-expand '"static" _gerbil-libdir160072_)) - (_gxlink160076_ + (_gerbil-libdir160054_ + (path-expand '"lib" _gerbil-home160052_)) + (_gerbil-staticdir160056_ + (path-expand '"static" _gerbil-libdir160054_)) + (_gxlink160058_ (path-expand '"libgerbil-link" - _gerbil-libdir160072_)) - (_tmp160078_ + _gerbil-libdir160054_)) + (_tmp160060_ (path-expand (string-append '"gxc." @@ -571,329 +571,329 @@ (declare (not safe)) (gxc#compile-timestamp-nanos)))) '"/tmp")) - (_tmp-path160082_ - (lambda (_f160080_) + (_tmp-path160064_ + (lambda (_f160062_) (path-expand - (path-strip-directory _f160080_) - _tmp160078_))) - (_deps160084_ + (path-strip-directory _f160062_) + _tmp160060_))) + (_deps160066_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx160052_))) - (_deps160086_ - (filter _not-exclude-module?160058_ _deps160084_)) - (_src-deps-scm160088_ - (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_) + (gxc#find-runtime-module-deps _ctx160034_))) + (_deps160068_ + (filter _not-exclude-module?160040_ _deps160066_)) + (_src-deps-scm160070_ + (map gxc#find-static-module-file _deps160068_)) + (_src-deps-scm160072_ + (filter _not-file-empty?160041_ + _src-deps-scm160070_)) + (_src-deps-scm160074_ + (map path-expand _src-deps-scm160072_)) + (_deps-scm160076_ + (map _tmp-path160064_ _src-deps-scm160074_)) + (_deps-c160082_ + (map (lambda (_g160077160079_) (let () (declare (not safe)) - (_replace-extension160057_ - _g160095160097_ + (_replace-extension160039_ + _g160077160079_ '".c"))) - _deps-scm160094_)) - (_deps-o160106_ - (map (lambda (_g160101160103_) + _deps-scm160076_)) + (_deps-o160088_ + (map (lambda (_g160083160085_) (let () (declare (not safe)) - (_replace-extension160057_ - _g160101160103_ + (_replace-extension160039_ + _g160083160085_ '".o"))) - _deps-scm160094_)) - (_src-bin-scm160108_ + _deps-scm160076_)) + (_src-bin-scm160090_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx160052_))) - (_src-bin-scm160110_ - (path-expand _src-bin-scm160108_)) - (_bin-scm160112_ + (gxc#find-static-module-file _ctx160034_))) + (_src-bin-scm160092_ + (path-expand _src-bin-scm160090_)) + (_bin-scm160094_ (let () (declare (not safe)) - (_tmp-path160082_ _src-bin-scm160110_))) - (_bin-c160114_ + (_tmp-path160064_ _src-bin-scm160092_))) + (_bin-c160096_ (let () (declare (not safe)) - (_replace-extension160057_ - _bin-scm160112_ + (_replace-extension160039_ + _bin-scm160094_ '".c"))) - (_bin-o160116_ + (_bin-o160098_ (let () (declare (not safe)) - (_replace-extension160057_ - _bin-scm160112_ + (_replace-extension160039_ + _bin-scm160094_ '".o"))) - (_output-bin160118_ - (path-expand _output-bin160068_)) - (_output-scm160120_ - (path-expand _output-scm160067_)) - (_output-c160122_ + (_output-bin160100_ + (path-expand _output-bin160050_)) + (_output-scm160102_ + (path-expand _output-scm160049_)) + (_output-c160104_ (let () (declare (not safe)) - (_replace-extension160057_ - _output-scm160120_ + (_replace-extension160039_ + _output-scm160102_ '".c"))) - (_output-o160124_ + (_output-o160106_ (let () (declare (not safe)) - (_replace-extension160057_ - _output-scm160120_ + (_replace-extension160039_ + _output-scm160102_ '".o"))) - (_output_-c160126_ + (_output_-c160108_ (let () (declare (not safe)) - (_replace-extension160057_ - _output-scm160120_ + (_replace-extension160039_ + _output-scm160102_ '"_.c"))) - (_output_-o160128_ + (_output_-o160110_ (let () (declare (not safe)) - (_replace-extension160057_ - _output-scm160120_ + (_replace-extension160039_ + _output-scm160102_ '"_.o"))) - (_gsc-link-opts160130_ + (_gsc-link-opts160112_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts160132_ + (_gsc-cc-opts160114_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts160134_ + (_gsc-static-opts160116_ (let () (declare (not safe)) (gxc#gsc-static-include-options - _gerbil-staticdir160074_))) - (_output-ld-opts160136_ + _gerbil-staticdir160056_))) + (_output-ld-opts160118_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_libgerbil.a160138_ - (path-expand '"libgerbil.a" _gerbil-libdir160072_)) - (_libgerbil.so160140_ + (_libgerbil.a160120_ + (path-expand '"libgerbil.a" _gerbil-libdir160054_)) + (_libgerbil.so160122_ (path-expand '"libgerbil.so" - _gerbil-libdir160072_)) - (_libgerbil-ld-opts160142_ - (if (file-exists? _libgerbil.so160140_) + _gerbil-libdir160054_)) + (_libgerbil-ld-opts160124_ + (if (file-exists? _libgerbil.so160122_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts160056_ - _libgerbil.so160140_)) - (if (file-exists? _libgerbil.a160138_) + (_get-libgerbil-ld-opts160038_ + _libgerbil.so160122_)) + (if (file-exists? _libgerbil.a160120_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts160056_ - _libgerbil.a160138_)) + (_get-libgerbil-ld-opts160038_ + _libgerbil.a160120_)) (let () (declare (not safe)) (gxc#raise-compile-error '"libgerbil does not exist" - _libgerbil.a160138_ - _libgerbil.so160140_))))) - (_rpath160144_ + _libgerbil.a160120_ + _libgerbil.so160122_))))) + (_rpath160126_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir160072_))) - (_builtin-modules160148_ - (map (lambda (_mod160146_) + (gxc#gerbil-rpath _gerbil-libdir160054_))) + (_builtin-modules160130_ + (map (lambda (_mod160128_) (symbol->string (##structure-ref - _mod160146_ + _mod160128_ '1 gx#expander-context::t '#f))) (let () (declare (not safe)) - (cons _ctx160052_ _deps160086_))))) - (let ((__tmp160394 + (cons _ctx160034_ _deps160068_))))) + (let ((__tmp160376 (lambda () - (let ((__tmp160395 - (path-directory _output-bin160118_))) + (let ((__tmp160377 + (path-directory _output-bin160100_))) (declare (not safe)) - (create-directory*__0 __tmp160395))))) + (create-directory*__0 __tmp160377))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160394)) - (let ((__tmp160396 + (with-lock gxc#+driver-mutex+ __tmp160376)) + (let ((__tmp160378 (lambda () (let () (declare (not safe)) - (_generate-stub160055_ - _builtin-modules160148_))))) + (_generate-stub160037_ + _builtin-modules160130_))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm160120_ - __tmp160396)) + _output-scm160102_ + __tmp160378)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp160397 - (lambda () (create-directory _tmp160078_)))) + (let ((__tmp160379 + (lambda () (create-directory _tmp160060_)))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160397)) + (with-lock gxc#+driver-mutex+ __tmp160379)) (for-each copy-file - _src-deps-scm160092_ - _deps-scm160094_) - (copy-file _src-bin-scm160110_ _bin-scm160112_) - (let ((__tmp160405 + _src-deps-scm160074_ + _deps-scm160076_) + (copy-file _src-bin-scm160092_ _bin-scm160094_) + (let ((__tmp160387 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp160398 - (let ((__tmp160399 - (let ((__tmp160400 - (let ((__tmp160401 - (let ((__tmp160402 - (let ((__tmp160403 + (__tmp160380 + (let ((__tmp160381 + (let ((__tmp160382 + (let ((__tmp160383 + (let ((__tmp160384 + (let ((__tmp160385 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160404 + (let ((__tmp160386 (let () (declare (not safe)) - (cons _output-scm160120_ '())))) + (cons _output-scm160102_ '())))) (declare (not safe)) - (cons _bin-scm160112_ __tmp160404)))) + (cons _bin-scm160094_ __tmp160386)))) (declare (not safe)) - (foldr1 cons __tmp160403 _deps-scm160094_)))) + (foldr1 cons __tmp160385 _deps-scm160076_)))) (declare (not safe)) - (foldr1 cons __tmp160402 _gsc-link-opts160130_)))) + (foldr1 cons __tmp160384 _gsc-link-opts160112_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _gxlink160076_ - __tmp160401)))) + (cons _gxlink160058_ + __tmp160383)))) (declare (not safe)) - (cons '"-l" __tmp160400)))) + (cons '"-l" __tmp160382)))) (declare (not safe)) - (cons '"-link" __tmp160399)))) + (cons '"-link" __tmp160381)))) (declare (not safe)) - (gxc#invoke __tmp160405 __tmp160398)) - (let ((__tmp160413 + (gxc#invoke __tmp160387 __tmp160380)) + (let ((__tmp160395 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp160406 - (let ((__tmp160407 - (let ((__tmp160408 - (let ((__tmp160409 - (let ((__tmp160410 - (let ((__tmp160411 + (__tmp160388 + (let ((__tmp160389 + (let ((__tmp160390 + (let ((__tmp160391 + (let ((__tmp160392 + (let ((__tmp160393 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160412 + (let ((__tmp160394 (let () (declare (not safe)) - (cons _output_-c160126_ '())))) + (cons _output_-c160108_ '())))) (declare (not safe)) - (cons _output-c160122_ __tmp160412)))) + (cons _output-c160104_ __tmp160394)))) (declare (not safe)) - (cons _bin-c160114_ __tmp160411)))) + (cons _bin-c160096_ __tmp160393)))) (declare (not safe)) - (foldr1 cons __tmp160410 _deps-c160100_)))) + (foldr1 cons __tmp160392 _deps-c160082_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp160409 - _gsc-static-opts160134_)))) + __tmp160391 + _gsc-static-opts160116_)))) (declare (not safe)) (foldr1 cons - __tmp160408 - _gsc-cc-opts160132_)))) + __tmp160390 + _gsc-cc-opts160114_)))) (declare (not safe)) - (cons '"-obj" __tmp160407)))) + (cons '"-obj" __tmp160389)))) (declare (not safe)) - (gxc#invoke __tmp160413 __tmp160406)) - (let ((__tmp160426 + (gxc#invoke __tmp160395 __tmp160388)) + (let ((__tmp160408 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp160414 - (let ((__tmp160415 - (let ((__tmp160416 - (let ((__tmp160417 - (let ((__tmp160418 - (let ((__tmp160419 + (__tmp160396 + (let ((__tmp160397 + (let ((__tmp160398 + (let ((__tmp160399 + (let ((__tmp160400 + (let ((__tmp160401 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160420 - (let ((__tmp160421 - (let ((__tmp160422 - (let ((__tmp160423 - (let ((__tmp160424 + (let ((__tmp160402 + (let ((__tmp160403 + (let ((__tmp160404 + (let ((__tmp160405 + (let ((__tmp160406 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160425 + (let ((__tmp160407 (let () (declare (not safe)) (cons '"-lgambit" - _libgerbil-ld-opts160142_)))) + _libgerbil-ld-opts160124_)))) (declare (not safe)) - (cons '"-lgerbil" __tmp160425)))) + (cons '"-lgerbil" __tmp160407)))) (declare (not safe)) - (cons _gerbil-libdir160072_ __tmp160424)))) + (cons _gerbil-libdir160054_ __tmp160406)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"-L" - __tmp160423)))) + __tmp160405)))) (declare (not safe)) - (cons _rpath160144_ - __tmp160422)))) + (cons _rpath160126_ + __tmp160404)))) (declare (not safe)) (foldr1 cons - __tmp160421 - _output-ld-opts160136_)))) + __tmp160403 + _output-ld-opts160118_)))) (declare (not safe)) - (cons _output_-o160128_ __tmp160420)))) + (cons _output_-o160110_ __tmp160402)))) (declare (not safe)) - (cons _output-o160124_ __tmp160419)))) + (cons _output-o160106_ __tmp160401)))) (declare (not safe)) - (cons _bin-o160116_ __tmp160418)))) + (cons _bin-o160098_ __tmp160400)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp160417 - _deps-o160106_)))) + __tmp160399 + _deps-o160088_)))) (declare (not safe)) - (cons _output-bin160118_ - __tmp160416)))) + (cons _output-bin160100_ + __tmp160398)))) (declare (not safe)) - (cons '"-o" __tmp160415)))) + (cons '"-o" __tmp160397)))) (declare (not safe)) - (gxc#invoke __tmp160426 __tmp160414)) + (gxc#invoke __tmp160408 __tmp160396)) (for-each delete-file - (let ((__tmp160427 - (let ((__tmp160428 - (let ((__tmp160429 + (let ((__tmp160409 + (let ((__tmp160410 + (let ((__tmp160411 (let () (declare (not safe)) - (cons _output_-o160128_ + (cons _output_-o160110_ '())))) (declare (not safe)) - (cons _output-o160124_ - __tmp160429)))) + (cons _output-o160106_ + __tmp160411)))) (declare (not safe)) - (cons _output_-c160126_ __tmp160428)))) + (cons _output_-c160108_ __tmp160410)))) (declare (not safe)) - (cons _output-c160122_ __tmp160427))) + (cons _output-c160104_ __tmp160409))) (let () (declare (not safe)) - (gxc#delete-directory* _tmp160078_))) + (gxc#delete-directory* _tmp160060_))) '#!void))))) - (let* ((_output-bin160062_ + (let* ((_output-bin160044_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx160052_ _opts160053_))) - (_output-scm160064_ - (string-append _output-bin160062_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx160034_ _opts160035_))) + (_output-scm160046_ + (string-append _output-bin160044_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub160060_ _output-scm160064_ _output-bin160062_)) + (_compile-stub160042_ _output-scm160046_ _output-bin160044_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm160064_)))))) + (delete-file _output-scm160046_)))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_ctx159877_ _opts159878_) - (letrec ((_reset-declare159880_ + (lambda (_ctx159859_ _opts159860_) + (letrec ((_reset-declare159862_ (lambda () '(declare (gambit-scheme) @@ -915,643 +915,643 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_generate-stub159881_ - (lambda (_deps160043_) - (let ((_mod-main160045_ + (_generate-stub159863_ + (lambda (_deps160025_) + (let ((_mod-main160027_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx159877_ 'main))) - (_reset-decl160046_ + (gxc#find-runtime-symbol _ctx159859_ 'main))) + (_reset-decl160028_ (let () (declare (not safe)) - (_reset-declare159880_))) - (_user-decl160047_ + (_reset-declare159862_))) + (_user-decl160029_ (let () (declare (not safe)) - (_user-declare159882_)))) + (_user-declare159864_)))) (for-each - (lambda (_dep160049_) + (lambda (_dep160031_) (write '(##namespace (""))) (newline) - (write _reset-decl160046_) + (write _reset-decl160028_) (newline) - (if _user-decl160047_ - (begin (write _user-decl160047_) (newline)) + (if _user-decl160029_ + (begin (write _user-decl160029_) (newline)) '#!void) - (write (let ((__tmp160430 + (write (let ((__tmp160412 (let () (declare (not safe)) - (cons _dep160049_ '())))) + (cons _dep160031_ '())))) (declare (not safe)) - (cons 'include __tmp160430))) + (cons 'include __tmp160412))) (newline)) - _deps160043_) - (write (let ((__tmp160431 - (let ((__tmp160444 + _deps160025_) + (write (let ((__tmp160413 + (let ((__tmp160426 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp160432 - (let ((__tmp160440 - (let ((__tmp160441 - (let ((__tmp160442 - (let ((__tmp160443 + (__tmp160414 + (let ((__tmp160422 + (let ((__tmp160423 + (let ((__tmp160424 + (let ((__tmp160425 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons 'quote __tmp160443)))) + (cons 'quote __tmp160425)))) (declare (not safe)) - (cons __tmp160442 '())))) + (cons __tmp160424 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp160441))) - (__tmp160433 - (let ((__tmp160434 - (let ((__tmp160435 - (let ((__tmp160436 + __tmp160423))) + (__tmp160415 + (let ((__tmp160416 + (let ((__tmp160417 + (let ((__tmp160418 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160437 - (let ((__tmp160438 - (let ((__tmp160439 + (let ((__tmp160419 + (let ((__tmp160420 + (let ((__tmp160421 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp160439 '())))) + (cons __tmp160421 '())))) (declare (not safe)) - (cons 'cdr __tmp160438)))) + (cons 'cdr __tmp160420)))) (declare (not safe)) - (cons __tmp160437 '())))) + (cons __tmp160419 '())))) (declare (not safe)) - (cons _mod-main160045_ __tmp160436)))) + (cons _mod-main160027_ __tmp160418)))) (declare (not safe)) - (cons 'apply __tmp160435)))) + (cons 'apply __tmp160417)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160434 '())))) + (cons __tmp160416 '())))) (declare (not safe)) - (cons __tmp160440 __tmp160433)))) + (cons __tmp160422 __tmp160415)))) (declare (not safe)) - (cons __tmp160444 __tmp160432)))) + (cons __tmp160426 __tmp160414)))) (declare (not safe)) - (cons 'define __tmp160431))) + (cons 'define __tmp160413))) (write '(gerbil-main)) (newline)))) - (_user-declare159882_ + (_user-declare159864_ (lambda () - (let* ((_gsc-opts159948_ + (let* ((_gsc-opts159930_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _opts159878_))) - (_gsc-prelude159950_ - (if _gsc-opts159948_ - (member '"-prelude" _gsc-opts159948_) + (pgetq__0 'gsc-options: _opts159860_))) + (_gsc-prelude159932_ + (if _gsc-opts159930_ + (member '"-prelude" _gsc-opts159930_) '#f)) - (_gsc-prelude159952_ - (if _gsc-prelude159950_ + (_gsc-prelude159934_ + (if _gsc-prelude159932_ (read (open-input-string - (cadr _gsc-prelude159950_))) + (cadr _gsc-prelude159932_))) '#f))) - (let _lp159955_ ((_rest159957_ + (let _lp159937_ ((_rest159939_ (let () (declare (not safe)) - (cons _gsc-prelude159952_ '()))) - (_user-decls159958_ '())) - (let* ((_rest159959159967_ _rest159957_) - (_else159961159975_ + (cons _gsc-prelude159934_ '()))) + (_user-decls159940_ '())) + (let* ((_rest159941159949_ _rest159939_) + (_else159943159957_ (lambda () (if (let () (declare (not safe)) - (null? _user-decls159958_)) + (null? _user-decls159940_)) '#f - (let ((__tmp160445 - (reverse _user-decls159958_))) + (let ((__tmp160427 + (reverse _user-decls159940_))) (declare (not safe)) - (cons 'declare __tmp160445))))) - (_K159963160031_ - (lambda (_rest159978_ _expr159979_) - (let* ((_expr159980159992_ _expr159979_) - (_else159983160000_ + (cons 'declare __tmp160427))))) + (_K159945160013_ + (lambda (_rest159960_ _expr159961_) + (let* ((_expr159962159974_ _expr159961_) + (_else159965159982_ (lambda () (let () (declare (not safe)) - (_lp159955_ - _rest159978_ - _user-decls159958_))))) - (let ((_K159988160021_ - (lambda (_decls160019_) - (let ((__tmp160446 + (_lp159937_ + _rest159960_ + _user-decls159940_))))) + (let ((_K159970160003_ + (lambda (_decls160001_) + (let ((__tmp160428 (let () (declare (not safe)) (foldl1 cons - _user-decls159958_ - _decls160019_)))) + _user-decls159940_ + _decls160001_)))) (declare (not safe)) - (_lp159955_ - _rest159978_ - __tmp160446)))) - (_K159985160006_ - (lambda (_exprs160004_) - (let ((__tmp160447 - (append _exprs160004_ - _rest159978_))) + (_lp159937_ + _rest159960_ + __tmp160428)))) + (_K159967159988_ + (lambda (_exprs159986_) + (let ((__tmp160429 + (append _exprs159986_ + _rest159960_))) (declare (not safe)) - (_lp159955_ - __tmp160447 - _user-decls159958_))))) + (_lp159937_ + __tmp160429 + _user-decls159940_))))) (if (let () (declare (not safe)) - (##pair? _expr159980159992_)) - (let ((_tl159990160026_ + (##pair? _expr159962159974_)) + (let ((_tl159972160008_ (let () (declare (not safe)) - (##cdr _expr159980159992_))) - (_hd159989160024_ + (##cdr _expr159962159974_))) + (_hd159971160006_ (let () (declare (not safe)) - (##car _expr159980159992_)))) + (##car _expr159962159974_)))) (if (let () (declare (not safe)) - (##eq? _hd159989160024_ + (##eq? _hd159971160006_ 'declare)) - (let ((_decls160029_ - _tl159990160026_)) + (let ((_decls160011_ + _tl159972160008_)) (declare (not safe)) - (_K159988160021_ - _decls160029_)) + (_K159970160003_ + _decls160011_)) (if (let () (declare (not safe)) - (##eq? _hd159989160024_ + (##eq? _hd159971160006_ 'begin)) - (let ((_exprs160014_ - _tl159990160026_)) + (let ((_exprs159996_ + _tl159972160008_)) (declare (not safe)) - (_K159985160006_ - _exprs160014_)) + (_K159967159988_ + _exprs159996_)) (let () (declare (not safe)) - (_else159983160000_))))) + (_else159965159982_))))) (let () (declare (not safe)) - (_else159983160000_)))))))) + (_else159965159982_)))))))) (if (let () (declare (not safe)) - (##pair? _rest159959159967_)) - (let ((_hd159964160034_ + (##pair? _rest159941159949_)) + (let ((_hd159946160016_ (let () (declare (not safe)) - (##car _rest159959159967_))) - (_tl159965160036_ + (##car _rest159941159949_))) + (_tl159947160018_ (let () (declare (not safe)) - (##cdr _rest159959159967_)))) - (let* ((_expr160039_ _hd159964160034_) - (_rest160041_ _tl159965160036_)) + (##cdr _rest159941159949_)))) + (let* ((_expr160021_ _hd159946160016_) + (_rest160023_ _tl159947160018_)) (declare (not safe)) - (_K159963160031_ _rest160041_ _expr160039_))) + (_K159945160013_ _rest160023_ _expr160021_))) (let () (declare (not safe)) - (_else159961159975_)))))))) - (_compile-stub159883_ - (lambda (_output-scm159890_ _output-bin159891_) - (let* ((_gerbil-home159893_ + (_else159943159957_)))))))) + (_compile-stub159865_ + (lambda (_output-scm159872_ _output-bin159873_) + (let* ((_gerbil-home159875_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir159895_ - (path-expand '"lib" _gerbil-home159893_)) - (_runtime159897_ + (_gerbil-libdir159877_ + (path-expand '"lib" _gerbil-home159875_)) + (_runtime159879_ (map gxc#find-static-module-file gxc#gerbil-runtime-modules)) - (_gambit-sharp159899_ + (_gambit-sharp159881_ (path-expand '"lib/_gambit#.scm" - _gerbil-home159893_)) - (_include-gambit-sharp159901_ + _gerbil-home159875_)) + (_include-gambit-sharp159883_ (string-append '"(include \"" - _gambit-sharp159899_ + _gambit-sharp159881_ '"\")")) - (_bin-scm159903_ + (_bin-scm159885_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx159877_))) - (_deps159905_ + (gxc#find-static-module-file _ctx159859_))) + (_deps159887_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx159877_))) - (_deps159907_ - (map gxc#find-static-module-file _deps159905_)) - (_deps159912_ - (filter (lambda (_$obj159909_) - (let ((__tmp160448 + (gxc#find-runtime-module-deps _ctx159859_))) + (_deps159889_ + (map gxc#find-static-module-file _deps159887_)) + (_deps159894_ + (filter (lambda (_$obj159891_) + (let ((__tmp160430 (let () (declare (not safe)) (gxc#file-empty? - _$obj159909_)))) + _$obj159891_)))) (declare (not safe)) - (not __tmp160448))) - _deps159907_)) - (_deps159916_ - (filter (lambda (_f159914_) - (let ((__tmp160449 - (member _f159914_ - _runtime159897_))) + (not __tmp160430))) + _deps159889_)) + (_deps159898_ + (filter (lambda (_f159896_) + (let ((__tmp160431 + (member _f159896_ + _runtime159879_))) (declare (not safe)) - (not __tmp160449))) - _deps159912_)) - (_output-base159918_ + (not __tmp160431))) + _deps159894_)) + (_output-base159900_ (string-append - (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_ + (path-strip-extension _output-scm159872_))) + (_output-c159902_ + (string-append _output-base159900_ '".c")) + (_output-o159904_ + (string-append _output-base159900_ '".o")) + (_output-c_159906_ + (string-append _output-base159900_ '"_.c")) + (_output-o_159908_ + (string-append _output-base159900_ '"_.o")) + (_gsc-link-opts159910_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts159930_ + (_gsc-cc-opts159912_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts159932_ - (let ((__tmp160450 + (_gsc-static-opts159914_ + (let ((__tmp160432 (path-expand '"static" - _gerbil-libdir159895_))) + _gerbil-libdir159877_))) (declare (not safe)) - (gxc#gsc-static-include-options __tmp160450))) - (_output-ld-opts159934_ + (gxc#gsc-static-include-options __tmp160432))) + (_output-ld-opts159916_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_gsc-gx-macros159936_ + (_gsc-gx-macros159918_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) - (let ((__tmp160452 - (let ((__tmp160453 - (let ((__tmp160454 + (let ((__tmp160434 + (let ((__tmp160435 + (let ((__tmp160436 (let () (declare (not safe)) - (cons _include-gambit-sharp159901_ + (cons _include-gambit-sharp159883_ '())))) (declare (not safe)) - (cons '"-e" __tmp160454)))) + (cons '"-e" __tmp160436)))) (declare (not safe)) (cons '"(define-cond-expand-feature|enable-smp|)" - __tmp160453)))) + __tmp160435)))) (declare (not safe)) - (cons '"-e" __tmp160452)) - (let ((__tmp160451 + (cons '"-e" __tmp160434)) + (let ((__tmp160433 (let () (declare (not safe)) - (cons _include-gambit-sharp159901_ + (cons _include-gambit-sharp159883_ '())))) (declare (not safe)) - (cons '"-e" __tmp160451)))) - (_gsc-link-opts159938_ - (append _gsc-link-opts159928_ - _gsc-gx-macros159936_)) - (_rpath159940_ + (cons '"-e" __tmp160433)))) + (_gsc-link-opts159920_ + (append _gsc-link-opts159910_ + _gsc-gx-macros159918_)) + (_rpath159922_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir159895_))) - (_default-ld-options159942_ - (let ((__tmp160455 + (gxc#gerbil-rpath _gerbil-libdir159877_))) + (_default-ld-options159924_ + (let ((__tmp160437 (let () (declare (not safe)) (cons '"-lm" '())))) (declare (not safe)) - (cons '"-ldl" __tmp160455)))) - (let ((__tmp160456 + (cons '"-ldl" __tmp160437)))) + (let ((__tmp160438 (lambda () - (let ((__tmp160457 - (path-directory _output-bin159891_))) + (let ((__tmp160439 + (path-directory _output-bin159873_))) (declare (not safe)) - (create-directory*__0 __tmp160457))))) + (create-directory*__0 __tmp160439))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160456)) - (let ((__tmp160458 + (with-lock gxc#+driver-mutex+ __tmp160438)) + (let ((__tmp160440 (lambda () - (let ((__tmp160459 - (let ((__tmp160460 - (let ((__tmp160461 + (let ((__tmp160441 + (let ((__tmp160442 + (let ((__tmp160443 (let () (declare (not safe)) - (cons _bin-scm159903_ + (cons _bin-scm159885_ '())))) (declare (not safe)) (foldr1 cons - __tmp160461 - _deps159916_)))) + __tmp160443 + _deps159898_)))) (declare (not safe)) (foldr1 cons - __tmp160460 - _runtime159897_)))) + __tmp160442 + _runtime159879_)))) (declare (not safe)) - (_generate-stub159881_ __tmp160459))))) + (_generate-stub159863_ __tmp160441))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm159890_ - __tmp160458)) + _output-scm159872_ + __tmp160440)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp160467 + (let ((__tmp160449 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp160462 - (let ((__tmp160463 - (let ((__tmp160464 - (let ((__tmp160465 - (let ((__tmp160466 + (__tmp160444 + (let ((__tmp160445 + (let ((__tmp160446 + (let ((__tmp160447 + (let ((__tmp160448 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-scm159890_ '())))) + (cons _output-scm159872_ '())))) (declare (not safe)) - (foldr1 cons __tmp160466 _gsc-link-opts159938_)))) + (foldr1 cons __tmp160448 _gsc-link-opts159920_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-c_159924_ - __tmp160465)))) + (cons _output-c_159906_ + __tmp160447)))) (declare (not safe)) - (cons '"-o" __tmp160464)))) + (cons '"-o" __tmp160446)))) (declare (not safe)) - (cons '"-link" __tmp160463)))) + (cons '"-link" __tmp160445)))) (declare (not safe)) - (gxc#invoke __tmp160467 __tmp160462)) - (let ((__tmp160473 + (gxc#invoke __tmp160449 __tmp160444)) + (let ((__tmp160455 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp160468 - (let ((__tmp160469 - (let ((__tmp160470 - (let ((__tmp160471 - (let ((__tmp160472 + (__tmp160450 + (let ((__tmp160451 + (let ((__tmp160452 + (let ((__tmp160453 + (let ((__tmp160454 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-c_159924_ '())))) + (cons _output-c_159906_ '())))) (declare (not safe)) - (cons _output-c159920_ __tmp160472)))) + (cons _output-c159902_ __tmp160454)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp160471 - _gsc-static-opts159932_)))) + __tmp160453 + _gsc-static-opts159914_)))) (declare (not safe)) (foldr1 cons - __tmp160470 - _gsc-cc-opts159930_)))) + __tmp160452 + _gsc-cc-opts159912_)))) (declare (not safe)) - (cons '"-obj" __tmp160469)))) + (cons '"-obj" __tmp160451)))) (declare (not safe)) - (gxc#invoke __tmp160473 __tmp160468)) - (let ((__tmp160483 + (gxc#invoke __tmp160455 __tmp160450)) + (let ((__tmp160465 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp160474 - (let ((__tmp160475 - (let ((__tmp160476 - (let ((__tmp160477 - (let ((__tmp160478 - (let ((__tmp160479 + (__tmp160456 + (let ((__tmp160457 + (let ((__tmp160458 + (let ((__tmp160459 + (let ((__tmp160460 + (let ((__tmp160461 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp160480 - (let ((__tmp160481 - (let ((__tmp160482 + (let ((__tmp160462 + (let ((__tmp160463 + (let ((__tmp160464 (let () (declare (not safe)) (cons '"-lgambit" - _default-ld-options159942_)))) + _default-ld-options159924_)))) (declare (not safe)) - (cons _gerbil-libdir159895_ - __tmp160482)))) + (cons _gerbil-libdir159877_ + __tmp160464)))) (declare (not safe)) - (cons '"-L" __tmp160481)))) + (cons '"-L" __tmp160463)))) (declare (not safe)) - (cons _rpath159940_ __tmp160480)))) + (cons _rpath159922_ __tmp160462)))) (declare (not safe)) - (foldr1 cons __tmp160479 _output-ld-opts159934_)))) + (foldr1 cons __tmp160461 _output-ld-opts159916_)))) (declare (not safe)) - (cons _output-o_159926_ __tmp160478)))) + (cons _output-o_159908_ __tmp160460)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-o159922_ - __tmp160477)))) + (cons _output-o159904_ + __tmp160459)))) (declare (not safe)) - (cons _output-bin159891_ - __tmp160476)))) + (cons _output-bin159873_ + __tmp160458)))) (declare (not safe)) - (cons '"-o" __tmp160475)))) + (cons '"-o" __tmp160457)))) (declare (not safe)) - (gxc#invoke __tmp160483 __tmp160474))) + (gxc#invoke __tmp160465 __tmp160456))) '#!void))))) - (let* ((_output-bin159885_ + (let* ((_output-bin159867_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx159877_ _opts159878_))) - (_output-scm159887_ - (string-append _output-bin159885_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx159859_ _opts159860_))) + (_output-scm159869_ + (string-append _output-bin159867_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub159883_ _output-scm159887_ _output-bin159885_)) + (_compile-stub159865_ _output-scm159869_ _output-bin159867_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm159887_)))))) + (delete-file _output-scm159869_)))))) (define gxc#find-export-binding - (lambda (_ctx159827_ _id159828_) - (let ((_$e159874_ - (let ((__tmp160485 - (lambda (_e159829159831_) - (let* ((_g159833159843_ _e159829159831_) - (_else159835159851_ (lambda () '#f)) - (_K159837159855_ (lambda () '#t))) + (lambda (_ctx159809_ _id159810_) + (let ((_$e159856_ + (let ((__tmp160467 + (lambda (_e159811159813_) + (let* ((_g159815159825_ _e159811159813_) + (_else159817159833_ (lambda () '#f)) + (_K159819159837_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _g159833159843_ + _g159815159825_ 'gx#module-export::t)) - (let* ((_e159838159858_ + (let* ((_e159820159840_ (let () (declare (not safe)) (##unchecked-structure-ref - _g159833159843_ + _g159815159825_ '1 gx#module-export::t '#f))) - (_e159839159861_ + (_e159821159843_ (let () (declare (not safe)) (##unchecked-structure-ref - _g159833159843_ + _g159815159825_ '2 gx#module-export::t '#f))) - (_e159840159864_ + (_e159822159846_ (let () (declare (not safe)) (##unchecked-structure-ref - _g159833159843_ + _g159815159825_ '3 gx#module-export::t '#f)))) (if (let () (declare (not safe)) - (##eq? _e159840159864_ '0)) - (let ((_e159841159867_ + (##eq? _e159822159846_ '0)) + (let ((_e159823159849_ (let () (declare (not safe)) (##unchecked-structure-ref - _g159833159843_ + _g159815159825_ '4 gx#module-export::t '#f)))) - (if ((lambda (_g159869159871_) + (if ((lambda (_g159851159853_) (let () (declare (not safe)) - (eq? _g159869159871_ - _id159828_))) - _e159841159867_) + (eq? _g159851159853_ + _id159810_))) + _e159823159849_) (let () (declare (not safe)) - (_K159837159855_)) + (_K159819159837_)) (let () (declare (not safe)) - (_else159835159851_)))) + (_else159817159833_)))) (let () (declare (not safe)) - (_else159835159851_)))) + (_else159817159833_)))) (let () (declare (not safe)) - (_else159835159851_)))))) - (__tmp160484 + (_else159817159833_)))))) + (__tmp160466 (##structure-ref - _ctx159827_ + _ctx159809_ '9 gx#module-context::t '#f))) (declare (not safe)) - (find __tmp160485 __tmp160484)))) - (if _$e159874_ + (find __tmp160467 __tmp160466)))) + (if _$e159856_ (let () (declare (not safe)) - (gx#core-resolve-module-export _$e159874_)) + (gx#core-resolve-module-export _$e159856_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_ctx159819_ _id159820_) - (let ((_$e159822_ + (lambda (_ctx159801_ _id159802_) + (let ((_$e159804_ (let () (declare (not safe)) - (gxc#find-export-binding _ctx159819_ _id159820_)))) - (if _$e159822_ - ((lambda (_bind159825_) + (gxc#find-export-binding _ctx159801_ _id159802_)))) + (if _$e159804_ + ((lambda (_bind159807_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind159825_ + _bind159807_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _id159820_))) - (##structure-ref _bind159825_ '1 gx#binding::t '#f)) - _$e159822_) - (let ((__tmp160486 + _id159802_))) + (##structure-ref _bind159807_ '1 gx#binding::t '#f)) + _$e159804_) + (let ((__tmp160468 (##structure-ref - _ctx159819_ + _ctx159801_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp160486 - _id159820_)))))) + __tmp160468 + _id159802_)))))) (define gxc#find-runtime-module-deps - (lambda (_ctx159706_) - (letrec* ((_ht159708_ + (lambda (_ctx159688_) + (letrec* ((_ht159690_ (let () (declare (not safe)) (make-hash-table-eq))) - (_import-set-template159709_ - (lambda (_in159771_ _phi159772_) - (let ((_iphi159774_ - (fx+ _phi159772_ + (_import-set-template159691_ + (lambda (_in159753_ _phi159754_) + (let ((_iphi159756_ + (fx+ _phi159754_ (##direct-structure-ref - _in159771_ + _in159753_ '2 gx#import-set::t '#f))) - (_imports159775_ + (_imports159757_ (##structure-ref (##direct-structure-ref - _in159771_ + _in159753_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp159777_ ((_rest159779_ _imports159775_) - (_r159780_ '())) - (let* ((_rest159781159789_ _rest159779_) - (_else159783159797_ (lambda () _r159780_)) - (_K159785159807_ - (lambda (_rest159800_ _in159801_) + (let _lp159759_ ((_rest159761_ _imports159757_) + (_r159762_ '())) + (let* ((_rest159763159771_ _rest159761_) + (_else159765159779_ (lambda () _r159762_)) + (_K159767159789_ + (lambda (_rest159782_ _in159783_) (if (let () (declare (not safe)) (##structure-instance-of? - _in159801_ + _in159783_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi159774_)) - (let ((__tmp160493 + (fxzero? _iphi159756_)) + (let ((__tmp160475 (let () (declare (not safe)) - (cons _in159801_ - _r159780_)))) + (cons _in159783_ + _r159762_)))) (declare (not safe)) - (_lp159777_ - _rest159800_ - __tmp160493)) + (_lp159759_ + _rest159782_ + __tmp160475)) (let () (declare (not safe)) - (_lp159777_ - _rest159800_ - _r159780_))) + (_lp159759_ + _rest159782_ + _r159762_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in159801_ + _in159783_ 'gx#module-import::t)) - (let ((_iphi159803_ - (fx+ _phi159772_ + (let ((_iphi159785_ + (fx+ _phi159754_ (##direct-structure-ref - _in159801_ + _in159783_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi159803_)) - (let ((__tmp160491 - (let ((__tmp160492 + (fxzero? _iphi159785_)) + (let ((__tmp160473 + (let ((__tmp160474 (##direct-structure-ref (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in159801_ + _in159783_ '1 gx#module-import::t '#f) @@ -1559,886 +1559,886 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp160492 _r159780_)))) + (cons __tmp160474 _r159762_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp159777_ - _rest159800_ - __tmp160491)) + (_lp159759_ + _rest159782_ + __tmp160473)) (let () (declare (not safe)) - (_lp159777_ - _rest159800_ - _r159780_)))) + (_lp159759_ + _rest159782_ + _r159762_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in159801_ + _in159783_ 'gx#import-set::t)) - (let ((_xphi159805_ - (fx+ _iphi159774_ + (let ((_xphi159787_ + (fx+ _iphi159756_ (##direct-structure-ref - _in159801_ + _in159783_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi159805_)) - (let ((__tmp160489 - (let ((__tmp160490 + (fxzero? _xphi159787_)) + (let ((__tmp160471 + (let ((__tmp160472 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in159801_ + _in159783_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp160490 _r159780_)))) + (cons __tmp160472 _r159762_)))) (declare (not safe)) - (_lp159777_ _rest159800_ __tmp160489)) + (_lp159759_ _rest159782_ __tmp160471)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fxpositive? - _xphi159805_) - (let ((__tmp160487 - (let ((__tmp160488 + _xphi159787_) + (let ((__tmp160469 + (let ((__tmp160470 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_import-set-template159709_ - _in159801_ - _iphi159774_)))) + (_import-set-template159691_ + _in159783_ + _iphi159756_)))) (declare (not safe)) - (foldl1 cons _r159780_ __tmp160488)))) + (foldl1 cons _r159762_ __tmp160470)))) (declare (not safe)) - (_lp159777_ _rest159800_ __tmp160487)) + (_lp159759_ _rest159782_ __tmp160469)) (let () (declare (not safe)) - (_lp159777_ _rest159800_ _r159780_))))) + (_lp159759_ _rest159782_ _r159762_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp159777_ - _rest159800_ - _r159780_)))))))) + (_lp159759_ + _rest159782_ + _r159762_)))))))) (if (let () (declare (not safe)) - (##pair? _rest159781159789_)) - (let ((_hd159786159810_ + (##pair? _rest159763159771_)) + (let ((_hd159768159792_ (let () (declare (not safe)) - (##car _rest159781159789_))) - (_tl159787159812_ + (##car _rest159763159771_))) + (_tl159769159794_ (let () (declare (not safe)) - (##cdr _rest159781159789_)))) - (let* ((_in159815_ _hd159786159810_) - (_rest159817_ _tl159787159812_)) + (##cdr _rest159763159771_)))) + (let* ((_in159797_ _hd159768159792_) + (_rest159799_ _tl159769159794_)) (declare (not safe)) - (_K159785159807_ _rest159817_ _in159815_))) + (_K159767159789_ _rest159799_ _in159797_))) (let () (declare (not safe)) - (_else159783159797_)))))))) - (_find-deps159710_ - (lambda (_rest159717_ _deps159718_) - (let* ((_rest159719159727_ _rest159717_) - (_else159721159735_ (lambda () _deps159718_)) - (_K159723159759_ - (lambda (_rest159738_ _hd159739_) + (_else159765159779_)))))))) + (_find-deps159692_ + (lambda (_rest159699_ _deps159700_) + (let* ((_rest159701159709_ _rest159699_) + (_else159703159717_ (lambda () _deps159700_)) + (_K159705159741_ + (lambda (_rest159720_ _hd159721_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd159739_ + _hd159721_ 'gx#module-context::t)) - (let ((_id159741_ + (let ((_id159723_ (##structure-ref - _hd159739_ + _hd159721_ '1 gx#expander-context::t '#f)) - (_imports159742_ + (_imports159724_ (##structure-ref - _hd159739_ + _hd159721_ '8 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (hash-get _ht159708_ _id159741_)) + (hash-get _ht159690_ _id159723_)) (let () (declare (not safe)) - (_find-deps159710_ - _rest159738_ - _deps159718_)) - (let ((_$e159744_ + (_find-deps159692_ + _rest159720_ + _deps159700_)) + (let ((_$e159726_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd159739_)))) - (if _$e159744_ - ((lambda (_pre159747_) - (let ((_xdeps159749_ - (let ((__tmp160506 + _hd159721_)))) + (if _$e159726_ + ((lambda (_pre159729_) + (let ((_xdeps159731_ + (let ((__tmp160488 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _pre159747_ _imports159742_)))) + (cons _pre159729_ _imports159724_)))) (declare (not safe)) - (_find-deps159710_ __tmp160506 _deps159718_)))) + (_find-deps159692_ __tmp160488 _deps159700_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (hash-put! - _ht159708_ - _id159741_ - _hd159739_)) - (let ((__tmp160507 + _ht159690_ + _id159723_ + _hd159721_)) + (let ((__tmp160489 (let () (declare (not safe)) - (cons _hd159739_ + (cons _hd159721_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps159749_)))) + _xdeps159731_)))) (declare (not safe)) - (_find-deps159710_ _rest159738_ __tmp160507)))) + (_find-deps159692_ _rest159720_ __tmp160489)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e159744_) - (let ((_xdeps159751_ + _$e159726_) + (let ((_xdeps159733_ (let () (declare (not safe)) - (_find-deps159710_ - _imports159742_ - _deps159718_)))) + (_find-deps159692_ + _imports159724_ + _deps159700_)))) (let () (declare (not safe)) (hash-put! - _ht159708_ - _id159741_ - _hd159739_)) - (let ((__tmp160505 + _ht159690_ + _id159723_ + _hd159721_)) + (let ((__tmp160487 (let () (declare (not safe)) - (cons _hd159739_ - _xdeps159751_)))) + (cons _hd159721_ + _xdeps159733_)))) (declare (not safe)) - (_find-deps159710_ - _rest159738_ - __tmp160505))))))) + (_find-deps159692_ + _rest159720_ + __tmp160487))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd159739_ + _hd159721_ 'gx#prelude-context::t)) - (let ((_id159753_ + (let ((_id159735_ (##structure-ref - _hd159739_ + _hd159721_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (hash-get - _ht159708_ - _id159753_)) + _ht159690_ + _id159735_)) (let () (declare (not safe)) - (_find-deps159710_ - _rest159738_ - _deps159718_)) - (let ((_xdeps159755_ - (let ((__tmp160503 + (_find-deps159692_ + _rest159720_ + _deps159700_)) + (let ((_xdeps159737_ + (let ((__tmp160485 (##structure-ref - _hd159739_ + _hd159721_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_find-deps159710_ - __tmp160503 - _deps159718_)))) + (_find-deps159692_ + __tmp160485 + _deps159700_)))) (if (let () (declare (not safe)) (hash-get - _ht159708_ - _id159753_)) + _ht159690_ + _id159735_)) (let () (declare (not safe)) - (_find-deps159710_ - _rest159738_ - _xdeps159755_)) + (_find-deps159692_ + _rest159720_ + _xdeps159737_)) (begin (let () (declare (not safe)) (hash-put! - _ht159708_ - _id159753_ - _hd159739_)) - (let ((__tmp160504 + _ht159690_ + _id159735_ + _hd159721_)) + (let ((__tmp160486 (let () (declare (not safe)) - (cons _hd159739_ + (cons _hd159721_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps159755_)))) + _xdeps159737_)))) (declare (not safe)) - (_find-deps159710_ _rest159738_ __tmp160504))))))) + (_find-deps159692_ _rest159720_ __tmp160486))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd159739_ + _hd159721_ 'gx#module-import::t)) - (if (let ((__tmp160502 + (if (let ((__tmp160484 (##direct-structure-ref - _hd159739_ + _hd159721_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp160502)) - (let ((__tmp160500 - (let ((__tmp160501 + (fxzero? __tmp160484)) + (let ((__tmp160482 + (let ((__tmp160483 (##direct-structure-ref - _hd159739_ + _hd159721_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp160501 - _rest159738_)))) + (cons __tmp160483 + _rest159720_)))) (declare (not safe)) - (_find-deps159710_ - __tmp160500 - _deps159718_)) + (_find-deps159692_ + __tmp160482 + _deps159700_)) (let () (declare (not safe)) - (_find-deps159710_ - _rest159738_ - _deps159718_))) + (_find-deps159692_ + _rest159720_ + _deps159700_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd159739_ + _hd159721_ 'gx#module-export::t)) - (let ((__tmp160498 - (let ((__tmp160499 + (let ((__tmp160480 + (let ((__tmp160481 (##direct-structure-ref - _hd159739_ + _hd159721_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp160499 - _rest159738_)))) + (cons __tmp160481 + _rest159720_)))) (declare (not safe)) - (_find-deps159710_ - __tmp160498 - _deps159718_)) + (_find-deps159692_ + __tmp160480 + _deps159700_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd159739_ + _hd159721_ 'gx#import-set::t)) - (if (let ((__tmp160497 + (if (let ((__tmp160479 (##direct-structure-ref - _hd159739_ + _hd159721_ '2 gx#import-set::t '#f))) (declare (not safe)) - (fxzero? __tmp160497)) - (let ((__tmp160495 - (let ((__tmp160496 + (fxzero? __tmp160479)) + (let ((__tmp160477 + (let ((__tmp160478 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _hd159739_ + _hd159721_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp160496 _rest159738_)))) + (cons __tmp160478 _rest159720_)))) (declare (not safe)) - (_find-deps159710_ __tmp160495 _deps159718_)) + (_find-deps159692_ __tmp160477 _deps159700_)) (if (fxpositive? (##direct-structure-ref - _hd159739_ + _hd159721_ '2 gx#import-set::t '#f)) - (let* ((_xdeps159757_ + (let* ((_xdeps159739_ (let () (declare (not safe)) - (_import-set-template159709_ _hd159739_ '0))) - (__tmp160494 + (_import-set-template159691_ _hd159721_ '0))) + (__tmp160476 (let () (declare (not safe)) - (foldl1 cons _rest159738_ _xdeps159757_)))) + (foldl1 cons _rest159720_ _xdeps159739_)))) (declare (not safe)) - (_find-deps159710_ __tmp160494 _deps159718_)) + (_find-deps159692_ __tmp160476 _deps159700_)) (let () (declare (not safe)) - (_find-deps159710_ _rest159738_ _deps159718_)))) + (_find-deps159692_ _rest159720_ _deps159700_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (error '"Unexpected module import" - _hd159739_)))))))))) + _hd159721_)))))))))) (if (let () (declare (not safe)) - (##pair? _rest159719159727_)) - (let ((_hd159724159762_ + (##pair? _rest159701159709_)) + (let ((_hd159706159744_ (let () (declare (not safe)) - (##car _rest159719159727_))) - (_tl159725159764_ + (##car _rest159701159709_))) + (_tl159707159746_ (let () (declare (not safe)) - (##cdr _rest159719159727_)))) - (let* ((_hd159767_ _hd159724159762_) - (_rest159769_ _tl159725159764_)) + (##cdr _rest159701159709_)))) + (let* ((_hd159749_ _hd159706159744_) + (_rest159751_ _tl159707159746_)) (declare (not safe)) - (_K159723159759_ _rest159769_ _hd159767_))) + (_K159705159741_ _rest159751_ _hd159749_))) (let () (declare (not safe)) - (_else159721159735_))))))) + (_else159703159717_))))))) (reverse (filter gx#expander-context-id - (let ((__tmp160508 - (let ((_$e159712_ + (let ((__tmp160490 + (let ((_$e159694_ (let () (declare (not safe)) (gx#core-context-prelude__% - _ctx159706_)))) - (if _$e159712_ - ((lambda (_pre159715_) - (let ((__tmp160509 + _ctx159688_)))) + (if _$e159694_ + ((lambda (_pre159697_) + (let ((__tmp160491 (##structure-ref - _ctx159706_ + _ctx159688_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre159715_ __tmp160509))) - _$e159712_) + (cons _pre159697_ __tmp160491))) + _$e159694_) (##structure-ref - _ctx159706_ + _ctx159688_ '8 gx#module-context::t '#f))))) (declare (not safe)) - (_find-deps159710_ __tmp160508 '()))))))) + (_find-deps159692_ __tmp160490 '()))))))) (define gxc#find-static-module-file - (lambda (_ctx159637_) - (let* ((_context-id159639_ + (lambda (_ctx159619_) + (let* ((_context-id159621_ (if (let () (declare (not safe)) (##structure-instance-of? - _ctx159637_ + _ctx159619_ 'gx#module-context::t)) - (##structure-ref _ctx159637_ '1 gx#expander-context::t '#f) - (string->symbol _ctx159637_))) - (_scm159641_ + (##structure-ref _ctx159619_ '1 gx#expander-context::t '#f) + (string->symbol _ctx159619_))) + (_scm159623_ (string-append (let () (declare (not safe)) - (gxc#static-module-name _context-id159639_)) + (gxc#static-module-name _context-id159621_)) '".scm")) - (_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_ + (_dirs159625_ (let () (declare (not safe)) (load-path))) + (_dirs159631_ + (let ((_user-libpath159627_ (getenv '"GERBIL_PATH" '#f))) + (if _user-libpath159627_ + (let ((_user-libpath159629_ + (path-expand '"lib" _user-libpath159627_))) + (if (member _user-libpath159629_ _dirs159625_) + _dirs159625_ (let () (declare (not safe)) - (cons _user-libpath159647_ _dirs159643_)))) - _dirs159643_))) - (_dirs159658_ - (let ((_$e159651_ (gxc#current-compile-output-dir))) - (if _$e159651_ - ((lambda (_g159653159655_) + (cons _user-libpath159629_ _dirs159625_)))) + _dirs159625_))) + (_dirs159640_ + (let ((_$e159633_ (gxc#current-compile-output-dir))) + (if _$e159633_ + ((lambda (_g159635159637_) (let () (declare (not safe)) - (cons _g159653159655_ _dirs159649_))) - _$e159651_) - _dirs159649_))) - (_dirs159664_ - (map (lambda (_g159659159661_) - (path-expand '"static" _g159659159661_)) - _dirs159658_))) - (let _lp159667_ ((_rest159669_ _dirs159664_)) - (let* ((_rest159670159678_ _rest159669_) - (_else159672159686_ + (cons _g159635159637_ _dirs159631_))) + _$e159633_) + _dirs159631_))) + (_dirs159646_ + (map (lambda (_g159641159643_) + (path-expand '"static" _g159641159643_)) + _dirs159640_))) + (let _lp159649_ ((_rest159651_ _dirs159646_)) + (let* ((_rest159652159660_ _rest159651_) + (_else159654159668_ (lambda () - (let ((__tmp160510 + (let ((__tmp160492 (##structure-ref - _ctx159637_ + _ctx159619_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp160510 - _scm159641_)))) - (_K159674159694_ - (lambda (_rest159689_ _dir159690_) - (let ((_path159692_ - (path-expand _scm159641_ _dir159690_))) - (if (file-exists? _path159692_) - _path159692_ + __tmp160492 + _scm159623_)))) + (_K159656159676_ + (lambda (_rest159671_ _dir159672_) + (let ((_path159674_ + (path-expand _scm159623_ _dir159672_))) + (if (file-exists? _path159674_) + _path159674_ (let () (declare (not safe)) - (_lp159667_ _rest159689_))))))) - (if (let () (declare (not safe)) (##pair? _rest159670159678_)) - (let ((_hd159675159697_ + (_lp159649_ _rest159671_))))))) + (if (let () (declare (not safe)) (##pair? _rest159652159660_)) + (let ((_hd159657159679_ (let () (declare (not safe)) - (##car _rest159670159678_))) - (_tl159676159699_ + (##car _rest159652159660_))) + (_tl159658159681_ (let () (declare (not safe)) - (##cdr _rest159670159678_)))) - (let* ((_dir159702_ _hd159675159697_) - (_rest159704_ _tl159676159699_)) + (##cdr _rest159652159660_)))) + (let* ((_dir159684_ _hd159657159679_) + (_rest159686_ _tl159658159681_)) (declare (not safe)) - (_K159674159694_ _rest159704_ _dir159702_))) - (let () (declare (not safe)) (_else159672159686_)))))))) + (_K159656159676_ _rest159686_ _dir159684_))) + (let () (declare (not safe)) (_else159654159668_)))))))) (define gxc#file-empty? - (lambda (_path159635_) - (let ((__tmp160511 (file-info-size (file-info _path159635_ '#t)))) + (lambda (_path159617_) + (let ((__tmp160493 (file-info-size (file-info _path159617_ '#t)))) (declare (not safe)) - (zero? __tmp160511)))) + (zero? __tmp160493)))) (define gxc#compile-top-module - (lambda (_ctx159624_) - (let ((__tmp160515 + (lambda (_ctx159606_) + (let ((__tmp160497 (lambda () - (let ((__tmp160516 + (let ((__tmp160498 (##structure-ref - _ctx159624_ + _ctx159606_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp160516)) + (gxc#verbose '"compile " __tmp160498)) (if (gxc#current-compile-optimize) - (let ((__tmp160517 + (let ((__tmp160499 (lambda () (let () (declare (not safe)) - (gxc#optimize! _ctx159624_))))) + (gxc#optimize! _ctx159606_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160517)) + (with-lock gxc#+driver-mutex+ __tmp160499)) '#!void) (let () (declare (not safe)) - (gxc#collect-bindings _ctx159624_)) - (if (let ((__tmp160520 + (gxc#collect-bindings _ctx159606_)) + (if (let ((__tmp160502 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx159624_)))) + (gxc#lift-nested-modules _ctx159606_)))) (declare (not safe)) - (null? __tmp160520)) - (let* ((_thr1159629_ - (let ((__tmp160518 + (null? __tmp160502)) + (let* ((_thr1159611_ + (let ((__tmp160500 (lambda () (let () (declare (not safe)) (gxc#compile-runtime-code - _ctx159624_))))) + _ctx159606_))))) (declare (not safe)) - (spawn __tmp160518))) - (_thr2159632_ - (let ((__tmp160519 + (spawn __tmp160500))) + (_thr2159614_ + (let ((__tmp160501 (lambda () (let () (declare (not safe)) - (gxc#compile-meta-code _ctx159624_))))) + (gxc#compile-meta-code _ctx159606_))))) (declare (not safe)) - (spawn __tmp160519)))) - (let () (declare (not safe)) (gxc#join! _thr1159629_)) - (let () (declare (not safe)) (gxc#join! _thr2159632_))) + (spawn __tmp160501)))) + (let () (declare (not safe)) (gxc#join! _thr1159611_)) + (let () (declare (not safe)) (gxc#join! _thr2159614_))) (begin (let () (declare (not safe)) - (gxc#compile-runtime-code _ctx159624_)) + (gxc#compile-runtime-code _ctx159606_)) (let () (declare (not safe)) - (gxc#compile-meta-code _ctx159624_)))) + (gxc#compile-meta-code _ctx159606_)))) (if (and (gxc#current-compile-optimize) (gxc#current-compile-generate-ssxi)) (let () (declare (not safe)) - (gxc#compile-ssxi-code _ctx159624_)) + (gxc#compile-ssxi-code _ctx159606_)) '#!void))) - (__tmp160514 - (let ((__obj160322 + (__tmp160496 + (let ((__obj160304 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) - (gxc#symbol-table:::init! __obj160322) - __obj160322)) - (__tmp160513 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp160512 (let () (declare (not safe)) (make-hash-table)))) + (gxc#symbol-table:::init! __obj160304) + __obj160304)) + (__tmp160495 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp160494 (let () (declare (not safe)) (make-hash-table)))) (declare (not safe)) (call-with-parameters - __tmp160515 + __tmp160497 gx#current-expander-context - _ctx159624_ + _ctx159606_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp160514 + __tmp160496 gxc#current-compile-runtime-sections - __tmp160513 + __tmp160495 gxc#current-compile-runtime-names - __tmp160512)))) + __tmp160494)))) (define gxc#collect-bindings - (lambda (_ctx159622_) - (let ((__tmp160521 - (##structure-ref _ctx159622_ '11 gx#module-context::t '#f))) + (lambda (_ctx159604_) + (let ((__tmp160503 + (##structure-ref _ctx159604_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp160521)))) + (gxc#apply-collect-bindings __tmp160503)))) (define gxc#compile-runtime-code - (lambda (_ctx159568_) - (letrec ((_compile1159570_ - (lambda (_ctx159611_) - (let* ((_code159613_ + (lambda (_ctx159550_) + (letrec ((_compile1159552_ + (lambda (_ctx159593_) + (let* ((_code159595_ (##structure-ref - _ctx159611_ + _ctx159593_ '11 gx#module-context::t '#f)) - (_rt159617_ + (_rt159599_ (if (let () (declare (not safe)) - (gxc#apply-find-runtime-code _code159613_)) - (let ((_idstr159615_ - (let ((__tmp160522 + (gxc#apply-find-runtime-code _code159595_)) + (let ((_idstr159597_ + (let ((__tmp160504 (##structure-ref - _ctx159611_ + _ctx159593_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp160522)))) - (string-append _idstr159615_ '"~0")) + __tmp160504)))) + (string-append _idstr159597_ '"~0")) '#f))) - (if _rt159617_ + (if _rt159599_ (begin - (let ((__tmp160523 + (let ((__tmp160505 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (hash-put! __tmp160523 _ctx159611_ _rt159617_)) + (hash-put! __tmp160505 _ctx159593_ _rt159599_)) (let () (declare (not safe)) - (_generate-runtime-code159572_ - _ctx159611_ - _code159613_))) - (let ((_path159620_ + (_generate-runtime-code159554_ + _ctx159593_ + _code159595_))) + (let ((_path159602_ (let () (declare (not safe)) (gxc#compile-static-output-file - _ctx159611_)))) + _ctx159593_)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path159620_ + _path159602_ void))) (let () (declare (not safe)) - (_generate-loader-code159573_ - _ctx159611_ - _code159613_ - _rt159617_))))) - (_context-timestamp159571_ - (lambda (_ctx159609_) + (_generate-loader-code159555_ + _ctx159593_ + _code159595_ + _rt159599_))))) + (_context-timestamp159553_ + (lambda (_ctx159591_) (string->symbol (string-append (symbol->string (##structure-ref - _ctx159609_ + _ctx159591_ '1 gx#expander-context::t '#f)) '"::timestamp")))) - (_generate-runtime-code159572_ - (lambda (_ctx159591_ _code159592_) - (let* ((_lifts159594_ + (_generate-runtime-code159554_ + (lambda (_ctx159573_ _code159574_) + (let* ((_lifts159576_ (let () (declare (not safe)) (box '()))) - (_runtime-code159597_ - (let ((__tmp160526 + (_runtime-code159579_ + (let ((__tmp160508 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _code159592_)))) - (__tmp160525 + _code159574_)))) + (__tmp160507 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp160524 + (__tmp160506 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp160526 + __tmp160508 gx#current-expander-context - _ctx159591_ + _ctx159573_ gx#current-expander-phi '0 gxc#current-compile-lift - _lifts159594_ + _lifts159576_ gxc#current-compile-marks - __tmp160525 + __tmp160507 gxc#current-compile-identifiers - __tmp160524))) - (_runtime-code159599_ - (if (let ((__tmp160530 (unbox _lifts159594_))) + __tmp160506))) + (_runtime-code159581_ + (if (let ((__tmp160512 (unbox _lifts159576_))) (declare (not safe)) - (null? __tmp160530)) - _runtime-code159597_ - (let ((__tmp160527 - (let ((__tmp160529 + (null? __tmp160512)) + _runtime-code159579_ + (let ((__tmp160509 + (let ((__tmp160511 (let () (declare (not safe)) - (cons _runtime-code159597_ + (cons _runtime-code159579_ '()))) - (__tmp160528 - (reverse (unbox _lifts159594_)))) + (__tmp160510 + (reverse (unbox _lifts159576_)))) (declare (not safe)) (foldr1 cons - __tmp160529 - __tmp160528)))) + __tmp160511 + __tmp160510)))) (declare (not safe)) - (cons 'begin __tmp160527)))) - (_runtime-code159601_ - (let ((__tmp160531 - (let ((__tmp160533 - (let ((__tmp160534 - (let ((__tmp160537 + (cons 'begin __tmp160509)))) + (_runtime-code159583_ + (let ((__tmp160513 + (let ((__tmp160515 + (let ((__tmp160516 + (let ((__tmp160519 (let () (declare (not safe)) - (_context-timestamp159571_ - _ctx159591_))) - (__tmp160535 - (let ((__tmp160536 + (_context-timestamp159553_ + _ctx159573_))) + (__tmp160517 + (let ((__tmp160518 (gxc#current-compile-timestamp))) (declare (not safe)) - (cons __tmp160536 + (cons __tmp160518 '())))) (declare (not safe)) - (cons __tmp160537 - __tmp160535)))) + (cons __tmp160519 + __tmp160517)))) (declare (not safe)) - (cons 'define __tmp160534))) - (__tmp160532 + (cons 'define __tmp160516))) + (__tmp160514 (let () (declare (not safe)) - (cons _runtime-code159599_ '())))) + (cons _runtime-code159581_ '())))) (declare (not safe)) - (cons __tmp160533 __tmp160532)))) + (cons __tmp160515 __tmp160514)))) (declare (not safe)) - (cons 'begin __tmp160531))) - (_scm0159603_ + (cons 'begin __tmp160513))) + (_scm0159585_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx159591_ + _ctx159573_ '0 '".scm")))) - (let ((_scms159606_ + (let ((_scms159588_ (let () (declare (not safe)) - (gxc#compile-static-output-file _ctx159591_)))) - (let ((__tmp160538 + (gxc#compile-static-output-file _ctx159573_)))) + (let ((__tmp160520 (lambda () (let () (declare (not safe)) (gxc#compile-scm-file__0 - _scm0159603_ - _runtime-code159601_))))) + _scm0159585_ + _runtime-code159583_))))) (declare (not safe)) (call-with-parameters - __tmp160538 + __tmp160520 gxc#current-compile-keep-scm '#t)) - (if (file-exists? _scms159606_) - (delete-file _scms159606_) + (if (file-exists? _scms159588_) + (delete-file _scms159588_) '#!void) (let () (declare (not safe)) (gxc#verbose '"copy static module " - _scm0159603_ + _scm0159585_ '" => " - _scms159606_)) - (copy-file _scm0159603_ _scms159606_) + _scms159588_)) + (copy-file _scm0159585_ _scms159588_) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _scm0159603_)))))) - (_generate-loader-code159573_ - (lambda (_ctx159580_ _code159581_ _rt159582_) - (let* ((_loader-code159585_ - (let ((__tmp160539 + (delete-file _scm0159585_)))))) + (_generate-loader-code159555_ + (lambda (_ctx159562_ _code159563_ _rt159564_) + (let* ((_loader-code159567_ + (let ((__tmp160521 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _code159581_))))) + _code159563_))))) (declare (not safe)) (call-with-parameters - __tmp160539 + __tmp160521 gx#current-expander-context - _ctx159580_))) - (_loader-code159587_ - (if _rt159582_ - (let ((__tmp160540 - (let ((__tmp160541 - (let ((__tmp160542 - (let ((__tmp160543 + _ctx159562_))) + (_loader-code159569_ + (if _rt159564_ + (let ((__tmp160522 + (let ((__tmp160523 + (let ((__tmp160524 + (let ((__tmp160525 (let () (declare (not safe)) - (cons _rt159582_ + (cons _rt159564_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons 'load-module __tmp160543)))) + (cons 'load-module __tmp160525)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160542 '())))) + (cons __tmp160524 '())))) (declare (not safe)) - (cons _loader-code159585_ - __tmp160541)))) + (cons _loader-code159567_ + __tmp160523)))) (declare (not safe)) - (cons 'begin __tmp160540)) - _loader-code159585_))) - (let ((__tmp160544 + (cons 'begin __tmp160522)) + _loader-code159567_))) + (let ((__tmp160526 (lambda () - (let ((__tmp160545 + (let ((__tmp160527 (let () (declare (not safe)) (gxc#compile-output-file - _ctx159580_ + _ctx159562_ '#f '".scm")))) (declare (not safe)) (gxc#compile-scm-file__0 - __tmp160545 - _loader-code159587_))))) + __tmp160527 + _loader-code159569_))))) (declare (not safe)) (call-with-parameters - __tmp160544 + __tmp160526 gxc#current-compile-gsc-options '#f)))))) - (let ((_all-modules159575_ - (let ((__tmp160546 + (let ((_all-modules159557_ + (let ((__tmp160528 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx159568_)))) + (gxc#lift-nested-modules _ctx159550_)))) (declare (not safe)) - (cons _ctx159568_ __tmp160546)))) + (cons _ctx159550_ __tmp160528)))) (for-each - (lambda (_ctx159577_) - (let ((__tmp160547 + (lambda (_ctx159559_) + (let ((__tmp160529 (lambda () (let () (declare (not safe)) - (_compile1159570_ _ctx159577_))))) + (_compile1159552_ _ctx159559_))))) (declare (not safe)) (call-with-parameters - __tmp160547 + __tmp160529 gxc#current-compile-decls '()))) - _all-modules159575_))))) + _all-modules159557_))))) (define gxc#compile-meta-code - (lambda (_ctx159465_) - (letrec ((_compile-ssi159467_ - (lambda (_code159538_) - (let* ((_path159540_ + (lambda (_ctx159447_) + (letrec ((_compile-ssi159449_ + (lambda (_code159520_) + (let* ((_path159522_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx159465_ + _ctx159447_ '#f '".ssi"))) - (_prelude159551_ - (let* ((_super159542_ + (_prelude159533_ + (let* ((_super159524_ (##structure-ref - _ctx159465_ + _ctx159447_ '3 gx#phi-context::t '#f)) - (_$e159544_ + (_$e159526_ (##structure-ref - _super159542_ + _super159524_ '1 gx#expander-context::t '#f))) - (if _$e159544_ - ((lambda (_g159546159548_) + (if _$e159526_ + ((lambda (_g159528159530_) (let () (declare (not safe)) - (make-symbol__1 '":" _g159546159548_))) - _$e159544_) + (make-symbol__1 '":" _g159528159530_))) + _$e159526_) ':))) - (_ns159553_ + (_ns159535_ (##structure-ref - _ctx159465_ + _ctx159447_ '6 gx#module-context::t '#f)) - (_idstr159555_ + (_idstr159537_ (symbol->string (##structure-ref - _ctx159465_ + _ctx159447_ '1 gx#expander-context::t '#f))) - (_pkg159562_ - (let ((_$e159557_ + (_pkg159544_ + (let ((_$e159539_ (let () (declare (not safe)) - (string-rindex__0 _idstr159555_ '#\/)))) - (if _$e159557_ - ((lambda (_x159560_) + (string-rindex__0 _idstr159537_ '#\/)))) + (if _$e159539_ + ((lambda (_x159542_) (string->symbol - (substring _idstr159555_ '0 _x159560_))) - _$e159557_) + (substring _idstr159537_ '0 _x159542_))) + _$e159539_) '#f))) - (_rt159564_ - (let ((__tmp160548 + (_rt159546_ + (let ((__tmp160530 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (hash-get __tmp160548 _ctx159465_)))) + (hash-get __tmp160530 _ctx159447_)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _path159540_)) - (let ((__tmp160549 + (gxc#verbose '"compile " _path159522_)) + (let ((__tmp160531 (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _prelude159551_)) - (if _pkg159562_ + (displayln '"prelude:" '" " _prelude159533_)) + (if _pkg159544_ (let () (declare (not safe)) - (displayln '"package:" '" " _pkg159562_)) + (displayln '"package:" '" " _pkg159544_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _ns159553_)) + (displayln '"namespace:" '" " _ns159535_)) (newline) - (pretty-print _code159538_) - (if _rt159564_ + (pretty-print _code159520_) + (if _rt159546_ (pretty-print - (let ((__tmp160550 - (let ((__tmp160554 - (let ((__tmp160555 + (let ((__tmp160532 + (let ((__tmp160536 + (let ((__tmp160537 (let () (declare (not safe)) (cons 'load-module @@ -2446,1096 +2446,1096 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp160555))) - (__tmp160551 - (let ((__tmp160552 - (let ((__tmp160553 + (cons '%#ref __tmp160537))) + (__tmp160533 + (let ((__tmp160534 + (let ((__tmp160535 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _rt159564_ '())))) + (cons _rt159546_ '())))) (declare (not safe)) - (cons '%#quote __tmp160553)))) + (cons '%#quote __tmp160535)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160552 '())))) + (cons __tmp160534 '())))) (declare (not safe)) - (cons __tmp160554 __tmp160551)))) + (cons __tmp160536 __tmp160533)))) (declare (not safe)) - (cons '%#call __tmp160550))) + (cons '%#call __tmp160532))) '#!void)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path159540_ - __tmp160549))))) - (_compile-phi159468_ - (lambda (_part159478_) - (let* ((_part159479159492_ _part159478_) - (_E159481159496_ + _path159522_ + __tmp160531))))) + (_compile-phi159450_ + (lambda (_part159460_) + (let* ((_part159461159474_ _part159460_) + (_E159463159478_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _part159479159492_)))) - (_K159482159507_ - (lambda (_code159499_ - _n159500_ - _phi159501_ - _phi-ctx159502_) - (let* ((_code159505_ - (let ((__tmp160556 + _part159461159474_)))) + (_K159464159489_ + (lambda (_code159481_ + _n159482_ + _phi159483_ + _phi-ctx159484_) + (let* ((_code159487_ + (let ((__tmp160538 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-phi - _code159499_))))) + _code159481_))))) (declare (not safe)) (call-with-parameters - __tmp160556 + __tmp160538 gx#current-expander-context - _phi-ctx159502_ + _phi-ctx159484_ gx#current-expander-phi - _phi159501_))) - (__tmp160557 + _phi159483_))) + (__tmp160539 (let () (declare (not safe)) (gxc#compile-output-file - _ctx159465_ - _n159500_ + _ctx159447_ + _n159482_ '".scm")))) (declare (not safe)) (gxc#compile-scm-file__% - __tmp160557 - _code159505_ + __tmp160539 + _code159487_ '#t))))) (if (let () (declare (not safe)) - (##pair? _part159479159492_)) - (let ((_hd159483159510_ + (##pair? _part159461159474_)) + (let ((_hd159465159492_ (let () (declare (not safe)) - (##car _part159479159492_))) - (_tl159484159512_ + (##car _part159461159474_))) + (_tl159466159494_ (let () (declare (not safe)) - (##cdr _part159479159492_)))) - (let ((_phi-ctx159515_ _hd159483159510_)) + (##cdr _part159461159474_)))) + (let ((_phi-ctx159497_ _hd159465159492_)) (if (let () (declare (not safe)) - (##pair? _tl159484159512_)) - (let ((_hd159485159517_ + (##pair? _tl159466159494_)) + (let ((_hd159467159499_ (let () (declare (not safe)) - (##car _tl159484159512_))) - (_tl159486159519_ + (##car _tl159466159494_))) + (_tl159468159501_ (let () (declare (not safe)) - (##cdr _tl159484159512_)))) - (let ((_phi159522_ _hd159485159517_)) + (##cdr _tl159466159494_)))) + (let ((_phi159504_ _hd159467159499_)) (if (let () (declare (not safe)) - (##pair? _tl159486159519_)) - (let ((_hd159487159524_ + (##pair? _tl159468159501_)) + (let ((_hd159469159506_ (let () (declare (not safe)) - (##car _tl159486159519_))) - (_tl159488159526_ + (##car _tl159468159501_))) + (_tl159470159508_ (let () (declare (not safe)) - (##cdr _tl159486159519_)))) - (let ((_n159529_ _hd159487159524_)) + (##cdr _tl159468159501_)))) + (let ((_n159511_ _hd159469159506_)) (if (let () (declare (not safe)) - (##pair? _tl159488159526_)) - (let ((_hd159489159531_ + (##pair? _tl159470159508_)) + (let ((_hd159471159513_ (let () (declare (not safe)) - (##car _tl159488159526_))) - (_tl159490159533_ + (##car _tl159470159508_))) + (_tl159472159515_ (let () (declare (not safe)) - (##cdr _tl159488159526_)))) - (let ((_code159536_ - _hd159489159531_)) + (##cdr _tl159470159508_)))) + (let ((_code159518_ + _hd159471159513_)) (if (let () (declare (not safe)) - (##null? _tl159490159533_)) + (##null? _tl159472159515_)) (let () (declare (not safe)) - (_K159482159507_ - _code159536_ - _n159529_ - _phi159522_ - _phi-ctx159515_)) + (_K159464159489_ + _code159518_ + _n159511_ + _phi159504_ + _phi-ctx159497_)) (let () (declare (not safe)) - (_E159481159496_))))) + (_E159463159478_))))) (let () (declare (not safe)) - (_E159481159496_))))) + (_E159463159478_))))) (let () (declare (not safe)) - (_E159481159496_))))) + (_E159463159478_))))) (let () (declare (not safe)) - (_E159481159496_))))) - (let () (declare (not safe)) (_E159481159496_))))))) - (let ((_g160558_ + (_E159463159478_))))) + (let () (declare (not safe)) (_E159463159478_))))))) + (let ((_g160540_ (let () (declare (not safe)) - (gxc#generate-meta-code _ctx159465_)))) + (gxc#generate-meta-code _ctx159447_)))) (begin - (let ((_g160559_ + (let ((_g160541_ (let () (declare (not safe)) - (if (##values? _g160558_) - (##vector-length _g160558_) + (if (##values? _g160540_) + (##vector-length _g160540_) 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)))) + (if (not (let () (declare (not safe)) (##fx= _g160541_ 2))) + (error "Context expects 2 values" _g160541_))) + (let ((_ssi-code159452_ + (let () (declare (not safe)) (##vector-ref _g160540_ 0))) + (_phi-code159453_ + (let () (declare (not safe)) (##vector-ref _g160540_ 1)))) (begin (let () (declare (not safe)) - (_compile-ssi159467_ _ssi-code159470_)) - (let ((_threads159476_ - (map (lambda (_code159473_) - (let ((__tmp160560 + (_compile-ssi159449_ _ssi-code159452_)) + (let ((_threads159458_ + (map (lambda (_code159455_) + (let ((__tmp160542 (lambda () (let () (declare (not safe)) - (_compile-phi159468_ - _code159473_))))) + (_compile-phi159450_ + _code159455_))))) (declare (not safe)) - (spawn __tmp160560))) - _phi-code159471_))) - (for-each gxc#join! _threads159476_))))))))) + (spawn __tmp160542))) + _phi-code159453_))) + (for-each gxc#join! _threads159458_))))))))) (define gxc#compile-ssxi-code - (lambda (_ctx159448_) - (let* ((_path159450_ + (lambda (_ctx159430_) + (let* ((_path159432_ (let () (declare (not safe)) - (gxc#compile-output-file _ctx159448_ '#f '".ssxi.ss"))) - (_code159452_ - (let ((__tmp160561 + (gxc#compile-output-file _ctx159430_ '#f '".ssxi.ss"))) + (_code159434_ + (let ((__tmp160543 (##structure-ref - _ctx159448_ + _ctx159430_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp160561))) - (_idstr159454_ + (gxc#apply-generate-ssxi __tmp160543))) + (_idstr159436_ (symbol->string - (##structure-ref _ctx159448_ '1 gx#expander-context::t '#f))) - (_pkg159461_ - (let ((_$e159456_ + (##structure-ref _ctx159430_ '1 gx#expander-context::t '#f))) + (_pkg159443_ + (let ((_$e159438_ (let () (declare (not safe)) - (string-rindex__0 _idstr159454_ '#\/)))) - (if _$e159456_ - ((lambda (_x159459_) + (string-rindex__0 _idstr159436_ '#\/)))) + (if _$e159438_ + ((lambda (_x159441_) (string->symbol - (substring _idstr159454_ '0 _x159459_))) - _$e159456_) + (substring _idstr159436_ '0 _x159441_))) + _$e159438_) '#f)))) - (let () (declare (not safe)) (gxc#verbose '"compile " _path159450_)) - (let ((__tmp160562 + (let () (declare (not safe)) (gxc#verbose '"compile " _path159432_)) + (let ((__tmp160544 (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _pkg159461_ + (if _pkg159443_ (let () (declare (not safe)) - (displayln '"package: " _pkg159461_)) + (displayln '"package: " _pkg159443_)) '#!void) (newline) - (pretty-print _code159452_)))) + (pretty-print _code159434_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path159450_ __tmp160562))))) + (gxc#with-output-to-scheme-file _path159432_ __tmp160544))))) (define gxc#generate-meta-code - (lambda (_ctx159441_) - (let* ((_state159443_ - (let ((__obj160323 + (lambda (_ctx159423_) + (let* ((_state159425_ + (let ((__obj160305 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) - (gxc#meta-state:::init! __obj160323 _ctx159441_) - __obj160323)) - (_ssi-code159445_ - (let ((__tmp160563 + (gxc#meta-state:::init! __obj160305 _ctx159423_) + __obj160305)) + (_ssi-code159427_ + (let ((__tmp160545 (##structure-ref - _ctx159441_ + _ctx159423_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#apply-generate-meta - __tmp160563 + __tmp160545 'state: - _state159443_)))) - (values _ssi-code159445_ + _state159425_)))) + (values _ssi-code159427_ (let () (declare (not safe)) - (gxc#meta-state-end! _state159443_)))))) + (gxc#meta-state-end! _state159425_)))))) (define gxc#generate-runtime-phi - (lambda (_stx159434_) - (let ((_lifts159436_ (let () (declare (not safe)) (box '())))) - (let ((__tmp160566 + (lambda (_stx159416_) + (let ((_lifts159418_ (let () (declare (not safe)) (box '())))) + (let ((__tmp160548 (lambda () - (let ((_code159439_ + (let ((_code159421_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _stx159434_)))) - (if (let ((__tmp160570 (unbox _lifts159436_))) + (gxc#apply-generate-runtime-phi _stx159416_)))) + (if (let ((__tmp160552 (unbox _lifts159418_))) (declare (not safe)) - (null? __tmp160570)) - _code159439_ - (let ((__tmp160567 - (let ((__tmp160569 + (null? __tmp160552)) + _code159421_ + (let ((__tmp160549 + (let ((__tmp160551 (let () (declare (not safe)) - (cons _code159439_ '()))) - (__tmp160568 - (reverse (unbox _lifts159436_)))) + (cons _code159421_ '()))) + (__tmp160550 + (reverse (unbox _lifts159418_)))) (declare (not safe)) - (foldr1 cons __tmp160569 __tmp160568)))) + (foldr1 cons __tmp160551 __tmp160550)))) (declare (not safe)) - (cons 'begin __tmp160567)))))) - (__tmp160565 + (cons 'begin __tmp160549)))))) + (__tmp160547 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp160564 + (__tmp160546 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp160566 + __tmp160548 gxc#current-compile-lift - _lifts159436_ + _lifts159418_ gxc#current-compile-marks - __tmp160565 + __tmp160547 gxc#current-compile-identifiers - __tmp160564))))) + __tmp160546))))) (define gxc#lift-nested-modules - (lambda (_ctx159430_) - (let ((_modules159432_ (let () (declare (not safe)) (box '())))) - (let ((__tmp160571 - (##structure-ref _ctx159430_ '11 gx#module-context::t '#f))) + (lambda (_ctx159412_) + (let ((_modules159414_ (let () (declare (not safe)) (box '())))) + (let ((__tmp160553 + (##structure-ref _ctx159412_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules __tmp160571 'modules: _modules159432_)) - (reverse (unbox _modules159432_))))) + (gxc#apply-lift-modules __tmp160553 'modules: _modules159414_)) + (reverse (unbox _modules159414_))))) (define gxc#compile-scm-file__% - (lambda (_path159413_ _code159414_ _phi?159415_) - (let () (declare (not safe)) (gxc#verbose '"compile " _path159413_)) - (let ((__tmp160572 + (lambda (_path159395_ _code159396_ _phi?159397_) + (let () (declare (not safe)) (gxc#verbose '"compile " _path159395_)) + (let ((__tmp160554 (lambda () (pretty-print - (let ((__tmp160573 - (let ((__tmp160580 + (let ((__tmp160555 + (let ((__tmp160562 (let () (declare (not safe)) (cons 'block '()))) - (__tmp160574 - (let ((__tmp160579 + (__tmp160556 + (let ((__tmp160561 (let () (declare (not safe)) (cons 'standard-bindings '()))) - (__tmp160575 - (let ((__tmp160578 + (__tmp160557 + (let ((__tmp160560 (let () (declare (not safe)) (cons 'extended-bindings '()))) - (__tmp160576 - (let ((__tmp160577 - (if _phi?159415_ + (__tmp160558 + (let ((__tmp160559 + (if _phi?159397_ '((inlining-limit 200)) '()))) (declare (not safe)) (foldr1 cons '() - __tmp160577)))) + __tmp160559)))) (declare (not safe)) - (cons __tmp160578 __tmp160576)))) + (cons __tmp160560 __tmp160558)))) (declare (not safe)) - (cons __tmp160579 __tmp160575)))) + (cons __tmp160561 __tmp160557)))) (declare (not safe)) - (cons __tmp160580 __tmp160574)))) + (cons __tmp160562 __tmp160556)))) (declare (not safe)) - (cons 'declare __tmp160573))) - (pretty-print _code159414_)))) + (cons 'declare __tmp160555))) + (pretty-print _code159396_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path159413_ __tmp160572)) + (gxc#with-output-to-scheme-file _path159395_ __tmp160554)) (if (gxc#current-compile-invoke-gsc) (let () (declare (not safe)) - (gxc#gsc-compile-file _path159413_ _phi?159415_)) + (gxc#gsc-compile-file _path159395_ _phi?159397_)) '#!void) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _path159413_)))) + (delete-file _path159395_)))) (define gxc#compile-scm-file__0 - (lambda (_path159421_ _code159422_) - (let ((_phi?159424_ '#f)) + (lambda (_path159403_ _code159404_) + (let ((_phi?159406_ '#f)) (declare (not safe)) - (gxc#compile-scm-file__% _path159421_ _code159422_ _phi?159424_)))) + (gxc#compile-scm-file__% _path159403_ _code159404_ _phi?159406_)))) (define gxc#compile-scm-file - (lambda _g160582_ - (let ((_g160581_ (let () (declare (not safe)) (##length _g160582_)))) - (cond ((let () (declare (not safe)) (##fx= _g160581_ 2)) - (apply (lambda (_path159421_ _code159422_) + (lambda _g160564_ + (let ((_g160563_ (let () (declare (not safe)) (##length _g160564_)))) + (cond ((let () (declare (not safe)) (##fx= _g160563_ 2)) + (apply (lambda (_path159403_ _code159404_) (let () (declare (not safe)) (gxc#compile-scm-file__0 - _path159421_ - _code159422_))) - _g160582_)) - ((let () (declare (not safe)) (##fx= _g160581_ 3)) - (apply (lambda (_path159426_ _code159427_ _phi?159428_) + _path159403_ + _code159404_))) + _g160564_)) + ((let () (declare (not safe)) (##fx= _g160563_ 3)) + (apply (lambda (_path159408_ _code159409_ _phi?159410_) (let () (declare (not safe)) (gxc#compile-scm-file__% - _path159426_ - _code159427_ - _phi?159428_))) - _g160582_)) + _path159408_ + _code159409_ + _phi?159410_))) + _g160564_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g160582_)))))) + _g160564_)))))) (define gxc#gsc-link-options__% - (lambda (_phi?159314_) - (let _lp159316_ ((_rest159318_ (gxc#current-compile-gsc-options)) - (_opts159319_ '())) - (let* ((_rest159320159340_ _rest159318_) - (_else159324159348_ + (lambda (_phi?159296_) + (let _lp159298_ ((_rest159300_ (gxc#current-compile-gsc-options)) + (_opts159301_ '())) + (let* ((_rest159302159322_ _rest159300_) + (_else159306159330_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?159314_)) + (if (and (let () (declare (not safe)) (not _phi?159296_)) (gxc#current-compile-debug)) - (let ((__tmp160583 - (let ((__tmp160584 (reverse _opts159319_))) + (let ((__tmp160565 + (let ((__tmp160566 (reverse _opts159301_))) (declare (not safe)) - (cons '"-track-scheme" __tmp160584)))) + (cons '"-track-scheme" __tmp160566)))) (declare (not safe)) - (cons '"-debug-source" __tmp160583)) - (reverse _opts159319_))))) - (let ((_K159334159391_ - (lambda (_rest159389_) + (cons '"-debug-source" __tmp160565)) + (reverse _opts159301_))))) + (let ((_K159316159373_ + (lambda (_rest159371_) (let () (declare (not safe)) - (_lp159316_ _rest159389_ _opts159319_)))) - (_K159329159373_ - (lambda (_rest159371_) + (_lp159298_ _rest159371_ _opts159301_)))) + (_K159311159355_ + (lambda (_rest159353_) (let () (declare (not safe)) - (_lp159316_ _rest159371_ _opts159319_)))) - (_K159326159355_ - (lambda (_rest159352_ _opt159353_) - (let ((__tmp160585 + (_lp159298_ _rest159353_ _opts159301_)))) + (_K159308159337_ + (lambda (_rest159334_ _opt159335_) + (let ((__tmp160567 (let () (declare (not safe)) - (cons _opt159353_ _opts159319_)))) + (cons _opt159335_ _opts159301_)))) (declare (not safe)) - (_lp159316_ _rest159352_ __tmp160585))))) - (if (let () (declare (not safe)) (##pair? _rest159320159340_)) - (let ((_tl159336159396_ + (_lp159298_ _rest159334_ __tmp160567))))) + (if (let () (declare (not safe)) (##pair? _rest159302159322_)) + (let ((_tl159318159378_ (let () (declare (not safe)) - (##cdr _rest159320159340_))) - (_hd159335159394_ + (##cdr _rest159302159322_))) + (_hd159317159376_ (let () (declare (not safe)) - (##car _rest159320159340_)))) + (##car _rest159302159322_)))) (if (let () (declare (not safe)) - (equal? _hd159335159394_ '"-cc-options")) + (equal? _hd159317159376_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl159336159396_)) - (let* ((_tl159338159399_ + (##pair? _tl159318159378_)) + (let* ((_tl159320159381_ (let () (declare (not safe)) - (##cdr _tl159336159396_))) - (_rest159402_ _tl159338159399_)) + (##cdr _tl159318159378_))) + (_rest159384_ _tl159320159381_)) (declare (not safe)) - (_K159334159391_ _rest159402_)) - (let ((_opt159363_ _hd159335159394_) - (_rest159365_ _tl159336159396_)) + (_K159316159373_ _rest159384_)) + (let ((_opt159345_ _hd159317159376_) + (_rest159347_ _tl159318159378_)) (let () (declare (not safe)) - (_K159326159355_ _rest159365_ _opt159363_)))) + (_K159308159337_ _rest159347_ _opt159345_)))) (if (let () (declare (not safe)) - (equal? _hd159335159394_ '"-ld-options")) + (equal? _hd159317159376_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl159336159396_)) - (let* ((_tl159333159381_ + (##pair? _tl159318159378_)) + (let* ((_tl159315159363_ (let () (declare (not safe)) - (##cdr _tl159336159396_))) - (_rest159384_ _tl159333159381_)) + (##cdr _tl159318159378_))) + (_rest159366_ _tl159315159363_)) (declare (not safe)) - (_K159329159373_ _rest159384_)) - (let ((_opt159363_ _hd159335159394_) - (_rest159365_ _tl159336159396_)) + (_K159311159355_ _rest159366_)) + (let ((_opt159345_ _hd159317159376_) + (_rest159347_ _tl159318159378_)) (let () (declare (not safe)) - (_K159326159355_ - _rest159365_ - _opt159363_)))) - (let ((_opt159363_ _hd159335159394_) - (_rest159365_ _tl159336159396_)) + (_K159308159337_ + _rest159347_ + _opt159345_)))) + (let ((_opt159345_ _hd159317159376_) + (_rest159347_ _tl159318159378_)) (let () (declare (not safe)) - (_K159326159355_ _rest159365_ _opt159363_)))))) - (let () (declare (not safe)) (_else159324159348_)))))))) + (_K159308159337_ _rest159347_ _opt159345_)))))) + (let () (declare (not safe)) (_else159306159330_)))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_phi?159408_ '#f)) + (let ((_phi?159390_ '#f)) (declare (not safe)) - (gxc#gsc-link-options__% _phi?159408_)))) + (gxc#gsc-link-options__% _phi?159390_)))) (define gxc#gsc-link-options - (lambda _g160587_ - (let ((_g160586_ (let () (declare (not safe)) (##length _g160587_)))) - (cond ((let () (declare (not safe)) (##fx= _g160586_ 0)) + (lambda _g160569_ + (let ((_g160568_ (let () (declare (not safe)) (##length _g160569_)))) + (cond ((let () (declare (not safe)) (##fx= _g160568_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-link-options__0))) - _g160587_)) - ((let () (declare (not safe)) (##fx= _g160586_ 1)) - (apply (lambda (_phi?159410_) + _g160569_)) + ((let () (declare (not safe)) (##fx= _g160568_ 1)) + (apply (lambda (_phi?159392_) (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?159410_))) - _g160587_)) + (gxc#gsc-link-options__% _phi?159392_))) + _g160569_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g160587_)))))) + _g160569_)))))) (define gxc#gsc-cc-options__% - (lambda (_phi?159215_) - (let _lp159217_ ((_rest159219_ (gxc#current-compile-gsc-options)) - (_opts159220_ '())) - (let* ((_rest159221159241_ _rest159219_) - (_else159225159249_ + (lambda (_phi?159197_) + (let _lp159199_ ((_rest159201_ (gxc#current-compile-gsc-options)) + (_opts159202_ '())) + (let* ((_rest159203159223_ _rest159201_) + (_else159207159231_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?159215_)) + (if (and (let () (declare (not safe)) (not _phi?159197_)) (gxc#current-compile-debug)) - (let ((__tmp160588 - (let ((__tmp160589 (reverse _opts159220_))) + (let ((__tmp160570 + (let ((__tmp160571 (reverse _opts159202_))) (declare (not safe)) - (cons '"-g" __tmp160589)))) + (cons '"-g" __tmp160571)))) (declare (not safe)) - (cons '"-cc-options" __tmp160588)) - (reverse _opts159220_))))) - (let ((_K159235159288_ - (lambda (_rest159285_ _opt159286_) - (let ((__tmp160590 - (let ((__tmp160591 + (cons '"-cc-options" __tmp160570)) + (reverse _opts159202_))))) + (let ((_K159217159270_ + (lambda (_rest159267_ _opt159268_) + (let ((__tmp160572 + (let ((__tmp160573 (let () (declare (not safe)) - (cons '"-cc-options" _opts159220_)))) + (cons '"-cc-options" _opts159202_)))) (declare (not safe)) - (cons _opt159286_ __tmp160591)))) + (cons _opt159268_ __tmp160573)))) (declare (not safe)) - (_lp159217_ _rest159285_ __tmp160590)))) - (_K159230159269_ - (lambda (_rest159267_) + (_lp159199_ _rest159267_ __tmp160572)))) + (_K159212159251_ + (lambda (_rest159249_) (let () (declare (not safe)) - (_lp159217_ _rest159267_ _opts159220_)))) - (_K159227159255_ - (lambda (_rest159253_) + (_lp159199_ _rest159249_ _opts159202_)))) + (_K159209159237_ + (lambda (_rest159235_) (let () (declare (not safe)) - (_lp159217_ _rest159253_ _opts159220_))))) - (if (let () (declare (not safe)) (##pair? _rest159221159241_)) - (let ((_tl159237159293_ + (_lp159199_ _rest159235_ _opts159202_))))) + (if (let () (declare (not safe)) (##pair? _rest159203159223_)) + (let ((_tl159219159275_ (let () (declare (not safe)) - (##cdr _rest159221159241_))) - (_hd159236159291_ + (##cdr _rest159203159223_))) + (_hd159218159273_ (let () (declare (not safe)) - (##car _rest159221159241_)))) + (##car _rest159203159223_)))) (if (let () (declare (not safe)) - (equal? _hd159236159291_ '"-cc-options")) + (equal? _hd159218159273_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl159237159293_)) - (let ((_tl159239159298_ + (##pair? _tl159219159275_)) + (let ((_tl159221159280_ (let () (declare (not safe)) - (##cdr _tl159237159293_))) - (_hd159238159296_ + (##cdr _tl159219159275_))) + (_hd159220159278_ (let () (declare (not safe)) - (##car _tl159237159293_)))) - (let ((_opt159301_ _hd159238159296_) - (_rest159303_ _tl159239159298_)) + (##car _tl159219159275_)))) + (let ((_opt159283_ _hd159220159278_) + (_rest159285_ _tl159221159280_)) (let () (declare (not safe)) - (_K159235159288_ _rest159303_ _opt159301_)))) - (let ((_rest159261_ _tl159237159293_)) + (_K159217159270_ _rest159285_ _opt159283_)))) + (let ((_rest159243_ _tl159219159275_)) (declare (not safe)) - (_K159227159255_ _rest159261_))) + (_K159209159237_ _rest159243_))) (if (let () (declare (not safe)) - (equal? _hd159236159291_ '"-ld-options")) + (equal? _hd159218159273_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl159237159293_)) - (let* ((_tl159234159277_ + (##pair? _tl159219159275_)) + (let* ((_tl159216159259_ (let () (declare (not safe)) - (##cdr _tl159237159293_))) - (_rest159280_ _tl159234159277_)) + (##cdr _tl159219159275_))) + (_rest159262_ _tl159216159259_)) (declare (not safe)) - (_K159230159269_ _rest159280_)) - (let ((_rest159261_ _tl159237159293_)) + (_K159212159251_ _rest159262_)) + (let ((_rest159243_ _tl159219159275_)) (declare (not safe)) - (_K159227159255_ _rest159261_))) - (let ((_rest159261_ _tl159237159293_)) + (_K159209159237_ _rest159243_))) + (let ((_rest159243_ _tl159219159275_)) (declare (not safe)) - (_K159227159255_ _rest159261_))))) - (let () (declare (not safe)) (_else159225159249_)))))))) + (_K159209159237_ _rest159243_))))) + (let () (declare (not safe)) (_else159207159231_)))))))) (define gxc#gsc-cc-options__0 (lambda () - (let ((_phi?159309_ '#f)) + (let ((_phi?159291_ '#f)) (declare (not safe)) - (gxc#gsc-cc-options__% _phi?159309_)))) + (gxc#gsc-cc-options__% _phi?159291_)))) (define gxc#gsc-cc-options - (lambda _g160593_ - (let ((_g160592_ (let () (declare (not safe)) (##length _g160593_)))) - (cond ((let () (declare (not safe)) (##fx= _g160592_ 0)) + (lambda _g160575_ + (let ((_g160574_ (let () (declare (not safe)) (##length _g160575_)))) + (cond ((let () (declare (not safe)) (##fx= _g160574_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - _g160593_)) - ((let () (declare (not safe)) (##fx= _g160592_ 1)) - (apply (lambda (_phi?159311_) + _g160575_)) + ((let () (declare (not safe)) (##fx= _g160574_ 1)) + (apply (lambda (_phi?159293_) (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?159311_))) - _g160593_)) + (gxc#gsc-cc-options__% _phi?159293_))) + _g160575_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options - _g160593_)))))) + _g160575_)))))) (define gxc#gsc-static-include-options - (lambda (_staticdir159210_) - (let* ((_user-staticdir159212_ + (lambda (_staticdir159192_) + (let* ((_user-staticdir159194_ (path-expand (path-expand '"lib/static" (let () (declare (not safe)) (gerbil-path))))) - (__tmp160594 - (let ((__tmp160595 + (__tmp160576 + (let ((__tmp160577 (string-append '"-I " - _staticdir159210_ + _staticdir159192_ '" -I " - _user-staticdir159212_))) + _user-staticdir159194_))) (declare (not safe)) - (cons __tmp160595 '())))) + (cons __tmp160577 '())))) (declare (not safe)) - (cons '"-cc-options" __tmp160594)))) + (cons '"-cc-options" __tmp160576)))) (define gxc#gcc-ld-options (lambda () - (let _lp159122_ ((_rest159124_ (gxc#current-compile-gsc-options)) - (_opts159125_ '())) - (let* ((_rest159126159146_ _rest159124_) - (_else159130159154_ (lambda () _opts159125_))) - (let ((_K159140159197_ - (lambda (_rest159195_) + (let _lp159104_ ((_rest159106_ (gxc#current-compile-gsc-options)) + (_opts159107_ '())) + (let* ((_rest159108159128_ _rest159106_) + (_else159112159136_ (lambda () _opts159107_))) + (let ((_K159122159179_ + (lambda (_rest159177_) (let () (declare (not safe)) - (_lp159122_ _rest159195_ _opts159125_)))) - (_K159135159175_ - (lambda (_rest159172_ _opt159173_) - (let ((__tmp160596 - (append _opts159125_ + (_lp159104_ _rest159177_ _opts159107_)))) + (_K159117159157_ + (lambda (_rest159154_ _opt159155_) + (let ((__tmp160578 + (append _opts159107_ (filter gxc#not-string-empty? (let () (declare (not safe)) (string-split - _opt159173_ + _opt159155_ '#\space)))))) (declare (not safe)) - (_lp159122_ _rest159172_ __tmp160596)))) - (_K159132159160_ - (lambda (_rest159158_) + (_lp159104_ _rest159154_ __tmp160578)))) + (_K159114159142_ + (lambda (_rest159140_) (let () (declare (not safe)) - (_lp159122_ _rest159158_ _opts159125_))))) - (if (let () (declare (not safe)) (##pair? _rest159126159146_)) - (let ((_tl159142159202_ + (_lp159104_ _rest159140_ _opts159107_))))) + (if (let () (declare (not safe)) (##pair? _rest159108159128_)) + (let ((_tl159124159184_ (let () (declare (not safe)) - (##cdr _rest159126159146_))) - (_hd159141159200_ + (##cdr _rest159108159128_))) + (_hd159123159182_ (let () (declare (not safe)) - (##car _rest159126159146_)))) + (##car _rest159108159128_)))) (if (let () (declare (not safe)) - (equal? _hd159141159200_ '"-cc-options")) + (equal? _hd159123159182_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl159142159202_)) - (let* ((_tl159144159205_ + (##pair? _tl159124159184_)) + (let* ((_tl159126159187_ (let () (declare (not safe)) - (##cdr _tl159142159202_))) - (_rest159208_ _tl159144159205_)) + (##cdr _tl159124159184_))) + (_rest159190_ _tl159126159187_)) (declare (not safe)) - (_K159140159197_ _rest159208_)) - (let ((_rest159166_ _tl159142159202_)) + (_K159122159179_ _rest159190_)) + (let ((_rest159148_ _tl159124159184_)) (declare (not safe)) - (_K159132159160_ _rest159166_))) + (_K159114159142_ _rest159148_))) (if (let () (declare (not safe)) - (equal? _hd159141159200_ '"-ld-options")) + (equal? _hd159123159182_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl159142159202_)) - (let ((_tl159139159185_ + (##pair? _tl159124159184_)) + (let ((_tl159121159167_ (let () (declare (not safe)) - (##cdr _tl159142159202_))) - (_hd159138159183_ + (##cdr _tl159124159184_))) + (_hd159120159165_ (let () (declare (not safe)) - (##car _tl159142159202_)))) - (let ((_opt159188_ _hd159138159183_) - (_rest159190_ _tl159139159185_)) + (##car _tl159124159184_)))) + (let ((_opt159170_ _hd159120159165_) + (_rest159172_ _tl159121159167_)) (let () (declare (not safe)) - (_K159135159175_ - _rest159190_ - _opt159188_)))) - (let ((_rest159166_ _tl159142159202_)) + (_K159117159157_ + _rest159172_ + _opt159170_)))) + (let ((_rest159148_ _tl159124159184_)) (declare (not safe)) - (_K159132159160_ _rest159166_))) - (let ((_rest159166_ _tl159142159202_)) + (_K159114159142_ _rest159148_))) + (let ((_rest159148_ _tl159124159184_)) (declare (not safe)) - (_K159132159160_ _rest159166_))))) - (let () (declare (not safe)) (_else159130159154_)))))))) + (_K159114159142_ _rest159148_))))) + (let () (declare (not safe)) (_else159112159136_)))))))) (define gxc#not-string-empty? - (lambda (_str159119_) - (let ((__tmp160597 - (let () (declare (not safe)) (string-empty? _str159119_)))) + (lambda (_str159101_) + (let ((__tmp160579 + (let () (declare (not safe)) (string-empty? _str159101_)))) (declare (not safe)) - (not __tmp160597)))) + (not __tmp160579)))) (define gxc#gsc-compile-file - (lambda (_path159087_ _phi?159088_) - (letrec ((_gsc-link-path159090_ - (lambda (_base-path159111_) - (let _lp159113_ ((_n159115_ '1)) - (let ((_path159117_ + (lambda (_path159069_ _phi?159070_) + (letrec ((_gsc-link-path159072_ + (lambda (_base-path159093_) + (let _lp159095_ ((_n159097_ '1)) + (let ((_path159099_ (string-append - _base-path159111_ + _base-path159093_ '".o" - (number->string _n159115_)))) - (if (file-exists? _path159117_) - (let ((__tmp160598 + (number->string _n159097_)))) + (if (file-exists? _path159099_) + (let ((__tmp160580 (let () (declare (not safe)) - (+ _n159115_ '1)))) + (+ _n159097_ '1)))) (declare (not safe)) - (_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_ + (_lp159095_ __tmp160580)) + _path159099_)))))) + (let* ((_base-path159074_ (path-strip-extension _path159069_)) + (_path-c159076_ (string-append _base-path159074_ '".c")) + (_path-o159078_ (string-append _base-path159074_ '".o")) + (_link-path159080_ (let () (declare (not safe)) - (_gsc-link-path159090_ _base-path159092_))) - (_link-path-c159100_ (string-append _link-path159098_ '".c")) - (_link-path-o159102_ (string-append _link-path159098_ '".o")) - (_gsc-link-opts159104_ + (_gsc-link-path159072_ _base-path159074_))) + (_link-path-c159082_ (string-append _link-path159080_ '".c")) + (_link-path-o159084_ (string-append _link-path159080_ '".o")) + (_gsc-link-opts159086_ (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?159088_))) - (_gsc-cc-opts159106_ + (gxc#gsc-link-options__% _phi?159070_))) + (_gsc-cc-opts159088_ (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?159088_))) - (_gcc-ld-opts159108_ + (gxc#gsc-cc-options__% _phi?159070_))) + (_gcc-ld-opts159090_ (let () (declare (not safe)) (gxc#gcc-ld-options)))) - (let ((__tmp160605 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp160599 - (let ((__tmp160600 - (let ((__tmp160601 - (let ((__tmp160602 - (let ((__tmp160603 - (let ((__tmp160604 + (let ((__tmp160587 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp160581 + (let ((__tmp160582 + (let ((__tmp160583 + (let ((__tmp160584 + (let ((__tmp160585 + (let ((__tmp160586 (let () (declare (not safe)) - (cons _path159087_ + (cons _path159069_ '())))) (declare (not safe)) (foldr1 cons - __tmp160604 - _gsc-link-opts159104_)))) + __tmp160586 + _gsc-link-opts159086_)))) (declare (not safe)) - (cons _link-path-c159100_ - __tmp160603)))) + (cons _link-path-c159082_ + __tmp160585)))) (declare (not safe)) - (cons '"-o" __tmp160602)))) + (cons '"-o" __tmp160584)))) (declare (not safe)) - (cons '"-flat" __tmp160601)))) + (cons '"-flat" __tmp160583)))) (declare (not safe)) - (cons '"-link" __tmp160600)))) + (cons '"-link" __tmp160582)))) (declare (not safe)) - (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 + (gxc#invoke __tmp160587 __tmp160581 'stdout-redirection: '#t)) + (let ((__tmp160594 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp160588 + (let ((__tmp160589 + (let ((__tmp160590 + (let ((__tmp160591 + (let ((__tmp160592 + (let ((__tmp160593 (let () (declare (not safe)) - (cons _link-path-c159100_ + (cons _link-path-c159082_ '())))) (declare (not safe)) - (cons _path-c159094_ - __tmp160611)))) + (cons _path-c159076_ + __tmp160593)))) (declare (not safe)) (foldr1 cons - __tmp160610 - _gsc-cc-opts159106_)))) + __tmp160592 + _gsc-cc-opts159088_)))) (declare (not safe)) - (cons '"-D___DYNAMIC" __tmp160609)))) + (cons '"-D___DYNAMIC" __tmp160591)))) (declare (not safe)) - (cons '"-cc-options" __tmp160608)))) + (cons '"-cc-options" __tmp160590)))) (declare (not safe)) - (cons '"-obj" __tmp160607)))) + (cons '"-obj" __tmp160589)))) (declare (not safe)) - (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 + (gxc#invoke __tmp160594 __tmp160588 'stdout-redirection: '#t)) + (let ((__tmp160600 (let () (declare (not safe)) (gxc#gerbil-gcc))) + (__tmp160595 + (let ((__tmp160596 + (let ((__tmp160597 + (let ((__tmp160598 + (let ((__tmp160599 (let () (declare (not safe)) - (cons _link-path-o159102_ - _gcc-ld-opts159108_)))) + (cons _link-path-o159084_ + _gcc-ld-opts159090_)))) (declare (not safe)) - (cons _path-o159096_ __tmp160617)))) + (cons _path-o159078_ __tmp160599)))) (declare (not safe)) - (cons _link-path159098_ __tmp160616)))) + (cons _link-path159080_ __tmp160598)))) (declare (not safe)) - (cons '"-o" __tmp160615)))) + (cons '"-o" __tmp160597)))) (declare (not safe)) - (cons '"-shared" __tmp160614)))) + (cons '"-shared" __tmp160596)))) (declare (not safe)) - (gxc#invoke __tmp160618 __tmp160613)) + (gxc#invoke __tmp160600 __tmp160595)) (for-each delete-file - (let ((__tmp160619 - (let ((__tmp160620 - (let ((__tmp160621 + (let ((__tmp160601 + (let ((__tmp160602 + (let ((__tmp160603 (let () (declare (not safe)) - (cons _link-path-o159102_ '())))) + (cons _link-path-o159084_ '())))) (declare (not safe)) - (cons _link-path-c159100_ __tmp160621)))) + (cons _link-path-c159082_ __tmp160603)))) (declare (not safe)) - (cons _path-o159096_ __tmp160620)))) + (cons _path-o159078_ __tmp160602)))) (declare (not safe)) - (cons _path-c159094_ __tmp160619))))))) + (cons _path-c159076_ __tmp160601))))))) (define gxc#compile-output-file - (lambda (_ctx159058_ _n159059_ _ext159060_) - (letrec ((_module-relative-path159062_ - (lambda (_ctx159085_) + (lambda (_ctx159040_ _n159041_ _ext159042_) + (letrec ((_module-relative-path159044_ + (lambda (_ctx159067_) (path-strip-directory - (let ((__tmp160622 + (let ((__tmp160604 (##structure-ref - _ctx159085_ + _ctx159067_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp160622))))) - (_module-source-directory159063_ - (lambda (_ctx159081_) + (gxc#module-id->path-string __tmp160604))))) + (_module-source-directory159045_ + (lambda (_ctx159063_) (path-directory - (let ((_mpath159083_ + (let ((_mpath159065_ (##structure-ref - _ctx159081_ + _ctx159063_ '7 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (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_) + (string? _mpath159065_)) + _mpath159065_ + (last _mpath159065_)))))) + (_section-string159046_ + (lambda (_n159061_) + (if (let () (declare (not safe)) (number? _n159061_)) + (number->string _n159061_) + (if (let () (declare (not safe)) (symbol? _n159061_)) + (symbol->string _n159061_) (if (let () (declare (not safe)) - (string? _n159079_)) - _n159079_ + (string? _n159061_)) + _n159061_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _n159079_))))))) - (_file-name159065_ - (lambda (_path159077_) - (if _n159059_ + _n159061_))))))) + (_file-name159047_ + (lambda (_path159059_) + (if _n159041_ (string-append - _path159077_ + _path159059_ '"~" (let () (declare (not safe)) - (_section-string159064_ _n159059_)) - _ext159060_) - (string-append _path159077_ _ext159060_)))) - (_file-path159066_ + (_section-string159046_ _n159041_)) + _ext159042_) + (string-append _path159059_ _ext159042_)))) + (_file-path159048_ (lambda () - (let ((_$e159072_ (gxc#current-compile-output-dir))) - (if _$e159072_ - ((lambda (_outdir159075_) + (let ((_$e159054_ (gxc#current-compile-output-dir))) + (if _$e159054_ + ((lambda (_outdir159057_) (path-expand - (let ((__tmp160624 - (let ((__tmp160625 + (let ((__tmp160606 + (let ((__tmp160607 (##structure-ref - _ctx159058_ + _ctx159040_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp160625)))) + __tmp160607)))) (declare (not safe)) - (_file-name159065_ __tmp160624)) - _outdir159075_)) - _$e159072_) + (_file-name159047_ __tmp160606)) + _outdir159057_)) + _$e159054_) (path-expand - (let ((__tmp160623 + (let ((__tmp160605 (let () (declare (not safe)) - (_module-relative-path159062_ - _ctx159058_)))) + (_module-relative-path159044_ + _ctx159040_)))) (declare (not safe)) - (_file-name159065_ __tmp160623)) + (_file-name159047_ __tmp160605)) (let () (declare (not safe)) - (_module-source-directory159063_ - _ctx159058_)))))))) - (let ((_path159068_ - (let () (declare (not safe)) (_file-path159066_)))) - (let ((__tmp160626 + (_module-source-directory159045_ + _ctx159040_)))))))) + (let ((_path159050_ + (let () (declare (not safe)) (_file-path159048_)))) + (let ((__tmp160608 (lambda () - (let ((__tmp160627 (path-directory _path159068_))) + (let ((__tmp160609 (path-directory _path159050_))) (declare (not safe)) - (create-directory*__0 __tmp160627))))) + (create-directory*__0 __tmp160609))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160626)) - _path159068_)))) + (with-lock gxc#+driver-mutex+ __tmp160608)) + _path159050_)))) (define gxc#compile-static-output-file - (lambda (_ctx159040_) - (letrec ((_file-name159042_ - (lambda (_id159056_) + (lambda (_ctx159022_) + (letrec ((_file-name159024_ + (lambda (_id159038_) (string-append (let () (declare (not safe)) - (gxc#static-module-name _id159056_)) + (gxc#static-module-name _id159038_)) '".scm"))) - (_file-path159043_ + (_file-path159025_ (lambda () - (let* ((_file159049_ - (let ((__tmp160628 + (let* ((_file159031_ + (let ((__tmp160610 (##structure-ref - _ctx159040_ + _ctx159022_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (_file-name159042_ __tmp160628))) - (_$e159051_ (gxc#current-compile-output-dir))) - (if _$e159051_ - ((lambda (_outdir159054_) + (_file-name159024_ __tmp160610))) + (_$e159033_ (gxc#current-compile-output-dir))) + (if _$e159033_ + ((lambda (_outdir159036_) (path-expand - _file159049_ - (path-expand '"static" _outdir159054_))) - _$e159051_) - (path-expand _file159049_ '"static")))))) - (let ((_path159045_ - (let () (declare (not safe)) (_file-path159043_)))) - (let ((__tmp160629 + _file159031_ + (path-expand '"static" _outdir159036_))) + _$e159033_) + (path-expand _file159031_ '"static")))))) + (let ((_path159027_ + (let () (declare (not safe)) (_file-path159025_)))) + (let ((__tmp160611 (lambda () - (let ((__tmp160630 (path-directory _path159045_))) + (let ((__tmp160612 (path-directory _path159027_))) (declare (not safe)) - (create-directory*__0 __tmp160630))))) + (create-directory*__0 __tmp160612))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp160629)) - _path159045_)))) + (with-lock gxc#+driver-mutex+ __tmp160611)) + _path159027_)))) (define gxc#compile-exe-output-file - (lambda (_ctx159034_ _opts159035_) - (let ((_$e159037_ + (lambda (_ctx159016_ _opts159017_) + (let ((_$e159019_ (let () (declare (not safe)) - (pgetq__0 'output-file: _opts159035_)))) - (if _$e159037_ - (values _$e159037_) + (pgetq__0 'output-file: _opts159017_)))) + (if _$e159019_ + (values _$e159019_) (path-strip-directory (symbol->string (##structure-ref - _ctx159034_ + _ctx159016_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_idstr159027_) - (if (let () (declare (not safe)) (string? _idstr159027_)) - (let* ((_str159029_ + (lambda (_idstr159009_) + (if (let () (declare (not safe)) (string? _idstr159009_)) + (let* ((_str159011_ (let () (declare (not safe)) - (gxc#module-id->path-string _idstr159027_))) - (_strs159031_ + (gxc#module-id->path-string _idstr159009_))) + (_strs159013_ (let () (declare (not safe)) - (string-split _str159029_ '#\/)))) - (let () (declare (not safe)) (string-join _strs159031_ '"__"))) - (if (let () (declare (not safe)) (symbol? _idstr159027_)) - (let ((__tmp160631 (symbol->string _idstr159027_))) + (string-split _str159011_ '#\/)))) + (let () (declare (not safe)) (string-join _strs159013_ '"__"))) + (if (let () (declare (not safe)) (symbol? _idstr159009_)) + (let ((__tmp160613 (symbol->string _idstr159009_))) (declare (not safe)) - (gxc#static-module-name __tmp160631)) + (gxc#static-module-name __tmp160613)) (let () (declare (not safe)) - (error '"Bad module id" _idstr159027_)))))) + (error '"Bad module id" _idstr159009_)))))) (define gxc#invoke__% - (lambda (_g160632_ - _stdout-redirection158988158992_ - _stderr-redirection158989158994_ - _program158996_ - _args158997_) - (let* ((_stdout-redirection158999_ + (lambda (_g160614_ + _stdout-redirection158970158974_ + _stderr-redirection158971158976_ + _program158978_ + _args158979_) + (let* ((_stdout-redirection158981_ (if (let () (declare (not safe)) - (eq? _stdout-redirection158988158992_ absent-value)) + (eq? _stdout-redirection158970158974_ absent-value)) '#f - _stdout-redirection158988158992_)) - (_stderr-redirection159001_ + _stdout-redirection158970158974_)) + (_stderr-redirection158983_ (if (let () (declare (not safe)) - (eq? _stderr-redirection158989158994_ absent-value)) + (eq? _stderr-redirection158971158976_ absent-value)) '#f - _stderr-redirection158989158994_))) - (let ((__tmp160633 + _stderr-redirection158971158976_))) + (let ((__tmp160615 (let () (declare (not safe)) - (cons _program158996_ _args158997_)))) + (cons _program158978_ _args158979_)))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp160633)) - (let* ((_proc159003_ + (gxc#verbose '"invoke " __tmp160615)) + (let* ((_proc158985_ (open-process - (let ((__tmp160634 - (let ((__tmp160635 - (let ((__tmp160636 - (let ((__tmp160637 - (let ((__tmp160638 - (let ((__tmp160639 - (let ((__tmp160640 + (let ((__tmp160616 + (let ((__tmp160617 + (let ((__tmp160618 + (let ((__tmp160619 + (let ((__tmp160620 + (let ((__tmp160621 + (let ((__tmp160622 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _stderr-redirection159001_ '())))) + (cons _stderr-redirection158983_ '())))) (declare (not safe)) - (cons 'stderr-redirection: __tmp160640)))) + (cons 'stderr-redirection: __tmp160622)))) (declare (not safe)) - (cons _stdout-redirection158999_ __tmp160639)))) + (cons _stdout-redirection158981_ __tmp160621)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'stdout-redirection: - __tmp160638)))) + __tmp160620)))) (declare (not safe)) - (cons _args158997_ __tmp160637)))) + (cons _args158979_ __tmp160619)))) (declare (not safe)) - (cons 'arguments: __tmp160636)))) + (cons 'arguments: __tmp160618)))) (declare (not safe)) - (cons _program158996_ __tmp160635)))) + (cons _program158978_ __tmp160617)))) (declare (not safe)) - (cons 'path: __tmp160634)))) - (_output159008_ - (if (or _stdout-redirection158999_ - _stderr-redirection159001_) - (read-line _proc159003_ '#f) + (cons 'path: __tmp160616)))) + (_output158990_ + (if (or _stdout-redirection158981_ + _stderr-redirection158983_) + (read-line _proc158985_ '#f) '#f))) - (let ((_status159011_ (process-status _proc159003_))) - (close-port _proc159003_) - (if (let () (declare (not safe)) (zero? _status159011_)) + (let ((_status158993_ (process-status _proc158985_))) + (close-port _proc158985_) + (if (let () (declare (not safe)) (zero? _status158993_)) '#!void (begin - (display _output159008_) - (let ((__tmp160641 + (display _output158990_) + (let ((__tmp160623 (let () (declare (not safe)) - (cons _program158996_ _args158997_)))) + (cons _program158978_ _args158979_)))) (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - __tmp160641 - _status159011_))))))))) + __tmp160623 + _status158993_))))))))) (define gxc#invoke__@ - (lambda (_keys158987159016_ . _args159018_) + (lambda (_keys158969158998_ . _args159000_) (apply gxc#invoke__% - _keys158987159016_ + _keys158969158998_ (let () (declare (not safe)) (symbolic-table-ref - _keys158987159016_ + _keys158969158998_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _keys158987159016_ + _keys158969158998_ 'stderr-redirection: absent-value)) - _args159018_))) + _args159000_))) (define gxc#invoke - (lambda _args158990159024_ + (lambda _args158972159006_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _args158990159024_))) + _args158972159006_))) (define gxc#join! - (lambda (_thread158981_) - (let ((__tmp160643 - (lambda (_exn158983_) + (lambda (_thread158963_) + (let ((__tmp160625 + (lambda (_exn158965_) (if (let () (declare (not safe)) - (uncaught-exception? _exn158983_)) + (uncaught-exception? _exn158965_)) (raise (let () (declare (not safe)) - (uncaught-exception-reason _exn158983_))) - (raise _exn158983_)))) - (__tmp160642 (lambda () (thread-join! _thread158981_)))) + (uncaught-exception-reason _exn158965_))) + (raise _exn158965_)))) + (__tmp160624 (lambda () (thread-join! _thread158963_)))) (declare (not safe)) - (with-catch __tmp160643 __tmp160642)))))) + (with-catch __tmp160625 __tmp160624)))))) diff --git a/src/bootstrap/gerbil/compiler/driver~1.scm b/src/bootstrap/gerbil/compiler/driver~1.scm index 6d20e55b9..76d1a089e 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 (_$stx158854_) - (let* ((_g158858158872_ - (lambda (_g158859158868_) + (lambda (_$stx158836_) + (let* ((_g158840158854_ + (lambda (_g158841158850_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158859158868_)))) - (_g158857158914_ - (lambda (_g158859158876_) + _g158841158850_)))) + (_g158839158896_ + (lambda (_g158841158858_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158859158876_)) - (let ((_e158863158879_ + (gx#stx-pair? _g158841158858_)) + (let ((_e158845158861_ (let () (declare (not safe)) - (gx#syntax-e _g158859158876_)))) - (let ((_hd158862158883_ + (gx#syntax-e _g158841158858_)))) + (let ((_hd158844158865_ (let () (declare (not safe)) - (##car _e158863158879_))) - (_tl158861158886_ + (##car _e158845158861_))) + (_tl158843158868_ (let () (declare (not safe)) - (##cdr _e158863158879_)))) + (##cdr _e158845158861_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158861158886_)) - (let ((_e158866158889_ + (gx#stx-pair? _tl158843158868_)) + (let ((_e158848158871_ (let () (declare (not safe)) - (gx#syntax-e _tl158861158886_)))) - (let ((_hd158865158893_ + (gx#syntax-e _tl158843158868_)))) + (let ((_hd158847158875_ (let () (declare (not safe)) - (##car _e158866158889_))) - (_tl158864158896_ + (##car _e158848158871_))) + (_tl158846158878_ (let () (declare (not safe)) - (##cdr _e158866158889_)))) + (##cdr _e158848158871_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158864158896_)) - ((lambda (_L158899_) - (let ((__tmp160651 + (gx#stx-null? _tl158846158878_)) + ((lambda (_L158881_) + (let ((__tmp160633 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp160644 - (let ((__tmp160650 + (__tmp160626 + (let ((__tmp160632 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+driver-mutex+))) - (__tmp160645 - (let ((__tmp160646 - (let ((__tmp160649 + (__tmp160627 + (let ((__tmp160628 + (let ((__tmp160631 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp160647 - (let ((__tmp160648 + (__tmp160629 + (let ((__tmp160630 (let () (declare (not safe)) - (cons _L158899_ '())))) + (cons _L158881_ '())))) (declare (not safe)) - (cons '() __tmp160648)))) + (cons '() __tmp160630)))) (declare (not safe)) - (cons __tmp160649 __tmp160647)))) + (cons __tmp160631 __tmp160629)))) (declare (not safe)) - (cons __tmp160646 '())))) + (cons __tmp160628 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160650 - __tmp160645)))) + (cons __tmp160632 + __tmp160627)))) (declare (not safe)) - (cons __tmp160651 __tmp160644))) - _hd158865158893_) - (_g158858158872_ _g158859158876_)))) - (_g158858158872_ _g158859158876_)))) - (_g158858158872_ _g158859158876_))))) - (_g158857158914_ _$stx158854_)))) + (cons __tmp160633 __tmp160626))) + _hd158847158875_) + (_g158840158854_ _g158841158858_)))) + (_g158840158854_ _g158841158858_)))) + (_g158840158854_ _g158841158858_))))) + (_g158839158896_ _$stx158836_)))) (define |gxc[:0:]#go!| - (lambda (_$stx158918_) - (let* ((_g158922158936_ - (lambda (_g158923158932_) + (lambda (_$stx158900_) + (let* ((_g158904158918_ + (lambda (_g158905158914_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158923158932_)))) - (_g158921158977_ - (lambda (_g158923158940_) + _g158905158914_)))) + (_g158903158959_ + (lambda (_g158905158922_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158923158940_)) - (let ((_e158927158943_ + (gx#stx-pair? _g158905158922_)) + (let ((_e158909158925_ (let () (declare (not safe)) - (gx#syntax-e _g158923158940_)))) - (let ((_hd158926158947_ + (gx#syntax-e _g158905158922_)))) + (let ((_hd158908158929_ (let () (declare (not safe)) - (##car _e158927158943_))) - (_tl158925158950_ + (##car _e158909158925_))) + (_tl158907158932_ (let () (declare (not safe)) - (##cdr _e158927158943_)))) + (##cdr _e158909158925_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158925158950_)) - (let ((_e158930158953_ + (gx#stx-pair? _tl158907158932_)) + (let ((_e158912158935_ (let () (declare (not safe)) - (gx#syntax-e _tl158925158950_)))) - (let ((_hd158929158957_ + (gx#syntax-e _tl158907158932_)))) + (let ((_hd158911158939_ (let () (declare (not safe)) - (##car _e158930158953_))) - (_tl158928158960_ + (##car _e158912158935_))) + (_tl158910158942_ (let () (declare (not safe)) - (##cdr _e158930158953_)))) + (##cdr _e158912158935_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158928158960_)) - ((lambda (_L158963_) - (let ((__tmp160657 + (gx#stx-null? _tl158910158942_)) + ((lambda (_L158945_) + (let ((__tmp160639 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'spawn))) - (__tmp160652 - (let ((__tmp160653 - (let ((__tmp160656 + (__tmp160634 + (let ((__tmp160635 + (let ((__tmp160638 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp160654 - (let ((__tmp160655 + (__tmp160636 + (let ((__tmp160637 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L158963_ '())))) + (let () (declare (not safe)) (cons _L158945_ '())))) (declare (not safe)) - (cons '() __tmp160655)))) + (cons '() __tmp160637)))) (declare (not safe)) - (cons __tmp160656 __tmp160654)))) + (cons __tmp160638 __tmp160636)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp160653 '())))) + (cons __tmp160635 '())))) (declare (not safe)) - (cons __tmp160657 __tmp160652))) - _hd158929158957_) - (_g158922158936_ _g158923158940_)))) - (_g158922158936_ _g158923158940_)))) - (_g158922158936_ _g158923158940_))))) - (_g158921158977_ _$stx158918_))))) + (cons __tmp160639 __tmp160634))) + _hd158911158939_) + (_g158904158918_ _g158905158922_)))) + (_g158904158918_ _g158905158922_)))) + (_g158904158918_ _g158905158922_))))) + (_g158903158959_ _$stx158900_))))) diff --git a/src/bootstrap/gerbil/compiler/method~0.scm b/src/bootstrap/gerbil/compiler/method~0.scm index 0f0446a73..e4f23bc19 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 1710833425) + (define gerbil/compiler/method::timestamp 1710943498) (begin (define gxc#current-compile-method (make-parameter '#f)) (define gxc#compile-e__0 - (lambda (_stx102912_) - (let* ((_self102914_ (gxc#current-compile-method)) - (_$e102916_ - (let ((__tmp103085 + (lambda (_stx102894_) + (let* ((_self102896_ (gxc#current-compile-method)) + (_$e102898_ + (let ((__tmp103067 (let () (declare (not safe)) - (gxc#stx-car-e _stx102912_)))) + (gxc#stx-car-e _stx102894_)))) (declare (not safe)) - (method-ref _self102914_ __tmp103085)))) - (if _$e102916_ - ((lambda (_method102919_) + (method-ref _self102896_ __tmp103067)))) + (if _$e102898_ + ((lambda (_method102901_) (declare (not safe)) - (_method102919_ _self102914_ _stx102912_)) - _$e102916_) - (let ((__tmp103087 - (let () (declare (not safe)) (gxc#stx-car-e _stx102912_))) - (__tmp103086 + (_method102901_ _self102896_ _stx102894_)) + _$e102898_) + (let ((__tmp103069 + (let () (declare (not safe)) (gxc#stx-car-e _stx102894_))) + (__tmp103068 (let () (declare (not safe)) - (gx#syntax->datum _stx102912_)))) + (gx#syntax->datum _stx102894_)))) (declare (not safe)) (error '"missing method" - _self102914_ - __tmp103087 - __tmp103086)))))) + _self102896_ + __tmp103069 + __tmp103068)))))) (define gxc#compile-e__1 - (lambda (_self102922_ _stx102923_) - (let ((_$e102925_ - (let ((__tmp103088 + (lambda (_self102904_ _stx102905_) + (let ((_$e102907_ + (let ((__tmp103070 (let () (declare (not safe)) - (gxc#stx-car-e _stx102923_)))) + (gxc#stx-car-e _stx102905_)))) (declare (not safe)) - (method-ref _self102922_ __tmp103088)))) - (if _$e102925_ - ((lambda (_method102928_) + (method-ref _self102904_ __tmp103070)))) + (if _$e102907_ + ((lambda (_method102910_) (declare (not safe)) - (_method102928_ _self102922_ _stx102923_)) - _$e102925_) - (let ((__tmp103090 - (let () (declare (not safe)) (gxc#stx-car-e _stx102923_))) - (__tmp103089 + (_method102910_ _self102904_ _stx102905_)) + _$e102907_) + (let ((__tmp103072 + (let () (declare (not safe)) (gxc#stx-car-e _stx102905_))) + (__tmp103071 (let () (declare (not safe)) - (gx#syntax->datum _stx102923_)))) + (gx#syntax->datum _stx102905_)))) (declare (not safe)) (error '"missing method" - _self102922_ - __tmp103090 - __tmp103089)))))) + _self102904_ + __tmp103072 + __tmp103071)))))) (define gxc#compile-e - (lambda _g103092_ - (let ((_g103091_ (let () (declare (not safe)) (##length _g103092_)))) - (cond ((let () (declare (not safe)) (##fx= _g103091_ 1)) - (apply (lambda (_stx102912_) + (lambda _g103074_ + (let ((_g103073_ (let () (declare (not safe)) (##length _g103074_)))) + (cond ((let () (declare (not safe)) (##fx= _g103073_ 1)) + (apply (lambda (_stx102894_) (let () (declare (not safe)) - (gxc#compile-e__0 _stx102912_))) - _g103092_)) - ((let () (declare (not safe)) (##fx= _g103091_ 2)) - (apply (lambda (_self102922_ _stx102923_) + (gxc#compile-e__0 _stx102894_))) + _g103074_)) + ((let () (declare (not safe)) (##fx= _g103073_ 2)) + (apply (lambda (_self102904_ _stx102905_) (let () (declare (not safe)) - (gxc#compile-e__1 _self102922_ _stx102923_))) - _g103092_)) + (gxc#compile-e__1 _self102904_ _stx102905_))) + _g103074_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g103092_)))))) + _g103074_)))))) (define gxc#stx-car-e - (lambda (_stx102910_) - (let ((__tmp103093 - (car (let () (declare (not safe)) (gx#stx-e _stx102910_))))) + (lambda (_stx102892_) + (let ((__tmp103075 + (car (let () (declare (not safe)) (gx#stx-e _stx102892_))))) (declare (not safe)) - (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)) + (gx#stx-e __tmp103075)))) + (define gxc#void-method (lambda (_self102889_ _stx102890_) '#!void)) + (define gxc#false-method (lambda (_self102886_ _stx102887_) '#f)) + (define gxc#true-method (lambda (_self102883_ _stx102884_) '#t)) (define gxc#identity-method - (lambda (_self102898_ _stx102899_) _stx102899_)) + (lambda (_self102880_ _stx102881_) _stx102881_)) (define gxc#::void-expression::t - (let ((__tmp103094 (list))) + (let ((__tmp103076 (list))) (declare (not safe)) (make-class-type 'gxc#::void-expression::t '::void-expression - __tmp103094 + __tmp103076 '() '() '#f))) @@ -99,8 +99,8 @@ (declare (not safe)) (make-class-predicate gxc#::void-expression::t))) (define gxc#make-::void-expression - (lambda _$args102895_ - (apply make-instance gxc#::void-expression::t _$args102895_))) + (lambda _$args102877_ + (apply make-instance gxc#::void-expression::t _$args102877_))) (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 ((__tmp103095 (list))) + (let ((__tmp103077 (list))) (declare (not safe)) (make-class-type 'gxc#::void-special-form::t '::void-special-form - __tmp103095 + __tmp103077 '() '() '#f))) @@ -230,8 +230,8 @@ (declare (not safe)) (make-class-predicate gxc#::void-special-form::t))) (define gxc#make-::void-special-form - (lambda _$args102891_ - (apply make-instance gxc#::void-special-form::t _$args102891_))) + (lambda _$args102873_ + (apply make-instance gxc#::void-special-form::t _$args102873_))) (define gxc#::void-special-form-bind-methods! (make-promise (lambda () @@ -308,26 +308,26 @@ '%#declare gxc#void-method))))) (define gxc#::void::t - (let ((__tmp103096 + (let ((__tmp103078 (list gxc#::void-special-form::t gxc#::void-expression::t))) (declare (not safe)) - (make-class-type 'gxc#::void::t '::void __tmp103096 '() '() '#f))) + (make-class-type 'gxc#::void::t '::void __tmp103078 '() '() '#f))) (define gxc#::void? (let () (declare (not safe)) (make-class-predicate gxc#::void::t))) (define gxc#make-::void - (lambda _$args102887_ (apply make-instance gxc#::void::t _$args102887_))) + (lambda _$args102869_ (apply make-instance gxc#::void::t _$args102869_))) (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 ((__tmp103097 (list))) + (let ((__tmp103079 (list))) (declare (not safe)) (make-class-type 'gxc#::false-expression::t '::false-expression - __tmp103097 + __tmp103079 '() '() '#f))) @@ -336,8 +336,8 @@ (declare (not safe)) (make-class-predicate gxc#::false-expression::t))) (define gxc#make-::false-expression - (lambda _$args102883_ - (apply make-instance gxc#::false-expression::t _$args102883_))) + (lambda _$args102865_ + (apply make-instance gxc#::false-expression::t _$args102865_))) (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 ((__tmp103098 (list))) + (let ((__tmp103080 (list))) (declare (not safe)) (make-class-type 'gxc#::false-special-form::t '::false-special-form - __tmp103098 + __tmp103080 '() '() '#f))) @@ -476,8 +476,8 @@ (declare (not safe)) (make-class-predicate gxc#::false-special-form::t))) (define gxc#make-::false-special-form - (lambda _$args102879_ - (apply make-instance gxc#::false-special-form::t _$args102879_))) + (lambda _$args102861_ + (apply make-instance gxc#::false-special-form::t _$args102861_))) (define gxc#::false-special-form-bind-methods! (make-promise (lambda () @@ -554,27 +554,27 @@ '%#declare gxc#false-method))))) (define gxc#::false::t - (let ((__tmp103099 + (let ((__tmp103081 (list gxc#::false-special-form::t gxc#::false-expression::t))) (declare (not safe)) - (make-class-type 'gxc#::false::t '::false __tmp103099 '() '() '#f))) + (make-class-type 'gxc#::false::t '::false __tmp103081 '() '() '#f))) (define gxc#::false? (let () (declare (not safe)) (make-class-predicate gxc#::false::t))) (define gxc#make-::false - (lambda _$args102875_ - (apply make-instance gxc#::false::t _$args102875_))) + (lambda _$args102857_ + (apply make-instance gxc#::false::t _$args102857_))) (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 ((__tmp103100 (list))) + (let ((__tmp103082 (list))) (declare (not safe)) (make-class-type 'gxc#::identity-expression::t '::identity-expression - __tmp103100 + __tmp103082 '() '() '#f))) @@ -583,8 +583,8 @@ (declare (not safe)) (make-class-predicate gxc#::identity-expression::t))) (define gxc#make-::identity-expression - (lambda _$args102871_ - (apply make-instance gxc#::identity-expression::t _$args102871_))) + (lambda _$args102853_ + (apply make-instance gxc#::identity-expression::t _$args102853_))) (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 ((__tmp103101 (list))) + (let ((__tmp103083 (list))) (declare (not safe)) (make-class-type 'gxc#::identity-special-form::t '::identity-special-form - __tmp103101 + __tmp103083 '() '() '#f))) @@ -729,8 +729,8 @@ (declare (not safe)) (make-class-predicate gxc#::identity-special-form::t))) (define gxc#make-::identity-special-form - (lambda _$args102867_ - (apply make-instance gxc#::identity-special-form::t _$args102867_))) + (lambda _$args102849_ + (apply make-instance gxc#::identity-special-form::t _$args102849_))) (define gxc#::identity-special-form-bind-methods! (make-promise (lambda () @@ -807,34 +807,34 @@ '%#declare gxc#identity-method))))) (define gxc#::identity::t - (let ((__tmp103102 + (let ((__tmp103084 (list gxc#::identity-special-form::t gxc#::identity-expression::t))) (declare (not safe)) (make-class-type 'gxc#::identity::t '::identity - __tmp103102 + __tmp103084 '() '() '#f))) (define gxc#::identity? (let () (declare (not safe)) (make-class-predicate gxc#::identity::t))) (define gxc#make-::identity - (lambda _$args102863_ - (apply make-instance gxc#::identity::t _$args102863_))) + (lambda _$args102845_ + (apply make-instance gxc#::identity::t _$args102845_))) (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 ((__tmp103103 (list))) + (let ((__tmp103085 (list))) (declare (not safe)) (make-class-type 'gxc#::basic-xform-expression::t '::basic-xform-expression - __tmp103103 + __tmp103085 '() '() '#f))) @@ -843,8 +843,8 @@ (declare (not safe)) (make-class-predicate gxc#::basic-xform-expression::t))) (define gxc#make-::basic-xform-expression - (lambda _$args102859_ - (apply make-instance gxc#::basic-xform-expression::t _$args102859_))) + (lambda _$args102841_ + (apply make-instance gxc#::basic-xform-expression::t _$args102841_))) (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 ((__tmp103104 + (let ((__tmp103086 (list gxc#::basic-xform-expression::t gxc#::identity::t))) (declare (not safe)) (make-class-type 'gxc#::basic-xform::t '::basic-xform - __tmp103104 + __tmp103086 '() '() '#f))) @@ -990,8 +990,8 @@ (declare (not safe)) (make-class-predicate gxc#::basic-xform::t))) (define gxc#make-::basic-xform - (lambda _$args102855_ - (apply make-instance gxc#::basic-xform::t _$args102855_))) + (lambda _$args102837_ + (apply make-instance gxc#::basic-xform::t _$args102837_))) (define gxc#::basic-xform-bind-methods! (make-promise (lambda () @@ -1022,2380 +1022,2380 @@ '%#define-syntax gxc#xform-define-syntax%))))) (define gxc#apply-begin% - (lambda (_self102811_ _stx102812_) - (let* ((_g102814102824_ - (lambda (_g102815102821_) + (lambda (_self102793_ _stx102794_) + (let* ((_g102796102806_ + (lambda (_g102797102803_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102815102821_)))) - (_g102813102851_ - (lambda (_g102815102827_) + _g102797102803_)))) + (_g102795102833_ + (lambda (_g102797102809_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102815102827_)) - (let ((_e102819102829_ + (gx#stx-pair? _g102797102809_)) + (let ((_e102801102811_ (let () (declare (not safe)) - (gx#stx-e _g102815102827_)))) - (let ((_hd102818102832_ + (gx#stx-e _g102797102809_)))) + (let ((_hd102800102814_ (let () (declare (not safe)) - (##car _e102819102829_))) - (_tl102817102834_ + (##car _e102801102811_))) + (_tl102799102816_ (let () (declare (not safe)) - (##cdr _e102819102829_)))) - ((lambda (_L102837_) + (##cdr _e102801102811_)))) + ((lambda (_L102819_) (for-each - (lambda (_g102846102848_) + (lambda (_g102828102830_) (let () (declare (not safe)) (gxc#compile-e__1 - _self102811_ - _g102846102848_))) + _self102793_ + _g102828102830_))) (let () (declare (not safe)) - (gx#stx-e _L102837_)))) - _tl102817102834_))) + (gx#stx-e _L102819_)))) + _tl102799102816_))) (let () (declare (not safe)) - (_g102814102824_ _g102815102827_)))))) + (_g102796102806_ _g102797102809_)))))) (declare (not safe)) - (_g102813102851_ _stx102812_)))) + (_g102795102833_ _stx102794_)))) (define gxc#apply-last-begin% - (lambda (_self102772_ _stx102773_) - (let* ((_g102775102785_ - (lambda (_g102776102782_) + (lambda (_self102754_ _stx102755_) + (let* ((_g102757102767_ + (lambda (_g102758102764_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102776102782_)))) - (_g102774102808_ - (lambda (_g102776102788_) + _g102758102764_)))) + (_g102756102790_ + (lambda (_g102758102770_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102776102788_)) - (let ((_e102780102790_ + (gx#stx-pair? _g102758102770_)) + (let ((_e102762102772_ (let () (declare (not safe)) - (gx#stx-e _g102776102788_)))) - (let ((_hd102779102793_ + (gx#stx-e _g102758102770_)))) + (let ((_hd102761102775_ (let () (declare (not safe)) - (##car _e102780102790_))) - (_tl102778102795_ + (##car _e102762102772_))) + (_tl102760102777_ (let () (declare (not safe)) - (##cdr _e102780102790_)))) - ((lambda (_L102798_) - (let ((__tmp103105 (last _L102798_))) + (##cdr _e102762102772_)))) + ((lambda (_L102780_) + (let ((__tmp103087 (last _L102780_))) (declare (not safe)) - (gxc#compile-e__1 _self102772_ __tmp103105))) - _tl102778102795_))) + (gxc#compile-e__1 _self102754_ __tmp103087))) + _tl102760102777_))) (let () (declare (not safe)) - (_g102775102785_ _g102776102788_)))))) + (_g102757102767_ _g102758102770_)))))) (declare (not safe)) - (_g102774102808_ _stx102773_)))) + (_g102756102790_ _stx102755_)))) (define gxc#apply-begin-syntax% - (lambda (_self102768_ _stx102769_) - (let ((__tmp103108 + (lambda (_self102750_ _stx102751_) + (let ((__tmp103090 (lambda () (let () (declare (not safe)) - (gxc#apply-begin% _self102768_ _stx102769_)))) - (__tmp103106 - (let ((__tmp103107 (gx#current-expander-phi))) + (gxc#apply-begin% _self102750_ _stx102751_)))) + (__tmp103088 + (let ((__tmp103089 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp103107 '1)))) + (fx+ __tmp103089 '1)))) (declare (not safe)) (call-with-parameters - __tmp103108 + __tmp103090 gx#current-expander-phi - __tmp103106)))) + __tmp103088)))) (define gxc#apply-module% - (lambda (_self102707_ _stx102708_) - (let* ((_g102710102724_ - (lambda (_g102711102721_) + (lambda (_self102689_ _stx102690_) + (let* ((_g102692102706_ + (lambda (_g102693102703_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102711102721_)))) - (_g102709102765_ - (lambda (_g102711102727_) + _g102693102703_)))) + (_g102691102747_ + (lambda (_g102693102709_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102711102727_)) - (let ((_e102716102729_ + (gx#stx-pair? _g102693102709_)) + (let ((_e102698102711_ (let () (declare (not safe)) - (gx#stx-e _g102711102727_)))) - (let ((_hd102715102732_ + (gx#stx-e _g102693102709_)))) + (let ((_hd102697102714_ (let () (declare (not safe)) - (##car _e102716102729_))) - (_tl102714102734_ + (##car _e102698102711_))) + (_tl102696102716_ (let () (declare (not safe)) - (##cdr _e102716102729_)))) + (##cdr _e102698102711_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102714102734_)) - (let ((_e102719102737_ + (gx#stx-pair? _tl102696102716_)) + (let ((_e102701102719_ (let () (declare (not safe)) - (gx#stx-e _tl102714102734_)))) - (let ((_hd102718102740_ + (gx#stx-e _tl102696102716_)))) + (let ((_hd102700102722_ (let () (declare (not safe)) - (##car _e102719102737_))) - (_tl102717102742_ + (##car _e102701102719_))) + (_tl102699102724_ (let () (declare (not safe)) - (##cdr _e102719102737_)))) - ((lambda (_L102745_ _L102746_) - (let* ((_ctx102759_ + (##cdr _e102701102719_)))) + ((lambda (_L102727_ _L102728_) + (let* ((_ctx102741_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L102746_))) - (_ctx-stx102761_ + _L102728_))) + (_ctx-stx102743_ (##structure-ref - _ctx102759_ + _ctx102741_ '11 gx#module-context::t '#f))) - (let ((__tmp103109 + (let ((__tmp103091 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _self102707_ - _ctx-stx102761_))))) + _self102689_ + _ctx-stx102743_))))) (declare (not safe)) (call-with-parameters - __tmp103109 + __tmp103091 gx#current-expander-context - _ctx102759_)))) - _tl102717102742_ - _hd102718102740_))) + _ctx102741_)))) + _tl102699102724_ + _hd102700102722_))) (let () (declare (not safe)) - (_g102710102724_ _g102711102727_))))) + (_g102692102706_ _g102693102709_))))) (let () (declare (not safe)) - (_g102710102724_ _g102711102727_)))))) + (_g102692102706_ _g102693102709_)))))) (declare (not safe)) - (_g102709102765_ _stx102708_)))) + (_g102691102747_ _stx102690_)))) (define gxc#apply-begin-annotation% - (lambda (_self102639_ _stx102640_) - (let* ((_g102642102659_ - (lambda (_g102643102656_) + (lambda (_self102621_ _stx102622_) + (let* ((_g102624102641_ + (lambda (_g102625102638_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102643102656_)))) - (_g102641102704_ - (lambda (_g102643102662_) + _g102625102638_)))) + (_g102623102686_ + (lambda (_g102625102644_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102643102662_)) - (let ((_e102648102664_ + (gx#stx-pair? _g102625102644_)) + (let ((_e102630102646_ (let () (declare (not safe)) - (gx#stx-e _g102643102662_)))) - (let ((_hd102647102667_ + (gx#stx-e _g102625102644_)))) + (let ((_hd102629102649_ (let () (declare (not safe)) - (##car _e102648102664_))) - (_tl102646102669_ + (##car _e102630102646_))) + (_tl102628102651_ (let () (declare (not safe)) - (##cdr _e102648102664_)))) + (##cdr _e102630102646_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102646102669_)) - (let ((_e102651102672_ + (gx#stx-pair? _tl102628102651_)) + (let ((_e102633102654_ (let () (declare (not safe)) - (gx#stx-e _tl102646102669_)))) - (let ((_hd102650102675_ + (gx#stx-e _tl102628102651_)))) + (let ((_hd102632102657_ (let () (declare (not safe)) - (##car _e102651102672_))) - (_tl102649102677_ + (##car _e102633102654_))) + (_tl102631102659_ (let () (declare (not safe)) - (##cdr _e102651102672_)))) + (##cdr _e102633102654_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102649102677_)) - (let ((_e102654102680_ + (gx#stx-pair? _tl102631102659_)) + (let ((_e102636102662_ (let () (declare (not safe)) - (gx#stx-e _tl102649102677_)))) - (let ((_hd102653102683_ + (gx#stx-e _tl102631102659_)))) + (let ((_hd102635102665_ (let () (declare (not safe)) - (##car _e102654102680_))) - (_tl102652102685_ + (##car _e102636102662_))) + (_tl102634102667_ (let () (declare (not safe)) - (##cdr _e102654102680_)))) + (##cdr _e102636102662_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102652102685_)) - ((lambda (_L102688_ _L102689_) + _tl102634102667_)) + ((lambda (_L102670_ _L102671_) (let () (declare (not safe)) (gxc#compile-e__1 - _self102639_ - _L102688_))) - _hd102653102683_ - _hd102650102675_) + _self102621_ + _L102670_))) + _hd102635102665_ + _hd102632102657_) (let () (declare (not safe)) - (_g102642102659_ - _g102643102662_))))) + (_g102624102641_ + _g102625102644_))))) (let () (declare (not safe)) - (_g102642102659_ _g102643102662_))))) + (_g102624102641_ _g102625102644_))))) (let () (declare (not safe)) - (_g102642102659_ _g102643102662_))))) + (_g102624102641_ _g102625102644_))))) (let () (declare (not safe)) - (_g102642102659_ _g102643102662_)))))) + (_g102624102641_ _g102625102644_)))))) (declare (not safe)) - (_g102641102704_ _stx102640_)))) + (_g102623102686_ _stx102622_)))) (define gxc#apply-define-values% - (lambda (_self102571_ _stx102572_) - (let* ((_g102574102591_ - (lambda (_g102575102588_) + (lambda (_self102553_ _stx102554_) + (let* ((_g102556102573_ + (lambda (_g102557102570_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102575102588_)))) - (_g102573102636_ - (lambda (_g102575102594_) + _g102557102570_)))) + (_g102555102618_ + (lambda (_g102557102576_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102575102594_)) - (let ((_e102580102596_ + (gx#stx-pair? _g102557102576_)) + (let ((_e102562102578_ (let () (declare (not safe)) - (gx#stx-e _g102575102594_)))) - (let ((_hd102579102599_ + (gx#stx-e _g102557102576_)))) + (let ((_hd102561102581_ (let () (declare (not safe)) - (##car _e102580102596_))) - (_tl102578102601_ + (##car _e102562102578_))) + (_tl102560102583_ (let () (declare (not safe)) - (##cdr _e102580102596_)))) + (##cdr _e102562102578_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102578102601_)) - (let ((_e102583102604_ + (gx#stx-pair? _tl102560102583_)) + (let ((_e102565102586_ (let () (declare (not safe)) - (gx#stx-e _tl102578102601_)))) - (let ((_hd102582102607_ + (gx#stx-e _tl102560102583_)))) + (let ((_hd102564102589_ (let () (declare (not safe)) - (##car _e102583102604_))) - (_tl102581102609_ + (##car _e102565102586_))) + (_tl102563102591_ (let () (declare (not safe)) - (##cdr _e102583102604_)))) + (##cdr _e102565102586_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102581102609_)) - (let ((_e102586102612_ + (gx#stx-pair? _tl102563102591_)) + (let ((_e102568102594_ (let () (declare (not safe)) - (gx#stx-e _tl102581102609_)))) - (let ((_hd102585102615_ + (gx#stx-e _tl102563102591_)))) + (let ((_hd102567102597_ (let () (declare (not safe)) - (##car _e102586102612_))) - (_tl102584102617_ + (##car _e102568102594_))) + (_tl102566102599_ (let () (declare (not safe)) - (##cdr _e102586102612_)))) + (##cdr _e102568102594_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102584102617_)) - ((lambda (_L102620_ _L102621_) + _tl102566102599_)) + ((lambda (_L102602_ _L102603_) (let () (declare (not safe)) (gxc#compile-e__1 - _self102571_ - _L102620_))) - _hd102585102615_ - _hd102582102607_) + _self102553_ + _L102602_))) + _hd102567102597_ + _hd102564102589_) (let () (declare (not safe)) - (_g102574102591_ - _g102575102594_))))) + (_g102556102573_ + _g102557102576_))))) (let () (declare (not safe)) - (_g102574102591_ _g102575102594_))))) + (_g102556102573_ _g102557102576_))))) (let () (declare (not safe)) - (_g102574102591_ _g102575102594_))))) + (_g102556102573_ _g102557102576_))))) (let () (declare (not safe)) - (_g102574102591_ _g102575102594_)))))) + (_g102556102573_ _g102557102576_)))))) (declare (not safe)) - (_g102573102636_ _stx102572_)))) + (_g102555102618_ _stx102554_)))) (define gxc#apply-define-syntax% - (lambda (_self102502_ _stx102503_) - (let* ((_g102505102522_ - (lambda (_g102506102519_) + (lambda (_self102484_ _stx102485_) + (let* ((_g102487102504_ + (lambda (_g102488102501_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102506102519_)))) - (_g102504102568_ - (lambda (_g102506102525_) + _g102488102501_)))) + (_g102486102550_ + (lambda (_g102488102507_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102506102525_)) - (let ((_e102511102527_ + (gx#stx-pair? _g102488102507_)) + (let ((_e102493102509_ (let () (declare (not safe)) - (gx#stx-e _g102506102525_)))) - (let ((_hd102510102530_ + (gx#stx-e _g102488102507_)))) + (let ((_hd102492102512_ (let () (declare (not safe)) - (##car _e102511102527_))) - (_tl102509102532_ + (##car _e102493102509_))) + (_tl102491102514_ (let () (declare (not safe)) - (##cdr _e102511102527_)))) + (##cdr _e102493102509_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102509102532_)) - (let ((_e102514102535_ + (gx#stx-pair? _tl102491102514_)) + (let ((_e102496102517_ (let () (declare (not safe)) - (gx#stx-e _tl102509102532_)))) - (let ((_hd102513102538_ + (gx#stx-e _tl102491102514_)))) + (let ((_hd102495102520_ (let () (declare (not safe)) - (##car _e102514102535_))) - (_tl102512102540_ + (##car _e102496102517_))) + (_tl102494102522_ (let () (declare (not safe)) - (##cdr _e102514102535_)))) + (##cdr _e102496102517_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102512102540_)) - (let ((_e102517102543_ + (gx#stx-pair? _tl102494102522_)) + (let ((_e102499102525_ (let () (declare (not safe)) - (gx#stx-e _tl102512102540_)))) - (let ((_hd102516102546_ + (gx#stx-e _tl102494102522_)))) + (let ((_hd102498102528_ (let () (declare (not safe)) - (##car _e102517102543_))) - (_tl102515102548_ + (##car _e102499102525_))) + (_tl102497102530_ (let () (declare (not safe)) - (##cdr _e102517102543_)))) + (##cdr _e102499102525_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102515102548_)) - ((lambda (_L102551_ _L102552_) - (let ((__tmp103112 + _tl102497102530_)) + ((lambda (_L102533_ _L102534_) + (let ((__tmp103094 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _self102502_ - _L102551_)))) - (__tmp103110 - (let ((__tmp103111 + _self102484_ + _L102533_)))) + (__tmp103092 + (let ((__tmp103093 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp103111 + (fx+ __tmp103093 '1)))) (declare (not safe)) (call-with-parameters - __tmp103112 + __tmp103094 gx#current-expander-phi - __tmp103110))) - _hd102516102546_ - _hd102513102538_) + __tmp103092))) + _hd102498102528_ + _hd102495102520_) (let () (declare (not safe)) - (_g102505102522_ - _g102506102525_))))) + (_g102487102504_ + _g102488102507_))))) (let () (declare (not safe)) - (_g102505102522_ _g102506102525_))))) + (_g102487102504_ _g102488102507_))))) (let () (declare (not safe)) - (_g102505102522_ _g102506102525_))))) + (_g102487102504_ _g102488102507_))))) (let () (declare (not safe)) - (_g102505102522_ _g102506102525_)))))) + (_g102487102504_ _g102488102507_)))))) (declare (not safe)) - (_g102504102568_ _stx102503_)))) + (_g102486102550_ _stx102485_)))) (define gxc#apply-body-lambda% - (lambda (_self102434_ _stx102435_) - (let* ((_g102437102454_ - (lambda (_g102438102451_) + (lambda (_self102416_ _stx102417_) + (let* ((_g102419102436_ + (lambda (_g102420102433_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102438102451_)))) - (_g102436102499_ - (lambda (_g102438102457_) + _g102420102433_)))) + (_g102418102481_ + (lambda (_g102420102439_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102438102457_)) - (let ((_e102443102459_ + (gx#stx-pair? _g102420102439_)) + (let ((_e102425102441_ (let () (declare (not safe)) - (gx#stx-e _g102438102457_)))) - (let ((_hd102442102462_ + (gx#stx-e _g102420102439_)))) + (let ((_hd102424102444_ (let () (declare (not safe)) - (##car _e102443102459_))) - (_tl102441102464_ + (##car _e102425102441_))) + (_tl102423102446_ (let () (declare (not safe)) - (##cdr _e102443102459_)))) + (##cdr _e102425102441_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102441102464_)) - (let ((_e102446102467_ + (gx#stx-pair? _tl102423102446_)) + (let ((_e102428102449_ (let () (declare (not safe)) - (gx#stx-e _tl102441102464_)))) - (let ((_hd102445102470_ + (gx#stx-e _tl102423102446_)))) + (let ((_hd102427102452_ (let () (declare (not safe)) - (##car _e102446102467_))) - (_tl102444102472_ + (##car _e102428102449_))) + (_tl102426102454_ (let () (declare (not safe)) - (##cdr _e102446102467_)))) + (##cdr _e102428102449_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102444102472_)) - (let ((_e102449102475_ + (gx#stx-pair? _tl102426102454_)) + (let ((_e102431102457_ (let () (declare (not safe)) - (gx#stx-e _tl102444102472_)))) - (let ((_hd102448102478_ + (gx#stx-e _tl102426102454_)))) + (let ((_hd102430102460_ (let () (declare (not safe)) - (##car _e102449102475_))) - (_tl102447102480_ + (##car _e102431102457_))) + (_tl102429102462_ (let () (declare (not safe)) - (##cdr _e102449102475_)))) + (##cdr _e102431102457_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102447102480_)) - ((lambda (_L102483_ _L102484_) + _tl102429102462_)) + ((lambda (_L102465_ _L102466_) (let () (declare (not safe)) (gxc#compile-e__1 - _self102434_ - _L102483_))) - _hd102448102478_ - _hd102445102470_) + _self102416_ + _L102465_))) + _hd102430102460_ + _hd102427102452_) (let () (declare (not safe)) - (_g102437102454_ - _g102438102457_))))) + (_g102419102436_ + _g102420102439_))))) (let () (declare (not safe)) - (_g102437102454_ _g102438102457_))))) + (_g102419102436_ _g102420102439_))))) (let () (declare (not safe)) - (_g102437102454_ _g102438102457_))))) + (_g102419102436_ _g102420102439_))))) (let () (declare (not safe)) - (_g102437102454_ _g102438102457_)))))) + (_g102419102436_ _g102420102439_)))))) (declare (not safe)) - (_g102436102499_ _stx102435_)))) + (_g102418102481_ _stx102417_)))) (define gxc#apply-body-case-lambda% - (lambda (_self102316_ _stx102317_) - (let* ((_g102319102347_ - (lambda (_g102320102344_) + (lambda (_self102298_ _stx102299_) + (let* ((_g102301102329_ + (lambda (_g102302102326_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102320102344_)))) - (_g102318102431_ - (lambda (_g102320102350_) + _g102302102326_)))) + (_g102300102413_ + (lambda (_g102302102332_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102320102350_)) - (let ((_e102325102352_ + (gx#stx-pair? _g102302102332_)) + (let ((_e102307102334_ (let () (declare (not safe)) - (gx#stx-e _g102320102350_)))) - (let ((_hd102324102355_ + (gx#stx-e _g102302102332_)))) + (let ((_hd102306102337_ (let () (declare (not safe)) - (##car _e102325102352_))) - (_tl102323102357_ + (##car _e102307102334_))) + (_tl102305102339_ (let () (declare (not safe)) - (##cdr _e102325102352_)))) + (##cdr _e102307102334_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl102323102357_)) - (let ((_g103113_ + (gx#stx-pair/null? _tl102305102339_)) + (let ((_g103095_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl102323102357_ + _tl102305102339_ '0)))) (begin - (let ((_g103114_ + (let ((_g103096_ (let () (declare (not safe)) - (if (##values? _g103113_) - (##vector-length _g103113_) + (if (##values? _g103095_) + (##vector-length _g103095_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g103114_ 2))) + (##fx= _g103096_ 2))) (error "Context expects 2 values" - _g103114_))) - (let ((_target102326102360_ + _g103096_))) + (let ((_target102308102342_ (let () (declare (not safe)) - (##vector-ref _g103113_ 0))) - (_tl102328102362_ + (##vector-ref _g103095_ 0))) + (_tl102310102344_ (let () (declare (not safe)) - (##vector-ref _g103113_ 1)))) + (##vector-ref _g103095_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102328102362_)) - (letrec ((_loop102329102365_ - (lambda (_hd102327102368_ - _body102333102370_ - _hd102334102372_) + (gx#stx-null? _tl102310102344_)) + (letrec ((_loop102311102347_ + (lambda (_hd102309102350_ + _body102315102352_ + _hd102316102354_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd102327102368_)) - (let ((_e102330102375_ + _hd102309102350_)) + (let ((_e102312102357_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd102327102368_)))) - (let ((_lp-hd102331102378_ - (let () (declare (not safe)) (##car _e102330102375_))) - (_lp-tl102332102380_ + (gx#stx-e _hd102309102350_)))) + (let ((_lp-hd102313102360_ + (let () (declare (not safe)) (##car _e102312102357_))) + (_lp-tl102314102362_ (let () (declare (not safe)) - (##cdr _e102330102375_)))) + (##cdr _e102312102357_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd102331102378_)) - (let ((_e102339102383_ + (gx#stx-pair? _lp-hd102313102360_)) + (let ((_e102321102365_ (let () (declare (not safe)) - (gx#stx-e _lp-hd102331102378_)))) - (let ((_hd102338102386_ + (gx#stx-e _lp-hd102313102360_)))) + (let ((_hd102320102368_ (let () (declare (not safe)) - (##car _e102339102383_))) - (_tl102337102388_ + (##car _e102321102365_))) + (_tl102319102370_ (let () (declare (not safe)) - (##cdr _e102339102383_)))) + (##cdr _e102321102365_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102337102388_)) - (let ((_e102342102391_ + (gx#stx-pair? _tl102319102370_)) + (let ((_e102324102373_ (let () (declare (not safe)) - (gx#stx-e _tl102337102388_)))) - (let ((_hd102341102394_ + (gx#stx-e _tl102319102370_)))) + (let ((_hd102323102376_ (let () (declare (not safe)) - (##car _e102342102391_))) - (_tl102340102396_ + (##car _e102324102373_))) + (_tl102322102378_ (let () (declare (not safe)) - (##cdr _e102342102391_)))) + (##cdr _e102324102373_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102340102396_)) - (let ((__tmp103117 + (gx#stx-null? _tl102322102378_)) + (let ((__tmp103099 (let () (declare (not safe)) - (cons _hd102341102394_ - _body102333102370_))) - (__tmp103116 + (cons _hd102323102376_ + _body102315102352_))) + (__tmp103098 (let () (declare (not safe)) - (cons _hd102338102386_ - _hd102334102372_)))) + (cons _hd102320102368_ + _hd102316102354_)))) (declare (not safe)) - (_loop102329102365_ - _lp-tl102332102380_ - __tmp103117 - __tmp103116)) + (_loop102311102347_ + _lp-tl102314102362_ + __tmp103099 + __tmp103098)) (let () (declare (not safe)) - (_g102319102347_ _g102320102350_))))) + (_g102301102329_ _g102302102332_))))) (let () (declare (not safe)) - (_g102319102347_ _g102320102350_))))) + (_g102301102329_ _g102302102332_))))) (let () (declare (not safe)) - (_g102319102347_ _g102320102350_))))) - (let ((_body102335102399_ (reverse _body102333102370_)) - (_hd102336102401_ (reverse _hd102334102372_))) - ((lambda (_L102404_ _L102405_) + (_g102301102329_ _g102302102332_))))) + (let ((_body102317102381_ (reverse _body102315102352_)) + (_hd102318102383_ (reverse _hd102316102354_))) + ((lambda (_L102386_ _L102387_) (for-each - (lambda (_g102419102421_) + (lambda (_g102401102403_) (let () (declare (not safe)) - (gxc#compile-e__1 _self102316_ _g102419102421_))) - (let ((__tmp103115 - (lambda (_g102423102426_ _g102424102428_) + (gxc#compile-e__1 _self102298_ _g102401102403_))) + (let ((__tmp103097 + (lambda (_g102405102408_ _g102406102410_) (let () (declare (not safe)) - (cons _g102423102426_ _g102424102428_))))) + (cons _g102405102408_ _g102406102410_))))) (declare (not safe)) - (foldr1 __tmp103115 '() _L102404_)))) - _body102335102399_ - _hd102336102401_)))))) + (foldr1 __tmp103097 '() _L102386_)))) + _body102317102381_ + _hd102318102383_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop102329102365_ - _target102326102360_ + (_loop102311102347_ + _target102308102342_ '() '()))) (let () (declare (not safe)) - (_g102319102347_ - _g102320102350_)))))) + (_g102301102329_ + _g102302102332_)))))) (let () (declare (not safe)) - (_g102319102347_ _g102320102350_))))) + (_g102301102329_ _g102302102332_))))) (let () (declare (not safe)) - (_g102319102347_ _g102320102350_)))))) + (_g102301102329_ _g102302102332_)))))) (declare (not safe)) - (_g102318102431_ _stx102317_)))) + (_g102300102413_ _stx102299_)))) (define gxc#apply-body-let-values% - (lambda (_self102169_ _stx102170_) - (let* ((_g102172102207_ - (lambda (_g102173102204_) + (lambda (_self102151_ _stx102152_) + (let* ((_g102154102189_ + (lambda (_g102155102186_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102173102204_)))) - (_g102171102313_ - (lambda (_g102173102210_) + _g102155102186_)))) + (_g102153102295_ + (lambda (_g102155102192_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102173102210_)) - (let ((_e102179102212_ + (gx#stx-pair? _g102155102192_)) + (let ((_e102161102194_ (let () (declare (not safe)) - (gx#stx-e _g102173102210_)))) - (let ((_hd102178102215_ + (gx#stx-e _g102155102192_)))) + (let ((_hd102160102197_ (let () (declare (not safe)) - (##car _e102179102212_))) - (_tl102177102217_ + (##car _e102161102194_))) + (_tl102159102199_ (let () (declare (not safe)) - (##cdr _e102179102212_)))) + (##cdr _e102161102194_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102177102217_)) - (let ((_e102182102220_ + (gx#stx-pair? _tl102159102199_)) + (let ((_e102164102202_ (let () (declare (not safe)) - (gx#stx-e _tl102177102217_)))) - (let ((_hd102181102223_ + (gx#stx-e _tl102159102199_)))) + (let ((_hd102163102205_ (let () (declare (not safe)) - (##car _e102182102220_))) - (_tl102180102225_ + (##car _e102164102202_))) + (_tl102162102207_ (let () (declare (not safe)) - (##cdr _e102182102220_)))) + (##cdr _e102164102202_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd102181102223_)) - (let ((_g103118_ + (gx#stx-pair/null? _hd102163102205_)) + (let ((_g103100_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd102181102223_ + _hd102163102205_ '0)))) (begin - (let ((_g103119_ + (let ((_g103101_ (let () (declare (not safe)) - (if (##values? _g103118_) + (if (##values? _g103100_) (##vector-length - _g103118_) + _g103100_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g103119_ 2))) + (##fx= _g103101_ 2))) (error "Context expects 2 values" - _g103119_))) - (let ((_target102183102228_ + _g103101_))) + (let ((_target102165102210_ (let () (declare (not safe)) - (##vector-ref _g103118_ 0))) - (_tl102185102230_ + (##vector-ref _g103100_ 0))) + (_tl102167102212_ (let () (declare (not safe)) (##vector-ref - _g103118_ + _g103100_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102185102230_)) - (letrec ((_loop102186102233_ - (lambda (_hd102184102236_ + _tl102167102212_)) + (letrec ((_loop102168102215_ + (lambda (_hd102166102218_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr102190102238_ - _hd102191102240_) + _expr102172102220_ + _hd102173102222_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd102184102236_)) - (let ((_e102187102243_ + (gx#stx-pair? _hd102166102218_)) + (let ((_e102169102225_ (let () (declare (not safe)) - (gx#stx-e _hd102184102236_)))) - (let ((_lp-hd102188102246_ + (gx#stx-e _hd102166102218_)))) + (let ((_lp-hd102170102228_ (let () (declare (not safe)) - (##car _e102187102243_))) - (_lp-tl102189102248_ + (##car _e102169102225_))) + (_lp-tl102171102230_ (let () (declare (not safe)) - (##cdr _e102187102243_)))) + (##cdr _e102169102225_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd102188102246_)) - (let ((_e102196102251_ + (gx#stx-pair? _lp-hd102170102228_)) + (let ((_e102178102233_ (let () (declare (not safe)) - (gx#stx-e _lp-hd102188102246_)))) - (let ((_hd102195102254_ + (gx#stx-e _lp-hd102170102228_)))) + (let ((_hd102177102236_ (let () (declare (not safe)) - (##car _e102196102251_))) - (_tl102194102256_ + (##car _e102178102233_))) + (_tl102176102238_ (let () (declare (not safe)) - (##cdr _e102196102251_)))) + (##cdr _e102178102233_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102194102256_)) - (let ((_e102199102259_ + (gx#stx-pair? _tl102176102238_)) + (let ((_e102181102241_ (let () (declare (not safe)) - (gx#stx-e _tl102194102256_)))) - (let ((_hd102198102262_ + (gx#stx-e _tl102176102238_)))) + (let ((_hd102180102244_ (let () (declare (not safe)) - (##car _e102199102259_))) - (_tl102197102264_ + (##car _e102181102241_))) + (_tl102179102246_ (let () (declare (not safe)) - (##cdr _e102199102259_)))) + (##cdr _e102181102241_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102197102264_)) - (let ((__tmp103123 + _tl102179102246_)) + (let ((__tmp103105 (let () (declare (not safe)) - (cons _hd102198102262_ - _expr102190102238_))) - (__tmp103122 + (cons _hd102180102244_ + _expr102172102220_))) + (__tmp103104 (let () (declare (not safe)) - (cons _hd102195102254_ - _hd102191102240_)))) + (cons _hd102177102236_ + _hd102173102222_)))) (declare (not safe)) - (_loop102186102233_ - _lp-tl102189102248_ - __tmp103123 - __tmp103122)) + (_loop102168102215_ + _lp-tl102171102230_ + __tmp103105 + __tmp103104)) (let () (declare (not safe)) - (_g102172102207_ - _g102173102210_))))) + (_g102154102189_ + _g102155102192_))))) (let () (declare (not safe)) - (_g102172102207_ _g102173102210_))))) + (_g102154102189_ _g102155102192_))))) (let () (declare (not safe)) - (_g102172102207_ _g102173102210_))))) - (let ((_expr102192102267_ (reverse _expr102190102238_)) - (_hd102193102269_ (reverse _hd102191102240_))) + (_g102154102189_ _g102155102192_))))) + (let ((_expr102174102249_ (reverse _expr102172102220_)) + (_hd102175102251_ (reverse _hd102173102222_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102180102225_)) - (let ((_e102202102272_ + (gx#stx-pair? _tl102162102207_)) + (let ((_e102184102254_ (let () (declare (not safe)) - (gx#stx-e _tl102180102225_)))) - (let ((_hd102201102275_ + (gx#stx-e _tl102162102207_)))) + (let ((_hd102183102257_ (let () (declare (not safe)) - (##car _e102202102272_))) - (_tl102200102277_ + (##car _e102184102254_))) + (_tl102182102259_ (let () (declare (not safe)) - (##cdr _e102202102272_)))) + (##cdr _e102184102254_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl102200102277_)) - ((lambda (_L102280_ _L102281_ _L102282_) + (gx#stx-null? _tl102182102259_)) + ((lambda (_L102262_ _L102263_ _L102264_) (for-each - (lambda (_g102301102303_) + (lambda (_g102283102285_) (let () (declare (not safe)) (gxc#compile-e__1 - _self102169_ - _g102301102303_))) - (let ((__tmp103121 - (lambda (_g102305102308_ - _g102306102310_) + _self102151_ + _g102283102285_))) + (let ((__tmp103103 + (lambda (_g102287102290_ + _g102288102292_) (let () (declare (not safe)) - (cons _g102305102308_ - _g102306102310_)))) - (__tmp103120 + (cons _g102287102290_ + _g102288102292_)))) + (__tmp103102 (let () (declare (not safe)) - (cons _L102280_ '())))) + (cons _L102262_ '())))) (declare (not safe)) - (foldr1 __tmp103121 - __tmp103120 - _L102281_)))) - _hd102201102275_ - _expr102192102267_ - _hd102193102269_) + (foldr1 __tmp103103 + __tmp103102 + _L102263_)))) + _hd102183102257_ + _expr102174102249_ + _hd102175102251_) (let () (declare (not safe)) - (_g102172102207_ _g102173102210_))))) + (_g102154102189_ _g102155102192_))))) (let () (declare (not safe)) - (_g102172102207_ _g102173102210_)))))))) + (_g102154102189_ _g102155102192_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop102186102233_ - _target102183102228_ + (_loop102168102215_ + _target102165102210_ '() '()))) (let () (declare (not safe)) - (_g102172102207_ - _g102173102210_)))))) + (_g102154102189_ + _g102155102192_)))))) (let () (declare (not safe)) - (_g102172102207_ _g102173102210_))))) + (_g102154102189_ _g102155102192_))))) (let () (declare (not safe)) - (_g102172102207_ _g102173102210_))))) + (_g102154102189_ _g102155102192_))))) (let () (declare (not safe)) - (_g102172102207_ _g102173102210_)))))) + (_g102154102189_ _g102155102192_)))))) (declare (not safe)) - (_g102171102313_ _stx102170_)))) + (_g102153102295_ _stx102152_)))) (define gxc#apply-body-last-let-values% - (lambda (_self102114_ _stx102115_) - (let* ((_g102117102131_ - (lambda (_g102118102128_) + (lambda (_self102096_ _stx102097_) + (let* ((_g102099102113_ + (lambda (_g102100102110_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102118102128_)))) - (_g102116102166_ - (lambda (_g102118102134_) + _g102100102110_)))) + (_g102098102148_ + (lambda (_g102100102116_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102118102134_)) - (let ((_e102123102136_ + (gx#stx-pair? _g102100102116_)) + (let ((_e102105102118_ (let () (declare (not safe)) - (gx#stx-e _g102118102134_)))) - (let ((_hd102122102139_ + (gx#stx-e _g102100102116_)))) + (let ((_hd102104102121_ (let () (declare (not safe)) - (##car _e102123102136_))) - (_tl102121102141_ + (##car _e102105102118_))) + (_tl102103102123_ (let () (declare (not safe)) - (##cdr _e102123102136_)))) + (##cdr _e102105102118_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102121102141_)) - (let ((_e102126102144_ + (gx#stx-pair? _tl102103102123_)) + (let ((_e102108102126_ (let () (declare (not safe)) - (gx#stx-e _tl102121102141_)))) - (let ((_hd102125102147_ + (gx#stx-e _tl102103102123_)))) + (let ((_hd102107102129_ (let () (declare (not safe)) - (##car _e102126102144_))) - (_tl102124102149_ + (##car _e102108102126_))) + (_tl102106102131_ (let () (declare (not safe)) - (##cdr _e102126102144_)))) - ((lambda (_L102152_ _L102153_) - (let ((__tmp103124 (last _L102152_))) + (##cdr _e102108102126_)))) + ((lambda (_L102134_ _L102135_) + (let ((__tmp103106 (last _L102134_))) (declare (not safe)) (gxc#compile-e__1 - _self102114_ - __tmp103124))) - _tl102124102149_ - _hd102125102147_))) + _self102096_ + __tmp103106))) + _tl102106102131_ + _hd102107102129_))) (let () (declare (not safe)) - (_g102117102131_ _g102118102134_))))) + (_g102099102113_ _g102100102116_))))) (let () (declare (not safe)) - (_g102117102131_ _g102118102134_)))))) + (_g102099102113_ _g102100102116_)))))) (declare (not safe)) - (_g102116102166_ _stx102115_)))) + (_g102098102148_ _stx102097_)))) (define gxc#apply-body-setq% - (lambda (_self102046_ _stx102047_) - (let* ((_g102049102066_ - (lambda (_g102050102063_) + (lambda (_self102028_ _stx102029_) + (let* ((_g102031102048_ + (lambda (_g102032102045_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102050102063_)))) - (_g102048102111_ - (lambda (_g102050102069_) + _g102032102045_)))) + (_g102030102093_ + (lambda (_g102032102051_) (if (let () (declare (not safe)) - (gx#stx-pair? _g102050102069_)) - (let ((_e102055102071_ + (gx#stx-pair? _g102032102051_)) + (let ((_e102037102053_ (let () (declare (not safe)) - (gx#stx-e _g102050102069_)))) - (let ((_hd102054102074_ + (gx#stx-e _g102032102051_)))) + (let ((_hd102036102056_ (let () (declare (not safe)) - (##car _e102055102071_))) - (_tl102053102076_ + (##car _e102037102053_))) + (_tl102035102058_ (let () (declare (not safe)) - (##cdr _e102055102071_)))) + (##cdr _e102037102053_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102053102076_)) - (let ((_e102058102079_ + (gx#stx-pair? _tl102035102058_)) + (let ((_e102040102061_ (let () (declare (not safe)) - (gx#stx-e _tl102053102076_)))) - (let ((_hd102057102082_ + (gx#stx-e _tl102035102058_)))) + (let ((_hd102039102064_ (let () (declare (not safe)) - (##car _e102058102079_))) - (_tl102056102084_ + (##car _e102040102061_))) + (_tl102038102066_ (let () (declare (not safe)) - (##cdr _e102058102079_)))) + (##cdr _e102040102061_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl102056102084_)) - (let ((_e102061102087_ + (gx#stx-pair? _tl102038102066_)) + (let ((_e102043102069_ (let () (declare (not safe)) - (gx#stx-e _tl102056102084_)))) - (let ((_hd102060102090_ + (gx#stx-e _tl102038102066_)))) + (let ((_hd102042102072_ (let () (declare (not safe)) - (##car _e102061102087_))) - (_tl102059102092_ + (##car _e102043102069_))) + (_tl102041102074_ (let () (declare (not safe)) - (##cdr _e102061102087_)))) + (##cdr _e102043102069_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl102059102092_)) - ((lambda (_L102095_ _L102096_) + _tl102041102074_)) + ((lambda (_L102077_ _L102078_) (let () (declare (not safe)) (gxc#compile-e__1 - _self102046_ - _L102095_))) - _hd102060102090_ - _hd102057102082_) + _self102028_ + _L102077_))) + _hd102042102072_ + _hd102039102064_) (let () (declare (not safe)) - (_g102049102066_ - _g102050102069_))))) + (_g102031102048_ + _g102032102051_))))) (let () (declare (not safe)) - (_g102049102066_ _g102050102069_))))) + (_g102031102048_ _g102032102051_))))) (let () (declare (not safe)) - (_g102049102066_ _g102050102069_))))) + (_g102031102048_ _g102032102051_))))) (let () (declare (not safe)) - (_g102049102066_ _g102050102069_)))))) + (_g102031102048_ _g102032102051_)))))) (declare (not safe)) - (_g102048102111_ _stx102047_)))) + (_g102030102093_ _stx102029_)))) (define gxc#apply-operands - (lambda (_self101959_ _stx101960_) - (let* ((_g101962101981_ - (lambda (_g101963101978_) + (lambda (_self101941_ _stx101942_) + (let* ((_g101944101963_ + (lambda (_g101945101960_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101963101978_)))) - (_g101961102043_ - (lambda (_g101963101984_) + _g101945101960_)))) + (_g101943102025_ + (lambda (_g101945101966_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101963101984_)) - (let ((_e101967101986_ + (gx#stx-pair? _g101945101966_)) + (let ((_e101949101968_ (let () (declare (not safe)) - (gx#stx-e _g101963101984_)))) - (let ((_hd101966101989_ + (gx#stx-e _g101945101966_)))) + (let ((_hd101948101971_ (let () (declare (not safe)) - (##car _e101967101986_))) - (_tl101965101991_ + (##car _e101949101968_))) + (_tl101947101973_ (let () (declare (not safe)) - (##cdr _e101967101986_)))) + (##cdr _e101949101968_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl101965101991_)) - (let ((_g103125_ + (gx#stx-pair/null? _tl101947101973_)) + (let ((_g103107_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl101965101991_ + _tl101947101973_ '0)))) (begin - (let ((_g103126_ + (let ((_g103108_ (let () (declare (not safe)) - (if (##values? _g103125_) - (##vector-length _g103125_) + (if (##values? _g103107_) + (##vector-length _g103107_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g103126_ 2))) + (##fx= _g103108_ 2))) (error "Context expects 2 values" - _g103126_))) - (let ((_target101968101994_ + _g103108_))) + (let ((_target101950101976_ (let () (declare (not safe)) - (##vector-ref _g103125_ 0))) - (_tl101970101996_ + (##vector-ref _g103107_ 0))) + (_tl101952101978_ (let () (declare (not safe)) - (##vector-ref _g103125_ 1)))) + (##vector-ref _g103107_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl101970101996_)) - (letrec ((_loop101971101999_ - (lambda (_hd101969102002_ - _rands101975102004_) + (gx#stx-null? _tl101952101978_)) + (letrec ((_loop101953101981_ + (lambda (_hd101951101984_ + _rands101957101986_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd101969102002_)) - (let ((_e101972102007_ + _hd101951101984_)) + (let ((_e101954101989_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd101969102002_)))) - (let ((_lp-hd101973102010_ - (let () (declare (not safe)) (##car _e101972102007_))) - (_lp-tl101974102012_ + (gx#stx-e _hd101951101984_)))) + (let ((_lp-hd101955101992_ + (let () (declare (not safe)) (##car _e101954101989_))) + (_lp-tl101956101994_ (let () (declare (not safe)) - (##cdr _e101972102007_)))) - (let ((__tmp103128 + (##cdr _e101954101989_)))) + (let ((__tmp103110 (let () (declare (not safe)) - (cons _lp-hd101973102010_ _rands101975102004_)))) + (cons _lp-hd101955101992_ _rands101957101986_)))) (declare (not safe)) - (_loop101971101999_ _lp-tl101974102012_ __tmp103128)))) - (let ((_rands101976102015_ (reverse _rands101975102004_))) - ((lambda (_L102018_) + (_loop101953101981_ _lp-tl101956101994_ __tmp103110)))) + (let ((_rands101958101997_ (reverse _rands101957101986_))) + ((lambda (_L102000_) (for-each - (lambda (_g102031102033_) + (lambda (_g102013102015_) (let () (declare (not safe)) - (gxc#compile-e__1 _self101959_ _g102031102033_))) - (let ((__tmp103127 - (lambda (_g102035102038_ _g102036102040_) + (gxc#compile-e__1 _self101941_ _g102013102015_))) + (let ((__tmp103109 + (lambda (_g102017102020_ _g102018102022_) (let () (declare (not safe)) - (cons _g102035102038_ _g102036102040_))))) + (cons _g102017102020_ _g102018102022_))))) (declare (not safe)) - (foldr1 __tmp103127 '() _L102018_)))) - _rands101976102015_)))))) + (foldr1 __tmp103109 '() _L102000_)))) + _rands101958101997_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop101971101999_ - _target101968101994_ + (_loop101953101981_ + _target101950101976_ '()))) (let () (declare (not safe)) - (_g101962101981_ - _g101963101984_)))))) + (_g101944101963_ + _g101945101966_)))))) (let () (declare (not safe)) - (_g101962101981_ _g101963101984_))))) + (_g101944101963_ _g101945101966_))))) (let () (declare (not safe)) - (_g101962101981_ _g101963101984_)))))) + (_g101944101963_ _g101945101966_)))))) (declare (not safe)) - (_g101961102043_ _stx101960_)))) + (_g101943102025_ _stx101942_)))) (define gxc#xform-wrap-source - (lambda (_stx101956_ _src-stx101957_) - (let ((__tmp103129 - (let () (declare (not safe)) (gx#stx-source _src-stx101957_)))) + (lambda (_stx101938_ _src-stx101939_) + (let ((__tmp103111 + (let () (declare (not safe)) (gx#stx-source _src-stx101939_)))) (declare (not safe)) - (gx#stx-wrap-source _stx101956_ __tmp103129)))) + (gx#stx-wrap-source _stx101938_ __tmp103111)))) (define gxc#xform-begin% - (lambda (_self101911_ _stx101912_) - (let* ((_g101914101924_ - (lambda (_g101915101921_) + (lambda (_self101893_ _stx101894_) + (let* ((_g101896101906_ + (lambda (_g101897101903_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101915101921_)))) - (_g101913101953_ - (lambda (_g101915101927_) + _g101897101903_)))) + (_g101895101935_ + (lambda (_g101897101909_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101915101927_)) - (let ((_e101919101929_ + (gx#stx-pair? _g101897101909_)) + (let ((_e101901101911_ (let () (declare (not safe)) - (gx#stx-e _g101915101927_)))) - (let ((_hd101918101932_ + (gx#stx-e _g101897101909_)))) + (let ((_hd101900101914_ (let () (declare (not safe)) - (##car _e101919101929_))) - (_tl101917101934_ + (##car _e101901101911_))) + (_tl101899101916_ (let () (declare (not safe)) - (##cdr _e101919101929_)))) - ((lambda (_L101937_) - (let* ((_forms101951_ - (map (lambda (_g101946101948_) + (##cdr _e101901101911_)))) + ((lambda (_L101919_) + (let* ((_forms101933_ + (map (lambda (_g101928101930_) (let () (declare (not safe)) (gxc#compile-e__1 - _self101911_ - _g101946101948_))) - _L101937_)) - (__tmp103130 + _self101893_ + _g101928101930_))) + _L101919_)) + (__tmp103112 (let () (declare (not safe)) - (cons '%#begin _forms101951_)))) + (cons '%#begin _forms101933_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp103130 - _stx101912_))) - _tl101917101934_))) + __tmp103112 + _stx101894_))) + _tl101899101916_))) (let () (declare (not safe)) - (_g101914101924_ _g101915101927_)))))) + (_g101896101906_ _g101897101909_)))))) (declare (not safe)) - (_g101913101953_ _stx101912_)))) + (_g101895101935_ _stx101894_)))) (define gxc#xform-begin-syntax% - (lambda (_self101865_ _stx101866_) - (let* ((_g101868101878_ - (lambda (_g101869101875_) + (lambda (_self101847_ _stx101848_) + (let* ((_g101850101860_ + (lambda (_g101851101857_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101869101875_)))) - (_g101867101908_ - (lambda (_g101869101881_) + _g101851101857_)))) + (_g101849101890_ + (lambda (_g101851101863_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101869101881_)) - (let ((_e101873101883_ + (gx#stx-pair? _g101851101863_)) + (let ((_e101855101865_ (let () (declare (not safe)) - (gx#stx-e _g101869101881_)))) - (let ((_hd101872101886_ + (gx#stx-e _g101851101863_)))) + (let ((_hd101854101868_ (let () (declare (not safe)) - (##car _e101873101883_))) - (_tl101871101888_ + (##car _e101855101865_))) + (_tl101853101870_ (let () (declare (not safe)) - (##cdr _e101873101883_)))) - ((lambda (_L101891_) - (let ((__tmp103133 + (##cdr _e101855101865_)))) + ((lambda (_L101873_) + (let ((__tmp103115 (lambda () - (let* ((_forms101906_ - (map (lambda (_g101901101903_) + (let* ((_forms101888_ + (map (lambda (_g101883101885_) (let () (declare (not safe)) (gxc#compile-e__1 - _self101865_ - _g101901101903_))) - _L101891_)) - (__tmp103134 + _self101847_ + _g101883101885_))) + _L101873_)) + (__tmp103116 (let () (declare (not safe)) (cons '%#begin-syntax - _forms101906_)))) + _forms101888_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp103134 - _stx101866_)))) - (__tmp103131 - (let ((__tmp103132 + __tmp103116 + _stx101848_)))) + (__tmp103113 + (let ((__tmp103114 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp103132 '1)))) + (fx+ __tmp103114 '1)))) (declare (not safe)) (call-with-parameters - __tmp103133 + __tmp103115 gx#current-expander-phi - __tmp103131))) - _tl101871101888_))) + __tmp103113))) + _tl101853101870_))) (let () (declare (not safe)) - (_g101868101878_ _g101869101881_)))))) + (_g101850101860_ _g101851101863_)))))) (declare (not safe)) - (_g101867101908_ _stx101866_)))) + (_g101849101890_ _stx101848_)))) (define gxc#xform-module% - (lambda (_self101802_ _stx101803_) - (let* ((_g101805101819_ - (lambda (_g101806101816_) + (lambda (_self101784_ _stx101785_) + (let* ((_g101787101801_ + (lambda (_g101788101798_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101806101816_)))) - (_g101804101862_ - (lambda (_g101806101822_) + _g101788101798_)))) + (_g101786101844_ + (lambda (_g101788101804_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101806101822_)) - (let ((_e101811101824_ + (gx#stx-pair? _g101788101804_)) + (let ((_e101793101806_ (let () (declare (not safe)) - (gx#stx-e _g101806101822_)))) - (let ((_hd101810101827_ + (gx#stx-e _g101788101804_)))) + (let ((_hd101792101809_ (let () (declare (not safe)) - (##car _e101811101824_))) - (_tl101809101829_ + (##car _e101793101806_))) + (_tl101791101811_ (let () (declare (not safe)) - (##cdr _e101811101824_)))) + (##cdr _e101793101806_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101809101829_)) - (let ((_e101814101832_ + (gx#stx-pair? _tl101791101811_)) + (let ((_e101796101814_ (let () (declare (not safe)) - (gx#stx-e _tl101809101829_)))) - (let ((_hd101813101835_ + (gx#stx-e _tl101791101811_)))) + (let ((_hd101795101817_ (let () (declare (not safe)) - (##car _e101814101832_))) - (_tl101812101837_ + (##car _e101796101814_))) + (_tl101794101819_ (let () (declare (not safe)) - (##cdr _e101814101832_)))) - ((lambda (_L101840_ _L101841_) - (let* ((_ctx101854_ + (##cdr _e101796101814_)))) + ((lambda (_L101822_ _L101823_) + (let* ((_ctx101836_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L101841_))) - (_code101856_ + _L101823_))) + (_code101838_ (##structure-ref - _ctx101854_ + _ctx101836_ '11 gx#module-context::t '#f)) - (_code101859_ - (let ((__tmp103135 + (_code101841_ + (let ((__tmp103117 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _self101802_ - _code101856_))))) + _self101784_ + _code101838_))))) (declare (not safe)) (call-with-parameters - __tmp103135 + __tmp103117 gx#current-expander-context - _ctx101854_)))) + _ctx101836_)))) (##structure-set! - _ctx101854_ - _code101859_ + _ctx101836_ + _code101841_ '11 gx#module-context::t '#f) - (let ((__tmp103136 - (let ((__tmp103137 - (let ((__tmp103138 + (let ((__tmp103118 + (let ((__tmp103119 + (let ((__tmp103120 (let () (declare (not safe)) - (cons _code101859_ + (cons _code101841_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L101841_ __tmp103138)))) + (cons _L101823_ __tmp103120)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#module __tmp103137)))) + (cons '%#module __tmp103119)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp103136 - _stx101803_)))) - _tl101812101837_ - _hd101813101835_))) + __tmp103118 + _stx101785_)))) + _tl101794101819_ + _hd101795101817_))) (let () (declare (not safe)) - (_g101805101819_ _g101806101822_))))) + (_g101787101801_ _g101788101804_))))) (let () (declare (not safe)) - (_g101805101819_ _g101806101822_)))))) + (_g101787101801_ _g101788101804_)))))) (declare (not safe)) - (_g101804101862_ _stx101803_)))) + (_g101786101844_ _stx101785_)))) (define gxc#xform-define-values% - (lambda (_self101732_ _stx101733_) - (let* ((_g101735101752_ - (lambda (_g101736101749_) + (lambda (_self101714_ _stx101715_) + (let* ((_g101717101734_ + (lambda (_g101718101731_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101736101749_)))) - (_g101734101799_ - (lambda (_g101736101755_) + _g101718101731_)))) + (_g101716101781_ + (lambda (_g101718101737_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101736101755_)) - (let ((_e101741101757_ + (gx#stx-pair? _g101718101737_)) + (let ((_e101723101739_ (let () (declare (not safe)) - (gx#stx-e _g101736101755_)))) - (let ((_hd101740101760_ + (gx#stx-e _g101718101737_)))) + (let ((_hd101722101742_ (let () (declare (not safe)) - (##car _e101741101757_))) - (_tl101739101762_ + (##car _e101723101739_))) + (_tl101721101744_ (let () (declare (not safe)) - (##cdr _e101741101757_)))) + (##cdr _e101723101739_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101739101762_)) - (let ((_e101744101765_ + (gx#stx-pair? _tl101721101744_)) + (let ((_e101726101747_ (let () (declare (not safe)) - (gx#stx-e _tl101739101762_)))) - (let ((_hd101743101768_ + (gx#stx-e _tl101721101744_)))) + (let ((_hd101725101750_ (let () (declare (not safe)) - (##car _e101744101765_))) - (_tl101742101770_ + (##car _e101726101747_))) + (_tl101724101752_ (let () (declare (not safe)) - (##cdr _e101744101765_)))) + (##cdr _e101726101747_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101742101770_)) - (let ((_e101747101773_ + (gx#stx-pair? _tl101724101752_)) + (let ((_e101729101755_ (let () (declare (not safe)) - (gx#stx-e _tl101742101770_)))) - (let ((_hd101746101776_ + (gx#stx-e _tl101724101752_)))) + (let ((_hd101728101758_ (let () (declare (not safe)) - (##car _e101747101773_))) - (_tl101745101778_ + (##car _e101729101755_))) + (_tl101727101760_ (let () (declare (not safe)) - (##cdr _e101747101773_)))) + (##cdr _e101729101755_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101745101778_)) - ((lambda (_L101781_ _L101782_) - (let* ((_expr101797_ + _tl101727101760_)) + ((lambda (_L101763_ _L101764_) + (let* ((_expr101779_ (let () (declare (not safe)) (gxc#compile-e__1 - _self101732_ - _L101781_))) - (__tmp103139 - (let ((__tmp103140 - (let ((__tmp103141 + _self101714_ + _L101763_))) + (__tmp103121 + (let ((__tmp103122 + (let ((__tmp103123 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr101797_ '())))) + (cons _expr101779_ '())))) (declare (not safe)) - (cons _L101782_ __tmp103141)))) + (cons _L101764_ __tmp103123)))) (declare (not safe)) - (cons '%#define-values __tmp103140)))) + (cons '%#define-values __tmp103122)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp103139 - _stx101733_))) - _hd101746101776_ - _hd101743101768_) + __tmp103121 + _stx101715_))) + _hd101728101758_ + _hd101725101750_) (let () (declare (not safe)) - (_g101735101752_ - _g101736101755_))))) + (_g101717101734_ + _g101718101737_))))) (let () (declare (not safe)) - (_g101735101752_ _g101736101755_))))) + (_g101717101734_ _g101718101737_))))) (let () (declare (not safe)) - (_g101735101752_ _g101736101755_))))) + (_g101717101734_ _g101718101737_))))) (let () (declare (not safe)) - (_g101735101752_ _g101736101755_)))))) + (_g101717101734_ _g101718101737_)))))) (declare (not safe)) - (_g101734101799_ _stx101733_)))) + (_g101716101781_ _stx101715_)))) (define gxc#xform-define-syntax% - (lambda (_self101661_ _stx101662_) - (let* ((_g101664101681_ - (lambda (_g101665101678_) + (lambda (_self101643_ _stx101644_) + (let* ((_g101646101663_ + (lambda (_g101647101660_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101665101678_)))) - (_g101663101729_ - (lambda (_g101665101684_) + _g101647101660_)))) + (_g101645101711_ + (lambda (_g101647101666_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101665101684_)) - (let ((_e101670101686_ + (gx#stx-pair? _g101647101666_)) + (let ((_e101652101668_ (let () (declare (not safe)) - (gx#stx-e _g101665101684_)))) - (let ((_hd101669101689_ + (gx#stx-e _g101647101666_)))) + (let ((_hd101651101671_ (let () (declare (not safe)) - (##car _e101670101686_))) - (_tl101668101691_ + (##car _e101652101668_))) + (_tl101650101673_ (let () (declare (not safe)) - (##cdr _e101670101686_)))) + (##cdr _e101652101668_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101668101691_)) - (let ((_e101673101694_ + (gx#stx-pair? _tl101650101673_)) + (let ((_e101655101676_ (let () (declare (not safe)) - (gx#stx-e _tl101668101691_)))) - (let ((_hd101672101697_ + (gx#stx-e _tl101650101673_)))) + (let ((_hd101654101679_ (let () (declare (not safe)) - (##car _e101673101694_))) - (_tl101671101699_ + (##car _e101655101676_))) + (_tl101653101681_ (let () (declare (not safe)) - (##cdr _e101673101694_)))) + (##cdr _e101655101676_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101671101699_)) - (let ((_e101676101702_ + (gx#stx-pair? _tl101653101681_)) + (let ((_e101658101684_ (let () (declare (not safe)) - (gx#stx-e _tl101671101699_)))) - (let ((_hd101675101705_ + (gx#stx-e _tl101653101681_)))) + (let ((_hd101657101687_ (let () (declare (not safe)) - (##car _e101676101702_))) - (_tl101674101707_ + (##car _e101658101684_))) + (_tl101656101689_ (let () (declare (not safe)) - (##cdr _e101676101702_)))) + (##cdr _e101658101684_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101674101707_)) - ((lambda (_L101710_ _L101711_) - (let ((__tmp103144 + _tl101656101689_)) + ((lambda (_L101692_ _L101693_) + (let ((__tmp103126 (lambda () - (let* ((_expr101727_ + (let* ((_expr101709_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__1 _self101661_ _L101710_))) - (__tmp103145 - (let ((__tmp103146 - (let ((__tmp103147 + (gxc#compile-e__1 _self101643_ _L101692_))) + (__tmp103127 + (let ((__tmp103128 + (let ((__tmp103129 (let () (declare (not safe)) - (cons _expr101727_ '())))) + (cons _expr101709_ '())))) (declare (not safe)) - (cons _L101711_ __tmp103147)))) + (cons _L101693_ __tmp103129)))) (declare (not safe)) - (cons '%#define-syntax __tmp103146)))) + (cons '%#define-syntax __tmp103128)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp103145 _stx101662_)))) - (__tmp103142 - (let ((__tmp103143 (gx#current-expander-phi))) + (gxc#xform-wrap-source __tmp103127 _stx101644_)))) + (__tmp103124 + (let ((__tmp103125 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp103143 '1)))) + (fx+ __tmp103125 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp103144 + __tmp103126 gx#current-expander-phi - __tmp103142))) - _hd101675101705_ - _hd101672101697_) + __tmp103124))) + _hd101657101687_ + _hd101654101679_) (let () (declare (not safe)) - (_g101664101681_ - _g101665101684_))))) + (_g101646101663_ + _g101647101666_))))) (let () (declare (not safe)) - (_g101664101681_ _g101665101684_))))) + (_g101646101663_ _g101647101666_))))) (let () (declare (not safe)) - (_g101664101681_ _g101665101684_))))) + (_g101646101663_ _g101647101666_))))) (let () (declare (not safe)) - (_g101664101681_ _g101665101684_)))))) + (_g101646101663_ _g101647101666_)))))) (declare (not safe)) - (_g101663101729_ _stx101662_)))) + (_g101645101711_ _stx101644_)))) (define gxc#xform-begin-annotation% - (lambda (_self101591_ _stx101592_) - (let* ((_g101594101611_ - (lambda (_g101595101608_) + (lambda (_self101573_ _stx101574_) + (let* ((_g101576101593_ + (lambda (_g101577101590_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101595101608_)))) - (_g101593101658_ - (lambda (_g101595101614_) + _g101577101590_)))) + (_g101575101640_ + (lambda (_g101577101596_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101595101614_)) - (let ((_e101600101616_ + (gx#stx-pair? _g101577101596_)) + (let ((_e101582101598_ (let () (declare (not safe)) - (gx#stx-e _g101595101614_)))) - (let ((_hd101599101619_ + (gx#stx-e _g101577101596_)))) + (let ((_hd101581101601_ (let () (declare (not safe)) - (##car _e101600101616_))) - (_tl101598101621_ + (##car _e101582101598_))) + (_tl101580101603_ (let () (declare (not safe)) - (##cdr _e101600101616_)))) + (##cdr _e101582101598_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101598101621_)) - (let ((_e101603101624_ + (gx#stx-pair? _tl101580101603_)) + (let ((_e101585101606_ (let () (declare (not safe)) - (gx#stx-e _tl101598101621_)))) - (let ((_hd101602101627_ + (gx#stx-e _tl101580101603_)))) + (let ((_hd101584101609_ (let () (declare (not safe)) - (##car _e101603101624_))) - (_tl101601101629_ + (##car _e101585101606_))) + (_tl101583101611_ (let () (declare (not safe)) - (##cdr _e101603101624_)))) + (##cdr _e101585101606_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101601101629_)) - (let ((_e101606101632_ + (gx#stx-pair? _tl101583101611_)) + (let ((_e101588101614_ (let () (declare (not safe)) - (gx#stx-e _tl101601101629_)))) - (let ((_hd101605101635_ + (gx#stx-e _tl101583101611_)))) + (let ((_hd101587101617_ (let () (declare (not safe)) - (##car _e101606101632_))) - (_tl101604101637_ + (##car _e101588101614_))) + (_tl101586101619_ (let () (declare (not safe)) - (##cdr _e101606101632_)))) + (##cdr _e101588101614_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101604101637_)) - ((lambda (_L101640_ _L101641_) - (let* ((_expr101656_ + _tl101586101619_)) + ((lambda (_L101622_ _L101623_) + (let* ((_expr101638_ (let () (declare (not safe)) (gxc#compile-e__1 - _self101591_ - _L101640_))) - (__tmp103148 - (let ((__tmp103149 - (let ((__tmp103150 + _self101573_ + _L101622_))) + (__tmp103130 + (let ((__tmp103131 + (let ((__tmp103132 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr101656_ '())))) + (cons _expr101638_ '())))) (declare (not safe)) - (cons _L101641_ __tmp103150)))) + (cons _L101623_ __tmp103132)))) (declare (not safe)) - (cons '%#begin-annotation __tmp103149)))) + (cons '%#begin-annotation __tmp103131)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp103148 - _stx101592_))) - _hd101605101635_ - _hd101602101627_) + __tmp103130 + _stx101574_))) + _hd101587101617_ + _hd101584101609_) (let () (declare (not safe)) - (_g101594101611_ - _g101595101614_))))) + (_g101576101593_ + _g101577101596_))))) (let () (declare (not safe)) - (_g101594101611_ _g101595101614_))))) + (_g101576101593_ _g101577101596_))))) (let () (declare (not safe)) - (_g101594101611_ _g101595101614_))))) + (_g101576101593_ _g101577101596_))))) (let () (declare (not safe)) - (_g101594101611_ _g101595101614_)))))) + (_g101576101593_ _g101577101596_)))))) (declare (not safe)) - (_g101593101658_ _stx101592_)))) + (_g101575101640_ _stx101574_)))) (define gxc#xform-lambda% - (lambda (_self101530_ _stx101531_) - (let* ((_g101533101547_ - (lambda (_g101534101544_) + (lambda (_self101512_ _stx101513_) + (let* ((_g101515101529_ + (lambda (_g101516101526_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101534101544_)))) - (_g101532101588_ - (lambda (_g101534101550_) + _g101516101526_)))) + (_g101514101570_ + (lambda (_g101516101532_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101534101550_)) - (let ((_e101539101552_ + (gx#stx-pair? _g101516101532_)) + (let ((_e101521101534_ (let () (declare (not safe)) - (gx#stx-e _g101534101550_)))) - (let ((_hd101538101555_ + (gx#stx-e _g101516101532_)))) + (let ((_hd101520101537_ (let () (declare (not safe)) - (##car _e101539101552_))) - (_tl101537101557_ + (##car _e101521101534_))) + (_tl101519101539_ (let () (declare (not safe)) - (##cdr _e101539101552_)))) + (##cdr _e101521101534_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101537101557_)) - (let ((_e101542101560_ + (gx#stx-pair? _tl101519101539_)) + (let ((_e101524101542_ (let () (declare (not safe)) - (gx#stx-e _tl101537101557_)))) - (let ((_hd101541101563_ + (gx#stx-e _tl101519101539_)))) + (let ((_hd101523101545_ (let () (declare (not safe)) - (##car _e101542101560_))) - (_tl101540101565_ + (##car _e101524101542_))) + (_tl101522101547_ (let () (declare (not safe)) - (##cdr _e101542101560_)))) - ((lambda (_L101568_ _L101569_) - (let* ((_body101586_ - (map (lambda (_g101581101583_) + (##cdr _e101524101542_)))) + ((lambda (_L101550_ _L101551_) + (let* ((_body101568_ + (map (lambda (_g101563101565_) (let () (declare (not safe)) (gxc#compile-e__1 - _self101530_ - _g101581101583_))) - _L101568_)) - (__tmp103151 - (let ((__tmp103152 + _self101512_ + _g101563101565_))) + _L101550_)) + (__tmp103133 + (let ((__tmp103134 (let () (declare (not safe)) - (cons _L101569_ - _body101586_)))) + (cons _L101551_ + _body101568_)))) (declare (not safe)) - (cons '%#lambda __tmp103152)))) + (cons '%#lambda __tmp103134)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp103151 - _stx101531_))) - _tl101540101565_ - _hd101541101563_))) + __tmp103133 + _stx101513_))) + _tl101522101547_ + _hd101523101545_))) (let () (declare (not safe)) - (_g101533101547_ _g101534101550_))))) + (_g101515101529_ _g101516101532_))))) (let () (declare (not safe)) - (_g101533101547_ _g101534101550_)))))) + (_g101515101529_ _g101516101532_)))))) (declare (not safe)) - (_g101532101588_ _stx101531_)))) + (_g101514101570_ _stx101513_)))) (define gxc#xform-case-lambda% - (lambda (_self101439_ _stx101440_) - (letrec ((_clause-e101442_ - (lambda (_clause101483_) - (let* ((_g101485101496_ - (lambda (_g101486101493_) + (lambda (_self101421_ _stx101422_) + (letrec ((_clause-e101424_ + (lambda (_clause101465_) + (let* ((_g101467101478_ + (lambda (_g101468101475_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101486101493_)))) - (_g101484101527_ - (lambda (_g101486101499_) + _g101468101475_)))) + (_g101466101509_ + (lambda (_g101468101481_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101486101499_)) - (let ((_e101491101501_ + (gx#stx-pair? _g101468101481_)) + (let ((_e101473101483_ (let () (declare (not safe)) - (gx#stx-e _g101486101499_)))) - (let ((_hd101490101504_ + (gx#stx-e _g101468101481_)))) + (let ((_hd101472101486_ (let () (declare (not safe)) - (##car _e101491101501_))) - (_tl101489101506_ + (##car _e101473101483_))) + (_tl101471101488_ (let () (declare (not safe)) - (##cdr _e101491101501_)))) - ((lambda (_L101509_ _L101510_) - (let ((_body101525_ - (map (lambda (_g101520101522_) + (##cdr _e101473101483_)))) + ((lambda (_L101491_ _L101492_) + (let ((_body101507_ + (map (lambda (_g101502101504_) (let () (declare (not safe)) (gxc#compile-e__1 - _self101439_ - _g101520101522_))) - _L101509_))) + _self101421_ + _g101502101504_))) + _L101491_))) (declare (not safe)) - (cons _L101510_ _body101525_))) - _tl101489101506_ - _hd101490101504_))) + (cons _L101492_ _body101507_))) + _tl101471101488_ + _hd101472101486_))) (let () (declare (not safe)) - (_g101485101496_ _g101486101499_)))))) + (_g101467101478_ _g101468101481_)))))) (declare (not safe)) - (_g101484101527_ _clause101483_))))) - (let* ((_g101444101454_ - (lambda (_g101445101451_) + (_g101466101509_ _clause101465_))))) + (let* ((_g101426101436_ + (lambda (_g101427101433_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101445101451_)))) - (_g101443101480_ - (lambda (_g101445101457_) + _g101427101433_)))) + (_g101425101462_ + (lambda (_g101427101439_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101445101457_)) - (let ((_e101449101459_ + (gx#stx-pair? _g101427101439_)) + (let ((_e101431101441_ (let () (declare (not safe)) - (gx#stx-e _g101445101457_)))) - (let ((_hd101448101462_ + (gx#stx-e _g101427101439_)))) + (let ((_hd101430101444_ (let () (declare (not safe)) - (##car _e101449101459_))) - (_tl101447101464_ + (##car _e101431101441_))) + (_tl101429101446_ (let () (declare (not safe)) - (##cdr _e101449101459_)))) - ((lambda (_L101467_) - (let* ((_clauses101478_ - (map _clause-e101442_ _L101467_)) - (__tmp103153 + (##cdr _e101431101441_)))) + ((lambda (_L101449_) + (let* ((_clauses101460_ + (map _clause-e101424_ _L101449_)) + (__tmp103135 (let () (declare (not safe)) (cons '%#case-lambda - _clauses101478_)))) + _clauses101460_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp103153 - _stx101440_))) - _tl101447101464_))) + __tmp103135 + _stx101422_))) + _tl101429101446_))) (let () (declare (not safe)) - (_g101444101454_ _g101445101457_)))))) + (_g101426101436_ _g101427101439_)))))) (declare (not safe)) - (_g101443101480_ _stx101440_))))) + (_g101425101462_ _stx101422_))))) (define gxc#xform-let-values% - (lambda (_self101225_ _stx101226_) - (let* ((_g101228101261_ - (lambda (_g101229101258_) + (lambda (_self101207_ _stx101208_) + (let* ((_g101210101243_ + (lambda (_g101211101240_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101229101258_)))) - (_g101227101436_ - (lambda (_g101229101264_) + _g101211101240_)))) + (_g101209101418_ + (lambda (_g101211101246_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101229101264_)) - (let ((_e101236101266_ + (gx#stx-pair? _g101211101246_)) + (let ((_e101218101248_ (let () (declare (not safe)) - (gx#stx-e _g101229101264_)))) - (let ((_hd101235101269_ + (gx#stx-e _g101211101246_)))) + (let ((_hd101217101251_ (let () (declare (not safe)) - (##car _e101236101266_))) - (_tl101234101271_ + (##car _e101218101248_))) + (_tl101216101253_ (let () (declare (not safe)) - (##cdr _e101236101266_)))) + (##cdr _e101218101248_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101234101271_)) - (let ((_e101239101274_ + (gx#stx-pair? _tl101216101253_)) + (let ((_e101221101256_ (let () (declare (not safe)) - (gx#stx-e _tl101234101271_)))) - (let ((_hd101238101277_ + (gx#stx-e _tl101216101253_)))) + (let ((_hd101220101259_ (let () (declare (not safe)) - (##car _e101239101274_))) - (_tl101237101279_ + (##car _e101221101256_))) + (_tl101219101261_ (let () (declare (not safe)) - (##cdr _e101239101274_)))) + (##cdr _e101221101256_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd101238101277_)) - (let ((_g103154_ + (gx#stx-pair/null? _hd101220101259_)) + (let ((_g103136_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd101238101277_ + _hd101220101259_ '0)))) (begin - (let ((_g103155_ + (let ((_g103137_ (let () (declare (not safe)) - (if (##values? _g103154_) + (if (##values? _g103136_) (##vector-length - _g103154_) + _g103136_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g103155_ 2))) + (##fx= _g103137_ 2))) (error "Context expects 2 values" - _g103155_))) - (let ((_target101240101282_ + _g103137_))) + (let ((_target101222101264_ (let () (declare (not safe)) - (##vector-ref _g103154_ 0))) - (_tl101242101284_ + (##vector-ref _g103136_ 0))) + (_tl101224101266_ (let () (declare (not safe)) (##vector-ref - _g103154_ + _g103136_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101242101284_)) - (letrec ((_loop101243101287_ - (lambda (_hd101241101290_ + _tl101224101266_)) + (letrec ((_loop101225101269_ + (lambda (_hd101223101272_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr101247101292_ - _hd101248101294_) + _expr101229101274_ + _hd101230101276_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd101241101290_)) - (let ((_e101244101297_ + (gx#stx-pair? _hd101223101272_)) + (let ((_e101226101279_ (let () (declare (not safe)) - (gx#stx-e _hd101241101290_)))) - (let ((_lp-hd101245101300_ + (gx#stx-e _hd101223101272_)))) + (let ((_lp-hd101227101282_ (let () (declare (not safe)) - (##car _e101244101297_))) - (_lp-tl101246101302_ + (##car _e101226101279_))) + (_lp-tl101228101284_ (let () (declare (not safe)) - (##cdr _e101244101297_)))) + (##cdr _e101226101279_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd101245101300_)) - (let ((_e101253101305_ + (gx#stx-pair? _lp-hd101227101282_)) + (let ((_e101235101287_ (let () (declare (not safe)) - (gx#stx-e _lp-hd101245101300_)))) - (let ((_hd101252101308_ + (gx#stx-e _lp-hd101227101282_)))) + (let ((_hd101234101290_ (let () (declare (not safe)) - (##car _e101253101305_))) - (_tl101251101310_ + (##car _e101235101287_))) + (_tl101233101292_ (let () (declare (not safe)) - (##cdr _e101253101305_)))) + (##cdr _e101235101287_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101251101310_)) - (let ((_e101256101313_ + (gx#stx-pair? _tl101233101292_)) + (let ((_e101238101295_ (let () (declare (not safe)) - (gx#stx-e _tl101251101310_)))) - (let ((_hd101255101316_ + (gx#stx-e _tl101233101292_)))) + (let ((_hd101237101298_ (let () (declare (not safe)) - (##car _e101256101313_))) - (_tl101254101318_ + (##car _e101238101295_))) + (_tl101236101300_ (let () (declare (not safe)) - (##cdr _e101256101313_)))) + (##cdr _e101238101295_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101254101318_)) - (let ((__tmp103168 + _tl101236101300_)) + (let ((__tmp103150 (let () (declare (not safe)) - (cons _hd101255101316_ - _expr101247101292_))) - (__tmp103167 + (cons _hd101237101298_ + _expr101229101274_))) + (__tmp103149 (let () (declare (not safe)) - (cons _hd101252101308_ - _hd101248101294_)))) + (cons _hd101234101290_ + _hd101230101276_)))) (declare (not safe)) - (_loop101243101287_ - _lp-tl101246101302_ - __tmp103168 - __tmp103167)) + (_loop101225101269_ + _lp-tl101228101284_ + __tmp103150 + __tmp103149)) (let () (declare (not safe)) - (_g101228101261_ - _g101229101264_))))) + (_g101210101243_ + _g101211101246_))))) (let () (declare (not safe)) - (_g101228101261_ _g101229101264_))))) + (_g101210101243_ _g101211101246_))))) (let () (declare (not safe)) - (_g101228101261_ _g101229101264_))))) - (let ((_expr101249101321_ (reverse _expr101247101292_)) - (_hd101250101323_ (reverse _hd101248101294_))) - ((lambda (_L101326_ _L101327_ _L101328_ _L101329_) - (let* ((_g101348101364_ - (lambda (_g101349101361_) + (_g101210101243_ _g101211101246_))))) + (let ((_expr101231101303_ (reverse _expr101229101274_)) + (_hd101232101305_ (reverse _hd101230101276_))) + ((lambda (_L101308_ _L101309_ _L101310_ _L101311_) + (let* ((_g101330101346_ + (lambda (_g101331101343_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101349101361_)))) - (_g101347101422_ - (lambda (_g101349101367_) + _g101331101343_)))) + (_g101329101404_ + (lambda (_g101331101349_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g101349101367_)) - (let ((_g103156_ + _g101331101349_)) + (let ((_g103138_ (let () (declare (not safe)) (gx#syntax-split-splice - _g101349101367_ + _g101331101349_ '0)))) (begin - (let ((_g103157_ + (let ((_g103139_ (let () (declare (not safe)) (if (##values? - _g103156_) + _g103138_) (##vector-length - _g103156_) + _g103138_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g103157_ + (##fx= _g103139_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g103157_))) - (let ((_target101351101369_ + _g103139_))) + (let ((_target101333101351_ (let () (declare (not safe)) (##vector-ref - _g103156_ + _g103138_ 0))) - (_tl101353101371_ + (_tl101335101353_ (let () (declare (not safe)) (##vector-ref - _g103156_ + _g103138_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101353101371_)) - (letrec ((_loop101354101374_ - (lambda (_hd101352101377_ + _tl101335101353_)) + (letrec ((_loop101336101356_ + (lambda (_hd101334101359_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr101358101379_) + _expr101340101361_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd101352101377_)) - (let ((_e101355101382_ + (gx#stx-pair? _hd101334101359_)) + (let ((_e101337101364_ (let () (declare (not safe)) - (gx#syntax-e _hd101352101377_)))) - (let ((_lp-hd101356101385_ + (gx#syntax-e _hd101334101359_)))) + (let ((_lp-hd101338101367_ (let () (declare (not safe)) - (##car _e101355101382_))) - (_lp-tl101357101387_ + (##car _e101337101364_))) + (_lp-tl101339101369_ (let () (declare (not safe)) - (##cdr _e101355101382_)))) - (let ((__tmp103164 + (##cdr _e101337101364_)))) + (let ((__tmp103146 (let () (declare (not safe)) - (cons _lp-hd101356101385_ - _expr101358101379_)))) + (cons _lp-hd101338101367_ + _expr101340101361_)))) (declare (not safe)) - (_loop101354101374_ - _lp-tl101357101387_ - __tmp103164)))) - (let ((_expr101359101390_ - (reverse _expr101358101379_))) - ((lambda (_L101393_) + (_loop101336101356_ + _lp-tl101339101369_ + __tmp103146)))) + (let ((_expr101341101372_ + (reverse _expr101340101361_))) + ((lambda (_L101375_) (let () - (let* ((_body101410_ - (map (lambda (_g101405101407_) + (let* ((_body101392_ + (map (lambda (_g101387101389_) (let () (declare (not safe)) (gxc#compile-e__1 - _self101225_ - _g101405101407_))) - _L101326_)) - (__tmp103158 - (let ((__tmp103159 - (let ((__tmp103160 + _self101207_ + _g101387101389_))) + _L101308_)) + (__tmp103140 + (let ((__tmp103141 + (let ((__tmp103142 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L101393_ - _L101328_)) - (let ((__tmp103161 + _L101375_ + _L101310_)) + (let ((__tmp103143 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g101411101415_ - _g101412101417_ - _g101413101419_) - (let ((__tmp103162 - (let ((__tmp103163 + (lambda (_g101393101397_ + _g101394101399_ + _g101395101401_) + (let ((__tmp103144 + (let ((__tmp103145 (let () (declare (not safe)) - (cons _g101411101415_ '())))) + (cons _g101393101397_ '())))) (declare (not safe)) - (cons _g101412101417_ __tmp103163)))) + (cons _g101394101399_ __tmp103145)))) (declare (not safe)) - (cons __tmp103162 _g101413101419_))))) + (cons __tmp103144 _g101395101401_))))) (declare (not safe)) - (foldr2 __tmp103161 '() _L101393_ _L101328_))))) + (foldr2 __tmp103143 '() _L101375_ _L101310_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103160 - _body101410_)))) + (cons __tmp103142 + _body101392_)))) (declare (not safe)) - (cons _L101329_ __tmp103159)))) + (cons _L101311_ __tmp103141)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp103158 - _stx101226_)))) - _expr101359101390_)))))) + __tmp103140 + _stx101208_)))) + _expr101341101372_)))))) (let () (declare (not safe)) - (_loop101354101374_ _target101351101369_ '()))) + (_loop101336101356_ _target101333101351_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g101348101364_ - _g101349101367_)))))) + (_g101330101346_ + _g101331101349_)))))) (let () (declare (not safe)) - (_g101348101364_ - _g101349101367_))))) - (__tmp103165 - (map (lambda (_g101424101426_) + (_g101330101346_ + _g101331101349_))))) + (__tmp103147 + (map (lambda (_g101406101408_) (let () (declare (not safe)) (gxc#compile-e__1 - _self101225_ - _g101424101426_))) - (let ((__tmp103166 - (lambda (_g101428101431_ - _g101429101433_) + _self101207_ + _g101406101408_))) + (let ((__tmp103148 + (lambda (_g101410101413_ + _g101411101415_) (let () (declare (not safe)) - (cons _g101428101431_ - _g101429101433_))))) + (cons _g101410101413_ + _g101411101415_))))) (declare (not safe)) - (foldr1 __tmp103166 + (foldr1 __tmp103148 '() - _L101327_))))) + _L101309_))))) (declare (not safe)) - (_g101347101422_ __tmp103165))) - _tl101237101279_ - _expr101249101321_ - _hd101250101323_ - _hd101235101269_)))))) + (_g101329101404_ __tmp103147))) + _tl101219101261_ + _expr101231101303_ + _hd101232101305_ + _hd101217101251_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop101243101287_ - _target101240101282_ + (_loop101225101269_ + _target101222101264_ '() '()))) (let () (declare (not safe)) - (_g101228101261_ - _g101229101264_)))))) + (_g101210101243_ + _g101211101246_)))))) (let () (declare (not safe)) - (_g101228101261_ _g101229101264_))))) + (_g101210101243_ _g101211101246_))))) (let () (declare (not safe)) - (_g101228101261_ _g101229101264_))))) + (_g101210101243_ _g101211101246_))))) (let () (declare (not safe)) - (_g101228101261_ _g101229101264_)))))) + (_g101210101243_ _g101211101246_)))))) (declare (not safe)) - (_g101227101436_ _stx101226_)))) + (_g101209101418_ _stx101208_)))) (define gxc#xform-operands - (lambda (_self101177_ _stx101178_) - (let* ((_g101180101191_ - (lambda (_g101181101188_) + (lambda (_self101159_ _stx101160_) + (let* ((_g101162101173_ + (lambda (_g101163101170_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101181101188_)))) - (_g101179101222_ - (lambda (_g101181101194_) + _g101163101170_)))) + (_g101161101204_ + (lambda (_g101163101176_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101181101194_)) - (let ((_e101186101196_ + (gx#stx-pair? _g101163101176_)) + (let ((_e101168101178_ (let () (declare (not safe)) - (gx#stx-e _g101181101194_)))) - (let ((_hd101185101199_ + (gx#stx-e _g101163101176_)))) + (let ((_hd101167101181_ (let () (declare (not safe)) - (##car _e101186101196_))) - (_tl101184101201_ + (##car _e101168101178_))) + (_tl101166101183_ (let () (declare (not safe)) - (##cdr _e101186101196_)))) - ((lambda (_L101204_ _L101205_) - (let* ((_rands101220_ - (map (lambda (_g101215101217_) + (##cdr _e101168101178_)))) + ((lambda (_L101186_ _L101187_) + (let* ((_rands101202_ + (map (lambda (_g101197101199_) (let () (declare (not safe)) (gxc#compile-e__1 - _self101177_ - _g101215101217_))) - _L101204_)) - (__tmp103169 + _self101159_ + _g101197101199_))) + _L101186_)) + (__tmp103151 (let () (declare (not safe)) - (cons _L101205_ _rands101220_)))) + (cons _L101187_ _rands101202_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp103169 - _stx101178_))) - _tl101184101201_ - _hd101185101199_))) + __tmp103151 + _stx101160_))) + _tl101166101183_ + _hd101167101181_))) (let () (declare (not safe)) - (_g101180101191_ _g101181101194_)))))) + (_g101162101173_ _g101163101176_)))))) (declare (not safe)) - (_g101179101222_ _stx101178_)))) + (_g101161101204_ _stx101160_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_self101107_ _stx101108_) - (let* ((_g101110101127_ - (lambda (_g101111101124_) + (lambda (_self101089_ _stx101090_) + (let* ((_g101092101109_ + (lambda (_g101093101106_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101111101124_)))) - (_g101109101174_ - (lambda (_g101111101130_) + _g101093101106_)))) + (_g101091101156_ + (lambda (_g101093101112_) (if (let () (declare (not safe)) - (gx#stx-pair? _g101111101130_)) - (let ((_e101116101132_ + (gx#stx-pair? _g101093101112_)) + (let ((_e101098101114_ (let () (declare (not safe)) - (gx#stx-e _g101111101130_)))) - (let ((_hd101115101135_ + (gx#stx-e _g101093101112_)))) + (let ((_hd101097101117_ (let () (declare (not safe)) - (##car _e101116101132_))) - (_tl101114101137_ + (##car _e101098101114_))) + (_tl101096101119_ (let () (declare (not safe)) - (##cdr _e101116101132_)))) + (##cdr _e101098101114_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101114101137_)) - (let ((_e101119101140_ + (gx#stx-pair? _tl101096101119_)) + (let ((_e101101101122_ (let () (declare (not safe)) - (gx#stx-e _tl101114101137_)))) - (let ((_hd101118101143_ + (gx#stx-e _tl101096101119_)))) + (let ((_hd101100101125_ (let () (declare (not safe)) - (##car _e101119101140_))) - (_tl101117101145_ + (##car _e101101101122_))) + (_tl101099101127_ (let () (declare (not safe)) - (##cdr _e101119101140_)))) + (##cdr _e101101101122_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl101117101145_)) - (let ((_e101122101148_ + (gx#stx-pair? _tl101099101127_)) + (let ((_e101104101130_ (let () (declare (not safe)) - (gx#stx-e _tl101117101145_)))) - (let ((_hd101121101151_ + (gx#stx-e _tl101099101127_)))) + (let ((_hd101103101133_ (let () (declare (not safe)) - (##car _e101122101148_))) - (_tl101120101153_ + (##car _e101104101130_))) + (_tl101102101135_ (let () (declare (not safe)) - (##cdr _e101122101148_)))) + (##cdr _e101104101130_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl101120101153_)) - ((lambda (_L101156_ _L101157_) - (let* ((_expr101172_ + _tl101102101135_)) + ((lambda (_L101138_ _L101139_) + (let* ((_expr101154_ (let () (declare (not safe)) (gxc#compile-e__1 - _self101107_ - _L101156_))) - (__tmp103170 - (let ((__tmp103171 - (let ((__tmp103172 + _self101089_ + _L101138_))) + (__tmp103152 + (let ((__tmp103153 + (let ((__tmp103154 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr101172_ '())))) + (cons _expr101154_ '())))) (declare (not safe)) - (cons _L101157_ __tmp103172)))) + (cons _L101139_ __tmp103154)))) (declare (not safe)) - (cons '%#set! __tmp103171)))) + (cons '%#set! __tmp103153)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp103170 - _stx101108_))) - _hd101121101151_ - _hd101118101143_) + __tmp103152 + _stx101090_))) + _hd101103101133_ + _hd101100101125_) (let () (declare (not safe)) - (_g101110101127_ - _g101111101130_))))) + (_g101092101109_ + _g101093101112_))))) (let () (declare (not safe)) - (_g101110101127_ _g101111101130_))))) + (_g101092101109_ _g101093101112_))))) (let () (declare (not safe)) - (_g101110101127_ _g101111101130_))))) + (_g101092101109_ _g101093101112_))))) (let () (declare (not safe)) - (_g101110101127_ _g101111101130_)))))) + (_g101092101109_ _g101093101112_)))))) (declare (not safe)) - (_g101109101174_ _stx101108_)))))) + (_g101091101156_ _stx101090_)))))) diff --git a/src/bootstrap/gerbil/compiler/method~1.scm b/src/bootstrap/gerbil/compiler/method~1.scm index 49a72d82c..aeb5496a0 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]#_g103374_| + (define |gxc[1]#_g103356_| (##structure gx#syntax-quote::t '::void-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103376_| + (define |gxc[1]#_g103358_| (##structure gx#syntax-quote::t 'make-::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103378_| + (define |gxc[1]#_g103360_| (##structure gx#syntax-quote::t '::void-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103380_| + (define |gxc[1]#_g103362_| (##structure gx#syntax-quote::t '::void-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103382_| + (define |gxc[1]#_g103364_| (##structure gx#syntax-quote::t 'make-::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103384_| + (define |gxc[1]#_g103366_| (##structure gx#syntax-quote::t '::void-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103388_| + (define |gxc[1]#_g103370_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103390_| + (define |gxc[1]#_g103372_| (##structure gx#syntax-quote::t '::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103392_| + (define |gxc[1]#_g103374_| (##structure gx#syntax-quote::t '::void::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103394_| + (define |gxc[1]#_g103376_| (##structure gx#syntax-quote::t 'make-::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103396_| + (define |gxc[1]#_g103378_| (##structure gx#syntax-quote::t '::void? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103398_| + (define |gxc[1]#_g103380_| (##structure gx#syntax-quote::t '::false-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103400_| + (define |gxc[1]#_g103382_| (##structure gx#syntax-quote::t 'make-::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103402_| + (define |gxc[1]#_g103384_| (##structure gx#syntax-quote::t '::false-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103404_| + (define |gxc[1]#_g103386_| (##structure gx#syntax-quote::t '::false-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103406_| + (define |gxc[1]#_g103388_| (##structure gx#syntax-quote::t 'make-::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103408_| + (define |gxc[1]#_g103390_| (##structure gx#syntax-quote::t '::false-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103412_| + (define |gxc[1]#_g103394_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103414_| + (define |gxc[1]#_g103396_| (##structure gx#syntax-quote::t '::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103416_| + (define |gxc[1]#_g103398_| (##structure gx#syntax-quote::t '::false::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103418_| + (define |gxc[1]#_g103400_| (##structure gx#syntax-quote::t 'make-::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103420_| + (define |gxc[1]#_g103402_| (##structure gx#syntax-quote::t '::false? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103422_| + (define |gxc[1]#_g103404_| (##structure gx#syntax-quote::t '::identity-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103424_| + (define |gxc[1]#_g103406_| (##structure gx#syntax-quote::t 'make-::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103426_| + (define |gxc[1]#_g103408_| (##structure gx#syntax-quote::t '::identity-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103428_| + (define |gxc[1]#_g103410_| (##structure gx#syntax-quote::t '::identity-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103430_| + (define |gxc[1]#_g103412_| (##structure gx#syntax-quote::t 'make-::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103432_| + (define |gxc[1]#_g103414_| (##structure gx#syntax-quote::t '::identity-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103436_| + (define |gxc[1]#_g103418_| (##structure gx#syntax-quote::t '::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103438_| + (define |gxc[1]#_g103420_| (##structure gx#syntax-quote::t '::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103440_| + (define |gxc[1]#_g103422_| (##structure gx#syntax-quote::t '::identity::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103442_| + (define |gxc[1]#_g103424_| (##structure gx#syntax-quote::t 'make-::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103444_| + (define |gxc[1]#_g103426_| (##structure gx#syntax-quote::t '::identity? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103446_| + (define |gxc[1]#_g103428_| (##structure gx#syntax-quote::t '::basic-xform-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103448_| + (define |gxc[1]#_g103430_| (##structure gx#syntax-quote::t 'make-::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103450_| + (define |gxc[1]#_g103432_| (##structure gx#syntax-quote::t '::basic-xform-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103454_| + (define |gxc[1]#_g103436_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103456_| + (define |gxc[1]#_g103438_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103458_| + (define |gxc[1]#_g103440_| (##structure gx#syntax-quote::t '::basic-xform::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103460_| + (define |gxc[1]#_g103442_| (##structure gx#syntax-quote::t 'make-::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g103462_| + (define |gxc[1]#_g103444_| (##structure gx#syntax-quote::t '::basic-xform? @@ -289,2697 +289,2697 @@ '())) (begin (define |gxc[:0:]#defcompile-method| - (lambda (_stx99649_) - (let* ((___stx102931102932_ _stx99649_) - (_g9965599849_ + (lambda (_stx99631_) + (let* ((___stx102913102914_ _stx99631_) + (_g9963799831_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx102931102932_))))) - (let ((___kont102934102935_ - (lambda (_L101069_ _L101071_ _L101072_ _L101073_) - (let ((__tmp103177 + ___stx102913102914_))))) + (let ((___kont102916102917_ + (lambda (_L101051_ _L101053_ _L101054_ _L101055_) + (let ((__tmp103159 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defcompile-method))) - (__tmp103173 - (let ((__tmp103174 - (let ((__tmp103176 + (__tmp103155 + (let ((__tmp103156 + (let ((__tmp103158 (let () (declare (not safe)) - (cons _L101072_ '()))) - (__tmp103175 + (cons _L101054_ '()))) + (__tmp103157 (let () (declare (not safe)) - (cons _L101071_ _L101069_)))) + (cons _L101053_ _L101051_)))) (declare (not safe)) - (cons __tmp103176 __tmp103175)))) + (cons __tmp103158 __tmp103157)))) (declare (not safe)) - (cons _L101073_ __tmp103174)))) + (cons _L101055_ __tmp103156)))) (declare (not safe)) - (cons __tmp103177 __tmp103173)))) - (___kont102936102937_ - (lambda (_L100823_ _L100825_ _L100826_ _L100827_ _L100828_) - (let* ((_g100859100887_ - (lambda (_g100860100883_) + (cons __tmp103159 __tmp103155)))) + (___kont102918102919_ + (lambda (_L100805_ _L100807_ _L100808_ _L100809_ _L100810_) + (let* ((_g100841100869_ + (lambda (_g100842100865_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100860100883_)))) - (_g100858101007_ - (lambda (_g100860100891_) + _g100842100865_)))) + (_g100840100989_ + (lambda (_g100842100873_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100860100891_)) - (let ((_e100866100894_ + (gx#stx-pair? _g100842100873_)) + (let ((_e100848100876_ (let () (declare (not safe)) - (gx#syntax-e _g100860100891_)))) - (let ((_hd100865100898_ + (gx#syntax-e _g100842100873_)))) + (let ((_hd100847100880_ (let () (declare (not safe)) - (##car _e100866100894_))) - (_tl100864100901_ + (##car _e100848100876_))) + (_tl100846100883_ (let () (declare (not safe)) - (##cdr _e100866100894_)))) + (##cdr _e100848100876_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100864100901_)) - (let ((_e100869100904_ + (gx#stx-pair? _tl100846100883_)) + (let ((_e100851100886_ (let () (declare (not safe)) (gx#syntax-e - _tl100864100901_)))) - (let ((_hd100868100908_ + _tl100846100883_)))) + (let ((_hd100850100890_ (let () (declare (not safe)) - (##car _e100869100904_))) - (_tl100867100911_ + (##car _e100851100886_))) + (_tl100849100893_ (let () (declare (not safe)) - (##cdr _e100869100904_)))) + (##cdr _e100851100886_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd100868100908_)) - (let ((_g103178_ + _hd100850100890_)) + (let ((_g103160_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd100868100908_ + _hd100850100890_ '0)))) (begin - (let ((_g103179_ + (let ((_g103161_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g103178_) - (##vector-length _g103178_) + _g103160_) + (##vector-length _g103160_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g103179_ 2))) - (error "Context expects 2 values" _g103179_))) + (if (not (let () (declare (not safe)) (##fx= _g103161_ 2))) + (error "Context expects 2 values" _g103161_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target100870100914_ + (let ((_target100852100896_ (let () (declare (not safe)) (##vector-ref - _g103178_ + _g103160_ 0))) - (_tl100872100917_ + (_tl100854100899_ (let () (declare (not safe)) (##vector-ref - _g103178_ + _g103160_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100872100917_)) - (letrec ((_loop100873100920_ + _tl100854100899_)) + (letrec ((_loop100855100902_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd100871100924_ - _super-bind-methods!100877100927_) + (lambda (_hd100853100906_ + _super-bind-methods!100859100909_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd100871100924_)) - (let ((_e100874100930_ + (gx#stx-pair? _hd100853100906_)) + (let ((_e100856100912_ (let () (declare (not safe)) - (gx#syntax-e _hd100871100924_)))) - (let ((_lp-hd100875100934_ + (gx#syntax-e _hd100853100906_)))) + (let ((_lp-hd100857100916_ (let () (declare (not safe)) - (##car _e100874100930_))) - (_lp-tl100876100937_ + (##car _e100856100912_))) + (_lp-tl100858100919_ (let () (declare (not safe)) - (##cdr _e100874100930_)))) - (_loop100873100920_ - _lp-tl100876100937_ + (##cdr _e100856100912_)))) + (_loop100855100902_ + _lp-tl100858100919_ (let () (declare (not safe)) - (cons _lp-hd100875100934_ - _super-bind-methods!100877100927_))))) - (let ((_super-bind-methods!100878100940_ - (reverse _super-bind-methods!100877100927_))) + (cons _lp-hd100857100916_ + _super-bind-methods!100859100909_))))) + (let ((_super-bind-methods!100860100922_ + (reverse _super-bind-methods!100859100909_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100867100911_)) - (let ((_e100881100944_ + (gx#stx-pair? _tl100849100893_)) + (let ((_e100863100926_ (let () (declare (not safe)) (gx#syntax-e - _tl100867100911_)))) - (let ((_hd100880100948_ + _tl100849100893_)))) + (let ((_hd100862100930_ (let () (declare (not safe)) - (##car _e100881100944_))) - (_tl100879100951_ + (##car _e100863100926_))) + (_tl100861100933_ (let () (declare (not safe)) - (##cdr _e100881100944_)))) + (##cdr _e100863100926_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100879100951_)) - ((lambda (_L100954_ - _L100956_ - _L100957_) + _tl100861100933_)) + ((lambda (_L100936_ + _L100938_ + _L100939_) (let () - (let ((__tmp103213 + (let ((__tmp103195 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp103180 - (let ((__tmp103206 - (let ((__tmp103212 + (__tmp103162 + (let ((__tmp103188 + (let ((__tmp103194 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass))) - (__tmp103207 - (let ((__tmp103209 - (let ((__tmp103210 - (let ((__tmp103211 - (lambda (_g100984100987_ + (__tmp103189 + (let ((__tmp103191 + (let ((__tmp103192 + (let ((__tmp103193 + (lambda (_g100966100969_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g100985100990_) + _g100967100972_) (let () (declare (not safe)) - (cons _g100984100987_ _g100985100990_))))) + (cons _g100966100969_ _g100967100972_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp103211 + (foldr1 __tmp103193 '() - _L100827_)))) + _L100809_)))) (declare (not safe)) - (cons _L100828_ __tmp103210))) - (__tmp103208 + (cons _L100810_ __tmp103192))) + (__tmp103190 (let () (declare (not safe)) - (cons _L100826_ '())))) + (cons _L100808_ '())))) (declare (not safe)) - (cons __tmp103209 __tmp103208)))) + (cons __tmp103191 __tmp103190)))) (declare (not safe)) - (cons __tmp103212 __tmp103207))) - (__tmp103181 - (let ((__tmp103182 - (let ((__tmp103205 + (cons __tmp103194 __tmp103189))) + (__tmp103163 + (let ((__tmp103164 + (let ((__tmp103187 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp103183 - (let ((__tmp103184 - (let ((__tmp103185 - (let ((__tmp103204 + (__tmp103165 + (let ((__tmp103166 + (let ((__tmp103167 + (let ((__tmp103186 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'delay))) - (__tmp103186 - (let ((__tmp103187 - (let ((__tmp103203 + (__tmp103168 + (let ((__tmp103169 + (let ((__tmp103185 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp103188 - (let ((__tmp103199 - (lambda (_g100979100993_ - _g100980100996_) - (let ((__tmp103200 - (let ((__tmp103202 + (__tmp103170 + (let ((__tmp103181 + (lambda (_g100961100975_ + _g100962100978_) + (let ((__tmp103182 + (let ((__tmp103184 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp103201 + (__tmp103183 (let () (declare (not safe)) - (cons _g100979100993_ + (cons _g100961100975_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp103202 __tmp103201)))) + (cons __tmp103184 __tmp103183)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103200 - _g100980100996_)))) - (__tmp103189 + (cons __tmp103182 + _g100962100978_)))) + (__tmp103171 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L100823_ - _L100825_)) - (let ((__tmp103190 - (lambda (_g100981100999_ - _g100982101002_ - _g100983101004_) - (let ((__tmp103191 - (let ((__tmp103198 + _L100805_ + _L100807_)) + (let ((__tmp103172 + (lambda (_g100963100981_ + _g100964100984_ + _g100965100986_) + (let ((__tmp103173 + (let ((__tmp103180 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!))) - (__tmp103192 - (let ((__tmp103193 - (let ((__tmp103195 - (let ((__tmp103197 + (__tmp103174 + (let ((__tmp103175 + (let ((__tmp103177 + (let ((__tmp103179 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp103196 + (__tmp103178 (let () (declare (not safe)) - (cons _g100982101002_ + (cons _g100964100984_ '())))) (declare (not safe)) - (cons __tmp103197 __tmp103196))) - (__tmp103194 + (cons __tmp103179 __tmp103178))) + (__tmp103176 (let () (declare (not safe)) - (cons _g100981100999_ '())))) + (cons _g100963100981_ '())))) (declare (not safe)) - (cons __tmp103195 __tmp103194)))) + (cons __tmp103177 __tmp103176)))) (declare (not safe)) - (cons _L100954_ __tmp103193)))) + (cons _L100936_ __tmp103175)))) (declare (not safe)) - (cons __tmp103198 __tmp103192)))) + (cons __tmp103180 __tmp103174)))) (declare (not safe)) - (cons __tmp103191 _g100983101004_))))) + (cons __tmp103173 _g100965100986_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp103190 + (foldr2 __tmp103172 '() - _L100823_ - _L100825_))))) + _L100805_ + _L100807_))))) (declare (not safe)) - (foldr1 __tmp103199 - __tmp103189 - _L100956_)))) + (foldr1 __tmp103181 + __tmp103171 + _L100938_)))) (declare (not safe)) - (cons __tmp103203 __tmp103188)))) + (cons __tmp103185 __tmp103170)))) (declare (not safe)) - (cons __tmp103187 '())))) + (cons __tmp103169 '())))) (declare (not safe)) - (cons __tmp103204 __tmp103186)))) + (cons __tmp103186 __tmp103168)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103185 '())))) + (cons __tmp103167 '())))) (declare (not safe)) - (cons _L100957_ __tmp103184)))) + (cons _L100939_ __tmp103166)))) (declare (not safe)) - (cons __tmp103205 __tmp103183)))) + (cons __tmp103187 __tmp103165)))) (declare (not safe)) - (cons __tmp103182 '())))) + (cons __tmp103164 '())))) (declare (not safe)) - (cons __tmp103206 __tmp103181)))) + (cons __tmp103188 __tmp103163)))) (declare (not safe)) - (cons __tmp103213 __tmp103180)))) + (cons __tmp103195 __tmp103162)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd100880100948_ - _super-bind-methods!100878100940_ - _hd100865100898_) - (_g100859100887_ - _g100860100891_)))) - (_g100859100887_ - _g100860100891_))))))) - (_loop100873100920_ _target100870100914_ '())) - (_g100859100887_ _g100860100891_))))) + _hd100862100930_ + _super-bind-methods!100860100922_ + _hd100847100880_) + (_g100841100869_ + _g100842100873_)))) + (_g100841100869_ + _g100842100873_))))))) + (_loop100855100902_ _target100852100896_ '())) + (_g100841100869_ _g100842100873_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g100859100887_ - _g100860100891_)))) - (_g100859100887_ _g100860100891_)))) - (_g100859100887_ _g100860100891_))))) - (_g100858101007_ + (_g100841100869_ + _g100842100873_)))) + (_g100841100869_ _g100842100873_)))) + (_g100841100869_ _g100842100873_))))) + (_g100840100989_ (list (let () (declare (not safe)) (gx#stx-identifier - _L100828_ - _L100828_ + _L100810_ + _L100810_ '"-bind-methods!")) - (map (lambda (_super101011_) + (map (lambda (_super100993_) (let () (declare (not safe)) (gx#stx-identifier - _super101011_ - _super101011_ + _super100993_ + _super100993_ '"-bind-methods!"))) - (let ((__tmp103214 - (lambda (_g101013101016_ - _g101014101019_) + (let ((__tmp103196 + (lambda (_g100995100998_ + _g100996101001_) (let () (declare (not safe)) - (cons _g101013101016_ - _g101014101019_))))) + (cons _g100995100998_ + _g100996101001_))))) (declare (not safe)) - (foldr1 __tmp103214 '() _L100827_))) + (foldr1 __tmp103196 '() _L100809_))) (let () (declare (not safe)) (gx#stx-identifier - _L100828_ - _L100828_ + _L100810_ + _L100810_ '"::t"))))))) - (___kont102942102943_ - (lambda (_L100454_ - _L100456_ - _L100457_ - _L100458_ - _L100459_ - _L100460_ - _L100461_) - (let* ((_g100499100527_ - (lambda (_g100500100523_) + (___kont102924102925_ + (lambda (_L100436_ + _L100438_ + _L100439_ + _L100440_ + _L100441_ + _L100442_ + _L100443_) + (let* ((_g100481100509_ + (lambda (_g100482100505_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100500100523_)))) - (_g100498100663_ - (lambda (_g100500100531_) + _g100482100505_)))) + (_g100480100645_ + (lambda (_g100482100513_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100500100531_)) - (let ((_e100506100534_ + (gx#stx-pair? _g100482100513_)) + (let ((_e100488100516_ (let () (declare (not safe)) - (gx#syntax-e _g100500100531_)))) - (let ((_hd100505100538_ + (gx#syntax-e _g100482100513_)))) + (let ((_hd100487100520_ (let () (declare (not safe)) - (##car _e100506100534_))) - (_tl100504100541_ + (##car _e100488100516_))) + (_tl100486100523_ (let () (declare (not safe)) - (##cdr _e100506100534_)))) + (##cdr _e100488100516_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100504100541_)) - (let ((_e100509100544_ + (gx#stx-pair? _tl100486100523_)) + (let ((_e100491100526_ (let () (declare (not safe)) (gx#syntax-e - _tl100504100541_)))) - (let ((_hd100508100548_ + _tl100486100523_)))) + (let ((_hd100490100530_ (let () (declare (not safe)) - (##car _e100509100544_))) - (_tl100507100551_ + (##car _e100491100526_))) + (_tl100489100533_ (let () (declare (not safe)) - (##cdr _e100509100544_)))) + (##cdr _e100491100526_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd100508100548_)) - (let ((_g103215_ + _hd100490100530_)) + (let ((_g103197_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd100508100548_ + _hd100490100530_ '0)))) (begin - (let ((_g103216_ + (let ((_g103198_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g103215_) - (##vector-length _g103215_) + _g103197_) + (##vector-length _g103197_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g103216_ 2))) - (error "Context expects 2 values" _g103216_))) + (if (not (let () (declare (not safe)) (##fx= _g103198_ 2))) + (error "Context expects 2 values" _g103198_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target100510100554_ + (let ((_target100492100536_ (let () (declare (not safe)) (##vector-ref - _g103215_ + _g103197_ 0))) - (_tl100512100557_ + (_tl100494100539_ (let () (declare (not safe)) (##vector-ref - _g103215_ + _g103197_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100512100557_)) - (letrec ((_loop100513100560_ + _tl100494100539_)) + (letrec ((_loop100495100542_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd100511100564_ - _super-bind-methods!100517100567_) + (lambda (_hd100493100546_ + _super-bind-methods!100499100549_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd100511100564_)) - (let ((_e100514100570_ + (gx#stx-pair? _hd100493100546_)) + (let ((_e100496100552_ (let () (declare (not safe)) - (gx#syntax-e _hd100511100564_)))) - (let ((_lp-hd100515100574_ + (gx#syntax-e _hd100493100546_)))) + (let ((_lp-hd100497100556_ (let () (declare (not safe)) - (##car _e100514100570_))) - (_lp-tl100516100577_ + (##car _e100496100552_))) + (_lp-tl100498100559_ (let () (declare (not safe)) - (##cdr _e100514100570_)))) - (_loop100513100560_ - _lp-tl100516100577_ + (##cdr _e100496100552_)))) + (_loop100495100542_ + _lp-tl100498100559_ (let () (declare (not safe)) - (cons _lp-hd100515100574_ - _super-bind-methods!100517100567_))))) - (let ((_super-bind-methods!100518100580_ - (reverse _super-bind-methods!100517100567_))) + (cons _lp-hd100497100556_ + _super-bind-methods!100499100549_))))) + (let ((_super-bind-methods!100500100562_ + (reverse _super-bind-methods!100499100549_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100507100551_)) - (let ((_e100521100584_ + (gx#stx-pair? _tl100489100533_)) + (let ((_e100503100566_ (let () (declare (not safe)) (gx#syntax-e - _tl100507100551_)))) - (let ((_hd100520100588_ + _tl100489100533_)))) + (let ((_hd100502100570_ (let () (declare (not safe)) - (##car _e100521100584_))) - (_tl100519100591_ + (##car _e100503100566_))) + (_tl100501100573_ (let () (declare (not safe)) - (##cdr _e100521100584_)))) + (##cdr _e100503100566_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100519100591_)) - ((lambda (_L100594_ - _L100596_ - _L100597_) + _tl100501100573_)) + ((lambda (_L100576_ + _L100578_ + _L100579_) (let () - (let ((__tmp103289 + (let ((__tmp103271 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp103217 - (let ((__tmp103282 - (let ((__tmp103288 + (__tmp103199 + (let ((__tmp103264 + (let ((__tmp103270 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass))) - (__tmp103283 - (let ((__tmp103285 - (let ((__tmp103286 - (let ((__tmp103287 - (lambda (_g100628100631_ + (__tmp103265 + (let ((__tmp103267 + (let ((__tmp103268 + (let ((__tmp103269 + (lambda (_g100610100613_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g100629100634_) + _g100611100616_) (let () (declare (not safe)) - (cons _g100628100631_ _g100629100634_))))) + (cons _g100610100613_ _g100611100616_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp103287 + (foldr1 __tmp103269 '() - _L100458_)))) + _L100440_)))) (declare (not safe)) - (cons _L100459_ __tmp103286))) - (__tmp103284 + (cons _L100441_ __tmp103268))) + (__tmp103266 (let () (declare (not safe)) - (cons _L100457_ '())))) + (cons _L100439_ '())))) (declare (not safe)) - (cons __tmp103285 __tmp103284)))) + (cons __tmp103267 __tmp103266)))) (declare (not safe)) - (cons __tmp103288 __tmp103283))) - (__tmp103218 - (let ((__tmp103258 - (let ((__tmp103281 + (cons __tmp103270 __tmp103265))) + (__tmp103200 + (let ((__tmp103240 + (let ((__tmp103263 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp103259 - (let ((__tmp103260 - (let ((__tmp103261 - (let ((__tmp103280 + (__tmp103241 + (let ((__tmp103242 + (let ((__tmp103243 + (let ((__tmp103262 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'delay))) - (__tmp103262 - (let ((__tmp103263 - (let ((__tmp103279 + (__tmp103244 + (let ((__tmp103245 + (let ((__tmp103261 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp103264 - (let ((__tmp103275 - (lambda (_g100623100637_ - _g100624100640_) - (let ((__tmp103276 - (let ((__tmp103278 + (__tmp103246 + (let ((__tmp103257 + (lambda (_g100605100619_ + _g100606100622_) + (let ((__tmp103258 + (let ((__tmp103260 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp103277 + (__tmp103259 (let () (declare (not safe)) - (cons _g100623100637_ + (cons _g100605100619_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp103278 __tmp103277)))) + (cons __tmp103260 __tmp103259)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103276 - _g100624100640_)))) - (__tmp103265 + (cons __tmp103258 + _g100606100622_)))) + (__tmp103247 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L100454_ - _L100456_)) - (let ((__tmp103266 - (lambda (_g100625100643_ - _g100626100646_ - _g100627100648_) - (let ((__tmp103267 - (let ((__tmp103274 + _L100436_ + _L100438_)) + (let ((__tmp103248 + (lambda (_g100607100625_ + _g100608100628_ + _g100609100630_) + (let ((__tmp103249 + (let ((__tmp103256 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!))) - (__tmp103268 - (let ((__tmp103269 - (let ((__tmp103271 - (let ((__tmp103273 + (__tmp103250 + (let ((__tmp103251 + (let ((__tmp103253 + (let ((__tmp103255 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp103272 + (__tmp103254 (let () (declare (not safe)) - (cons _g100626100646_ + (cons _g100608100628_ '())))) (declare (not safe)) - (cons __tmp103273 __tmp103272))) - (__tmp103270 + (cons __tmp103255 __tmp103254))) + (__tmp103252 (let () (declare (not safe)) - (cons _g100625100643_ '())))) + (cons _g100607100625_ '())))) (declare (not safe)) - (cons __tmp103271 __tmp103270)))) + (cons __tmp103253 __tmp103252)))) (declare (not safe)) - (cons _L100594_ __tmp103269)))) + (cons _L100576_ __tmp103251)))) (declare (not safe)) - (cons __tmp103274 __tmp103268)))) + (cons __tmp103256 __tmp103250)))) (declare (not safe)) - (cons __tmp103267 _g100627100648_))))) + (cons __tmp103249 _g100609100630_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp103266 + (foldr2 __tmp103248 '() - _L100454_ - _L100456_))))) + _L100436_ + _L100438_))))) (declare (not safe)) - (foldr1 __tmp103275 - __tmp103265 - _L100596_)))) + (foldr1 __tmp103257 + __tmp103247 + _L100578_)))) (declare (not safe)) - (cons __tmp103279 __tmp103264)))) + (cons __tmp103261 __tmp103246)))) (declare (not safe)) - (cons __tmp103263 '())))) + (cons __tmp103245 '())))) (declare (not safe)) - (cons __tmp103280 __tmp103262)))) + (cons __tmp103262 __tmp103244)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103261 '())))) + (cons __tmp103243 '())))) (declare (not safe)) - (cons _L100597_ __tmp103260)))) + (cons _L100579_ __tmp103242)))) (declare (not safe)) - (cons __tmp103281 __tmp103259))) - (__tmp103219 - (let ((__tmp103220 - (let ((__tmp103257 + (cons __tmp103263 __tmp103241))) + (__tmp103201 + (let ((__tmp103202 + (let ((__tmp103239 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp103221 - (let ((__tmp103252 - (let ((__tmp103253 - (let ((__tmp103256 + (__tmp103203 + (let ((__tmp103234 + (let ((__tmp103235 + (let ((__tmp103238 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp103254 - (let ((__tmp103255 - (lambda (_g100621100651_ _g100622100654_) + (__tmp103236 + (let ((__tmp103237 + (lambda (_g100603100633_ _g100604100636_) (let () (declare (not safe)) - (cons _g100621100651_ - _g100622100654_))))) + (cons _g100603100633_ + _g100604100636_))))) (declare (not safe)) - (foldr1 __tmp103255 '() _L100460_)))) + (foldr1 __tmp103237 '() _L100442_)))) (declare (not safe)) - (cons __tmp103256 __tmp103254)))) + (cons __tmp103238 __tmp103236)))) (declare (not safe)) - (cons _L100461_ __tmp103253))) - (__tmp103222 - (let ((__tmp103249 - (let ((__tmp103251 + (cons _L100443_ __tmp103235))) + (__tmp103204 + (let ((__tmp103231 + (let ((__tmp103233 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp103250 + (__tmp103232 (let () (declare (not safe)) - (cons _L100597_ '())))) + (cons _L100579_ '())))) (declare (not safe)) - (cons __tmp103251 __tmp103250))) - (__tmp103223 - (let ((__tmp103224 - (let ((__tmp103248 + (cons __tmp103233 __tmp103232))) + (__tmp103205 + (let ((__tmp103206 + (let ((__tmp103230 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp103225 - (let ((__tmp103242 - (let ((__tmp103247 + (__tmp103207 + (let ((__tmp103224 + (let ((__tmp103229 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self))) - (__tmp103243 - (let ((__tmp103244 - (let ((__tmp103245 + (__tmp103225 + (let ((__tmp103226 + (let ((__tmp103227 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp103246 - (lambda (_g100619100657_ _g100620100660_) + (let ((__tmp103228 + (lambda (_g100601100639_ _g100602100642_) (let () (declare (not safe)) - (cons _g100619100657_ _g100620100660_))))) + (cons _g100601100639_ _g100602100642_))))) (declare (not safe)) - (foldr1 __tmp103246 '() _L100460_)))) + (foldr1 __tmp103228 '() _L100442_)))) (declare (not safe)) - (cons _L100459_ __tmp103245)))) + (cons _L100441_ __tmp103227)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103244 '())))) + (cons __tmp103226 '())))) (declare (not safe)) - (cons __tmp103247 __tmp103243))) - (__tmp103226 - (let ((__tmp103227 - (let ((__tmp103241 + (cons __tmp103229 __tmp103225))) + (__tmp103208 + (let ((__tmp103209 + (let ((__tmp103223 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'parameterize))) - (__tmp103228 - (let ((__tmp103236 + (__tmp103210 + (let ((__tmp103218 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp103237 - (let ((__tmp103240 + (let ((__tmp103219 + (let ((__tmp103222 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'current-compile-method))) - (__tmp103238 - (let ((__tmp103239 + (__tmp103220 + (let ((__tmp103221 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)))) (declare (not safe)) - (cons __tmp103239 '())))) + (cons __tmp103221 '())))) (declare (not safe)) - (cons __tmp103240 __tmp103238)))) + (cons __tmp103222 __tmp103220)))) (declare (not safe)) - (cons __tmp103237 '()))) - (__tmp103229 - (let ((__tmp103230 - (let ((__tmp103235 + (cons __tmp103219 '()))) + (__tmp103211 + (let ((__tmp103212 + (let ((__tmp103217 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp103231 - (let ((__tmp103234 + (__tmp103213 + (let ((__tmp103216 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self))) - (__tmp103232 - (let ((__tmp103233 + (__tmp103214 + (let ((__tmp103215 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)))) (declare (not safe)) - (cons __tmp103233 '())))) + (cons __tmp103215 '())))) (declare (not safe)) - (cons __tmp103234 __tmp103232)))) + (cons __tmp103216 __tmp103214)))) (declare (not safe)) - (cons __tmp103235 __tmp103231)))) + (cons __tmp103217 __tmp103213)))) (declare (not safe)) - (cons __tmp103230 '())))) + (cons __tmp103212 '())))) (declare (not safe)) - (cons __tmp103236 __tmp103229)))) + (cons __tmp103218 __tmp103211)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103241 - __tmp103228)))) + (cons __tmp103223 + __tmp103210)))) (declare (not safe)) - (cons __tmp103227 '())))) + (cons __tmp103209 '())))) (declare (not safe)) - (cons __tmp103242 __tmp103226)))) + (cons __tmp103224 __tmp103208)))) (declare (not safe)) - (cons __tmp103248 __tmp103225)))) + (cons __tmp103230 __tmp103207)))) (declare (not safe)) - (cons __tmp103224 '())))) + (cons __tmp103206 '())))) (declare (not safe)) - (cons __tmp103249 __tmp103223)))) + (cons __tmp103231 __tmp103205)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103252 - __tmp103222)))) + (cons __tmp103234 + __tmp103204)))) (declare (not safe)) - (cons __tmp103257 __tmp103221)))) + (cons __tmp103239 __tmp103203)))) (declare (not safe)) - (cons __tmp103220 '())))) + (cons __tmp103202 '())))) (declare (not safe)) - (cons __tmp103258 __tmp103219)))) + (cons __tmp103240 __tmp103201)))) (declare (not safe)) - (cons __tmp103282 __tmp103218)))) + (cons __tmp103264 __tmp103200)))) (declare (not safe)) - (cons __tmp103289 __tmp103217)))) + (cons __tmp103271 __tmp103199)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd100520100588_ - _super-bind-methods!100518100580_ - _hd100505100538_) - (_g100499100527_ - _g100500100531_)))) - (_g100499100527_ - _g100500100531_))))))) - (_loop100513100560_ _target100510100554_ '())) - (_g100499100527_ _g100500100531_))))) + _hd100502100570_ + _super-bind-methods!100500100562_ + _hd100487100520_) + (_g100481100509_ + _g100482100513_)))) + (_g100481100509_ + _g100482100513_))))))) + (_loop100495100542_ _target100492100536_ '())) + (_g100481100509_ _g100482100513_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g100499100527_ - _g100500100531_)))) - (_g100499100527_ _g100500100531_)))) - (_g100499100527_ _g100500100531_))))) - (_g100498100663_ + (_g100481100509_ + _g100482100513_)))) + (_g100481100509_ _g100482100513_)))) + (_g100481100509_ _g100482100513_))))) + (_g100480100645_ (list (let () (declare (not safe)) (gx#stx-identifier - _L100459_ - _L100459_ + _L100441_ + _L100441_ '"-bind-methods!")) - (map (lambda (_super100667_) + (map (lambda (_super100649_) (let () (declare (not safe)) (gx#stx-identifier - _super100667_ - _super100667_ + _super100649_ + _super100649_ '"-bind-methods!"))) - (let ((__tmp103290 - (lambda (_g100669100672_ - _g100670100675_) + (let ((__tmp103272 + (lambda (_g100651100654_ + _g100652100657_) (let () (declare (not safe)) - (cons _g100669100672_ - _g100670100675_))))) + (cons _g100651100654_ + _g100652100657_))))) (declare (not safe)) - (foldr1 __tmp103290 '() _L100458_))) + (foldr1 __tmp103272 '() _L100440_))) (let () (declare (not safe)) (gx#stx-identifier - _L100459_ - _L100459_ + _L100441_ + _L100441_ '"::t"))))))) - (___kont102950102951_ - (lambda (_L100044_ - _L100046_ - _L100047_ - _L100048_ - _L100049_ - _L100050_ - _L100051_) - (let* ((_g100094100122_ - (lambda (_g100095100118_) + (___kont102932102933_ + (lambda (_L100026_ + _L100028_ + _L100029_ + _L100030_ + _L100031_ + _L100032_ + _L100033_) + (let* ((_g100076100104_ + (lambda (_g100077100100_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g100095100118_)))) - (_g100093100258_ - (lambda (_g100095100126_) + _g100077100100_)))) + (_g100075100240_ + (lambda (_g100077100108_) (if (let () (declare (not safe)) - (gx#stx-pair? _g100095100126_)) - (let ((_e100101100129_ + (gx#stx-pair? _g100077100108_)) + (let ((_e100083100111_ (let () (declare (not safe)) - (gx#syntax-e _g100095100126_)))) - (let ((_hd100100100133_ + (gx#syntax-e _g100077100108_)))) + (let ((_hd100082100115_ (let () (declare (not safe)) - (##car _e100101100129_))) - (_tl100099100136_ + (##car _e100083100111_))) + (_tl100081100118_ (let () (declare (not safe)) - (##cdr _e100101100129_)))) + (##cdr _e100083100111_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100099100136_)) - (let ((_e100104100139_ + (gx#stx-pair? _tl100081100118_)) + (let ((_e100086100121_ (let () (declare (not safe)) (gx#syntax-e - _tl100099100136_)))) - (let ((_hd100103100143_ + _tl100081100118_)))) + (let ((_hd100085100125_ (let () (declare (not safe)) - (##car _e100104100139_))) - (_tl100102100146_ + (##car _e100086100121_))) + (_tl100084100128_ (let () (declare (not safe)) - (##cdr _e100104100139_)))) + (##cdr _e100086100121_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd100103100143_)) - (let ((_g103291_ + _hd100085100125_)) + (let ((_g103273_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd100103100143_ + _hd100085100125_ '0)))) (begin - (let ((_g103292_ + (let ((_g103274_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g103291_) - (##vector-length _g103291_) + _g103273_) + (##vector-length _g103273_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g103292_ 2))) - (error "Context expects 2 values" _g103292_))) + (if (not (let () (declare (not safe)) (##fx= _g103274_ 2))) + (error "Context expects 2 values" _g103274_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target100105100149_ + (let ((_target100087100131_ (let () (declare (not safe)) (##vector-ref - _g103291_ + _g103273_ 0))) - (_tl100107100152_ + (_tl100089100134_ (let () (declare (not safe)) (##vector-ref - _g103291_ + _g103273_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100107100152_)) - (letrec ((_loop100108100155_ + _tl100089100134_)) + (letrec ((_loop100090100137_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd100106100159_ - _super-bind-methods!100112100162_) + (lambda (_hd100088100141_ + _super-bind-methods!100094100144_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd100106100159_)) - (let ((_e100109100165_ + (gx#stx-pair? _hd100088100141_)) + (let ((_e100091100147_ (let () (declare (not safe)) - (gx#syntax-e _hd100106100159_)))) - (let ((_lp-hd100110100169_ + (gx#syntax-e _hd100088100141_)))) + (let ((_lp-hd100092100151_ (let () (declare (not safe)) - (##car _e100109100165_))) - (_lp-tl100111100172_ + (##car _e100091100147_))) + (_lp-tl100093100154_ (let () (declare (not safe)) - (##cdr _e100109100165_)))) - (_loop100108100155_ - _lp-tl100111100172_ + (##cdr _e100091100147_)))) + (_loop100090100137_ + _lp-tl100093100154_ (let () (declare (not safe)) - (cons _lp-hd100110100169_ - _super-bind-methods!100112100162_))))) - (let ((_super-bind-methods!100113100175_ - (reverse _super-bind-methods!100112100162_))) + (cons _lp-hd100092100151_ + _super-bind-methods!100094100144_))))) + (let ((_super-bind-methods!100095100157_ + (reverse _super-bind-methods!100094100144_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl100102100146_)) - (let ((_e100116100179_ + (gx#stx-pair? _tl100084100128_)) + (let ((_e100098100161_ (let () (declare (not safe)) (gx#syntax-e - _tl100102100146_)))) - (let ((_hd100115100183_ + _tl100084100128_)))) + (let ((_hd100097100165_ (let () (declare (not safe)) - (##car _e100116100179_))) - (_tl100114100186_ + (##car _e100098100161_))) + (_tl100096100168_ (let () (declare (not safe)) - (##cdr _e100116100179_)))) + (##cdr _e100098100161_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl100114100186_)) - ((lambda (_L100189_ - _L100191_ - _L100192_) + _tl100096100168_)) + ((lambda (_L100171_ + _L100173_ + _L100174_) (let () - (let ((__tmp103371 + (let ((__tmp103353 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp103293 - (let ((__tmp103362 - (let ((__tmp103370 + (__tmp103275 + (let ((__tmp103344 + (let ((__tmp103352 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass))) - (__tmp103363 - (let ((__tmp103367 - (let ((__tmp103368 - (let ((__tmp103369 - (lambda (_g100223100226_ + (__tmp103345 + (let ((__tmp103349 + (let ((__tmp103350 + (let ((__tmp103351 + (lambda (_g100205100208_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g100224100229_) + _g100206100211_) (let () (declare (not safe)) - (cons _g100223100226_ _g100224100229_))))) + (cons _g100205100208_ _g100206100211_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp103369 + (foldr1 __tmp103351 '() - _L100048_)))) + _L100030_)))) (declare (not safe)) - (cons _L100049_ __tmp103368))) - (__tmp103364 - (let ((__tmp103365 - (let ((__tmp103366 + (cons _L100031_ __tmp103350))) + (__tmp103346 + (let ((__tmp103347 + (let ((__tmp103348 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) (cons 'final: - __tmp103366)))) + __tmp103348)))) (declare (not safe)) - (cons _L100047_ __tmp103365)))) + (cons _L100029_ __tmp103347)))) (declare (not safe)) - (cons __tmp103367 __tmp103364)))) + (cons __tmp103349 __tmp103346)))) (declare (not safe)) - (cons __tmp103370 __tmp103363))) - (__tmp103294 - (let ((__tmp103334 - (let ((__tmp103361 + (cons __tmp103352 __tmp103345))) + (__tmp103276 + (let ((__tmp103316 + (let ((__tmp103343 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp103335 - (let ((__tmp103336 - (let ((__tmp103337 - (let ((__tmp103360 + (__tmp103317 + (let ((__tmp103318 + (let ((__tmp103319 + (let ((__tmp103342 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'delay))) - (__tmp103338 - (let ((__tmp103339 - (let ((__tmp103359 + (__tmp103320 + (let ((__tmp103321 + (let ((__tmp103341 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp103340 - (let ((__tmp103355 - (lambda (_g100218100232_ - _g100219100235_) - (let ((__tmp103356 - (let ((__tmp103358 + (__tmp103322 + (let ((__tmp103337 + (lambda (_g100200100214_ + _g100201100217_) + (let ((__tmp103338 + (let ((__tmp103340 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp103357 + (__tmp103339 (let () (declare (not safe)) - (cons _g100218100232_ + (cons _g100200100214_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp103358 __tmp103357)))) + (cons __tmp103340 __tmp103339)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103356 - _g100219100235_)))) - (__tmp103341 + (cons __tmp103338 + _g100201100217_)))) + (__tmp103323 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L100044_ - _L100046_)) - (let ((__tmp103346 - (lambda (_g100220100238_ - _g100221100241_ - _g100222100243_) - (let ((__tmp103347 - (let ((__tmp103354 + _L100026_ + _L100028_)) + (let ((__tmp103328 + (lambda (_g100202100220_ + _g100203100223_ + _g100204100225_) + (let ((__tmp103329 + (let ((__tmp103336 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!))) - (__tmp103348 - (let ((__tmp103349 - (let ((__tmp103351 - (let ((__tmp103353 + (__tmp103330 + (let ((__tmp103331 + (let ((__tmp103333 + (let ((__tmp103335 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp103352 + (__tmp103334 (let () (declare (not safe)) - (cons _g100221100241_ + (cons _g100203100223_ '())))) (declare (not safe)) - (cons __tmp103353 __tmp103352))) - (__tmp103350 + (cons __tmp103335 __tmp103334))) + (__tmp103332 (let () (declare (not safe)) - (cons _g100220100238_ '())))) + (cons _g100202100220_ '())))) (declare (not safe)) - (cons __tmp103351 __tmp103350)))) + (cons __tmp103333 __tmp103332)))) (declare (not safe)) - (cons _L100189_ __tmp103349)))) + (cons _L100171_ __tmp103331)))) (declare (not safe)) - (cons __tmp103354 __tmp103348)))) + (cons __tmp103336 __tmp103330)))) (declare (not safe)) - (cons __tmp103347 _g100222100243_)))) + (cons __tmp103329 _g100204100225_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp103342 - (let ((__tmp103343 - (let ((__tmp103345 + (__tmp103324 + (let ((__tmp103325 + (let ((__tmp103327 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'seal-class!))) - (__tmp103344 - (let () (declare (not safe)) (cons _L100189_ '())))) + (__tmp103326 + (let () (declare (not safe)) (cons _L100171_ '())))) (declare (not safe)) - (cons __tmp103345 __tmp103344)))) + (cons __tmp103327 __tmp103326)))) (declare (not safe)) - (cons __tmp103343 '())))) + (cons __tmp103325 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp103346 - __tmp103342 - _L100044_ - _L100046_))))) + (foldr2 __tmp103328 + __tmp103324 + _L100026_ + _L100028_))))) (declare (not safe)) - (foldr1 __tmp103355 - __tmp103341 - _L100191_)))) + (foldr1 __tmp103337 + __tmp103323 + _L100173_)))) (declare (not safe)) - (cons __tmp103359 __tmp103340)))) + (cons __tmp103341 __tmp103322)))) (declare (not safe)) - (cons __tmp103339 '())))) + (cons __tmp103321 '())))) (declare (not safe)) - (cons __tmp103360 __tmp103338)))) + (cons __tmp103342 __tmp103320)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103337 '())))) + (cons __tmp103319 '())))) (declare (not safe)) - (cons _L100192_ __tmp103336)))) + (cons _L100174_ __tmp103318)))) (declare (not safe)) - (cons __tmp103361 __tmp103335))) - (__tmp103295 - (let ((__tmp103296 - (let ((__tmp103333 + (cons __tmp103343 __tmp103317))) + (__tmp103277 + (let ((__tmp103278 + (let ((__tmp103315 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp103297 - (let ((__tmp103328 - (let ((__tmp103329 - (let ((__tmp103332 + (__tmp103279 + (let ((__tmp103310 + (let ((__tmp103311 + (let ((__tmp103314 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp103330 - (let ((__tmp103331 - (lambda (_g100216100246_ _g100217100249_) + (__tmp103312 + (let ((__tmp103313 + (lambda (_g100198100228_ _g100199100231_) (let () (declare (not safe)) - (cons _g100216100246_ - _g100217100249_))))) + (cons _g100198100228_ + _g100199100231_))))) (declare (not safe)) - (foldr1 __tmp103331 '() _L100050_)))) + (foldr1 __tmp103313 '() _L100032_)))) (declare (not safe)) - (cons __tmp103332 __tmp103330)))) + (cons __tmp103314 __tmp103312)))) (declare (not safe)) - (cons _L100051_ __tmp103329))) - (__tmp103298 - (let ((__tmp103325 - (let ((__tmp103327 + (cons _L100033_ __tmp103311))) + (__tmp103280 + (let ((__tmp103307 + (let ((__tmp103309 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp103326 + (__tmp103308 (let () (declare (not safe)) - (cons _L100192_ '())))) + (cons _L100174_ '())))) (declare (not safe)) - (cons __tmp103327 __tmp103326))) - (__tmp103299 - (let ((__tmp103300 - (let ((__tmp103324 + (cons __tmp103309 __tmp103308))) + (__tmp103281 + (let ((__tmp103282 + (let ((__tmp103306 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp103301 - (let ((__tmp103318 - (let ((__tmp103323 + (__tmp103283 + (let ((__tmp103300 + (let ((__tmp103305 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self))) - (__tmp103319 - (let ((__tmp103320 - (let ((__tmp103321 + (__tmp103301 + (let ((__tmp103302 + (let ((__tmp103303 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp103322 - (lambda (_g100214100252_ _g100215100255_) + (let ((__tmp103304 + (lambda (_g100196100234_ _g100197100237_) (let () (declare (not safe)) - (cons _g100214100252_ _g100215100255_))))) + (cons _g100196100234_ _g100197100237_))))) (declare (not safe)) - (foldr1 __tmp103322 '() _L100050_)))) + (foldr1 __tmp103304 '() _L100032_)))) (declare (not safe)) - (cons _L100049_ __tmp103321)))) + (cons _L100031_ __tmp103303)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103320 '())))) + (cons __tmp103302 '())))) (declare (not safe)) - (cons __tmp103323 __tmp103319))) - (__tmp103302 - (let ((__tmp103303 - (let ((__tmp103317 + (cons __tmp103305 __tmp103301))) + (__tmp103284 + (let ((__tmp103285 + (let ((__tmp103299 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'parameterize))) - (__tmp103304 - (let ((__tmp103312 + (__tmp103286 + (let ((__tmp103294 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp103313 - (let ((__tmp103316 + (let ((__tmp103295 + (let ((__tmp103298 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'current-compile-method))) - (__tmp103314 - (let ((__tmp103315 + (__tmp103296 + (let ((__tmp103297 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)))) (declare (not safe)) - (cons __tmp103315 '())))) + (cons __tmp103297 '())))) (declare (not safe)) - (cons __tmp103316 __tmp103314)))) + (cons __tmp103298 __tmp103296)))) (declare (not safe)) - (cons __tmp103313 '()))) - (__tmp103305 - (let ((__tmp103306 - (let ((__tmp103311 + (cons __tmp103295 '()))) + (__tmp103287 + (let ((__tmp103288 + (let ((__tmp103293 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp103307 - (let ((__tmp103310 + (__tmp103289 + (let ((__tmp103292 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self))) - (__tmp103308 - (let ((__tmp103309 + (__tmp103290 + (let ((__tmp103291 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)))) (declare (not safe)) - (cons __tmp103309 '())))) + (cons __tmp103291 '())))) (declare (not safe)) - (cons __tmp103310 __tmp103308)))) + (cons __tmp103292 __tmp103290)))) (declare (not safe)) - (cons __tmp103311 __tmp103307)))) + (cons __tmp103293 __tmp103289)))) (declare (not safe)) - (cons __tmp103306 '())))) + (cons __tmp103288 '())))) (declare (not safe)) - (cons __tmp103312 __tmp103305)))) + (cons __tmp103294 __tmp103287)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103317 - __tmp103304)))) + (cons __tmp103299 + __tmp103286)))) (declare (not safe)) - (cons __tmp103303 '())))) + (cons __tmp103285 '())))) (declare (not safe)) - (cons __tmp103318 __tmp103302)))) + (cons __tmp103300 __tmp103284)))) (declare (not safe)) - (cons __tmp103324 __tmp103301)))) + (cons __tmp103306 __tmp103283)))) (declare (not safe)) - (cons __tmp103300 '())))) + (cons __tmp103282 '())))) (declare (not safe)) - (cons __tmp103325 __tmp103299)))) + (cons __tmp103307 __tmp103281)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp103328 - __tmp103298)))) + (cons __tmp103310 + __tmp103280)))) (declare (not safe)) - (cons __tmp103333 __tmp103297)))) + (cons __tmp103315 __tmp103279)))) (declare (not safe)) - (cons __tmp103296 '())))) + (cons __tmp103278 '())))) (declare (not safe)) - (cons __tmp103334 __tmp103295)))) + (cons __tmp103316 __tmp103277)))) (declare (not safe)) - (cons __tmp103362 __tmp103294)))) + (cons __tmp103344 __tmp103276)))) (declare (not safe)) - (cons __tmp103371 __tmp103293)))) + (cons __tmp103353 __tmp103275)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd100115100183_ - _super-bind-methods!100113100175_ - _hd100100100133_) - (_g100094100122_ - _g100095100126_)))) - (_g100094100122_ - _g100095100126_))))))) - (_loop100108100155_ _target100105100149_ '())) - (_g100094100122_ _g100095100126_))))) + _hd100097100165_ + _super-bind-methods!100095100157_ + _hd100082100115_) + (_g100076100104_ + _g100077100108_)))) + (_g100076100104_ + _g100077100108_))))))) + (_loop100090100137_ _target100087100131_ '())) + (_g100076100104_ _g100077100108_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g100094100122_ - _g100095100126_)))) - (_g100094100122_ _g100095100126_)))) - (_g100094100122_ _g100095100126_))))) - (_g100093100258_ + (_g100076100104_ + _g100077100108_)))) + (_g100076100104_ _g100077100108_)))) + (_g100076100104_ _g100077100108_))))) + (_g100075100240_ (list (let () (declare (not safe)) (gx#stx-identifier - _L100049_ - _L100049_ + _L100031_ + _L100031_ '"-bind-methods!")) - (map (lambda (_super100262_) + (map (lambda (_super100244_) (let () (declare (not safe)) (gx#stx-identifier - _super100262_ - _super100262_ + _super100244_ + _super100244_ '"-bind-methods!"))) - (let ((__tmp103372 - (lambda (_g100264100267_ - _g100265100270_) + (let ((__tmp103354 + (lambda (_g100246100249_ + _g100247100252_) (let () (declare (not safe)) - (cons _g100264100267_ - _g100265100270_))))) + (cons _g100246100249_ + _g100247100252_))))) (declare (not safe)) - (foldr1 __tmp103372 '() _L100048_))) + (foldr1 __tmp103354 '() _L100030_))) (let () (declare (not safe)) (gx#stx-identifier - _L100049_ - _L100049_ + _L100031_ + _L100031_ '"::t")))))))) - (let* ((___match103072103073_ - (lambda (_e9978999856_ - _hd9978899860_ - _tl9978799863_ - _e9979299866_ - _hd9979199870_ - _tl9979099873_ - _e9979599876_ - _hd9979499880_ - _tl9979399883_ - ___splice102952102953_ - _target9979699886_ - _tl9979899889_) - (letrec ((_loop9979999892_ - (lambda (_hd9979799896_ _arg9980399899_) + (let* ((___match103054103055_ + (lambda (_e9977199838_ + _hd9977099842_ + _tl9976999845_ + _e9977499848_ + _hd9977399852_ + _tl9977299855_ + _e9977799858_ + _hd9977699862_ + _tl9977599865_ + ___splice102934102935_ + _target9977899868_ + _tl9978099871_) + (letrec ((_loop9978199874_ + (lambda (_hd9977999878_ _arg9978599881_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9979799896_)) - (let ((_e9980099902_ + (gx#stx-pair? _hd9977999878_)) + (let ((_e9978299884_ (let () (declare (not safe)) - (gx#syntax-e _hd9979799896_)))) - (let ((_lp-tl9980299909_ + (gx#syntax-e _hd9977999878_)))) + (let ((_lp-tl9978499891_ (let () (declare (not safe)) - (##cdr _e9980099902_))) - (_lp-hd9980199906_ + (##cdr _e9978299884_))) + (_lp-hd9978399888_ (let () (declare (not safe)) - (##car _e9980099902_)))) - (_loop9979999892_ - _lp-tl9980299909_ + (##car _e9978299884_)))) + (_loop9978199874_ + _lp-tl9978499891_ (let () (declare (not safe)) - (cons _lp-hd9980199906_ - _arg9980399899_))))) - (let ((_arg9980499912_ - (reverse _arg9980399899_))) + (cons _lp-hd9978399888_ + _arg9978599881_))))) + (let ((_arg9978699894_ + (reverse _arg9978599881_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9979099873_)) - (let ((_e9980799916_ + (gx#stx-pair? _tl9977299855_)) + (let ((_e9978999898_ (let () (declare (not safe)) (gx#syntax-e - _tl9979099873_)))) - (let ((_tl9980599923_ + _tl9977299855_)))) + (let ((_tl9978799905_ (let () (declare (not safe)) - (##cdr _e9980799916_))) - (_hd9980699920_ + (##cdr _e9978999898_))) + (_hd9978899902_ (let () (declare (not safe)) - (##car _e9980799916_)))) + (##car _e9978999898_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd9980699920_)) - (let ((_e9981099926_ + _hd9978899902_)) + (let ((_e9979299908_ (let () (declare (not safe)) (gx#syntax-e - _hd9980699920_)))) - (let ((_tl9980899933_ + _hd9978899902_)))) + (let ((_tl9979099915_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e9981099926_))) - (_hd9980999930_ - (let () (declare (not safe)) (##car _e9981099926_)))) + (##cdr _e9979299908_))) + (_hd9979199912_ + (let () (declare (not safe)) (##car _e9979299908_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl9980899933_)) - (let ((___splice102954102955_ + (gx#stx-pair/null? _tl9979099915_)) + (let ((___splice102936102937_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl9980899933_ '0)))) - (let ((_tl9981399939_ + (gx#syntax-split-splice _tl9979099915_ '0)))) + (let ((_tl9979599921_ (let () (declare (not safe)) - (##vector-ref ___splice102954102955_ '1))) - (_target9981199936_ + (##vector-ref ___splice102936102937_ '1))) + (_target9979399918_ (let () (declare (not safe)) - (##vector-ref ___splice102954102955_ '0)))) + (##vector-ref ___splice102936102937_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9981399939_)) - (letrec ((_loop9981499942_ - (lambda (_hd9981299946_ - _super9981899949_) + (gx#stx-null? _tl9979599921_)) + (letrec ((_loop9979699924_ + (lambda (_hd9979499928_ + _super9980099931_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd9981299946_)) - (let ((_e9981599952_ + (gx#stx-pair? _hd9979499928_)) + (let ((_e9979799934_ (let () (declare (not safe)) (gx#syntax-e - _hd9981299946_)))) - (let ((_lp-tl9981799959_ + _hd9979499928_)))) + (let ((_lp-tl9979999941_ (let () (declare (not safe)) - (##cdr _e9981599952_))) - (_lp-hd9981699956_ + (##cdr _e9979799934_))) + (_lp-hd9979899938_ (let () (declare (not safe)) - (##car _e9981599952_)))) - (_loop9981499942_ - _lp-tl9981799959_ + (##car _e9979799934_)))) + (_loop9979699924_ + _lp-tl9979999941_ (let () (declare (not safe)) - (cons _lp-hd9981699956_ - _super9981899949_))))) - (let ((_super9981999962_ - (reverse _super9981899949_))) + (cons _lp-hd9979899938_ + _super9980099931_))))) + (let ((_super9980199944_ + (reverse _super9980099931_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl9980599923_)) - (let ((_e9982299966_ + _tl9978799905_)) + (let ((_e9980499948_ (let () (declare (not safe)) (gx#syntax-e - _tl9980599923_)))) - (let ((_tl9982099973_ + _tl9978799905_)))) + (let ((_tl9980299955_ (let () (declare (not safe)) - (##cdr _e9982299966_))) - (_hd9982199970_ + (##cdr _e9980499948_))) + (_hd9980399952_ (let () (declare (not safe)) - (##car _e9982299966_)))) + (##car _e9980499948_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl9982099973_)) - (let ((_e9982599976_ + _tl9980299955_)) + (let ((_e9980799958_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _tl9982099973_)))) - (let ((_tl9982399983_ - (let () (declare (not safe)) (##cdr _e9982599976_))) - (_hd9982499980_ + (gx#syntax-e _tl9980299955_)))) + (let ((_tl9980599965_ + (let () (declare (not safe)) (##cdr _e9980799958_))) + (_hd9980699962_ (let () (declare (not safe)) - (##car _e9982599976_)))) + (##car _e9980799958_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd9982499980_)) - (let ((_e9982699986_ + (gx#stx-datum? _hd9980699962_)) + (let ((_e9980899968_ (let () (declare (not safe)) - (gx#stx-e _hd9982499980_)))) + (gx#stx-e _hd9980699962_)))) (if (let () (declare (not safe)) - (equal? _e9982699986_ 'final:)) + (equal? _e9980899968_ 'final:)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl9982399983_)) - (let ((___splice102956102957_ + (gx#stx-pair/null? _tl9980599965_)) + (let ((___splice102938102939_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl9982399983_ + _tl9980599965_ '0)))) - (let ((_tl9982999993_ + (let ((_tl9981199975_ (let () (declare (not safe)) (##vector-ref - ___splice102956102957_ + ___splice102938102939_ '1))) - (_target9982799990_ + (_target9980999972_ (let () (declare (not safe)) (##vector-ref - ___splice102956102957_ + ___splice102938102939_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl9982999993_)) - (letrec ((_loop9983099996_ - (lambda (_hd99828100000_ - _implementation99834100003_ - _method99835100005_) + (gx#stx-null? _tl9981199975_)) + (letrec ((_loop9981299978_ + (lambda (_hd9981099982_ + _implementation9981699985_ + _method9981799987_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd99828100000_)) - (let ((_e99831100008_ + _hd9981099982_)) + (let ((_e9981399990_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _hd99828100000_)))) - (let ((_lp-tl99833100015_ + (gx#syntax-e _hd9981099982_)))) + (let ((_lp-tl9981599997_ (let () (declare (not safe)) - (##cdr _e99831100008_))) - (_lp-hd99832100012_ + (##cdr _e9981399990_))) + (_lp-hd9981499994_ (let () (declare (not safe)) - (##car _e99831100008_)))) + (##car _e9981399990_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd99832100012_)) - (let ((_e99840100018_ + (gx#stx-pair? _lp-hd9981499994_)) + (let ((_e99822100000_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd99832100012_)))) - (let ((_tl99838100025_ + (gx#syntax-e _lp-hd9981499994_)))) + (let ((_tl99820100007_ (let () (declare (not safe)) - (##cdr _e99840100018_))) - (_hd99839100022_ + (##cdr _e99822100000_))) + (_hd99821100004_ (let () (declare (not safe)) - (##car _e99840100018_)))) + (##car _e99822100000_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl99838100025_)) - (let ((_e99843100028_ + (gx#stx-pair? _tl99820100007_)) + (let ((_e99825100010_ (let () (declare (not safe)) - (gx#syntax-e _tl99838100025_)))) - (let ((_tl99841100035_ + (gx#syntax-e _tl99820100007_)))) + (let ((_tl99823100017_ (let () (declare (not safe)) - (##cdr _e99843100028_))) - (_hd99842100032_ + (##cdr _e99825100010_))) + (_hd99824100014_ (let () (declare (not safe)) - (##car _e99843100028_)))) + (##car _e99825100010_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl99841100035_)) - (_loop9983099996_ - _lp-tl99833100015_ + (gx#stx-null? _tl99823100017_)) + (_loop9981299978_ + _lp-tl9981599997_ (let () (declare (not safe)) - (cons _hd99842100032_ - _implementation99834100003_)) + (cons _hd99824100014_ + _implementation9981699985_)) (let () (declare (not safe)) - (cons _hd99839100022_ - _method99835100005_))) + (cons _hd99821100004_ + _method9981799987_))) (let () (declare (not safe)) - (_g9965599849_))))) + (_g9963799831_))))) (let () (declare (not safe)) - (_g9965599849_))))) - (let () (declare (not safe)) (_g9965599849_))))) - (let ((_method99837100041_ (reverse _method99835100005_)) - (_implementation99836100038_ - (reverse _implementation99834100003_))) - (___kont102950102951_ - _implementation99836100038_ - _method99837100041_ - _hd9982199970_ - _super9981999962_ - _hd9980999930_ - _arg9980499912_ - _hd9979499880_)))))) + (_g9963799831_))))) + (let () (declare (not safe)) (_g9963799831_))))) + (let ((_method99819100023_ (reverse _method9981799987_)) + (_implementation99818100020_ + (reverse _implementation9981699985_))) + (___kont102932102933_ + _implementation99818100020_ + _method99819100023_ + _hd9980399952_ + _super9980199944_ + _hd9979199912_ + _arg9978699894_ + _hd9977699862_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop9983099996_ - _target9982799990_ + (_loop9981299978_ + _target9980999972_ '() '())) (let () (declare (not safe)) - (_g9965599849_))))) + (_g9963799831_))))) (let () (declare (not safe)) - (_g9965599849_))) - (let () (declare (not safe)) (_g9965599849_)))) - (let () (declare (not safe)) (_g9965599849_))))) - (let () (declare (not safe)) (_g9965599849_))))) + (_g9963799831_))) + (let () (declare (not safe)) (_g9963799831_)))) + (let () (declare (not safe)) (_g9963799831_))))) + (let () (declare (not safe)) (_g9963799831_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9965599849_)))))))) - (_loop9981499942_ _target9981199936_ '())) - (let () (declare (not safe)) (_g9965599849_))))) - (let () (declare (not safe)) (_g9965599849_))))) + (_g9963799831_)))))))) + (_loop9979699924_ _target9979399918_ '())) + (let () (declare (not safe)) (_g9963799831_))))) + (let () (declare (not safe)) (_g9963799831_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9965599849_))))) + (_g9963799831_))))) (let () (declare (not safe)) - (_g9965599849_)))))))) - (_loop9979999892_ _target9979699886_ '())))) - (___match103046103047_ - (lambda (_e99729100280_ - _hd99728100284_ - _tl99727100287_ - _e99732100290_ - _hd99731100294_ - _tl99730100297_ - _e99735100300_ - _hd99734100304_ - _tl99733100307_ - ___splice102944102945_ - _target99736100310_ - _tl99738100313_) - (letrec ((_loop99739100316_ - (lambda (_hd99737100320_ _arg99743100323_) + (_g9963799831_)))))))) + (_loop9978199874_ _target9977899868_ '())))) + (___match103028103029_ + (lambda (_e99711100262_ + _hd99710100266_ + _tl99709100269_ + _e99714100272_ + _hd99713100276_ + _tl99712100279_ + _e99717100282_ + _hd99716100286_ + _tl99715100289_ + ___splice102926102927_ + _target99718100292_ + _tl99720100295_) + (letrec ((_loop99721100298_ + (lambda (_hd99719100302_ _arg99725100305_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99737100320_)) - (let ((_e99740100326_ + (gx#stx-pair? _hd99719100302_)) + (let ((_e99722100308_ (let () (declare (not safe)) - (gx#syntax-e _hd99737100320_)))) - (let ((_lp-tl99742100333_ + (gx#syntax-e _hd99719100302_)))) + (let ((_lp-tl99724100315_ (let () (declare (not safe)) - (##cdr _e99740100326_))) - (_lp-hd99741100330_ + (##cdr _e99722100308_))) + (_lp-hd99723100312_ (let () (declare (not safe)) - (##car _e99740100326_)))) - (_loop99739100316_ - _lp-tl99742100333_ + (##car _e99722100308_)))) + (_loop99721100298_ + _lp-tl99724100315_ (let () (declare (not safe)) - (cons _lp-hd99741100330_ - _arg99743100323_))))) - (let ((_arg99744100336_ - (reverse _arg99743100323_))) + (cons _lp-hd99723100312_ + _arg99725100305_))))) + (let ((_arg99726100318_ + (reverse _arg99725100305_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl99730100297_)) - (let ((_e99747100340_ + (gx#stx-pair? _tl99712100279_)) + (let ((_e99729100322_ (let () (declare (not safe)) (gx#syntax-e - _tl99730100297_)))) - (let ((_tl99745100347_ + _tl99712100279_)))) + (let ((_tl99727100329_ (let () (declare (not safe)) - (##cdr _e99747100340_))) - (_hd99746100344_ + (##cdr _e99729100322_))) + (_hd99728100326_ (let () (declare (not safe)) - (##car _e99747100340_)))) + (##car _e99729100322_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd99746100344_)) - (let ((_e99750100350_ + _hd99728100326_)) + (let ((_e99732100332_ (let () (declare (not safe)) (gx#syntax-e - _hd99746100344_)))) - (let ((_tl99748100357_ + _hd99728100326_)))) + (let ((_tl99730100339_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e99750100350_))) - (_hd99749100354_ - (let () (declare (not safe)) (##car _e99750100350_)))) + (##cdr _e99732100332_))) + (_hd99731100336_ + (let () (declare (not safe)) (##car _e99732100332_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl99748100357_)) - (let ((___splice102946102947_ + (gx#stx-pair/null? _tl99730100339_)) + (let ((___splice102928102929_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl99748100357_ '0)))) - (let ((_tl99753100363_ + (gx#syntax-split-splice _tl99730100339_ '0)))) + (let ((_tl99735100345_ (let () (declare (not safe)) - (##vector-ref ___splice102946102947_ '1))) - (_target99751100360_ + (##vector-ref ___splice102928102929_ '1))) + (_target99733100342_ (let () (declare (not safe)) - (##vector-ref ___splice102946102947_ '0)))) + (##vector-ref ___splice102928102929_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl99753100363_)) - (letrec ((_loop99754100366_ - (lambda (_hd99752100370_ - _super99758100373_) + (gx#stx-null? _tl99735100345_)) + (letrec ((_loop99736100348_ + (lambda (_hd99734100352_ + _super99740100355_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99752100370_)) - (let ((_e99755100376_ + (gx#stx-pair? _hd99734100352_)) + (let ((_e99737100358_ (let () (declare (not safe)) (gx#syntax-e - _hd99752100370_)))) - (let ((_lp-tl99757100383_ + _hd99734100352_)))) + (let ((_lp-tl99739100365_ (let () (declare (not safe)) - (##cdr _e99755100376_))) - (_lp-hd99756100380_ + (##cdr _e99737100358_))) + (_lp-hd99738100362_ (let () (declare (not safe)) - (##car _e99755100376_)))) - (_loop99754100366_ - _lp-tl99757100383_ + (##car _e99737100358_)))) + (_loop99736100348_ + _lp-tl99739100365_ (let () (declare (not safe)) - (cons _lp-hd99756100380_ - _super99758100373_))))) - (let ((_super99759100386_ - (reverse _super99758100373_))) + (cons _lp-hd99738100362_ + _super99740100355_))))) + (let ((_super99741100368_ + (reverse _super99740100355_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl99745100347_)) - (let ((_e99762100390_ + _tl99727100329_)) + (let ((_e99744100372_ (let () (declare (not safe)) (gx#syntax-e - _tl99745100347_)))) - (let ((_tl99760100397_ + _tl99727100329_)))) + (let ((_tl99742100379_ (let () (declare (not safe)) - (##cdr _e99762100390_))) - (_hd99761100394_ + (##cdr _e99744100372_))) + (_hd99743100376_ (let () (declare (not safe)) - (##car _e99762100390_)))) + (##car _e99744100372_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl99760100397_)) - (let ((___splice102948102949_ + _tl99742100379_)) + (let ((___splice102930102931_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _tl99760100397_ '0)))) - (let ((_tl99765100403_ + (gx#syntax-split-splice _tl99742100379_ '0)))) + (let ((_tl99747100385_ (let () (declare (not safe)) - (##vector-ref ___splice102948102949_ '1))) - (_target99763100400_ + (##vector-ref ___splice102930102931_ '1))) + (_target99745100382_ (let () (declare (not safe)) - (##vector-ref ___splice102948102949_ '0)))) + (##vector-ref ___splice102930102931_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl99765100403_)) - (letrec ((_loop99766100406_ - (lambda (_hd99764100410_ - _implementation99770100413_ - _method99771100415_) + (gx#stx-null? _tl99747100385_)) + (letrec ((_loop99748100388_ + (lambda (_hd99746100392_ + _implementation99752100395_ + _method99753100397_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99764100410_)) - (let ((_e99767100418_ + (gx#stx-pair? _hd99746100392_)) + (let ((_e99749100400_ (let () (declare (not safe)) (gx#syntax-e - _hd99764100410_)))) - (let ((_lp-tl99769100425_ + _hd99746100392_)))) + (let ((_lp-tl99751100407_ (let () (declare (not safe)) - (##cdr _e99767100418_))) - (_lp-hd99768100422_ + (##cdr _e99749100400_))) + (_lp-hd99750100404_ (let () (declare (not safe)) - (##car _e99767100418_)))) + (##car _e99749100400_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd99768100422_)) - (let ((_e99776100428_ + _lp-hd99750100404_)) + (let ((_e99758100410_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd99768100422_)))) - (let ((_tl99774100435_ + _lp-hd99750100404_)))) + (let ((_tl99756100417_ (let () (declare (not safe)) - (##cdr _e99776100428_))) - (_hd99775100432_ + (##cdr _e99758100410_))) + (_hd99757100414_ (let () (declare (not safe)) - (##car _e99776100428_)))) + (##car _e99758100410_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl99774100435_)) - (let ((_e99779100438_ + _tl99756100417_)) + (let ((_e99761100420_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _tl99774100435_)))) - (let ((_tl99777100445_ + (gx#syntax-e _tl99756100417_)))) + (let ((_tl99759100427_ (let () (declare (not safe)) - (##cdr _e99779100438_))) - (_hd99778100442_ + (##cdr _e99761100420_))) + (_hd99760100424_ (let () (declare (not safe)) - (##car _e99779100438_)))) + (##car _e99761100420_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl99777100445_)) - (_loop99766100406_ - _lp-tl99769100425_ + (gx#stx-null? _tl99759100427_)) + (_loop99748100388_ + _lp-tl99751100407_ (let () (declare (not safe)) - (cons _hd99778100442_ - _implementation99770100413_)) + (cons _hd99760100424_ + _implementation99752100395_)) (let () (declare (not safe)) - (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_)))) + (cons _hd99757100414_ _method99753100397_))) + (___match103054103055_ + _e99711100262_ + _hd99710100266_ + _tl99709100269_ + _e99714100272_ + _hd99713100276_ + _tl99712100279_ + _e99717100282_ + _hd99716100286_ + _tl99715100289_ + ___splice102926102927_ + _target99718100292_ + _tl99720100295_)))) + (___match103054103055_ + _e99711100262_ + _hd99710100266_ + _tl99709100269_ + _e99714100272_ + _hd99713100276_ + _tl99712100279_ + _e99717100282_ + _hd99716100286_ + _tl99715100289_ + ___splice102926102927_ + _target99718100292_ + _tl99720100295_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_)))) + (___match103054103055_ + _e99711100262_ + _hd99710100266_ + _tl99709100269_ + _e99714100272_ + _hd99713100276_ + _tl99712100279_ + _e99717100282_ + _hd99716100286_ + _tl99715100289_ + ___splice102926102927_ + _target99718100292_ + _tl99720100295_)))) + (let ((_method99755100433_ + (reverse _method99753100397_)) + (_implementation99754100430_ + (reverse _implementation99752100395_))) + (___kont102924102925_ + _implementation99754100430_ + _method99755100433_ + _hd99743100376_ + _super99741100368_ + _hd99731100336_ + _arg99726100318_ + _hd99716100286_)))))) + (_loop99748100388_ _target99745100382_ '() '())) + (___match103054103055_ + _e99711100262_ + _hd99710100266_ + _tl99709100269_ + _e99714100272_ + _hd99713100276_ + _tl99712100279_ + _e99717100282_ + _hd99716100286_ + _tl99715100289_ + ___splice102926102927_ + _target99718100292_ + _tl99720100295_)))) + (___match103054103055_ + _e99711100262_ + _hd99710100266_ + _tl99709100269_ + _e99714100272_ + _hd99713100276_ + _tl99712100279_ + _e99717100282_ + _hd99716100286_ + _tl99715100289_ + ___splice102926102927_ + _target99718100292_ + _tl99720100295_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_)))) + (___match103054103055_ + _e99711100262_ + _hd99710100266_ + _tl99709100269_ + _e99714100272_ + _hd99713100276_ + _tl99712100279_ + _e99717100282_ + _hd99716100286_ + _tl99715100289_ + ___splice102926102927_ + _target99718100292_ + _tl99720100295_))))))) + (_loop99736100348_ _target99733100342_ '())) + (___match103054103055_ + _e99711100262_ + _hd99710100266_ + _tl99709100269_ + _e99714100272_ + _hd99713100276_ + _tl99712100279_ + _e99717100282_ + _hd99716100286_ + _tl99715100289_ + ___splice102926102927_ + _target99718100292_ + _tl99720100295_)))) + (___match103054103055_ + _e99711100262_ + _hd99710100266_ + _tl99709100269_ + _e99714100272_ + _hd99713100276_ + _tl99712100279_ + _e99717100282_ + _hd99716100286_ + _tl99715100289_ + ___splice102926102927_ + _target99718100292_ + _tl99720100295_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_) + (___match103054103055_ + _e99711100262_ + _hd99710100266_ + _tl99709100269_ + _e99714100272_ + _hd99713100276_ + _tl99712100279_ + _e99717100282_ + _hd99716100286_ + _tl99715100289_ + ___splice102926102927_ + _target99718100292_ + _tl99720100295_)))) + (___match103054103055_ + _e99711100262_ + _hd99710100266_ + _tl99709100269_ + _e99714100272_ + _hd99713100276_ + _tl99712100279_ + _e99717100282_ + _hd99716100286_ + _tl99715100289_ + ___splice102926102927_ + _target99718100292_ + _tl99720100295_))))))) + (_loop99721100298_ _target99718100292_ '())))) + (___match103002103003_ + (lambda (_e99662100667_ + _hd99661100671_ + _tl99660100674_ + _e99665100677_ + _hd99664100681_ + _tl99663100684_ + _e99666100687_ + _e99669100691_ + _hd99668100695_ + _tl99667100698_ + _e99672100701_ + _hd99671100705_ + _tl99670100708_ + ___splice102920102921_ + _target99673100711_ + _tl99675100714_) + (letrec ((_loop99676100717_ + (lambda (_hd99674100721_ _super99680100724_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99692100739_)) - (let ((_e99695100745_ + (gx#stx-pair? _hd99674100721_)) + (let ((_e99677100727_ (let () (declare (not safe)) - (gx#syntax-e _hd99692100739_)))) - (let ((_lp-tl99697100752_ + (gx#syntax-e _hd99674100721_)))) + (let ((_lp-tl99679100734_ (let () (declare (not safe)) - (##cdr _e99695100745_))) - (_lp-hd99696100749_ + (##cdr _e99677100727_))) + (_lp-hd99678100731_ (let () (declare (not safe)) - (##car _e99695100745_)))) - (_loop99694100735_ - _lp-tl99697100752_ + (##car _e99677100727_)))) + (_loop99676100717_ + _lp-tl99679100734_ (let () (declare (not safe)) - (cons _lp-hd99696100749_ - _super99698100742_))))) - (let ((_super99699100755_ - (reverse _super99698100742_))) + (cons _lp-hd99678100731_ + _super99680100724_))))) + (let ((_super99681100737_ + (reverse _super99680100724_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl99685100716_)) - (let ((_e99702100759_ + (gx#stx-pair? _tl99667100698_)) + (let ((_e99684100741_ (let () (declare (not safe)) (gx#syntax-e - _tl99685100716_)))) - (let ((_tl99700100766_ + _tl99667100698_)))) + (let ((_tl99682100748_ (let () (declare (not safe)) - (##cdr _e99702100759_))) - (_hd99701100763_ + (##cdr _e99684100741_))) + (_hd99683100745_ (let () (declare (not safe)) - (##car _e99702100759_)))) + (##car _e99684100741_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl99700100766_)) - (let ((___splice102940102941_ + _tl99682100748_)) + (let ((___splice102922102923_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl99700100766_ + _tl99682100748_ '0)))) - (let ((_tl99705100772_ + (let ((_tl99687100754_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice102940102941_ '1))) - (_target99703100769_ + (##vector-ref ___splice102922102923_ '1))) + (_target99685100751_ (let () (declare (not safe)) - (##vector-ref ___splice102940102941_ '0)))) + (##vector-ref ___splice102922102923_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl99705100772_)) - (letrec ((_loop99706100775_ - (lambda (_hd99704100779_ - _implementation99710100782_ - _method99711100784_) + (gx#stx-null? _tl99687100754_)) + (letrec ((_loop99688100757_ + (lambda (_hd99686100761_ + _implementation99692100764_ + _method99693100766_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99704100779_)) - (let ((_e99707100787_ + (gx#stx-pair? _hd99686100761_)) + (let ((_e99689100769_ (let () (declare (not safe)) - (gx#syntax-e _hd99704100779_)))) - (let ((_lp-tl99709100794_ + (gx#syntax-e _hd99686100761_)))) + (let ((_lp-tl99691100776_ (let () (declare (not safe)) - (##cdr _e99707100787_))) - (_lp-hd99708100791_ + (##cdr _e99689100769_))) + (_lp-hd99690100773_ (let () (declare (not safe)) - (##car _e99707100787_)))) + (##car _e99689100769_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd99708100791_)) - (let ((_e99716100797_ + _lp-hd99690100773_)) + (let ((_e99698100779_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd99708100791_)))) - (let ((_tl99714100804_ + _lp-hd99690100773_)))) + (let ((_tl99696100786_ (let () (declare (not safe)) - (##cdr _e99716100797_))) - (_hd99715100801_ + (##cdr _e99698100779_))) + (_hd99697100783_ (let () (declare (not safe)) - (##car _e99716100797_)))) + (##car _e99698100779_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl99714100804_)) - (let ((_e99719100807_ + _tl99696100786_)) + (let ((_e99701100789_ (let () (declare (not safe)) (gx#syntax-e - _tl99714100804_)))) - (let ((_tl99717100814_ + _tl99696100786_)))) + (let ((_tl99699100796_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e99719100807_))) - (_hd99718100811_ - (let () (declare (not safe)) (##car _e99719100807_)))) + (##cdr _e99701100789_))) + (_hd99700100793_ + (let () (declare (not safe)) (##car _e99701100789_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl99717100814_)) - (_loop99706100775_ - _lp-tl99709100794_ + (gx#stx-null? _tl99699100796_)) + (_loop99688100757_ + _lp-tl99691100776_ (let () (declare (not safe)) - (cons _hd99718100811_ _implementation99710100782_)) + (cons _hd99700100793_ _implementation99692100764_)) (let () (declare (not safe)) - (cons _hd99715100801_ _method99711100784_))) - (let () (declare (not safe)) (_g9965599849_))))) + (cons _hd99697100783_ _method99693100766_))) + (let () (declare (not safe)) (_g9963799831_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9965599849_))))) + (_g9963799831_))))) (let () (declare (not safe)) - (_g9965599849_))))) - (let ((_method99713100820_ - (reverse _method99711100784_)) - (_implementation99712100817_ - (reverse _implementation99710100782_))) - (___kont102936102937_ - _implementation99712100817_ - _method99713100820_ - _hd99701100763_ - _super99699100755_ - _hd99689100723_)))))) - (_loop99706100775_ _target99703100769_ '() '())) - (let () (declare (not safe)) (_g9965599849_))))) + (_g9963799831_))))) + (let ((_method99695100802_ + (reverse _method99693100766_)) + (_implementation99694100799_ + (reverse _implementation99692100764_))) + (___kont102918102919_ + _implementation99694100799_ + _method99695100802_ + _hd99683100745_ + _super99681100737_ + _hd99671100705_)))))) + (_loop99688100757_ _target99685100751_ '() '())) + (let () (declare (not safe)) (_g9963799831_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9965599849_))))) + (_g9963799831_))))) (let () (declare (not safe)) - (_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_)) + (_g9963799831_)))))))) + (_loop99676100717_ _target99673100711_ '())))) + (___match102964102965_ + (lambda (_e99645101011_ + _hd99644101015_ + _tl99643101018_ + _e99648101021_ + _hd99647101025_ + _tl99646101028_ + _e99651101031_ + _hd99650101035_ + _tl99649101038_ + _e99654101041_ + _hd99653101045_ + _tl99652101048_) + (let ((_L101051_ _tl99652101048_) + (_L101053_ _hd99653101045_) + (_L101054_ _hd99650101035_) + (_L101055_ _hd99647101025_)) (if (let () (declare (not safe)) - (gx#identifier? _L101072_)) - (___kont102934102935_ - _L101069_ - _L101071_ - _L101072_ - _L101073_) + (gx#identifier? _L101054_)) + (___kont102916102917_ + _L101051_ + _L101053_ + _L101054_ + _L101055_) (if (let () (declare (not safe)) - (gx#stx-datum? _hd99665101043_)) - (let ((_e99684100705_ + (gx#stx-datum? _hd99647101025_)) + (let ((_e99666100687_ (let () (declare (not safe)) - (gx#stx-e _hd99665101043_)))) + (gx#stx-e _hd99647101025_)))) (if (let () (declare (not safe)) - (equal? _e99684100705_ '#f)) + (equal? _e99666100687_ '#f)) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99668101053_)) - (let ((_e99690100719_ + (gx#stx-pair? _hd99650101035_)) + (let ((_e99672100701_ (let () (declare (not safe)) (gx#syntax-e - _hd99668101053_)))) - (let ((_tl99688100726_ + _hd99650101035_)))) + (let ((_tl99670100708_ (let () (declare (not safe)) - (##cdr _e99690100719_))) - (_hd99689100723_ + (##cdr _e99672100701_))) + (_hd99671100705_ (let () (declare (not safe)) - (##car _e99690100719_)))) + (##car _e99672100701_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl99688100726_)) - (let ((___splice102938102939_ + _tl99670100708_)) + (let ((___splice102920102921_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl99688100726_ + _tl99670100708_ '0)))) - (let ((_tl99693100732_ + (let ((_tl99675100714_ (let () (declare (not safe)) (##vector-ref - ___splice102938102939_ + ___splice102920102921_ '1))) - (_target99691100729_ + (_target99673100711_ (let () (declare (not safe)) (##vector-ref - ___splice102938102939_ + ___splice102920102921_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl99693100732_)) - (___match103020103021_ - _e99663101029_ - _hd99662101033_ - _tl99661101036_ - _e99666101039_ - _hd99665101043_ - _tl99664101046_ - _e99684100705_ - _e99669101049_ - _hd99668101053_ - _tl99667101056_ - _e99690100719_ - _hd99689100723_ - _tl99688100726_ - ___splice102938102939_ - _target99691100729_ - _tl99693100732_) + _tl99675100714_)) + (___match103002103003_ + _e99645101011_ + _hd99644101015_ + _tl99643101018_ + _e99648101021_ + _hd99647101025_ + _tl99646101028_ + _e99666100687_ + _e99651101031_ + _hd99650101035_ + _tl99649101038_ + _e99672100701_ + _hd99671100705_ + _tl99670100708_ + ___splice102920102921_ + _target99673100711_ + _tl99675100714_) (let () (declare (not safe)) - (_g9965599849_))))) + (_g9963799831_))))) (let () (declare (not safe)) - (_g9965599849_))))) + (_g9963799831_))))) (let () (declare (not safe)) - (_g9965599849_))) + (_g9963799831_))) (let () (declare (not safe)) - (_g9965599849_)))) + (_g9963799831_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99665101043_)) - (let ((_e99735100300_ + (gx#stx-pair? _hd99647101025_)) + (let ((_e99717100282_ (let () (declare (not safe)) - (gx#syntax-e _hd99665101043_)))) - (let ((_tl99733100307_ + (gx#syntax-e _hd99647101025_)))) + (let ((_tl99715100289_ (let () (declare (not safe)) - (##cdr _e99735100300_))) - (_hd99734100304_ + (##cdr _e99717100282_))) + (_hd99716100286_ (let () (declare (not safe)) - (##car _e99735100300_)))) + (##car _e99717100282_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl99733100307_)) - (let ((___splice102944102945_ + _tl99715100289_)) + (let ((___splice102926102927_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl99733100307_ + _tl99715100289_ '0)))) - (let ((_tl99738100313_ + (let ((_tl99720100295_ (let () (declare (not safe)) (##vector-ref - ___splice102944102945_ + ___splice102926102927_ '1))) - (_target99736100310_ + (_target99718100292_ (let () (declare (not safe)) (##vector-ref - ___splice102944102945_ + ___splice102926102927_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl99738100313_)) - (___match103046103047_ - _e99663101029_ - _hd99662101033_ - _tl99661101036_ - _e99666101039_ - _hd99665101043_ - _tl99664101046_ - _e99735100300_ - _hd99734100304_ - _tl99733100307_ - ___splice102944102945_ - _target99736100310_ - _tl99738100313_) + _tl99720100295_)) + (___match103028103029_ + _e99645101011_ + _hd99644101015_ + _tl99643101018_ + _e99648101021_ + _hd99647101025_ + _tl99646101028_ + _e99717100282_ + _hd99716100286_ + _tl99715100289_ + ___splice102926102927_ + _target99718100292_ + _tl99720100295_) (let () (declare (not safe)) - (_g9965599849_))))) + (_g9963799831_))))) (let () (declare (not safe)) - (_g9965599849_))))) + (_g9963799831_))))) (let () (declare (not safe)) - (_g9965599849_))))))))) + (_g9963799831_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx102931102932_)) - (let ((_e99663101029_ + (gx#stx-pair? ___stx102913102914_)) + (let ((_e99645101011_ (let () (declare (not safe)) - (gx#syntax-e ___stx102931102932_)))) - (let ((_tl99661101036_ + (gx#syntax-e ___stx102913102914_)))) + (let ((_tl99643101018_ (let () (declare (not safe)) - (##cdr _e99663101029_))) - (_hd99662101033_ + (##cdr _e99645101011_))) + (_hd99644101015_ (let () (declare (not safe)) - (##car _e99663101029_)))) + (##car _e99645101011_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl99661101036_)) - (let ((_e99666101039_ + (gx#stx-pair? _tl99643101018_)) + (let ((_e99648101021_ (let () (declare (not safe)) - (gx#syntax-e _tl99661101036_)))) - (let ((_tl99664101046_ + (gx#syntax-e _tl99643101018_)))) + (let ((_tl99646101028_ (let () (declare (not safe)) - (##cdr _e99666101039_))) - (_hd99665101043_ + (##cdr _e99648101021_))) + (_hd99647101025_ (let () (declare (not safe)) - (##car _e99666101039_)))) + (##car _e99648101021_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl99664101046_)) - (let ((_e99669101049_ + (gx#stx-pair? _tl99646101028_)) + (let ((_e99651101031_ (let () (declare (not safe)) - (gx#syntax-e _tl99664101046_)))) - (let ((_tl99667101056_ + (gx#syntax-e _tl99646101028_)))) + (let ((_tl99649101038_ (let () (declare (not safe)) - (##cdr _e99669101049_))) - (_hd99668101053_ + (##cdr _e99651101031_))) + (_hd99650101035_ (let () (declare (not safe)) - (##car _e99669101049_)))) + (##car _e99651101031_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl99667101056_)) - (let ((_e99672101059_ + (gx#stx-pair? _tl99649101038_)) + (let ((_e99654101041_ (let () (declare (not safe)) (gx#syntax-e - _tl99667101056_)))) - (let ((_tl99670101066_ + _tl99649101038_)))) + (let ((_tl99652101048_ (let () (declare (not safe)) - (##cdr _e99672101059_))) - (_hd99671101063_ + (##cdr _e99654101041_))) + (_hd99653101045_ (let () (declare (not safe)) - (##car _e99672101059_)))) - (___match102982102983_ - _e99663101029_ - _hd99662101033_ - _tl99661101036_ - _e99666101039_ - _hd99665101043_ - _tl99664101046_ - _e99669101049_ - _hd99668101053_ - _tl99667101056_ - _e99672101059_ - _hd99671101063_ - _tl99670101066_))) + (##car _e99654101041_)))) + (___match102964102965_ + _e99645101011_ + _hd99644101015_ + _tl99643101018_ + _e99648101021_ + _hd99647101025_ + _tl99646101028_ + _e99651101031_ + _hd99650101035_ + _tl99649101038_ + _e99654101041_ + _hd99653101045_ + _tl99652101048_))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd99665101043_)) - (let ((_e99684100705_ + _hd99647101025_)) + (let ((_e99666100687_ (let () (declare (not safe)) (gx#stx-e - _hd99665101043_)))) + _hd99647101025_)))) (if (let () (declare (not safe)) - (equal? _e99684100705_ + (equal? _e99666100687_ '#f)) (if (let () (declare (not safe)) (gx#stx-pair? - _hd99668101053_)) - (let ((_e99690100719_ + _hd99650101035_)) + (let ((_e99672100701_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd99668101053_)))) - (let ((_tl99688100726_ - (let () (declare (not safe)) (##cdr _e99690100719_))) - (_hd99689100723_ - (let () (declare (not safe)) (##car _e99690100719_)))) + (gx#syntax-e _hd99650101035_)))) + (let ((_tl99670100708_ + (let () (declare (not safe)) (##cdr _e99672100701_))) + (_hd99671100705_ + (let () (declare (not safe)) (##car _e99672100701_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl99688100726_)) - (let ((___splice102938102939_ + (gx#stx-pair/null? _tl99670100708_)) + (let ((___splice102920102921_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl99688100726_ '0)))) - (let ((_tl99693100732_ + (gx#syntax-split-splice _tl99670100708_ '0)))) + (let ((_tl99675100714_ (let () (declare (not safe)) - (##vector-ref ___splice102938102939_ '1))) - (_target99691100729_ + (##vector-ref ___splice102920102921_ '1))) + (_target99673100711_ (let () (declare (not safe)) - (##vector-ref ___splice102938102939_ '0)))) + (##vector-ref ___splice102920102921_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl99693100732_)) - (___match103020103021_ - _e99663101029_ - _hd99662101033_ - _tl99661101036_ - _e99666101039_ - _hd99665101043_ - _tl99664101046_ - _e99684100705_ - _e99669101049_ - _hd99668101053_ - _tl99667101056_ - _e99690100719_ - _hd99689100723_ - _tl99688100726_ - ___splice102938102939_ - _target99691100729_ - _tl99693100732_) + (gx#stx-null? _tl99675100714_)) + (___match103002103003_ + _e99645101011_ + _hd99644101015_ + _tl99643101018_ + _e99648101021_ + _hd99647101025_ + _tl99646101028_ + _e99666100687_ + _e99651101031_ + _hd99650101035_ + _tl99649101038_ + _e99672100701_ + _hd99671100705_ + _tl99670100708_ + ___splice102920102921_ + _target99673100711_ + _tl99675100714_) (let () (declare (not safe)) - (_g9965599849_))))) - (let () (declare (not safe)) (_g9965599849_))))) - (let () (declare (not safe)) (_g9965599849_))) + (_g9963799831_))))) + (let () (declare (not safe)) (_g9963799831_))))) + (let () (declare (not safe)) (_g9963799831_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9965599849_)))) + (_g9963799831_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd99665101043_)) - (let ((_e99735100300_ + _hd99647101025_)) + (let ((_e99717100282_ (let () (declare (not safe)) (gx#syntax-e - _hd99665101043_)))) - (let ((_tl99733100307_ + _hd99647101025_)))) + (let ((_tl99715100289_ (let () (declare (not safe)) - (##cdr _e99735100300_))) - (_hd99734100304_ + (##cdr _e99717100282_))) + (_hd99716100286_ (let () (declare (not safe)) - (##car _e99735100300_)))) + (##car _e99717100282_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl99733100307_)) - (let ((___splice102944102945_ + _tl99715100289_)) + (let ((___splice102926102927_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _tl99733100307_ '0)))) - (let ((_tl99738100313_ + (gx#syntax-split-splice _tl99715100289_ '0)))) + (let ((_tl99720100295_ (let () (declare (not safe)) - (##vector-ref ___splice102944102945_ '1))) - (_target99736100310_ + (##vector-ref ___splice102926102927_ '1))) + (_target99718100292_ (let () (declare (not safe)) - (##vector-ref ___splice102944102945_ '0)))) + (##vector-ref ___splice102926102927_ '0)))) (if (let () (declare (not safe)) - (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_))))) + (gx#stx-null? _tl99720100295_)) + (___match103028103029_ + _e99645101011_ + _hd99644101015_ + _tl99643101018_ + _e99648101021_ + _hd99647101025_ + _tl99646101028_ + _e99717100282_ + _hd99716100286_ + _tl99715100289_ + ___splice102926102927_ + _target99718100292_ + _tl99720100295_) + (let () (declare (not safe)) (_g9963799831_))))) + (let () (declare (not safe)) (_g9963799831_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g9965599849_))))))) + (_g9963799831_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd99665101043_)) - (let ((_e99684100705_ + (gx#stx-datum? _hd99647101025_)) + (let ((_e99666100687_ (let () (declare (not safe)) - (gx#stx-e _hd99665101043_)))) + (gx#stx-e _hd99647101025_)))) (declare (not safe)) - (_g9965599849_)) + (_g9963799831_)) (if (let () (declare (not safe)) - (gx#stx-pair? _hd99665101043_)) - (let ((_e99735100300_ + (gx#stx-pair? _hd99647101025_)) + (let ((_e99717100282_ (let () (declare (not safe)) (gx#syntax-e - _hd99665101043_)))) - (let ((_tl99733100307_ + _hd99647101025_)))) + (let ((_tl99715100289_ (let () (declare (not safe)) - (##cdr _e99735100300_))) - (_hd99734100304_ + (##cdr _e99717100282_))) + (_hd99716100286_ (let () (declare (not safe)) - (##car _e99735100300_)))) + (##car _e99717100282_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl99733100307_)) - (let ((___splice102944102945_ + _tl99715100289_)) + (let ((___splice102926102927_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl99733100307_ + _tl99715100289_ '0)))) - (let ((_tl99738100313_ + (let ((_tl99720100295_ (let () (declare (not safe)) (##vector-ref - ___splice102944102945_ + ___splice102926102927_ '1))) - (_target99736100310_ + (_target99718100292_ (let () (declare (not safe)) (##vector-ref - ___splice102944102945_ + ___splice102926102927_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl99738100313_)) - (___match103046103047_ - _e99663101029_ - _hd99662101033_ - _tl99661101036_ - _e99666101039_ - _hd99665101043_ - _tl99664101046_ - _e99735100300_ - _hd99734100304_ - _tl99733100307_ - ___splice102944102945_ - _target99736100310_ - _tl99738100313_) + _tl99720100295_)) + (___match103028103029_ + _e99645101011_ + _hd99644101015_ + _tl99643101018_ + _e99648101021_ + _hd99647101025_ + _tl99646101028_ + _e99717100282_ + _hd99716100286_ + _tl99715100289_ + ___splice102926102927_ + _target99718100292_ + _tl99720100295_) (let () (declare (not safe)) - (_g9965599849_))))) + (_g9963799831_))))) (let () (declare (not safe)) - (_g9965599849_))))) + (_g9963799831_))))) (let () (declare (not safe)) - (_g9965599849_))))))) - (let () (declare (not safe)) (_g9965599849_))))) - (let () (declare (not safe)) (_g9965599849_)))))))) + (_g9963799831_))))))) + (let () (declare (not safe)) (_g9963799831_))))) + (let () (declare (not safe)) (_g9963799831_)))))))) (define |gxc[:0:]#::void-expression| - (let ((__obj103074 + (let ((__obj103056 (let () (declare (not safe)) (##structure @@ -3003,7 +3003,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103056 '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! - __obj103074 + __obj103056 '::void-expression '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3019,7 +3019,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103056 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -3027,7 +3027,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103056 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3035,7 +3035,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103056 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3043,7 +3043,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103056 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3051,7 +3051,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103056 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3059,39 +3059,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103056 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103373 |gxc[1]#_g103374_|)) + (let ((__tmp103355 |gxc[1]#_g103356_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103074 - __tmp103373 + __obj103056 + __tmp103355 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103375 |gxc[1]#_g103376_|)) + (let ((__tmp103357 |gxc[1]#_g103358_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103074 - __tmp103375 + __obj103056 + __tmp103357 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103377 |gxc[1]#_g103378_|)) + (let ((__tmp103359 |gxc[1]#_g103360_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103074 - __tmp103377 + __obj103056 + __tmp103359 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103056 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -3099,7 +3099,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103056 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -3107,7 +3107,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103056 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -3115,14 +3115,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103074 + __obj103056 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103074)) + __obj103056)) (define |gxc[:0:]#::void-special-form| - (let ((__obj103075 + (let ((__obj103057 (let () (declare (not safe)) (##structure @@ -3146,7 +3146,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103057 '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! - __obj103075 + __obj103057 '::void-special-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3162,7 +3162,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103057 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -3170,7 +3170,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103057 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3178,7 +3178,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103057 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3186,7 +3186,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103057 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3194,7 +3194,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103057 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3202,39 +3202,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103057 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103379 |gxc[1]#_g103380_|)) + (let ((__tmp103361 |gxc[1]#_g103362_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103075 - __tmp103379 + __obj103057 + __tmp103361 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103381 |gxc[1]#_g103382_|)) + (let ((__tmp103363 |gxc[1]#_g103364_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103075 - __tmp103381 + __obj103057 + __tmp103363 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103383 |gxc[1]#_g103384_|)) + (let ((__tmp103365 |gxc[1]#_g103366_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103075 - __tmp103383 + __obj103057 + __tmp103365 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103057 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -3242,7 +3242,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103057 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -3250,7 +3250,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103057 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -3258,14 +3258,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103075 + __obj103057 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103075)) + __obj103057)) (define |gxc[:0:]#::void| - (let ((__obj103076 + (let ((__obj103058 (let () (declare (not safe)) (##structure @@ -3289,7 +3289,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103058 'gxc#::void::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3297,7 +3297,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103058 '::void '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3305,30 +3305,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103058 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103385 - (let ((__tmp103389 |gxc[1]#_g103390_|) - (__tmp103386 - (let ((__tmp103387 |gxc[1]#_g103388_|)) + (let ((__tmp103367 + (let ((__tmp103371 |gxc[1]#_g103372_|) + (__tmp103368 + (let ((__tmp103369 |gxc[1]#_g103370_|)) (declare (not safe)) - (cons __tmp103387 '())))) + (cons __tmp103369 '())))) (declare (not safe)) - (cons __tmp103389 __tmp103386)))) + (cons __tmp103371 __tmp103368)))) (declare (not safe)) (##unchecked-structure-set! - __obj103076 - __tmp103385 + __obj103058 + __tmp103367 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103058 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3336,7 +3336,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103058 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3344,7 +3344,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103058 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3352,39 +3352,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103058 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103391 |gxc[1]#_g103392_|)) + (let ((__tmp103373 |gxc[1]#_g103374_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103076 - __tmp103391 + __obj103058 + __tmp103373 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103393 |gxc[1]#_g103394_|)) + (let ((__tmp103375 |gxc[1]#_g103376_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103076 - __tmp103393 + __obj103058 + __tmp103375 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103395 |gxc[1]#_g103396_|)) + (let ((__tmp103377 |gxc[1]#_g103378_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103076 - __tmp103395 + __obj103058 + __tmp103377 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103058 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -3392,7 +3392,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103058 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -3400,7 +3400,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103058 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -3408,14 +3408,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103076 + __obj103058 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103076)) + __obj103058)) (define |gxc[:0:]#::false-expression| - (let ((__obj103077 + (let ((__obj103059 (let () (declare (not safe)) (##structure @@ -3439,7 +3439,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103059 '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! - __obj103077 + __obj103059 '::false-expression '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3455,7 +3455,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103059 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -3463,7 +3463,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103059 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3471,7 +3471,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103059 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3479,7 +3479,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103059 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3487,7 +3487,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103059 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3495,39 +3495,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103059 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103397 |gxc[1]#_g103398_|)) + (let ((__tmp103379 |gxc[1]#_g103380_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103077 - __tmp103397 + __obj103059 + __tmp103379 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103399 |gxc[1]#_g103400_|)) + (let ((__tmp103381 |gxc[1]#_g103382_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103077 - __tmp103399 + __obj103059 + __tmp103381 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103401 |gxc[1]#_g103402_|)) + (let ((__tmp103383 |gxc[1]#_g103384_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103077 - __tmp103401 + __obj103059 + __tmp103383 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103059 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -3535,7 +3535,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103059 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -3543,7 +3543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103059 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -3551,14 +3551,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103077 + __obj103059 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103077)) + __obj103059)) (define |gxc[:0:]#::false-special-form| - (let ((__obj103078 + (let ((__obj103060 (let () (declare (not safe)) (##structure @@ -3582,7 +3582,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103060 '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! - __obj103078 + __obj103060 '::false-special-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3598,7 +3598,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103060 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -3606,7 +3606,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103060 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3614,7 +3614,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103060 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3622,7 +3622,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103060 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3630,7 +3630,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103060 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3638,39 +3638,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103060 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103403 |gxc[1]#_g103404_|)) + (let ((__tmp103385 |gxc[1]#_g103386_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103078 - __tmp103403 + __obj103060 + __tmp103385 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103405 |gxc[1]#_g103406_|)) + (let ((__tmp103387 |gxc[1]#_g103388_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103078 - __tmp103405 + __obj103060 + __tmp103387 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103407 |gxc[1]#_g103408_|)) + (let ((__tmp103389 |gxc[1]#_g103390_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103078 - __tmp103407 + __obj103060 + __tmp103389 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103060 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -3678,7 +3678,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103060 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -3686,7 +3686,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103060 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -3694,14 +3694,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103078 + __obj103060 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103078)) + __obj103060)) (define |gxc[:0:]#::false| - (let ((__obj103079 + (let ((__obj103061 (let () (declare (not safe)) (##structure @@ -3725,7 +3725,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103061 'gxc#::false::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3733,7 +3733,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103061 '::false '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3741,30 +3741,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103061 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103409 - (let ((__tmp103413 |gxc[1]#_g103414_|) - (__tmp103410 - (let ((__tmp103411 |gxc[1]#_g103412_|)) + (let ((__tmp103391 + (let ((__tmp103395 |gxc[1]#_g103396_|) + (__tmp103392 + (let ((__tmp103393 |gxc[1]#_g103394_|)) (declare (not safe)) - (cons __tmp103411 '())))) + (cons __tmp103393 '())))) (declare (not safe)) - (cons __tmp103413 __tmp103410)))) + (cons __tmp103395 __tmp103392)))) (declare (not safe)) (##unchecked-structure-set! - __obj103079 - __tmp103409 + __obj103061 + __tmp103391 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103061 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3772,7 +3772,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103061 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3780,7 +3780,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103061 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3788,39 +3788,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103061 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103415 |gxc[1]#_g103416_|)) + (let ((__tmp103397 |gxc[1]#_g103398_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103079 - __tmp103415 + __obj103061 + __tmp103397 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103417 |gxc[1]#_g103418_|)) + (let ((__tmp103399 |gxc[1]#_g103400_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103079 - __tmp103417 + __obj103061 + __tmp103399 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103419 |gxc[1]#_g103420_|)) + (let ((__tmp103401 |gxc[1]#_g103402_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103079 - __tmp103419 + __obj103061 + __tmp103401 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103061 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -3828,7 +3828,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103061 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -3836,7 +3836,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103061 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -3844,14 +3844,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103079 + __obj103061 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103079)) + __obj103061)) (define |gxc[:0:]#::identity-expression| - (let ((__obj103080 + (let ((__obj103062 (let () (declare (not safe)) (##structure @@ -3875,7 +3875,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103062 '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! - __obj103080 + __obj103062 '::identity-expression '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3891,7 +3891,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103062 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -3899,7 +3899,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103062 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3907,7 +3907,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103062 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3915,7 +3915,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103062 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3923,7 +3923,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103062 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3931,39 +3931,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103062 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103421 |gxc[1]#_g103422_|)) + (let ((__tmp103403 |gxc[1]#_g103404_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103080 - __tmp103421 + __obj103062 + __tmp103403 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103423 |gxc[1]#_g103424_|)) + (let ((__tmp103405 |gxc[1]#_g103406_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103080 - __tmp103423 + __obj103062 + __tmp103405 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103425 |gxc[1]#_g103426_|)) + (let ((__tmp103407 |gxc[1]#_g103408_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103080 - __tmp103425 + __obj103062 + __tmp103407 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103062 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -3971,7 +3971,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103062 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -3979,7 +3979,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103062 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -3987,14 +3987,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103080 + __obj103062 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103080)) + __obj103062)) (define |gxc[:0:]#::identity-special-form| - (let ((__obj103081 + (let ((__obj103063 (let () (declare (not safe)) (##structure @@ -4018,7 +4018,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103081 + __obj103063 '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! - __obj103081 + __obj103063 '::identity-special-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4034,7 +4034,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103081 + __obj103063 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -4042,7 +4042,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103081 + __obj103063 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -4050,7 +4050,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103081 + __obj103063 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4058,7 +4058,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103081 + __obj103063 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4066,7 +4066,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103081 + __obj103063 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4074,39 +4074,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103081 + __obj103063 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103427 |gxc[1]#_g103428_|)) + (let ((__tmp103409 |gxc[1]#_g103410_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103081 - __tmp103427 + __obj103063 + __tmp103409 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103429 |gxc[1]#_g103430_|)) + (let ((__tmp103411 |gxc[1]#_g103412_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103081 - __tmp103429 + __obj103063 + __tmp103411 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103431 |gxc[1]#_g103432_|)) + (let ((__tmp103413 |gxc[1]#_g103414_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103081 - __tmp103431 + __obj103063 + __tmp103413 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103081 + __obj103063 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -4114,7 +4114,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103081 + __obj103063 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -4122,7 +4122,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103081 + __obj103063 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -4130,14 +4130,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103081 + __obj103063 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103081)) + __obj103063)) (define |gxc[:0:]#::identity| - (let ((__obj103082 + (let ((__obj103064 (let () (declare (not safe)) (##structure @@ -4161,7 +4161,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103082 + __obj103064 'gxc#::identity::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -4169,7 +4169,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103082 + __obj103064 '::identity '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4177,30 +4177,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103082 + __obj103064 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103433 - (let ((__tmp103437 |gxc[1]#_g103438_|) - (__tmp103434 - (let ((__tmp103435 |gxc[1]#_g103436_|)) + (let ((__tmp103415 + (let ((__tmp103419 |gxc[1]#_g103420_|) + (__tmp103416 + (let ((__tmp103417 |gxc[1]#_g103418_|)) (declare (not safe)) - (cons __tmp103435 '())))) + (cons __tmp103417 '())))) (declare (not safe)) - (cons __tmp103437 __tmp103434)))) + (cons __tmp103419 __tmp103416)))) (declare (not safe)) (##unchecked-structure-set! - __obj103082 - __tmp103433 + __obj103064 + __tmp103415 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103082 + __obj103064 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4208,7 +4208,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103082 + __obj103064 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4216,7 +4216,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103082 + __obj103064 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4224,39 +4224,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103082 + __obj103064 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103439 |gxc[1]#_g103440_|)) + (let ((__tmp103421 |gxc[1]#_g103422_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103082 - __tmp103439 + __obj103064 + __tmp103421 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103441 |gxc[1]#_g103442_|)) + (let ((__tmp103423 |gxc[1]#_g103424_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103082 - __tmp103441 + __obj103064 + __tmp103423 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103443 |gxc[1]#_g103444_|)) + (let ((__tmp103425 |gxc[1]#_g103426_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103082 - __tmp103443 + __obj103064 + __tmp103425 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103082 + __obj103064 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -4264,7 +4264,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103082 + __obj103064 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -4272,7 +4272,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103082 + __obj103064 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -4280,14 +4280,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103082 + __obj103064 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103082)) + __obj103064)) (define |gxc[:0:]#::basic-xform-expression| - (let ((__obj103083 + (let ((__obj103065 (let () (declare (not safe)) (##structure @@ -4311,7 +4311,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103083 + __obj103065 '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! - __obj103083 + __obj103065 '::basic-xform-expression '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4327,7 +4327,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103083 + __obj103065 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -4335,7 +4335,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103083 + __obj103065 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -4343,7 +4343,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103083 + __obj103065 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4351,7 +4351,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103083 + __obj103065 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4359,7 +4359,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103083 + __obj103065 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4367,39 +4367,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103083 + __obj103065 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103445 |gxc[1]#_g103446_|)) + (let ((__tmp103427 |gxc[1]#_g103428_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103083 - __tmp103445 + __obj103065 + __tmp103427 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103447 |gxc[1]#_g103448_|)) + (let ((__tmp103429 |gxc[1]#_g103430_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103083 - __tmp103447 + __obj103065 + __tmp103429 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103449 |gxc[1]#_g103450_|)) + (let ((__tmp103431 |gxc[1]#_g103432_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103083 - __tmp103449 + __obj103065 + __tmp103431 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103083 + __obj103065 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -4407,7 +4407,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103083 + __obj103065 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -4415,7 +4415,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103083 + __obj103065 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -4423,14 +4423,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103083 + __obj103065 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103083)) + __obj103065)) (define |gxc[:0:]#::basic-xform| - (let ((__obj103084 + (let ((__obj103066 (let () (declare (not safe)) (##structure @@ -4454,7 +4454,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103084 + __obj103066 '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! - __obj103084 + __obj103066 '::basic-xform '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4470,30 +4470,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103084 + __obj103066 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103451 - (let ((__tmp103455 |gxc[1]#_g103456_|) - (__tmp103452 - (let ((__tmp103453 |gxc[1]#_g103454_|)) + (let ((__tmp103433 + (let ((__tmp103437 |gxc[1]#_g103438_|) + (__tmp103434 + (let ((__tmp103435 |gxc[1]#_g103436_|)) (declare (not safe)) - (cons __tmp103453 '())))) + (cons __tmp103435 '())))) (declare (not safe)) - (cons __tmp103455 __tmp103452)))) + (cons __tmp103437 __tmp103434)))) (declare (not safe)) (##unchecked-structure-set! - __obj103084 - __tmp103451 + __obj103066 + __tmp103433 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103084 + __obj103066 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4501,7 +4501,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103084 + __obj103066 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4509,7 +4509,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103084 + __obj103066 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4517,39 +4517,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103084 + __obj103066 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103457 |gxc[1]#_g103458_|)) + (let ((__tmp103439 |gxc[1]#_g103440_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103084 - __tmp103457 + __obj103066 + __tmp103439 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103459 |gxc[1]#_g103460_|)) + (let ((__tmp103441 |gxc[1]#_g103442_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103084 - __tmp103459 + __obj103066 + __tmp103441 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp103461 |gxc[1]#_g103462_|)) + (let ((__tmp103443 |gxc[1]#_g103444_|)) (declare (not safe)) (##unchecked-structure-set! - __obj103084 - __tmp103461 + __obj103066 + __tmp103443 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj103084 + __obj103066 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -4557,7 +4557,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103084 + __obj103066 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -4565,7 +4565,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103084 + __obj103066 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -4573,9 +4573,9 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj103084 + __obj103066 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj103084)))) + __obj103066)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~0.scm b/src/bootstrap/gerbil/compiler/optimize-ann~0.scm index 134fea064..58968200a 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 1710833427) + (define gerbil/compiler/optimize-ann::timestamp 1710943501) (begin (declare (inlining-limit 200)) (define gxc#::optimize-annotated::t - (let ((__tmp152105 (list gxc#::basic-xform::t)) - (__tmp152103 - (let ((__tmp152104 + (let ((__tmp152087 (list gxc#::basic-xform::t)) + (__tmp152085 + (let ((__tmp152086 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp152104 '())))) + (cons __tmp152086 '())))) (declare (not safe)) (make-class-type 'gxc#::optimize-annotated::t '::optimize-annotated - __tmp152105 + __tmp152087 '() - __tmp152103 + __tmp152085 '#f))) (define gxc#::optimize-annotated? (let () (declare (not safe)) (make-class-predicate gxc#::optimize-annotated::t))) (define gxc#make-::optimize-annotated - (lambda _$args148975_ - (apply make-instance gxc#::optimize-annotated::t _$args148975_))) + (lambda _$args148957_ + (apply make-instance gxc#::optimize-annotated::t _$args148957_))) (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 (_stx148967_) + (lambda (_stx148949_) (force gxc#::optimize-annotated-bind-methods!) - (let* ((_self148970_ - (let ((__obj152095 + (let* ((_self148952_ + (let ((__obj152077 (let () (declare (not safe)) (##structure gxc#::optimize-annotated::t)))) - __obj152095)) - (__tmp152106 + __obj152077)) + (__tmp152088 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self148970_ _stx148967_))))) + (gxc#compile-e__1 _self148952_ _stx148949_))))) (declare (not safe)) (call-with-parameters - __tmp152106 + __tmp152088 gxc#current-compile-method - _self148970_)))) + _self148952_)))) (define gxc#::generate-runtime-repr::t - (let ((__tmp152109 (list gxc#::generate-runtime::t)) - (__tmp152107 - (let ((__tmp152108 + (let ((__tmp152091 (list gxc#::generate-runtime::t)) + (__tmp152089 + (let ((__tmp152090 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp152108 '())))) + (cons __tmp152090 '())))) (declare (not safe)) (make-class-type 'gxc#::generate-runtime-repr::t '::generate-runtime-repr - __tmp152109 + __tmp152091 '() - __tmp152107 + __tmp152089 '#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 _$args148964_ - (apply make-instance gxc#::generate-runtime-repr::t _$args148964_))) + (lambda _$args148946_ + (apply make-instance gxc#::generate-runtime-repr::t _$args148946_))) (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 (_stx148956_) + (lambda (_stx148938_) (force gxc#::generate-runtime-repr-bind-methods!) - (let* ((_self148959_ - (let ((__obj152097 + (let* ((_self148941_ + (let ((__obj152079 (let () (declare (not safe)) (##structure gxc#::generate-runtime-repr::t)))) - __obj152097)) - (__tmp152110 + __obj152079)) + (__tmp152092 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self148959_ _stx148956_))))) + (gxc#compile-e__1 _self148941_ _stx148938_))))) (declare (not safe)) (call-with-parameters - __tmp152110 + __tmp152092 gxc#current-compile-method - _self148959_)))) + _self148941_)))) (define gxc#::push-match-vars::t - (let ((__tmp152113 (list)) - (__tmp152111 - (let ((__tmp152112 + (let ((__tmp152095 (list)) + (__tmp152093 + (let ((__tmp152094 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp152112 '())))) + (cons __tmp152094 '())))) (declare (not safe)) (make-class-type 'gxc#::push-match-vars::t '::push-match-vars - __tmp152113 + __tmp152095 '(vars K) - __tmp152111 + __tmp152093 '#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 _$args148953_ - (apply make-instance gxc#::push-match-vars::t _$args148953_))) + (lambda _$args148935_ + (apply make-instance gxc#::push-match-vars::t _$args148935_))) (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 (_g152114_ _vars148919148923_ _K148920148925_ _stx148927_) - (let* ((_vars148930_ + (lambda (_g152096_ _vars148901148905_ _K148902148907_ _stx148909_) + (let* ((_vars148912_ (if (let () (declare (not safe)) - (eq? _vars148919148923_ absent-value)) + (eq? _vars148901148905_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'vars:)) - _vars148919148923_)) - (_K148932_ + _vars148901148905_)) + (_K148914_ (if (let () (declare (not safe)) - (eq? _K148920148925_ absent-value)) + (eq? _K148902148907_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'K:)) - _K148920148925_))) + _K148902148907_))) (force gxc#::push-match-vars-bind-methods!) - (let* ((_self148934_ - (let ((__obj152099 + (let* ((_self148916_ + (let ((__obj152081 (let () (declare (not safe)) (##structure gxc#::push-match-vars::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152099 - _vars148930_ + __obj152081 + _vars148912_ '1 gxc#::push-match-vars::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152099 - _K148932_ + __obj152081 + _K148914_ '2 gxc#::push-match-vars::t '#f)) - __obj152099)) - (__tmp152115 + __obj152081)) + (__tmp152097 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self148934_ _stx148927_))))) + (gxc#compile-e__1 _self148916_ _stx148909_))))) (declare (not safe)) (call-with-parameters - __tmp152115 + __tmp152097 gxc#current-compile-method - _self148934_))))) + _self148916_))))) (define gxc#apply-push-match-vars__@ - (lambda (_keys148918148941_ . _args148943_) + (lambda (_keys148900148923_ . _args148925_) (apply gxc#apply-push-match-vars__% - _keys148918148941_ + _keys148900148923_ (let () (declare (not safe)) - (symbolic-table-ref _keys148918148941_ 'vars: absent-value)) + (symbolic-table-ref _keys148900148923_ 'vars: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys148918148941_ 'K: absent-value)) - _args148943_))) + (symbolic-table-ref _keys148900148923_ 'K: absent-value)) + _args148925_))) (define gxc#apply-push-match-vars - (lambda _args148921148949_ + (lambda _args148903148931_ (apply keyword-dispatch '#(K: vars:) gxc#apply-push-match-vars__@ - _args148921148949_))) + _args148903148931_))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_self148725_ _stx148726_) - (let* ((___stx148991148992_ _stx148726_) - (_g148730148771_ + (lambda (_self148707_ _stx148708_) + (let* ((___stx148973148974_ _stx148708_) + (_g148712148753_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx148991148992_))))) - (let ((___kont148993148994_ - (lambda (_L148893_ _L148894_) - (let ((_ann148908_ - (let () (declare (not safe)) (gx#stx-e _L148894_)))) - (let ((__tmp152118 + ___stx148973148974_))))) + (let ((___kont148975148976_ + (lambda (_L148875_ _L148876_) + (let ((_ann148890_ + (let () (declare (not safe)) (gx#stx-e _L148876_)))) + (let ((__tmp152100 (lambda () - (let ((_$e148911_ _ann148908_)) + (let ((_$e148893_ _ann148890_)) (if (let () (declare (not safe)) - (eq? '@match _$e148911_)) + (eq? '@match _$e148893_)) (begin (let () (declare (not safe)) @@ -298,10 +298,10 @@ '"Optimizing match expansion")) (let () (declare (not safe)) - (gxc#optimize-match _L148893_))) + (gxc#optimize-match _L148875_))) (if (let () (declare (not safe)) - (eq? '@syntax-case _$e148911_)) + (eq? '@syntax-case _$e148893_)) (begin (let () (declare (not safe)) @@ -310,2011 +310,2011 @@ (let () (declare (not safe)) (gxc#optimize-syntax-case - _L148893_))) + _L148875_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L148893_))))))) - (__tmp152116 - (let ((__tmp152117 + (gxc#compile-e__0 _L148875_))))))) + (__tmp152098 + (let ((__tmp152099 (gxc#current-annotation-optimizer))) (declare (not safe)) - (cons _ann148908_ __tmp152117)))) + (cons _ann148890_ __tmp152099)))) (declare (not safe)) (call-with-parameters - __tmp152118 + __tmp152100 gxc#current-annotation-optimizer - __tmp152116))))) - (___kont148995148996_ - (lambda (_L148839_ _L148840_ _L148841_) - (let () (declare (not safe)) (gxc#compile-e__0 _L148839_)))) - (___kont148999149000_ + __tmp152098))))) + (___kont148977148978_ + (lambda (_L148821_ _L148822_ _L148823_) + (let () (declare (not safe)) (gxc#compile-e__0 _L148821_)))) + (___kont148981148982_ (lambda () (let () (declare (not safe)) - (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_) + (gxc#xform-begin-annotation% _self148707_ _stx148708_))))) + (let* ((___match149028149029_ + (lambda (_e148730148765_ + _hd148729148768_ + _tl148728148770_ + _e148733148773_ + _hd148732148776_ + _tl148731148778_ + _e148736148781_ + _hd148735148784_ + _tl148734148786_ + ___splice148979148980_ + _target148737148789_ + _tl148739148791_) + (letrec ((_loop148740148794_ + (lambda (_hd148738148797_ _param148744148799_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148756148815_)) - (let ((_e148759148820_ + (gx#stx-pair? _hd148738148797_)) + (let ((_e148741148802_ (let () (declare (not safe)) - (gx#stx-e _hd148756148815_)))) - (let ((_lp-tl148761148825_ + (gx#stx-e _hd148738148797_)))) + (let ((_lp-tl148743148807_ (let () (declare (not safe)) - (##cdr _e148759148820_))) - (_lp-hd148760148823_ + (##cdr _e148741148802_))) + (_lp-hd148742148805_ (let () (declare (not safe)) - (##car _e148759148820_)))) - (let ((__tmp152120 + (##car _e148741148802_)))) + (let ((__tmp152102 (let () (declare (not safe)) - (cons _lp-hd148760148823_ - _param148762148817_)))) + (cons _lp-hd148742148805_ + _param148744148799_)))) (declare (not safe)) - (_loop148758148812_ - _lp-tl148761148825_ - __tmp152120)))) - (let ((_param148763148828_ - (reverse _param148762148817_))) + (_loop148740148794_ + _lp-tl148743148807_ + __tmp152102)))) + (let ((_param148745148810_ + (reverse _param148744148799_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148749148796_)) - (let ((_e148766148831_ + (gx#stx-pair? _tl148731148778_)) + (let ((_e148748148813_ (let () (declare (not safe)) (gx#stx-e - _tl148749148796_)))) - (let ((_tl148764148836_ + _tl148731148778_)))) + (let ((_tl148746148818_ (let () (declare (not safe)) - (##cdr _e148766148831_))) - (_hd148765148834_ + (##cdr _e148748148813_))) + (_hd148747148816_ (let () (declare (not safe)) - (##car _e148766148831_)))) + (##car _e148748148813_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148764148836_)) - (let ((_L148839_ - _hd148765148834_) - (_L148840_ - _param148763148828_) - (_L148841_ - _hd148753148802_)) + _tl148746148818_)) + (let ((_L148821_ + _hd148747148816_) + (_L148822_ + _param148745148810_) + (_L148823_ + _hd148735148784_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L148841_)) - (let ((__tmp152119 + (gx#identifier? _L148823_)) + (let ((__tmp152101 (memq (let () (declare (not safe)) - (gx#stx-e _L148841_)) + (gx#stx-e _L148823_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp152119))) - (___kont148995148996_ _L148839_ _L148840_ _L148841_) - (___kont148999149000_))) + (not __tmp152101))) + (___kont148977148978_ _L148821_ _L148822_ _L148823_) + (___kont148981148982_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148999149000_)))) - (___kont148999149000_))))))) + (___kont148981148982_)))) + (___kont148981148982_))))))) (let () (declare (not safe)) - (_loop148758148812_ _target148755148807_ '()))))) - (___match149020149021_ - (lambda (_e148736148869_ - _hd148735148872_ - _tl148734148874_ - _e148739148877_ - _hd148738148880_ - _tl148737148882_ - _e148742148885_ - _hd148741148888_ - _tl148740148890_) - (let ((_L148893_ _hd148741148888_) - (_L148894_ _hd148738148880_)) + (_loop148740148794_ _target148737148789_ '()))))) + (___match149002149003_ + (lambda (_e148718148851_ + _hd148717148854_ + _tl148716148856_ + _e148721148859_ + _hd148720148862_ + _tl148719148864_ + _e148724148867_ + _hd148723148870_ + _tl148722148872_) + (let ((_L148875_ _hd148723148870_) + (_L148876_ _hd148720148862_)) (if (let () (declare (not safe)) - (gx#identifier? _L148894_)) - (___kont148993148994_ _L148893_ _L148894_) + (gx#identifier? _L148876_)) + (___kont148975148976_ _L148875_ _L148876_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148738148880_)) - (let ((_e148754148799_ + (gx#stx-pair? _hd148720148862_)) + (let ((_e148736148781_ (let () (declare (not safe)) - (gx#stx-e _hd148738148880_)))) - (let ((_tl148752148804_ + (gx#stx-e _hd148720148862_)))) + (let ((_tl148734148786_ (let () (declare (not safe)) - (##cdr _e148754148799_))) - (_hd148753148802_ + (##cdr _e148736148781_))) + (_hd148735148784_ (let () (declare (not safe)) - (##car _e148754148799_)))) + (##car _e148736148781_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl148752148804_)) - (let ((___splice148997148998_ + (gx#stx-pair/null? _tl148734148786_)) + (let ((___splice148979148980_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl148752148804_ + _tl148734148786_ '0)))) - (let ((_tl148757148809_ + (let ((_tl148739148791_ (let () (declare (not safe)) (##vector-ref - ___splice148997148998_ + ___splice148979148980_ '1))) - (_target148755148807_ + (_target148737148789_ (let () (declare (not safe)) (##vector-ref - ___splice148997148998_ + ___splice148979148980_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148757148809_)) - (___match149046149047_ - _e148736148869_ - _hd148735148872_ - _tl148734148874_ - _e148739148877_ - _hd148738148880_ - _tl148737148882_ - _e148754148799_ - _hd148753148802_ - _tl148752148804_ - ___splice148997148998_ - _target148755148807_ - _tl148757148809_) - (___kont148999149000_)))) - (___kont148999149000_)))) - (___kont148999149000_))))))) + _tl148739148791_)) + (___match149028149029_ + _e148718148851_ + _hd148717148854_ + _tl148716148856_ + _e148721148859_ + _hd148720148862_ + _tl148719148864_ + _e148736148781_ + _hd148735148784_ + _tl148734148786_ + ___splice148979148980_ + _target148737148789_ + _tl148739148791_) + (___kont148981148982_)))) + (___kont148981148982_)))) + (___kont148981148982_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx148991148992_)) - (let ((_e148736148869_ + (gx#stx-pair? ___stx148973148974_)) + (let ((_e148718148851_ (let () (declare (not safe)) - (gx#stx-e ___stx148991148992_)))) - (let ((_tl148734148874_ + (gx#stx-e ___stx148973148974_)))) + (let ((_tl148716148856_ (let () (declare (not safe)) - (##cdr _e148736148869_))) - (_hd148735148872_ + (##cdr _e148718148851_))) + (_hd148717148854_ (let () (declare (not safe)) - (##car _e148736148869_)))) + (##car _e148718148851_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148734148874_)) - (let ((_e148739148877_ + (gx#stx-pair? _tl148716148856_)) + (let ((_e148721148859_ (let () (declare (not safe)) - (gx#stx-e _tl148734148874_)))) - (let ((_tl148737148882_ + (gx#stx-e _tl148716148856_)))) + (let ((_tl148719148864_ (let () (declare (not safe)) - (##cdr _e148739148877_))) - (_hd148738148880_ + (##cdr _e148721148859_))) + (_hd148720148862_ (let () (declare (not safe)) - (##car _e148739148877_)))) + (##car _e148721148859_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148737148882_)) - (let ((_e148742148885_ + (gx#stx-pair? _tl148719148864_)) + (let ((_e148724148867_ (let () (declare (not safe)) - (gx#stx-e _tl148737148882_)))) - (let ((_tl148740148890_ + (gx#stx-e _tl148719148864_)))) + (let ((_tl148722148872_ (let () (declare (not safe)) - (##cdr _e148742148885_))) - (_hd148741148888_ + (##cdr _e148724148867_))) + (_hd148723148870_ (let () (declare (not safe)) - (##car _e148742148885_)))) + (##car _e148724148867_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148740148890_)) - (___match149020149021_ - _e148736148869_ - _hd148735148872_ - _tl148734148874_ - _e148739148877_ - _hd148738148880_ - _tl148737148882_ - _e148742148885_ - _hd148741148888_ - _tl148740148890_) + (gx#stx-null? _tl148722148872_)) + (___match149002149003_ + _e148718148851_ + _hd148717148854_ + _tl148716148856_ + _e148721148859_ + _hd148720148862_ + _tl148719148864_ + _e148724148867_ + _hd148723148870_ + _tl148722148872_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd148738148880_)) - (let ((_e148754148799_ + _hd148720148862_)) + (let ((_e148736148781_ (let () (declare (not safe)) (gx#stx-e - _hd148738148880_)))) - (let ((_tl148752148804_ + _hd148720148862_)))) + (let ((_tl148734148786_ (let () (declare (not safe)) - (##cdr _e148754148799_))) - (_hd148753148802_ + (##cdr _e148736148781_))) + (_hd148735148784_ (let () (declare (not safe)) - (##car _e148754148799_)))) + (##car _e148736148781_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl148752148804_)) - (let ((___splice148997148998_ + _tl148734148786_)) + (let ((___splice148979148980_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl148752148804_ '0)))) - (let ((_tl148757148809_ + (gx#syntax-split-splice _tl148734148786_ '0)))) + (let ((_tl148739148791_ (let () (declare (not safe)) - (##vector-ref ___splice148997148998_ '1))) - (_target148755148807_ + (##vector-ref ___splice148979148980_ '1))) + (_target148737148789_ (let () (declare (not safe)) - (##vector-ref ___splice148997148998_ '0)))) + (##vector-ref ___splice148979148980_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148757148809_)) - (___match149046149047_ - _e148736148869_ - _hd148735148872_ - _tl148734148874_ - _e148739148877_ - _hd148738148880_ - _tl148737148882_ - _e148754148799_ - _hd148753148802_ - _tl148752148804_ - ___splice148997148998_ - _target148755148807_ - _tl148757148809_) - (___kont148999149000_)))) - (___kont148999149000_)))) + (gx#stx-null? _tl148739148791_)) + (___match149028149029_ + _e148718148851_ + _hd148717148854_ + _tl148716148856_ + _e148721148859_ + _hd148720148862_ + _tl148719148864_ + _e148736148781_ + _hd148735148784_ + _tl148734148786_ + ___splice148979148980_ + _target148737148789_ + _tl148739148791_) + (___kont148981148982_)))) + (___kont148981148982_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont148999149000_))))) + (___kont148981148982_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148738148880_)) - (let ((_e148754148799_ + (gx#stx-pair? _hd148720148862_)) + (let ((_e148736148781_ (let () (declare (not safe)) - (gx#stx-e _hd148738148880_)))) - (let ((_tl148752148804_ + (gx#stx-e _hd148720148862_)))) + (let ((_tl148734148786_ (let () (declare (not safe)) - (##cdr _e148754148799_))) - (_hd148753148802_ + (##cdr _e148736148781_))) + (_hd148735148784_ (let () (declare (not safe)) - (##car _e148754148799_)))) + (##car _e148736148781_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl148752148804_)) - (let ((___splice148997148998_ + _tl148734148786_)) + (let ((___splice148979148980_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl148752148804_ + _tl148734148786_ '0)))) - (let ((_tl148757148809_ + (let ((_tl148739148791_ (let () (declare (not safe)) (##vector-ref - ___splice148997148998_ + ___splice148979148980_ '1))) - (_target148755148807_ + (_target148737148789_ (let () (declare (not safe)) (##vector-ref - ___splice148997148998_ + ___splice148979148980_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148757148809_)) - (___match149046149047_ - _e148736148869_ - _hd148735148872_ - _tl148734148874_ - _e148739148877_ - _hd148738148880_ - _tl148737148882_ - _e148754148799_ - _hd148753148802_ - _tl148752148804_ - ___splice148997148998_ - _target148755148807_ - _tl148757148809_) - (___kont148999149000_)))) - (___kont148999149000_)))) - (___kont148999149000_))))) - (___kont148999149000_)))) - (___kont148999149000_))))))) + _tl148739148791_)) + (___match149028149029_ + _e148718148851_ + _hd148717148854_ + _tl148716148856_ + _e148721148859_ + _hd148720148862_ + _tl148719148864_ + _e148736148781_ + _hd148735148784_ + _tl148734148786_ + ___splice148979148980_ + _target148737148789_ + _tl148739148791_) + (___kont148981148982_)))) + (___kont148981148982_)))) + (___kont148981148982_))))) + (___kont148981148982_)))) + (___kont148981148982_))))))) (define gxc#optimize-match - (lambda (_stx148024_) - (let* ((_g148026148056_ - (lambda (_g148027148053_) + (lambda (_stx148006_) + (let* ((_g148008148038_ + (lambda (_g148009148035_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g148027148053_)))) - (_g148025148722_ - (lambda (_g148027148059_) + _g148009148035_)))) + (_g148007148704_ + (lambda (_g148009148041_) (if (let () (declare (not safe)) - (gx#stx-pair? _g148027148059_)) - (let ((_e148033148061_ + (gx#stx-pair? _g148009148041_)) + (let ((_e148015148043_ (let () (declare (not safe)) - (gx#stx-e _g148027148059_)))) - (let ((_hd148032148064_ + (gx#stx-e _g148009148041_)))) + (let ((_hd148014148046_ (let () (declare (not safe)) - (##car _e148033148061_))) - (_tl148031148066_ + (##car _e148015148043_))) + (_tl148013148048_ (let () (declare (not safe)) - (##cdr _e148033148061_)))) + (##cdr _e148015148043_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd148032148064_)) + (gx#identifier? _hd148014148046_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd148032148064_)) + _hd148014148046_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148031148066_)) - (let ((_e148036148069_ + (gx#stx-pair? _tl148013148048_)) + (let ((_e148018148051_ (let () (declare (not safe)) - (gx#stx-e _tl148031148066_)))) - (let ((_hd148035148072_ + (gx#stx-e _tl148013148048_)))) + (let ((_hd148017148054_ (let () (declare (not safe)) - (##car _e148036148069_))) - (_tl148034148074_ + (##car _e148018148051_))) + (_tl148016148056_ (let () (declare (not safe)) - (##cdr _e148036148069_)))) + (##cdr _e148018148051_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd148035148072_)) - (let ((_e148039148077_ + _hd148017148054_)) + (let ((_e148021148059_ (let () (declare (not safe)) (gx#stx-e - _hd148035148072_)))) - (let ((_hd148038148080_ + _hd148017148054_)))) + (let ((_hd148020148062_ (let () (declare (not safe)) - (##car _e148039148077_))) - (_tl148037148082_ + (##car _e148021148059_))) + (_tl148019148064_ (let () (declare (not safe)) - (##cdr _e148039148077_)))) + (##cdr _e148021148059_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd148038148080_)) - (let ((_e148042148085_ + _hd148020148062_)) + (let ((_e148024148067_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd148038148080_)))) - (let ((_hd148041148088_ - (let () (declare (not safe)) (##car _e148042148085_))) - (_tl148040148090_ - (let () (declare (not safe)) (##cdr _e148042148085_)))) + (gx#stx-e _hd148020148062_)))) + (let ((_hd148023148070_ + (let () (declare (not safe)) (##car _e148024148067_))) + (_tl148022148072_ + (let () (declare (not safe)) (##cdr _e148024148067_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148041148088_)) - (let ((_e148045148093_ + (gx#stx-pair? _hd148023148070_)) + (let ((_e148027148075_ (let () (declare (not safe)) - (gx#stx-e _hd148041148088_)))) - (let ((_hd148044148096_ + (gx#stx-e _hd148023148070_)))) + (let ((_hd148026148078_ (let () (declare (not safe)) - (##car _e148045148093_))) - (_tl148043148098_ + (##car _e148027148075_))) + (_tl148025148080_ (let () (declare (not safe)) - (##cdr _e148045148093_)))) + (##cdr _e148027148075_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148043148098_)) + (gx#stx-null? _tl148025148080_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148040148090_)) - (let ((_e148048148101_ + (gx#stx-pair? _tl148022148072_)) + (let ((_e148030148083_ (let () (declare (not safe)) - (gx#stx-e _tl148040148090_)))) - (let ((_hd148047148104_ + (gx#stx-e _tl148022148072_)))) + (let ((_hd148029148086_ (let () (declare (not safe)) - (##car _e148048148101_))) - (_tl148046148106_ + (##car _e148030148083_))) + (_tl148028148088_ (let () (declare (not safe)) - (##cdr _e148048148101_)))) + (##cdr _e148030148083_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148046148106_)) + (gx#stx-null? _tl148028148088_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl148037148082_)) + _tl148019148064_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148034148074_)) - (let ((_e148051148109_ + _tl148016148056_)) + (let ((_e148033148091_ (let () (declare (not safe)) (gx#stx-e - _tl148034148074_)))) - (let ((_hd148050148112_ + _tl148016148056_)))) + (let ((_hd148032148094_ (let () (declare (not safe)) - (##car _e148051148109_))) - (_tl148049148114_ + (##car _e148033148091_))) + (_tl148031148096_ (let () (declare (not safe)) - (##cdr _e148051148109_)))) + (##cdr _e148033148091_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148049148114_)) - ((lambda (_L148117_ + _tl148031148096_)) + ((lambda (_L148099_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L148118_ - _L148119_) - (let _lp148143_ ((_body148145_ _L148117_) - (_negation148146_ + _L148100_ + _L148101_) + (let _lp148125_ ((_body148127_ _L148099_) + (_negation148128_ (let () (declare (not safe)) - (cons _L148119_ _L148118_))) - (_clauses148147_ '()) - (_konts148148_ '())) - (let* ((___stx149229149230_ _body148145_) - (_g148151148191_ + (cons _L148101_ _L148100_))) + (_clauses148129_ '()) + (_konts148130_ '())) + (let* ((___stx149211149212_ _body148127_) + (_g148133148173_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149229149230_))))) - (let ((___kont149231149232_ - (lambda (_L148521_) - (let* ((___stx149165149166_ _L148521_) - (_g148535148565_ + ___stx149211149212_))))) + (let ((___kont149213149214_ + (lambda (_L148503_) + (let* ((___stx149147149148_ _L148503_) + (_g148517148547_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149165149166_))))) - (let ((___kont149167149168_ - (lambda (_L148661_ - _L148662_ - _L148663_) + ___stx149147149148_))))) + (let ((___kont149149149150_ + (lambda (_L148643_ + _L148644_ + _L148645_) (if (let () (declare (not safe)) - (null? _clauses148147_)) - (let* ((_negation148687148694_ - _negation148146_) - (_E148689148698_ + (null? _clauses148129_)) + (let* ((_negation148669148676_ + _negation148128_) + (_E148671148680_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _negation148687148694_)))) - (_K148690148704_ - (lambda (_negate148701_ _E148702_) - (let ((__tmp152130 - (let ((__tmp152131 - (let ((__tmp152141 - (let ((__tmp152142 - (let ((__tmp152144 + _negation148669148676_)))) + (_K148672148686_ + (lambda (_negate148683_ _E148684_) + (let ((__tmp152112 + (let ((__tmp152113 + (let ((__tmp152123 + (let ((__tmp152124 + (let ((__tmp152126 (let () (declare (not safe)) - (cons _E148702_ '()))) - (__tmp152143 + (cons _E148684_ '()))) + (__tmp152125 (let () (declare (not safe)) - (cons _negate148701_ + (cons _negate148683_ '())))) (declare (not safe)) - (cons __tmp152144 - __tmp152143)))) + (cons __tmp152126 + __tmp152125)))) (declare (not safe)) - (cons __tmp152142 '()))) - (__tmp152132 - (let ((__tmp152133 - (let ((__tmp152134 - (let ((__tmp152136 - (let ((__tmp152137 + (cons __tmp152124 '()))) + (__tmp152114 + (let ((__tmp152115 + (let ((__tmp152116 + (let ((__tmp152118 + (let ((__tmp152119 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152140 + (let ((__tmp152122 (let () (declare (not safe)) - (cons _L148663_ '()))) - (__tmp152138 - (let ((__tmp152139 + (cons _L148645_ '()))) + (__tmp152120 + (let ((__tmp152121 (let () (declare (not safe)) - (gxc#compile-e__0 _L148662_)))) + (gxc#compile-e__0 _L148644_)))) (declare (not safe)) - (cons __tmp152139 '())))) + (cons __tmp152121 '())))) (declare (not safe)) - (cons __tmp152140 __tmp152138)))) + (cons __tmp152122 __tmp152120)))) (declare (not safe)) - (cons __tmp152137 '()))) - (__tmp152135 - (let () (declare (not safe)) (cons _L148661_ '())))) + (cons __tmp152119 '()))) + (__tmp152117 + (let () (declare (not safe)) (cons _L148643_ '())))) (declare (not safe)) - (cons __tmp152136 __tmp152135)))) + (cons __tmp152118 __tmp152117)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp152134)))) + __tmp152116)))) (declare (not safe)) - (cons __tmp152133 '())))) + (cons __tmp152115 '())))) (declare (not safe)) - (cons __tmp152141 __tmp152132)))) + (cons __tmp152123 __tmp152114)))) (declare (not safe)) - (cons '%#let-values __tmp152131)))) + (cons '%#let-values __tmp152113)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp152130 _stx148024_))))) + (gxc#xform-wrap-source __tmp152112 _stx148006_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation148687148694_)) - (let ((_hd148691148707_ + (##pair? _negation148669148676_)) + (let ((_hd148673148689_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _negation148687148694_))) - (_tl148692148709_ + (##car _negation148669148676_))) + (_tl148674148691_ (let () (declare (not safe)) - (##cdr _negation148687148694_)))) - (let* ((_E148712_ _hd148691148707_) - (_negate148714_ _tl148692148709_)) + (##cdr _negation148669148676_)))) + (let* ((_E148694_ _hd148673148689_) + (_negate148696_ _tl148674148691_)) (declare (not safe)) - (_K148690148704_ _negate148714_ _E148712_))) - (let () (declare (not safe)) (_E148689148698_)))) + (_K148672148686_ _negate148696_ _E148694_))) + (let () (declare (not safe)) (_E148671148680_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp152124 - (let ((__tmp152125 - (let ((__tmp152126 + (let ((__tmp152106 + (let ((__tmp152107 + (let ((__tmp152108 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152129 + (let ((__tmp152111 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp152127 - (let ((__tmp152128 + (__tmp152109 + (let ((__tmp152110 (let () (declare (not safe)) - (cons _L148661_ '())))) + (cons _L148643_ '())))) (declare (not safe)) - (cons '() __tmp152128)))) + (cons '() __tmp152110)))) (declare (not safe)) - (cons __tmp152129 __tmp152127)))) + (cons __tmp152111 __tmp152109)))) (declare (not safe)) - (cons '#f __tmp152126)))) + (cons '#f __tmp152108)))) (declare (not safe)) - (cons __tmp152125 _clauses148147_))) - (__tmp152121 - (let ((__tmp152122 - (let ((__tmp152123 + (cons __tmp152107 _clauses148129_))) + (__tmp152103 + (let ((__tmp152104 + (let ((__tmp152105 (let () (declare (not safe)) - (gxc#compile-e__0 _L148662_)))) + (gxc#compile-e__0 _L148644_)))) (declare (not safe)) - (cons _L148663_ __tmp152123)))) + (cons _L148645_ __tmp152105)))) (declare (not safe)) - (cons __tmp152122 _konts148148_)))) + (cons __tmp152104 _konts148130_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimize-match-body - _stx148024_ - _negation148146_ - __tmp152124 - __tmp152121))))) - (___kont149169149170_ + _stx148006_ + _negation148128_ + __tmp152106 + __tmp152103))))) + (___kont149151149152_ (lambda () - (let* ((_negation148571148578_ - _negation148146_) - (_E148573148582_ + (let* ((_negation148553148560_ + _negation148128_) + (_E148555148564_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _negation148571148578_)))) - (_K148574148588_ - (lambda (_negate148585_ - _E148586_) - (let ((__tmp152145 - (let ((__tmp152146 + _negation148553148560_)))) + (_K148556148570_ + (lambda (_negate148567_ + _E148568_) + (let ((__tmp152127 + (let ((__tmp152128 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152148 - (let ((__tmp152149 - (let ((__tmp152151 + (let ((__tmp152130 + (let ((__tmp152131 + (let ((__tmp152133 (let () (declare (not safe)) - (cons _E148586_ '()))) - (__tmp152150 + (cons _E148568_ '()))) + (__tmp152132 (let () (declare (not safe)) - (cons _negate148585_ + (cons _negate148567_ '())))) (declare (not safe)) - (cons __tmp152151 __tmp152150)))) + (cons __tmp152133 __tmp152132)))) (declare (not safe)) - (cons __tmp152149 '()))) - (__tmp152147 + (cons __tmp152131 '()))) + (__tmp152129 (let () (declare (not safe)) - (cons _L148521_ '())))) + (cons _L148503_ '())))) (declare (not safe)) - (cons __tmp152148 __tmp152147)))) + (cons __tmp152130 __tmp152129)))) (declare (not safe)) - (cons '%#let-values __tmp152146)))) + (cons '%#let-values __tmp152128)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp152145 _stx148024_))))) + (gxc#xform-wrap-source __tmp152127 _stx148006_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation148571148578_)) - (let ((_hd148575148591_ + (##pair? _negation148553148560_)) + (let ((_hd148557148573_ (let () (declare (not safe)) - (##car _negation148571148578_))) - (_tl148576148593_ + (##car _negation148553148560_))) + (_tl148558148575_ (let () (declare (not safe)) - (##cdr _negation148571148578_)))) - (let* ((_E148596_ - _hd148575148591_) - (_negate148598_ - _tl148576148593_)) + (##cdr _negation148553148560_)))) + (let* ((_E148578_ + _hd148557148573_) + (_negate148580_ + _tl148558148575_)) (declare (not safe)) - (_K148574148588_ - _negate148598_ - _E148596_))) + (_K148556148570_ + _negate148580_ + _E148578_))) (let () (declare (not safe)) - (_E148573148582_))))))) - (let ((_g148534148600_ + (_E148555148564_))))))) + (let ((_g148516148582_ (lambda () (if (let () (declare (not safe)) - (null? _clauses148147_)) - (___kont149169149170_) + (null? _clauses148129_)) + (___kont149151149152_) (let () (declare (not safe)) - (_g148535148565_)))))) + (_g148517148547_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx149165149166_)) - (let ((_e148542148605_ + ___stx149147149148_)) + (let ((_e148524148587_ (let () (declare (not safe)) (gx#stx-e - ___stx149165149166_)))) - (let ((_tl148540148610_ + ___stx149147149148_)))) + (let ((_tl148522148592_ (let () (declare (not safe)) - (##cdr _e148542148605_))) - (_hd148541148608_ + (##cdr _e148524148587_))) + (_hd148523148590_ (let () (declare (not safe)) - (##car _e148542148605_)))) + (##car _e148524148587_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd148541148608_)) + _hd148523148590_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd148541148608_)) + _hd148523148590_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148540148610_)) - (let ((_e148545148613_ + _tl148522148592_)) + (let ((_e148527148595_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl148540148610_)))) - (let ((_tl148543148618_ + (gx#stx-e _tl148522148592_)))) + (let ((_tl148525148600_ (let () (declare (not safe)) - (##cdr _e148545148613_))) - (_hd148544148616_ + (##cdr _e148527148595_))) + (_hd148526148598_ (let () (declare (not safe)) - (##car _e148545148613_)))) + (##car _e148527148595_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148544148616_)) - (let ((_e148548148621_ + (gx#stx-pair? _hd148526148598_)) + (let ((_e148530148603_ (let () (declare (not safe)) - (gx#stx-e _hd148544148616_)))) - (let ((_tl148546148626_ + (gx#stx-e _hd148526148598_)))) + (let ((_tl148528148608_ (let () (declare (not safe)) - (##cdr _e148548148621_))) - (_hd148547148624_ + (##cdr _e148530148603_))) + (_hd148529148606_ (let () (declare (not safe)) - (##car _e148548148621_)))) + (##car _e148530148603_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148547148624_)) - (let ((_e148551148629_ + (gx#stx-pair? _hd148529148606_)) + (let ((_e148533148611_ (let () (declare (not safe)) - (gx#stx-e _hd148547148624_)))) - (let ((_tl148549148634_ + (gx#stx-e _hd148529148606_)))) + (let ((_tl148531148616_ (let () (declare (not safe)) - (##cdr _e148551148629_))) - (_hd148550148632_ + (##cdr _e148533148611_))) + (_hd148532148614_ (let () (declare (not safe)) - (##car _e148551148629_)))) + (##car _e148533148611_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148550148632_)) - (let ((_e148554148637_ + (gx#stx-pair? _hd148532148614_)) + (let ((_e148536148619_ (let () (declare (not safe)) (gx#stx-e - _hd148550148632_)))) - (let ((_tl148552148642_ + _hd148532148614_)))) + (let ((_tl148534148624_ (let () (declare (not safe)) - (##cdr _e148554148637_))) - (_hd148553148640_ + (##cdr _e148536148619_))) + (_hd148535148622_ (let () (declare (not safe)) - (##car _e148554148637_)))) + (##car _e148536148619_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148552148642_)) + _tl148534148624_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148549148634_)) - (let ((_e148557148645_ + _tl148531148616_)) + (let ((_e148539148627_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl148549148634_)))) - (let ((_tl148555148650_ - (let () (declare (not safe)) (##cdr _e148557148645_))) - (_hd148556148648_ + (gx#stx-e _tl148531148616_)))) + (let ((_tl148537148632_ + (let () (declare (not safe)) (##cdr _e148539148627_))) + (_hd148538148630_ (let () (declare (not safe)) - (##car _e148557148645_)))) + (##car _e148539148627_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148555148650_)) + (gx#stx-null? _tl148537148632_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl148546148626_)) + (gx#stx-null? _tl148528148608_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148543148618_)) - (let ((_e148560148653_ + (gx#stx-pair? _tl148525148600_)) + (let ((_e148542148635_ (let () (declare (not safe)) - (gx#stx-e _tl148543148618_)))) - (let ((_tl148558148658_ + (gx#stx-e _tl148525148600_)))) + (let ((_tl148540148640_ (let () (declare (not safe)) - (##cdr _e148560148653_))) - (_hd148559148656_ + (##cdr _e148542148635_))) + (_hd148541148638_ (let () (declare (not safe)) - (##car _e148560148653_)))) + (##car _e148542148635_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148558148658_)) - (___kont149167149168_ - _hd148559148656_ - _hd148556148648_ - _hd148553148640_) + (gx#stx-null? _tl148540148640_)) + (___kont149149149150_ + _hd148541148638_ + _hd148538148630_ + _hd148535148622_) (let () (declare (not safe)) - (_g148534148600_))))) + (_g148516148582_))))) (let () (declare (not safe)) - (_g148534148600_))) - (let () (declare (not safe)) (_g148534148600_))) - (let () (declare (not safe)) (_g148534148600_))))) - (let () (declare (not safe)) (_g148534148600_))) + (_g148516148582_))) + (let () (declare (not safe)) (_g148516148582_))) + (let () (declare (not safe)) (_g148516148582_))))) + (let () (declare (not safe)) (_g148516148582_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148534148600_))))) + (_g148516148582_))))) (let () (declare (not safe)) - (_g148534148600_))))) + (_g148516148582_))))) (let () (declare (not safe)) - (_g148534148600_))))) - (let () (declare (not safe)) (_g148534148600_))))) - (let () (declare (not safe)) (_g148534148600_))) - (let () (declare (not safe)) (_g148534148600_))) + (_g148516148582_))))) + (let () (declare (not safe)) (_g148516148582_))))) + (let () (declare (not safe)) (_g148516148582_))) + (let () (declare (not safe)) (_g148516148582_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148534148600_))))) + (_g148516148582_))))) (let () (declare (not safe)) - (_g148534148600_)))))))) - (___kont149233149234_ - (lambda (_L148252_ _L148253_ _L148254_) - (let* ((___stx149049149050_ _L148253_) - (_g148281148330_ + (_g148516148582_)))))))) + (___kont149215149216_ + (lambda (_L148234_ _L148235_ _L148236_) + (let* ((___stx149031149032_ _L148235_) + (_g148263148312_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149049149050_))))) - (let ((___kont149051149052_ - (lambda (_L148458_ - _L148459_ - _L148460_) - (let ((__tmp152155 - (let ((__tmp152156 - (let ((__tmp152157 + ___stx149031149032_))))) + (let ((___kont149033149034_ + (lambda (_L148440_ + _L148441_ + _L148442_) + (let ((__tmp152137 + (let ((__tmp152138 + (let ((__tmp152139 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152160 + (let ((__tmp152142 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp152158 - (let ((__tmp152159 + (__tmp152140 + (let ((__tmp152141 (let () (declare (not safe)) - (cons _L148458_ '())))) + (cons _L148440_ '())))) (declare (not safe)) - (cons '() __tmp152159)))) + (cons '() __tmp152141)))) (declare (not safe)) - (cons __tmp152160 __tmp152158)))) + (cons __tmp152142 __tmp152140)))) (declare (not safe)) - (cons _L148254_ __tmp152157)))) + (cons _L148236_ __tmp152139)))) (declare (not safe)) - (cons __tmp152156 _clauses148147_))) + (cons __tmp152138 _clauses148129_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp152152 - (let ((__tmp152153 - (let ((__tmp152154 + (__tmp152134 + (let ((__tmp152135 + (let ((__tmp152136 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L148459_)))) + (gxc#compile-e__0 _L148441_)))) (declare (not safe)) - (cons _L148460_ __tmp152154)))) + (cons _L148442_ __tmp152136)))) (declare (not safe)) - (cons __tmp152153 _konts148148_)))) + (cons __tmp152135 _konts148130_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp148143_ - _L148252_ - _negation148146_ - __tmp152155 - __tmp152152)))) - (___kont149053149054_ - (lambda (_L148359_) - (let ((__tmp152161 - (let ((__tmp152162 + (_lp148125_ + _L148234_ + _negation148128_ + __tmp152137 + __tmp152134)))) + (___kont149035149036_ + (lambda (_L148341_) + (let ((__tmp152143 + (let ((__tmp152144 (let () (declare (not safe)) (gxc#compile-e__0 - _L148359_)))) + _L148341_)))) (declare (not safe)) - (cons _L148254_ - __tmp152162)))) + (cons _L148236_ + __tmp152144)))) (declare (not safe)) - (_lp148143_ - _L148252_ - __tmp152161 - _clauses148147_ - _konts148148_))))) + (_lp148125_ + _L148234_ + __tmp152143 + _clauses148129_ + _konts148130_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149049149050_)) - (let ((_e148288148378_ + (gx#stx-pair? ___stx149031149032_)) + (let ((_e148270148360_ (let () (declare (not safe)) (gx#stx-e - ___stx149049149050_)))) - (let ((_tl148286148383_ + ___stx149031149032_)))) + (let ((_tl148268148365_ (let () (declare (not safe)) - (##cdr _e148288148378_))) - (_hd148287148381_ + (##cdr _e148270148360_))) + (_hd148269148363_ (let () (declare (not safe)) - (##car _e148288148378_)))) + (##car _e148270148360_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd148287148381_)) + _hd148269148363_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd148287148381_)) + _hd148269148363_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148286148383_)) - (let ((_e148291148386_ + _tl148268148365_)) + (let ((_e148273148368_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl148286148383_)))) - (let ((_tl148289148391_ + (gx#stx-e _tl148268148365_)))) + (let ((_tl148271148373_ (let () (declare (not safe)) - (##cdr _e148291148386_))) - (_hd148290148389_ + (##cdr _e148273148368_))) + (_hd148272148371_ (let () (declare (not safe)) - (##car _e148291148386_)))) + (##car _e148273148368_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd148290148389_)) + (gx#stx-null? _hd148272148371_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148289148391_)) - (let ((_e148294148394_ + (gx#stx-pair? _tl148271148373_)) + (let ((_e148276148376_ (let () (declare (not safe)) - (gx#stx-e _tl148289148391_)))) - (let ((_tl148292148399_ + (gx#stx-e _tl148271148373_)))) + (let ((_tl148274148381_ (let () (declare (not safe)) - (##cdr _e148294148394_))) - (_hd148293148397_ + (##cdr _e148276148376_))) + (_hd148275148379_ (let () (declare (not safe)) - (##car _e148294148394_)))) + (##car _e148276148376_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148293148397_)) - (let ((_e148297148402_ + (gx#stx-pair? _hd148275148379_)) + (let ((_e148279148384_ (let () (declare (not safe)) - (gx#stx-e _hd148293148397_)))) - (let ((_tl148295148407_ + (gx#stx-e _hd148275148379_)))) + (let ((_tl148277148389_ (let () (declare (not safe)) - (##cdr _e148297148402_))) - (_hd148296148405_ + (##cdr _e148279148384_))) + (_hd148278148387_ (let () (declare (not safe)) - (##car _e148297148402_)))) + (##car _e148279148384_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd148296148405_)) + _hd148278148387_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd148296148405_)) + _hd148278148387_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148295148407_)) - (let ((_e148300148410_ + _tl148277148389_)) + (let ((_e148282148392_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl148295148407_)))) - (let ((_tl148298148415_ - (let () (declare (not safe)) (##cdr _e148300148410_))) - (_hd148299148413_ - (let () (declare (not safe)) (##car _e148300148410_)))) + (gx#stx-e _tl148277148389_)))) + (let ((_tl148280148397_ + (let () (declare (not safe)) (##cdr _e148282148392_))) + (_hd148281148395_ + (let () (declare (not safe)) (##car _e148282148392_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148299148413_)) - (let ((_e148303148418_ + (gx#stx-pair? _hd148281148395_)) + (let ((_e148285148400_ (let () (declare (not safe)) - (gx#stx-e _hd148299148413_)))) - (let ((_tl148301148423_ + (gx#stx-e _hd148281148395_)))) + (let ((_tl148283148405_ (let () (declare (not safe)) - (##cdr _e148303148418_))) - (_hd148302148421_ + (##cdr _e148285148400_))) + (_hd148284148403_ (let () (declare (not safe)) - (##car _e148303148418_)))) + (##car _e148285148400_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148302148421_)) - (let ((_e148306148426_ + (gx#stx-pair? _hd148284148403_)) + (let ((_e148288148408_ (let () (declare (not safe)) - (gx#stx-e _hd148302148421_)))) - (let ((_tl148304148431_ + (gx#stx-e _hd148284148403_)))) + (let ((_tl148286148413_ (let () (declare (not safe)) - (##cdr _e148306148426_))) - (_hd148305148429_ + (##cdr _e148288148408_))) + (_hd148287148411_ (let () (declare (not safe)) - (##car _e148306148426_)))) + (##car _e148288148408_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148305148429_)) - (let ((_e148309148434_ + (gx#stx-pair? _hd148287148411_)) + (let ((_e148291148416_ (let () (declare (not safe)) - (gx#stx-e _hd148305148429_)))) - (let ((_tl148307148439_ + (gx#stx-e _hd148287148411_)))) + (let ((_tl148289148421_ (let () (declare (not safe)) - (##cdr _e148309148434_))) - (_hd148308148437_ + (##cdr _e148291148416_))) + (_hd148290148419_ (let () (declare (not safe)) - (##car _e148309148434_)))) + (##car _e148291148416_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148307148439_)) + _tl148289148421_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148304148431_)) - (let ((_e148312148442_ + _tl148286148413_)) + (let ((_e148294148424_ (let () (declare (not safe)) (gx#stx-e - _tl148304148431_)))) - (let ((_tl148310148447_ + _tl148286148413_)))) + (let ((_tl148292148429_ (let () (declare (not safe)) - (##cdr _e148312148442_))) - (_hd148311148445_ + (##cdr _e148294148424_))) + (_hd148293148427_ (let () (declare (not safe)) - (##car _e148312148442_)))) + (##car _e148294148424_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148310148447_)) + _tl148292148429_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl148301148423_)) + (gx#stx-null? _tl148283148405_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148298148415_)) - (let ((_e148315148450_ + (gx#stx-pair? _tl148280148397_)) + (let ((_e148297148432_ (let () (declare (not safe)) - (gx#stx-e _tl148298148415_)))) - (let ((_tl148313148455_ + (gx#stx-e _tl148280148397_)))) + (let ((_tl148295148437_ (let () (declare (not safe)) - (##cdr _e148315148450_))) - (_hd148314148453_ + (##cdr _e148297148432_))) + (_hd148296148435_ (let () (declare (not safe)) - (##car _e148315148450_)))) + (##car _e148297148432_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148313148455_)) + (gx#stx-null? _tl148295148437_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl148292148399_)) - (___kont149051149052_ - _hd148314148453_ - _hd148311148445_ - _hd148308148437_) + (gx#stx-null? _tl148274148381_)) + (___kont149033149034_ + _hd148296148435_ + _hd148293148427_ + _hd148290148419_) (let () (declare (not safe)) - (_g148281148330_))) + (_g148263148312_))) (let () (declare (not safe)) - (_g148281148330_))))) - (let () (declare (not safe)) (_g148281148330_))) - (let () (declare (not safe)) (_g148281148330_))) - (let () (declare (not safe)) (_g148281148330_))))) + (_g148263148312_))))) + (let () (declare (not safe)) (_g148263148312_))) + (let () (declare (not safe)) (_g148263148312_))) + (let () (declare (not safe)) (_g148263148312_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148281148330_))) + (_g148263148312_))) (let () (declare (not safe)) - (_g148281148330_))))) + (_g148263148312_))))) (let () (declare (not safe)) - (_g148281148330_))))) + (_g148263148312_))))) (let () (declare (not safe)) - (_g148281148330_))))) - (let () (declare (not safe)) (_g148281148330_))))) - (let () (declare (not safe)) (_g148281148330_))) + (_g148263148312_))))) + (let () (declare (not safe)) (_g148263148312_))))) + (let () (declare (not safe)) (_g148263148312_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148281148330_))) + (_g148263148312_))) (let () (declare (not safe)) - (_g148281148330_))))) + (_g148263148312_))))) (let () (declare (not safe)) - (_g148281148330_))))) - (let () (declare (not safe)) (_g148281148330_))) - (let () (declare (not safe)) (_g148281148330_))))) - (let () (declare (not safe)) (_g148281148330_))) + (_g148263148312_))))) + (let () (declare (not safe)) (_g148263148312_))) + (let () (declare (not safe)) (_g148263148312_))))) + (let () (declare (not safe)) (_g148263148312_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _hd148287148381_)) + (gx#stx-eq? '%#begin-annotation _hd148269148363_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148286148383_)) - (let ((_e148322148343_ + (gx#stx-pair? _tl148268148365_)) + (let ((_e148304148325_ (let () (declare (not safe)) - (gx#stx-e _tl148286148383_)))) - (let ((_tl148320148348_ + (gx#stx-e _tl148268148365_)))) + (let ((_tl148302148330_ (let () (declare (not safe)) - (##cdr _e148322148343_))) - (_hd148321148346_ + (##cdr _e148304148325_))) + (_hd148303148328_ (let () (declare (not safe)) - (##car _e148322148343_)))) + (##car _e148304148325_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd148321148346_)) + (gx#identifier? _hd148303148328_)) (if (let () (declare (not safe)) - (gx#stx-eq? '@match-else _hd148321148346_)) + (gx#stx-eq? '@match-else _hd148303148328_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl148320148348_)) - (let ((_e148325148351_ + (gx#stx-pair? _tl148302148330_)) + (let ((_e148307148333_ (let () (declare (not safe)) - (gx#stx-e _tl148320148348_)))) - (let ((_tl148323148356_ + (gx#stx-e _tl148302148330_)))) + (let ((_tl148305148338_ (let () (declare (not safe)) - (##cdr _e148325148351_))) - (_hd148324148354_ + (##cdr _e148307148333_))) + (_hd148306148336_ (let () (declare (not safe)) - (##car _e148325148351_)))) + (##car _e148307148333_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148323148356_)) - (___kont149053149054_ - _hd148324148354_) + _tl148305148338_)) + (___kont149035149036_ + _hd148306148336_) (let () (declare (not safe)) - (_g148281148330_))))) + (_g148263148312_))))) (let () (declare (not safe)) - (_g148281148330_))) + (_g148263148312_))) (let () (declare (not safe)) - (_g148281148330_))) + (_g148263148312_))) (let () (declare (not safe)) - (_g148281148330_))))) - (let () (declare (not safe)) (_g148281148330_))) - (let () (declare (not safe)) (_g148281148330_)))) + (_g148263148312_))))) + (let () (declare (not safe)) (_g148263148312_))) + (let () (declare (not safe)) (_g148263148312_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148281148330_))))) + (_g148263148312_))))) (let () (declare (not safe)) - (_g148281148330_)))))))) + (_g148263148312_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149229149230_)) - (let ((_e148156148497_ + (gx#stx-pair? ___stx149211149212_)) + (let ((_e148138148479_ (let () (declare (not safe)) - (gx#stx-e ___stx149229149230_)))) - (let ((_tl148154148502_ + (gx#stx-e ___stx149211149212_)))) + (let ((_tl148136148484_ (let () (declare (not safe)) - (##cdr _e148156148497_))) - (_hd148155148500_ + (##cdr _e148138148479_))) + (_hd148137148482_ (let () (declare (not safe)) - (##car _e148156148497_)))) + (##car _e148138148479_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd148155148500_)) + (gx#identifier? _hd148137148482_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _hd148155148500_)) + _hd148137148482_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148154148502_)) - (let ((_e148159148505_ + _tl148136148484_)) + (let ((_e148141148487_ (let () (declare (not safe)) (gx#stx-e - _tl148154148502_)))) - (let ((_tl148157148510_ + _tl148136148484_)))) + (let ((_tl148139148492_ (let () (declare (not safe)) - (##cdr _e148159148505_))) - (_hd148158148508_ + (##cdr _e148141148487_))) + (_hd148140148490_ (let () (declare (not safe)) - (##car _e148159148505_)))) + (##car _e148141148487_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd148158148508_)) + _hd148140148490_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _hd148158148508_)) + _hd148140148490_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl148157148510_)) - (let ((_e148162148513_ + (gx#stx-pair? _tl148139148492_)) + (let ((_e148144148495_ (let () (declare (not safe)) - (gx#stx-e _tl148157148510_)))) - (let ((_tl148160148518_ + (gx#stx-e _tl148139148492_)))) + (let ((_tl148142148500_ (let () (declare (not safe)) - (##cdr _e148162148513_))) - (_hd148161148516_ + (##cdr _e148144148495_))) + (_hd148143148498_ (let () (declare (not safe)) - (##car _e148162148513_)))) + (##car _e148144148495_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148160148518_)) - (___kont149231149232_ _hd148161148516_) + (gx#stx-null? _tl148142148500_)) + (___kont149213149214_ _hd148143148498_) (let () (declare (not safe)) - (_g148151148191_))))) - (let () (declare (not safe)) (_g148151148191_))) - (let () (declare (not safe)) (_g148151148191_))) - (let () (declare (not safe)) (_g148151148191_))))) + (_g148133148173_))))) + (let () (declare (not safe)) (_g148133148173_))) + (let () (declare (not safe)) (_g148133148173_))) + (let () (declare (not safe)) (_g148133148173_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148151148191_))) + (_g148133148173_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd148155148500_)) + _hd148137148482_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148154148502_)) - (let ((_e148171148204_ + _tl148136148484_)) + (let ((_e148153148186_ (let () (declare (not safe)) (gx#stx-e - _tl148154148502_)))) - (let ((_tl148169148209_ + _tl148136148484_)))) + (let ((_tl148151148191_ (let () (declare (not safe)) - (##cdr _e148171148204_))) - (_hd148170148207_ + (##cdr _e148153148186_))) + (_hd148152148189_ (let () (declare (not safe)) - (##car _e148171148204_)))) + (##car _e148153148186_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd148170148207_)) - (let ((_e148174148212_ + _hd148152148189_)) + (let ((_e148156148194_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd148170148207_)))) - (let ((_tl148172148217_ + (gx#stx-e _hd148152148189_)))) + (let ((_tl148154148199_ (let () (declare (not safe)) - (##cdr _e148174148212_))) - (_hd148173148215_ + (##cdr _e148156148194_))) + (_hd148155148197_ (let () (declare (not safe)) - (##car _e148174148212_)))) + (##car _e148156148194_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148173148215_)) - (let ((_e148177148220_ + (gx#stx-pair? _hd148155148197_)) + (let ((_e148159148202_ (let () (declare (not safe)) - (gx#stx-e _hd148173148215_)))) - (let ((_tl148175148225_ + (gx#stx-e _hd148155148197_)))) + (let ((_tl148157148207_ (let () (declare (not safe)) - (##cdr _e148177148220_))) - (_hd148176148223_ + (##cdr _e148159148202_))) + (_hd148158148205_ (let () (declare (not safe)) - (##car _e148177148220_)))) + (##car _e148159148202_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd148176148223_)) - (let ((_e148180148228_ + (gx#stx-pair? _hd148158148205_)) + (let ((_e148162148210_ (let () (declare (not safe)) - (gx#stx-e _hd148176148223_)))) - (let ((_tl148178148233_ + (gx#stx-e _hd148158148205_)))) + (let ((_tl148160148215_ (let () (declare (not safe)) - (##cdr _e148180148228_))) - (_hd148179148231_ + (##cdr _e148162148210_))) + (_hd148161148213_ (let () (declare (not safe)) - (##car _e148180148228_)))) + (##car _e148162148210_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148178148233_)) + (gx#stx-null? _tl148160148215_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl148175148225_)) - (let ((_e148183148236_ + _tl148157148207_)) + (let ((_e148165148218_ (let () (declare (not safe)) (gx#stx-e - _tl148175148225_)))) - (let ((_tl148181148241_ + _tl148157148207_)))) + (let ((_tl148163148223_ (let () (declare (not safe)) - (##cdr _e148183148236_))) - (_hd148182148239_ + (##cdr _e148165148218_))) + (_hd148164148221_ (let () (declare (not safe)) - (##car _e148183148236_)))) + (##car _e148165148218_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl148181148241_)) + _tl148163148223_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl148172148217_)) + _tl148154148199_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl148169148209_)) - (let ((_e148186148244_ + (gx#stx-pair? _tl148151148191_)) + (let ((_e148168148226_ (let () (declare (not safe)) - (gx#stx-e _tl148169148209_)))) - (let ((_tl148184148249_ + (gx#stx-e _tl148151148191_)))) + (let ((_tl148166148231_ (let () (declare (not safe)) - (##cdr _e148186148244_))) - (_hd148185148247_ + (##cdr _e148168148226_))) + (_hd148167148229_ (let () (declare (not safe)) - (##car _e148186148244_)))) + (##car _e148168148226_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl148184148249_)) - (___kont149233149234_ - _hd148185148247_ - _hd148182148239_ - _hd148179148231_) + (gx#stx-null? _tl148166148231_)) + (___kont149215149216_ + _hd148167148229_ + _hd148164148221_ + _hd148161148213_) (let () (declare (not safe)) - (_g148151148191_))))) - (let () (declare (not safe)) (_g148151148191_))) - (let () (declare (not safe)) (_g148151148191_))) - (let () (declare (not safe)) (_g148151148191_))))) + (_g148133148173_))))) + (let () (declare (not safe)) (_g148133148173_))) + (let () (declare (not safe)) (_g148133148173_))) + (let () (declare (not safe)) (_g148133148173_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148151148191_))) + (_g148133148173_))) (let () (declare (not safe)) - (_g148151148191_))))) + (_g148133148173_))))) (let () (declare (not safe)) - (_g148151148191_))))) - (let () (declare (not safe)) (_g148151148191_))))) - (let () (declare (not safe)) (_g148151148191_))))) + (_g148133148173_))))) + (let () (declare (not safe)) (_g148133148173_))))) + (let () (declare (not safe)) (_g148133148173_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148151148191_))) + (_g148133148173_))) (let () (declare (not safe)) - (_g148151148191_)))) + (_g148133148173_)))) (let () (declare (not safe)) - (_g148151148191_))))) + (_g148133148173_))))) (let () (declare (not safe)) - (_g148151148191_))))))) - _hd148050148112_ - _hd148047148104_ - _hd148044148096_) + (_g148133148173_))))))) + _hd148032148094_ + _hd148029148086_ + _hd148026148078_) (let () (declare (not safe)) - (_g148026148056_ _g148027148059_))))) + (_g148008148038_ _g148009148041_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148026148056_ - _g148027148059_))) + (_g148008148038_ + _g148009148041_))) (let () (declare (not safe)) - (_g148026148056_ - _g148027148059_))) + (_g148008148038_ + _g148009148041_))) (let () (declare (not safe)) - (_g148026148056_ - _g148027148059_))))) + (_g148008148038_ + _g148009148041_))))) (let () (declare (not safe)) - (_g148026148056_ _g148027148059_))) + (_g148008148038_ _g148009148041_))) (let () (declare (not safe)) - (_g148026148056_ _g148027148059_))))) + (_g148008148038_ _g148009148041_))))) (let () (declare (not safe)) - (_g148026148056_ _g148027148059_))))) + (_g148008148038_ _g148009148041_))))) (let () (declare (not safe)) - (_g148026148056_ _g148027148059_))))) + (_g148008148038_ _g148009148041_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g148026148056_ - _g148027148059_))))) + (_g148008148038_ + _g148009148041_))))) (let () (declare (not safe)) - (_g148026148056_ _g148027148059_))) + (_g148008148038_ _g148009148041_))) (let () (declare (not safe)) - (_g148026148056_ _g148027148059_))) + (_g148008148038_ _g148009148041_))) (let () (declare (not safe)) - (_g148026148056_ _g148027148059_))))) + (_g148008148038_ _g148009148041_))))) (let () (declare (not safe)) - (_g148026148056_ _g148027148059_)))))) + (_g148008148038_ _g148009148041_)))))) (declare (not safe)) - (_g148025148722_ _stx148024_)))) + (_g148007148704_ _stx148006_)))) (define gxc#optimize-match-body - (lambda (_stx147730_ _negation147731_ _clauses147732_ _konts147733_) - (letrec ((_push-variables147735_ - (lambda (_clause147982_ _kont147983_) - (let ((_clause147984147994_ _clause147982_) - (_kont147985147996_ _kont147983_)) - (let* ((_E147987148000_ + (lambda (_stx147712_ _negation147713_ _clauses147714_ _konts147715_) + (letrec ((_push-variables147717_ + (lambda (_clause147964_ _kont147965_) + (let ((_clause147966147976_ _clause147964_) + (_kont147967147978_ _kont147965_)) + (let* ((_E147969147982_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clause147984147994_ - _kont147985147996_)))) - (_K147988148007_ - (lambda (_clause-lambda148003_ - _clause-name148004_ - _K148005_) - (let ((__tmp152163 + _clause147966147976_ + _kont147967147978_)))) + (_K147970147989_ + (lambda (_clause-lambda147985_ + _clause-name147986_ + _K147987_) + (let ((__tmp152145 (let () (declare (not safe)) (gxc#apply-push-match-vars - _clause-lambda148003_ + _clause-lambda147985_ 'vars: '() 'K: - _K148005_)))) + _K147987_)))) (declare (not safe)) - (cons _clause-name148004_ __tmp152163))))) + (cons _clause-name147986_ __tmp152145))))) (if (let () (declare (not safe)) - (##pair? _clause147984147994_)) - (let ((_hd147991148010_ + (##pair? _clause147966147976_)) + (let ((_hd147973147992_ (let () (declare (not safe)) - (##car _clause147984147994_))) - (_tl147992148012_ + (##car _clause147966147976_))) + (_tl147974147994_ (let () (declare (not safe)) - (##cdr _clause147984147994_)))) - (let* ((_clause-name148015_ _hd147991148010_) - (_clause-lambda148017_ _tl147992148012_)) + (##cdr _clause147966147976_)))) + (let* ((_clause-name147997_ _hd147973147992_) + (_clause-lambda147999_ _tl147974147994_)) (if (let () (declare (not safe)) - (##pair? _kont147985147996_)) - (let* ((_hd147989148019_ + (##pair? _kont147967147978_)) + (let* ((_hd147971148001_ (let () (declare (not safe)) - (##car _kont147985147996_))) - (_K148022_ _hd147989148019_)) + (##car _kont147967147978_))) + (_K148004_ _hd147971148001_)) (declare (not safe)) - (_K147988148007_ - _clause-lambda148017_ - _clause-name148015_ - _K148022_)) + (_K147970147989_ + _clause-lambda147999_ + _clause-name147997_ + _K148004_)) (let () (declare (not safe)) - (_E147987148000_))))) + (_E147969147982_))))) (let () (declare (not safe)) - (_E147987148000_))))))) - (_start-match147736_ - (lambda (_kont147916_) - (let* ((_g147918147934_ - (lambda (_g147919147931_) + (_E147969147982_))))))) + (_start-match147718_ + (lambda (_kont147898_) + (let* ((_g147900147916_ + (lambda (_g147901147913_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g147919147931_)))) - (_g147917147979_ - (lambda (_g147919147937_) + _g147901147913_)))) + (_g147899147961_ + (lambda (_g147901147919_) (if (let () (declare (not safe)) - (gx#stx-pair? _g147919147937_)) - (let ((_e147923147939_ + (gx#stx-pair? _g147901147919_)) + (let ((_e147905147921_ (let () (declare (not safe)) - (gx#stx-e _g147919147937_)))) - (let ((_hd147922147942_ + (gx#stx-e _g147901147919_)))) + (let ((_hd147904147924_ (let () (declare (not safe)) - (##car _e147923147939_))) - (_tl147921147944_ + (##car _e147905147921_))) + (_tl147903147926_ (let () (declare (not safe)) - (##cdr _e147923147939_)))) + (##cdr _e147905147921_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd147922147942_)) + (gx#identifier? _hd147904147924_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd147922147942_)) + _hd147904147924_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl147921147944_)) - (let ((_e147926147947_ + _tl147903147926_)) + (let ((_e147908147929_ (let () (declare (not safe)) (gx#stx-e - _tl147921147944_)))) - (let ((_hd147925147950_ + _tl147903147926_)))) + (let ((_hd147907147932_ (let () (declare (not safe)) - (##car _e147926147947_))) - (_tl147924147952_ + (##car _e147908147929_))) + (_tl147906147934_ (let () (declare (not safe)) - (##cdr _e147926147947_)))) + (##cdr _e147908147929_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd147925147950_)) + _hd147907147932_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl147924147952_)) - (let ((_e147929147955_ + (gx#stx-pair? _tl147906147934_)) + (let ((_e147911147937_ (let () (declare (not safe)) - (gx#stx-e _tl147924147952_)))) - (let ((_hd147928147958_ + (gx#stx-e _tl147906147934_)))) + (let ((_hd147910147940_ (let () (declare (not safe)) - (##car _e147929147955_))) - (_tl147927147960_ + (##car _e147911147937_))) + (_tl147909147942_ (let () (declare (not safe)) - (##cdr _e147929147955_)))) + (##cdr _e147911147937_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147927147960_)) - ((lambda (_L147963_) _L147963_) _hd147928147958_) + (gx#stx-null? _tl147909147942_)) + ((lambda (_L147945_) _L147945_) _hd147910147940_) (let () (declare (not safe)) - (_g147918147934_ _g147919147937_))))) + (_g147900147916_ _g147901147919_))))) (let () (declare (not safe)) - (_g147918147934_ _g147919147937_))) + (_g147900147916_ _g147901147919_))) (let () (declare (not safe)) - (_g147918147934_ _g147919147937_))))) + (_g147900147916_ _g147901147919_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g147918147934_ - _g147919147937_))) + (_g147900147916_ + _g147901147919_))) (let () (declare (not safe)) - (_g147918147934_ - _g147919147937_))) + (_g147900147916_ + _g147901147919_))) (let () (declare (not safe)) - (_g147918147934_ - _g147919147937_))))) + (_g147900147916_ + _g147901147919_))))) (let () (declare (not safe)) - (_g147918147934_ _g147919147937_)))))) + (_g147900147916_ _g147901147919_)))))) (declare (not safe)) - (_g147917147979_ _kont147916_)))) - (_match-body147737_ - (lambda (_blocks147813_) - (let* ((_blocks147814147823_ _blocks147813_) - (_E147816147827_ + (_g147899147961_ _kont147898_)))) + (_match-body147719_ + (lambda (_blocks147795_) + (let* ((_blocks147796147805_ _blocks147795_) + (_E147798147809_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _blocks147814147823_)))) - (_K147817147899_ - (lambda (_rest147830_ _start147831_) - (let _lp147833_ ((_rest147835_ _rest147830_) - (_body147836_ + _blocks147796147805_)))) + (_K147799147881_ + (lambda (_rest147812_ _start147813_) + (let _lp147815_ ((_rest147817_ _rest147812_) + (_body147818_ (let () (declare (not safe)) - (_start-match147736_ - _start147831_)))) - (let* ((_rest147837147845_ _rest147835_) - (_else147839147853_ - (lambda () _body147836_)) - (_K147841147887_ - (lambda (_rest147856_ _block147857_) - (let* ((_block147858147865_ - _block147857_) - (_E147860147869_ + (_start-match147718_ + _start147813_)))) + (let* ((_rest147819147827_ _rest147817_) + (_else147821147835_ + (lambda () _body147818_)) + (_K147823147869_ + (lambda (_rest147838_ _block147839_) + (let* ((_block147840147847_ + _block147839_) + (_E147842147851_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block147858147865_)))) - (_K147861147875_ - (lambda (_kont147872_ - _K147873_) - (let ((__tmp152164 - (let ((__tmp152165 + _block147840147847_)))) + (_K147843147857_ + (lambda (_kont147854_ + _K147855_) + (let ((__tmp152146 + (let ((__tmp152147 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152167 - (let ((__tmp152168 - (let ((__tmp152170 + (let ((__tmp152149 + (let ((__tmp152150 + (let ((__tmp152152 (let () (declare (not safe)) - (cons _K147873_ '()))) - (__tmp152169 + (cons _K147855_ '()))) + (__tmp152151 (let () (declare (not safe)) - (cons _kont147872_ '())))) + (cons _kont147854_ '())))) (declare (not safe)) - (cons __tmp152170 __tmp152169)))) + (cons __tmp152152 __tmp152151)))) (declare (not safe)) - (cons __tmp152168 '()))) - (__tmp152166 + (cons __tmp152150 '()))) + (__tmp152148 (let () (declare (not safe)) - (cons _body147836_ '())))) + (cons _body147818_ '())))) (declare (not safe)) - (cons __tmp152167 __tmp152166)))) + (cons __tmp152149 __tmp152148)))) (declare (not safe)) - (cons '%#let-values __tmp152165)))) + (cons '%#let-values __tmp152147)))) (declare (not safe)) - (_lp147833_ _rest147856_ __tmp152164))))) + (_lp147815_ _rest147838_ __tmp152146))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _block147858147865_)) - (let ((_hd147862147878_ + (##pair? _block147840147847_)) + (let ((_hd147844147860_ (let () (declare (not safe)) - (##car _block147858147865_))) - (_tl147863147880_ + (##car _block147840147847_))) + (_tl147845147862_ (let () (declare (not safe)) - (##cdr _block147858147865_)))) - (let* ((_K147883_ - _hd147862147878_) - (_kont147885_ - _tl147863147880_)) + (##cdr _block147840147847_)))) + (let* ((_K147865_ + _hd147844147860_) + (_kont147867_ + _tl147845147862_)) (declare (not safe)) - (_K147861147875_ - _kont147885_ - _K147883_))) + (_K147843147857_ + _kont147867_ + _K147865_))) (let () (declare (not safe)) - (_E147860147869_))))))) + (_E147842147851_))))))) (if (let () (declare (not safe)) - (##pair? _rest147837147845_)) - (let ((_hd147842147890_ + (##pair? _rest147819147827_)) + (let ((_hd147824147872_ (let () (declare (not safe)) - (##car _rest147837147845_))) - (_tl147843147892_ + (##car _rest147819147827_))) + (_tl147825147874_ (let () (declare (not safe)) - (##cdr _rest147837147845_)))) - (let* ((_block147895_ _hd147842147890_) - (_rest147897_ _tl147843147892_)) + (##cdr _rest147819147827_)))) + (let* ((_block147877_ _hd147824147872_) + (_rest147879_ _tl147825147874_)) (declare (not safe)) - (_K147841147887_ - _rest147897_ - _block147895_))) + (_K147823147869_ + _rest147879_ + _block147877_))) (let () (declare (not safe)) - (_else147839147853_)))))))) + (_else147821147835_)))))))) (if (let () (declare (not safe)) - (##pair? _blocks147814147823_)) - (let ((_hd147818147902_ + (##pair? _blocks147796147805_)) + (let ((_hd147800147884_ (let () (declare (not safe)) - (##car _blocks147814147823_))) - (_tl147819147904_ + (##car _blocks147796147805_))) + (_tl147801147886_ (let () (declare (not safe)) - (##cdr _blocks147814147823_)))) + (##cdr _blocks147796147805_)))) (if (let () (declare (not safe)) - (##pair? _hd147818147902_)) - (let ((_hd147820147907_ + (##pair? _hd147800147884_)) + (let ((_hd147802147889_ (let () (declare (not safe)) - (##car _hd147818147902_))) - (_tl147821147909_ + (##car _hd147800147884_))) + (_tl147803147891_ (let () (declare (not safe)) - (##cdr _hd147818147902_)))) + (##cdr _hd147800147884_)))) (if (let () (declare (not safe)) - (##eq? _hd147820147907_ '#f)) - (let* ((_start147912_ _tl147821147909_) - (_rest147914_ _tl147819147904_)) + (##eq? _hd147802147889_ '#f)) + (let* ((_start147894_ _tl147803147891_) + (_rest147896_ _tl147801147886_)) (declare (not safe)) - (_K147817147899_ - _rest147914_ - _start147912_)) + (_K147799147881_ + _rest147896_ + _start147894_)) (let () (declare (not safe)) - (_E147816147827_)))) + (_E147798147809_)))) (let () (declare (not safe)) - (_E147816147827_)))) - (let () (declare (not safe)) (_E147816147827_))))))) - (let ((__tmp152172 + (_E147798147809_)))) + (let () (declare (not safe)) (_E147798147809_))))))) + (let ((__tmp152154 (lambda () - (let* ((_clauses147740_ - (map _push-variables147735_ - _clauses147732_ - _konts147733_)) - (_blocks147742_ + (let* ((_clauses147722_ + (map _push-variables147717_ + _clauses147714_ + _konts147715_)) + (_blocks147724_ (let () (declare (not safe)) (gxc#optimize-match-basic-blocks - _clauses147740_))) - (_blocks147744_ + _clauses147722_))) + (_blocks147726_ (let () (declare (not safe)) (gxc#optimize-match-fold-basic-blocks - _blocks147742_))) - (_body147746_ + _blocks147724_))) + (_body147728_ (let () (declare (not safe)) - (_match-body147737_ _blocks147744_))) - (_bind147780_ - (map (lambda (_e147747147749_) - (let* ((_g147751147758_ _e147747147749_) - (_E147753147762_ + (_match-body147719_ _blocks147726_))) + (_bind147762_ + (map (lambda (_e147729147731_) + (let* ((_g147733147740_ _e147729147731_) + (_E147735147744_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _g147751147758_)))) - (_K147754147768_ - (lambda (_kont147765_ _K147766_) - (let ((__tmp152174 + _g147733147740_)))) + (_K147736147750_ + (lambda (_kont147747_ _K147748_) + (let ((__tmp152156 (let () (declare (not safe)) - (cons _K147766_ '()))) - (__tmp152173 + (cons _K147748_ '()))) + (__tmp152155 (let () (declare (not safe)) - (cons _kont147765_ '())))) + (cons _kont147747_ '())))) (declare (not safe)) - (cons __tmp152174 - __tmp152173))))) + (cons __tmp152156 + __tmp152155))))) (if (let () (declare (not safe)) - (##pair? _g147751147758_)) - (let ((_hd147755147771_ + (##pair? _g147733147740_)) + (let ((_hd147737147753_ (let () (declare (not safe)) - (##car _g147751147758_))) - (_tl147756147773_ + (##car _g147733147740_))) + (_tl147738147755_ (let () (declare (not safe)) - (##cdr _g147751147758_)))) - (let* ((_K147776_ _hd147755147771_) - (_kont147778_ - _tl147756147773_)) + (##cdr _g147733147740_)))) + (let* ((_K147758_ _hd147737147753_) + (_kont147760_ + _tl147738147755_)) (declare (not safe)) - (_K147754147768_ - _kont147778_ - _K147776_))) + (_K147736147750_ + _kont147760_ + _K147758_))) (let () (declare (not safe)) - (_E147753147762_))))) - _konts147733_)) - (_negate147810_ - (let* ((_negation147781147788_ _negation147731_) - (_E147783147792_ + (_E147735147744_))))) + _konts147715_)) + (_negate147792_ + (let* ((_negation147763147770_ _negation147713_) + (_E147765147774_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _negation147781147788_)))) - (_K147784147798_ - (lambda (_kont147795_ _K147796_) - (let ((__tmp152176 + _negation147763147770_)))) + (_K147766147780_ + (lambda (_kont147777_ _K147778_) + (let ((__tmp152158 (let () (declare (not safe)) - (cons _K147796_ '()))) - (__tmp152175 + (cons _K147778_ '()))) + (__tmp152157 (let () (declare (not safe)) - (cons _kont147795_ '())))) + (cons _kont147777_ '())))) (declare (not safe)) - (cons __tmp152176 __tmp152175))))) + (cons __tmp152158 __tmp152157))))) (if (let () (declare (not safe)) - (##pair? _negation147781147788_)) - (let ((_hd147785147801_ + (##pair? _negation147763147770_)) + (let ((_hd147767147783_ (let () (declare (not safe)) - (##car _negation147781147788_))) - (_tl147786147803_ + (##car _negation147763147770_))) + (_tl147768147785_ (let () (declare (not safe)) - (##cdr _negation147781147788_)))) - (let* ((_K147806_ _hd147785147801_) - (_kont147808_ _tl147786147803_)) + (##cdr _negation147763147770_)))) + (let* ((_K147788_ _hd147767147783_) + (_kont147790_ _tl147768147785_)) (declare (not safe)) - (_K147784147798_ _kont147808_ _K147806_))) + (_K147766147780_ _kont147790_ _K147788_))) (let () (declare (not safe)) - (_E147783147792_)))))) - (let ((__tmp152177 - (let ((__tmp152178 - (let ((__tmp152183 + (_E147765147774_)))))) + (let ((__tmp152159 + (let ((__tmp152160 + (let ((__tmp152165 (let () (declare (not safe)) - (cons _negate147810_ '()))) - (__tmp152179 - (let ((__tmp152180 - (let ((__tmp152181 - (let ((__tmp152182 + (cons _negate147792_ '()))) + (__tmp152161 + (let ((__tmp152162 + (let ((__tmp152163 + (let ((__tmp152164 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body147746_ '())))) + (cons _body147728_ '())))) (declare (not safe)) - (cons _bind147780_ __tmp152182)))) + (cons _bind147762_ __tmp152164)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp152181)))) + __tmp152163)))) (declare (not safe)) - (cons __tmp152180 '())))) + (cons __tmp152162 '())))) (declare (not safe)) - (cons __tmp152183 __tmp152179)))) + (cons __tmp152165 __tmp152161)))) (declare (not safe)) - (cons '%#let-values __tmp152178)))) + (cons '%#let-values __tmp152160)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp152177 _stx147730_))))) - (__tmp152171 - (let ((__obj152100 + (gxc#xform-wrap-source __tmp152159 _stx147712_))))) + (__tmp152153 + (let ((__obj152082 (let () (declare (not safe)) (##structure @@ -2324,2112 +2324,2112 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj152100) - __obj152100))) + (gx#local-context:::init! __obj152082) + __obj152082))) (declare (not safe)) (call-with-parameters - __tmp152172 + __tmp152154 gx#current-expander-context - __tmp152171))))) + __tmp152153))))) (define gxc#optimize-match-basic-blocks - (lambda (_clauses147690_) - (let _lp147692_ ((_rest147694_ _clauses147690_) (_blocks147695_ '())) - (let* ((_rest147696147704_ _rest147694_) - (_else147698147712_ (lambda () (reverse _blocks147695_))) - (_K147700147718_ - (lambda (_rest147715_ _clause147716_) - (let ((__tmp152184 + (lambda (_clauses147672_) + (let _lp147674_ ((_rest147676_ _clauses147672_) (_blocks147677_ '())) + (let* ((_rest147678147686_ _rest147676_) + (_else147680147694_ (lambda () (reverse _blocks147677_))) + (_K147682147700_ + (lambda (_rest147697_ _clause147698_) + (let ((__tmp152166 (let () (declare (not safe)) (gxc#optimize-match-lift-basic-blocks - _clause147716_ - _blocks147695_)))) + _clause147698_ + _blocks147677_)))) (declare (not safe)) - (_lp147692_ _rest147715_ __tmp152184))))) - (if (let () (declare (not safe)) (##pair? _rest147696147704_)) - (let ((_hd147701147721_ + (_lp147674_ _rest147697_ __tmp152166))))) + (if (let () (declare (not safe)) (##pair? _rest147678147686_)) + (let ((_hd147683147703_ (let () (declare (not safe)) - (##car _rest147696147704_))) - (_tl147702147723_ + (##car _rest147678147686_))) + (_tl147684147705_ (let () (declare (not safe)) - (##cdr _rest147696147704_)))) - (let* ((_clause147726_ _hd147701147721_) - (_rest147728_ _tl147702147723_)) + (##cdr _rest147678147686_)))) + (let* ((_clause147708_ _hd147683147703_) + (_rest147710_ _tl147684147705_)) (declare (not safe)) - (_K147700147718_ _rest147728_ _clause147726_))) - (let () (declare (not safe)) (_else147698147712_))))))) + (_K147682147700_ _rest147710_ _clause147708_))) + (let () (declare (not safe)) (_else147680147694_))))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_clause147034_ _blocks147035_) - (letrec ((_bind->args147037_ - (lambda (_bind147685_) - (let ((__tmp152185 - (lambda (_b147687_ _r147688_) - (let ((__tmp152186 - (let ((__tmp152187 - (let ((__tmp152188 (car _b147687_))) + (lambda (_clause147016_ _blocks147017_) + (letrec ((_bind->args147019_ + (lambda (_bind147667_) + (let ((__tmp152167 + (lambda (_b147669_ _r147670_) + (let ((__tmp152168 + (let ((__tmp152169 + (let ((__tmp152170 (car _b147669_))) (declare (not safe)) - (cons __tmp152188 '())))) + (cons __tmp152170 '())))) (declare (not safe)) - (cons '%#ref __tmp152187)))) + (cons '%#ref __tmp152169)))) (declare (not safe)) - (cons __tmp152186 _r147688_))))) + (cons __tmp152168 _r147670_))))) (declare (not safe)) - (foldl1 __tmp152185 '() _bind147685_)))) - (_create-block147038_ - (lambda (_body147634_ - _let-bind147635_ - _bind147636_ - _assert147637_) - (let* ((_id147639_ - (let ((__tmp152189 (gensym '__match))) + (foldl1 __tmp152167 '() _bind147667_)))) + (_create-block147020_ + (lambda (_body147616_ + _let-bind147617_ + _bind147618_ + _assert147619_) + (let* ((_id147621_ + (let ((__tmp152171 (gensym '__match))) (declare (not safe)) - (make-symbol__0 __tmp152189))) - (_id147641_ + (make-symbol__0 __tmp152171))) + (_id147623_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id147639_))) - (_g152190_ + (gx#core-quote-syntax__0 _id147621_))) + (_g152172_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id147641_))) - (_block147644_ - (let ((__tmp152191 - (let ((__tmp152192 - (let ((__tmp152193 + (gx#core-bind-runtime!__0 _id147623_))) + (_block147626_ + (let ((__tmp152173 + (let ((__tmp152174 + (let ((__tmp152175 (let () (declare (not safe)) - (cons _assert147637_ '())))) + (cons _assert147619_ '())))) (declare (not safe)) - (cons _bind147636_ __tmp152193)))) + (cons _bind147618_ __tmp152175)))) (declare (not safe)) - (cons _body147634_ __tmp152192)))) + (cons _body147616_ __tmp152174)))) (declare (not safe)) - (cons _id147641_ __tmp152191))) - (_continue147646_ - (let ((__tmp152194 - (let ((__tmp152196 - (let ((__tmp152197 + (cons _id147623_ __tmp152173))) + (_continue147628_ + (let ((__tmp152176 + (let ((__tmp152178 + (let ((__tmp152179 (let () (declare (not safe)) - (cons _id147641_ '())))) + (cons _id147623_ '())))) (declare (not safe)) - (cons '%#ref __tmp152197))) - (__tmp152195 + (cons '%#ref __tmp152179))) + (__tmp152177 (let () (declare (not safe)) - (_bind->args147037_ - _bind147636_)))) + (_bind->args147019_ + _bind147618_)))) (declare (not safe)) - (cons __tmp152196 __tmp152195)))) + (cons __tmp152178 __tmp152177)))) (declare (not safe)) - (cons '%#call __tmp152194))) - (_continue147682_ + (cons '%#call __tmp152176))) + (_continue147664_ (if (let () (declare (not safe)) - (null? _let-bind147635_)) - _continue147646_ - (let* ((_locals147680_ - (map (lambda (_e147647147649_) - (let* ((_g147651147658_ - _e147647147649_) - (_E147653147662_ + (null? _let-bind147617_)) + _continue147628_ + (let* ((_locals147662_ + (map (lambda (_e147629147631_) + (let* ((_g147633147640_ + _e147629147631_) + (_E147635147644_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g147651147658_)))) - (_K147654147668_ - (lambda (_expr147665_ _id147666_) - (let ((__tmp152199 - (let () (declare (not safe)) (cons _id147666_ '()))) - (__tmp152198 - (let () (declare (not safe)) (cons _expr147665_ '())))) + _g147633147640_)))) + (_K147636147650_ + (lambda (_expr147647_ _id147648_) + (let ((__tmp152181 + (let () (declare (not safe)) (cons _id147648_ '()))) + (__tmp152180 + (let () (declare (not safe)) (cons _expr147647_ '())))) (declare (not safe)) - (cons __tmp152199 __tmp152198))))) + (cons __tmp152181 __tmp152180))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _g147651147658_)) - (let ((_hd147655147671_ + (##pair? _g147633147640_)) + (let ((_hd147637147653_ (let () (declare (not safe)) - (##car _g147651147658_))) - (_tl147656147673_ + (##car _g147633147640_))) + (_tl147638147655_ (let () (declare (not safe)) - (##cdr _g147651147658_)))) - (let* ((_id147676_ - _hd147655147671_) - (_expr147678_ - _tl147656147673_)) + (##cdr _g147633147640_)))) + (let* ((_id147658_ + _hd147637147653_) + (_expr147660_ + _tl147638147655_)) (declare (not safe)) - (_K147654147668_ - _expr147678_ - _id147676_))) + (_K147636147650_ + _expr147660_ + _id147658_))) (let () (declare (not safe)) - (_E147653147662_))))) - _let-bind147635_)) - (__tmp152200 - (let ((__tmp152201 + (_E147635147644_))))) + _let-bind147617_)) + (__tmp152182 + (let ((__tmp152183 (let () (declare (not safe)) - (cons _continue147646_ '())))) + (cons _continue147628_ '())))) (declare (not safe)) - (cons _locals147680_ __tmp152201)))) + (cons _locals147662_ __tmp152183)))) (declare (not safe)) - (cons '%#let-values __tmp152200))))) - (values _continue147682_ _block147644_)))) - (_basic-block147039_ - (lambda (_body147220_ _bind147221_ _assert147222_) - (let* ((___stx149337149338_ _body147220_) - (_g147227147311_ + (cons '%#let-values __tmp152182))))) + (values _continue147664_ _block147626_)))) + (_basic-block147021_ + (lambda (_body147202_ _bind147203_ _assert147204_) + (let* ((___stx149319149320_ _body147202_) + (_g147209147293_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149337149338_))))) - (let ((___kont149339149340_ - (lambda (_L147570_ _L147571_ _L147572_) - (let ((_g152202_ - (let ((__tmp152204 - (let ((__tmp152205 + ___stx149319149320_))))) + (let ((___kont149321149322_ + (lambda (_L147552_ _L147553_ _L147554_) + (let ((_g152184_ + (let ((__tmp152186 + (let ((__tmp152187 (let () (declare (not safe)) - (cons _L147572_ '#t)))) + (cons _L147554_ '#t)))) (declare (not safe)) - (cons __tmp152205 - _assert147222_)))) + (cons __tmp152187 + _assert147204_)))) (declare (not safe)) - (_create-block147038_ - _L147571_ + (_create-block147020_ + _L147553_ '() - _bind147221_ - __tmp152204)))) + _bind147203_ + __tmp152186)))) (begin - (let ((_g152203_ + (let ((_g152185_ (let () (declare (not safe)) - (if (##values? _g152202_) - (##vector-length _g152202_) + (if (##values? _g152184_) + (##vector-length _g152184_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152203_ 2))) + (##fx= _g152185_ 2))) (error "Context expects 2 values" - _g152203_))) - (let ((_k-continue147590_ + _g152185_))) + (let ((_k-continue147572_ (let () (declare (not safe)) - (##vector-ref _g152202_ 0))) - (_k-block147591_ + (##vector-ref _g152184_ 0))) + (_k-block147573_ (let () (declare (not safe)) - (##vector-ref _g152202_ 1)))) - (let* ((___stx149319149320_ _L147570_) - (_g147594147603_ + (##vector-ref _g152184_ 1)))) + (let* ((___stx149301149302_ _L147552_) + (_g147576147585_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149319149320_))))) - (let ((___kont149321149322_ + ___stx149301149302_))))) + (let ((___kont149303149304_ (lambda () - (values (let ((__tmp152206 - (let ((__tmp152207 + (values (let ((__tmp152188 + (let ((__tmp152189 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152208 + (let ((__tmp152190 (let () (declare (not safe)) - (cons _L147570_ '())))) + (cons _L147552_ '())))) (declare (not safe)) - (cons _k-continue147590_ __tmp152208)))) + (cons _k-continue147572_ __tmp152190)))) (declare (not safe)) - (cons _L147572_ __tmp152207)))) + (cons _L147554_ __tmp152189)))) (declare (not safe)) - (cons '%#if __tmp152206)) - (let () (declare (not safe)) (cons _k-block147591_ '()))))) + (cons '%#if __tmp152188)) + (let () (declare (not safe)) (cons _k-block147573_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149323149324_ + (___kont149305149306_ (lambda () - (let ((_g152209_ - (let ((__tmp152211 - (let ((__tmp152212 + (let ((_g152191_ + (let ((__tmp152193 + (let ((__tmp152194 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L147572_ '#f)))) + (cons _L147554_ '#f)))) (declare (not safe)) - (cons __tmp152212 _assert147222_)))) + (cons __tmp152194 _assert147204_)))) (declare (not safe)) - (_create-block147038_ - _L147570_ + (_create-block147020_ + _L147552_ '() - _bind147221_ - __tmp152211)))) + _bind147203_ + __tmp152193)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g152210_ + (let ((_g152192_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g152209_) - (##vector-length _g152209_) + _g152191_) + (##vector-length _g152191_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g152210_ 2))) - (error "Context expects 2 values" _g152210_))) + (if (not (let () (declare (not safe)) (##fx= _g152192_ 2))) + (error "Context expects 2 values" _g152192_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_e-continue147610_ + (let ((_e-continue147592_ (let () (declare (not safe)) (##vector-ref - _g152209_ + _g152191_ 0))) - (_e-block147611_ + (_e-block147593_ (let () (declare (not safe)) (##vector-ref - _g152209_ + _g152191_ 1)))) - (values (let ((__tmp152213 + (values (let ((__tmp152195 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152214 - (let ((__tmp152215 + (let ((__tmp152196 + (let ((__tmp152197 (let () (declare (not safe)) - (cons _e-continue147610_ '())))) + (cons _e-continue147592_ '())))) (declare (not safe)) - (cons _k-continue147590_ __tmp152215)))) + (cons _k-continue147572_ __tmp152197)))) (declare (not safe)) - (cons _L147572_ __tmp152214)))) + (cons _L147554_ __tmp152196)))) (declare (not safe)) - (cons '%#if __tmp152213)) - (let ((__tmp152216 + (cons '%#if __tmp152195)) + (let ((__tmp152198 (let () (declare (not safe)) - (cons _e-block147611_ '())))) + (cons _e-block147593_ '())))) (declare (not safe)) - (cons _k-block147591_ __tmp152216))))))))) + (cons _k-block147573_ __tmp152198))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx149319149320_)) - (let ((_e147598147618_ + ___stx149301149302_)) + (let ((_e147580147600_ (let () (declare (not safe)) (gx#stx-e - ___stx149319149320_)))) - (let ((_tl147596147623_ + ___stx149301149302_)))) + (let ((_tl147578147605_ (let () (declare (not safe)) - (##cdr _e147598147618_))) - (_hd147597147621_ + (##cdr _e147580147600_))) + (_hd147579147603_ (let () (declare (not safe)) - (##car _e147598147618_)))) + (##car _e147580147600_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd147597147621_)) + _hd147579147603_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd147597147621_)) - (___kont149321149322_) - (___kont149323149324_)) - (___kont149323149324_)))) - (___kont149323149324_))))))))) - (___kont149341149342_ - (lambda () (values _body147220_ '()))) - (___kont149345149346_ - (lambda (_L147399_ _L147400_ _L147401_) - (let* ((_let-bind147436_ + _hd147579147603_)) + (___kont149303149304_) + (___kont149305149306_)) + (___kont149305149306_)))) + (___kont149305149306_))))))))) + (___kont149323149324_ + (lambda () (values _body147202_ '()))) + (___kont149327149328_ + (lambda (_L147381_ _L147382_ _L147383_) + (let* ((_let-bind147418_ (map cons - (let ((__tmp152217 - (lambda (_g147421147424_ - _g147422147426_) + (let ((__tmp152199 + (lambda (_g147403147406_ + _g147404147408_) (let () (declare (not safe)) - (cons _g147421147424_ - _g147422147426_))))) + (cons _g147403147406_ + _g147404147408_))))) (declare (not safe)) - (foldr1 __tmp152217 + (foldr1 __tmp152199 '() - _L147401_)) - (let ((__tmp152218 - (lambda (_g147428147431_ - _g147429147433_) + _L147383_)) + (let ((__tmp152200 + (lambda (_g147410147413_ + _g147411147415_) (let () (declare (not safe)) - (cons _g147428147431_ - _g147429147433_))))) + (cons _g147410147413_ + _g147411147415_))))) (declare (not safe)) - (foldr1 __tmp152218 + (foldr1 __tmp152200 '() - _L147400_)))) - (_g152219_ - (let ((__tmp152221 + _L147382_)))) + (_g152201_ + (let ((__tmp152203 (let () (declare (not safe)) (foldl1 cons - _bind147221_ - _let-bind147436_)))) + _bind147203_ + _let-bind147418_)))) (declare (not safe)) - (_create-block147038_ - _L147399_ - _let-bind147436_ - __tmp152221 - _assert147222_)))) + (_create-block147020_ + _L147381_ + _let-bind147418_ + __tmp152203 + _assert147204_)))) (begin - (let ((_g152220_ + (let ((_g152202_ (let () (declare (not safe)) - (if (##values? _g152219_) - (##vector-length _g152219_) + (if (##values? _g152201_) + (##vector-length _g152201_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152220_ 2))) + (##fx= _g152202_ 2))) (error "Context expects 2 values" - _g152220_))) - (let ((_continue147438_ + _g152202_))) + (let ((_continue147420_ (let () (declare (not safe)) - (##vector-ref _g152219_ 0))) - (_block147439_ + (##vector-ref _g152201_ 0))) + (_block147421_ (let () (declare (not safe)) - (##vector-ref _g152219_ 1)))) + (##vector-ref _g152201_ 1)))) (let () - (values _continue147438_ + (values _continue147420_ (let () (declare (not safe)) - (cons _block147439_ + (cons _block147421_ '()))))))))) - (___kont149349149350_ - (lambda () (values _body147220_ '())))) - (let* ((___match149428149429_ - (lambda (_e147280147323_ - _hd147279147326_ - _tl147278147328_ - _e147283147331_ - _hd147282147334_ - _tl147281147336_ - ___splice149347149348_ - _target147284147339_ - _tl147286147341_) - (letrec ((_loop147287147344_ - (lambda (_hd147285147347_ - _expr147291147349_ - _id147292147351_) + (___kont149331149332_ + (lambda () (values _body147202_ '())))) + (let* ((___match149410149411_ + (lambda (_e147262147305_ + _hd147261147308_ + _tl147260147310_ + _e147265147313_ + _hd147264147316_ + _tl147263147318_ + ___splice149329149330_ + _target147266147321_ + _tl147268147323_) + (letrec ((_loop147269147326_ + (lambda (_hd147267147329_ + _expr147273147331_ + _id147274147333_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd147285147347_)) - (let ((_e147288147354_ + _hd147267147329_)) + (let ((_e147270147336_ (let () (declare (not safe)) (gx#stx-e - _hd147285147347_)))) - (let ((_lp-tl147290147359_ + _hd147267147329_)))) + (let ((_lp-tl147272147341_ (let () (declare (not safe)) - (##cdr _e147288147354_))) - (_lp-hd147289147357_ + (##cdr _e147270147336_))) + (_lp-hd147271147339_ (let () (declare (not safe)) - (##car _e147288147354_)))) + (##car _e147270147336_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd147289147357_)) - (let ((_e147297147362_ + _lp-hd147271147339_)) + (let ((_e147279147344_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd147289147357_)))) - (let ((_tl147295147367_ + (gx#stx-e _lp-hd147271147339_)))) + (let ((_tl147277147349_ (let () (declare (not safe)) - (##cdr _e147297147362_))) - (_hd147296147365_ + (##cdr _e147279147344_))) + (_hd147278147347_ (let () (declare (not safe)) - (##car _e147297147362_)))) + (##car _e147279147344_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd147296147365_)) - (let ((_e147300147370_ + (gx#stx-pair? _hd147278147347_)) + (let ((_e147282147352_ (let () (declare (not safe)) - (gx#stx-e _hd147296147365_)))) - (let ((_tl147298147375_ + (gx#stx-e _hd147278147347_)))) + (let ((_tl147280147357_ (let () (declare (not safe)) - (##cdr _e147300147370_))) - (_hd147299147373_ + (##cdr _e147282147352_))) + (_hd147281147355_ (let () (declare (not safe)) - (##car _e147300147370_)))) + (##car _e147282147352_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147298147375_)) + (gx#stx-null? _tl147280147357_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl147295147367_)) - (let ((_e147303147378_ + (gx#stx-pair? _tl147277147349_)) + (let ((_e147285147360_ (let () (declare (not safe)) - (gx#stx-e _tl147295147367_)))) - (let ((_tl147301147383_ + (gx#stx-e _tl147277147349_)))) + (let ((_tl147283147365_ (let () (declare (not safe)) - (##cdr _e147303147378_))) - (_hd147302147381_ + (##cdr _e147285147360_))) + (_hd147284147363_ (let () (declare (not safe)) - (##car _e147303147378_)))) + (##car _e147285147360_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl147301147383_)) - (let ((__tmp152223 + _tl147283147365_)) + (let ((__tmp152205 (let () (declare (not safe)) - (cons _hd147302147381_ - _expr147291147349_))) - (__tmp152222 + (cons _hd147284147363_ + _expr147273147331_))) + (__tmp152204 (let () (declare (not safe)) - (cons _hd147299147373_ - _id147292147351_)))) + (cons _hd147281147355_ + _id147274147333_)))) (declare (not safe)) - (_loop147287147344_ - _lp-tl147290147359_ - __tmp152223 - __tmp152222)) - (___kont149349149350_)))) - (___kont149349149350_)) - (___kont149349149350_)))) - (___kont149349149350_)))) - (___kont149349149350_)))) + (_loop147269147326_ + _lp-tl147272147341_ + __tmp152205 + __tmp152204)) + (___kont149331149332_)))) + (___kont149331149332_)) + (___kont149331149332_)))) + (___kont149331149332_)))) + (___kont149331149332_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id147294147388_ - (reverse _id147292147351_)) - (_expr147293147386_ - (reverse _expr147291147349_))) + (let ((_id147276147370_ + (reverse _id147274147333_)) + (_expr147275147368_ + (reverse _expr147273147331_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl147281147336_)) - (let ((_e147306147391_ + _tl147263147318_)) + (let ((_e147288147373_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl147281147336_)))) - (let ((_tl147304147396_ - (let () (declare (not safe)) (##cdr _e147306147391_))) - (_hd147305147394_ + (gx#stx-e _tl147263147318_)))) + (let ((_tl147286147378_ + (let () (declare (not safe)) (##cdr _e147288147373_))) + (_hd147287147376_ (let () (declare (not safe)) - (##car _e147306147391_)))) + (##car _e147288147373_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147304147396_)) - (___kont149345149346_ - _hd147305147394_ - _expr147293147386_ - _id147294147388_) - (___kont149349149350_)))) - (___kont149349149350_))))))) + (gx#stx-null? _tl147286147378_)) + (___kont149327149328_ + _hd147287147376_ + _expr147275147368_ + _id147276147370_) + (___kont149331149332_)))) + (___kont149331149332_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop147287147344_ - _target147284147339_ + (_loop147269147326_ + _target147266147321_ '() '()))))) - (___match149404149405_ - (lambda (_e147246147447_ - _hd147245147450_ - _tl147244147452_ - _e147249147455_ - _hd147248147458_ - _tl147247147460_ - ___splice149343149344_ - _target147250147463_ - _tl147252147465_) - (letrec ((_loop147253147468_ - (lambda (_hd147251147471_) + (___match149386149387_ + (lambda (_e147228147429_ + _hd147227147432_ + _tl147226147434_ + _e147231147437_ + _hd147230147440_ + _tl147229147442_ + ___splice149325149326_ + _target147232147445_ + _tl147234147447_) + (letrec ((_loop147235147450_ + (lambda (_hd147233147453_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd147251147471_)) - (let ((_e147254147474_ + _hd147233147453_)) + (let ((_e147236147456_ (let () (declare (not safe)) (gx#stx-e - _hd147251147471_)))) - (let ((_lp-tl147256147479_ + _hd147233147453_)))) + (let ((_lp-tl147238147461_ (let () (declare (not safe)) - (##cdr _e147254147474_))) - (_lp-hd147255147477_ + (##cdr _e147236147456_))) + (_lp-hd147237147459_ (let () (declare (not safe)) - (##car _e147254147474_)))) + (##car _e147236147456_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd147255147477_)) - (let ((_e147259147482_ + _lp-hd147237147459_)) + (let ((_e147241147464_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd147255147477_)))) - (let ((_tl147257147487_ + (gx#stx-e _lp-hd147237147459_)))) + (let ((_tl147239147469_ (let () (declare (not safe)) - (##cdr _e147259147482_))) - (_hd147258147485_ + (##cdr _e147241147464_))) + (_hd147240147467_ (let () (declare (not safe)) - (##car _e147259147482_)))) + (##car _e147241147464_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd147258147485_)) - (let ((_e147262147490_ + (gx#stx-pair? _hd147240147467_)) + (let ((_e147244147472_ (let () (declare (not safe)) - (gx#stx-e _hd147258147485_)))) - (let ((_tl147260147495_ + (gx#stx-e _hd147240147467_)))) + (let ((_tl147242147477_ (let () (declare (not safe)) - (##cdr _e147262147490_))) - (_hd147261147493_ + (##cdr _e147244147472_))) + (_hd147243147475_ (let () (declare (not safe)) - (##car _e147262147490_)))) + (##car _e147244147472_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147260147495_)) + (gx#stx-null? _tl147242147477_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl147257147487_)) - (let ((_e147265147498_ + (gx#stx-pair? _tl147239147469_)) + (let ((_e147247147480_ (let () (declare (not safe)) - (gx#stx-e _tl147257147487_)))) - (let ((_tl147263147503_ + (gx#stx-e _tl147239147469_)))) + (let ((_tl147245147485_ (let () (declare (not safe)) - (##cdr _e147265147498_))) - (_hd147264147501_ + (##cdr _e147247147480_))) + (_hd147246147483_ (let () (declare (not safe)) - (##car _e147265147498_)))) + (##car _e147247147480_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd147264147501_)) - (let ((_e147268147506_ + _hd147246147483_)) + (let ((_e147250147488_ (let () (declare (not safe)) (gx#stx-e - _hd147264147501_)))) - (let ((_tl147266147511_ + _hd147246147483_)))) + (let ((_tl147248147493_ (let () (declare (not safe)) - (##cdr _e147268147506_))) - (_hd147267147509_ + (##cdr _e147250147488_))) + (_hd147249147491_ (let () (declare (not safe)) - (##car _e147268147506_)))) + (##car _e147250147488_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd147267147509_)) + _hd147249147491_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd147267147509_)) + _hd147249147491_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl147266147511_)) - (let ((_e147271147514_ + (gx#stx-pair? _tl147248147493_)) + (let ((_e147253147496_ (let () (declare (not safe)) - (gx#stx-e _tl147266147511_)))) - (let ((_tl147269147519_ + (gx#stx-e _tl147248147493_)))) + (let ((_tl147251147501_ (let () (declare (not safe)) - (##cdr _e147271147514_))) - (_hd147270147517_ + (##cdr _e147253147496_))) + (_hd147252147499_ (let () (declare (not safe)) - (##car _e147271147514_)))) + (##car _e147253147496_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147269147519_)) + (gx#stx-null? _tl147251147501_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl147263147503_)) + (gx#stx-null? _tl147245147485_)) (let () (declare (not safe)) - (_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_)))) + (_loop147235147450_ _lp-tl147238147461_)) + (___match149410149411_ + _e147228147429_ + _hd147227147432_ + _tl147226147434_ + _e147231147437_ + _hd147230147440_ + _tl147229147442_ + ___splice149325149326_ + _target147232147445_ + _tl147234147447_)) + (___match149410149411_ + _e147228147429_ + _hd147227147432_ + _tl147226147434_ + _e147231147437_ + _hd147230147440_ + _tl147229147442_ + ___splice149325149326_ + _target147232147445_ + _tl147234147447_)))) + (___match149410149411_ + _e147228147429_ + _hd147227147432_ + _tl147226147434_ + _e147231147437_ + _hd147230147440_ + _tl147229147442_ + ___splice149325149326_ + _target147232147445_ + _tl147234147447_)) + (___match149410149411_ + _e147228147429_ + _hd147227147432_ + _tl147226147434_ + _e147231147437_ + _hd147230147440_ + _tl147229147442_ + ___splice149325149326_ + _target147232147445_ + _tl147234147447_)) + (___match149410149411_ + _e147228147429_ + _hd147227147432_ + _tl147226147434_ + _e147231147437_ + _hd147230147440_ + _tl147229147442_ + ___splice149325149326_ + _target147232147445_ + _tl147234147447_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_)))) + (___match149410149411_ + _e147228147429_ + _hd147227147432_ + _tl147226147434_ + _e147231147437_ + _hd147230147440_ + _tl147229147442_ + ___splice149325149326_ + _target147232147445_ + _tl147234147447_)))) + (___match149410149411_ + _e147228147429_ + _hd147227147432_ + _tl147226147434_ + _e147231147437_ + _hd147230147440_ + _tl147229147442_ + ___splice149325149326_ + _target147232147445_ + _tl147234147447_)) + (___match149410149411_ + _e147228147429_ + _hd147227147432_ + _tl147226147434_ + _e147231147437_ + _hd147230147440_ + _tl147229147442_ + ___splice149325149326_ + _target147232147445_ + _tl147234147447_)))) + (___match149410149411_ + _e147228147429_ + _hd147227147432_ + _tl147226147434_ + _e147231147437_ + _hd147230147440_ + _tl147229147442_ + ___splice149325149326_ + _target147232147445_ + _tl147234147447_)))) + (___match149410149411_ + _e147228147429_ + _hd147227147432_ + _tl147226147434_ + _e147231147437_ + _hd147230147440_ + _tl147229147442_ + ___splice149325149326_ + _target147232147445_ + _tl147234147447_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (if (let () (declare (not safe)) (gx#stx-pair? - _tl147247147460_)) - (let ((_e147274147523_ + _tl147229147442_)) + (let ((_e147256147505_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl147247147460_)))) - (let ((_tl147272147528_ - (let () (declare (not safe)) (##cdr _e147274147523_))) - (_hd147273147526_ + (gx#stx-e _tl147229147442_)))) + (let ((_tl147254147510_ + (let () (declare (not safe)) (##cdr _e147256147505_))) + (_hd147255147508_ (let () (declare (not safe)) - (##car _e147274147523_)))) + (##car _e147256147505_)))) (if (let () (declare (not safe)) - (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_))))))) + (gx#stx-null? _tl147254147510_)) + (___kont149323149324_) + (___match149410149411_ + _e147228147429_ + _hd147227147432_ + _tl147226147434_ + _e147231147437_ + _hd147230147440_ + _tl147229147442_ + ___splice149325149326_ + _target147232147445_ + _tl147234147447_)))) + (___match149410149411_ + _e147228147429_ + _hd147227147432_ + _tl147226147434_ + _e147231147437_ + _hd147230147440_ + _tl147229147442_ + ___splice149325149326_ + _target147232147445_ + _tl147234147447_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop147253147468_ - _target147250147463_)))))) + (_loop147235147450_ + _target147232147445_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149337149338_)) - (let ((_e147234147538_ + (gx#stx-pair? ___stx149319149320_)) + (let ((_e147216147520_ (let () (declare (not safe)) - (gx#stx-e ___stx149337149338_)))) - (let ((_tl147232147543_ + (gx#stx-e ___stx149319149320_)))) + (let ((_tl147214147525_ (let () (declare (not safe)) - (##cdr _e147234147538_))) - (_hd147233147541_ + (##cdr _e147216147520_))) + (_hd147215147523_ (let () (declare (not safe)) - (##car _e147234147538_)))) + (##car _e147216147520_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd147233147541_)) + (gx#identifier? _hd147215147523_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd147233147541_)) + _hd147215147523_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl147232147543_)) - (let ((_e147237147546_ + _tl147214147525_)) + (let ((_e147219147528_ (let () (declare (not safe)) (gx#stx-e - _tl147232147543_)))) - (let ((_tl147235147551_ + _tl147214147525_)))) + (let ((_tl147217147533_ (let () (declare (not safe)) - (##cdr _e147237147546_))) - (_hd147236147549_ + (##cdr _e147219147528_))) + (_hd147218147531_ (let () (declare (not safe)) - (##car _e147237147546_)))) + (##car _e147219147528_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl147235147551_)) - (let ((_e147240147554_ + _tl147217147533_)) + (let ((_e147222147536_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl147235147551_)))) - (let ((_tl147238147559_ - (let () (declare (not safe)) (##cdr _e147240147554_))) - (_hd147239147557_ - (let () (declare (not safe)) (##car _e147240147554_)))) + (gx#stx-e _tl147217147533_)))) + (let ((_tl147220147541_ + (let () (declare (not safe)) (##cdr _e147222147536_))) + (_hd147221147539_ + (let () (declare (not safe)) (##car _e147222147536_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl147238147559_)) - (let ((_e147243147562_ + (gx#stx-pair? _tl147220147541_)) + (let ((_e147225147544_ (let () (declare (not safe)) - (gx#stx-e _tl147238147559_)))) - (let ((_tl147241147567_ + (gx#stx-e _tl147220147541_)))) + (let ((_tl147223147549_ (let () (declare (not safe)) - (##cdr _e147243147562_))) - (_hd147242147565_ + (##cdr _e147225147544_))) + (_hd147224147547_ (let () (declare (not safe)) - (##car _e147243147562_)))) + (##car _e147225147544_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147241147567_)) - (___kont149339149340_ - _hd147242147565_ - _hd147239147557_ - _hd147236147549_) - (___kont149349149350_)))) - (___kont149349149350_)))) - (___kont149349149350_)))) + (gx#stx-null? _tl147223147549_)) + (___kont149321149322_ + _hd147224147547_ + _hd147221147539_ + _hd147218147531_) + (___kont149331149332_)))) + (___kont149331149332_)))) + (___kont149331149332_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149349149350_)) + (___kont149331149332_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd147233147541_)) + _hd147215147523_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl147232147543_)) - (let ((_e147249147455_ + _tl147214147525_)) + (let ((_e147231147437_ (let () (declare (not safe)) (gx#stx-e - _tl147232147543_)))) - (let ((_tl147247147460_ + _tl147214147525_)))) + (let ((_tl147229147442_ (let () (declare (not safe)) - (##cdr _e147249147455_))) - (_hd147248147458_ + (##cdr _e147231147437_))) + (_hd147230147440_ (let () (declare (not safe)) - (##car _e147249147455_)))) + (##car _e147231147437_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd147248147458_)) - (let ((___splice149343149344_ + _hd147230147440_)) + (let ((___splice149325149326_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd147248147458_ '0)))) - (let ((_tl147252147465_ + (gx#syntax-split-splice _hd147230147440_ '0)))) + (let ((_tl147234147447_ (let () (declare (not safe)) - (##vector-ref ___splice149343149344_ '1))) - (_target147250147463_ + (##vector-ref ___splice149325149326_ '1))) + (_target147232147445_ (let () (declare (not safe)) - (##vector-ref ___splice149343149344_ '0)))) + (##vector-ref ___splice149325149326_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147252147465_)) - (___match149404149405_ - _e147234147538_ - _hd147233147541_ - _tl147232147543_ - _e147249147455_ - _hd147248147458_ - _tl147247147460_ - ___splice149343149344_ - _target147250147463_ - _tl147252147465_) - (___kont149349149350_)))) - (___kont149349149350_)))) + (gx#stx-null? _tl147234147447_)) + (___match149386149387_ + _e147216147520_ + _hd147215147523_ + _tl147214147525_ + _e147231147437_ + _hd147230147440_ + _tl147229147442_ + ___splice149325149326_ + _target147232147445_ + _tl147234147447_) + (___kont149331149332_)))) + (___kont149331149332_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149349149350_)) - (___kont149349149350_))) - (___kont149349149350_)))) - (___kont149349149350_))))))) - (_fold-blocks147040_ - (lambda (_rest147139_ _blocks147140_) - (let* ((_rest147141147158_ _rest147139_) - (_E147144147162_ + (___kont149331149332_)) + (___kont149331149332_))) + (___kont149331149332_)))) + (___kont149331149332_))))))) + (_fold-blocks147022_ + (lambda (_rest147121_ _blocks147122_) + (let* ((_rest147123147140_ _rest147121_) + (_E147126147144_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _rest147141147158_))))) - (let ((_K147146147182_ - (lambda (_rest147173_ - _assert147174_ - _bind147175_ - _body147176_ - _name147177_) - (let ((_g152224_ + _rest147123147140_))))) + (let ((_K147128147164_ + (lambda (_rest147155_ + _assert147156_ + _bind147157_ + _body147158_ + _name147159_) + (let ((_g152206_ (let () (declare (not safe)) - (_basic-block147039_ - _body147176_ - _bind147175_ - _assert147174_)))) + (_basic-block147021_ + _body147158_ + _bind147157_ + _assert147156_)))) (begin - (let ((_g152225_ + (let ((_g152207_ (let () (declare (not safe)) - (if (##values? _g152224_) - (##vector-length _g152224_) + (if (##values? _g152206_) + (##vector-length _g152206_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152225_ 2))) + (##fx= _g152207_ 2))) (error "Context expects 2 values" - _g152225_))) - (let ((_body147179_ + _g152207_))) + (let ((_body147161_ (let () (declare (not safe)) - (##vector-ref _g152224_ 0))) - (_body-blocks147180_ + (##vector-ref _g152206_ 0))) + (_body-blocks147162_ (let () (declare (not safe)) - (##vector-ref _g152224_ 1)))) - (let ((__tmp152236 + (##vector-ref _g152206_ 1)))) + (let ((__tmp152218 (let () (declare (not safe)) (foldl1 cons - _rest147173_ - _body-blocks147180_))) - (__tmp152226 - (let ((__tmp152227 - (let ((__tmp152228 - (let ((__tmp152229 + _rest147155_ + _body-blocks147162_))) + (__tmp152208 + (let ((__tmp152209 + (let ((__tmp152210 + (let ((__tmp152211 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152232 - (let ((__tmp152233 - (let ((__tmp152235 - (reverse (map car _bind147175_))) - (__tmp152234 + (let ((__tmp152214 + (let ((__tmp152215 + (let ((__tmp152217 + (reverse (map car _bind147157_))) + (__tmp152216 (let () (declare (not safe)) - (cons _body147179_ '())))) + (cons _body147161_ '())))) (declare (not safe)) - (cons __tmp152235 __tmp152234)))) + (cons __tmp152217 __tmp152216)))) (declare (not safe)) - (cons '%#lambda __tmp152233))) - (__tmp152230 - (let ((__tmp152231 + (cons '%#lambda __tmp152215))) + (__tmp152212 + (let ((__tmp152213 (let () (declare (not safe)) - (cons _bind147175_ '())))) + (cons _bind147157_ '())))) (declare (not safe)) - (cons _assert147174_ __tmp152231)))) + (cons _assert147156_ __tmp152213)))) (declare (not safe)) - (cons __tmp152232 __tmp152230)))) + (cons __tmp152214 __tmp152212)))) (declare (not safe)) - (cons 'continue: __tmp152229)))) + (cons 'continue: __tmp152211)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _name147177_ - __tmp152228)))) + (cons _name147159_ + __tmp152210)))) (declare (not safe)) - (cons __tmp152227 - _blocks147140_)))) + (cons __tmp152209 + _blocks147122_)))) (declare (not safe)) - (_fold-blocks147040_ - __tmp152236 - __tmp152226))))))) - (_K147145147167_ (lambda () _blocks147140_))) - (let ((_try-match147143147170_ + (_fold-blocks147022_ + __tmp152218 + __tmp152208))))))) + (_K147127147149_ (lambda () _blocks147122_))) + (let ((_try-match147125147152_ (lambda () (if (let () (declare (not safe)) - (##null? _rest147141147158_)) + (##null? _rest147123147140_)) (let () (declare (not safe)) - (_K147145147167_)) + (_K147127147149_)) (let () (declare (not safe)) - (_E147144147162_)))))) + (_E147126147144_)))))) (if (let () (declare (not safe)) - (##pair? _rest147141147158_)) - (let ((_tl147148147187_ + (##pair? _rest147123147140_)) + (let ((_tl147130147169_ (let () (declare (not safe)) - (##cdr _rest147141147158_))) - (_hd147147147185_ + (##cdr _rest147123147140_))) + (_hd147129147167_ (let () (declare (not safe)) - (##car _rest147141147158_)))) + (##car _rest147123147140_)))) (if (let () (declare (not safe)) - (##pair? _hd147147147185_)) - (let ((_tl147150147192_ + (##pair? _hd147129147167_)) + (let ((_tl147132147174_ (let () (declare (not safe)) - (##cdr _hd147147147185_))) - (_hd147149147190_ + (##cdr _hd147129147167_))) + (_hd147131147172_ (let () (declare (not safe)) - (##car _hd147147147185_)))) + (##car _hd147129147167_)))) (if (let () (declare (not safe)) - (##pair? _tl147150147192_)) - (let ((_tl147152147199_ + (##pair? _tl147132147174_)) + (let ((_tl147134147181_ (let () (declare (not safe)) - (##cdr _tl147150147192_))) - (_hd147151147197_ + (##cdr _tl147132147174_))) + (_hd147133147179_ (let () (declare (not safe)) - (##car _tl147150147192_)))) + (##car _tl147132147174_)))) (if (let () (declare (not safe)) - (##pair? _tl147152147199_)) - (let ((_tl147154147206_ + (##pair? _tl147134147181_)) + (let ((_tl147136147188_ (let () (declare (not safe)) - (##cdr _tl147152147199_))) - (_hd147153147204_ + (##cdr _tl147134147181_))) + (_hd147135147186_ (let () (declare (not safe)) - (##car _tl147152147199_)))) + (##car _tl147134147181_)))) (if (let () (declare (not safe)) - (##pair? _tl147154147206_)) - (let ((_tl147156147213_ + (##pair? _tl147136147188_)) + (let ((_tl147138147195_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##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_)) + (##cdr _tl147136147188_))) + (_hd147137147193_ + (let () (declare (not safe)) (##car _tl147136147188_)))) + (if (let () (declare (not safe)) (##null? _tl147138147195_)) + (let ((_name147177_ _hd147131147172_) + (_body147184_ _hd147133147179_) + (_bind147191_ _hd147135147186_) + (_assert147198_ _hd147137147193_) + (_rest147200_ _tl147130147169_)) (let () (declare (not safe)) - (_K147146147182_ - _rest147218_ - _assert147216_ - _bind147209_ - _body147202_ - _name147195_))) - (let () (declare (not safe)) (_E147144147162_)))) - (let () (declare (not safe)) (_E147144147162_)))) + (_K147128147164_ + _rest147200_ + _assert147198_ + _bind147191_ + _body147184_ + _name147177_))) + (let () (declare (not safe)) (_E147126147144_)))) + (let () (declare (not safe)) (_E147126147144_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E147144147162_)))) + (_E147126147144_)))) (let () (declare (not safe)) - (_E147144147162_)))) + (_E147126147144_)))) (let () (declare (not safe)) - (_E147144147162_)))) + (_E147126147144_)))) (let () (declare (not safe)) - (_try-match147143147170_))))))))) - (let* ((_clause147041147048_ _clause147034_) - (_E147043147052_ + (_try-match147125147152_))))))))) + (let* ((_clause147023147030_ _clause147016_) + (_E147025147034_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _clause147041147048_)))) - (_K147044147127_ - (lambda (_body147055_ _name147056_) - (let* ((_g147058147074_ - (lambda (_g147059147071_) + (error '"No clause matching" _clause147023147030_)))) + (_K147026147109_ + (lambda (_body147037_ _name147038_) + (let* ((_g147040147056_ + (lambda (_g147041147053_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g147059147071_)))) - (_g147057147124_ - (lambda (_g147059147077_) + _g147041147053_)))) + (_g147039147106_ + (lambda (_g147041147059_) (if (let () (declare (not safe)) - (gx#stx-pair? _g147059147077_)) - (let ((_e147063147079_ + (gx#stx-pair? _g147041147059_)) + (let ((_e147045147061_ (let () (declare (not safe)) - (gx#stx-e _g147059147077_)))) - (let ((_hd147062147082_ + (gx#stx-e _g147041147059_)))) + (let ((_hd147044147064_ (let () (declare (not safe)) - (##car _e147063147079_))) - (_tl147061147084_ + (##car _e147045147061_))) + (_tl147043147066_ (let () (declare (not safe)) - (##cdr _e147063147079_)))) + (##cdr _e147045147061_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd147062147082_)) + (gx#identifier? _hd147044147064_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd147062147082_)) + _hd147044147064_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl147061147084_)) - (let ((_e147066147087_ + _tl147043147066_)) + (let ((_e147048147069_ (let () (declare (not safe)) (gx#stx-e - _tl147061147084_)))) - (let ((_hd147065147090_ + _tl147043147066_)))) + (let ((_hd147047147072_ (let () (declare (not safe)) - (##car _e147066147087_))) - (_tl147064147092_ + (##car _e147048147069_))) + (_tl147046147074_ (let () (declare (not safe)) - (##cdr _e147066147087_)))) + (##cdr _e147048147069_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd147065147090_)) + _hd147047147072_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl147064147092_)) - (let ((_e147069147095_ + (gx#stx-pair? _tl147046147074_)) + (let ((_e147051147077_ (let () (declare (not safe)) - (gx#stx-e _tl147064147092_)))) - (let ((_hd147068147098_ + (gx#stx-e _tl147046147074_)))) + (let ((_hd147050147080_ (let () (declare (not safe)) - (##car _e147069147095_))) - (_tl147067147100_ + (##car _e147051147077_))) + (_tl147049147082_ (let () (declare (not safe)) - (##cdr _e147069147095_)))) + (##cdr _e147051147077_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl147067147100_)) - ((lambda (_L147103_) - (let ((_g152237_ + (gx#stx-null? _tl147049147082_)) + ((lambda (_L147085_) + (let ((_g152219_ (let () (declare (not safe)) - (_basic-block147039_ - _L147103_ + (_basic-block147021_ + _L147085_ '() '())))) (begin - (let ((_g152238_ + (let ((_g152220_ (let () (declare (not safe)) - (if (##values? _g152237_) - (##vector-length _g152237_) + (if (##values? _g152219_) + (##vector-length _g152219_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152238_ 2))) + (##fx= _g152220_ 2))) (error "Context expects 2 values" - _g152238_))) - (let ((_body147121_ + _g152220_))) + (let ((_body147103_ (let () (declare (not safe)) - (##vector-ref _g152237_ 0))) - (_body-blocks147122_ + (##vector-ref _g152219_ 0))) + (_body-blocks147104_ (let () (declare (not safe)) - (##vector-ref _g152237_ 1)))) - (let ((__tmp152239 - (let ((__tmp152240 - (let ((__tmp152241 - (let ((__tmp152242 + (##vector-ref _g152219_ 1)))) + (let ((__tmp152221 + (let ((__tmp152222 + (let ((__tmp152223 + (let ((__tmp152224 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152244 - (let ((__tmp152245 - (let ((__tmp152246 + (let ((__tmp152226 + (let ((__tmp152227 + (let ((__tmp152228 (let () (declare (not safe)) - (cons _body147121_ '())))) + (cons _body147103_ '())))) (declare (not safe)) - (cons '() __tmp152246)))) + (cons '() __tmp152228)))) (declare (not safe)) - (cons '%#lambda __tmp152245))) - (__tmp152243 + (cons '%#lambda __tmp152227))) + (__tmp152225 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp152244 __tmp152243)))) + (cons __tmp152226 __tmp152225)))) (declare (not safe)) - (cons 'restart: __tmp152242)))) + (cons 'restart: __tmp152224)))) (declare (not safe)) - (cons _name147056_ __tmp152241)))) + (cons _name147038_ __tmp152223)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152240 - _blocks147035_)))) + (cons __tmp152222 + _blocks147017_)))) (declare (not safe)) - (_fold-blocks147040_ - _body-blocks147122_ - __tmp152239)))))) - _hd147068147098_) + (_fold-blocks147022_ + _body-blocks147104_ + __tmp152221)))))) + _hd147050147080_) (let () (declare (not safe)) - (_g147058147074_ _g147059147077_))))) + (_g147040147056_ _g147041147059_))))) (let () (declare (not safe)) - (_g147058147074_ _g147059147077_))) + (_g147040147056_ _g147041147059_))) (let () (declare (not safe)) - (_g147058147074_ _g147059147077_))))) + (_g147040147056_ _g147041147059_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g147058147074_ - _g147059147077_))) + (_g147040147056_ + _g147041147059_))) (let () (declare (not safe)) - (_g147058147074_ - _g147059147077_))) + (_g147040147056_ + _g147041147059_))) (let () (declare (not safe)) - (_g147058147074_ - _g147059147077_))))) + (_g147040147056_ + _g147041147059_))))) (let () (declare (not safe)) - (_g147058147074_ _g147059147077_)))))) + (_g147040147056_ _g147041147059_)))))) (declare (not safe)) - (_g147057147124_ _body147055_))))) - (if (let () (declare (not safe)) (##pair? _clause147041147048_)) - (let ((_hd147045147130_ + (_g147039147106_ _body147037_))))) + (if (let () (declare (not safe)) (##pair? _clause147023147030_)) + (let ((_hd147027147112_ (let () (declare (not safe)) - (##car _clause147041147048_))) - (_tl147046147132_ + (##car _clause147023147030_))) + (_tl147028147114_ (let () (declare (not safe)) - (##cdr _clause147041147048_)))) - (let* ((_name147135_ _hd147045147130_) - (_body147137_ _tl147046147132_)) + (##cdr _clause147023147030_)))) + (let* ((_name147117_ _hd147027147112_) + (_body147119_ _tl147028147114_)) (declare (not safe)) - (_K147044147127_ _body147137_ _name147135_))) - (let () (declare (not safe)) (_E147043147052_))))))) + (_K147026147109_ _body147119_ _name147117_))) + (let () (declare (not safe)) (_E147025147034_))))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_blocks146640_) - (let _lp146642_ ((_rest146644_ _blocks146640_) (_blocks146645_ '())) - (let* ((_rest146646146654_ _rest146644_) - (_else146648146703_ + (lambda (_blocks146622_) + (let _lp146624_ ((_rest146626_ _blocks146622_) (_blocks146627_ '())) + (let* ((_rest146628146636_ _rest146626_) + (_else146630146685_ (lambda () - (let ((__tmp152247 - (lambda (_block146662_ _r146663_) - (let* ((_block146664146675_ _block146662_) - (_E146666146679_ + (let ((__tmp152229 + (lambda (_block146644_ _r146645_) + (let* ((_block146646146657_ _block146644_) + (_E146648146661_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block146664146675_)))) - (_K146667146685_ - (lambda (_kont146682_ _name146683_) - (let ((__tmp152248 + _block146646146657_)))) + (_K146649146667_ + (lambda (_kont146664_ _name146665_) + (let ((__tmp152230 (let () (declare (not safe)) - (cons _name146683_ - _kont146682_)))) + (cons _name146665_ + _kont146664_)))) (declare (not safe)) - (cons __tmp152248 _r146663_))))) + (cons __tmp152230 _r146645_))))) (if (let () (declare (not safe)) - (##pair? _block146664146675_)) - (let ((_hd146668146688_ + (##pair? _block146646146657_)) + (let ((_hd146650146670_ (let () (declare (not safe)) - (##car _block146664146675_))) - (_tl146669146690_ + (##car _block146646146657_))) + (_tl146651146672_ (let () (declare (not safe)) - (##cdr _block146664146675_)))) - (let ((_name146693_ _hd146668146688_)) + (##cdr _block146646146657_)))) + (let ((_name146675_ _hd146650146670_)) (if (let () (declare (not safe)) - (##pair? _tl146669146690_)) - (let ((_tl146671146695_ + (##pair? _tl146651146672_)) + (let ((_tl146653146677_ (let () (declare (not safe)) - (##cdr _tl146669146690_)))) + (##cdr _tl146651146672_)))) (if (let () (declare (not safe)) - (##pair? _tl146671146695_)) - (let* ((_hd146672146698_ + (##pair? _tl146653146677_)) + (let* ((_hd146654146680_ (let () (declare (not safe)) - (##car _tl146671146695_))) - (_kont146701_ - _hd146672146698_)) + (##car _tl146653146677_))) + (_kont146683_ + _hd146654146680_)) (declare (not safe)) - (_K146667146685_ - _kont146701_ - _name146693_)) + (_K146649146667_ + _kont146683_ + _name146675_)) (let () (declare (not safe)) - (_E146666146679_)))) + (_E146648146661_)))) (let () (declare (not safe)) - (_E146666146679_))))) + (_E146648146661_))))) (let () (declare (not safe)) - (_E146666146679_))))))) + (_E146648146661_))))))) (declare (not safe)) - (foldl1 __tmp152247 '() _blocks146645_)))) - (_K146650147022_ - (lambda (_rest146706_ _block146707_) - (let* ((_block146708146733_ _block146707_) - (_E146711146737_ + (foldl1 __tmp152229 '() _blocks146627_)))) + (_K146632147004_ + (lambda (_rest146688_ _block146689_) + (let* ((_block146690146715_ _block146689_) + (_E146693146719_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block146708146733_))))) - (let ((_K146723146993_ - (lambda (_assert146915_ _kont146916_ _name146917_) - (let* ((_g146919146935_ - (lambda (_g146920146932_) + _block146690146715_))))) + (let ((_K146705146975_ + (lambda (_assert146897_ _kont146898_ _name146899_) + (let* ((_g146901146917_ + (lambda (_g146902146914_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g146920146932_)))) - (_g146918146990_ - (lambda (_g146920146938_) + _g146902146914_)))) + (_g146900146972_ + (lambda (_g146902146920_) (if (let () (declare (not safe)) - (gx#stx-pair? _g146920146938_)) - (let ((_e146924146940_ + (gx#stx-pair? _g146902146920_)) + (let ((_e146906146922_ (let () (declare (not safe)) (gx#stx-e - _g146920146938_)))) - (let ((_hd146923146943_ + _g146902146920_)))) + (let ((_hd146905146925_ (let () (declare (not safe)) - (##car _e146924146940_))) - (_tl146922146945_ + (##car _e146906146922_))) + (_tl146904146927_ (let () (declare (not safe)) - (##cdr _e146924146940_)))) + (##cdr _e146906146922_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146923146943_)) + _hd146905146925_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd146923146943_)) + _hd146905146925_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl146922146945_)) - (let ((_e146927146948_ + (gx#stx-pair? _tl146904146927_)) + (let ((_e146909146930_ (let () (declare (not safe)) - (gx#stx-e _tl146922146945_)))) - (let ((_hd146926146951_ + (gx#stx-e _tl146904146927_)))) + (let ((_hd146908146933_ (let () (declare (not safe)) - (##car _e146927146948_))) - (_tl146925146953_ + (##car _e146909146930_))) + (_tl146907146935_ (let () (declare (not safe)) - (##cdr _e146927146948_)))) + (##cdr _e146909146930_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd146926146951_)) + (gx#stx-null? _hd146908146933_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146925146953_)) - (let ((_e146930146956_ + (gx#stx-pair? _tl146907146935_)) + (let ((_e146912146938_ (let () (declare (not safe)) - (gx#stx-e _tl146925146953_)))) - (let ((_hd146929146959_ + (gx#stx-e _tl146907146935_)))) + (let ((_hd146911146941_ (let () (declare (not safe)) - (##car _e146930146956_))) - (_tl146928146961_ + (##car _e146912146938_))) + (_tl146910146943_ (let () (declare (not safe)) - (##cdr _e146930146956_)))) + (##cdr _e146912146938_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146928146961_)) - ((lambda (_L146964_) - (let* ((_body146979_ + (gx#stx-null? _tl146910146943_)) + ((lambda (_L146946_) + (let* ((_body146961_ (let () (declare (not safe)) (gxc#optimize-match-block - _L146964_ - _assert146915_ + _L146946_ + _assert146897_ '() - _rest146706_))) - (_block146981_ - (let ((__tmp152249 - (let ((__tmp152250 + _rest146688_))) + (_block146963_ + (let ((__tmp152231 + (let ((__tmp152232 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152252 - (let ((__tmp152253 - (let ((__tmp152254 + (let ((__tmp152234 + (let ((__tmp152235 + (let ((__tmp152236 (let () (declare (not safe)) - (cons _body146979_ '())))) + (cons _body146961_ '())))) (declare (not safe)) - (cons '() __tmp152254)))) + (cons '() __tmp152236)))) (declare (not safe)) - (cons '%#lambda __tmp152253))) - (__tmp152251 + (cons '%#lambda __tmp152235))) + (__tmp152233 (let () (declare (not safe)) - (cons _assert146915_ '())))) + (cons _assert146897_ '())))) (declare (not safe)) - (cons __tmp152252 __tmp152251)))) + (cons __tmp152234 __tmp152233)))) (declare (not safe)) - (cons 'restart: __tmp152250)))) + (cons 'restart: __tmp152232)))) (declare (not safe)) - (cons _name146917_ __tmp152249))) + (cons _name146899_ __tmp152231))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_blocks146983_ + (_blocks146965_ (let () (declare (not safe)) - (cons _block146981_ - _blocks146645_))) - (_rest146985_ + (cons _block146963_ + _blocks146627_))) + (_rest146967_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest146706_ - _blocks146983_))) - (_rest146987_ + _rest146688_ + _blocks146965_))) + (_rest146969_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest146985_ - _blocks146983_)))) + _rest146967_ + _blocks146965_)))) (let () (declare (not safe)) - (_lp146642_ - _rest146987_ - _blocks146983_)))) - _hd146929146959_) + (_lp146624_ + _rest146969_ + _blocks146965_)))) + _hd146911146941_) (let () (declare (not safe)) - (_g146919146935_ - _g146920146938_))))) + (_g146901146917_ + _g146902146920_))))) (let () (declare (not safe)) - (_g146919146935_ _g146920146938_))) + (_g146901146917_ _g146902146920_))) (let () (declare (not safe)) - (_g146919146935_ _g146920146938_))))) + (_g146901146917_ _g146902146920_))))) (let () (declare (not safe)) - (_g146919146935_ _g146920146938_))) + (_g146901146917_ _g146902146920_))) (let () (declare (not safe)) - (_g146919146935_ _g146920146938_))) + (_g146901146917_ _g146902146920_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146919146935_ - _g146920146938_))))) + (_g146901146917_ + _g146902146920_))))) (let () (declare (not safe)) - (_g146919146935_ - _g146920146938_)))))) + (_g146901146917_ + _g146902146920_)))))) (declare (not safe)) - (_g146918146990_ _kont146916_)))) - (_K146712146876_ - (lambda (_bind146741_ - _assert146742_ - _kont146743_ - _name146744_) - (let* ((_g146746146772_ - (lambda (_g146747146769_) + (_g146900146972_ _kont146898_)))) + (_K146694146858_ + (lambda (_bind146723_ + _assert146724_ + _kont146725_ + _name146726_) + (let* ((_g146728146754_ + (lambda (_g146729146751_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g146747146769_)))) - (_g146745146873_ - (lambda (_g146747146775_) + _g146729146751_)))) + (_g146727146855_ + (lambda (_g146729146757_) (if (let () (declare (not safe)) - (gx#stx-pair? _g146747146775_)) - (let ((_e146752146777_ + (gx#stx-pair? _g146729146757_)) + (let ((_e146734146759_ (let () (declare (not safe)) (gx#stx-e - _g146747146775_)))) - (let ((_hd146751146780_ + _g146729146757_)))) + (let ((_hd146733146762_ (let () (declare (not safe)) - (##car _e146752146777_))) - (_tl146750146782_ + (##car _e146734146759_))) + (_tl146732146764_ (let () (declare (not safe)) - (##cdr _e146752146777_)))) + (##cdr _e146734146759_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146751146780_)) + _hd146733146762_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd146751146780_)) + _hd146733146762_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl146750146782_)) - (let ((_e146755146785_ + (gx#stx-pair? _tl146732146764_)) + (let ((_e146737146767_ (let () (declare (not safe)) - (gx#stx-e _tl146750146782_)))) - (let ((_hd146754146788_ + (gx#stx-e _tl146732146764_)))) + (let ((_hd146736146770_ (let () (declare (not safe)) - (##car _e146755146785_))) - (_tl146753146790_ + (##car _e146737146767_))) + (_tl146735146772_ (let () (declare (not safe)) - (##cdr _e146755146785_)))) + (##cdr _e146737146767_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd146754146788_)) - (let ((_g152255_ + (gx#stx-pair/null? _hd146736146770_)) + (let ((_g152237_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd146754146788_ + _hd146736146770_ '0)))) (begin - (let ((_g152256_ + (let ((_g152238_ (let () (declare (not safe)) - (if (##values? _g152255_) - (##vector-length _g152255_) + (if (##values? _g152237_) + (##vector-length _g152237_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152256_ 2))) + (##fx= _g152238_ 2))) (error "Context expects 2 values" - _g152256_))) - (let ((_target146756146793_ + _g152238_))) + (let ((_target146738146775_ (let () (declare (not safe)) - (##vector-ref _g152255_ 0))) - (_tl146758146795_ + (##vector-ref _g152237_ 0))) + (_tl146740146777_ (let () (declare (not safe)) - (##vector-ref _g152255_ 1)))) + (##vector-ref _g152237_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146758146795_)) - (letrec ((_loop146759146798_ - (lambda (_hd146757146801_ - _id146763146803_) + (gx#stx-null? _tl146740146777_)) + (letrec ((_loop146741146780_ + (lambda (_hd146739146783_ + _id146745146785_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd146757146801_)) - (let ((_e146760146806_ + _hd146739146783_)) + (let ((_e146742146788_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd146757146801_)))) - (let ((_lp-hd146761146809_ - (let () (declare (not safe)) (##car _e146760146806_))) - (_lp-tl146762146811_ - (let () (declare (not safe)) (##cdr _e146760146806_)))) - (let ((__tmp152266 + (gx#stx-e _hd146739146783_)))) + (let ((_lp-hd146743146791_ + (let () (declare (not safe)) (##car _e146742146788_))) + (_lp-tl146744146793_ + (let () (declare (not safe)) (##cdr _e146742146788_)))) + (let ((__tmp152248 (let () (declare (not safe)) - (cons _lp-hd146761146809_ _id146763146803_)))) + (cons _lp-hd146743146791_ _id146745146785_)))) (declare (not safe)) - (_loop146759146798_ _lp-tl146762146811_ __tmp152266)))) - (let ((_id146764146814_ (reverse _id146763146803_))) + (_loop146741146780_ _lp-tl146744146793_ __tmp152248)))) + (let ((_id146746146796_ (reverse _id146745146785_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146753146790_)) - (let ((_e146767146817_ + (gx#stx-pair? _tl146735146772_)) + (let ((_e146749146799_ (let () (declare (not safe)) - (gx#stx-e _tl146753146790_)))) - (let ((_hd146766146820_ + (gx#stx-e _tl146735146772_)))) + (let ((_hd146748146802_ (let () (declare (not safe)) - (##car _e146767146817_))) - (_tl146765146822_ + (##car _e146749146799_))) + (_tl146747146804_ (let () (declare (not safe)) - (##cdr _e146767146817_)))) + (##cdr _e146749146799_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146765146822_)) - ((lambda (_L146825_ _L146826_) - (let* ((_body146855_ + (gx#stx-null? _tl146747146804_)) + ((lambda (_L146807_ _L146808_) + (let* ((_body146837_ (let () (declare (not safe)) (gxc#optimize-match-block - _L146825_ - _assert146742_ - _bind146741_ - _rest146706_))) - (_block146864_ - (let ((__tmp152257 - (let ((__tmp152258 - (let ((__tmp152261 - (let ((__tmp152262 + _L146807_ + _assert146724_ + _bind146723_ + _rest146688_))) + (_block146846_ + (let ((__tmp152239 + (let ((__tmp152240 + (let ((__tmp152243 + (let ((__tmp152244 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152264 - (let ((__tmp152265 - (lambda (_g146856146859_ - _g146857146861_) + (let ((__tmp152246 + (let ((__tmp152247 + (lambda (_g146838146841_ + _g146839146843_) (let () (declare (not safe)) - (cons _g146856146859_ - _g146857146861_))))) + (cons _g146838146841_ + _g146839146843_))))) (declare (not safe)) - (foldr1 __tmp152265 '() _L146826_))) - (__tmp152263 + (foldr1 __tmp152247 '() _L146808_))) + (__tmp152245 (let () (declare (not safe)) - (cons _body146855_ '())))) + (cons _body146837_ '())))) (declare (not safe)) - (cons __tmp152264 __tmp152263)))) + (cons __tmp152246 __tmp152245)))) (declare (not safe)) - (cons '%#lambda __tmp152262))) - (__tmp152259 - (let ((__tmp152260 + (cons '%#lambda __tmp152244))) + (__tmp152241 + (let ((__tmp152242 (let () (declare (not safe)) - (cons _bind146741_ '())))) + (cons _bind146723_ '())))) (declare (not safe)) - (cons _assert146742_ __tmp152260)))) + (cons _assert146724_ __tmp152242)))) (declare (not safe)) - (cons __tmp152261 __tmp152259)))) + (cons __tmp152243 __tmp152241)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'continue: - __tmp152258)))) + __tmp152240)))) (declare (not safe)) - (cons _name146744_ __tmp152257))) - (_blocks146866_ + (cons _name146726_ __tmp152239))) + (_blocks146848_ (let () (declare (not safe)) - (cons _block146864_ _blocks146645_))) - (_rest146868_ + (cons _block146846_ _blocks146627_))) + (_rest146850_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest146706_ - _blocks146866_))) - (_rest146870_ + _rest146688_ + _blocks146848_))) + (_rest146852_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest146868_ - _blocks146866_)))) + _rest146850_ + _blocks146848_)))) (let () (declare (not safe)) - (_lp146642_ _rest146870_ _blocks146866_)))) - _hd146766146820_ - _id146764146814_) + (_lp146624_ _rest146852_ _blocks146848_)))) + _hd146748146802_ + _id146746146796_) (let () (declare (not safe)) - (_g146746146772_ _g146747146775_))))) + (_g146728146754_ _g146729146757_))))) (let () (declare (not safe)) - (_g146746146772_ _g146747146775_)))))))) + (_g146728146754_ _g146729146757_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop146759146798_ - _target146756146793_ + (_loop146741146780_ + _target146738146775_ '()))) (let () (declare (not safe)) - (_g146746146772_ _g146747146775_)))))) + (_g146728146754_ _g146729146757_)))))) (let () (declare (not safe)) - (_g146746146772_ _g146747146775_))))) + (_g146728146754_ _g146729146757_))))) (let () (declare (not safe)) - (_g146746146772_ _g146747146775_))) + (_g146728146754_ _g146729146757_))) (let () (declare (not safe)) - (_g146746146772_ _g146747146775_))) + (_g146728146754_ _g146729146757_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g146746146772_ - _g146747146775_))))) + (_g146728146754_ + _g146729146757_))))) (let () (declare (not safe)) - (_g146746146772_ - _g146747146775_)))))) + (_g146728146754_ + _g146729146757_)))))) (declare (not safe)) - (_g146745146873_ _kont146743_))))) + (_g146727146855_ _kont146725_))))) (if (let () (declare (not safe)) - (##pair? _block146708146733_)) - (let ((_tl146725146998_ + (##pair? _block146690146715_)) + (let ((_tl146707146980_ (let () (declare (not safe)) - (##cdr _block146708146733_))) - (_hd146724146996_ + (##cdr _block146690146715_))) + (_hd146706146978_ (let () (declare (not safe)) - (##car _block146708146733_)))) + (##car _block146690146715_)))) (if (let () (declare (not safe)) - (##pair? _tl146725146998_)) - (let ((_tl146727147005_ + (##pair? _tl146707146980_)) + (let ((_tl146709146987_ (let () (declare (not safe)) - (##cdr _tl146725146998_))) - (_hd146726147003_ + (##cdr _tl146707146980_))) + (_hd146708146985_ (let () (declare (not safe)) - (##car _tl146725146998_)))) + (##car _tl146707146980_)))) (if (let () (declare (not safe)) - (##eq? _hd146726147003_ 'restart:)) + (##eq? _hd146708146985_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl146727147005_)) - (let ((_tl146729147010_ + (##pair? _tl146709146987_)) + (let ((_tl146711146992_ (let () (declare (not safe)) - (##cdr _tl146727147005_))) - (_hd146728147008_ + (##cdr _tl146709146987_))) + (_hd146710146990_ (let () (declare (not safe)) - (##car _tl146727147005_)))) + (##car _tl146709146987_)))) (if (let () (declare (not safe)) - (##pair? _tl146729147010_)) - (let ((_tl146731147017_ + (##pair? _tl146711146992_)) + (let ((_tl146713146999_ (let () (declare (not safe)) - (##cdr _tl146729147010_))) - (_hd146730147015_ + (##cdr _tl146711146992_))) + (_hd146712146997_ (let () (declare (not safe)) - (##car _tl146729147010_)))) + (##car _tl146711146992_)))) (if (let () (declare (not safe)) - (##null? _tl146731147017_)) - (let ((_name147001_ - _hd146724146996_) - (_kont147013_ - _hd146728147008_) - (_assert147020_ - _hd146730147015_)) + (##null? _tl146713146999_)) + (let ((_name146983_ + _hd146706146978_) + (_kont146995_ + _hd146710146990_) + (_assert147002_ + _hd146712146997_)) (let () (declare (not safe)) - (_K146723146993_ - _assert147020_ - _kont147013_ - _name147001_))) + (_K146705146975_ + _assert147002_ + _kont146995_ + _name146983_))) (let () (declare (not safe)) - (_E146711146737_)))) + (_E146693146719_)))) (let () (declare (not safe)) - (_E146711146737_)))) + (_E146693146719_)))) (let () (declare (not safe)) - (_E146711146737_))) + (_E146693146719_))) (if (let () (declare (not safe)) - (##eq? _hd146726147003_ + (##eq? _hd146708146985_ 'continue:)) (if (let () (declare (not safe)) - (##pair? _tl146727147005_)) - (let ((_tl146718146893_ + (##pair? _tl146709146987_)) + (let ((_tl146700146875_ (let () (declare (not safe)) - (##cdr _tl146727147005_))) - (_hd146717146891_ + (##cdr _tl146709146987_))) + (_hd146699146873_ (let () (declare (not safe)) - (##car _tl146727147005_)))) + (##car _tl146709146987_)))) (if (let () (declare (not safe)) - (##pair? _tl146718146893_)) - (let ((_tl146720146900_ + (##pair? _tl146700146875_)) + (let ((_tl146702146882_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl146718146893_))) - (_hd146719146898_ - (let () (declare (not safe)) (##car _tl146718146893_)))) - (if (let () (declare (not safe)) (##pair? _tl146720146900_)) - (let ((_tl146722146907_ + (##cdr _tl146700146875_))) + (_hd146701146880_ + (let () (declare (not safe)) (##car _tl146700146875_)))) + (if (let () (declare (not safe)) (##pair? _tl146702146882_)) + (let ((_tl146704146889_ (let () (declare (not safe)) - (##cdr _tl146720146900_))) - (_hd146721146905_ + (##cdr _tl146702146882_))) + (_hd146703146887_ (let () (declare (not safe)) - (##car _tl146720146900_)))) + (##car _tl146702146882_)))) (if (let () (declare (not safe)) - (##null? _tl146722146907_)) - (let ((_name146884_ _hd146724146996_) - (_kont146896_ _hd146717146891_) - (_assert146903_ _hd146719146898_) - (_bind146910_ _hd146721146905_)) + (##null? _tl146704146889_)) + (let ((_name146866_ _hd146706146978_) + (_kont146878_ _hd146699146873_) + (_assert146885_ _hd146701146880_) + (_bind146892_ _hd146703146887_)) (let () (declare (not safe)) - (_K146712146876_ - _bind146910_ - _assert146903_ - _kont146896_ - _name146884_))) - (let () (declare (not safe)) (_E146711146737_)))) - (let () (declare (not safe)) (_E146711146737_)))) - (let () (declare (not safe)) (_E146711146737_)))) + (_K146694146858_ + _bind146892_ + _assert146885_ + _kont146878_ + _name146866_))) + (let () (declare (not safe)) (_E146693146719_)))) + (let () (declare (not safe)) (_E146693146719_)))) + (let () (declare (not safe)) (_E146693146719_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E146711146737_))) + (_E146693146719_))) (let () (declare (not safe)) - (_E146711146737_))))) + (_E146693146719_))))) (let () (declare (not safe)) - (_E146711146737_)))) + (_E146693146719_)))) (let () (declare (not safe)) - (_E146711146737_)))))))) - (if (let () (declare (not safe)) (##pair? _rest146646146654_)) - (let ((_hd146651147025_ + (_E146693146719_)))))))) + (if (let () (declare (not safe)) (##pair? _rest146628146636_)) + (let ((_hd146633147007_ (let () (declare (not safe)) - (##car _rest146646146654_))) - (_tl146652147027_ + (##car _rest146628146636_))) + (_tl146634147009_ (let () (declare (not safe)) - (##cdr _rest146646146654_)))) - (let* ((_block147030_ _hd146651147025_) - (_rest147032_ _tl146652147027_)) + (##cdr _rest146628146636_)))) + (let* ((_block147012_ _hd146633147007_) + (_rest147014_ _tl146634147009_)) (declare (not safe)) - (_K146650147022_ _rest147032_ _block147030_))) - (let () (declare (not safe)) (_else146648146703_))))))) + (_K146632147004_ _rest147014_ _block147012_))) + (let () (declare (not safe)) (_else146630146685_))))))) (define gxc#optimize-match-block - (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 (_body141255_ _assert141256_ _bind141257_ _blocks141258_) + (letrec* ((_env-assert141493_ '()) + (_env-type141494_ '()) + (_env-bind141495_ '()) + (_in-splice?141496_ '#f) + (_do-assert141497_ + (lambda (_assert146545_ _K146546_) + (if (let () (declare (not safe)) (pair? _assert146545_)) + (let _lp146548_ ((_rest146550_ _assert146545_) + (_env-assert146551_ + _env-assert141493_) + (_env-type146552_ _env-type141494_)) + (let* ((_rest146553146561_ _rest146550_) + (_else146555146569_ (lambda () (let () (declare (not safe)) - (_do-assert!141521_ - _env-assert146569_ - _env-type146570_ - _K146564_)))) - (_K146575146628_ - (lambda (_rest146590_ _assert146591_) - (let* ((_assert146592146599_ - _assert146591_) - (_E146594146603_ + (_do-assert!141503_ + _env-assert146551_ + _env-type146552_ + _K146546_)))) + (_K146557146610_ + (lambda (_rest146572_ _assert146573_) + (let* ((_assert146574146581_ + _assert146573_) + (_E146576146585_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _assert146592146599_)))) - (_K146595146616_ - (lambda (_val146606_ _expr146607_) - (let* ((_sexpr146609_ + _assert146574146581_)))) + (_K146577146598_ + (lambda (_val146588_ _expr146589_) + (let* ((_sexpr146591_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr146607_))) - (_env-assert146611_ - (let ((__tmp152267 + _expr146589_))) + (_env-assert146593_ + (let ((__tmp152249 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _sexpr146609_ _val146606_)))) + (cons _sexpr146591_ _val146588_)))) (declare (not safe)) - (cons __tmp152267 _env-assert146569_))) - (_env-type146613_ + (cons __tmp152249 _env-assert146551_))) + (_env-type146595_ (let () (declare (not safe)) - (_fold-assert-type141517_ - _expr146607_ - _val146606_ - _env-type146570_)))) + (_fold-assert-type141499_ + _expr146589_ + _val146588_ + _env-type146552_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp146566_ - _rest146590_ - _env-assert146611_ - _env-type146613_)))))) + (_lp146548_ + _rest146572_ + _env-assert146593_ + _env-type146595_)))))) (if (let () (declare (not safe)) - (##pair? _assert146592146599_)) - (let ((_hd146596146619_ + (##pair? _assert146574146581_)) + (let ((_hd146578146601_ (let () (declare (not safe)) - (##car _assert146592146599_))) - (_tl146597146621_ + (##car _assert146574146581_))) + (_tl146579146603_ (let () (declare (not safe)) - (##cdr _assert146592146599_)))) - (let* ((_expr146624_ - _hd146596146619_) - (_val146626_ - _tl146597146621_)) + (##cdr _assert146574146581_)))) + (let* ((_expr146606_ + _hd146578146601_) + (_val146608_ + _tl146579146603_)) (declare (not safe)) - (_K146595146616_ - _val146626_ - _expr146624_))) + (_K146577146598_ + _val146608_ + _expr146606_))) (let () (declare (not safe)) - (_E146594146603_))))))) + (_E146576146585_))))))) (if (let () (declare (not safe)) - (##pair? _rest146571146579_)) - (let ((_hd146576146631_ + (##pair? _rest146553146561_)) + (let ((_hd146558146613_ (let () (declare (not safe)) - (##car _rest146571146579_))) - (_tl146577146633_ + (##car _rest146553146561_))) + (_tl146559146615_ (let () (declare (not safe)) - (##cdr _rest146571146579_)))) - (let* ((_assert146636_ _hd146576146631_) - (_rest146638_ _tl146577146633_)) + (##cdr _rest146553146561_)))) + (let* ((_assert146618_ _hd146558146613_) + (_rest146620_ _tl146559146615_)) (declare (not safe)) - (_K146575146628_ - _rest146638_ - _assert146636_))) + (_K146557146610_ + _rest146620_ + _assert146618_))) (let () (declare (not safe)) - (_else146573146587_))))) - (_K146564_)))) - (_predicate-type141516_ - (lambda (_id146508_) - (let* ((_sym146510_ + (_else146555146569_))))) + (_K146546_)))) + (_predicate-type141498_ + (lambda (_id146490_) + (let* ((_sym146492_ (let () (declare (not safe)) - (gxc#identifier-symbol _id146508_))) - (_$e146512_ _sym146510_)) - (let ((_default146514146545_ + (gxc#identifier-symbol _id146490_))) + (_$e146494_ _sym146492_)) + (let ((_default146496146527_ (lambda () - (let* ((_g146517146524_ + (let* ((_g146499146506_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _sym146510_))) - (_else146519146532_ (lambda () '#f)) - (_K146521146537_ - (lambda (_t146535_) + _sym146492_))) + (_else146501146514_ (lambda () '#f)) + (_K146503146519_ + (lambda (_t146517_) (let () (declare (not safe)) (gxc#optimizer-resolve-type - _t146535_))))) + _t146517_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g146517146524_ + _g146499146506_ 'gxc#!predicate::t)) - (let* ((_e146522146540_ + (let* ((_e146504146522_ (let () (declare (not safe)) (##unchecked-structure-ref - _g146517146524_ + _g146499146506_ '1 gxc#!type::t '#f))) - (_t146543_ _e146522146540_)) + (_t146525_ _e146504146522_)) (declare (not safe)) - (gxc#optimizer-resolve-type _t146543_)) + (gxc#optimizer-resolve-type _t146525_)) (let () (declare (not safe)) - (_else146519146532_)))))) - (_table146515146547_ + (_else146501146514_)))))) + (_table146497146529_ '#(#f (##box? . 3) #f @@ -4493,50 +4493,50 @@ #f #f #f))) - (if (let () (declare (not safe)) (symbol? _$e146512_)) - (let* ((_h146550_ + (if (let () (declare (not safe)) (symbol? _$e146494_)) + (let* ((_h146532_ (let () (declare (not safe)) - (##symbol-hash _$e146512_))) - (_ix146553_ + (##symbol-hash _$e146494_))) + (_ix146535_ (let () (declare (not safe)) - (##fxmodulo _h146550_ '63))) - (_q146556_ + (##fxmodulo _h146532_ '63))) + (_q146538_ (let () (declare (not safe)) (##vector-ref - _table146515146547_ - _ix146553_)))) - (if _q146556_ - (if (let ((__tmp152268 + _table146497146529_ + _ix146535_)))) + (if _q146538_ + (if (let ((__tmp152250 (let () (declare (not safe)) - (##car _q146556_)))) + (##car _q146538_)))) (declare (not safe)) - (eq? __tmp152268 _$e146512_)) - (let ((_x146560_ + (eq? __tmp152250 _$e146494_)) + (let ((_x146542_ (let () (declare (not safe)) - (##cdr _q146556_)))) + (##cdr _q146538_)))) (if (let () (declare (not safe)) - (##fx< _x146560_ '5)) + (##fx< _x146542_ '5)) (if (let () (declare (not safe)) - (##fx< _x146560_ '2)) + (##fx< _x146542_ '2)) (if (let () (declare (not safe)) - (##fx= _x146560_ '0)) + (##fx= _x146542_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _x146560_ '2)) + (##fx= _x146542_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _x146560_ + (##fx= _x146542_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -4544,19 +4544,19 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _x146560_ '7)) + (##fx< _x146542_ '7)) (if (let () (declare (not safe)) - (##fx= _x146560_ '5)) + (##fx= _x146542_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _x146560_ '7)) + (##fx= _x146542_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _x146560_ + (##fx= _x146542_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box @@ -4564,5308 +4564,5308 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_default146514146545_))) + (_default146496146527_))) (let () (declare (not safe)) - (_default146514146545_)))) + (_default146496146527_)))) (let () (declare (not safe)) - (_default146514146545_))))))) - (_fold-assert-type141517_ - (lambda (_expr145456_ _val145457_ _env145458_) - (let* ((___stx149595149596_ _expr145456_) - (_g145466145645_ + (_default146496146527_))))))) + (_fold-assert-type141499_ + (lambda (_expr145438_ _val145439_ _env145440_) + (let* ((___stx149577149578_ _expr145438_) + (_g145448145627_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149595149596_))))) - (let ((___kont149597149598_ - (lambda (_L146477_ _L146478_) - (let ((_$e146500_ + ___stx149577149578_))))) + (let ((___kont149579149580_ + (lambda (_L146459_ _L146460_) + (let ((_$e146482_ (let () (declare (not safe)) - (_predicate-type141516_ _L146478_)))) - (if _$e146500_ - ((lambda (_t146503_) - (let ((__tmp152269 - (let ((__tmp152270 - (let ((__tmp152271 + (_predicate-type141498_ _L146460_)))) + (if _$e146482_ + ((lambda (_t146485_) + (let ((__tmp152251 + (let ((__tmp152252 + (let ((__tmp152253 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _val145457_ '())))) + (cons _val145439_ '())))) (declare (not safe)) - (cons _t146503_ __tmp152271)))) + (cons _t146485_ __tmp152253)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L146477_ - __tmp152270)))) + (cons _L146459_ + __tmp152252)))) (declare (not safe)) - (cons __tmp152269 _env145458_))) - _$e146500_) - _env145458_)))) - (___kont149599149600_ - (lambda (_L146167_ _L146168_ _L146169_) - (let ((_$e146194_ + (cons __tmp152251 _env145440_))) + _$e146482_) + _env145440_)))) + (___kont149581149582_ + (lambda (_L146149_ _L146150_ _L146151_) + (let ((_$e146176_ (let () (declare (not safe)) - (gxc#identifier-symbol _L146169_)))) + (gxc#identifier-symbol _L146151_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e146194_)) + (eq? '##fx= _$e146176_)) (let () (declare (not safe)) - (eq? 'fx= _$e146194_))) - (let* ((___stx149501149502_ _L146168_) - (_g146201146230_ + (eq? 'fx= _$e146176_))) + (let* ((___stx149483149484_ _L146150_) + (_g146183146212_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149501149502_))))) - (let ((___kont149503149504_ - (lambda (_L146298_ _L146299_) - (let ((_$e146324_ + ___stx149483149484_))))) + (let ((___kont149485149486_ + (lambda (_L146280_ _L146281_) + (let ((_$e146306_ (let () (declare (not safe)) - (_countf-symbol141518_ - _L146299_)))) - (if _$e146324_ - ((lambda (_sym146327_) - (let ((__tmp152277 + (_countf-symbol141500_ + _L146281_)))) + (if _$e146306_ + ((lambda (_sym146309_) + (let ((__tmp152259 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152278 - (let ((__tmp152279 - (let ((__tmp152281 + (let ((__tmp152260 + (let ((__tmp152261 + (let ((__tmp152263 (let () (declare (not safe)) - (gx#stx-e _L146167_))) - (__tmp152280 + (gx#stx-e _L146149_))) + (__tmp152262 (let () (declare (not safe)) - (cons _val145457_ '())))) + (cons _val145439_ '())))) (declare (not safe)) - (cons __tmp152281 __tmp152280)))) + (cons __tmp152263 __tmp152262)))) (declare (not safe)) - (cons _sym146327_ __tmp152279)))) + (cons _sym146309_ __tmp152261)))) (declare (not safe)) - (cons _L146298_ __tmp152278)))) + (cons _L146280_ __tmp152260)))) (declare (not safe)) - (cons __tmp152277 _env145458_))) - _$e146324_) - _env145458_)))) + (cons __tmp152259 _env145440_))) + _$e146306_) + _env145440_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149505149506_ - (lambda () _env145458_))) + (___kont149487149488_ + (lambda () _env145440_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx149501149502_)) - (let ((_e146207146242_ + ___stx149483149484_)) + (let ((_e146189146224_ (let () (declare (not safe)) (gx#stx-e - ___stx149501149502_)))) - (let ((_tl146205146247_ + ___stx149483149484_)))) + (let ((_tl146187146229_ (let () (declare (not safe)) - (##cdr _e146207146242_))) - (_hd146206146245_ + (##cdr _e146189146224_))) + (_hd146188146227_ (let () (declare (not safe)) - (##car _e146207146242_)))) + (##car _e146189146224_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd146206146245_)) + _hd146188146227_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd146206146245_)) + _hd146188146227_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl146205146247_)) - (let ((_e146210146250_ + (gx#stx-pair? _tl146187146229_)) + (let ((_e146192146232_ (let () (declare (not safe)) - (gx#stx-e _tl146205146247_)))) - (let ((_tl146208146255_ + (gx#stx-e _tl146187146229_)))) + (let ((_tl146190146237_ (let () (declare (not safe)) - (##cdr _e146210146250_))) - (_hd146209146253_ + (##cdr _e146192146232_))) + (_hd146191146235_ (let () (declare (not safe)) - (##car _e146210146250_)))) + (##car _e146192146232_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146209146253_)) - (let ((_e146213146258_ + (gx#stx-pair? _hd146191146235_)) + (let ((_e146195146240_ (let () (declare (not safe)) - (gx#stx-e _hd146209146253_)))) - (let ((_tl146211146263_ + (gx#stx-e _hd146191146235_)))) + (let ((_tl146193146245_ (let () (declare (not safe)) - (##cdr _e146213146258_))) - (_hd146212146261_ + (##cdr _e146195146240_))) + (_hd146194146243_ (let () (declare (not safe)) - (##car _e146213146258_)))) + (##car _e146195146240_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd146212146261_)) + (gx#identifier? _hd146194146243_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd146212146261_)) + _hd146194146243_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146211146263_)) - (let ((_e146216146266_ + _tl146193146245_)) + (let ((_e146198146248_ (let () (declare (not safe)) (gx#stx-e - _tl146211146263_)))) - (let ((_tl146214146271_ + _tl146193146245_)))) + (let ((_tl146196146253_ (let () (declare (not safe)) - (##cdr _e146216146266_))) - (_hd146215146269_ + (##cdr _e146198146248_))) + (_hd146197146251_ (let () (declare (not safe)) - (##car _e146216146266_)))) + (##car _e146198146248_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146214146271_)) + _tl146196146253_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl146208146255_)) - (let ((_e146219146274_ + _tl146190146237_)) + (let ((_e146201146256_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl146208146255_)))) - (let ((_tl146217146279_ + (gx#stx-e _tl146190146237_)))) + (let ((_tl146199146261_ (let () (declare (not safe)) - (##cdr _e146219146274_))) - (_hd146218146277_ + (##cdr _e146201146256_))) + (_hd146200146259_ (let () (declare (not safe)) - (##car _e146219146274_)))) + (##car _e146201146256_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd146218146277_)) - (let ((_e146222146282_ + (gx#stx-pair? _hd146200146259_)) + (let ((_e146204146264_ (let () (declare (not safe)) - (gx#stx-e _hd146218146277_)))) - (let ((_tl146220146287_ + (gx#stx-e _hd146200146259_)))) + (let ((_tl146202146269_ (let () (declare (not safe)) - (##cdr _e146222146282_))) - (_hd146221146285_ + (##cdr _e146204146264_))) + (_hd146203146267_ (let () (declare (not safe)) - (##car _e146222146282_)))) + (##car _e146204146264_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd146221146285_)) + (gx#identifier? _hd146203146267_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd146221146285_)) + (gx#stx-eq? '%#ref _hd146203146267_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146220146287_)) - (let ((_e146225146290_ + (gx#stx-pair? _tl146202146269_)) + (let ((_e146207146272_ (let () (declare (not safe)) (gx#stx-e - _tl146220146287_)))) - (let ((_tl146223146295_ + _tl146202146269_)))) + (let ((_tl146205146277_ (let () (declare (not safe)) - (##cdr _e146225146290_))) - (_hd146224146293_ + (##cdr _e146207146272_))) + (_hd146206146275_ (let () (declare (not safe)) - (##car _e146225146290_)))) + (##car _e146207146272_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl146223146295_)) + _tl146205146277_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl146217146279_)) - (___kont149503149504_ - _hd146224146293_ - _hd146215146269_) - (___kont149505149506_)) - (___kont149505149506_)))) - (___kont149505149506_)) - (___kont149505149506_)) - (___kont149505149506_)))) - (___kont149505149506_)))) - (___kont149505149506_)) - (___kont149505149506_)))) + _tl146199146261_)) + (___kont149485149486_ + _hd146206146275_ + _hd146197146251_) + (___kont149487149488_)) + (___kont149487149488_)))) + (___kont149487149488_)) + (___kont149487149488_)) + (___kont149487149488_)))) + (___kont149487149488_)))) + (___kont149487149488_)) + (___kont149487149488_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149505149506_)) - (___kont149505149506_)) - (___kont149505149506_)))) - (___kont149505149506_)))) - (___kont149505149506_)) - (___kont149505149506_)) - (___kont149505149506_)))) + (___kont149487149488_)) + (___kont149487149488_)) + (___kont149487149488_)))) + (___kont149487149488_)))) + (___kont149487149488_)) + (___kont149487149488_)) + (___kont149487149488_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149505149506_)))) + (___kont149487149488_)))) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e146194_)) + (eq? '##eq? _$e146176_)) (let () (declare (not safe)) - (eq? 'eq? _$e146194_)) + (eq? 'eq? _$e146176_)) (let () (declare (not safe)) - (eq? '##eqv? _$e146194_)) + (eq? '##eqv? _$e146176_)) (let () (declare (not safe)) - (eq? 'eqv? _$e146194_)) + (eq? 'eqv? _$e146176_)) (let () (declare (not safe)) - (eq? '##equal? _$e146194_)) + (eq? '##equal? _$e146176_)) (let () (declare (not safe)) - (eq? 'equal? _$e146194_)) + (eq? 'equal? _$e146176_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e146194_)) + _$e146176_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e146194_))) - ((lambda (_sym146353_) - (let* ((_sym146355_ + (eq? 'gx#stx-eq? _$e146176_))) + ((lambda (_sym146335_) + (let* ((_sym146337_ (let () (declare (not safe)) - (_eqf-symbol141519_ - _sym146353_))) - (___stx149569149570_ - _L146168_) - (_g146358146371_ + (_eqf-symbol141501_ + _sym146335_))) + (___stx149551149552_ + _L146150_) + (_g146340146353_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx149569149570_))))) - (let ((___kont149571149572_ - (lambda (_L146399_) - (let ((__tmp152272 - (let ((__tmp152273 + ___stx149551149552_))))) + (let ((___kont149553149554_ + (lambda (_L146381_) + (let ((__tmp152254 + (let ((__tmp152255 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152274 - (let ((__tmp152276 + (let ((__tmp152256 + (let ((__tmp152258 (let () (declare (not safe)) - (gx#stx-e _L146167_))) - (__tmp152275 + (gx#stx-e _L146149_))) + (__tmp152257 (let () (declare (not safe)) - (cons _val145457_ '())))) + (cons _val145439_ '())))) (declare (not safe)) - (cons __tmp152276 __tmp152275)))) + (cons __tmp152258 __tmp152257)))) (declare (not safe)) - (cons _sym146355_ __tmp152274)))) + (cons _sym146337_ __tmp152256)))) (declare (not safe)) - (cons _L146399_ __tmp152273)))) + (cons _L146381_ __tmp152255)))) (declare (not safe)) - (cons __tmp152272 _env145458_)))) + (cons __tmp152254 _env145440_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149573149574_ - (lambda () _env145458_))) + (___kont149555149556_ + (lambda () _env145440_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx149569149570_)) - (let ((_e146363146383_ + ___stx149551149552_)) + (let ((_e146345146365_ (let () (declare (not safe)) (gx#stx-e - ___stx149569149570_)))) - (let ((_tl146361146388_ + ___stx149551149552_)))) + (let ((_tl146343146370_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e146363146383_))) - (_hd146362146386_ - (let () (declare (not safe)) (##car _e146363146383_)))) + (##cdr _e146345146365_))) + (_hd146344146368_ + (let () (declare (not safe)) (##car _e146345146365_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd146362146386_)) + (gx#identifier? _hd146344146368_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd146362146386_)) + (gx#stx-eq? '%#ref _hd146344146368_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl146361146388_)) - (let ((_e146366146391_ + (gx#stx-pair? _tl146343146370_)) + (let ((_e146348146373_ (let () (declare (not safe)) - (gx#stx-e _tl146361146388_)))) - (let ((_tl146364146396_ + (gx#stx-e _tl146343146370_)))) + (let ((_tl146346146378_ (let () (declare (not safe)) - (##cdr _e146366146391_))) - (_hd146365146394_ + (##cdr _e146348146373_))) + (_hd146347146376_ (let () (declare (not safe)) - (##car _e146366146391_)))) + (##car _e146348146373_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl146364146396_)) - (___kont149571149572_ _hd146365146394_) - (___kont149573149574_)))) - (___kont149573149574_)) - (___kont149573149574_)) - (___kont149573149574_)))) + (gx#stx-null? _tl146346146378_)) + (___kont149553149554_ _hd146347146376_) + (___kont149555149556_)))) + (___kont149555149556_)) + (___kont149555149556_)) + (___kont149555149556_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149573149574_))))) - _$e146194_) - _env145458_))))) - (___kont149601149602_ - (lambda (_L146071_ _L146072_ _L146073_) - (let ((__tmp152282 - (let ((__tmp152292 + (___kont149555149556_))))) + _$e146176_) + _env145440_))))) + (___kont149583149584_ + (lambda (_L146053_ _L146054_ _L146055_) + (let ((__tmp152264 + (let ((__tmp152274 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp152283 - (let ((__tmp152289 - (let ((__tmp152291 + (__tmp152265 + (let ((__tmp152271 + (let ((__tmp152273 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152290 + (__tmp152272 (let () (declare (not safe)) - (cons _L146073_ + (cons _L146055_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp152291 __tmp152290))) + (cons __tmp152273 __tmp152272))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp152284 - (let ((__tmp152285 - (let ((__tmp152286 + (__tmp152266 + (let ((__tmp152267 + (let ((__tmp152268 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152288 + (let ((__tmp152270 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp152287 + (__tmp152269 (let () (declare (not safe)) - (cons _L146072_ '())))) + (cons _L146054_ '())))) (declare (not safe)) - (cons __tmp152288 __tmp152287)))) + (cons __tmp152270 __tmp152269)))) (declare (not safe)) - (cons __tmp152286 '())))) + (cons __tmp152268 '())))) (declare (not safe)) - (cons _L146071_ __tmp152285)))) + (cons _L146053_ __tmp152267)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152289 - __tmp152284)))) + (cons __tmp152271 + __tmp152266)))) (declare (not safe)) - (cons __tmp152292 __tmp152283)))) + (cons __tmp152274 __tmp152265)))) (declare (not safe)) - (_fold-assert-type141517_ - __tmp152282 - _val145457_ - _env145458_)))) - (___kont149603149604_ - (lambda (_L145961_ _L145962_ _L145963_) - (let ((_$e145992_ + (_fold-assert-type141499_ + __tmp152264 + _val145439_ + _env145440_)))) + (___kont149585149586_ + (lambda (_L145943_ _L145944_ _L145945_) + (let ((_$e145974_ (let () (declare (not safe)) - (gxc#identifier-symbol _L145963_)))) + (gxc#identifier-symbol _L145945_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e145992_)) + _$e145974_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e145992_))) - ((lambda (_sym145998_) - (let* ((_sym146000_ + (eq? 'gx#stx-eq? _$e145974_))) + ((lambda (_sym145980_) + (let* ((_sym145982_ (let () (declare (not safe)) - (_eqf-symbol141519_ - _sym145998_))) - (__tmp152293 - (let ((__tmp152294 - (let ((__tmp152295 - (let ((__tmp152296 + (_eqf-symbol141501_ + _sym145980_))) + (__tmp152275 + (let ((__tmp152276 + (let ((__tmp152277 + (let ((__tmp152278 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _val145457_ '())))) + (cons _val145439_ '())))) (declare (not safe)) - (cons _L145961_ __tmp152296)))) + (cons _L145943_ __tmp152278)))) (declare (not safe)) - (cons _sym146000_ __tmp152295)))) + (cons _sym145982_ __tmp152277)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L145962_ - __tmp152294)))) + (cons _L145944_ + __tmp152276)))) (declare (not safe)) - (cons __tmp152293 _env145458_))) - _$e145992_) - _env145458_)))) - (___kont149605149606_ - (lambda (_L145845_ _L145846_ _L145847_) - (let ((__tmp152297 - (let ((__tmp152310 + (cons __tmp152275 _env145440_))) + _$e145974_) + _env145440_)))) + (___kont149587149588_ + (lambda (_L145827_ _L145828_ _L145829_) + (let ((__tmp152279 + (let ((__tmp152292 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp152298 - (let ((__tmp152307 - (let ((__tmp152309 + (__tmp152280 + (let ((__tmp152289 + (let ((__tmp152291 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152308 + (__tmp152290 (let () (declare (not safe)) - (cons _L145847_ + (cons _L145829_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp152309 __tmp152308))) + (cons __tmp152291 __tmp152290))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp152299 - (let ((__tmp152304 - (let ((__tmp152306 + (__tmp152281 + (let ((__tmp152286 + (let ((__tmp152288 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152305 - (let () (declare (not safe)) (cons _L145845_ '())))) + (__tmp152287 + (let () (declare (not safe)) (cons _L145827_ '())))) (declare (not safe)) - (cons __tmp152306 __tmp152305))) - (__tmp152300 - (let ((__tmp152301 - (let ((__tmp152303 + (cons __tmp152288 __tmp152287))) + (__tmp152282 + (let ((__tmp152283 + (let ((__tmp152285 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp152302 + (__tmp152284 (let () (declare (not safe)) - (cons _L145846_ '())))) + (cons _L145828_ '())))) (declare (not safe)) - (cons __tmp152303 __tmp152302)))) + (cons __tmp152285 __tmp152284)))) (declare (not safe)) - (cons __tmp152301 '())))) + (cons __tmp152283 '())))) (declare (not safe)) - (cons __tmp152304 __tmp152300)))) + (cons __tmp152286 __tmp152282)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152307 - __tmp152299)))) + (cons __tmp152289 + __tmp152281)))) (declare (not safe)) - (cons __tmp152310 __tmp152298)))) + (cons __tmp152292 __tmp152280)))) (declare (not safe)) - (_fold-assert-type141517_ - __tmp152297 - _val145457_ - _env145458_)))) - (___kont149607149608_ - (lambda (_L145729_ _L145730_ _L145731_) - (let ((__tmp152311 + (_fold-assert-type141499_ + __tmp152279 + _val145439_ + _env145440_)))) + (___kont149589149590_ + (lambda (_L145711_ _L145712_ _L145713_) + (let ((__tmp152293 (let () (declare (not safe)) (gxc#apply-expression-subst - _L145730_ + _L145712_ 'id: - _L145731_ + _L145713_ 'new-id: - _L145729_)))) + _L145711_)))) (declare (not safe)) - (_fold-assert-type141517_ - __tmp152311 - _val145457_ - _env145458_)))) - (___kont149609149610_ (lambda () _env145458_))) + (_fold-assert-type141499_ + __tmp152293 + _val145439_ + _env145440_)))) + (___kont149591149592_ (lambda () _env145440_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx149595149596_)) - (let ((_e145472146421_ + (gx#stx-pair? ___stx149577149578_)) + (let ((_e145454146403_ (let () (declare (not safe)) - (gx#stx-e ___stx149595149596_)))) - (let ((_tl145470146426_ + (gx#stx-e ___stx149577149578_)))) + (let ((_tl145452146408_ (let () (declare (not safe)) - (##cdr _e145472146421_))) - (_hd145471146424_ + (##cdr _e145454146403_))) + (_hd145453146406_ (let () (declare (not safe)) - (##car _e145472146421_)))) + (##car _e145454146403_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145471146424_)) + (gx#identifier? _hd145453146406_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd145471146424_)) + _hd145453146406_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145470146426_)) - (let ((_e145475146429_ + (gx#stx-pair? _tl145452146408_)) + (let ((_e145457146411_ (let () (declare (not safe)) (gx#stx-e - _tl145470146426_)))) - (let ((_tl145473146434_ + _tl145452146408_)))) + (let ((_tl145455146416_ (let () (declare (not safe)) - (##cdr _e145475146429_))) - (_hd145474146432_ + (##cdr _e145457146411_))) + (_hd145456146414_ (let () (declare (not safe)) - (##car _e145475146429_)))) + (##car _e145457146411_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145474146432_)) - (let ((_e145478146437_ + _hd145456146414_)) + (let ((_e145460146419_ (let () (declare (not safe)) (gx#stx-e - _hd145474146432_)))) - (let ((_tl145476146442_ + _hd145456146414_)))) + (let ((_tl145458146424_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e145478146437_))) - (_hd145477146440_ - (let () (declare (not safe)) (##car _e145478146437_)))) + (##cdr _e145460146419_))) + (_hd145459146422_ + (let () (declare (not safe)) (##car _e145460146419_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145477146440_)) + (gx#identifier? _hd145459146422_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd145477146440_)) + (gx#stx-eq? '%#ref _hd145459146422_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145476146442_)) - (let ((_e145481146445_ + (gx#stx-pair? _tl145458146424_)) + (let ((_e145463146427_ (let () (declare (not safe)) - (gx#stx-e _tl145476146442_)))) - (let ((_tl145479146450_ + (gx#stx-e _tl145458146424_)))) + (let ((_tl145461146432_ (let () (declare (not safe)) - (##cdr _e145481146445_))) - (_hd145480146448_ + (##cdr _e145463146427_))) + (_hd145462146430_ (let () (declare (not safe)) - (##car _e145481146445_)))) + (##car _e145463146427_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145479146450_)) + (gx#stx-null? _tl145461146432_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145473146434_)) - (let ((_e145484146453_ + (gx#stx-pair? _tl145455146416_)) + (let ((_e145466146435_ (let () (declare (not safe)) (gx#stx-e - _tl145473146434_)))) - (let ((_tl145482146458_ + _tl145455146416_)))) + (let ((_tl145464146440_ (let () (declare (not safe)) - (##cdr _e145484146453_))) - (_hd145483146456_ + (##cdr _e145466146435_))) + (_hd145465146438_ (let () (declare (not safe)) - (##car _e145484146453_)))) + (##car _e145466146435_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145483146456_)) - (let ((_e145487146461_ + _hd145465146438_)) + (let ((_e145469146443_ (let () (declare (not safe)) (gx#stx-e - _hd145483146456_)))) - (let ((_tl145485146466_ + _hd145465146438_)))) + (let ((_tl145467146448_ (let () (declare (not safe)) - (##cdr _e145487146461_))) - (_hd145486146464_ + (##cdr _e145469146443_))) + (_hd145468146446_ (let () (declare (not safe)) - (##car _e145487146461_)))) + (##car _e145469146443_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd145486146464_)) + _hd145468146446_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd145486146464_)) + (gx#stx-eq? '%#ref _hd145468146446_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145485146466_)) - (let ((_e145490146469_ + (gx#stx-pair? _tl145467146448_)) + (let ((_e145472146451_ (let () (declare (not safe)) - (gx#stx-e _tl145485146466_)))) - (let ((_tl145488146474_ + (gx#stx-e _tl145467146448_)))) + (let ((_tl145470146456_ (let () (declare (not safe)) - (##cdr _e145490146469_))) - (_hd145489146472_ + (##cdr _e145472146451_))) + (_hd145471146454_ (let () (declare (not safe)) - (##car _e145490146469_)))) + (##car _e145472146451_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145488146474_)) + (gx#stx-null? _tl145470146456_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145482146458_)) - (___kont149597149598_ - _hd145489146472_ - _hd145480146448_) + (gx#stx-null? _tl145464146440_)) + (___kont149579149580_ + _hd145471146454_ + _hd145462146430_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145482146458_)) - (let ((_e145511146143_ + (gx#stx-pair? _tl145464146440_)) + (let ((_e145493146125_ (let () (declare (not safe)) (gx#stx-e - _tl145482146458_)))) - (let ((_tl145509146148_ + _tl145464146440_)))) + (let ((_tl145491146130_ (let () (declare (not safe)) - (##cdr _e145511146143_))) - (_hd145510146146_ + (##cdr _e145493146125_))) + (_hd145492146128_ (let () (declare (not safe)) - (##car _e145511146143_)))) + (##car _e145493146125_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd145510146146_)) - (let ((_e145514146151_ + _hd145492146128_)) + (let ((_e145496146133_ (let () (declare (not safe)) (gx#stx-e - _hd145510146146_)))) - (let ((_tl145512146156_ + _hd145492146128_)))) + (let ((_tl145494146138_ (let () (declare (not safe)) - (##cdr _e145514146151_))) - (_hd145513146154_ + (##cdr _e145496146133_))) + (_hd145495146136_ (let () (declare (not safe)) - (##car _e145514146151_)))) + (##car _e145496146133_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd145513146154_)) + _hd145495146136_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd145513146154_)) + (gx#stx-eq? '%#quote _hd145495146136_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145512146156_)) - (let ((_e145517146159_ + (gx#stx-pair? _tl145494146138_)) + (let ((_e145499146141_ (let () (declare (not safe)) - (gx#stx-e _tl145512146156_)))) - (let ((_tl145515146164_ + (gx#stx-e _tl145494146138_)))) + (let ((_tl145497146146_ (let () (declare (not safe)) - (##cdr _e145517146159_))) - (_hd145516146162_ + (##cdr _e145499146141_))) + (_hd145498146144_ (let () (declare (not safe)) - (##car _e145517146159_)))) + (##car _e145499146141_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145515146164_)) + (gx#stx-null? _tl145497146146_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145509146148_)) - (___kont149599149600_ - _hd145516146162_ - _hd145483146456_ - _hd145480146448_) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)) + (gx#stx-null? _tl145491146130_)) + (___kont149581149582_ + _hd145498146144_ + _hd145465146438_ + _hd145462146430_) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd145513146154_)) + (gx#stx-eq? '%#quote-syntax _hd145495146136_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145512146156_)) - (let ((_e145577145953_ + (gx#stx-pair? _tl145494146138_)) + (let ((_e145559145935_ (let () (declare (not safe)) - (gx#stx-e _tl145512146156_)))) - (let ((_tl145575145958_ + (gx#stx-e _tl145494146138_)))) + (let ((_tl145557145940_ (let () (declare (not safe)) - (##cdr _e145577145953_))) - (_hd145576145956_ + (##cdr _e145559145935_))) + (_hd145558145938_ (let () (declare (not safe)) - (##car _e145577145953_)))) + (##car _e145559145935_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145575145958_)) + (gx#stx-null? _tl145557145940_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145509146148_)) - (___kont149603149604_ - _hd145576145956_ - _hd145489146472_ - _hd145480146448_) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)) - (___kont149609149610_))) - (___kont149609149610_)))) + (gx#stx-null? _tl145491146130_)) + (___kont149585149586_ + _hd145558145938_ + _hd145471146454_ + _hd145462146430_) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)) + (___kont149591149592_))) + (___kont149591149592_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149609149610_)))) - (___kont149609149610_))) + (___kont149591149592_)))) + (___kont149591149592_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145482146458_)) - (let ((_e145511146143_ + (gx#stx-pair? _tl145464146440_)) + (let ((_e145493146125_ (let () (declare (not safe)) - (gx#stx-e _tl145482146458_)))) - (let ((_tl145509146148_ + (gx#stx-e _tl145464146440_)))) + (let ((_tl145491146130_ (let () (declare (not safe)) - (##cdr _e145511146143_))) - (_hd145510146146_ + (##cdr _e145493146125_))) + (_hd145492146128_ (let () (declare (not safe)) - (##car _e145511146143_)))) + (##car _e145493146125_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145510146146_)) - (let ((_e145514146151_ + (gx#stx-pair? _hd145492146128_)) + (let ((_e145496146133_ (let () (declare (not safe)) (gx#stx-e - _hd145510146146_)))) - (let ((_tl145512146156_ + _hd145492146128_)))) + (let ((_tl145494146138_ (let () (declare (not safe)) - (##cdr _e145514146151_))) - (_hd145513146154_ + (##cdr _e145496146133_))) + (_hd145495146136_ (let () (declare (not safe)) - (##car _e145514146151_)))) + (##car _e145496146133_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd145513146154_)) + _hd145495146136_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd145513146154_)) + _hd145495146136_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl145512146156_)) - (let ((_e145517146159_ + (gx#stx-pair? _tl145494146138_)) + (let ((_e145499146141_ (let () (declare (not safe)) - (gx#stx-e _tl145512146156_)))) - (let ((_tl145515146164_ + (gx#stx-e _tl145494146138_)))) + (let ((_tl145497146146_ (let () (declare (not safe)) - (##cdr _e145517146159_))) - (_hd145516146162_ + (##cdr _e145499146141_))) + (_hd145498146144_ (let () (declare (not safe)) - (##car _e145517146159_)))) + (##car _e145499146141_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145515146164_)) + (gx#stx-null? _tl145497146146_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145509146148_)) - (___kont149599149600_ - _hd145516146162_ - _hd145483146456_ - _hd145480146448_) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)) - (___kont149609149610_)) + (gx#stx-null? _tl145491146130_)) + (___kont149581149582_ + _hd145498146144_ + _hd145465146438_ + _hd145462146430_) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)) + (___kont149591149592_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149609149610_)))) - (___kont149609149610_)))) - (___kont149609149610_))))) + (___kont149591149592_)))) + (___kont149591149592_)))) + (___kont149591149592_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145482146458_)) - (let ((_e145511146143_ + (gx#stx-pair? _tl145464146440_)) + (let ((_e145493146125_ (let () (declare (not safe)) - (gx#stx-e _tl145482146458_)))) - (let ((_tl145509146148_ + (gx#stx-e _tl145464146440_)))) + (let ((_tl145491146130_ (let () (declare (not safe)) - (##cdr _e145511146143_))) - (_hd145510146146_ + (##cdr _e145493146125_))) + (_hd145492146128_ (let () (declare (not safe)) - (##car _e145511146143_)))) + (##car _e145493146125_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145510146146_)) - (let ((_e145514146151_ + (gx#stx-pair? _hd145492146128_)) + (let ((_e145496146133_ (let () (declare (not safe)) - (gx#stx-e _hd145510146146_)))) - (let ((_tl145512146156_ + (gx#stx-e _hd145492146128_)))) + (let ((_tl145494146138_ (let () (declare (not safe)) - (##cdr _e145514146151_))) - (_hd145513146154_ + (##cdr _e145496146133_))) + (_hd145495146136_ (let () (declare (not safe)) - (##car _e145514146151_)))) + (##car _e145496146133_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd145513146154_)) + _hd145495146136_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd145513146154_)) + _hd145495146136_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145512146156_)) - (let ((_e145517146159_ + _tl145494146138_)) + (let ((_e145499146141_ (let () (declare (not safe)) (gx#stx-e - _tl145512146156_)))) - (let ((_tl145515146164_ + _tl145494146138_)))) + (let ((_tl145497146146_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e145517146159_))) - (_hd145516146162_ - (let () (declare (not safe)) (##car _e145517146159_)))) + (##cdr _e145499146141_))) + (_hd145498146144_ + (let () (declare (not safe)) (##car _e145499146141_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145515146164_)) + (gx#stx-null? _tl145497146146_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145509146148_)) - (___kont149599149600_ - _hd145516146162_ - _hd145483146456_ - _hd145480146448_) - (___kont149609149610_)) - (___kont149609149610_)))) + (gx#stx-null? _tl145491146130_)) + (___kont149581149582_ + _hd145498146144_ + _hd145465146438_ + _hd145462146430_) + (___kont149591149592_)) + (___kont149591149592_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149609149610_)) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)))) - (___kont149609149610_))) + (___kont149591149592_)) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)))) + (___kont149591149592_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145482146458_)) - (let ((_e145511146143_ + (gx#stx-pair? _tl145464146440_)) + (let ((_e145493146125_ (let () (declare (not safe)) - (gx#stx-e _tl145482146458_)))) - (let ((_tl145509146148_ + (gx#stx-e _tl145464146440_)))) + (let ((_tl145491146130_ (let () (declare (not safe)) - (##cdr _e145511146143_))) - (_hd145510146146_ + (##cdr _e145493146125_))) + (_hd145492146128_ (let () (declare (not safe)) - (##car _e145511146143_)))) + (##car _e145493146125_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145510146146_)) - (let ((_e145514146151_ + (gx#stx-pair? _hd145492146128_)) + (let ((_e145496146133_ (let () (declare (not safe)) - (gx#stx-e _hd145510146146_)))) - (let ((_tl145512146156_ + (gx#stx-e _hd145492146128_)))) + (let ((_tl145494146138_ (let () (declare (not safe)) - (##cdr _e145514146151_))) - (_hd145513146154_ + (##cdr _e145496146133_))) + (_hd145495146136_ (let () (declare (not safe)) - (##car _e145514146151_)))) + (##car _e145496146133_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145513146154_)) + (gx#identifier? _hd145495146136_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd145513146154_)) + _hd145495146136_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145512146156_)) - (let ((_e145517146159_ + _tl145494146138_)) + (let ((_e145499146141_ (let () (declare (not safe)) (gx#stx-e - _tl145512146156_)))) - (let ((_tl145515146164_ + _tl145494146138_)))) + (let ((_tl145497146146_ (let () (declare (not safe)) - (##cdr _e145517146159_))) - (_hd145516146162_ + (##cdr _e145499146141_))) + (_hd145498146144_ (let () (declare (not safe)) - (##car _e145517146159_)))) + (##car _e145499146141_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145515146164_)) + _tl145497146146_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl145509146148_)) - (___kont149599149600_ - _hd145516146162_ - _hd145483146456_ - _hd145480146448_) + (gx#stx-null? _tl145491146130_)) + (___kont149581149582_ + _hd145498146144_ + _hd145465146438_ + _hd145462146430_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd145486146464_)) + (gx#stx-eq? '%#quote _hd145468146446_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145485146466_)) - (let ((_e145541146055_ + (gx#stx-pair? _tl145467146448_)) + (let ((_e145523146037_ (let () (declare (not safe)) - (gx#stx-e _tl145485146466_)))) - (let ((_tl145539146060_ + (gx#stx-e _tl145467146448_)))) + (let ((_tl145521146042_ (let () (declare (not safe)) - (##cdr _e145541146055_))) - (_hd145540146058_ + (##cdr _e145523146037_))) + (_hd145522146040_ (let () (declare (not safe)) - (##car _e145541146055_)))) - (___kont149609149610_))) - (___kont149609149610_)) + (##car _e145523146037_)))) + (___kont149591149592_))) + (___kont149591149592_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd145486146464_)) + (gx#stx-eq? '%#quote-syntax _hd145468146446_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145485146466_)) - (let ((_e145601145813_ + (gx#stx-pair? _tl145467146448_)) + (let ((_e145583145795_ (let () (declare (not safe)) - (gx#stx-e _tl145485146466_)))) - (let ((_tl145599145818_ + (gx#stx-e _tl145467146448_)))) + (let ((_tl145581145800_ (let () (declare (not safe)) - (##cdr _e145601145813_))) - (_hd145600145816_ + (##cdr _e145583145795_))) + (_hd145582145798_ (let () (declare (not safe)) - (##car _e145601145813_)))) - (___kont149609149610_))) - (___kont149609149610_)) - (___kont149609149610_)))) + (##car _e145583145795_)))) + (___kont149591149592_))) + (___kont149591149592_)) + (___kont149591149592_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd145486146464_)) + (gx#stx-eq? '%#quote _hd145468146446_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145485146466_)) - (let ((_e145541146055_ + (gx#stx-pair? _tl145467146448_)) + (let ((_e145523146037_ (let () (declare (not safe)) - (gx#stx-e _tl145485146466_)))) - (let ((_tl145539146060_ + (gx#stx-e _tl145467146448_)))) + (let ((_tl145521146042_ (let () (declare (not safe)) - (##cdr _e145541146055_))) - (_hd145540146058_ + (##cdr _e145523146037_))) + (_hd145522146040_ (let () (declare (not safe)) - (##car _e145541146055_)))) + (##car _e145523146037_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145539146060_)) + (gx#stx-null? _tl145521146042_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145509146148_)) - (___kont149601149602_ - _hd145510146146_ - _hd145540146058_ - _hd145480146448_) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)) + (gx#stx-null? _tl145491146130_)) + (___kont149583149584_ + _hd145492146128_ + _hd145522146040_ + _hd145462146430_) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd145486146464_)) + (gx#stx-eq? '%#quote-syntax _hd145468146446_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145485146466_)) - (let ((_e145601145813_ + (gx#stx-pair? _tl145467146448_)) + (let ((_e145583145795_ (let () (declare (not safe)) - (gx#stx-e _tl145485146466_)))) - (let ((_tl145599145818_ + (gx#stx-e _tl145467146448_)))) + (let ((_tl145581145800_ (let () (declare (not safe)) - (##cdr _e145601145813_))) - (_hd145600145816_ + (##cdr _e145583145795_))) + (_hd145582145798_ (let () (declare (not safe)) - (##car _e145601145813_)))) - (___kont149609149610_))) - (___kont149609149610_)) - (___kont149609149610_)))))) + (##car _e145583145795_)))) + (___kont149591149592_))) + (___kont149591149592_)) + (___kont149591149592_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd145486146464_)) + _hd145468146446_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145485146466_)) - (let ((_e145541146055_ + _tl145467146448_)) + (let ((_e145523146037_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl145485146466_)))) - (let ((_tl145539146060_ + (gx#stx-e _tl145467146448_)))) + (let ((_tl145521146042_ (let () (declare (not safe)) - (##cdr _e145541146055_))) - (_hd145540146058_ + (##cdr _e145523146037_))) + (_hd145522146040_ (let () (declare (not safe)) - (##car _e145541146055_)))) + (##car _e145523146037_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145539146060_)) + (gx#stx-null? _tl145521146042_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145509146148_)) - (___kont149601149602_ - _hd145510146146_ - _hd145540146058_ - _hd145480146448_) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)) + (gx#stx-null? _tl145491146130_)) + (___kont149583149584_ + _hd145492146128_ + _hd145522146040_ + _hd145462146430_) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd145486146464_)) + _hd145468146446_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl145485146466_)) - (let ((_e145601145813_ + (gx#stx-pair? _tl145467146448_)) + (let ((_e145583145795_ (let () (declare (not safe)) - (gx#stx-e _tl145485146466_)))) - (let ((_tl145599145818_ + (gx#stx-e _tl145467146448_)))) + (let ((_tl145581145800_ (let () (declare (not safe)) - (##cdr _e145601145813_))) - (_hd145600145816_ + (##cdr _e145583145795_))) + (_hd145582145798_ (let () (declare (not safe)) - (##car _e145601145813_)))) - (___kont149609149610_))) - (___kont149609149610_)) - (___kont149609149610_)))) + (##car _e145583145795_)))) + (___kont149591149592_))) + (___kont149591149592_)) + (___kont149591149592_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd145486146464_)) + _hd145468146446_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145485146466_)) - (let ((_e145541146055_ + _tl145467146448_)) + (let ((_e145523146037_ (let () (declare (not safe)) (gx#stx-e - _tl145485146466_)))) - (let ((_tl145539146060_ + _tl145467146448_)))) + (let ((_tl145521146042_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e145541146055_))) - (_hd145540146058_ - (let () (declare (not safe)) (##car _e145541146055_)))) + (##cdr _e145523146037_))) + (_hd145522146040_ + (let () (declare (not safe)) (##car _e145523146037_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145539146060_)) + (gx#stx-null? _tl145521146042_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145509146148_)) - (___kont149601149602_ - _hd145510146146_ - _hd145540146058_ - _hd145480146448_) - (___kont149609149610_)) - (___kont149609149610_)))) + (gx#stx-null? _tl145491146130_)) + (___kont149583149584_ + _hd145492146128_ + _hd145522146040_ + _hd145462146430_) + (___kont149591149592_)) + (___kont149591149592_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149609149610_)) + (___kont149591149592_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd145486146464_)) + _hd145468146446_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145485146466_)) - (let ((_e145601145813_ + _tl145467146448_)) + (let ((_e145583145795_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl145485146466_)))) - (let ((_tl145599145818_ + (gx#stx-e _tl145467146448_)))) + (let ((_tl145581145800_ (let () (declare (not safe)) - (##cdr _e145601145813_))) - (_hd145600145816_ + (##cdr _e145583145795_))) + (_hd145582145798_ (let () (declare (not safe)) - (##car _e145601145813_)))) + (##car _e145583145795_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145599145818_)) + (gx#stx-null? _tl145581145800_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd145513146154_)) + (gx#stx-eq? '%#ref _hd145495146136_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145512146156_)) - (let ((_e145610145837_ + (gx#stx-pair? _tl145494146138_)) + (let ((_e145592145819_ (let () (declare (not safe)) - (gx#stx-e _tl145512146156_)))) - (let ((_tl145608145842_ + (gx#stx-e _tl145494146138_)))) + (let ((_tl145590145824_ (let () (declare (not safe)) - (##cdr _e145610145837_))) - (_hd145609145840_ + (##cdr _e145592145819_))) + (_hd145591145822_ (let () (declare (not safe)) - (##car _e145610145837_)))) + (##car _e145592145819_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145608145842_)) + (gx#stx-null? _tl145590145824_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl145509146148_)) - (___kont149605149606_ - _hd145609145840_ - _hd145600145816_ - _hd145480146448_) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)) + (gx#stx-null? _tl145491146130_)) + (___kont149587149588_ + _hd145591145822_ + _hd145582145798_ + _hd145462146430_) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149609149610_)))) + (___kont149591149592_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd145486146464_)) + _hd145468146446_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145485146466_)) - (let ((_e145541146055_ + _tl145467146448_)) + (let ((_e145523146037_ (let () (declare (not safe)) (gx#stx-e - _tl145485146466_)))) - (let ((_tl145539146060_ + _tl145467146448_)))) + (let ((_tl145521146042_ (let () (declare (not safe)) - (##cdr _e145541146055_))) - (_hd145540146058_ + (##cdr _e145523146037_))) + (_hd145522146040_ (let () (declare (not safe)) - (##car _e145541146055_)))) + (##car _e145523146037_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145539146060_)) + _tl145521146042_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl145509146148_)) - (___kont149601149602_ - _hd145510146146_ - _hd145540146058_ - _hd145480146448_) - (___kont149609149610_)) - (___kont149609149610_)))) + (gx#stx-null? _tl145491146130_)) + (___kont149583149584_ + _hd145492146128_ + _hd145522146040_ + _hd145462146430_) + (___kont149591149592_)) + (___kont149591149592_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149609149610_)) + (___kont149591149592_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd145486146464_)) + _hd145468146446_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145485146466_)) - (let ((_e145601145813_ + _tl145467146448_)) + (let ((_e145583145795_ (let () (declare (not safe)) (gx#stx-e - _tl145485146466_)))) - (let ((_tl145599145818_ + _tl145467146448_)))) + (let ((_tl145581145800_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e145601145813_))) - (_hd145600145816_ - (let () (declare (not safe)) (##car _e145601145813_)))) - (___kont149609149610_))) + (##cdr _e145583145795_))) + (_hd145582145798_ + (let () (declare (not safe)) (##car _e145583145795_)))) + (___kont149591149592_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149609149610_)) - (___kont149609149610_)))))) + (___kont149591149592_)) + (___kont149591149592_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd145486146464_)) + (gx#stx-eq? '%#quote _hd145468146446_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145485146466_)) - (let ((_e145541146055_ + (gx#stx-pair? _tl145467146448_)) + (let ((_e145523146037_ (let () (declare (not safe)) (gx#stx-e - _tl145485146466_)))) - (let ((_tl145539146060_ + _tl145467146448_)))) + (let ((_tl145521146042_ (let () (declare (not safe)) - (##cdr _e145541146055_))) - (_hd145540146058_ + (##cdr _e145523146037_))) + (_hd145522146040_ (let () (declare (not safe)) - (##car _e145541146055_)))) + (##car _e145523146037_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145539146060_)) + _tl145521146042_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl145509146148_)) - (___kont149601149602_ - _hd145510146146_ - _hd145540146058_ - _hd145480146448_) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)) + _tl145491146130_)) + (___kont149583149584_ + _hd145492146128_ + _hd145522146040_ + _hd145462146430_) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd145486146464_)) + _hd145468146446_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145485146466_)) - (let ((_e145601145813_ + (gx#stx-pair? _tl145467146448_)) + (let ((_e145583145795_ (let () (declare (not safe)) (gx#stx-e - _tl145485146466_)))) - (let ((_tl145599145818_ + _tl145467146448_)))) + (let ((_tl145581145800_ (let () (declare (not safe)) - (##cdr _e145601145813_))) - (_hd145600145816_ + (##cdr _e145583145795_))) + (_hd145582145798_ (let () (declare (not safe)) - (##car _e145601145813_)))) - (___kont149609149610_))) - (___kont149609149610_)) - (___kont149609149610_)))))) + (##car _e145583145795_)))) + (___kont149591149592_))) + (___kont149591149592_)) + (___kont149591149592_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd145486146464_)) + (gx#stx-eq? '%#quote _hd145468146446_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145485146466_)) - (let ((_e145541146055_ + (gx#stx-pair? _tl145467146448_)) + (let ((_e145523146037_ (let () (declare (not safe)) - (gx#stx-e _tl145485146466_)))) - (let ((_tl145539146060_ + (gx#stx-e _tl145467146448_)))) + (let ((_tl145521146042_ (let () (declare (not safe)) - (##cdr _e145541146055_))) - (_hd145540146058_ + (##cdr _e145523146037_))) + (_hd145522146040_ (let () (declare (not safe)) - (##car _e145541146055_)))) - (___kont149609149610_))) - (___kont149609149610_)) + (##car _e145523146037_)))) + (___kont149591149592_))) + (___kont149591149592_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd145486146464_)) + _hd145468146446_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145485146466_)) - (let ((_e145601145813_ + (gx#stx-pair? _tl145467146448_)) + (let ((_e145583145795_ (let () (declare (not safe)) - (gx#stx-e _tl145485146466_)))) - (let ((_tl145599145818_ + (gx#stx-e _tl145467146448_)))) + (let ((_tl145581145800_ (let () (declare (not safe)) - (##cdr _e145601145813_))) - (_hd145600145816_ + (##cdr _e145583145795_))) + (_hd145582145798_ (let () (declare (not safe)) - (##car _e145601145813_)))) - (___kont149609149610_))) - (___kont149609149610_)) - (___kont149609149610_))))) + (##car _e145583145795_)))) + (___kont149591149592_))) + (___kont149591149592_)) + (___kont149591149592_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145482146458_)) - (let ((_e145511146143_ + (gx#stx-pair? _tl145464146440_)) + (let ((_e145493146125_ (let () (declare (not safe)) - (gx#stx-e _tl145482146458_)))) - (let ((_tl145509146148_ + (gx#stx-e _tl145464146440_)))) + (let ((_tl145491146130_ (let () (declare (not safe)) - (##cdr _e145511146143_))) - (_hd145510146146_ + (##cdr _e145493146125_))) + (_hd145492146128_ (let () (declare (not safe)) - (##car _e145511146143_)))) + (##car _e145493146125_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145510146146_)) - (let ((_e145514146151_ + (gx#stx-pair? _hd145492146128_)) + (let ((_e145496146133_ (let () (declare (not safe)) - (gx#stx-e _hd145510146146_)))) - (let ((_tl145512146156_ + (gx#stx-e _hd145492146128_)))) + (let ((_tl145494146138_ (let () (declare (not safe)) - (##cdr _e145514146151_))) - (_hd145513146154_ + (##cdr _e145496146133_))) + (_hd145495146136_ (let () (declare (not safe)) - (##car _e145514146151_)))) + (##car _e145496146133_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145513146154_)) + (gx#identifier? _hd145495146136_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd145513146154_)) + _hd145495146136_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145512146156_)) - (let ((_e145517146159_ + (gx#stx-pair? _tl145494146138_)) + (let ((_e145499146141_ (let () (declare (not safe)) (gx#stx-e - _tl145512146156_)))) - (let ((_tl145515146164_ + _tl145494146138_)))) + (let ((_tl145497146146_ (let () (declare (not safe)) - (##cdr _e145517146159_))) - (_hd145516146162_ + (##cdr _e145499146141_))) + (_hd145498146144_ (let () (declare (not safe)) - (##car _e145517146159_)))) + (##car _e145499146141_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145515146164_)) + _tl145497146146_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl145509146148_)) - (___kont149599149600_ - _hd145516146162_ - _hd145483146456_ - _hd145480146448_) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)))) - (___kont149609149610_))))) + _tl145491146130_)) + (___kont149581149582_ + _hd145498146144_ + _hd145465146438_ + _hd145462146430_) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)))) + (___kont149591149592_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl145482146458_)) - (let ((_e145511146143_ + _tl145464146440_)) + (let ((_e145493146125_ (let () (declare (not safe)) (gx#stx-e - _tl145482146458_)))) - (let ((_tl145509146148_ + _tl145464146440_)))) + (let ((_tl145491146130_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e145511146143_))) - (_hd145510146146_ - (let () (declare (not safe)) (##car _e145511146143_)))) + (##cdr _e145493146125_))) + (_hd145492146128_ + (let () (declare (not safe)) (##car _e145493146125_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145510146146_)) - (let ((_e145514146151_ + (gx#stx-pair? _hd145492146128_)) + (let ((_e145496146133_ (let () (declare (not safe)) - (gx#stx-e _hd145510146146_)))) - (let ((_tl145512146156_ + (gx#stx-e _hd145492146128_)))) + (let ((_tl145494146138_ (let () (declare (not safe)) - (##cdr _e145514146151_))) - (_hd145513146154_ + (##cdr _e145496146133_))) + (_hd145495146136_ (let () (declare (not safe)) - (##car _e145514146151_)))) + (##car _e145496146133_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145513146154_)) + (gx#identifier? _hd145495146136_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd145513146154_)) + (gx#stx-eq? '%#quote _hd145495146136_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145512146156_)) - (let ((_e145517146159_ + (gx#stx-pair? _tl145494146138_)) + (let ((_e145499146141_ (let () (declare (not safe)) - (gx#stx-e _tl145512146156_)))) - (let ((_tl145515146164_ + (gx#stx-e _tl145494146138_)))) + (let ((_tl145497146146_ (let () (declare (not safe)) - (##cdr _e145517146159_))) - (_hd145516146162_ + (##cdr _e145499146141_))) + (_hd145498146144_ (let () (declare (not safe)) - (##car _e145517146159_)))) + (##car _e145499146141_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145515146164_)) + (gx#stx-null? _tl145497146146_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl145509146148_)) - (___kont149599149600_ - _hd145516146162_ - _hd145483146456_ - _hd145480146448_) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)))) + _tl145491146130_)) + (___kont149581149582_ + _hd145498146144_ + _hd145465146438_ + _hd145462146430_) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149609149610_))))) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)) + (___kont149591149592_))))) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd145477146440_)) + (gx#stx-eq? '%#lambda _hd145459146422_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145476146442_)) - (let ((_e145625145681_ + (gx#stx-pair? _tl145458146424_)) + (let ((_e145607145663_ (let () (declare (not safe)) - (gx#stx-e _tl145476146442_)))) - (let ((_tl145623145686_ + (gx#stx-e _tl145458146424_)))) + (let ((_tl145605145668_ (let () (declare (not safe)) - (##cdr _e145625145681_))) - (_hd145624145684_ + (##cdr _e145607145663_))) + (_hd145606145666_ (let () (declare (not safe)) - (##car _e145625145681_)))) + (##car _e145607145663_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145624145684_)) - (let ((_e145628145689_ + (gx#stx-pair? _hd145606145666_)) + (let ((_e145610145671_ (let () (declare (not safe)) (gx#stx-e - _hd145624145684_)))) - (let ((_tl145626145694_ + _hd145606145666_)))) + (let ((_tl145608145676_ (let () (declare (not safe)) - (##cdr _e145628145689_))) - (_hd145627145692_ + (##cdr _e145610145671_))) + (_hd145609145674_ (let () (declare (not safe)) - (##car _e145628145689_)))) + (##car _e145610145671_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145626145694_)) + _tl145608145676_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145623145686_)) - (let ((_e145631145697_ + _tl145605145668_)) + (let ((_e145613145679_ (let () (declare (not safe)) (gx#stx-e - _tl145623145686_)))) - (let ((_tl145629145702_ + _tl145605145668_)))) + (let ((_tl145611145684_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e145631145697_))) - (_hd145630145700_ - (let () (declare (not safe)) (##car _e145631145697_)))) + (##cdr _e145613145679_))) + (_hd145612145682_ + (let () (declare (not safe)) (##car _e145613145679_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl145629145702_)) + (gx#stx-null? _tl145611145684_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl145473146434_)) - (let ((_e145634145705_ + (gx#stx-pair? _tl145455146416_)) + (let ((_e145616145687_ (let () (declare (not safe)) - (gx#stx-e _tl145473146434_)))) - (let ((_tl145632145710_ + (gx#stx-e _tl145455146416_)))) + (let ((_tl145614145692_ (let () (declare (not safe)) - (##cdr _e145634145705_))) - (_hd145633145708_ + (##cdr _e145616145687_))) + (_hd145615145690_ (let () (declare (not safe)) - (##car _e145634145705_)))) + (##car _e145616145687_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd145633145708_)) - (let ((_e145637145713_ + (gx#stx-pair? _hd145615145690_)) + (let ((_e145619145695_ (let () (declare (not safe)) - (gx#stx-e _hd145633145708_)))) - (let ((_tl145635145718_ + (gx#stx-e _hd145615145690_)))) + (let ((_tl145617145700_ (let () (declare (not safe)) - (##cdr _e145637145713_))) - (_hd145636145716_ + (##cdr _e145619145695_))) + (_hd145618145698_ (let () (declare (not safe)) - (##car _e145637145713_)))) + (##car _e145619145695_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd145636145716_)) + (gx#identifier? _hd145618145698_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd145636145716_)) + _hd145618145698_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl145635145718_)) - (let ((_e145640145721_ + _tl145617145700_)) + (let ((_e145622145703_ (let () (declare (not safe)) (gx#stx-e - _tl145635145718_)))) - (let ((_tl145638145726_ + _tl145617145700_)))) + (let ((_tl145620145708_ (let () (declare (not safe)) - (##cdr _e145640145721_))) - (_hd145639145724_ + (##cdr _e145622145703_))) + (_hd145621145706_ (let () (declare (not safe)) - (##car _e145640145721_)))) + (##car _e145622145703_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl145638145726_)) + _tl145620145708_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl145632145710_)) - (___kont149607149608_ - _hd145639145724_ - _hd145630145700_ - _hd145627145692_) - (___kont149609149610_)) - (___kont149609149610_)))) + (gx#stx-null? _tl145614145692_)) + (___kont149589149590_ + _hd145621145706_ + _hd145612145682_ + _hd145609145674_) + (___kont149591149592_)) + (___kont149591149592_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149609149610_)) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)))) - (___kont149609149610_)) - (___kont149609149610_)))) + (___kont149591149592_)) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)))) + (___kont149591149592_)) + (___kont149591149592_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)))) - (___kont149609149610_)) - (___kont149609149610_))) - (___kont149609149610_)))) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)))) + (___kont149591149592_)) + (___kont149591149592_))) + (___kont149591149592_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont149609149610_)))) - (___kont149609149610_)) - (___kont149609149610_)) - (___kont149609149610_)))) - (___kont149609149610_)))))) - (_countf-symbol141518_ - (lambda (_id145448_) - (let ((_$e145450_ + (___kont149591149592_)))) + (___kont149591149592_)) + (___kont149591149592_)) + (___kont149591149592_)))) + (___kont149591149592_)))))) + (_countf-symbol141500_ + (lambda (_id145430_) + (let ((_$e145432_ (let () (declare (not safe)) - (gxc#identifier-symbol _id145448_)))) + (gxc#identifier-symbol _id145430_)))) (if (or (let () (declare (not safe)) - (eq? '##vector-length _$e145450_)) + (eq? '##vector-length _$e145432_)) (let () (declare (not safe)) - (eq? 'vector-length _$e145450_))) + (eq? 'vector-length _$e145432_))) 'vector-length (if (let () (declare (not safe)) - (eq? 'values-count _$e145450_)) + (eq? 'values-count _$e145432_)) 'values-count '#f))))) - (_eqf-symbol141519_ - (lambda (_sym145434_) - (let ((_$e145436_ _sym145434_)) + (_eqf-symbol141501_ + (lambda (_sym145416_) + (let ((_$e145418_ _sym145416_)) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e145436_)) + (eq? '##eq? _$e145418_)) (let () (declare (not safe)) - (eq? 'eq? _$e145436_))) + (eq? 'eq? _$e145418_))) 'eq? (if (or (let () (declare (not safe)) - (eq? '##eqv? _$e145436_)) + (eq? '##eqv? _$e145418_)) (let () (declare (not safe)) - (eq? 'eqv? _$e145436_))) + (eq? 'eqv? _$e145418_))) 'eqv? (if (or (let () (declare (not safe)) - (eq? '##equal? _$e145436_)) + (eq? '##equal? _$e145418_)) (let () (declare (not safe)) - (eq? 'equal? _$e145436_))) + (eq? 'equal? _$e145418_))) 'equal? (if (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e145436_)) + _$e145418_)) 'free-identifier=? (if (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e145436_)) + (eq? 'gx#stx-eq? _$e145418_)) 'stx-eq? '#f)))))))) - (_eqf-symbol?141520_ - (lambda (_sym145417_) - (let ((_$e145419_ _sym145417_)) + (_eqf-symbol?141502_ + (lambda (_sym145399_) + (let ((_$e145401_ _sym145399_)) (if (or (let () (declare (not safe)) - (eq? 'eq? _$e145419_)) + (eq? 'eq? _$e145401_)) (let () (declare (not safe)) - (eq? 'eqv? _$e145419_)) + (eq? 'eqv? _$e145401_)) (let () (declare (not safe)) - (eq? 'equal? _$e145419_)) + (eq? 'equal? _$e145401_)) (let () (declare (not safe)) - (eq? 'free-identifier=? _$e145419_)) + (eq? 'free-identifier=? _$e145401_)) (let () (declare (not safe)) - (eq? 'stx-eq? _$e145419_))) + (eq? 'stx-eq? _$e145401_))) '#t '#f)))) - (_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 + (_do-assert!141503_ + (lambda (_assert145390_ _type145391_ _K145392_) + (let ((_unwind-assert145394_ _env-assert141493_) + (_unwind-type145395_ _env-type141494_)) + (set! _env-assert141493_ _assert145390_) + (set! _env-type141494_ _type145391_) + (let ((_val145397_ (_K145392_))) + (set! _env-assert141493_ _unwind-assert145394_) + (set! _env-type141494_ _unwind-type145395_) + _val145397_)))) + (_do-bind141504_ + (lambda (_bind145387_ _K145388_) + (if (let () (declare (not safe)) (pair? _bind145387_)) + (let ((__tmp152294 (let () (declare (not safe)) - (_fold-bind-env141523_ - _bind145405_ - _env-bind141513_)))) + (_fold-bind-env141505_ + _bind145387_ + _env-bind141495_)))) (declare (not safe)) - (_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_ + (_do-bind!141506_ __tmp152294 _K145388_)) + (_K145388_)))) + (_fold-bind-env141505_ + (lambda (_bind145316_ _env145317_) + (let _lp145319_ ((_rest145321_ _bind145316_) + (_env145322_ _env145317_)) + (let* ((_rest145323145331_ _rest145321_) + (_else145325145339_ (lambda () _env145322_)) + (_K145327145375_ + (lambda (_rest145342_ _bind145343_) + (let* ((_bind145344145351_ _bind145343_) + (_E145346145355_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _bind145362145369_)))) - (_K145365145381_ - (lambda (_expr145376_ _id145377_) - (let* ((_sexpr145379_ + _bind145344145351_)))) + (_K145347145363_ + (lambda (_expr145358_ _id145359_) + (let* ((_sexpr145361_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr145376_))) - (__tmp152313 - (let ((__tmp152314 + _expr145358_))) + (__tmp152295 + (let ((__tmp152296 (let () (declare (not safe)) - (cons _sexpr145379_ + (cons _sexpr145361_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id145377_)))) + _id145359_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152314 - _env145340_)))) + (cons __tmp152296 + _env145322_)))) (declare (not safe)) - (_lp145337_ - _rest145360_ - __tmp152313))))) + (_lp145319_ + _rest145342_ + __tmp152295))))) (if (let () (declare (not safe)) - (##pair? _bind145362145369_)) - (let ((_hd145366145384_ + (##pair? _bind145344145351_)) + (let ((_hd145348145366_ (let () (declare (not safe)) - (##car _bind145362145369_))) - (_tl145367145386_ + (##car _bind145344145351_))) + (_tl145349145368_ (let () (declare (not safe)) - (##cdr _bind145362145369_)))) - (let* ((_id145389_ _hd145366145384_) - (_expr145391_ - _tl145367145386_)) + (##cdr _bind145344145351_)))) + (let* ((_id145371_ _hd145348145366_) + (_expr145373_ + _tl145349145368_)) (declare (not safe)) - (_K145365145381_ - _expr145391_ - _id145389_))) + (_K145347145363_ + _expr145373_ + _id145371_))) (let () (declare (not safe)) - (_E145364145373_))))))) + (_E145346145355_))))))) (if (let () (declare (not safe)) - (##pair? _rest145341145349_)) - (let ((_hd145346145396_ + (##pair? _rest145323145331_)) + (let ((_hd145328145378_ (let () (declare (not safe)) - (##car _rest145341145349_))) - (_tl145347145398_ + (##car _rest145323145331_))) + (_tl145329145380_ (let () (declare (not safe)) - (##cdr _rest145341145349_)))) - (let* ((_bind145401_ _hd145346145396_) - (_rest145403_ _tl145347145398_)) + (##cdr _rest145323145331_)))) + (let* ((_bind145383_ _hd145328145378_) + (_rest145385_ _tl145329145380_)) (declare (not safe)) - (_K145345145393_ _rest145403_ _bind145401_))) + (_K145327145375_ _rest145385_ _bind145383_))) (let () (declare (not safe)) - (_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_ + (_else145325145339_))))))) + (_do-bind!141506_ + (lambda (_env145309_ _K145310_) + (let ((_unwind145312_ _env-bind141495_)) + (set! _env-bind141495_ _env145309_) + (let ((_val145314_ (_K145310_))) + (set! _env-bind141495_ _unwind145312_) + _val145314_)))) + (_do-splice!141507_ + (lambda (_K145303_) + (let ((_unwind145305_ _in-splice?141496_)) + (set! _in-splice?141496_ '#t) + (let ((_val145307_ (_K145303_))) + (set! _in-splice?141496_ _unwind145305_) + _val145307_)))) + (_optimize-e141508_ + (lambda (_expr144500_) + (let* ((___stx150029150030_ _expr144500_) + (_g144507144680_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx150047150048_))))) - (let ((___kont150049150050_ - (lambda (_L145293_ _L145294_ _L145295_) - (let ((_$e145312_ + ___stx150029150030_))))) + (let ((___kont150031150032_ + (lambda (_L145275_ _L145276_ _L145277_) + (let ((_$e145294_ (let () (declare (not safe)) - (_assert-e141529_ _L145295_)))) + (_assert-e141511_ _L145277_)))) (if (let () (declare (not safe)) - (eq? '#t _$e145312_)) + (eq? '#t _$e145294_)) (let () (declare (not safe)) - (_optimize-e141526_ _L145294_)) + (_optimize-e141508_ _L145276_)) (if (let () (declare (not safe)) - (eq? '#f _$e145312_)) + (eq? '#f _$e145294_)) (let () (declare (not safe)) - (_optimize-e141526_ _L145293_)) - (let ((_K145315_ + (_optimize-e141508_ _L145275_)) + (let ((_K145297_ (let () (declare (not safe)) - (_optimize-t__0__148980148981_ - _L145294_ - _L145295_))) - (_E145316_ + (_optimize-t__0__148962148963_ + _L145276_ + _L145277_))) + (_E145298_ (let () (declare (not safe)) - (_optimize-f__148982148983_ - _L145293_ - _L145295_)))) - (if (let ((__tmp152319 + (_optimize-f__148964148965_ + _L145275_ + _L145277_)))) + (if (let ((__tmp152301 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _K145315_))) - (__tmp152318 + _K145297_))) + (__tmp152300 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _E145316_)))) + _E145298_)))) (declare (not safe)) - (equal? __tmp152319 - __tmp152318)) - _K145315_ - (let ((__tmp152315 - (let ((__tmp152316 - (let ((__tmp152317 + (equal? __tmp152301 + __tmp152300)) + _K145297_ + (let ((__tmp152297 + (let ((__tmp152298 + (let ((__tmp152299 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E145316_ '())))) + (cons _E145298_ '())))) (declare (not safe)) - (cons _K145315_ __tmp152317)))) + (cons _K145297_ __tmp152299)))) (declare (not safe)) - (cons _L145295_ __tmp152316)))) + (cons _L145277_ __tmp152298)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#if - __tmp152315))))))))) - (___kont150051150052_ - (lambda (_L145223_ _L145224_) - (let ((_$e145244_ + __tmp152297))))))))) + (___kont150033150034_ + (lambda (_L145205_ _L145206_) + (let ((_$e145226_ (let () (declare (not safe)) - (_lookup-block141534_ _L145224_)))) - (if _$e145244_ - ((lambda (_block145247_) + (_lookup-block141516_ _L145206_)))) + (if _$e145226_ + ((lambda (_block145229_) (if (let () (declare (not safe)) - (_nonlinear-block?141536_ - _block145247_)) - _expr144518_ - (let ((__tmp152320 - (let ((__tmp152321 - (let ((__tmp152322 + (_nonlinear-block?141518_ + _block145229_)) + _expr144500_ + (let ((__tmp152302 + (let ((__tmp152303 + (let ((__tmp152304 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g145248145251_ _g145249145253_) + (lambda (_g145230145233_ _g145231145235_) (let () (declare (not safe)) - (cons _g145248145251_ _g145249145253_))))) + (cons _g145230145233_ _g145231145235_))))) (declare (not safe)) - (foldr1 __tmp152322 '() _L145223_)))) + (foldr1 __tmp152304 '() _L145205_)))) (declare (not safe)) - (_inline-block141535_ _block145247_ __tmp152321)))) + (_inline-block141517_ _block145229_ __tmp152303)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_optimize-e141526_ - __tmp152320)))) - _$e145244_) - _expr144518_)))) - (___kont150055150056_ - (lambda (_L145113_ _L145114_ _L145115_) - (let* ((_body145134_ + (_optimize-e141508_ + __tmp152302)))) + _$e145226_) + _expr144500_)))) + (___kont150037150038_ + (lambda (_L145095_ _L145096_ _L145097_) + (let* ((_body145116_ (let () (declare (not safe)) - (_optimize-e141526_ _L145113_))) - (__tmp152323 - (let ((__tmp152325 + (_optimize-e141508_ _L145095_))) + (__tmp152305 + (let ((__tmp152307 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L145114_ - _L145115_)) - (let ((__tmp152326 - (lambda (_g145135145139_ + _L145096_ + _L145097_)) + (let ((__tmp152308 + (lambda (_g145117145121_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g145136145141_ - _g145137145143_) - (let ((__tmp152327 - (let ((__tmp152332 + _g145118145123_ + _g145119145125_) + (let ((__tmp152309 + (let ((__tmp152314 (let () (declare (not safe)) - (cons _g145136145141_ '()))) - (__tmp152328 - (let ((__tmp152329 - (let ((__tmp152331 + (cons _g145118145123_ '()))) + (__tmp152310 + (let ((__tmp152311 + (let ((__tmp152313 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152330 + (__tmp152312 (let () (declare (not safe)) - (cons _g145135145139_ '())))) + (cons _g145117145121_ '())))) (declare (not safe)) - (cons __tmp152331 __tmp152330)))) + (cons __tmp152313 __tmp152312)))) (declare (not safe)) - (cons __tmp152329 '())))) + (cons __tmp152311 '())))) (declare (not safe)) - (cons __tmp152332 __tmp152328)))) + (cons __tmp152314 __tmp152310)))) (declare (not safe)) - (cons __tmp152327 _g145137145143_))))) + (cons __tmp152309 _g145119145125_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp152326 + (foldr2 __tmp152308 '() - _L145114_ - _L145115_)))) - (__tmp152324 + _L145096_ + _L145097_)))) + (__tmp152306 (let () (declare (not safe)) - (cons _body145134_ '())))) + (cons _body145116_ '())))) (declare (not safe)) - (cons __tmp152325 __tmp152324)))) + (cons __tmp152307 __tmp152306)))) (declare (not safe)) - (cons '%#let-values __tmp152323)))) - (___kont150059150060_ - (lambda (_L144981_ _L144982_ _L144983_) - (let ((__tmp152333 + (cons '%#let-values __tmp152305)))) + (___kont150041150042_ + (lambda (_L144963_ _L144964_ _L144965_) + (let ((__tmp152315 (map cons - (let ((__tmp152334 - (lambda (_g145001145004_ - _g145002145006_) + (let ((__tmp152316 + (lambda (_g144983144986_ + _g144984144988_) (let () (declare (not safe)) - (cons _g145001145004_ - _g145002145006_))))) + (cons _g144983144986_ + _g144984144988_))))) (declare (not safe)) - (foldr1 __tmp152334 + (foldr1 __tmp152316 '() - _L144983_)) - (let ((__tmp152335 - (lambda (_g145008145011_ - _g145009145013_) + _L144965_)) + (let ((__tmp152317 + (lambda (_g144990144993_ + _g144991144995_) (let () (declare (not safe)) - (cons _g145008145011_ - _g145009145013_))))) + (cons _g144990144993_ + _g144991144995_))))) (declare (not safe)) - (foldr1 __tmp152335 + (foldr1 __tmp152317 '() - _L144982_))))) + _L144964_))))) (declare (not safe)) - (_bind-e__0__148988148989_ - __tmp152333 - _L144981_)))) - (___kont150063150064_ - (lambda (_L144838_ - _L144839_ - _L144840_ - _L144841_ - _L144842_) - (let ((__tmp152336 + (_bind-e__0__148970148971_ + __tmp152315 + _L144963_)))) + (___kont150045150046_ + (lambda (_L144820_ + _L144821_ + _L144822_ + _L144823_ + _L144824_) + (let ((__tmp152318 (lambda () - (let* ((_expr144884_ + (let* ((_expr144866_ (let () (declare (not safe)) - (_optimize-e141526_ - _L144840_))) - (__tmp152337 - (let ((__tmp152339 - (let ((__tmp152342 - (let ((__tmp152349 + (_optimize-e141508_ + _L144822_))) + (__tmp152319 + (let ((__tmp152321 + (let ((__tmp152324 + (let ((__tmp152331 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L144842_ '()))) - (__tmp152343 - (let ((__tmp152344 - (let ((__tmp152345 - (let ((__tmp152347 - (let ((__tmp152348 - (lambda (_g144885144888_ + (cons _L144824_ '()))) + (__tmp152325 + (let ((__tmp152326 + (let ((__tmp152327 + (let ((__tmp152329 + (let ((__tmp152330 + (lambda (_g144867144870_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g144886144890_) + _g144868144872_) (let () (declare (not safe)) - (cons _g144885144888_ _g144886144890_))))) + (cons _g144867144870_ _g144868144872_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp152348 + (foldr1 __tmp152330 '() - _L144841_))) - (__tmp152346 + _L144823_))) + (__tmp152328 (let () (declare (not safe)) - (cons _expr144884_ '())))) + (cons _expr144866_ '())))) (declare (not safe)) - (cons __tmp152347 __tmp152346)))) + (cons __tmp152329 __tmp152328)))) (declare (not safe)) - (cons '%#lambda __tmp152345)))) + (cons '%#lambda __tmp152327)))) (declare (not safe)) - (cons __tmp152344 '())))) + (cons __tmp152326 '())))) (declare (not safe)) - (cons __tmp152349 __tmp152343))) - (__tmp152340 - (let ((__tmp152341 - (lambda (_g144892144895_ _g144893144897_) + (cons __tmp152331 __tmp152325))) + (__tmp152322 + (let ((__tmp152323 + (lambda (_g144874144877_ _g144875144879_) (let () (declare (not safe)) - (cons _g144892144895_ _g144893144897_))))) + (cons _g144874144877_ _g144875144879_))))) (declare (not safe)) - (foldr1 __tmp152341 '() _L144839_)))) + (foldr1 __tmp152323 '() _L144821_)))) (declare (not safe)) - (cons __tmp152342 __tmp152340))) - (__tmp152338 - (let () (declare (not safe)) (cons _L144838_ '())))) + (cons __tmp152324 __tmp152322))) + (__tmp152320 + (let () (declare (not safe)) (cons _L144820_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152339 - __tmp152338)))) + (cons __tmp152321 + __tmp152320)))) (declare (not safe)) (cons '%#letrec-values - __tmp152337))))) + __tmp152319))))) (declare (not safe)) - (_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_) + (_do-splice!141507_ __tmp152318)))) + (___kont150051150052_ (lambda () _expr144500_))) + (let* ((___match150238150239_ + (lambda (_e144630144692_ + _hd144629144695_ + _tl144628144697_ + _e144633144700_ + _hd144632144703_ + _tl144631144705_ + _e144636144708_ + _hd144635144711_ + _tl144634144713_ + _e144639144716_ + _hd144638144719_ + _tl144637144721_ + _e144642144724_ + _hd144641144727_ + _tl144640144729_ + _e144645144732_ + _hd144644144735_ + _tl144643144737_ + _e144648144740_ + _hd144647144743_ + _tl144646144745_ + _e144651144748_ + _hd144650144751_ + _tl144649144753_ + ___splice150047150048_ + _target144652144756_ + _tl144654144758_) + (letrec ((_loop144655144761_ + (lambda (_hd144653144764_ + _id144659144766_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144671144782_)) - (let ((_e144674144787_ + _hd144653144764_)) + (let ((_e144656144769_ (let () (declare (not safe)) (gx#stx-e - _hd144671144782_)))) - (let ((_lp-tl144676144792_ + _hd144653144764_)))) + (let ((_lp-tl144658144774_ (let () (declare (not safe)) - (##cdr _e144674144787_))) - (_lp-hd144675144790_ + (##cdr _e144656144769_))) + (_lp-hd144657144772_ (let () (declare (not safe)) - (##car _e144674144787_)))) - (let ((__tmp152351 + (##car _e144656144769_)))) + (let ((__tmp152333 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd144675144790_ _id144677144784_)))) + (cons _lp-hd144657144772_ _id144659144766_)))) (declare (not safe)) - (_loop144673144779_ _lp-tl144676144792_ __tmp152351)))) + (_loop144655144761_ _lp-tl144658144774_ __tmp152333)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id144678144795_ - (reverse _id144677144784_))) + (let ((_id144660144777_ + (reverse _id144659144766_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144667144771_)) - (let ((_e144681144798_ + _tl144649144753_)) + (let ((_e144663144780_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl144667144771_)))) - (let ((_tl144679144803_ + (gx#stx-e _tl144649144753_)))) + (let ((_tl144661144785_ (let () (declare (not safe)) - (##cdr _e144681144798_))) - (_hd144680144801_ + (##cdr _e144663144780_))) + (_hd144662144783_ (let () (declare (not safe)) - (##car _e144681144798_)))) + (##car _e144663144780_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144679144803_)) + (gx#stx-null? _tl144661144785_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl144661144755_)) + (gx#stx-null? _tl144643144737_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl144652144731_)) - (let ((___splice150067150068_ + (gx#stx-pair/null? _tl144634144713_)) + (let ((___splice150049150050_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl144652144731_ + _tl144634144713_ '0)))) - (let ((_tl144684144808_ + (let ((_tl144666144790_ (let () (declare (not safe)) (##vector-ref - ___splice150067150068_ + ___splice150049150050_ '1))) - (_target144682144806_ + (_target144664144788_ (let () (declare (not safe)) (##vector-ref - ___splice150067150068_ + ___splice150049150050_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144684144808_)) - (letrec ((_loop144685144811_ - (lambda (_hd144683144814_ - _bind144689144816_) + (gx#stx-null? _tl144666144790_)) + (letrec ((_loop144667144793_ + (lambda (_hd144665144796_ + _bind144671144798_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144683144814_)) - (let ((_e144686144819_ + _hd144665144796_)) + (let ((_e144668144801_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd144683144814_)))) - (let ((_lp-tl144688144824_ + (gx#stx-e _hd144665144796_)))) + (let ((_lp-tl144670144806_ (let () (declare (not safe)) - (##cdr _e144686144819_))) - (_lp-hd144687144822_ + (##cdr _e144668144801_))) + (_lp-hd144669144804_ (let () (declare (not safe)) - (##car _e144686144819_)))) - (let ((__tmp152350 + (##car _e144668144801_)))) + (let ((__tmp152332 (let () (declare (not safe)) - (cons _lp-hd144687144822_ _bind144689144816_)))) + (cons _lp-hd144669144804_ _bind144671144798_)))) (declare (not safe)) - (_loop144685144811_ _lp-tl144688144824_ __tmp152350)))) - (let ((_bind144690144827_ (reverse _bind144689144816_))) + (_loop144667144793_ _lp-tl144670144806_ __tmp152332)))) + (let ((_bind144672144809_ (reverse _bind144671144798_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144649144723_)) - (let ((_e144693144830_ + (gx#stx-pair? _tl144631144705_)) + (let ((_e144675144812_ (let () (declare (not safe)) - (gx#stx-e _tl144649144723_)))) - (let ((_tl144691144835_ + (gx#stx-e _tl144631144705_)))) + (let ((_tl144673144817_ (let () (declare (not safe)) - (##cdr _e144693144830_))) - (_hd144692144833_ + (##cdr _e144675144812_))) + (_hd144674144815_ (let () (declare (not safe)) - (##car _e144693144830_)))) + (##car _e144675144812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144691144835_)) - (___kont150063150064_ - _hd144692144833_ - _bind144690144827_ - _hd144680144801_ - _id144678144795_ - _hd144659144745_) - (___kont150069150070_)))) - (___kont150069150070_))))))) + (gx#stx-null? _tl144673144817_)) + (___kont150045150046_ + _hd144674144815_ + _bind144672144809_ + _hd144662144783_ + _id144660144777_ + _hd144641144727_) + (___kont150051150052_)))) + (___kont150051150052_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop144685144811_ - _target144682144806_ + (_loop144667144793_ + _target144664144788_ '()))) - (___kont150069150070_)))) - (___kont150069150070_)) - (___kont150069150070_)) - (___kont150069150070_)))) - (___kont150069150070_))))))) + (___kont150051150052_)))) + (___kont150051150052_)) + (___kont150051150052_)) + (___kont150051150052_)))) + (___kont150051150052_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop144673144779_ - _target144670144774_ + (_loop144655144761_ + _target144652144756_ '()))))) - (___match150190150191_ - (lambda (_e144614144905_ - _hd144613144908_ - _tl144612144910_ - _e144617144913_ - _hd144616144916_ - _tl144615144918_ - ___splice150061150062_ - _target144618144921_ - _tl144620144923_) - (letrec ((_loop144621144926_ - (lambda (_hd144619144929_ - _expr144625144931_ - _id144626144933_) + (___match150172150173_ + (lambda (_e144596144887_ + _hd144595144890_ + _tl144594144892_ + _e144599144895_ + _hd144598144898_ + _tl144597144900_ + ___splice150043150044_ + _target144600144903_ + _tl144602144905_) + (letrec ((_loop144603144908_ + (lambda (_hd144601144911_ + _expr144607144913_ + _id144608144915_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144619144929_)) - (let ((_e144622144936_ + _hd144601144911_)) + (let ((_e144604144918_ (let () (declare (not safe)) (gx#stx-e - _hd144619144929_)))) - (let ((_lp-tl144624144941_ + _hd144601144911_)))) + (let ((_lp-tl144606144923_ (let () (declare (not safe)) - (##cdr _e144622144936_))) - (_lp-hd144623144939_ + (##cdr _e144604144918_))) + (_lp-hd144605144921_ (let () (declare (not safe)) - (##car _e144622144936_)))) + (##car _e144604144918_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd144623144939_)) - (let ((_e144631144944_ + _lp-hd144605144921_)) + (let ((_e144613144926_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd144623144939_)))) - (let ((_tl144629144949_ + (gx#stx-e _lp-hd144605144921_)))) + (let ((_tl144611144931_ (let () (declare (not safe)) - (##cdr _e144631144944_))) - (_hd144630144947_ + (##cdr _e144613144926_))) + (_hd144612144929_ (let () (declare (not safe)) - (##car _e144631144944_)))) + (##car _e144613144926_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144630144947_)) - (let ((_e144634144952_ + (gx#stx-pair? _hd144612144929_)) + (let ((_e144616144934_ (let () (declare (not safe)) - (gx#stx-e _hd144630144947_)))) - (let ((_tl144632144957_ + (gx#stx-e _hd144612144929_)))) + (let ((_tl144614144939_ (let () (declare (not safe)) - (##cdr _e144634144952_))) - (_hd144633144955_ + (##cdr _e144616144934_))) + (_hd144615144937_ (let () (declare (not safe)) - (##car _e144634144952_)))) + (##car _e144616144934_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144632144957_)) + (gx#stx-null? _tl144614144939_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144629144949_)) - (let ((_e144637144960_ + (gx#stx-pair? _tl144611144931_)) + (let ((_e144619144942_ (let () (declare (not safe)) - (gx#stx-e _tl144629144949_)))) - (let ((_tl144635144965_ + (gx#stx-e _tl144611144931_)))) + (let ((_tl144617144947_ (let () (declare (not safe)) - (##cdr _e144637144960_))) - (_hd144636144963_ + (##cdr _e144619144942_))) + (_hd144618144945_ (let () (declare (not safe)) - (##car _e144637144960_)))) + (##car _e144619144942_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl144635144965_)) - (let ((__tmp152353 + _tl144617144947_)) + (let ((__tmp152335 (let () (declare (not safe)) - (cons _hd144636144963_ - _expr144625144931_))) - (__tmp152352 + (cons _hd144618144945_ + _expr144607144913_))) + (__tmp152334 (let () (declare (not safe)) - (cons _hd144633144955_ - _id144626144933_)))) + (cons _hd144615144937_ + _id144608144915_)))) (declare (not safe)) - (_loop144621144926_ - _lp-tl144624144941_ - __tmp152353 - __tmp152352)) - (___kont150069150070_)))) - (___kont150069150070_)) - (___kont150069150070_)))) - (___kont150069150070_)))) - (___kont150069150070_)))) + (_loop144603144908_ + _lp-tl144606144923_ + __tmp152335 + __tmp152334)) + (___kont150051150052_)))) + (___kont150051150052_)) + (___kont150051150052_)))) + (___kont150051150052_)))) + (___kont150051150052_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id144628144970_ - (reverse _id144626144933_)) - (_expr144627144968_ - (reverse _expr144625144931_))) + (let ((_id144610144952_ + (reverse _id144608144915_)) + (_expr144609144950_ + (reverse _expr144607144913_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144615144918_)) - (let ((_e144640144973_ + _tl144597144900_)) + (let ((_e144622144955_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl144615144918_)))) - (let ((_tl144638144978_ + (gx#stx-e _tl144597144900_)))) + (let ((_tl144620144960_ (let () (declare (not safe)) - (##cdr _e144640144973_))) - (_hd144639144976_ + (##cdr _e144622144955_))) + (_hd144621144958_ (let () (declare (not safe)) - (##car _e144640144973_)))) + (##car _e144622144955_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144638144978_)) - (___kont150059150060_ - _hd144639144976_ - _expr144627144968_ - _id144628144970_) - (___kont150069150070_)))) - (___kont150069150070_))))))) + (gx#stx-null? _tl144620144960_)) + (___kont150041150042_ + _hd144621144958_ + _expr144609144950_ + _id144610144952_) + (___kont150051150052_)))) + (___kont150051150052_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop144621144926_ - _target144618144921_ + (_loop144603144908_ + _target144600144903_ '() '()))))) - (___match150166150167_ - (lambda (_e144576145021_ - _hd144575145024_ - _tl144574145026_ - _e144579145029_ - _hd144578145032_ - _tl144577145034_ - ___splice150057150058_ - _target144580145037_ - _tl144582145039_) - (letrec ((_loop144583145042_ - (lambda (_hd144581145045_ - _xid144587145047_ - _id144588145049_) + (___match150148150149_ + (lambda (_e144558145003_ + _hd144557145006_ + _tl144556145008_ + _e144561145011_ + _hd144560145014_ + _tl144559145016_ + ___splice150039150040_ + _target144562145019_ + _tl144564145021_) + (letrec ((_loop144565145024_ + (lambda (_hd144563145027_ + _xid144569145029_ + _id144570145031_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144581145045_)) - (let ((_e144584145052_ + _hd144563145027_)) + (let ((_e144566145034_ (let () (declare (not safe)) (gx#stx-e - _hd144581145045_)))) - (let ((_lp-tl144586145057_ + _hd144563145027_)))) + (let ((_lp-tl144568145039_ (let () (declare (not safe)) - (##cdr _e144584145052_))) - (_lp-hd144585145055_ + (##cdr _e144566145034_))) + (_lp-hd144567145037_ (let () (declare (not safe)) - (##car _e144584145052_)))) + (##car _e144566145034_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd144585145055_)) - (let ((_e144593145060_ + _lp-hd144567145037_)) + (let ((_e144575145042_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd144585145055_)))) - (let ((_tl144591145065_ + (gx#stx-e _lp-hd144567145037_)))) + (let ((_tl144573145047_ (let () (declare (not safe)) - (##cdr _e144593145060_))) - (_hd144592145063_ + (##cdr _e144575145042_))) + (_hd144574145045_ (let () (declare (not safe)) - (##car _e144593145060_)))) + (##car _e144575145042_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144592145063_)) - (let ((_e144596145068_ + (gx#stx-pair? _hd144574145045_)) + (let ((_e144578145050_ (let () (declare (not safe)) - (gx#stx-e _hd144592145063_)))) - (let ((_tl144594145073_ + (gx#stx-e _hd144574145045_)))) + (let ((_tl144576145055_ (let () (declare (not safe)) - (##cdr _e144596145068_))) - (_hd144595145071_ + (##cdr _e144578145050_))) + (_hd144577145053_ (let () (declare (not safe)) - (##car _e144596145068_)))) + (##car _e144578145050_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144594145073_)) + (gx#stx-null? _tl144576145055_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144591145065_)) - (let ((_e144599145076_ + (gx#stx-pair? _tl144573145047_)) + (let ((_e144581145058_ (let () (declare (not safe)) - (gx#stx-e _tl144591145065_)))) - (let ((_tl144597145081_ + (gx#stx-e _tl144573145047_)))) + (let ((_tl144579145063_ (let () (declare (not safe)) - (##cdr _e144599145076_))) - (_hd144598145079_ + (##cdr _e144581145058_))) + (_hd144580145061_ (let () (declare (not safe)) - (##car _e144599145076_)))) + (##car _e144581145058_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144598145079_)) - (let ((_e144602145084_ + _hd144580145061_)) + (let ((_e144584145066_ (let () (declare (not safe)) (gx#stx-e - _hd144598145079_)))) - (let ((_tl144600145089_ + _hd144580145061_)))) + (let ((_tl144582145071_ (let () (declare (not safe)) - (##cdr _e144602145084_))) - (_hd144601145087_ + (##cdr _e144584145066_))) + (_hd144583145069_ (let () (declare (not safe)) - (##car _e144602145084_)))) + (##car _e144584145066_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd144601145087_)) + _hd144583145069_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd144601145087_)) + _hd144583145069_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl144600145089_)) - (let ((_e144605145092_ + (gx#stx-pair? _tl144582145071_)) + (let ((_e144587145074_ (let () (declare (not safe)) - (gx#stx-e _tl144600145089_)))) - (let ((_tl144603145097_ + (gx#stx-e _tl144582145071_)))) + (let ((_tl144585145079_ (let () (declare (not safe)) - (##cdr _e144605145092_))) - (_hd144604145095_ + (##cdr _e144587145074_))) + (_hd144586145077_ (let () (declare (not safe)) - (##car _e144605145092_)))) + (##car _e144587145074_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144603145097_)) + (gx#stx-null? _tl144585145079_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl144597145081_)) - (let ((__tmp152355 + (gx#stx-null? _tl144579145063_)) + (let ((__tmp152337 (let () (declare (not safe)) - (cons _hd144604145095_ - _xid144587145047_))) - (__tmp152354 + (cons _hd144586145077_ + _xid144569145029_))) + (__tmp152336 (let () (declare (not safe)) - (cons _hd144595145071_ - _id144588145049_)))) + (cons _hd144577145053_ + _id144570145031_)))) (declare (not safe)) - (_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_)))) + (_loop144565145024_ + _lp-tl144568145039_ + __tmp152337 + __tmp152336)) + (___match150172150173_ + _e144558145003_ + _hd144557145006_ + _tl144556145008_ + _e144561145011_ + _hd144560145014_ + _tl144559145016_ + ___splice150039150040_ + _target144562145019_ + _tl144564145021_)) + (___match150172150173_ + _e144558145003_ + _hd144557145006_ + _tl144556145008_ + _e144561145011_ + _hd144560145014_ + _tl144559145016_ + ___splice150039150040_ + _target144562145019_ + _tl144564145021_)))) + (___match150172150173_ + _e144558145003_ + _hd144557145006_ + _tl144556145008_ + _e144561145011_ + _hd144560145014_ + _tl144559145016_ + ___splice150039150040_ + _target144562145019_ + _tl144564145021_)) + (___match150172150173_ + _e144558145003_ + _hd144557145006_ + _tl144556145008_ + _e144561145011_ + _hd144560145014_ + _tl144559145016_ + ___splice150039150040_ + _target144562145019_ + _tl144564145021_)) + (___match150172150173_ + _e144558145003_ + _hd144557145006_ + _tl144556145008_ + _e144561145011_ + _hd144560145014_ + _tl144559145016_ + ___splice150039150040_ + _target144562145019_ + _tl144564145021_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_)))) + (___match150172150173_ + _e144558145003_ + _hd144557145006_ + _tl144556145008_ + _e144561145011_ + _hd144560145014_ + _tl144559145016_ + ___splice150039150040_ + _target144562145019_ + _tl144564145021_)))) + (___match150172150173_ + _e144558145003_ + _hd144557145006_ + _tl144556145008_ + _e144561145011_ + _hd144560145014_ + _tl144559145016_ + ___splice150039150040_ + _target144562145019_ + _tl144564145021_)) + (___match150172150173_ + _e144558145003_ + _hd144557145006_ + _tl144556145008_ + _e144561145011_ + _hd144560145014_ + _tl144559145016_ + ___splice150039150040_ + _target144562145019_ + _tl144564145021_)))) + (___match150172150173_ + _e144558145003_ + _hd144557145006_ + _tl144556145008_ + _e144561145011_ + _hd144560145014_ + _tl144559145016_ + ___splice150039150040_ + _target144562145019_ + _tl144564145021_)))) + (___match150172150173_ + _e144558145003_ + _hd144557145006_ + _tl144556145008_ + _e144561145011_ + _hd144560145014_ + _tl144559145016_ + ___splice150039150040_ + _target144562145019_ + _tl144564145021_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id144590145102_ - (reverse _id144588145049_)) - (_xid144589145100_ - (reverse _xid144587145047_))) + (let ((_id144572145084_ + (reverse _id144570145031_)) + (_xid144571145082_ + (reverse _xid144569145029_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144577145034_)) - (let ((_e144608145105_ + _tl144559145016_)) + (let ((_e144590145087_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl144577145034_)))) - (let ((_tl144606145110_ + (gx#stx-e _tl144559145016_)))) + (let ((_tl144588145092_ (let () (declare (not safe)) - (##cdr _e144608145105_))) - (_hd144607145108_ + (##cdr _e144590145087_))) + (_hd144589145090_ (let () (declare (not safe)) - (##car _e144608145105_)))) + (##car _e144590145087_)))) (if (let () (declare (not safe)) - (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_))))))) + (gx#stx-null? _tl144588145092_)) + (___kont150037150038_ + _hd144589145090_ + _xid144571145082_ + _id144572145084_) + (___match150172150173_ + _e144558145003_ + _hd144557145006_ + _tl144556145008_ + _e144561145011_ + _hd144560145014_ + _tl144559145016_ + ___splice150039150040_ + _target144562145019_ + _tl144564145021_)))) + (___match150172150173_ + _e144558145003_ + _hd144557145006_ + _tl144556145008_ + _e144561145011_ + _hd144560145014_ + _tl144559145016_ + ___splice150039150040_ + _target144562145019_ + _tl144564145021_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop144583145042_ - _target144580145037_ + (_loop144565145024_ + _target144562145019_ '() '()))))) - (___match150142150143_ - (lambda (_e144546145151_ - _hd144545145154_ - _tl144544145156_ - _e144549145159_ - _hd144548145162_ - _tl144547145164_ - _e144552145167_ - _hd144551145170_ - _tl144550145172_ - _e144555145175_ - _hd144554145178_ - _tl144553145180_ - ___splice150053150054_ - _target144556145183_ - _tl144558145185_) - (letrec ((_loop144559145188_ - (lambda (_hd144557145191_ - _id144563145193_) + (___match150124150125_ + (lambda (_e144528145133_ + _hd144527145136_ + _tl144526145138_ + _e144531145141_ + _hd144530145144_ + _tl144529145146_ + _e144534145149_ + _hd144533145152_ + _tl144532145154_ + _e144537145157_ + _hd144536145160_ + _tl144535145162_ + ___splice150035150036_ + _target144538145165_ + _tl144540145167_) + (letrec ((_loop144541145170_ + (lambda (_hd144539145173_ + _id144545145175_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144557145191_)) - (let ((_e144560145196_ + _hd144539145173_)) + (let ((_e144542145178_ (let () (declare (not safe)) (gx#stx-e - _hd144557145191_)))) - (let ((_lp-tl144562145201_ + _hd144539145173_)))) + (let ((_lp-tl144544145183_ (let () (declare (not safe)) - (##cdr _e144560145196_))) - (_lp-hd144561145199_ + (##cdr _e144542145178_))) + (_lp-hd144543145181_ (let () (declare (not safe)) - (##car _e144560145196_)))) + (##car _e144542145178_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd144561145199_)) - (let ((_e144567145204_ + _lp-hd144543145181_)) + (let ((_e144549145186_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd144561145199_)))) - (let ((_tl144565145209_ + (gx#stx-e _lp-hd144543145181_)))) + (let ((_tl144547145191_ (let () (declare (not safe)) - (##cdr _e144567145204_))) - (_hd144566145207_ + (##cdr _e144549145186_))) + (_hd144548145189_ (let () (declare (not safe)) - (##car _e144567145204_)))) + (##car _e144549145186_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144566145207_)) + (gx#identifier? _hd144548145189_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd144566145207_)) + (gx#stx-eq? '%#ref _hd144548145189_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144565145209_)) - (let ((_e144570145212_ + (gx#stx-pair? _tl144547145191_)) + (let ((_e144552145194_ (let () (declare (not safe)) - (gx#stx-e _tl144565145209_)))) - (let ((_tl144568145217_ + (gx#stx-e _tl144547145191_)))) + (let ((_tl144550145199_ (let () (declare (not safe)) - (##cdr _e144570145212_))) - (_hd144569145215_ + (##cdr _e144552145194_))) + (_hd144551145197_ (let () (declare (not safe)) - (##car _e144570145212_)))) + (##car _e144552145194_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144568145217_)) - (let ((__tmp152356 + (gx#stx-null? _tl144550145199_)) + (let ((__tmp152338 (let () (declare (not safe)) - (cons _hd144569145215_ - _id144563145193_)))) + (cons _hd144551145197_ + _id144545145175_)))) (declare (not safe)) - (_loop144559145188_ - _lp-tl144562145201_ - __tmp152356)) - (___kont150069150070_)))) - (___kont150069150070_)) - (___kont150069150070_)) - (___kont150069150070_)))) - (___kont150069150070_)))) + (_loop144541145170_ + _lp-tl144544145183_ + __tmp152338)) + (___kont150051150052_)))) + (___kont150051150052_)) + (___kont150051150052_)) + (___kont150051150052_)))) + (___kont150051150052_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id144564145220_ - (reverse _id144563145193_))) - (___kont150051150052_ - _id144564145220_ - _hd144554145178_)))))) + (let ((_id144546145202_ + (reverse _id144545145175_))) + (___kont150033150034_ + _id144546145202_ + _hd144536145160_)))))) (let () (declare (not safe)) - (_loop144559145188_ - _target144556145183_ + (_loop144541145170_ + _target144538145165_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx150047150048_)) - (let ((_e144532145261_ + (gx#stx-pair? ___stx150029150030_)) + (let ((_e144514145243_ (let () (declare (not safe)) - (gx#stx-e ___stx150047150048_)))) - (let ((_tl144530145266_ + (gx#stx-e ___stx150029150030_)))) + (let ((_tl144512145248_ (let () (declare (not safe)) - (##cdr _e144532145261_))) - (_hd144531145264_ + (##cdr _e144514145243_))) + (_hd144513145246_ (let () (declare (not safe)) - (##car _e144532145261_)))) + (##car _e144514145243_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144531145264_)) + (gx#identifier? _hd144513145246_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd144531145264_)) + _hd144513145246_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144530145266_)) - (let ((_e144535145269_ + _tl144512145248_)) + (let ((_e144517145251_ (let () (declare (not safe)) (gx#stx-e - _tl144530145266_)))) - (let ((_tl144533145274_ + _tl144512145248_)))) + (let ((_tl144515145256_ (let () (declare (not safe)) - (##cdr _e144535145269_))) - (_hd144534145272_ + (##cdr _e144517145251_))) + (_hd144516145254_ (let () (declare (not safe)) - (##car _e144535145269_)))) + (##car _e144517145251_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144533145274_)) - (let ((_e144538145277_ + _tl144515145256_)) + (let ((_e144520145259_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl144533145274_)))) - (let ((_tl144536145282_ - (let () (declare (not safe)) (##cdr _e144538145277_))) - (_hd144537145280_ - (let () (declare (not safe)) (##car _e144538145277_)))) + (gx#stx-e _tl144515145256_)))) + (let ((_tl144518145264_ + (let () (declare (not safe)) (##cdr _e144520145259_))) + (_hd144519145262_ + (let () (declare (not safe)) (##car _e144520145259_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144536145282_)) - (let ((_e144541145285_ + (gx#stx-pair? _tl144518145264_)) + (let ((_e144523145267_ (let () (declare (not safe)) - (gx#stx-e _tl144536145282_)))) - (let ((_tl144539145290_ + (gx#stx-e _tl144518145264_)))) + (let ((_tl144521145272_ (let () (declare (not safe)) - (##cdr _e144541145285_))) - (_hd144540145288_ + (##cdr _e144523145267_))) + (_hd144522145270_ (let () (declare (not safe)) - (##car _e144541145285_)))) + (##car _e144523145267_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144539145290_)) - (___kont150049150050_ - _hd144540145288_ - _hd144537145280_ - _hd144534145272_) - (___kont150069150070_)))) - (___kont150069150070_)))) - (___kont150069150070_)))) + (gx#stx-null? _tl144521145272_)) + (___kont150031150032_ + _hd144522145270_ + _hd144519145262_ + _hd144516145254_) + (___kont150051150052_)))) + (___kont150051150052_)))) + (___kont150051150052_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150069150070_)) + (___kont150051150052_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd144531145264_)) + _hd144513145246_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144530145266_)) - (let ((_e144549145159_ + _tl144512145248_)) + (let ((_e144531145141_ (let () (declare (not safe)) (gx#stx-e - _tl144530145266_)))) - (let ((_tl144547145164_ + _tl144512145248_)))) + (let ((_tl144529145146_ (let () (declare (not safe)) - (##cdr _e144549145159_))) - (_hd144548145162_ + (##cdr _e144531145141_))) + (_hd144530145144_ (let () (declare (not safe)) - (##car _e144549145159_)))) + (##car _e144531145141_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd144548145162_)) - (let ((_e144552145167_ + _hd144530145144_)) + (let ((_e144534145149_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd144548145162_)))) - (let ((_tl144550145172_ + (gx#stx-e _hd144530145144_)))) + (let ((_tl144532145154_ (let () (declare (not safe)) - (##cdr _e144552145167_))) - (_hd144551145170_ + (##cdr _e144534145149_))) + (_hd144533145152_ (let () (declare (not safe)) - (##car _e144552145167_)))) + (##car _e144534145149_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144551145170_)) + (gx#identifier? _hd144533145152_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd144551145170_)) + (gx#stx-eq? '%#ref _hd144533145152_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144550145172_)) - (let ((_e144555145175_ + (gx#stx-pair? _tl144532145154_)) + (let ((_e144537145157_ (let () (declare (not safe)) - (gx#stx-e _tl144550145172_)))) - (let ((_tl144553145180_ + (gx#stx-e _tl144532145154_)))) + (let ((_tl144535145162_ (let () (declare (not safe)) - (##cdr _e144555145175_))) - (_hd144554145178_ + (##cdr _e144537145157_))) + (_hd144536145160_ (let () (declare (not safe)) - (##car _e144555145175_)))) + (##car _e144537145157_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144553145180_)) + (gx#stx-null? _tl144535145162_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl144547145164_)) - (let ((___splice150053150054_ + _tl144529145146_)) + (let ((___splice150035150036_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl144547145164_ + _tl144529145146_ '0)))) - (let ((_tl144558145185_ + (let ((_tl144540145167_ (let () (declare (not safe)) (##vector-ref - ___splice150053150054_ + ___splice150035150036_ '1))) - (_target144556145183_ + (_target144538145165_ (let () (declare (not safe)) (##vector-ref - ___splice150053150054_ + ___splice150035150036_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl144558145185_)) - (___match150142150143_ - _e144532145261_ - _hd144531145264_ - _tl144530145266_ - _e144549145159_ - _hd144548145162_ - _tl144547145164_ - _e144552145167_ - _hd144551145170_ - _tl144550145172_ - _e144555145175_ - _hd144554145178_ - _tl144553145180_ - ___splice150053150054_ - _target144556145183_ - _tl144558145185_) - (___kont150069150070_)))) - (___kont150069150070_)) - (___kont150069150070_)))) - (___kont150069150070_)) - (___kont150069150070_)) - (___kont150069150070_)))) - (___kont150069150070_)))) + _tl144540145167_)) + (___match150124150125_ + _e144514145243_ + _hd144513145246_ + _tl144512145248_ + _e144531145141_ + _hd144530145144_ + _tl144529145146_ + _e144534145149_ + _hd144533145152_ + _tl144532145154_ + _e144537145157_ + _hd144536145160_ + _tl144535145162_ + ___splice150035150036_ + _target144538145165_ + _tl144540145167_) + (___kont150051150052_)))) + (___kont150051150052_)) + (___kont150051150052_)))) + (___kont150051150052_)) + (___kont150051150052_)) + (___kont150051150052_)))) + (___kont150051150052_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150069150070_)) + (___kont150051150052_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd144531145264_)) + _hd144513145246_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144530145266_)) - (let ((_e144579145029_ + _tl144512145248_)) + (let ((_e144561145011_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl144530145266_)))) - (let ((_tl144577145034_ - (let () (declare (not safe)) (##cdr _e144579145029_))) - (_hd144578145032_ - (let () (declare (not safe)) (##car _e144579145029_)))) + (gx#stx-e _tl144512145248_)))) + (let ((_tl144559145016_ + (let () (declare (not safe)) (##cdr _e144561145011_))) + (_hd144560145014_ + (let () (declare (not safe)) (##car _e144561145011_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd144578145032_)) - (let ((___splice150057150058_ + (gx#stx-pair/null? _hd144560145014_)) + (let ((___splice150039150040_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd144578145032_ '0)))) - (let ((_tl144582145039_ + (gx#syntax-split-splice _hd144560145014_ '0)))) + (let ((_tl144564145021_ (let () (declare (not safe)) - (##vector-ref ___splice150057150058_ '1))) - (_target144580145037_ + (##vector-ref ___splice150039150040_ '1))) + (_target144562145019_ (let () (declare (not safe)) - (##vector-ref ___splice150057150058_ '0)))) + (##vector-ref ___splice150039150040_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144582145039_)) - (___match150166150167_ - _e144532145261_ - _hd144531145264_ - _tl144530145266_ - _e144579145029_ - _hd144578145032_ - _tl144577145034_ - ___splice150057150058_ - _target144580145037_ - _tl144582145039_) - (___kont150069150070_)))) - (___kont150069150070_)))) - (___kont150069150070_)) + (gx#stx-null? _tl144564145021_)) + (___match150148150149_ + _e144514145243_ + _hd144513145246_ + _tl144512145248_ + _e144561145011_ + _hd144560145014_ + _tl144559145016_ + ___splice150039150040_ + _target144562145019_ + _tl144564145021_) + (___kont150051150052_)))) + (___kont150051150052_)))) + (___kont150051150052_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd144531145264_)) + _hd144513145246_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144530145266_)) - (let ((_e144651144718_ + _tl144512145248_)) + (let ((_e144633144700_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl144530145266_)))) - (let ((_tl144649144723_ + (gx#stx-e _tl144512145248_)))) + (let ((_tl144631144705_ (let () (declare (not safe)) - (##cdr _e144651144718_))) - (_hd144650144721_ + (##cdr _e144633144700_))) + (_hd144632144703_ (let () (declare (not safe)) - (##car _e144651144718_)))) + (##car _e144633144700_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144650144721_)) - (let ((_e144654144726_ + (gx#stx-pair? _hd144632144703_)) + (let ((_e144636144708_ (let () (declare (not safe)) - (gx#stx-e _hd144650144721_)))) - (let ((_tl144652144731_ + (gx#stx-e _hd144632144703_)))) + (let ((_tl144634144713_ (let () (declare (not safe)) - (##cdr _e144654144726_))) - (_hd144653144729_ + (##cdr _e144636144708_))) + (_hd144635144711_ (let () (declare (not safe)) - (##car _e144654144726_)))) + (##car _e144636144708_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144653144729_)) - (let ((_e144657144734_ + (gx#stx-pair? _hd144635144711_)) + (let ((_e144639144716_ (let () (declare (not safe)) - (gx#stx-e _hd144653144729_)))) - (let ((_tl144655144739_ + (gx#stx-e _hd144635144711_)))) + (let ((_tl144637144721_ (let () (declare (not safe)) - (##cdr _e144657144734_))) - (_hd144656144737_ + (##cdr _e144639144716_))) + (_hd144638144719_ (let () (declare (not safe)) - (##car _e144657144734_)))) + (##car _e144639144716_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144656144737_)) - (let ((_e144660144742_ + (gx#stx-pair? _hd144638144719_)) + (let ((_e144642144724_ (let () (declare (not safe)) (gx#stx-e - _hd144656144737_)))) - (let ((_tl144658144747_ + _hd144638144719_)))) + (let ((_tl144640144729_ (let () (declare (not safe)) - (##cdr _e144660144742_))) - (_hd144659144745_ + (##cdr _e144642144724_))) + (_hd144641144727_ (let () (declare (not safe)) - (##car _e144660144742_)))) + (##car _e144642144724_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl144658144747_)) + _tl144640144729_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144655144739_)) - (let ((_e144663144750_ + _tl144637144721_)) + (let ((_e144645144732_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl144655144739_)))) - (let ((_tl144661144755_ - (let () (declare (not safe)) (##cdr _e144663144750_))) - (_hd144662144753_ - (let () (declare (not safe)) (##car _e144663144750_)))) + (gx#stx-e _tl144637144721_)))) + (let ((_tl144643144737_ + (let () (declare (not safe)) (##cdr _e144645144732_))) + (_hd144644144735_ + (let () (declare (not safe)) (##car _e144645144732_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd144662144753_)) - (let ((_e144666144758_ + (gx#stx-pair? _hd144644144735_)) + (let ((_e144648144740_ (let () (declare (not safe)) - (gx#stx-e _hd144662144753_)))) - (let ((_tl144664144763_ + (gx#stx-e _hd144644144735_)))) + (let ((_tl144646144745_ (let () (declare (not safe)) - (##cdr _e144666144758_))) - (_hd144665144761_ + (##cdr _e144648144740_))) + (_hd144647144743_ (let () (declare (not safe)) - (##car _e144666144758_)))) + (##car _e144648144740_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144665144761_)) + (gx#identifier? _hd144647144743_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd144665144761_)) + (gx#stx-eq? '%#lambda _hd144647144743_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144664144763_)) - (let ((_e144669144766_ + (gx#stx-pair? _tl144646144745_)) + (let ((_e144651144748_ (let () (declare (not safe)) - (gx#stx-e _tl144664144763_)))) - (let ((_tl144667144771_ + (gx#stx-e _tl144646144745_)))) + (let ((_tl144649144753_ (let () (declare (not safe)) - (##cdr _e144669144766_))) - (_hd144668144769_ + (##cdr _e144651144748_))) + (_hd144650144751_ (let () (declare (not safe)) - (##car _e144669144766_)))) + (##car _e144651144748_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd144668144769_)) - (let ((___splice150065150066_ + _hd144650144751_)) + (let ((___splice150047150048_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd144668144769_ + _hd144650144751_ '0)))) - (let ((_tl144672144776_ + (let ((_tl144654144758_ (let () (declare (not safe)) (##vector-ref - ___splice150065150066_ + ___splice150047150048_ '1))) - (_target144670144774_ + (_target144652144756_ (let () (declare (not safe)) (##vector-ref - ___splice150065150066_ + ___splice150047150048_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _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_)) + _tl144654144758_)) + (___match150238150239_ + _e144514145243_ + _hd144513145246_ + _tl144512145248_ + _e144633144700_ + _hd144632144703_ + _tl144631144705_ + _e144636144708_ + _hd144635144711_ + _tl144634144713_ + _e144639144716_ + _hd144638144719_ + _tl144637144721_ + _e144642144724_ + _hd144641144727_ + _tl144640144729_ + _e144645144732_ + _hd144644144735_ + _tl144643144737_ + _e144648144740_ + _hd144647144743_ + _tl144646144745_ + _e144651144748_ + _hd144650144751_ + _tl144649144753_ + ___splice150047150048_ + _target144652144756_ + _tl144654144758_) + (___kont150051150052_)))) + (___kont150051150052_)))) + (___kont150051150052_)) + (___kont150051150052_)) + (___kont150051150052_)))) + (___kont150051150052_)))) + (___kont150051150052_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150069150070_)))) - (___kont150069150070_)))) - (___kont150069150070_)))) - (___kont150069150070_)))) - (___kont150069150070_)) - (___kont150069150070_))))) + (___kont150051150052_)))) + (___kont150051150052_)))) + (___kont150051150052_)))) + (___kont150051150052_)))) + (___kont150051150052_)) + (___kont150051150052_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150069150070_)))) - (___kont150069150070_))))))) - (_optimize-t__148978148979_ - (lambda (_expr144501_ _test144502_ _continue144503_) - (let ((__tmp152358 - (let ((__tmp152359 + (___kont150051150052_)))) + (___kont150051150052_))))))) + (_optimize-t__148960148961_ + (lambda (_expr144483_ _test144484_ _continue144485_) + (let ((__tmp152340 + (let ((__tmp152341 (let () (declare (not safe)) - (cons _test144502_ '#t)))) + (cons _test144484_ '#t)))) (declare (not safe)) - (cons __tmp152359 '()))) - (__tmp152357 - (lambda () (_continue144503_ _expr144501_)))) + (cons __tmp152341 '()))) + (__tmp152339 + (lambda () (_continue144485_ _expr144483_)))) (declare (not safe)) - (_do-assert141515_ __tmp152358 __tmp152357)))) - (_optimize-t__0__148980148981_ - (lambda (_expr144509_ _test144510_) - (let ((_continue144512_ _optimize-e141526_)) + (_do-assert141497_ __tmp152340 __tmp152339)))) + (_optimize-t__0__148962148963_ + (lambda (_expr144491_ _test144492_) + (let ((_continue144494_ _optimize-e141508_)) (declare (not safe)) - (_optimize-t__148978148979_ - _expr144509_ - _test144510_ - _continue144512_)))) - (_optimize-t141527_ - (lambda _g152361_ - (let ((_g152360_ + (_optimize-t__148960148961_ + _expr144491_ + _test144492_ + _continue144494_)))) + (_optimize-t141509_ + (lambda _g152343_ + (let ((_g152342_ (let () (declare (not safe)) - (##length _g152361_)))) - (cond ((let () (declare (not safe)) (##fx= _g152360_ 2)) - (apply (lambda (_expr144509_ _test144510_) + (##length _g152343_)))) + (cond ((let () (declare (not safe)) (##fx= _g152342_ 2)) + (apply (lambda (_expr144491_ _test144492_) (let () (declare (not safe)) - (_optimize-t__0__148980148981_ - _expr144509_ - _test144510_))) - _g152361_)) - ((let () (declare (not safe)) (##fx= _g152360_ 3)) - (apply (lambda (_expr144514_ - _test144515_ - _continue144516_) + (_optimize-t__0__148962148963_ + _expr144491_ + _test144492_))) + _g152343_)) + ((let () (declare (not safe)) (##fx= _g152342_ 3)) + (apply (lambda (_expr144496_ + _test144497_ + _continue144498_) (let () (declare (not safe)) - (_optimize-t__148978148979_ - _expr144514_ - _test144515_ - _continue144516_))) - _g152361_)) + (_optimize-t__148960148961_ + _expr144496_ + _test144497_ + _continue144498_))) + _g152343_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g152361_)))))) - (_optimize-f__148982148983_ - (lambda (_expr143586_ _test143587_) - (let ((__tmp152404 - (if _test143587_ - (let ((__tmp152405 + _g152343_)))))) + (_optimize-f__148964148965_ + (lambda (_expr143568_ _test143569_) + (let ((__tmp152386 + (if _test143569_ + (let ((__tmp152387 (let () (declare (not safe)) - (cons _test143587_ '#f)))) + (cons _test143569_ '#f)))) (declare (not safe)) - (cons __tmp152405 '())) + (cons __tmp152387 '())) '())) - (__tmp152362 + (__tmp152344 (lambda () - (let* ((___stx150297150298_ _expr143586_) - (_g143595143768_ + (let* ((___stx150279150280_ _expr143568_) + (_g143577143750_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx150297150298_))))) - (let ((___kont150299150300_ - (lambda (_L144356_ _L144357_) - (let ((_$e144377_ + ___stx150279150280_))))) + (let ((___kont150281150282_ + (lambda (_L144338_ _L144339_) + (let ((_$e144359_ (let () (declare (not safe)) - (_lookup-block141534_ - _L144357_)))) - (if _$e144377_ - ((lambda (_block144380_) + (_lookup-block141516_ + _L144339_)))) + (if _$e144359_ + ((lambda (_block144362_) (if (let () (declare (not safe)) - (_nonlinear-block?141536_ - _block144380_)) - _expr143586_ - (let* ((_inline144389_ - (let ((__tmp152363 + (_nonlinear-block?141518_ + _block144362_)) + _expr143568_ + (let* ((_inline144371_ + (let ((__tmp152345 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152364 - (lambda (_g144381144384_ _g144382144386_) + (let ((__tmp152346 + (lambda (_g144363144366_ _g144364144368_) (let () (declare (not safe)) - (cons _g144381144384_ - _g144382144386_))))) + (cons _g144363144366_ + _g144364144368_))))) (declare (not safe)) - (foldr1 __tmp152364 '() _L144356_)))) + (foldr1 __tmp152346 '() _L144338_)))) (declare (not safe)) - (_inline-block141535_ _block144380_ __tmp152363))) - (___stx150259150260_ _inline144389_) - (_g144392144413_ + (_inline-block141517_ _block144362_ __tmp152345))) + (___stx150241150242_ _inline144371_) + (_g144374144395_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx150259150260_))))) - (let ((___kont150261150262_ - (lambda (_L144457_ _L144458_ _L144459_) - (let ((_$e144481_ + ___stx150241150242_))))) + (let ((___kont150243150244_ + (lambda (_L144439_ _L144440_ _L144441_) + (let ((_$e144463_ (let () (declare (not safe)) - (_assert-e141529_ _L144459_)))) + (_assert-e141511_ _L144441_)))) (if (let () (declare (not safe)) - (eq? '#t _$e144481_)) - (if _in-splice?141514_ + (eq? '#t _$e144463_)) + (if _in-splice?141496_ (let () (declare (not safe)) - (_optimize-f__0__148984148985_ _L144458_)) + (_optimize-f__0__148966148967_ _L144440_)) (let () (declare (not safe)) - (_optimize-e141526_ _L144458_))) + (_optimize-e141508_ _L144440_))) (if (let () (declare (not safe)) - (eq? '#f _$e144481_)) + (eq? '#f _$e144463_)) (let () (declare (not safe)) - (_optimize-f__0__148984148985_ _L144457_)) - _expr143586_))))) - (___kont150263150264_ + (_optimize-f__0__148966148967_ _L144439_)) + _expr143568_))))) + (___kont150245150246_ (lambda () (let () (declare (not safe)) - (_optimize-f__0__148984148985_ _inline144389_))))) + (_optimize-f__0__148966148967_ _inline144371_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx150259150260_)) - (let ((_e144399144425_ + (gx#stx-pair? ___stx150241150242_)) + (let ((_e144381144407_ (let () (declare (not safe)) - (gx#stx-e ___stx150259150260_)))) - (let ((_tl144397144430_ + (gx#stx-e ___stx150241150242_)))) + (let ((_tl144379144412_ (let () (declare (not safe)) - (##cdr _e144399144425_))) - (_hd144398144428_ + (##cdr _e144381144407_))) + (_hd144380144410_ (let () (declare (not safe)) - (##car _e144399144425_)))) + (##car _e144381144407_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd144398144428_)) + (gx#identifier? _hd144380144410_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd144398144428_)) + (gx#stx-eq? '%#if _hd144380144410_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl144397144430_)) - (let ((_e144402144433_ + (gx#stx-pair? _tl144379144412_)) + (let ((_e144384144415_ (let () (declare (not safe)) - (gx#stx-e _tl144397144430_)))) - (let ((_tl144400144438_ + (gx#stx-e _tl144379144412_)))) + (let ((_tl144382144420_ (let () (declare (not safe)) - (##cdr _e144402144433_))) - (_hd144401144436_ + (##cdr _e144384144415_))) + (_hd144383144418_ (let () (declare (not safe)) - (##car _e144402144433_)))) + (##car _e144384144415_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144400144438_)) - (let ((_e144405144441_ + _tl144382144420_)) + (let ((_e144387144423_ (let () (declare (not safe)) (gx#stx-e - _tl144400144438_)))) - (let ((_tl144403144446_ + _tl144382144420_)))) + (let ((_tl144385144428_ (let () (declare (not safe)) - (##cdr _e144405144441_))) - (_hd144404144444_ + (##cdr _e144387144423_))) + (_hd144386144426_ (let () (declare (not safe)) - (##car _e144405144441_)))) + (##car _e144387144423_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl144403144446_)) - (let ((_e144408144449_ + _tl144385144428_)) + (let ((_e144390144431_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl144403144446_)))) - (let ((_tl144406144454_ - (let () (declare (not safe)) (##cdr _e144408144449_))) - (_hd144407144452_ - (let () (declare (not safe)) (##car _e144408144449_)))) + (gx#stx-e _tl144385144428_)))) + (let ((_tl144388144436_ + (let () (declare (not safe)) (##cdr _e144390144431_))) + (_hd144389144434_ + (let () (declare (not safe)) (##car _e144390144431_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl144406144454_)) - (___kont150261150262_ - _hd144407144452_ - _hd144404144444_ - _hd144401144436_) - (___kont150263150264_)))) - (___kont150263150264_)))) + (gx#stx-null? _tl144388144436_)) + (___kont150243150244_ + _hd144389144434_ + _hd144386144426_ + _hd144383144418_) + (___kont150245150246_)))) + (___kont150245150246_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150263150264_)))) - (___kont150263150264_)) - (___kont150263150264_)) - (___kont150263150264_)))) - (___kont150263150264_)))))) + (___kont150245150246_)))) + (___kont150245150246_)) + (___kont150245150246_)) + (___kont150245150246_)))) + (___kont150245150246_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e144377_) - _expr143586_)))) - (___kont150303150304_ - (lambda (_L144254_ _L144255_ _L144256_) - (let ((_$e144273_ + _$e144359_) + _expr143568_)))) + (___kont150285150286_ + (lambda (_L144236_ _L144237_ _L144238_) + (let ((_$e144255_ (let () (declare (not safe)) - (_assert-e141529_ - _L144256_)))) + (_assert-e141511_ + _L144238_)))) (if (let () (declare (not safe)) - (eq? '#t _$e144273_)) - (if _in-splice?141514_ + (eq? '#t _$e144255_)) + (if _in-splice?141496_ (let () (declare (not safe)) - (_optimize-f__0__148984148985_ - _L144255_)) + (_optimize-f__0__148966148967_ + _L144237_)) (let () (declare (not safe)) - (_optimize-e141526_ - _L144255_))) + (_optimize-e141508_ + _L144237_))) (if (let () (declare (not safe)) - (eq? '#f _$e144273_)) + (eq? '#f _$e144255_)) (let () (declare (not safe)) - (_optimize-f__0__148984148985_ - _L144254_)) - (let ((_K144276_ + (_optimize-f__0__148966148967_ + _L144236_)) + (let ((_K144258_ (let () (declare (not safe)) - (_optimize-t__148978148979_ - _L144255_ - _L144256_ - _optimize-f141528_))) - (_E144277_ + (_optimize-t__148960148961_ + _L144237_ + _L144238_ + _optimize-f141510_))) + (_E144259_ (let () (declare (not safe)) - (_optimize-f__148982148983_ - _L144254_ - _L144256_)))) - (if (let ((__tmp152369 + (_optimize-f__148964148965_ + _L144236_ + _L144238_)))) + (if (let ((__tmp152351 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#apply-generate-runtime-repr _K144276_))) - (__tmp152368 + (gxc#apply-generate-runtime-repr _K144258_))) + (__tmp152350 (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _E144277_)))) + (gxc#apply-generate-runtime-repr _E144259_)))) (declare (not safe)) - (equal? __tmp152369 __tmp152368)) - _K144276_ - (let ((__tmp152365 - (let ((__tmp152366 - (let ((__tmp152367 + (equal? __tmp152351 __tmp152350)) + _K144258_ + (let ((__tmp152347 + (let ((__tmp152348 + (let ((__tmp152349 (let () (declare (not safe)) - (cons _E144277_ '())))) + (cons _E144259_ '())))) (declare (not safe)) - (cons _K144276_ __tmp152367)))) + (cons _K144258_ __tmp152349)))) (declare (not safe)) - (cons _L144256_ __tmp152366)))) + (cons _L144238_ __tmp152348)))) (declare (not safe)) - (cons '%#if __tmp152365))))))))) + (cons '%#if __tmp152347))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150305150306_ - (lambda (_L144184_ _L144185_ _L144186_) - (let* ((_body144205_ + (___kont150287150288_ + (lambda (_L144166_ _L144167_ _L144168_) + (let* ((_body144187_ (let () (declare (not safe)) - (_optimize-f__0__148984148985_ - _L144184_))) - (__tmp152370 - (let ((__tmp152372 + (_optimize-f__0__148966148967_ + _L144166_))) + (__tmp152352 + (let ((__tmp152354 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L144185_ - _L144186_)) - (let ((__tmp152373 + _L144167_ + _L144168_)) + (let ((__tmp152355 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g144206144210_ - _g144207144212_ - _g144208144214_) - (let ((__tmp152374 - (let ((__tmp152379 + (lambda (_g144188144192_ + _g144189144194_ + _g144190144196_) + (let ((__tmp152356 + (let ((__tmp152361 (let () (declare (not safe)) - (cons _g144207144212_ '()))) - (__tmp152375 - (let ((__tmp152376 - (let ((__tmp152378 + (cons _g144189144194_ '()))) + (__tmp152357 + (let ((__tmp152358 + (let ((__tmp152360 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152377 + (__tmp152359 (let () (declare (not safe)) - (cons _g144206144210_ + (cons _g144188144192_ '())))) (declare (not safe)) - (cons __tmp152378 - __tmp152377)))) + (cons __tmp152360 + __tmp152359)))) (declare (not safe)) - (cons __tmp152376 '())))) + (cons __tmp152358 '())))) (declare (not safe)) - (cons __tmp152379 __tmp152375)))) + (cons __tmp152361 __tmp152357)))) (declare (not safe)) - (cons __tmp152374 _g144208144214_))))) + (cons __tmp152356 _g144190144196_))))) (declare (not safe)) - (foldr2 __tmp152373 '() _L144185_ _L144186_)))) - (__tmp152371 - (let () (declare (not safe)) (cons _body144205_ '())))) + (foldr2 __tmp152355 '() _L144167_ _L144168_)))) + (__tmp152353 + (let () (declare (not safe)) (cons _body144187_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152372 - __tmp152371)))) + (cons __tmp152354 + __tmp152353)))) (declare (not safe)) - (cons '%#let-values __tmp152370)))) - (___kont150309150310_ - (lambda (_L144052_ _L144053_ _L144054_) - (let ((__tmp152380 + (cons '%#let-values __tmp152352)))) + (___kont150291150292_ + (lambda (_L144034_ _L144035_ _L144036_) + (let ((__tmp152362 (map cons - (let ((__tmp152381 - (lambda (_g144072144075_ + (let ((__tmp152363 + (lambda (_g144054144057_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g144073144077_) + _g144055144059_) (let () (declare (not safe)) - (cons _g144072144075_ _g144073144077_))))) + (cons _g144054144057_ _g144055144059_))))) (declare (not safe)) - (foldr1 __tmp152381 '() _L144054_)) + (foldr1 __tmp152363 '() _L144036_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp152382 - (lambda (_g144079144082_ + (let ((__tmp152364 + (lambda (_g144061144064_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g144080144084_) + _g144062144066_) (let () (declare (not safe)) - (cons _g144079144082_ _g144080144084_))))) + (cons _g144061144064_ _g144062144066_))))) (declare (not safe)) - (foldr1 __tmp152382 '() _L144053_))))) + (foldr1 __tmp152364 '() _L144035_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_bind-e__148986148987_ - __tmp152380 - _L144052_ - _optimize-f141528_)))) - (___kont150313150314_ - (lambda (_L143908_ - _L143909_ - _L143910_ - _L143911_ - _L143912_) - (let ((__tmp152383 + (_bind-e__148968148969_ + __tmp152362 + _L144034_ + _optimize-f141510_)))) + (___kont150295150296_ + (lambda (_L143890_ + _L143891_ + _L143892_ + _L143893_ + _L143894_) + (let ((__tmp152365 (lambda () - (let* ((_expr143955_ + (let* ((_expr143937_ (let () (declare (not safe)) - (_optimize-f__0__148984148985_ - _L143910_))) - (__tmp152384 - (let ((__tmp152386 + (_optimize-f__0__148966148967_ + _L143892_))) + (__tmp152366 + (let ((__tmp152368 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152389 - (let ((__tmp152396 + (let ((__tmp152371 + (let ((__tmp152378 (let () (declare (not safe)) - (cons _L143912_ '()))) - (__tmp152390 - (let ((__tmp152391 - (let ((__tmp152392 - (let ((__tmp152394 - (let ((__tmp152395 + (cons _L143894_ '()))) + (__tmp152372 + (let ((__tmp152373 + (let ((__tmp152374 + (let ((__tmp152376 + (let ((__tmp152377 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g143956143959_ _g143957143961_) + (lambda (_g143938143941_ _g143939143943_) (let () (declare (not safe)) - (cons _g143956143959_ _g143957143961_))))) + (cons _g143938143941_ _g143939143943_))))) (declare (not safe)) - (foldr1 __tmp152395 '() _L143911_))) - (__tmp152393 - (let () (declare (not safe)) (cons _expr143955_ '())))) + (foldr1 __tmp152377 '() _L143893_))) + (__tmp152375 + (let () (declare (not safe)) (cons _expr143937_ '())))) (declare (not safe)) - (cons __tmp152394 __tmp152393)))) + (cons __tmp152376 __tmp152375)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#lambda __tmp152392)))) + (cons '%#lambda __tmp152374)))) (declare (not safe)) - (cons __tmp152391 '())))) + (cons __tmp152373 '())))) (declare (not safe)) - (cons __tmp152396 __tmp152390))) - (__tmp152387 - (let ((__tmp152388 - (lambda (_g143963143966_ - _g143964143968_) + (cons __tmp152378 __tmp152372))) + (__tmp152369 + (let ((__tmp152370 + (lambda (_g143945143948_ + _g143946143950_) (let () (declare (not safe)) - (cons _g143963143966_ - _g143964143968_))))) + (cons _g143945143948_ + _g143946143950_))))) (declare (not safe)) - (foldr1 __tmp152388 '() _L143909_)))) + (foldr1 __tmp152370 '() _L143891_)))) (declare (not safe)) - (cons __tmp152389 __tmp152387))) - (__tmp152385 - (let () (declare (not safe)) (cons _L143908_ '())))) + (cons __tmp152371 __tmp152369))) + (__tmp152367 + (let () (declare (not safe)) (cons _L143890_ '())))) (declare (not safe)) - (cons __tmp152386 __tmp152385)))) + (cons __tmp152368 __tmp152367)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#letrec-values - __tmp152384))))) + __tmp152366))))) (declare (not safe)) - (_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_) + (_do-splice!141507_ __tmp152365)))) + (___kont150301150302_ + (lambda () _expr143568_))) + (let* ((___match150488150489_ + (lambda (_e143700143762_ + _hd143699143765_ + _tl143698143767_ + _e143703143770_ + _hd143702143773_ + _tl143701143775_ + _e143706143778_ + _hd143705143781_ + _tl143704143783_ + _e143709143786_ + _hd143708143789_ + _tl143707143791_ + _e143712143794_ + _hd143711143797_ + _tl143710143799_ + _e143715143802_ + _hd143714143805_ + _tl143713143807_ + _e143718143810_ + _hd143717143813_ + _tl143716143815_ + _e143721143818_ + _hd143720143821_ + _tl143719143823_ + ___splice150297150298_ + _target143722143826_ + _tl143724143828_) + (letrec ((_loop143725143831_ + (lambda (_hd143723143834_ + _id143729143836_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143741143852_)) - (let ((_e143744143857_ + _hd143723143834_)) + (let ((_e143726143839_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd143741143852_)))) - (let ((_lp-tl143746143862_ + (gx#stx-e _hd143723143834_)))) + (let ((_lp-tl143728143844_ (let () (declare (not safe)) - (##cdr _e143744143857_))) - (_lp-hd143745143860_ + (##cdr _e143726143839_))) + (_lp-hd143727143842_ (let () (declare (not safe)) - (##car _e143744143857_)))) - (let ((__tmp152398 + (##car _e143726143839_)))) + (let ((__tmp152380 (let () (declare (not safe)) - (cons _lp-hd143745143860_ _id143747143854_)))) + (cons _lp-hd143727143842_ _id143729143836_)))) (declare (not safe)) - (_loop143743143849_ - _lp-tl143746143862_ - __tmp152398)))) - (let ((_id143748143865_ (reverse _id143747143854_))) + (_loop143725143831_ + _lp-tl143728143844_ + __tmp152380)))) + (let ((_id143730143847_ (reverse _id143729143836_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143737143841_)) - (let ((_e143751143868_ + (gx#stx-pair? _tl143719143823_)) + (let ((_e143733143850_ (let () (declare (not safe)) - (gx#stx-e _tl143737143841_)))) - (let ((_tl143749143873_ + (gx#stx-e _tl143719143823_)))) + (let ((_tl143731143855_ (let () (declare (not safe)) - (##cdr _e143751143868_))) - (_hd143750143871_ + (##cdr _e143733143850_))) + (_hd143732143853_ (let () (declare (not safe)) - (##car _e143751143868_)))) + (##car _e143733143850_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143749143873_)) + (gx#stx-null? _tl143731143855_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143731143825_)) + (gx#stx-null? _tl143713143807_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl143722143801_)) - (let ((___splice150317150318_ + _tl143704143783_)) + (let ((___splice150299150300_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl143722143801_ + _tl143704143783_ '0)))) - (let ((_tl143754143878_ + (let ((_tl143736143860_ (let () (declare (not safe)) (##vector-ref - ___splice150317150318_ + ___splice150299150300_ '1))) - (_target143752143876_ + (_target143734143858_ (let () (declare (not safe)) (##vector-ref - ___splice150317150318_ + ___splice150299150300_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143754143878_)) - (letrec ((_loop143755143881_ - (lambda (_hd143753143884_ + _tl143736143860_)) + (letrec ((_loop143737143863_ + (lambda (_hd143735143866_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind143759143886_) + _bind143741143868_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143753143884_)) - (let ((_e143756143889_ + (gx#stx-pair? _hd143735143866_)) + (let ((_e143738143871_ (let () (declare (not safe)) - (gx#stx-e _hd143753143884_)))) - (let ((_lp-tl143758143894_ + (gx#stx-e _hd143735143866_)))) + (let ((_lp-tl143740143876_ (let () (declare (not safe)) - (##cdr _e143756143889_))) - (_lp-hd143757143892_ + (##cdr _e143738143871_))) + (_lp-hd143739143874_ (let () (declare (not safe)) - (##car _e143756143889_)))) - (let ((__tmp152397 + (##car _e143738143871_)))) + (let ((__tmp152379 (let () (declare (not safe)) - (cons _lp-hd143757143892_ - _bind143759143886_)))) + (cons _lp-hd143739143874_ + _bind143741143868_)))) (declare (not safe)) - (_loop143755143881_ - _lp-tl143758143894_ - __tmp152397)))) - (let ((_bind143760143897_ - (reverse _bind143759143886_))) + (_loop143737143863_ + _lp-tl143740143876_ + __tmp152379)))) + (let ((_bind143742143879_ + (reverse _bind143741143868_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143719143793_)) - (let ((_e143763143900_ + (gx#stx-pair? _tl143701143775_)) + (let ((_e143745143882_ (let () (declare (not safe)) - (gx#stx-e _tl143719143793_)))) - (let ((_tl143761143905_ + (gx#stx-e _tl143701143775_)))) + (let ((_tl143743143887_ (let () (declare (not safe)) - (##cdr _e143763143900_))) - (_hd143762143903_ + (##cdr _e143745143882_))) + (_hd143744143885_ (let () (declare (not safe)) - (##car _e143763143900_)))) + (##car _e143745143882_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143761143905_)) - (___kont150313150314_ - _hd143762143903_ - _bind143760143897_ - _hd143750143871_ - _id143748143865_ - _hd143729143815_) - (___kont150319150320_)))) - (___kont150319150320_))))))) + (gx#stx-null? _tl143743143887_)) + (___kont150295150296_ + _hd143744143885_ + _bind143742143879_ + _hd143732143853_ + _id143730143847_ + _hd143711143797_) + (___kont150301150302_)))) + (___kont150301150302_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop143755143881_ - _target143752143876_ + (_loop143737143863_ + _target143734143858_ '()))) - (___kont150319150320_)))) - (___kont150319150320_)) - (___kont150319150320_)) - (___kont150319150320_)))) - (___kont150319150320_))))))) + (___kont150301150302_)))) + (___kont150301150302_)) + (___kont150301150302_)) + (___kont150301150302_)))) + (___kont150301150302_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop143743143849_ - _target143740143844_ + (_loop143725143831_ + _target143722143826_ '()))))) - (___match150440150441_ - (lambda (_e143684143976_ - _hd143683143979_ - _tl143682143981_ - _e143687143984_ - _hd143686143987_ - _tl143685143989_ - ___splice150311150312_ - _target143688143992_ - _tl143690143994_) - (letrec ((_loop143691143997_ - (lambda (_hd143689144000_ - _expr143695144002_ - _id143696144004_) + (___match150422150423_ + (lambda (_e143666143958_ + _hd143665143961_ + _tl143664143963_ + _e143669143966_ + _hd143668143969_ + _tl143667143971_ + ___splice150293150294_ + _target143670143974_ + _tl143672143976_) + (letrec ((_loop143673143979_ + (lambda (_hd143671143982_ + _expr143677143984_ + _id143678143986_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143689144000_)) - (let ((_e143692144007_ + _hd143671143982_)) + (let ((_e143674143989_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd143689144000_)))) - (let ((_lp-tl143694144012_ + (gx#stx-e _hd143671143982_)))) + (let ((_lp-tl143676143994_ (let () (declare (not safe)) - (##cdr _e143692144007_))) - (_lp-hd143693144010_ + (##cdr _e143674143989_))) + (_lp-hd143675143992_ (let () (declare (not safe)) - (##car _e143692144007_)))) + (##car _e143674143989_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd143693144010_)) - (let ((_e143701144015_ + (gx#stx-pair? _lp-hd143675143992_)) + (let ((_e143683143997_ (let () (declare (not safe)) - (gx#stx-e _lp-hd143693144010_)))) - (let ((_tl143699144020_ + (gx#stx-e _lp-hd143675143992_)))) + (let ((_tl143681144002_ (let () (declare (not safe)) - (##cdr _e143701144015_))) - (_hd143700144018_ + (##cdr _e143683143997_))) + (_hd143682144000_ (let () (declare (not safe)) - (##car _e143701144015_)))) + (##car _e143683143997_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143700144018_)) - (let ((_e143704144023_ + (gx#stx-pair? _hd143682144000_)) + (let ((_e143686144005_ (let () (declare (not safe)) - (gx#stx-e _hd143700144018_)))) - (let ((_tl143702144028_ + (gx#stx-e _hd143682144000_)))) + (let ((_tl143684144010_ (let () (declare (not safe)) - (##cdr _e143704144023_))) - (_hd143703144026_ + (##cdr _e143686144005_))) + (_hd143685144008_ (let () (declare (not safe)) - (##car _e143704144023_)))) + (##car _e143686144005_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143702144028_)) + (gx#stx-null? _tl143684144010_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143699144020_)) - (let ((_e143707144031_ + _tl143681144002_)) + (let ((_e143689144013_ (let () (declare (not safe)) (gx#stx-e - _tl143699144020_)))) - (let ((_tl143705144036_ + _tl143681144002_)))) + (let ((_tl143687144018_ (let () (declare (not safe)) - (##cdr _e143707144031_))) - (_hd143706144034_ + (##cdr _e143689144013_))) + (_hd143688144016_ (let () (declare (not safe)) - (##car _e143707144031_)))) + (##car _e143689144013_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143705144036_)) - (let ((__tmp152400 + _tl143687144018_)) + (let ((__tmp152382 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _hd143706144034_ _expr143695144002_))) - (__tmp152399 + (cons _hd143688144016_ _expr143677143984_))) + (__tmp152381 (let () (declare (not safe)) - (cons _hd143703144026_ _id143696144004_)))) + (cons _hd143685144008_ _id143678143986_)))) (declare (not safe)) - (_loop143691143997_ - _lp-tl143694144012_ - __tmp152400 - __tmp152399)) - (___kont150319150320_)))) + (_loop143673143979_ + _lp-tl143676143994_ + __tmp152382 + __tmp152381)) + (___kont150301150302_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150319150320_)) - (___kont150319150320_)))) - (___kont150319150320_)))) - (___kont150319150320_)))) - (let ((_id143698144041_ (reverse _id143696144004_)) - (_expr143697144039_ (reverse _expr143695144002_))) + (___kont150301150302_)) + (___kont150301150302_)))) + (___kont150301150302_)))) + (___kont150301150302_)))) + (let ((_id143680144023_ (reverse _id143678143986_)) + (_expr143679144021_ (reverse _expr143677143984_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143685143989_)) - (let ((_e143710144044_ + (gx#stx-pair? _tl143667143971_)) + (let ((_e143692144026_ (let () (declare (not safe)) - (gx#stx-e _tl143685143989_)))) - (let ((_tl143708144049_ + (gx#stx-e _tl143667143971_)))) + (let ((_tl143690144031_ (let () (declare (not safe)) - (##cdr _e143710144044_))) - (_hd143709144047_ + (##cdr _e143692144026_))) + (_hd143691144029_ (let () (declare (not safe)) - (##car _e143710144044_)))) + (##car _e143692144026_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143708144049_)) - (___kont150309150310_ - _hd143709144047_ - _expr143697144039_ - _id143698144041_) - (___kont150319150320_)))) - (___kont150319150320_))))))) + (gx#stx-null? _tl143690144031_)) + (___kont150291150292_ + _hd143691144029_ + _expr143679144021_ + _id143680144023_) + (___kont150301150302_)))) + (___kont150301150302_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop143691143997_ - _target143688143992_ + (_loop143673143979_ + _target143670143974_ '() '()))))) - (___match150416150417_ - (lambda (_e143646144092_ - _hd143645144095_ - _tl143644144097_ - _e143649144100_ - _hd143648144103_ - _tl143647144105_ - ___splice150307150308_ - _target143650144108_ - _tl143652144110_) - (letrec ((_loop143653144113_ - (lambda (_hd143651144116_ - _xid143657144118_ - _id143658144120_) + (___match150398150399_ + (lambda (_e143628144074_ + _hd143627144077_ + _tl143626144079_ + _e143631144082_ + _hd143630144085_ + _tl143629144087_ + ___splice150289150290_ + _target143632144090_ + _tl143634144092_) + (letrec ((_loop143635144095_ + (lambda (_hd143633144098_ + _xid143639144100_ + _id143640144102_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143651144116_)) - (let ((_e143654144123_ + _hd143633144098_)) + (let ((_e143636144105_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd143651144116_)))) - (let ((_lp-tl143656144128_ + (gx#stx-e _hd143633144098_)))) + (let ((_lp-tl143638144110_ (let () (declare (not safe)) - (##cdr _e143654144123_))) - (_lp-hd143655144126_ + (##cdr _e143636144105_))) + (_lp-hd143637144108_ (let () (declare (not safe)) - (##car _e143654144123_)))) + (##car _e143636144105_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd143655144126_)) - (let ((_e143663144131_ + (gx#stx-pair? _lp-hd143637144108_)) + (let ((_e143645144113_ (let () (declare (not safe)) - (gx#stx-e _lp-hd143655144126_)))) - (let ((_tl143661144136_ + (gx#stx-e _lp-hd143637144108_)))) + (let ((_tl143643144118_ (let () (declare (not safe)) - (##cdr _e143663144131_))) - (_hd143662144134_ + (##cdr _e143645144113_))) + (_hd143644144116_ (let () (declare (not safe)) - (##car _e143663144131_)))) + (##car _e143645144113_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143662144134_)) - (let ((_e143666144139_ + (gx#stx-pair? _hd143644144116_)) + (let ((_e143648144121_ (let () (declare (not safe)) - (gx#stx-e _hd143662144134_)))) - (let ((_tl143664144144_ + (gx#stx-e _hd143644144116_)))) + (let ((_tl143646144126_ (let () (declare (not safe)) - (##cdr _e143666144139_))) - (_hd143665144142_ + (##cdr _e143648144121_))) + (_hd143647144124_ (let () (declare (not safe)) - (##car _e143666144139_)))) + (##car _e143648144121_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143664144144_)) + (gx#stx-null? _tl143646144126_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143661144136_)) - (let ((_e143669144147_ + _tl143643144118_)) + (let ((_e143651144129_ (let () (declare (not safe)) (gx#stx-e - _tl143661144136_)))) - (let ((_tl143667144152_ + _tl143643144118_)))) + (let ((_tl143649144134_ (let () (declare (not safe)) - (##cdr _e143669144147_))) - (_hd143668144150_ + (##cdr _e143651144129_))) + (_hd143650144132_ (let () (declare (not safe)) - (##car _e143669144147_)))) + (##car _e143651144129_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143668144150_)) - (let ((_e143672144155_ + _hd143650144132_)) + (let ((_e143654144137_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd143668144150_)))) - (let ((_tl143670144160_ - (let () (declare (not safe)) (##cdr _e143672144155_))) - (_hd143671144158_ + (gx#stx-e _hd143650144132_)))) + (let ((_tl143652144142_ + (let () (declare (not safe)) (##cdr _e143654144137_))) + (_hd143653144140_ (let () (declare (not safe)) - (##car _e143672144155_)))) + (##car _e143654144137_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143671144158_)) + (gx#identifier? _hd143653144140_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd143671144158_)) + (gx#stx-eq? '%#ref _hd143653144140_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143670144160_)) - (let ((_e143675144163_ + (gx#stx-pair? _tl143652144142_)) + (let ((_e143657144145_ (let () (declare (not safe)) - (gx#stx-e _tl143670144160_)))) - (let ((_tl143673144168_ + (gx#stx-e _tl143652144142_)))) + (let ((_tl143655144150_ (let () (declare (not safe)) - (##cdr _e143675144163_))) - (_hd143674144166_ + (##cdr _e143657144145_))) + (_hd143656144148_ (let () (declare (not safe)) - (##car _e143675144163_)))) + (##car _e143657144145_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143673144168_)) + (gx#stx-null? _tl143655144150_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl143667144152_)) - (let ((__tmp152402 + (gx#stx-null? _tl143649144134_)) + (let ((__tmp152384 (let () (declare (not safe)) - (cons _hd143674144166_ - _xid143657144118_))) - (__tmp152401 + (cons _hd143656144148_ + _xid143639144100_))) + (__tmp152383 (let () (declare (not safe)) - (cons _hd143665144142_ - _id143658144120_)))) + (cons _hd143647144124_ + _id143640144102_)))) (declare (not safe)) - (_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_)))) + (_loop143635144095_ + _lp-tl143638144110_ + __tmp152384 + __tmp152383)) + (___match150422150423_ + _e143628144074_ + _hd143627144077_ + _tl143626144079_ + _e143631144082_ + _hd143630144085_ + _tl143629144087_ + ___splice150289150290_ + _target143632144090_ + _tl143634144092_)) + (___match150422150423_ + _e143628144074_ + _hd143627144077_ + _tl143626144079_ + _e143631144082_ + _hd143630144085_ + _tl143629144087_ + ___splice150289150290_ + _target143632144090_ + _tl143634144092_)))) + (___match150422150423_ + _e143628144074_ + _hd143627144077_ + _tl143626144079_ + _e143631144082_ + _hd143630144085_ + _tl143629144087_ + ___splice150289150290_ + _target143632144090_ + _tl143634144092_)) + (___match150422150423_ + _e143628144074_ + _hd143627144077_ + _tl143626144079_ + _e143631144082_ + _hd143630144085_ + _tl143629144087_ + ___splice150289150290_ + _target143632144090_ + _tl143634144092_)) + (___match150422150423_ + _e143628144074_ + _hd143627144077_ + _tl143626144079_ + _e143631144082_ + _hd143630144085_ + _tl143629144087_ + ___splice150289150290_ + _target143632144090_ + _tl143634144092_)))) + (___match150422150423_ + _e143628144074_ + _hd143627144077_ + _tl143626144079_ + _e143631144082_ + _hd143630144085_ + _tl143629144087_ + ___splice150289150290_ + _target143632144090_ + _tl143634144092_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_))) + (___match150422150423_ + _e143628144074_ + _hd143627144077_ + _tl143626144079_ + _e143631144082_ + _hd143630144085_ + _tl143629144087_ + ___splice150289150290_ + _target143632144090_ + _tl143634144092_)) + (___match150422150423_ + _e143628144074_ + _hd143627144077_ + _tl143626144079_ + _e143631144082_ + _hd143630144085_ + _tl143629144087_ + ___splice150289150290_ + _target143632144090_ + _tl143634144092_)))) + (___match150422150423_ + _e143628144074_ + _hd143627144077_ + _tl143626144079_ + _e143631144082_ + _hd143630144085_ + _tl143629144087_ + ___splice150289150290_ + _target143632144090_ + _tl143634144092_)))) + (___match150422150423_ + _e143628144074_ + _hd143627144077_ + _tl143626144079_ + _e143631144082_ + _hd143630144085_ + _tl143629144087_ + ___splice150289150290_ + _target143632144090_ + _tl143634144092_)))) + (let ((_id143642144155_ (reverse _id143640144102_)) + (_xid143641144153_ (reverse _xid143639144100_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143647144105_)) - (let ((_e143678144176_ + (gx#stx-pair? _tl143629144087_)) + (let ((_e143660144158_ (let () (declare (not safe)) - (gx#stx-e _tl143647144105_)))) - (let ((_tl143676144181_ + (gx#stx-e _tl143629144087_)))) + (let ((_tl143658144163_ (let () (declare (not safe)) - (##cdr _e143678144176_))) - (_hd143677144179_ + (##cdr _e143660144158_))) + (_hd143659144161_ (let () (declare (not safe)) - (##car _e143678144176_)))) + (##car _e143660144158_)))) (if (let () (declare (not safe)) - (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_))))))) + (gx#stx-null? _tl143658144163_)) + (___kont150287150288_ + _hd143659144161_ + _xid143641144153_ + _id143642144155_) + (___match150422150423_ + _e143628144074_ + _hd143627144077_ + _tl143626144079_ + _e143631144082_ + _hd143630144085_ + _tl143629144087_ + ___splice150289150290_ + _target143632144090_ + _tl143634144092_)))) + (___match150422150423_ + _e143628144074_ + _hd143627144077_ + _tl143626144079_ + _e143631144082_ + _hd143630144085_ + _tl143629144087_ + ___splice150289150290_ + _target143632144090_ + _tl143634144092_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop143653144113_ - _target143650144108_ + (_loop143635144095_ + _target143632144090_ '() '()))))) - (___match150362150363_ - (lambda (_e143601144284_ - _hd143600144287_ - _tl143599144289_ - _e143604144292_ - _hd143603144295_ - _tl143602144297_ - _e143607144300_ - _hd143606144303_ - _tl143605144305_ - _e143610144308_ - _hd143609144311_ - _tl143608144313_ - ___splice150301150302_ - _target143611144316_ - _tl143613144318_) - (letrec ((_loop143614144321_ - (lambda (_hd143612144324_ - _id143618144326_) + (___match150344150345_ + (lambda (_e143583144266_ + _hd143582144269_ + _tl143581144271_ + _e143586144274_ + _hd143585144277_ + _tl143584144279_ + _e143589144282_ + _hd143588144285_ + _tl143587144287_ + _e143592144290_ + _hd143591144293_ + _tl143590144295_ + ___splice150283150284_ + _target143593144298_ + _tl143595144300_) + (letrec ((_loop143596144303_ + (lambda (_hd143594144306_ + _id143600144308_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143612144324_)) - (let ((_e143615144329_ + _hd143594144306_)) + (let ((_e143597144311_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd143612144324_)))) - (let ((_lp-tl143617144334_ + (gx#stx-e _hd143594144306_)))) + (let ((_lp-tl143599144316_ (let () (declare (not safe)) - (##cdr _e143615144329_))) - (_lp-hd143616144332_ + (##cdr _e143597144311_))) + (_lp-hd143598144314_ (let () (declare (not safe)) - (##car _e143615144329_)))) + (##car _e143597144311_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd143616144332_)) - (let ((_e143622144337_ + (gx#stx-pair? _lp-hd143598144314_)) + (let ((_e143604144319_ (let () (declare (not safe)) - (gx#stx-e _lp-hd143616144332_)))) - (let ((_tl143620144342_ + (gx#stx-e _lp-hd143598144314_)))) + (let ((_tl143602144324_ (let () (declare (not safe)) - (##cdr _e143622144337_))) - (_hd143621144340_ + (##cdr _e143604144319_))) + (_hd143603144322_ (let () (declare (not safe)) - (##car _e143622144337_)))) + (##car _e143604144319_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143621144340_)) + (gx#identifier? _hd143603144322_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd143621144340_)) + (gx#stx-eq? '%#ref _hd143603144322_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143620144342_)) - (let ((_e143625144345_ + (gx#stx-pair? _tl143602144324_)) + (let ((_e143607144327_ (let () (declare (not safe)) (gx#stx-e - _tl143620144342_)))) - (let ((_tl143623144350_ + _tl143602144324_)))) + (let ((_tl143605144332_ (let () (declare (not safe)) - (##cdr _e143625144345_))) - (_hd143624144348_ + (##cdr _e143607144327_))) + (_hd143606144330_ (let () (declare (not safe)) - (##car _e143625144345_)))) + (##car _e143607144327_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143623144350_)) - (let ((__tmp152403 + _tl143605144332_)) + (let ((__tmp152385 (let () (declare (not safe)) - (cons _hd143624144348_ + (cons _hd143606144330_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id143618144326_)))) + _id143600144308_)))) (declare (not safe)) - (_loop143614144321_ _lp-tl143617144334_ __tmp152403)) + (_loop143596144303_ _lp-tl143599144316_ __tmp152385)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150319150320_)))) - (___kont150319150320_)) - (___kont150319150320_)) - (___kont150319150320_)))) - (___kont150319150320_)))) - (let ((_id143619144353_ (reverse _id143618144326_))) - (___kont150299150300_ - _id143619144353_ - _hd143609144311_)))))) + (___kont150301150302_)))) + (___kont150301150302_)) + (___kont150301150302_)) + (___kont150301150302_)))) + (___kont150301150302_)))) + (let ((_id143601144335_ (reverse _id143600144308_))) + (___kont150281150282_ + _id143601144335_ + _hd143591144293_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop143614144321_ - _target143611144316_ + (_loop143596144303_ + _target143593144298_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx150297150298_)) - (let ((_e143601144284_ + (gx#stx-pair? ___stx150279150280_)) + (let ((_e143583144266_ (let () (declare (not safe)) (gx#stx-e - ___stx150297150298_)))) - (let ((_tl143599144289_ + ___stx150279150280_)))) + (let ((_tl143581144271_ (let () (declare (not safe)) - (##cdr _e143601144284_))) - (_hd143600144287_ + (##cdr _e143583144266_))) + (_hd143582144269_ (let () (declare (not safe)) - (##car _e143601144284_)))) + (##car _e143583144266_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143600144287_)) + _hd143582144269_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd143600144287_)) + _hd143582144269_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143599144289_)) - (let ((_e143604144292_ + _tl143581144271_)) + (let ((_e143586144274_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl143599144289_)))) - (let ((_tl143602144297_ - (let () (declare (not safe)) (##cdr _e143604144292_))) - (_hd143603144295_ + (gx#stx-e _tl143581144271_)))) + (let ((_tl143584144279_ + (let () (declare (not safe)) (##cdr _e143586144274_))) + (_hd143585144277_ (let () (declare (not safe)) - (##car _e143604144292_)))) + (##car _e143586144274_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143603144295_)) - (let ((_e143607144300_ + (gx#stx-pair? _hd143585144277_)) + (let ((_e143589144282_ (let () (declare (not safe)) - (gx#stx-e _hd143603144295_)))) - (let ((_tl143605144305_ + (gx#stx-e _hd143585144277_)))) + (let ((_tl143587144287_ (let () (declare (not safe)) - (##cdr _e143607144300_))) - (_hd143606144303_ + (##cdr _e143589144282_))) + (_hd143588144285_ (let () (declare (not safe)) - (##car _e143607144300_)))) + (##car _e143589144282_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143606144303_)) + (gx#identifier? _hd143588144285_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd143606144303_)) + (gx#stx-eq? '%#ref _hd143588144285_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143605144305_)) - (let ((_e143610144308_ + (gx#stx-pair? _tl143587144287_)) + (let ((_e143592144290_ (let () (declare (not safe)) - (gx#stx-e _tl143605144305_)))) - (let ((_tl143608144313_ + (gx#stx-e _tl143587144287_)))) + (let ((_tl143590144295_ (let () (declare (not safe)) - (##cdr _e143610144308_))) - (_hd143609144311_ + (##cdr _e143592144290_))) + (_hd143591144293_ (let () (declare (not safe)) - (##car _e143610144308_)))) + (##car _e143592144290_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143608144313_)) + _tl143590144295_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl143602144297_)) - (let ((___splice150301150302_ + _tl143584144279_)) + (let ((___splice150283150284_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl143602144297_ + _tl143584144279_ '0)))) - (let ((_tl143613144318_ + (let ((_tl143595144300_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice150301150302_ '1))) - (_target143611144316_ + (##vector-ref ___splice150283150284_ '1))) + (_target143593144298_ (let () (declare (not safe)) - (##vector-ref ___splice150301150302_ '0)))) + (##vector-ref ___splice150283150284_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143613144318_)) - (___match150362150363_ - _e143601144284_ - _hd143600144287_ - _tl143599144289_ - _e143604144292_ - _hd143603144295_ - _tl143602144297_ - _e143607144300_ - _hd143606144303_ - _tl143605144305_ - _e143610144308_ - _hd143609144311_ - _tl143608144313_ - ___splice150301150302_ - _target143611144316_ - _tl143613144318_) - (___kont150319150320_)))) + (gx#stx-null? _tl143595144300_)) + (___match150344150345_ + _e143583144266_ + _hd143582144269_ + _tl143581144271_ + _e143586144274_ + _hd143585144277_ + _tl143584144279_ + _e143589144282_ + _hd143588144285_ + _tl143587144287_ + _e143592144290_ + _hd143591144293_ + _tl143590144295_ + ___splice150283150284_ + _target143593144298_ + _tl143595144300_) + (___kont150301150302_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150319150320_)) - (___kont150319150320_)))) - (___kont150319150320_)) - (___kont150319150320_)) - (___kont150319150320_)))) - (___kont150319150320_)))) - (___kont150319150320_)) + (___kont150301150302_)) + (___kont150301150302_)))) + (___kont150301150302_)) + (___kont150301150302_)) + (___kont150301150302_)))) + (___kont150301150302_)))) + (___kont150301150302_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd143600144287_)) + _hd143582144269_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143599144289_)) - (let ((_e143634144230_ + _tl143581144271_)) + (let ((_e143616144212_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl143599144289_)))) - (let ((_tl143632144235_ + (gx#stx-e _tl143581144271_)))) + (let ((_tl143614144217_ (let () (declare (not safe)) - (##cdr _e143634144230_))) - (_hd143633144233_ + (##cdr _e143616144212_))) + (_hd143615144215_ (let () (declare (not safe)) - (##car _e143634144230_)))) + (##car _e143616144212_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143632144235_)) - (let ((_e143637144238_ + (gx#stx-pair? _tl143614144217_)) + (let ((_e143619144220_ (let () (declare (not safe)) - (gx#stx-e _tl143632144235_)))) - (let ((_tl143635144243_ + (gx#stx-e _tl143614144217_)))) + (let ((_tl143617144225_ (let () (declare (not safe)) - (##cdr _e143637144238_))) - (_hd143636144241_ + (##cdr _e143619144220_))) + (_hd143618144223_ (let () (declare (not safe)) - (##car _e143637144238_)))) + (##car _e143619144220_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143635144243_)) - (let ((_e143640144246_ + (gx#stx-pair? _tl143617144225_)) + (let ((_e143622144228_ (let () (declare (not safe)) - (gx#stx-e _tl143635144243_)))) - (let ((_tl143638144251_ + (gx#stx-e _tl143617144225_)))) + (let ((_tl143620144233_ (let () (declare (not safe)) - (##cdr _e143640144246_))) - (_hd143639144249_ + (##cdr _e143622144228_))) + (_hd143621144231_ (let () (declare (not safe)) - (##car _e143640144246_)))) + (##car _e143622144228_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143638144251_)) - (___kont150303150304_ - _hd143639144249_ - _hd143636144241_ - _hd143633144233_) - (___kont150319150320_)))) - (___kont150319150320_)))) - (___kont150319150320_)))) - (___kont150319150320_)) + (gx#stx-null? _tl143620144233_)) + (___kont150285150286_ + _hd143621144231_ + _hd143618144223_ + _hd143615144215_) + (___kont150301150302_)))) + (___kont150301150302_)))) + (___kont150301150302_)))) + (___kont150301150302_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd143600144287_)) + (gx#stx-eq? '%#let-values _hd143582144269_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143599144289_)) - (let ((_e143649144100_ + (gx#stx-pair? _tl143581144271_)) + (let ((_e143631144082_ (let () (declare (not safe)) - (gx#stx-e _tl143599144289_)))) - (let ((_tl143647144105_ + (gx#stx-e _tl143581144271_)))) + (let ((_tl143629144087_ (let () (declare (not safe)) - (##cdr _e143649144100_))) - (_hd143648144103_ + (##cdr _e143631144082_))) + (_hd143630144085_ (let () (declare (not safe)) - (##car _e143649144100_)))) + (##car _e143631144082_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd143648144103_)) - (let ((___splice150307150308_ + (gx#stx-pair/null? _hd143630144085_)) + (let ((___splice150289150290_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd143648144103_ + _hd143630144085_ '0)))) - (let ((_tl143652144110_ + (let ((_tl143634144092_ (let () (declare (not safe)) (##vector-ref - ___splice150307150308_ + ___splice150289150290_ '1))) - (_target143650144108_ + (_target143632144090_ (let () (declare (not safe)) (##vector-ref - ___splice150307150308_ + ___splice150289150290_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143652144110_)) - (___match150416150417_ - _e143601144284_ - _hd143600144287_ - _tl143599144289_ - _e143649144100_ - _hd143648144103_ - _tl143647144105_ - ___splice150307150308_ - _target143650144108_ - _tl143652144110_) - (___kont150319150320_)))) - (___kont150319150320_)))) - (___kont150319150320_)) + (gx#stx-null? _tl143634144092_)) + (___match150398150399_ + _e143583144266_ + _hd143582144269_ + _tl143581144271_ + _e143631144082_ + _hd143630144085_ + _tl143629144087_ + ___splice150289150290_ + _target143632144090_ + _tl143634144092_) + (___kont150301150302_)))) + (___kont150301150302_)))) + (___kont150301150302_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _hd143600144287_)) + (gx#stx-eq? '%#letrec-values _hd143582144269_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143599144289_)) - (let ((_e143721143788_ + (gx#stx-pair? _tl143581144271_)) + (let ((_e143703143770_ (let () (declare (not safe)) - (gx#stx-e _tl143599144289_)))) - (let ((_tl143719143793_ + (gx#stx-e _tl143581144271_)))) + (let ((_tl143701143775_ (let () (declare (not safe)) - (##cdr _e143721143788_))) - (_hd143720143791_ + (##cdr _e143703143770_))) + (_hd143702143773_ (let () (declare (not safe)) - (##car _e143721143788_)))) + (##car _e143703143770_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143720143791_)) - (let ((_e143724143796_ + (gx#stx-pair? _hd143702143773_)) + (let ((_e143706143778_ (let () (declare (not safe)) - (gx#stx-e _hd143720143791_)))) - (let ((_tl143722143801_ + (gx#stx-e _hd143702143773_)))) + (let ((_tl143704143783_ (let () (declare (not safe)) - (##cdr _e143724143796_))) - (_hd143723143799_ + (##cdr _e143706143778_))) + (_hd143705143781_ (let () (declare (not safe)) - (##car _e143724143796_)))) + (##car _e143706143778_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143723143799_)) - (let ((_e143727143804_ + (gx#stx-pair? _hd143705143781_)) + (let ((_e143709143786_ (let () (declare (not safe)) (gx#stx-e - _hd143723143799_)))) - (let ((_tl143725143809_ + _hd143705143781_)))) + (let ((_tl143707143791_ (let () (declare (not safe)) - (##cdr _e143727143804_))) - (_hd143726143807_ + (##cdr _e143709143786_))) + (_hd143708143789_ (let () (declare (not safe)) - (##car _e143727143804_)))) + (##car _e143709143786_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd143726143807_)) - (let ((_e143730143812_ + _hd143708143789_)) + (let ((_e143712143794_ (let () (declare (not safe)) (gx#stx-e - _hd143726143807_)))) - (let ((_tl143728143817_ + _hd143708143789_)))) + (let ((_tl143710143799_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e143730143812_))) - (_hd143729143815_ - (let () (declare (not safe)) (##car _e143730143812_)))) + (##cdr _e143712143794_))) + (_hd143711143797_ + (let () (declare (not safe)) (##car _e143712143794_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143728143817_)) + (gx#stx-null? _tl143710143799_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143725143809_)) - (let ((_e143733143820_ + (gx#stx-pair? _tl143707143791_)) + (let ((_e143715143802_ (let () (declare (not safe)) - (gx#stx-e _tl143725143809_)))) - (let ((_tl143731143825_ + (gx#stx-e _tl143707143791_)))) + (let ((_tl143713143807_ (let () (declare (not safe)) - (##cdr _e143733143820_))) - (_hd143732143823_ + (##cdr _e143715143802_))) + (_hd143714143805_ (let () (declare (not safe)) - (##car _e143733143820_)))) + (##car _e143715143802_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143732143823_)) - (let ((_e143736143828_ + (gx#stx-pair? _hd143714143805_)) + (let ((_e143718143810_ (let () (declare (not safe)) - (gx#stx-e _hd143732143823_)))) - (let ((_tl143734143833_ + (gx#stx-e _hd143714143805_)))) + (let ((_tl143716143815_ (let () (declare (not safe)) - (##cdr _e143736143828_))) - (_hd143735143831_ + (##cdr _e143718143810_))) + (_hd143717143813_ (let () (declare (not safe)) - (##car _e143736143828_)))) + (##car _e143718143810_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143735143831_)) + (gx#identifier? _hd143717143813_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd143735143831_)) + _hd143717143813_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143734143833_)) - (let ((_e143739143836_ + _tl143716143815_)) + (let ((_e143721143818_ (let () (declare (not safe)) (gx#stx-e - _tl143734143833_)))) - (let ((_tl143737143841_ + _tl143716143815_)))) + (let ((_tl143719143823_ (let () (declare (not safe)) - (##cdr _e143739143836_))) - (_hd143738143839_ + (##cdr _e143721143818_))) + (_hd143720143821_ (let () (declare (not safe)) - (##car _e143739143836_)))) + (##car _e143721143818_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd143738143839_)) - (let ((___splice150315150316_ + _hd143720143821_)) + (let ((___splice150297150298_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _hd143738143839_ '0)))) - (let ((_tl143742143846_ + (gx#syntax-split-splice _hd143720143821_ '0)))) + (let ((_tl143724143828_ (let () (declare (not safe)) - (##vector-ref ___splice150315150316_ '1))) - (_target143740143844_ + (##vector-ref ___splice150297150298_ '1))) + (_target143722143826_ (let () (declare (not safe)) - (##vector-ref ___splice150315150316_ '0)))) + (##vector-ref ___splice150297150298_ '0)))) (if (let () (declare (not safe)) - (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_)))) + (gx#stx-null? _tl143724143828_)) + (___match150488150489_ + _e143583144266_ + _hd143582144269_ + _tl143581144271_ + _e143703143770_ + _hd143702143773_ + _tl143701143775_ + _e143706143778_ + _hd143705143781_ + _tl143704143783_ + _e143709143786_ + _hd143708143789_ + _tl143707143791_ + _e143712143794_ + _hd143711143797_ + _tl143710143799_ + _e143715143802_ + _hd143714143805_ + _tl143713143807_ + _e143718143810_ + _hd143717143813_ + _tl143716143815_ + _e143721143818_ + _hd143720143821_ + _tl143719143823_ + ___splice150297150298_ + _target143722143826_ + _tl143724143828_) + (___kont150301150302_)))) + (___kont150301150302_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150319150320_)) - (___kont150319150320_)) - (___kont150319150320_)))) - (___kont150319150320_)))) - (___kont150319150320_)) - (___kont150319150320_)))) + (___kont150301150302_)) + (___kont150301150302_)) + (___kont150301150302_)))) + (___kont150301150302_)))) + (___kont150301150302_)) + (___kont150301150302_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150319150320_)))) - (___kont150319150320_)))) - (___kont150319150320_)))) - (___kont150319150320_)) - (___kont150319150320_))))) + (___kont150301150302_)))) + (___kont150301150302_)))) + (___kont150301150302_)))) + (___kont150301150302_)) + (___kont150301150302_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150319150320_)))) - (___kont150319150320_)))))))) + (___kont150301150302_)))) + (___kont150301150302_)))))))) (declare (not safe)) - (_do-assert141515_ __tmp152404 __tmp152362)))) - (_optimize-f__0__148984148985_ - (lambda (_expr144493_) - (let ((_test144495_ '#f)) + (_do-assert141497_ __tmp152386 __tmp152344)))) + (_optimize-f__0__148966148967_ + (lambda (_expr144475_) + (let ((_test144477_ '#f)) (declare (not safe)) - (_optimize-f__148982148983_ - _expr144493_ - _test144495_)))) - (_optimize-f141528_ - (lambda _g152407_ - (let ((_g152406_ + (_optimize-f__148964148965_ + _expr144475_ + _test144477_)))) + (_optimize-f141510_ + (lambda _g152389_ + (let ((_g152388_ (let () (declare (not safe)) - (##length _g152407_)))) - (cond ((let () (declare (not safe)) (##fx= _g152406_ 1)) - (apply (lambda (_expr144493_) + (##length _g152389_)))) + (cond ((let () (declare (not safe)) (##fx= _g152388_ 1)) + (apply (lambda (_expr144475_) (let () (declare (not safe)) - (_optimize-f__0__148984148985_ - _expr144493_))) - _g152407_)) - ((let () (declare (not safe)) (##fx= _g152406_ 2)) - (apply (lambda (_expr144497_ _test144498_) + (_optimize-f__0__148966148967_ + _expr144475_))) + _g152389_)) + ((let () (declare (not safe)) (##fx= _g152388_ 2)) + (apply (lambda (_expr144479_ _test144480_) (let () (declare (not safe)) - (_optimize-f__148982148983_ - _expr144497_ - _test144498_))) - _g152407_)) + (_optimize-f__148964148965_ + _expr144479_ + _test144480_))) + _g152389_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g152407_)))))) - (_assert-e141529_ - (lambda (_expr142527_) - (let* ((_sexpr142529_ + _g152389_)))))) + (_assert-e141511_ + (lambda (_expr142509_) + (let* ((_sexpr142511_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _expr142527_))) - (_$e142531_ - (assoc _sexpr142529_ _env-assert141511_))) - (if _$e142531_ - (cdr _$e142531_) - (let _assert142534_ ((_expr142536_ _expr142527_)) - (let* ((___stx150603150604_ _expr142536_) - (_g142544142723_ + (gxc#apply-generate-runtime-repr _expr142509_))) + (_$e142513_ + (assoc _sexpr142511_ _env-assert141493_))) + (if _$e142513_ + (cdr _$e142513_) + (let _assert142516_ ((_expr142518_ _expr142509_)) + (let* ((___stx150585150586_ _expr142518_) + (_g142526142705_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx150603150604_))))) - (let ((___kont150605150606_ - (lambda (_L143554_ _L143555_) - (let ((_$e143577_ + ___stx150585150586_))))) + (let ((___kont150587150588_ + (lambda (_L143536_ _L143537_) + (let ((_$e143559_ (let () (declare (not safe)) - (_predicate-type141516_ - _L143555_)))) - (if _$e143577_ - ((lambda (_t143580_) + (_predicate-type141498_ + _L143537_)))) + (if _$e143559_ + ((lambda (_t143562_) (let () (declare (not safe)) - (_assert-type141530_ - _L143554_ - _t143580_))) - _$e143577_) + (_assert-type141512_ + _L143536_ + _t143562_))) + _$e143559_) '#!void)))) - (___kont150607150608_ - (lambda (_L143247_ _L143248_ _L143249_) - (let ((_$e143274_ + (___kont150589150590_ + (lambda (_L143229_ _L143230_ _L143231_) + (let ((_$e143256_ (let () (declare (not safe)) (gxc#identifier-symbol - _L143249_)))) + _L143231_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e143274_)) + (eq? '##fx= _$e143256_)) (let () (declare (not safe)) - (eq? 'fx= _$e143274_))) - (let* ((___stx150509150510_ - _L143248_) - (_g143281143310_ + (eq? 'fx= _$e143256_))) + (let* ((___stx150491150492_ + _L143230_) + (_g143263143292_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx150509150510_))))) - (let ((___kont150511150512_ - (lambda (_L143378_ - _L143379_) - (let ((_$e143404_ + ___stx150491150492_))))) + (let ((___kont150493150494_ + (lambda (_L143360_ + _L143361_) + (let ((_$e143386_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_countf-symbol141518_ _L143379_)))) - (if _$e143404_ - ((lambda (_sym143407_) - (let ((__tmp152410 + (_countf-symbol141500_ _L143361_)))) + (if _$e143386_ + ((lambda (_sym143389_) + (let ((__tmp152392 (let () (declare (not safe)) - (gx#stx-e _L143247_)))) + (gx#stx-e _L143229_)))) (declare (not safe)) - (_assert-count141531_ - _L143378_ - _sym143407_ - __tmp152410))) - _$e143404_) + (_assert-count141513_ + _L143360_ + _sym143389_ + __tmp152392))) + _$e143386_) '#!void)))) - (___kont150513150514_ (lambda () '#!void))) + (___kont150495150496_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx150509150510_)) - (let ((_e143287143322_ + ___stx150491150492_)) + (let ((_e143269143304_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx150509150510_)))) - (let ((_tl143285143327_ - (let () (declare (not safe)) (##cdr _e143287143322_))) - (_hd143286143325_ - (let () (declare (not safe)) (##car _e143287143322_)))) + (gx#stx-e ___stx150491150492_)))) + (let ((_tl143267143309_ + (let () (declare (not safe)) (##cdr _e143269143304_))) + (_hd143268143307_ + (let () (declare (not safe)) (##car _e143269143304_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143286143325_)) + (gx#identifier? _hd143268143307_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd143286143325_)) + (gx#stx-eq? '%#call _hd143268143307_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143285143327_)) - (let ((_e143290143330_ + (gx#stx-pair? _tl143267143309_)) + (let ((_e143272143312_ (let () (declare (not safe)) - (gx#stx-e _tl143285143327_)))) - (let ((_tl143288143335_ + (gx#stx-e _tl143267143309_)))) + (let ((_tl143270143317_ (let () (declare (not safe)) - (##cdr _e143290143330_))) - (_hd143289143333_ + (##cdr _e143272143312_))) + (_hd143271143315_ (let () (declare (not safe)) - (##car _e143290143330_)))) + (##car _e143272143312_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143289143333_)) - (let ((_e143293143338_ + (gx#stx-pair? _hd143271143315_)) + (let ((_e143275143320_ (let () (declare (not safe)) - (gx#stx-e _hd143289143333_)))) - (let ((_tl143291143343_ + (gx#stx-e _hd143271143315_)))) + (let ((_tl143273143325_ (let () (declare (not safe)) - (##cdr _e143293143338_))) - (_hd143292143341_ + (##cdr _e143275143320_))) + (_hd143274143323_ (let () (declare (not safe)) - (##car _e143293143338_)))) + (##car _e143275143320_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd143292143341_)) + _hd143274143323_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd143292143341_)) + _hd143274143323_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143291143343_)) - (let ((_e143296143346_ + _tl143273143325_)) + (let ((_e143278143328_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl143291143343_)))) - (let ((_tl143294143351_ - (let () (declare (not safe)) (##cdr _e143296143346_))) - (_hd143295143349_ - (let () (declare (not safe)) (##car _e143296143346_)))) + (gx#stx-e _tl143273143325_)))) + (let ((_tl143276143333_ + (let () (declare (not safe)) (##cdr _e143278143328_))) + (_hd143277143331_ + (let () (declare (not safe)) (##car _e143278143328_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143294143351_)) + (gx#stx-null? _tl143276143333_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143288143335_)) - (let ((_e143299143354_ + (gx#stx-pair? _tl143270143317_)) + (let ((_e143281143336_ (let () (declare (not safe)) - (gx#stx-e _tl143288143335_)))) - (let ((_tl143297143359_ + (gx#stx-e _tl143270143317_)))) + (let ((_tl143279143341_ (let () (declare (not safe)) - (##cdr _e143299143354_))) - (_hd143298143357_ + (##cdr _e143281143336_))) + (_hd143280143339_ (let () (declare (not safe)) - (##car _e143299143354_)))) + (##car _e143281143336_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd143298143357_)) - (let ((_e143302143362_ + (gx#stx-pair? _hd143280143339_)) + (let ((_e143284143344_ (let () (declare (not safe)) - (gx#stx-e _hd143298143357_)))) - (let ((_tl143300143367_ + (gx#stx-e _hd143280143339_)))) + (let ((_tl143282143349_ (let () (declare (not safe)) - (##cdr _e143302143362_))) - (_hd143301143365_ + (##cdr _e143284143344_))) + (_hd143283143347_ (let () (declare (not safe)) - (##car _e143302143362_)))) + (##car _e143284143344_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143301143365_)) + (gx#identifier? _hd143283143347_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd143301143365_)) + _hd143283143347_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl143300143367_)) - (let ((_e143305143370_ + _tl143282143349_)) + (let ((_e143287143352_ (let () (declare (not safe)) (gx#stx-e - _tl143300143367_)))) - (let ((_tl143303143375_ + _tl143282143349_)))) + (let ((_tl143285143357_ (let () (declare (not safe)) - (##cdr _e143305143370_))) - (_hd143304143373_ + (##cdr _e143287143352_))) + (_hd143286143355_ (let () (declare (not safe)) - (##car _e143305143370_)))) + (##car _e143287143352_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl143303143375_)) + _tl143285143357_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl143297143359_)) - (___kont150511150512_ _hd143304143373_ _hd143295143349_) - (___kont150513150514_)) - (___kont150513150514_)))) + (gx#stx-null? _tl143279143341_)) + (___kont150493150494_ _hd143286143355_ _hd143277143331_) + (___kont150495150496_)) + (___kont150495150496_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150513150514_)) - (___kont150513150514_)) - (___kont150513150514_)))) - (___kont150513150514_)))) - (___kont150513150514_)) - (___kont150513150514_)))) - (___kont150513150514_)) + (___kont150495150496_)) + (___kont150495150496_)) + (___kont150495150496_)))) + (___kont150495150496_)))) + (___kont150495150496_)) + (___kont150495150496_)))) + (___kont150495150496_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150513150514_)) - (___kont150513150514_)))) - (___kont150513150514_)))) - (___kont150513150514_)) - (___kont150513150514_)) - (___kont150513150514_)))) - (___kont150513150514_)))) + (___kont150495150496_)) + (___kont150495150496_)))) + (___kont150495150496_)))) + (___kont150495150496_)) + (___kont150495150496_)) + (___kont150495150496_)))) + (___kont150495150496_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (or (let () (declare (not safe)) (eq? '##eq? - _$e143274_)) + _$e143256_)) (let () (declare (not safe)) - (eq? 'eq? _$e143274_)) + (eq? 'eq? _$e143256_)) (let () (declare (not safe)) (eq? '##eqv? - _$e143274_)) + _$e143256_)) (let () (declare (not safe)) - (eq? 'eqv? _$e143274_)) + (eq? 'eqv? _$e143256_)) (let () (declare (not safe)) (eq? '##equal? - _$e143274_)) + _$e143256_)) (let () (declare (not safe)) (eq? 'equal? - _$e143274_)) + _$e143256_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e143274_)) + _$e143256_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e143274_))) - ((lambda (_sym143433_) - (let* ((___stx150577150578_ - _L143248_) - (_g143436143449_ + _$e143256_))) + ((lambda (_sym143415_) + (let* ((___stx150559150560_ + _L143230_) + (_g143418143431_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -9873,1467 +9873,1467 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx150577150578_))))) - (let ((___kont150579150580_ - (lambda (_L143477_) - (let ((__tmp152409 + ___stx150559150560_))))) + (let ((___kont150561150562_ + (lambda (_L143459_) + (let ((__tmp152391 (let () (declare (not safe)) - (_eqf-symbol141519_ _sym143433_))) - (__tmp152408 + (_eqf-symbol141501_ _sym143415_))) + (__tmp152390 (let () (declare (not safe)) - (gx#stx-e _L143247_)))) + (gx#stx-e _L143229_)))) (declare (not safe)) - (_assert-eqf141532_ - _L143477_ - __tmp152409 - __tmp152408)))) - (___kont150581150582_ (lambda () '#!void))) + (_assert-eqf141514_ + _L143459_ + __tmp152391 + __tmp152390)))) + (___kont150563150564_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx150577150578_)) - (let ((_e143441143461_ + (gx#stx-pair? ___stx150559150560_)) + (let ((_e143423143443_ (let () (declare (not safe)) - (gx#stx-e ___stx150577150578_)))) - (let ((_tl143439143466_ + (gx#stx-e ___stx150559150560_)))) + (let ((_tl143421143448_ (let () (declare (not safe)) - (##cdr _e143441143461_))) - (_hd143440143464_ + (##cdr _e143423143443_))) + (_hd143422143446_ (let () (declare (not safe)) - (##car _e143441143461_)))) + (##car _e143423143443_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd143440143464_)) + (gx#identifier? _hd143422143446_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd143440143464_)) + (gx#stx-eq? '%#ref _hd143422143446_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl143439143466_)) - (let ((_e143444143469_ + (gx#stx-pair? _tl143421143448_)) + (let ((_e143426143451_ (let () (declare (not safe)) - (gx#stx-e _tl143439143466_)))) - (let ((_tl143442143474_ + (gx#stx-e _tl143421143448_)))) + (let ((_tl143424143456_ (let () (declare (not safe)) - (##cdr _e143444143469_))) - (_hd143443143472_ + (##cdr _e143426143451_))) + (_hd143425143454_ (let () (declare (not safe)) - (##car _e143444143469_)))) + (##car _e143426143451_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl143442143474_)) - (___kont150579150580_ - _hd143443143472_) - (___kont150581150582_)))) - (___kont150581150582_)) - (___kont150581150582_)) - (___kont150581150582_)))) - (___kont150581150582_))))) + (gx#stx-null? _tl143424143456_)) + (___kont150561150562_ + _hd143425143454_) + (___kont150563150564_)))) + (___kont150563150564_)) + (___kont150563150564_)) + (___kont150563150564_)))) + (___kont150563150564_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e143274_) + _$e143256_) '#!void))))) - (___kont150609150610_ - (lambda (_L143151_ _L143152_ _L143153_) - (let ((__tmp152411 - (let ((__tmp152421 + (___kont150591150592_ + (lambda (_L143133_ _L143134_ _L143135_) + (let ((__tmp152393 + (let ((__tmp152403 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp152412 - (let ((__tmp152418 - (let ((__tmp152420 + (__tmp152394 + (let ((__tmp152400 + (let ((__tmp152402 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152419 + (__tmp152401 (let () (declare (not safe)) - (cons _L143153_ '())))) + (cons _L143135_ '())))) (declare (not safe)) - (cons __tmp152420 __tmp152419))) - (__tmp152413 - (let ((__tmp152414 - (let ((__tmp152415 - (let ((__tmp152417 + (cons __tmp152402 __tmp152401))) + (__tmp152395 + (let ((__tmp152396 + (let ((__tmp152397 + (let ((__tmp152399 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp152416 + (__tmp152398 (let () (declare (not safe)) - (cons _L143152_ '())))) + (cons _L143134_ '())))) (declare (not safe)) - (cons __tmp152417 __tmp152416)))) + (cons __tmp152399 __tmp152398)))) (declare (not safe)) - (cons __tmp152415 '())))) + (cons __tmp152397 '())))) (declare (not safe)) - (cons _L143151_ __tmp152414)))) + (cons _L143133_ __tmp152396)))) (declare (not safe)) - (cons __tmp152418 __tmp152413)))) + (cons __tmp152400 __tmp152395)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152421 - __tmp152412)))) + (cons __tmp152403 + __tmp152394)))) (declare (not safe)) - (_assert142534_ __tmp152411)))) - (___kont150611150612_ - (lambda (_L143043_ _L143044_ _L143045_) - (let ((_$e143074_ + (_assert142516_ __tmp152393)))) + (___kont150593150594_ + (lambda (_L143025_ _L143026_ _L143027_) + (let ((_$e143056_ (let () (declare (not safe)) (gxc#identifier-symbol - _L143045_)))) + _L143027_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e143074_)) + _$e143056_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e143074_))) - ((lambda (_sym143080_) - (let ((__tmp152422 + _$e143056_))) + ((lambda (_sym143062_) + (let ((__tmp152404 (let () (declare (not safe)) - (_eqf-symbol141519_ - _sym143080_)))) + (_eqf-symbol141501_ + _sym143062_)))) (declare (not safe)) - (_assert-eqf141532_ - _L143044_ - __tmp152422 - _L143043_))) - _$e143074_) + (_assert-eqf141514_ + _L143026_ + __tmp152404 + _L143025_))) + _$e143056_) '#!void)))) - (___kont150613150614_ - (lambda (_L142927_ _L142928_ _L142929_) - (let ((__tmp152423 - (let ((__tmp152436 + (___kont150595150596_ + (lambda (_L142909_ _L142910_ _L142911_) + (let ((__tmp152405 + (let ((__tmp152418 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp152424 - (let ((__tmp152433 - (let ((__tmp152435 + (__tmp152406 + (let ((__tmp152415 + (let ((__tmp152417 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152434 + (__tmp152416 (let () (declare (not safe)) - (cons _L142929_ '())))) + (cons _L142911_ '())))) (declare (not safe)) - (cons __tmp152435 __tmp152434))) - (__tmp152425 - (let ((__tmp152430 - (let ((__tmp152432 + (cons __tmp152417 __tmp152416))) + (__tmp152407 + (let ((__tmp152412 + (let ((__tmp152414 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152431 + (__tmp152413 (let () (declare (not safe)) - (cons _L142927_ '())))) + (cons _L142909_ '())))) (declare (not safe)) - (cons __tmp152432 __tmp152431))) - (__tmp152426 - (let ((__tmp152427 - (let ((__tmp152429 + (cons __tmp152414 __tmp152413))) + (__tmp152408 + (let ((__tmp152409 + (let ((__tmp152411 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp152428 + (__tmp152410 (let () (declare (not safe)) - (cons _L142928_ '())))) + (cons _L142910_ '())))) (declare (not safe)) - (cons __tmp152429 __tmp152428)))) + (cons __tmp152411 __tmp152410)))) (declare (not safe)) - (cons __tmp152427 '())))) + (cons __tmp152409 '())))) (declare (not safe)) - (cons __tmp152430 __tmp152426)))) + (cons __tmp152412 __tmp152408)))) (declare (not safe)) - (cons __tmp152433 __tmp152425)))) + (cons __tmp152415 __tmp152407)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152436 - __tmp152424)))) + (cons __tmp152418 + __tmp152406)))) (declare (not safe)) - (_assert142534_ __tmp152423)))) - (___kont150615150616_ - (lambda (_L142807_ _L142808_ _L142809_) - (let ((__tmp152437 + (_assert142516_ __tmp152405)))) + (___kont150597150598_ + (lambda (_L142789_ _L142790_ _L142791_) + (let ((__tmp152419 (let () (declare (not safe)) (gxc#apply-expression-subst - _L142808_ + _L142790_ 'id: - _L142809_ + _L142791_ 'new-id: - _L142807_)))) + _L142789_)))) (declare (not safe)) - (_assert142534_ __tmp152437)))) - (___kont150617150618_ + (_assert142516_ __tmp152419)))) + (___kont150599150600_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx150603150604_)) - (let ((_e142550143498_ + (gx#stx-pair? ___stx150585150586_)) + (let ((_e142532143480_ (let () (declare (not safe)) - (gx#stx-e ___stx150603150604_)))) - (let ((_tl142548143503_ + (gx#stx-e ___stx150585150586_)))) + (let ((_tl142530143485_ (let () (declare (not safe)) - (##cdr _e142550143498_))) - (_hd142549143501_ + (##cdr _e142532143480_))) + (_hd142531143483_ (let () (declare (not safe)) - (##car _e142550143498_)))) + (##car _e142532143480_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd142549143501_)) + _hd142531143483_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd142549143501_)) + _hd142531143483_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142548143503_)) - (let ((_e142553143506_ + _tl142530143485_)) + (let ((_e142535143488_ (let () (declare (not safe)) (gx#stx-e - _tl142548143503_)))) - (let ((_tl142551143511_ + _tl142530143485_)))) + (let ((_tl142533143493_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e142553143506_))) - (_hd142552143509_ - (let () (declare (not safe)) (##car _e142553143506_)))) + (##cdr _e142535143488_))) + (_hd142534143491_ + (let () (declare (not safe)) (##car _e142535143488_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142552143509_)) - (let ((_e142556143514_ + (gx#stx-pair? _hd142534143491_)) + (let ((_e142538143496_ (let () (declare (not safe)) - (gx#stx-e _hd142552143509_)))) - (let ((_tl142554143519_ + (gx#stx-e _hd142534143491_)))) + (let ((_tl142536143501_ (let () (declare (not safe)) - (##cdr _e142556143514_))) - (_hd142555143517_ + (##cdr _e142538143496_))) + (_hd142537143499_ (let () (declare (not safe)) - (##car _e142556143514_)))) + (##car _e142538143496_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142555143517_)) + (gx#identifier? _hd142537143499_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd142555143517_)) + (gx#stx-eq? '%#ref _hd142537143499_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142554143519_)) - (let ((_e142559143522_ + (gx#stx-pair? _tl142536143501_)) + (let ((_e142541143504_ (let () (declare (not safe)) - (gx#stx-e _tl142554143519_)))) - (let ((_tl142557143527_ + (gx#stx-e _tl142536143501_)))) + (let ((_tl142539143509_ (let () (declare (not safe)) - (##cdr _e142559143522_))) - (_hd142558143525_ + (##cdr _e142541143504_))) + (_hd142540143507_ (let () (declare (not safe)) - (##car _e142559143522_)))) + (##car _e142541143504_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142557143527_)) + (gx#stx-null? _tl142539143509_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142551143511_)) - (let ((_e142562143530_ + _tl142533143493_)) + (let ((_e142544143512_ (let () (declare (not safe)) (gx#stx-e - _tl142551143511_)))) - (let ((_tl142560143535_ + _tl142533143493_)))) + (let ((_tl142542143517_ (let () (declare (not safe)) - (##cdr _e142562143530_))) - (_hd142561143533_ + (##cdr _e142544143512_))) + (_hd142543143515_ (let () (declare (not safe)) - (##car _e142562143530_)))) + (##car _e142544143512_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142561143533_)) - (let ((_e142565143538_ + _hd142543143515_)) + (let ((_e142547143520_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd142561143533_)))) - (let ((_tl142563143543_ + (gx#stx-e _hd142543143515_)))) + (let ((_tl142545143525_ (let () (declare (not safe)) - (##cdr _e142565143538_))) - (_hd142564143541_ + (##cdr _e142547143520_))) + (_hd142546143523_ (let () (declare (not safe)) - (##car _e142565143538_)))) + (##car _e142547143520_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142564143541_)) + (gx#identifier? _hd142546143523_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd142564143541_)) + (gx#stx-eq? '%#ref _hd142546143523_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142563143543_)) - (let ((_e142568143546_ + (gx#stx-pair? _tl142545143525_)) + (let ((_e142550143528_ (let () (declare (not safe)) - (gx#stx-e _tl142563143543_)))) - (let ((_tl142566143551_ + (gx#stx-e _tl142545143525_)))) + (let ((_tl142548143533_ (let () (declare (not safe)) - (##cdr _e142568143546_))) - (_hd142567143549_ + (##cdr _e142550143528_))) + (_hd142549143531_ (let () (declare (not safe)) - (##car _e142568143546_)))) + (##car _e142550143528_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142566143551_)) + (gx#stx-null? _tl142548143533_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142560143535_)) - (___kont150605150606_ - _hd142567143549_ - _hd142558143525_) + (gx#stx-null? _tl142542143517_)) + (___kont150587150588_ + _hd142549143531_ + _hd142540143507_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142560143535_)) - (let ((_e142589143223_ + _tl142542143517_)) + (let ((_e142571143205_ (let () (declare (not safe)) (gx#stx-e - _tl142560143535_)))) - (let ((_tl142587143228_ + _tl142542143517_)))) + (let ((_tl142569143210_ (let () (declare (not safe)) - (##cdr _e142589143223_))) - (_hd142588143226_ + (##cdr _e142571143205_))) + (_hd142570143208_ (let () (declare (not safe)) - (##car _e142589143223_)))) + (##car _e142571143205_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142588143226_)) - (let ((_e142592143231_ + _hd142570143208_)) + (let ((_e142574143213_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd142588143226_)))) - (let ((_tl142590143236_ + (gx#stx-e _hd142570143208_)))) + (let ((_tl142572143218_ (let () (declare (not safe)) - (##cdr _e142592143231_))) - (_hd142591143234_ + (##cdr _e142574143213_))) + (_hd142573143216_ (let () (declare (not safe)) - (##car _e142592143231_)))) + (##car _e142574143213_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142591143234_)) + (gx#identifier? _hd142573143216_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd142591143234_)) + (gx#stx-eq? '%#quote _hd142573143216_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142590143236_)) - (let ((_e142595143239_ + (gx#stx-pair? _tl142572143218_)) + (let ((_e142577143221_ (let () (declare (not safe)) - (gx#stx-e _tl142590143236_)))) - (let ((_tl142593143244_ + (gx#stx-e _tl142572143218_)))) + (let ((_tl142575143226_ (let () (declare (not safe)) - (##cdr _e142595143239_))) - (_hd142594143242_ + (##cdr _e142577143221_))) + (_hd142576143224_ (let () (declare (not safe)) - (##car _e142595143239_)))) + (##car _e142577143221_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142593143244_)) + (gx#stx-null? _tl142575143226_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142587143228_)) - (___kont150607150608_ - _hd142594143242_ - _hd142561143533_ - _hd142558143525_) - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)) + (gx#stx-null? _tl142569143210_)) + (___kont150589150590_ + _hd142576143224_ + _hd142543143515_ + _hd142540143507_) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd142591143234_)) + _hd142573143216_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142590143236_)) - (let ((_e142655143035_ + (gx#stx-pair? _tl142572143218_)) + (let ((_e142637143017_ (let () (declare (not safe)) - (gx#stx-e _tl142590143236_)))) - (let ((_tl142653143040_ + (gx#stx-e _tl142572143218_)))) + (let ((_tl142635143022_ (let () (declare (not safe)) - (##cdr _e142655143035_))) - (_hd142654143038_ + (##cdr _e142637143017_))) + (_hd142636143020_ (let () (declare (not safe)) - (##car _e142655143035_)))) + (##car _e142637143017_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142653143040_)) + (gx#stx-null? _tl142635143022_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl142587143228_)) - (___kont150611150612_ - _hd142654143038_ - _hd142567143549_ - _hd142558143525_) - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)) - (___kont150617150618_))) - (___kont150617150618_)))) - (___kont150617150618_)))) + _tl142569143210_)) + (___kont150593150594_ + _hd142636143020_ + _hd142549143531_ + _hd142540143507_) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)) + (___kont150599150600_))) + (___kont150599150600_)))) + (___kont150599150600_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150617150618_))) + (___kont150599150600_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142560143535_)) - (let ((_e142589143223_ + (gx#stx-pair? _tl142542143517_)) + (let ((_e142571143205_ (let () (declare (not safe)) (gx#stx-e - _tl142560143535_)))) - (let ((_tl142587143228_ + _tl142542143517_)))) + (let ((_tl142569143210_ (let () (declare (not safe)) - (##cdr _e142589143223_))) - (_hd142588143226_ + (##cdr _e142571143205_))) + (_hd142570143208_ (let () (declare (not safe)) - (##car _e142589143223_)))) + (##car _e142571143205_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142588143226_)) - (let ((_e142592143231_ + _hd142570143208_)) + (let ((_e142574143213_ (let () (declare (not safe)) (gx#stx-e - _hd142588143226_)))) - (let ((_tl142590143236_ + _hd142570143208_)))) + (let ((_tl142572143218_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e142592143231_))) - (_hd142591143234_ - (let () (declare (not safe)) (##car _e142592143231_)))) + (##cdr _e142574143213_))) + (_hd142573143216_ + (let () (declare (not safe)) (##car _e142574143213_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142591143234_)) + (gx#identifier? _hd142573143216_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd142591143234_)) + (gx#stx-eq? '%#quote _hd142573143216_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142590143236_)) - (let ((_e142595143239_ + (gx#stx-pair? _tl142572143218_)) + (let ((_e142577143221_ (let () (declare (not safe)) - (gx#stx-e _tl142590143236_)))) - (let ((_tl142593143244_ + (gx#stx-e _tl142572143218_)))) + (let ((_tl142575143226_ (let () (declare (not safe)) - (##cdr _e142595143239_))) - (_hd142594143242_ + (##cdr _e142577143221_))) + (_hd142576143224_ (let () (declare (not safe)) - (##car _e142595143239_)))) + (##car _e142577143221_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142593143244_)) + (gx#stx-null? _tl142575143226_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142587143228_)) - (___kont150607150608_ - _hd142594143242_ - _hd142561143533_ - _hd142558143525_) - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)) - (___kont150617150618_)) - (___kont150617150618_)))) + (gx#stx-null? _tl142569143210_)) + (___kont150589150590_ + _hd142576143224_ + _hd142543143515_ + _hd142540143507_) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)) + (___kont150599150600_)) + (___kont150599150600_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150617150618_)))) - (___kont150617150618_))))) + (___kont150599150600_)))) + (___kont150599150600_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142560143535_)) - (let ((_e142589143223_ + (gx#stx-pair? _tl142542143517_)) + (let ((_e142571143205_ (let () (declare (not safe)) - (gx#stx-e _tl142560143535_)))) - (let ((_tl142587143228_ + (gx#stx-e _tl142542143517_)))) + (let ((_tl142569143210_ (let () (declare (not safe)) - (##cdr _e142589143223_))) - (_hd142588143226_ + (##cdr _e142571143205_))) + (_hd142570143208_ (let () (declare (not safe)) - (##car _e142589143223_)))) + (##car _e142571143205_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142588143226_)) - (let ((_e142592143231_ + (gx#stx-pair? _hd142570143208_)) + (let ((_e142574143213_ (let () (declare (not safe)) (gx#stx-e - _hd142588143226_)))) - (let ((_tl142590143236_ + _hd142570143208_)))) + (let ((_tl142572143218_ (let () (declare (not safe)) - (##cdr _e142592143231_))) - (_hd142591143234_ + (##cdr _e142574143213_))) + (_hd142573143216_ (let () (declare (not safe)) - (##car _e142592143231_)))) + (##car _e142574143213_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd142591143234_)) + _hd142573143216_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd142591143234_)) + _hd142573143216_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl142590143236_)) - (let ((_e142595143239_ + (gx#stx-pair? _tl142572143218_)) + (let ((_e142577143221_ (let () (declare (not safe)) - (gx#stx-e _tl142590143236_)))) - (let ((_tl142593143244_ + (gx#stx-e _tl142572143218_)))) + (let ((_tl142575143226_ (let () (declare (not safe)) - (##cdr _e142595143239_))) - (_hd142594143242_ + (##cdr _e142577143221_))) + (_hd142576143224_ (let () (declare (not safe)) - (##car _e142595143239_)))) + (##car _e142577143221_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142593143244_)) + (gx#stx-null? _tl142575143226_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142587143228_)) - (___kont150607150608_ - _hd142594143242_ - _hd142561143533_ - _hd142558143525_) - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)) - (___kont150617150618_)) + (gx#stx-null? _tl142569143210_)) + (___kont150589150590_ + _hd142576143224_ + _hd142543143515_ + _hd142540143507_) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)) + (___kont150599150600_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150617150618_)))) - (___kont150617150618_)))) - (___kont150617150618_))) + (___kont150599150600_)))) + (___kont150599150600_)))) + (___kont150599150600_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142560143535_)) - (let ((_e142589143223_ + (gx#stx-pair? _tl142542143517_)) + (let ((_e142571143205_ (let () (declare (not safe)) - (gx#stx-e _tl142560143535_)))) - (let ((_tl142587143228_ + (gx#stx-e _tl142542143517_)))) + (let ((_tl142569143210_ (let () (declare (not safe)) - (##cdr _e142589143223_))) - (_hd142588143226_ + (##cdr _e142571143205_))) + (_hd142570143208_ (let () (declare (not safe)) - (##car _e142589143223_)))) + (##car _e142571143205_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142588143226_)) - (let ((_e142592143231_ + (gx#stx-pair? _hd142570143208_)) + (let ((_e142574143213_ (let () (declare (not safe)) (gx#stx-e - _hd142588143226_)))) - (let ((_tl142590143236_ + _hd142570143208_)))) + (let ((_tl142572143218_ (let () (declare (not safe)) - (##cdr _e142592143231_))) - (_hd142591143234_ + (##cdr _e142574143213_))) + (_hd142573143216_ (let () (declare (not safe)) - (##car _e142592143231_)))) + (##car _e142574143213_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd142591143234_)) + _hd142573143216_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd142591143234_)) + _hd142573143216_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142590143236_)) - (let ((_e142595143239_ + _tl142572143218_)) + (let ((_e142577143221_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl142590143236_)))) - (let ((_tl142593143244_ + (gx#stx-e _tl142572143218_)))) + (let ((_tl142575143226_ (let () (declare (not safe)) - (##cdr _e142595143239_))) - (_hd142594143242_ + (##cdr _e142577143221_))) + (_hd142576143224_ (let () (declare (not safe)) - (##car _e142595143239_)))) + (##car _e142577143221_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142593143244_)) + (gx#stx-null? _tl142575143226_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142587143228_)) - (___kont150607150608_ - _hd142594143242_ - _hd142561143533_ - _hd142558143525_) + (gx#stx-null? _tl142569143210_)) + (___kont150589150590_ + _hd142576143224_ + _hd142543143515_ + _hd142540143507_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd142564143541_)) + (gx#stx-eq? '%#quote _hd142546143523_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142563143543_)) - (let ((_e142619143135_ + (gx#stx-pair? _tl142545143525_)) + (let ((_e142601143117_ (let () (declare (not safe)) - (gx#stx-e _tl142563143543_)))) - (let ((_tl142617143140_ + (gx#stx-e _tl142545143525_)))) + (let ((_tl142599143122_ (let () (declare (not safe)) - (##cdr _e142619143135_))) - (_hd142618143138_ + (##cdr _e142601143117_))) + (_hd142600143120_ (let () (declare (not safe)) - (##car _e142619143135_)))) - (___kont150617150618_))) - (___kont150617150618_)) + (##car _e142601143117_)))) + (___kont150599150600_))) + (___kont150599150600_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd142564143541_)) + _hd142546143523_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142563143543_)) - (let ((_e142679142895_ + (gx#stx-pair? _tl142545143525_)) + (let ((_e142661142877_ (let () (declare (not safe)) (gx#stx-e - _tl142563143543_)))) - (let ((_tl142677142900_ + _tl142545143525_)))) + (let ((_tl142659142882_ (let () (declare (not safe)) - (##cdr _e142679142895_))) - (_hd142678142898_ + (##cdr _e142661142877_))) + (_hd142660142880_ (let () (declare (not safe)) - (##car _e142679142895_)))) - (___kont150617150618_))) - (___kont150617150618_)) - (___kont150617150618_)))) + (##car _e142661142877_)))) + (___kont150599150600_))) + (___kont150599150600_)) + (___kont150599150600_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd142564143541_)) + (gx#stx-eq? '%#quote _hd142546143523_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142563143543_)) - (let ((_e142619143135_ + (gx#stx-pair? _tl142545143525_)) + (let ((_e142601143117_ (let () (declare (not safe)) - (gx#stx-e _tl142563143543_)))) - (let ((_tl142617143140_ + (gx#stx-e _tl142545143525_)))) + (let ((_tl142599143122_ (let () (declare (not safe)) - (##cdr _e142619143135_))) - (_hd142618143138_ + (##cdr _e142601143117_))) + (_hd142600143120_ (let () (declare (not safe)) - (##car _e142619143135_)))) + (##car _e142601143117_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142617143140_)) + (gx#stx-null? _tl142599143122_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142587143228_)) - (___kont150609150610_ - _hd142588143226_ - _hd142618143138_ - _hd142558143525_) - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)) + (gx#stx-null? _tl142569143210_)) + (___kont150591150592_ + _hd142570143208_ + _hd142600143120_ + _hd142540143507_) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd142564143541_)) + _hd142546143523_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142563143543_)) - (let ((_e142679142895_ + (gx#stx-pair? _tl142545143525_)) + (let ((_e142661142877_ (let () (declare (not safe)) - (gx#stx-e _tl142563143543_)))) - (let ((_tl142677142900_ + (gx#stx-e _tl142545143525_)))) + (let ((_tl142659142882_ (let () (declare (not safe)) - (##cdr _e142679142895_))) - (_hd142678142898_ + (##cdr _e142661142877_))) + (_hd142660142880_ (let () (declare (not safe)) - (##car _e142679142895_)))) - (___kont150617150618_))) - (___kont150617150618_)) - (___kont150617150618_)))))) + (##car _e142661142877_)))) + (___kont150599150600_))) + (___kont150599150600_)) + (___kont150599150600_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd142564143541_)) + (gx#stx-eq? '%#quote _hd142546143523_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142563143543_)) - (let ((_e142619143135_ + (gx#stx-pair? _tl142545143525_)) + (let ((_e142601143117_ (let () (declare (not safe)) - (gx#stx-e _tl142563143543_)))) - (let ((_tl142617143140_ + (gx#stx-e _tl142545143525_)))) + (let ((_tl142599143122_ (let () (declare (not safe)) - (##cdr _e142619143135_))) - (_hd142618143138_ + (##cdr _e142601143117_))) + (_hd142600143120_ (let () (declare (not safe)) - (##car _e142619143135_)))) + (##car _e142601143117_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142617143140_)) + (gx#stx-null? _tl142599143122_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142587143228_)) - (___kont150609150610_ - _hd142588143226_ - _hd142618143138_ - _hd142558143525_) - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)) + (gx#stx-null? _tl142569143210_)) + (___kont150591150592_ + _hd142570143208_ + _hd142600143120_ + _hd142540143507_) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd142564143541_)) + (gx#stx-eq? '%#quote-syntax _hd142546143523_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142563143543_)) - (let ((_e142679142895_ + (gx#stx-pair? _tl142545143525_)) + (let ((_e142661142877_ (let () (declare (not safe)) - (gx#stx-e _tl142563143543_)))) - (let ((_tl142677142900_ + (gx#stx-e _tl142545143525_)))) + (let ((_tl142659142882_ (let () (declare (not safe)) - (##cdr _e142679142895_))) - (_hd142678142898_ + (##cdr _e142661142877_))) + (_hd142660142880_ (let () (declare (not safe)) - (##car _e142679142895_)))) - (___kont150617150618_))) - (___kont150617150618_)) - (___kont150617150618_)))) + (##car _e142661142877_)))) + (___kont150599150600_))) + (___kont150599150600_)) + (___kont150599150600_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd142564143541_)) + _hd142546143523_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl142563143543_)) - (let ((_e142619143135_ + (gx#stx-pair? _tl142545143525_)) + (let ((_e142601143117_ (let () (declare (not safe)) - (gx#stx-e _tl142563143543_)))) - (let ((_tl142617143140_ + (gx#stx-e _tl142545143525_)))) + (let ((_tl142599143122_ (let () (declare (not safe)) - (##cdr _e142619143135_))) - (_hd142618143138_ + (##cdr _e142601143117_))) + (_hd142600143120_ (let () (declare (not safe)) - (##car _e142619143135_)))) + (##car _e142601143117_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142617143140_)) + (gx#stx-null? _tl142599143122_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142587143228_)) - (___kont150609150610_ - _hd142588143226_ - _hd142618143138_ - _hd142558143525_) - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)) + (gx#stx-null? _tl142569143210_)) + (___kont150591150592_ + _hd142570143208_ + _hd142600143120_ + _hd142540143507_) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd142564143541_)) + (gx#stx-eq? '%#quote-syntax _hd142546143523_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142563143543_)) - (let ((_e142679142895_ + (gx#stx-pair? _tl142545143525_)) + (let ((_e142661142877_ (let () (declare (not safe)) - (gx#stx-e _tl142563143543_)))) - (let ((_tl142677142900_ + (gx#stx-e _tl142545143525_)))) + (let ((_tl142659142882_ (let () (declare (not safe)) - (##cdr _e142679142895_))) - (_hd142678142898_ + (##cdr _e142661142877_))) + (_hd142660142880_ (let () (declare (not safe)) - (##car _e142679142895_)))) + (##car _e142661142877_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142677142900_)) + (gx#stx-null? _tl142659142882_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd142591143234_)) + (gx#stx-eq? '%#ref _hd142573143216_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142590143236_)) - (let ((_e142688142919_ + (gx#stx-pair? _tl142572143218_)) + (let ((_e142670142901_ (let () (declare (not safe)) (gx#stx-e - _tl142590143236_)))) - (let ((_tl142686142924_ + _tl142572143218_)))) + (let ((_tl142668142906_ (let () (declare (not safe)) - (##cdr _e142688142919_))) - (_hd142687142922_ + (##cdr _e142670142901_))) + (_hd142669142904_ (let () (declare (not safe)) - (##car _e142688142919_)))) + (##car _e142670142901_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142686142924_)) + _tl142668142906_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl142587143228_)) - (___kont150613150614_ - _hd142687142922_ - _hd142678142898_ - _hd142558143525_) - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)) - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)) - (___kont150617150618_)))) + _tl142569143210_)) + (___kont150595150596_ + _hd142669142904_ + _hd142660142880_ + _hd142540143507_) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)) + (___kont150599150600_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd142564143541_)) + _hd142546143523_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142563143543_)) - (let ((_e142619143135_ + _tl142545143525_)) + (let ((_e142601143117_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl142563143543_)))) - (let ((_tl142617143140_ + (gx#stx-e _tl142545143525_)))) + (let ((_tl142599143122_ (let () (declare (not safe)) - (##cdr _e142619143135_))) - (_hd142618143138_ + (##cdr _e142601143117_))) + (_hd142600143120_ (let () (declare (not safe)) - (##car _e142619143135_)))) + (##car _e142601143117_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142617143140_)) + (gx#stx-null? _tl142599143122_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142587143228_)) - (___kont150609150610_ - _hd142588143226_ - _hd142618143138_ - _hd142558143525_) - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)) + (gx#stx-null? _tl142569143210_)) + (___kont150591150592_ + _hd142570143208_ + _hd142600143120_ + _hd142540143507_) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd142564143541_)) + _hd142546143523_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl142563143543_)) - (let ((_e142679142895_ + (gx#stx-pair? _tl142545143525_)) + (let ((_e142661142877_ (let () (declare (not safe)) - (gx#stx-e _tl142563143543_)))) - (let ((_tl142677142900_ + (gx#stx-e _tl142545143525_)))) + (let ((_tl142659142882_ (let () (declare (not safe)) - (##cdr _e142679142895_))) - (_hd142678142898_ + (##cdr _e142661142877_))) + (_hd142660142880_ (let () (declare (not safe)) - (##car _e142679142895_)))) - (___kont150617150618_))) - (___kont150617150618_)) - (___kont150617150618_)))))) + (##car _e142661142877_)))) + (___kont150599150600_))) + (___kont150599150600_)) + (___kont150599150600_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd142564143541_)) + _hd142546143523_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142563143543_)) - (let ((_e142619143135_ + _tl142545143525_)) + (let ((_e142601143117_ (let () (declare (not safe)) (gx#stx-e - _tl142563143543_)))) - (let ((_tl142617143140_ + _tl142545143525_)))) + (let ((_tl142599143122_ (let () (declare (not safe)) - (##cdr _e142619143135_))) - (_hd142618143138_ + (##cdr _e142601143117_))) + (_hd142600143120_ (let () (declare (not safe)) - (##car _e142619143135_)))) + (##car _e142601143117_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142617143140_)) + _tl142599143122_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl142587143228_)) - (___kont150609150610_ - _hd142588143226_ - _hd142618143138_ - _hd142558143525_) - (___kont150617150618_)) - (___kont150617150618_)))) + (gx#stx-null? _tl142569143210_)) + (___kont150591150592_ + _hd142570143208_ + _hd142600143120_ + _hd142540143507_) + (___kont150599150600_)) + (___kont150599150600_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150617150618_)) + (___kont150599150600_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd142564143541_)) + _hd142546143523_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142563143543_)) - (let ((_e142679142895_ + _tl142545143525_)) + (let ((_e142661142877_ (let () (declare (not safe)) (gx#stx-e - _tl142563143543_)))) - (let ((_tl142677142900_ + _tl142545143525_)))) + (let ((_tl142659142882_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e142679142895_))) - (_hd142678142898_ - (let () (declare (not safe)) (##car _e142679142895_)))) - (___kont150617150618_))) + (##cdr _e142661142877_))) + (_hd142660142880_ + (let () (declare (not safe)) (##car _e142661142877_)))) + (___kont150599150600_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150617150618_)) - (___kont150617150618_)))))) + (___kont150599150600_)) + (___kont150599150600_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd142564143541_)) + (gx#stx-eq? '%#quote _hd142546143523_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142563143543_)) - (let ((_e142619143135_ + (gx#stx-pair? _tl142545143525_)) + (let ((_e142601143117_ (let () (declare (not safe)) (gx#stx-e - _tl142563143543_)))) - (let ((_tl142617143140_ + _tl142545143525_)))) + (let ((_tl142599143122_ (let () (declare (not safe)) - (##cdr _e142619143135_))) - (_hd142618143138_ + (##cdr _e142601143117_))) + (_hd142600143120_ (let () (declare (not safe)) - (##car _e142619143135_)))) - (___kont150617150618_))) - (___kont150617150618_)) + (##car _e142601143117_)))) + (___kont150599150600_))) + (___kont150599150600_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd142564143541_)) + _hd142546143523_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142563143543_)) - (let ((_e142679142895_ + (gx#stx-pair? _tl142545143525_)) + (let ((_e142661142877_ (let () (declare (not safe)) (gx#stx-e - _tl142563143543_)))) - (let ((_tl142677142900_ + _tl142545143525_)))) + (let ((_tl142659142882_ (let () (declare (not safe)) - (##cdr _e142679142895_))) - (_hd142678142898_ + (##cdr _e142661142877_))) + (_hd142660142880_ (let () (declare (not safe)) - (##car _e142679142895_)))) - (___kont150617150618_))) - (___kont150617150618_)) - (___kont150617150618_))))) + (##car _e142661142877_)))) + (___kont150599150600_))) + (___kont150599150600_)) + (___kont150599150600_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142560143535_)) - (let ((_e142589143223_ + (gx#stx-pair? _tl142542143517_)) + (let ((_e142571143205_ (let () (declare (not safe)) - (gx#stx-e _tl142560143535_)))) - (let ((_tl142587143228_ + (gx#stx-e _tl142542143517_)))) + (let ((_tl142569143210_ (let () (declare (not safe)) - (##cdr _e142589143223_))) - (_hd142588143226_ + (##cdr _e142571143205_))) + (_hd142570143208_ (let () (declare (not safe)) - (##car _e142589143223_)))) + (##car _e142571143205_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142588143226_)) - (let ((_e142592143231_ + (gx#stx-pair? _hd142570143208_)) + (let ((_e142574143213_ (let () (declare (not safe)) - (gx#stx-e _hd142588143226_)))) - (let ((_tl142590143236_ + (gx#stx-e _hd142570143208_)))) + (let ((_tl142572143218_ (let () (declare (not safe)) - (##cdr _e142592143231_))) - (_hd142591143234_ + (##cdr _e142574143213_))) + (_hd142573143216_ (let () (declare (not safe)) - (##car _e142592143231_)))) + (##car _e142574143213_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd142591143234_)) + _hd142573143216_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd142591143234_)) + _hd142573143216_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142590143236_)) - (let ((_e142595143239_ + _tl142572143218_)) + (let ((_e142577143221_ (let () (declare (not safe)) (gx#stx-e - _tl142590143236_)))) - (let ((_tl142593143244_ + _tl142572143218_)))) + (let ((_tl142575143226_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e142595143239_))) - (_hd142594143242_ - (let () (declare (not safe)) (##car _e142595143239_)))) + (##cdr _e142577143221_))) + (_hd142576143224_ + (let () (declare (not safe)) (##car _e142577143221_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142593143244_)) + (gx#stx-null? _tl142575143226_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142587143228_)) - (___kont150607150608_ - _hd142594143242_ - _hd142561143533_ - _hd142558143525_) - (___kont150617150618_)) - (___kont150617150618_)))) + (gx#stx-null? _tl142569143210_)) + (___kont150589150590_ + _hd142576143224_ + _hd142543143515_ + _hd142540143507_) + (___kont150599150600_)) + (___kont150599150600_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150617150618_)) - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)))) - (___kont150617150618_))))) + (___kont150599150600_)) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)))) + (___kont150599150600_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142560143535_)) - (let ((_e142589143223_ + (gx#stx-pair? _tl142542143517_)) + (let ((_e142571143205_ (let () (declare (not safe)) - (gx#stx-e _tl142560143535_)))) - (let ((_tl142587143228_ + (gx#stx-e _tl142542143517_)))) + (let ((_tl142569143210_ (let () (declare (not safe)) - (##cdr _e142589143223_))) - (_hd142588143226_ + (##cdr _e142571143205_))) + (_hd142570143208_ (let () (declare (not safe)) - (##car _e142589143223_)))) + (##car _e142571143205_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142588143226_)) - (let ((_e142592143231_ + (gx#stx-pair? _hd142570143208_)) + (let ((_e142574143213_ (let () (declare (not safe)) - (gx#stx-e _hd142588143226_)))) - (let ((_tl142590143236_ + (gx#stx-e _hd142570143208_)))) + (let ((_tl142572143218_ (let () (declare (not safe)) - (##cdr _e142592143231_))) - (_hd142591143234_ + (##cdr _e142574143213_))) + (_hd142573143216_ (let () (declare (not safe)) - (##car _e142592143231_)))) + (##car _e142574143213_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142591143234_)) + (gx#identifier? _hd142573143216_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd142591143234_)) + _hd142573143216_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142590143236_)) - (let ((_e142595143239_ + (gx#stx-pair? _tl142572143218_)) + (let ((_e142577143221_ (let () (declare (not safe)) (gx#stx-e - _tl142590143236_)))) - (let ((_tl142593143244_ + _tl142572143218_)))) + (let ((_tl142575143226_ (let () (declare (not safe)) - (##cdr _e142595143239_))) - (_hd142594143242_ + (##cdr _e142577143221_))) + (_hd142576143224_ (let () (declare (not safe)) - (##car _e142595143239_)))) + (##car _e142577143221_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142593143244_)) + _tl142575143226_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl142587143228_)) - (___kont150607150608_ - _hd142594143242_ - _hd142561143533_ - _hd142558143525_) - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)) - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)))) - (___kont150617150618_))))) + _tl142569143210_)) + (___kont150589150590_ + _hd142576143224_ + _hd142543143515_ + _hd142540143507_) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)))) + (___kont150599150600_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd142555143517_)) + (gx#stx-eq? '%#lambda _hd142537143499_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142554143519_)) - (let ((_e142703142759_ + (gx#stx-pair? _tl142536143501_)) + (let ((_e142685142741_ (let () (declare (not safe)) (gx#stx-e - _tl142554143519_)))) - (let ((_tl142701142764_ + _tl142536143501_)))) + (let ((_tl142683142746_ (let () (declare (not safe)) - (##cdr _e142703142759_))) - (_hd142702142762_ + (##cdr _e142685142741_))) + (_hd142684142744_ (let () (declare (not safe)) - (##car _e142703142759_)))) + (##car _e142685142741_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd142702142762_)) - (let ((_e142706142767_ + _hd142684142744_)) + (let ((_e142688142749_ (let () (declare (not safe)) (gx#stx-e - _hd142702142762_)))) - (let ((_tl142704142772_ + _hd142684142744_)))) + (let ((_tl142686142754_ (let () (declare (not safe)) - (##cdr _e142706142767_))) - (_hd142705142770_ + (##cdr _e142688142749_))) + (_hd142687142752_ (let () (declare (not safe)) - (##car _e142706142767_)))) + (##car _e142688142749_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142704142772_)) + _tl142686142754_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl142701142764_)) - (let ((_e142709142775_ + (gx#stx-pair? _tl142683142746_)) + (let ((_e142691142757_ (let () (declare (not safe)) - (gx#stx-e _tl142701142764_)))) - (let ((_tl142707142780_ + (gx#stx-e _tl142683142746_)))) + (let ((_tl142689142762_ (let () (declare (not safe)) - (##cdr _e142709142775_))) - (_hd142708142778_ + (##cdr _e142691142757_))) + (_hd142690142760_ (let () (declare (not safe)) - (##car _e142709142775_)))) + (##car _e142691142757_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142707142780_)) + (gx#stx-null? _tl142689142762_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142551143511_)) - (let ((_e142712142783_ + (gx#stx-pair? _tl142533143493_)) + (let ((_e142694142765_ (let () (declare (not safe)) - (gx#stx-e _tl142551143511_)))) - (let ((_tl142710142788_ + (gx#stx-e _tl142533143493_)))) + (let ((_tl142692142770_ (let () (declare (not safe)) - (##cdr _e142712142783_))) - (_hd142711142786_ + (##cdr _e142694142765_))) + (_hd142693142768_ (let () (declare (not safe)) - (##car _e142712142783_)))) + (##car _e142694142765_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142711142786_)) - (let ((_e142715142791_ + (gx#stx-pair? _hd142693142768_)) + (let ((_e142697142773_ (let () (declare (not safe)) (gx#stx-e - _hd142711142786_)))) - (let ((_tl142713142796_ + _hd142693142768_)))) + (let ((_tl142695142778_ (let () (declare (not safe)) - (##cdr _e142715142791_))) - (_hd142714142794_ + (##cdr _e142697142773_))) + (_hd142696142776_ (let () (declare (not safe)) - (##car _e142715142791_)))) + (##car _e142697142773_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd142714142794_)) + _hd142696142776_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd142714142794_)) + _hd142696142776_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142713142796_)) - (let ((_e142718142799_ + _tl142695142778_)) + (let ((_e142700142781_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl142713142796_)))) - (let ((_tl142716142804_ + (gx#stx-e _tl142695142778_)))) + (let ((_tl142698142786_ (let () (declare (not safe)) - (##cdr _e142718142799_))) - (_hd142717142802_ + (##cdr _e142700142781_))) + (_hd142699142784_ (let () (declare (not safe)) - (##car _e142718142799_)))) + (##car _e142700142781_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142716142804_)) + (gx#stx-null? _tl142698142786_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl142710142788_)) - (___kont150615150616_ - _hd142717142802_ - _hd142708142778_ - _hd142705142770_) - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)) + (gx#stx-null? _tl142692142770_)) + (___kont150597150598_ + _hd142699142784_ + _hd142690142760_ + _hd142687142752_) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)))) - (___kont150617150618_)) - (___kont150617150618_)))) - (___kont150617150618_)) - (___kont150617150618_)))) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)))) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_)) + (___kont150599150600_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont150617150618_)))) - (___kont150617150618_)) - (___kont150617150618_))) - (___kont150617150618_)))) - (___kont150617150618_)))) + (___kont150599150600_)))) + (___kont150599150600_)) + (___kont150599150600_))) + (___kont150599150600_)))) + (___kont150599150600_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_ + (___kont150599150600_)) + (___kont150599150600_)) + (___kont150599150600_)))) + (___kont150599150600_))))))))) + (_assert-type141512_ + (lambda (_id142411_ _t142412_) + (let _lp142414_ ((_rest142416_ _env-type141494_)) + (let* ((_rest142417142425_ _rest142416_) + (_else142419142433_ (lambda () '#!void)) + (_K142421142497_ + (lambda (_rest142436_ _type-info142437_) + (let* ((_type-info142438142450_ + _type-info142437_) + (_else142440142458_ (lambda () (let () (declare (not safe)) - (_lp142432_ _rest142454_)))) - (_K142460142491_ - (lambda (_val142479_ - _xt142480_ - _xid142481_) + (_lp142414_ _rest142436_)))) + (_K142442142473_ + (lambda (_val142461_ + _xt142462_ + _xid142463_) (if (let () (declare (not safe)) (gx#free-identifier=? - _id142429_ - _xid142481_)) + _id142411_ + _xid142463_)) (if (let () (declare (not safe)) - (eq? _t142430_ - _xt142480_)) - _val142479_ - (if _val142479_ + (eq? _t142412_ + _xt142462_)) + _val142461_ + (if _val142461_ (if (let () (declare (not safe)) (##structure-instance-of? - _t142430_ + _t142412_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##structure-instance-of? _xt142480_ 'gxc#!class::t)) - (memq _t142430_ - (map (lambda (_g142482142484_) + (##structure-instance-of? _xt142462_ 'gxc#!class::t)) + (memq _t142412_ + (map (lambda (_g142464142466_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _xt142480_ - _g142482142484_))) + _xt142462_ + _g142464142466_))) (##structure-ref - _xt142480_ + _xt142462_ '3 gxc#!class::t '#f))) @@ -11341,3519 +11341,3519 @@ '#f) (if (and (let () (declare (not safe)) - (##structure-instance-of? _t142430_ 'gxc#!class::t)) + (##structure-instance-of? _t142412_ 'gxc#!class::t)) (let () (declare (not safe)) - (##structure-instance-of? _xt142480_ 'gxc#!class::t)) - (memq _xt142480_ - (map (lambda (_g142486142488_) + (##structure-instance-of? _xt142462_ 'gxc#!class::t)) + (memq _xt142462_ + (map (lambda (_g142468142470_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _t142430_ - _g142486142488_))) + _t142412_ + _g142468142470_))) (##structure-ref - _t142430_ + _t142412_ '3 gxc#!class::t '#f)))) '#f - (let () (declare (not safe)) (_lp142432_ _rest142454_))))) + (let () (declare (not safe)) (_lp142414_ _rest142436_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp142432_ _rest142454_)))))) + (_lp142414_ _rest142436_)))))) (if (let () (declare (not safe)) - (##pair? _type-info142456142468_)) - (let ((_hd142461142494_ + (##pair? _type-info142438142450_)) + (let ((_hd142443142476_ (let () (declare (not safe)) - (##car _type-info142456142468_))) - (_tl142462142496_ + (##car _type-info142438142450_))) + (_tl142444142478_ (let () (declare (not safe)) - (##cdr _type-info142456142468_)))) - (let ((_xid142499_ _hd142461142494_)) + (##cdr _type-info142438142450_)))) + (let ((_xid142481_ _hd142443142476_)) (if (let () (declare (not safe)) - (##pair? _tl142462142496_)) - (let ((_hd142463142501_ + (##pair? _tl142444142478_)) + (let ((_hd142445142483_ (let () (declare (not safe)) - (##car _tl142462142496_))) - (_tl142464142503_ + (##car _tl142444142478_))) + (_tl142446142485_ (let () (declare (not safe)) - (##cdr _tl142462142496_)))) - (let ((_xt142506_ - _hd142463142501_)) + (##cdr _tl142444142478_)))) + (let ((_xt142488_ + _hd142445142483_)) (if (let () (declare (not safe)) - (##pair? _tl142464142503_)) - (let ((_hd142465142508_ + (##pair? _tl142446142485_)) + (let ((_hd142447142490_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl142464142503_))) - (_tl142466142510_ - (let () (declare (not safe)) (##cdr _tl142464142503_)))) - (let ((_val142513_ _hd142465142508_)) - (if (let () (declare (not safe)) (##null? _tl142466142510_)) + (##car _tl142446142485_))) + (_tl142448142492_ + (let () (declare (not safe)) (##cdr _tl142446142485_)))) + (let ((_val142495_ _hd142447142490_)) + (if (let () (declare (not safe)) (##null? _tl142448142492_)) (let () (declare (not safe)) - (_K142460142491_ _val142513_ _xt142506_ _xid142499_)) - (let () (declare (not safe)) (_else142458142476_))))) - (let () (declare (not safe)) (_else142458142476_))))) + (_K142442142473_ _val142495_ _xt142488_ _xid142481_)) + (let () (declare (not safe)) (_else142440142458_))))) + (let () (declare (not safe)) (_else142440142458_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else142458142476_))))) + (_else142440142458_))))) (let () (declare (not safe)) - (_else142458142476_))))))) + (_else142440142458_))))))) (if (let () (declare (not safe)) - (##pair? _rest142435142443_)) - (let ((_hd142440142518_ + (##pair? _rest142417142425_)) + (let ((_hd142422142500_ (let () (declare (not safe)) - (##car _rest142435142443_))) - (_tl142441142520_ + (##car _rest142417142425_))) + (_tl142423142502_ (let () (declare (not safe)) - (##cdr _rest142435142443_)))) - (let* ((_type-info142523_ _hd142440142518_) - (_rest142525_ _tl142441142520_)) + (##cdr _rest142417142425_)))) + (let* ((_type-info142505_ _hd142422142500_) + (_rest142507_ _tl142423142502_)) (declare (not safe)) - (_K142439142515_ - _rest142525_ - _type-info142523_))) + (_K142421142497_ + _rest142507_ + _type-info142505_))) (let () (declare (not safe)) - (_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_ + (_else142419142433_))))))) + (_assert-count141513_ + (lambda (_id142310_ _sym142311_ _count142312_) + (let _lp142314_ ((_rest142316_ _env-type141494_)) + (let* ((_rest142317142325_ _rest142316_) + (_else142319142333_ (lambda () '#!void)) + (_K142321142399_ + (lambda (_rest142336_ _type-info142337_) + (let* ((_type-info142338142352_ + _type-info142337_) + (_else142340142360_ (lambda () (let () (declare (not safe)) - (_lp142332_ _rest142354_)))) - (_K142360142386_ - (lambda (_val142381_ - _xcount142382_ - _xsym142383_ - _xid142384_) + (_lp142314_ _rest142336_)))) + (_K142342142368_ + (lambda (_val142363_ + _xcount142364_ + _xsym142365_ + _xid142366_) (if (and (let () (declare (not safe)) - (eq? _sym142329_ - _xsym142383_)) + (eq? _sym142311_ + _xsym142365_)) (let () (declare (not safe)) (gx#free-identifier=? - _id142328_ - _xid142384_))) - (if _val142381_ - (fx= _count142330_ - _xcount142382_) - (if (fx= _count142330_ - _xcount142382_) + _id142310_ + _xid142366_))) + (if _val142363_ + (fx= _count142312_ + _xcount142364_) + (if (fx= _count142312_ + _xcount142364_) '#f (let () (declare (not safe)) - (_lp142332_ - _rest142354_)))) + (_lp142314_ + _rest142336_)))) (let () (declare (not safe)) - (_lp142332_ _rest142354_)))))) + (_lp142314_ _rest142336_)))))) (if (let () (declare (not safe)) - (##pair? _type-info142356142370_)) - (let ((_hd142361142389_ + (##pair? _type-info142338142352_)) + (let ((_hd142343142371_ (let () (declare (not safe)) - (##car _type-info142356142370_))) - (_tl142362142391_ + (##car _type-info142338142352_))) + (_tl142344142373_ (let () (declare (not safe)) - (##cdr _type-info142356142370_)))) - (let ((_xid142394_ _hd142361142389_)) + (##cdr _type-info142338142352_)))) + (let ((_xid142376_ _hd142343142371_)) (if (let () (declare (not safe)) - (##pair? _tl142362142391_)) - (let ((_hd142363142396_ + (##pair? _tl142344142373_)) + (let ((_hd142345142378_ (let () (declare (not safe)) - (##car _tl142362142391_))) - (_tl142364142398_ + (##car _tl142344142373_))) + (_tl142346142380_ (let () (declare (not safe)) - (##cdr _tl142362142391_)))) - (let ((_xsym142401_ - _hd142363142396_)) + (##cdr _tl142344142373_)))) + (let ((_xsym142383_ + _hd142345142378_)) (if (let () (declare (not safe)) - (##pair? _tl142364142398_)) - (let ((_hd142365142403_ + (##pair? _tl142346142380_)) + (let ((_hd142347142385_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl142364142398_))) - (_tl142366142405_ - (let () (declare (not safe)) (##cdr _tl142364142398_)))) - (let ((_xcount142408_ _hd142365142403_)) - (if (let () (declare (not safe)) (##pair? _tl142366142405_)) - (let ((_hd142367142410_ + (##car _tl142346142380_))) + (_tl142348142387_ + (let () (declare (not safe)) (##cdr _tl142346142380_)))) + (let ((_xcount142390_ _hd142347142385_)) + (if (let () (declare (not safe)) (##pair? _tl142348142387_)) + (let ((_hd142349142392_ (let () (declare (not safe)) - (##car _tl142366142405_))) - (_tl142368142412_ + (##car _tl142348142387_))) + (_tl142350142394_ (let () (declare (not safe)) - (##cdr _tl142366142405_)))) - (let ((_val142415_ _hd142367142410_)) + (##cdr _tl142348142387_)))) + (let ((_val142397_ _hd142349142392_)) (if (let () (declare (not safe)) - (##null? _tl142368142412_)) + (##null? _tl142350142394_)) (let () (declare (not safe)) - (_K142360142386_ - _val142415_ - _xcount142408_ - _xsym142401_ - _xid142394_)) + (_K142342142368_ + _val142397_ + _xcount142390_ + _xsym142383_ + _xid142376_)) (let () (declare (not safe)) - (_else142358142378_))))) - (let () (declare (not safe)) (_else142358142378_))))) - (let () (declare (not safe)) (_else142358142378_))))) + (_else142340142360_))))) + (let () (declare (not safe)) (_else142340142360_))))) + (let () (declare (not safe)) (_else142340142360_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else142358142378_))))) + (_else142340142360_))))) (let () (declare (not safe)) - (_else142358142378_))))))) + (_else142340142360_))))))) (if (let () (declare (not safe)) - (##pair? _rest142335142343_)) - (let ((_hd142340142420_ + (##pair? _rest142317142325_)) + (let ((_hd142322142402_ (let () (declare (not safe)) - (##car _rest142335142343_))) - (_tl142341142422_ + (##car _rest142317142325_))) + (_tl142323142404_ (let () (declare (not safe)) - (##cdr _rest142335142343_)))) - (let* ((_type-info142425_ _hd142340142420_) - (_rest142427_ _tl142341142422_)) + (##cdr _rest142317142325_)))) + (let* ((_type-info142407_ _hd142322142402_) + (_rest142409_ _tl142323142404_)) (declare (not safe)) - (_K142339142417_ - _rest142427_ - _type-info142425_))) + (_K142321142399_ + _rest142409_ + _type-info142407_))) (let () (declare (not safe)) - (_else142337142351_))))))) - (_assert-eqf141532_ - (lambda (_id142218_ _sym142219_ _datum142220_) - (letrec ((_eqf142222_ - (lambda (_sym142323_) - (let ((_$e142325_ _sym142323_)) + (_else142319142333_))))))) + (_assert-eqf141514_ + (lambda (_id142200_ _sym142201_ _datum142202_) + (letrec ((_eqf142204_ + (lambda (_sym142305_) + (let ((_$e142307_ _sym142305_)) (if (let () (declare (not safe)) - (eq? 'eq? _$e142325_)) + (eq? 'eq? _$e142307_)) eq? (if (let () (declare (not safe)) - (eq? 'eqv? _$e142325_)) + (eq? 'eqv? _$e142307_)) eqv? (if (let () (declare (not safe)) - (eq? 'equal? _$e142325_)) + (eq? 'equal? _$e142307_)) equal? (if (let () (declare (not safe)) (eq? 'free-identifier=? - _$e142325_)) + _$e142307_)) gx#free-identifier=? (if (let () (declare (not safe)) (eq? 'stx-eq? - _$e142325_)) + _$e142307_)) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _body141273_ - _sym142323_))))))))))) - (let _lp142224_ ((_rest142226_ _env-type141512_)) - (let* ((_rest142227142235_ _rest142226_) - (_else142229142243_ (lambda () '#!void)) - (_K142231142311_ - (lambda (_rest142246_ _type-info142247_) - (let* ((_type-info142248142262_ - _type-info142247_) - (_else142250142270_ + _body141255_ + _sym142305_))))))))))) + (let _lp142206_ ((_rest142208_ _env-type141494_)) + (let* ((_rest142209142217_ _rest142208_) + (_else142211142225_ (lambda () '#!void)) + (_K142213142293_ + (lambda (_rest142228_ _type-info142229_) + (let* ((_type-info142230142244_ + _type-info142229_) + (_else142232142252_ (lambda () (let () (declare (not safe)) - (_lp142224_ _rest142246_)))) - (_K142252142280_ - (lambda (_val142273_ - _xdatum142274_ - _xsym142275_ - _xid142276_) + (_lp142206_ _rest142228_)))) + (_K142234142262_ + (lambda (_val142255_ + _xdatum142256_ + _xsym142257_ + _xid142258_) (if (and (let () (declare (not safe)) - (eq? _sym142219_ - _xsym142275_)) + (eq? _sym142201_ + _xsym142257_)) (let () (declare (not safe)) (gx#free-identifier=? - _id142218_ - _xid142276_))) - (let ((_=?142278_ + _id142200_ + _xid142258_))) + (let ((_=?142260_ (let () (declare (not safe)) - (_eqf142222_ - _sym142219_)))) - (if _val142273_ - (_=?142278_ - _datum142220_ - _xdatum142274_) - (if (_=?142278_ - _datum142220_ - _xdatum142274_) + (_eqf142204_ + _sym142201_)))) + (if _val142255_ + (_=?142260_ + _datum142202_ + _xdatum142256_) + (if (_=?142260_ + _datum142202_ + _xdatum142256_) '#f (let () (declare (not safe)) - (_lp142224_ - _rest142246_))))) + (_lp142206_ + _rest142228_))))) (let () (declare (not safe)) - (_lp142224_ - _rest142246_)))))) + (_lp142206_ + _rest142228_)))))) (if (let () (declare (not safe)) - (##pair? _type-info142248142262_)) - (let ((_hd142253142283_ + (##pair? _type-info142230142244_)) + (let ((_hd142235142265_ (let () (declare (not safe)) - (##car _type-info142248142262_))) - (_tl142254142285_ + (##car _type-info142230142244_))) + (_tl142236142267_ (let () (declare (not safe)) - (##cdr _type-info142248142262_)))) - (let ((_xid142288_ - _hd142253142283_)) + (##cdr _type-info142230142244_)))) + (let ((_xid142270_ + _hd142235142265_)) (if (let () (declare (not safe)) - (##pair? _tl142254142285_)) - (let ((_hd142255142290_ + (##pair? _tl142236142267_)) + (let ((_hd142237142272_ (let () (declare (not safe)) - (##car _tl142254142285_))) - (_tl142256142292_ + (##car _tl142236142267_))) + (_tl142238142274_ (let () (declare (not safe)) - (##cdr _tl142254142285_)))) - (let ((_xsym142295_ - _hd142255142290_)) + (##cdr _tl142236142267_)))) + (let ((_xsym142277_ + _hd142237142272_)) (if (let () (declare (not safe)) - (##pair? _tl142256142292_)) - (let ((_hd142257142297_ + (##pair? _tl142238142274_)) + (let ((_hd142239142279_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _tl142256142292_))) - (_tl142258142299_ + (##car _tl142238142274_))) + (_tl142240142281_ (let () (declare (not safe)) - (##cdr _tl142256142292_)))) - (let ((_xdatum142302_ _hd142257142297_)) + (##cdr _tl142238142274_)))) + (let ((_xdatum142284_ _hd142239142279_)) (if (let () (declare (not safe)) - (##pair? _tl142258142299_)) - (let ((_hd142259142304_ + (##pair? _tl142240142281_)) + (let ((_hd142241142286_ (let () (declare (not safe)) - (##car _tl142258142299_))) - (_tl142260142306_ + (##car _tl142240142281_))) + (_tl142242142288_ (let () (declare (not safe)) - (##cdr _tl142258142299_)))) - (let ((_val142309_ _hd142259142304_)) + (##cdr _tl142240142281_)))) + (let ((_val142291_ _hd142241142286_)) (if (let () (declare (not safe)) - (##null? _tl142260142306_)) + (##null? _tl142242142288_)) (let () (declare (not safe)) - (_K142252142280_ - _val142309_ - _xdatum142302_ - _xsym142295_ - _xid142288_)) + (_K142234142262_ + _val142291_ + _xdatum142284_ + _xsym142277_ + _xid142270_)) (let () (declare (not safe)) - (_else142250142270_))))) - (let () (declare (not safe)) (_else142250142270_))))) - (let () (declare (not safe)) (_else142250142270_))))) + (_else142232142252_))))) + (let () (declare (not safe)) (_else142232142252_))))) + (let () (declare (not safe)) (_else142232142252_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else142250142270_))))) + (_else142232142252_))))) (let () (declare (not safe)) - (_else142250142270_))))))) + (_else142232142252_))))))) (if (let () (declare (not safe)) - (##pair? _rest142227142235_)) - (let ((_hd142232142314_ + (##pair? _rest142209142217_)) + (let ((_hd142214142296_ (let () (declare (not safe)) - (##car _rest142227142235_))) - (_tl142233142316_ + (##car _rest142209142217_))) + (_tl142215142298_ (let () (declare (not safe)) - (##cdr _rest142227142235_)))) - (let* ((_type-info142319_ _hd142232142314_) - (_rest142321_ _tl142233142316_)) + (##cdr _rest142209142217_)))) + (let* ((_type-info142301_ _hd142214142296_) + (_rest142303_ _tl142215142298_)) (declare (not safe)) - (_K142231142311_ - _rest142321_ - _type-info142319_))) + (_K142213142293_ + _rest142303_ + _type-info142301_))) (let () (declare (not safe)) - (_else142229142243_)))))))) - (_bind-e__148986148987_ - (lambda (_bind142121_ _body142122_ _continue142123_) - (let _lp142125_ ((_rest142127_ _bind142121_) - (_subst142128_ '()) - (_locals142129_ '()) - (_env142130_ _env-bind141513_)) - (let* ((_rest142131142139_ _rest142127_) - (_else142133142153_ + (_else142211142225_)))))))) + (_bind-e__148968148969_ + (lambda (_bind142103_ _body142104_ _continue142105_) + (let _lp142107_ ((_rest142109_ _bind142103_) + (_subst142110_ '()) + (_locals142111_ '()) + (_env142112_ _env-bind141495_)) + (let* ((_rest142113142121_ _rest142109_) + (_else142115142135_ (lambda () - (let* ((_body142147_ + (let* ((_body142129_ (if (let () (declare (not safe)) - (null? _subst142128_)) - _body142122_ + (null? _subst142110_)) + _body142104_ (let () (declare (not safe)) (gxc#apply-expression-subst* - _body142122_ + _body142104_ 'subst: - _subst142128_)))) - (_body142150_ - (let ((__tmp152438 + _subst142110_)))) + (_body142132_ + (let ((__tmp152420 (lambda () - (_continue142123_ - _body142147_)))) + (_continue142105_ + _body142129_)))) (declare (not safe)) - (_do-bind!141524_ - _env142130_ - __tmp152438)))) + (_do-bind!141506_ + _env142112_ + __tmp152420)))) (if (let () (declare (not safe)) - (null? _locals142129_)) - _body142150_ - (let ((__tmp152439 - (let ((__tmp152440 + (null? _locals142111_)) + _body142132_ + (let ((__tmp152421 + (let ((__tmp152422 (let () (declare (not safe)) - (cons _body142150_ + (cons _body142132_ '())))) (declare (not safe)) - (cons _locals142129_ - __tmp152440)))) + (cons _locals142111_ + __tmp152422)))) (declare (not safe)) - (cons '%#let-values __tmp152439)))))) - (_K142135142194_ - (lambda (_rest142156_ _bind142157_) - (let* ((_bind142158142165_ _bind142157_) - (_E142160142169_ + (cons '%#let-values __tmp152421)))))) + (_K142117142176_ + (lambda (_rest142138_ _bind142139_) + (let* ((_bind142140142147_ _bind142139_) + (_E142142142151_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _bind142158142165_)))) - (_K142161142182_ - (lambda (_expr142172_ _id142173_) - (let* ((_sexpr142175_ + _bind142140142147_)))) + (_K142143142164_ + (lambda (_expr142154_ _id142155_) + (let* ((_sexpr142157_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr142172_))) - (_$e142177_ + _expr142154_))) + (_$e142159_ (let () (declare (not safe)) (assget__0 - _sexpr142175_ - _env-bind141513_)))) - (if _$e142177_ - ((lambda (_xid142180_) - (let ((__tmp152447 - (let ((__tmp152448 + _sexpr142157_ + _env-bind141495_)))) + (if _$e142159_ + ((lambda (_xid142162_) + (let ((__tmp152429 + (let ((__tmp152430 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id142173_ _xid142180_)))) + (cons _id142155_ _xid142162_)))) (declare (not safe)) - (cons __tmp152448 _subst142128_)))) + (cons __tmp152430 _subst142110_)))) (declare (not safe)) - (_lp142125_ - _rest142156_ - __tmp152447 - _locals142129_ - _env142130_))) + (_lp142107_ + _rest142138_ + __tmp152429 + _locals142111_ + _env142112_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e142177_) - (let ((__tmp152443 - (let ((__tmp152444 - (let ((__tmp152446 + _$e142159_) + (let ((__tmp152425 + (let ((__tmp152426 + (let ((__tmp152428 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id142173_ '()))) - (__tmp152445 + (cons _id142155_ '()))) + (__tmp152427 (let () (declare (not safe)) - (cons _expr142172_ '())))) + (cons _expr142154_ '())))) (declare (not safe)) - (cons __tmp152446 __tmp152445)))) + (cons __tmp152428 __tmp152427)))) (declare (not safe)) - (cons __tmp152444 _locals142129_))) - (__tmp152441 - (let ((__tmp152442 + (cons __tmp152426 _locals142111_))) + (__tmp152423 + (let ((__tmp152424 (let () (declare (not safe)) - (cons _sexpr142175_ _id142173_)))) + (cons _sexpr142157_ _id142155_)))) (declare (not safe)) - (cons __tmp152442 _env142130_)))) + (cons __tmp152424 _env142112_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp142125_ - _rest142156_ - _subst142128_ - __tmp152443 - __tmp152441))))))) + (_lp142107_ + _rest142138_ + _subst142110_ + __tmp152425 + __tmp152423))))))) (if (let () (declare (not safe)) - (##pair? _bind142158142165_)) - (let ((_hd142162142185_ + (##pair? _bind142140142147_)) + (let ((_hd142144142167_ (let () (declare (not safe)) - (##car _bind142158142165_))) - (_tl142163142187_ + (##car _bind142140142147_))) + (_tl142145142169_ (let () (declare (not safe)) - (##cdr _bind142158142165_)))) - (let* ((_id142190_ _hd142162142185_) - (_expr142192_ - _tl142163142187_)) + (##cdr _bind142140142147_)))) + (let* ((_id142172_ _hd142144142167_) + (_expr142174_ + _tl142145142169_)) (declare (not safe)) - (_K142161142182_ - _expr142192_ - _id142190_))) + (_K142143142164_ + _expr142174_ + _id142172_))) (let () (declare (not safe)) - (_E142160142169_))))))) + (_E142142142151_))))))) (if (let () (declare (not safe)) - (##pair? _rest142131142139_)) - (let ((_hd142136142197_ + (##pair? _rest142113142121_)) + (let ((_hd142118142179_ (let () (declare (not safe)) - (##car _rest142131142139_))) - (_tl142137142199_ + (##car _rest142113142121_))) + (_tl142119142181_ (let () (declare (not safe)) - (##cdr _rest142131142139_)))) - (let* ((_bind142202_ _hd142136142197_) - (_rest142204_ _tl142137142199_)) + (##cdr _rest142113142121_)))) + (let* ((_bind142184_ _hd142118142179_) + (_rest142186_ _tl142119142181_)) (declare (not safe)) - (_K142135142194_ _rest142204_ _bind142202_))) + (_K142117142176_ _rest142186_ _bind142184_))) (let () (declare (not safe)) - (_else142133142153_))))))) - (_bind-e__0__148988148989_ - (lambda (_bind142209_ _body142210_) - (let ((_continue142212_ _optimize-e141526_)) + (_else142115142135_))))))) + (_bind-e__0__148970148971_ + (lambda (_bind142191_ _body142192_) + (let ((_continue142194_ _optimize-e141508_)) (declare (not safe)) - (_bind-e__148986148987_ - _bind142209_ - _body142210_ - _continue142212_)))) - (_bind-e141533_ - (lambda _g152450_ - (let ((_g152449_ + (_bind-e__148968148969_ + _bind142191_ + _body142192_ + _continue142194_)))) + (_bind-e141515_ + (lambda _g152432_ + (let ((_g152431_ (let () (declare (not safe)) - (##length _g152450_)))) - (cond ((let () (declare (not safe)) (##fx= _g152449_ 2)) - (apply (lambda (_bind142209_ _body142210_) + (##length _g152432_)))) + (cond ((let () (declare (not safe)) (##fx= _g152431_ 2)) + (apply (lambda (_bind142191_ _body142192_) (let () (declare (not safe)) - (_bind-e__0__148988148989_ - _bind142209_ - _body142210_))) - _g152450_)) - ((let () (declare (not safe)) (##fx= _g152449_ 3)) - (apply (lambda (_bind142214_ - _body142215_ - _continue142216_) + (_bind-e__0__148970148971_ + _bind142191_ + _body142192_))) + _g152432_)) + ((let () (declare (not safe)) (##fx= _g152431_ 3)) + (apply (lambda (_bind142196_ + _body142197_ + _continue142198_) (let () (declare (not safe)) - (_bind-e__148986148987_ - _bind142214_ - _body142215_ - _continue142216_))) - _g152450_)) + (_bind-e__148968148969_ + _bind142196_ + _body142197_ + _continue142198_))) + _g152432_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g152450_)))))) - (_lookup-block141534_ - (lambda (_id142116_) - (let ((__tmp152451 - (lambda (_block142118_) - (let ((__tmp152452 (car _block142118_))) + _g152432_)))))) + (_lookup-block141516_ + (lambda (_id142098_) + (let ((__tmp152433 + (lambda (_block142100_) + (let ((__tmp152434 (car _block142100_))) (declare (not safe)) (gx#free-identifier=? - __tmp152452 - _id142116_))))) + __tmp152434 + _id142098_))))) (declare (not safe)) - (find __tmp152451 _blocks141276_)))) - (_inline-block141535_ - (lambda (_block141992_ _args141993_) - (let* ((_kont141995_ (caddr _block141992_)) - (_g141997142023_ - (lambda (_g141998142020_) + (find __tmp152433 _blocks141258_)))) + (_inline-block141517_ + (lambda (_block141974_ _args141975_) + (let* ((_kont141977_ (caddr _block141974_)) + (_g141979142005_ + (lambda (_g141980142002_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g141998142020_)))) - (_g141996142113_ - (lambda (_g141998142026_) + _g141980142002_)))) + (_g141978142095_ + (lambda (_g141980142008_) (if (let () (declare (not safe)) - (gx#stx-pair? _g141998142026_)) - (let ((_e142003142028_ + (gx#stx-pair? _g141980142008_)) + (let ((_e141985142010_ (let () (declare (not safe)) - (gx#stx-e _g141998142026_)))) - (let ((_hd142002142031_ + (gx#stx-e _g141980142008_)))) + (let ((_hd141984142013_ (let () (declare (not safe)) - (##car _e142003142028_))) - (_tl142001142033_ + (##car _e141985142010_))) + (_tl141983142015_ (let () (declare (not safe)) - (##cdr _e142003142028_)))) + (##cdr _e141985142010_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd142002142031_)) + (gx#identifier? _hd141984142013_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd142002142031_)) + _hd141984142013_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142001142033_)) - (let ((_e142006142036_ + _tl141983142015_)) + (let ((_e141988142018_ (let () (declare (not safe)) (gx#stx-e - _tl142001142033_)))) - (let ((_hd142005142039_ + _tl141983142015_)))) + (let ((_hd141987142021_ (let () (declare (not safe)) - (##car _e142006142036_))) - (_tl142004142041_ + (##car _e141988142018_))) + (_tl141986142023_ (let () (declare (not safe)) - (##cdr _e142006142036_)))) + (##cdr _e141988142018_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd142005142039_)) - (let ((_g152453_ + _hd141987142021_)) + (let ((_g152435_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd142005142039_ '0)))) + (gx#syntax-split-splice _hd141987142021_ '0)))) (begin - (let ((_g152454_ + (let ((_g152436_ (let () (declare (not safe)) - (if (##values? _g152453_) - (##vector-length _g152453_) + (if (##values? _g152435_) + (##vector-length _g152435_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152454_ 2))) - (error "Context expects 2 values" _g152454_))) - (let ((_target142007142044_ + (##fx= _g152436_ 2))) + (error "Context expects 2 values" _g152436_))) + (let ((_target141989142026_ (let () (declare (not safe)) - (##vector-ref _g152453_ 0))) - (_tl142009142046_ + (##vector-ref _g152435_ 0))) + (_tl141991142028_ (let () (declare (not safe)) - (##vector-ref _g152453_ 1)))) + (##vector-ref _g152435_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142009142046_)) - (letrec ((_loop142010142049_ - (lambda (_hd142008142052_ - _id142014142054_) + (gx#stx-null? _tl141991142028_)) + (letrec ((_loop141992142031_ + (lambda (_hd141990142034_ + _id141996142036_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd142008142052_)) - (let ((_e142011142057_ + (gx#stx-pair? _hd141990142034_)) + (let ((_e141993142039_ (let () (declare (not safe)) (gx#stx-e - _hd142008142052_)))) - (let ((_lp-hd142012142060_ + _hd141990142034_)))) + (let ((_lp-hd141994142042_ (let () (declare (not safe)) - (##car _e142011142057_))) - (_lp-tl142013142062_ + (##car _e141993142039_))) + (_lp-tl141995142044_ (let () (declare (not safe)) - (##cdr _e142011142057_)))) - (let ((__tmp152458 + (##cdr _e141993142039_)))) + (let ((__tmp152440 (let () (declare (not safe)) - (cons _lp-hd142012142060_ - _id142014142054_)))) + (cons _lp-hd141994142042_ + _id141996142036_)))) (declare (not safe)) - (_loop142010142049_ - _lp-tl142013142062_ - __tmp152458)))) - (let ((_id142015142065_ - (reverse _id142014142054_))) + (_loop141992142031_ + _lp-tl141995142044_ + __tmp152440)))) + (let ((_id141997142047_ + (reverse _id141996142036_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl142004142041_)) - (let ((_e142018142068_ + _tl141986142023_)) + (let ((_e142000142050_ (let () (declare (not safe)) (gx#stx-e - _tl142004142041_)))) - (let ((_hd142017142071_ + _tl141986142023_)))) + (let ((_hd141999142053_ (let () (declare (not safe)) - (##car _e142018142068_))) - (_tl142016142073_ + (##car _e142000142050_))) + (_tl141998142055_ (let () (declare (not safe)) - (##cdr _e142018142068_)))) + (##cdr _e142000142050_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl142016142073_)) - ((lambda (_L142076_ + _tl141998142055_)) + ((lambda (_L142058_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L142077_) - (if (let ((__tmp152456 - (let ((__tmp152457 - (lambda (_g142096142099_ - _g142097142101_) + _L142059_) + (if (let ((__tmp152438 + (let ((__tmp152439 + (lambda (_g142078142081_ + _g142079142083_) (let () (declare (not safe)) - (cons _g142096142099_ - _g142097142101_))))) + (cons _g142078142081_ + _g142079142083_))))) (declare (not safe)) - (foldr1 __tmp152457 '() _L142077_)))) + (foldr1 __tmp152439 '() _L142059_)))) (declare (not safe)) - (null? __tmp152456)) - _L142076_ - (let ((_subst142111_ + (null? __tmp152438)) + _L142058_ + (let ((_subst142093_ (map cons - (let ((__tmp152455 - (lambda (_g142103142106_ - _g142104142108_) + (let ((__tmp152437 + (lambda (_g142085142088_ + _g142086142090_) (let () (declare (not safe)) - (cons _g142103142106_ - _g142104142108_))))) + (cons _g142085142088_ + _g142086142090_))))) (declare (not safe)) - (foldr1 __tmp152455 '() _L142077_)) - _args141993_))) + (foldr1 __tmp152437 '() _L142059_)) + _args141975_))) (declare (not safe)) (gxc#apply-expression-subst* - _L142076_ + _L142058_ 'subst: - _subst142111_)))) - _hd142017142071_ - _id142015142065_) + _subst142093_)))) + _hd141999142053_ + _id141997142047_) (let () (declare (not safe)) - (_g141997142023_ _g141998142026_))))) + (_g141979142005_ _g141980142008_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g141997142023_ - _g141998142026_)))))))) + (_g141979142005_ + _g141980142008_)))))))) (let () (declare (not safe)) - (_loop142010142049_ - _target142007142044_ + (_loop141992142031_ + _target141989142026_ '()))) (let () (declare (not safe)) - (_g141997142023_ _g141998142026_)))))) + (_g141979142005_ _g141980142008_)))))) (let () (declare (not safe)) - (_g141997142023_ _g141998142026_))))) + (_g141979142005_ _g141980142008_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g141997142023_ - _g141998142026_))) + (_g141979142005_ + _g141980142008_))) (let () (declare (not safe)) - (_g141997142023_ - _g141998142026_))) + (_g141979142005_ + _g141980142008_))) (let () (declare (not safe)) - (_g141997142023_ - _g141998142026_))))) + (_g141979142005_ + _g141980142008_))))) (let () (declare (not safe)) - (_g141997142023_ _g141998142026_)))))) + (_g141979142005_ _g141980142008_)))))) (declare (not safe)) - (_g141996142113_ _kont141995_)))) - (_nonlinear-block?141536_ - (lambda (_block141541_) - (letrec ((_nonlinear-expr?141543_ - (lambda (_expr141651_) - (let* ((___stx151073151074_ _expr141651_) - (_g141657141723_ + (_g141978142095_ _kont141977_)))) + (_nonlinear-block?141518_ + (lambda (_block141523_) + (letrec ((_nonlinear-expr?141525_ + (lambda (_expr141633_) + (let* ((___stx151055151056_ _expr141633_) + (_g141639141705_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx151073151074_))))) - (let ((___kont151075151076_ (lambda () '#t)) - (___kont151077151078_ - (lambda (_L141922_) - (let* ((___stx151055151056_ - _L141922_) - (_g141940141949_ + ___stx151055151056_))))) + (let ((___kont151057151058_ (lambda () '#t)) + (___kont151059151060_ + (lambda (_L141904_) + (let* ((___stx151037151038_ + _L141904_) + (_g141922141931_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx151055151056_))))) - (let ((___kont151057151058_ + ___stx151037151038_))))) + (let ((___kont151039151040_ (lambda () '#f)) - (___kont151059151060_ + (___kont151041151042_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx151055151056_)) - (let ((_e141944141961_ + ___stx151037151038_)) + (let ((_e141926141943_ (let () (declare (not safe)) (gx#stx-e - ___stx151055151056_)))) - (let ((_tl141942141966_ + ___stx151037151038_)))) + (let ((_tl141924141948_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e141944141961_))) - (_hd141943141964_ - (let () (declare (not safe)) (##car _e141944141961_)))) + (##cdr _e141926141943_))) + (_hd141925141946_ + (let () (declare (not safe)) (##car _e141926141943_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141943141964_)) + (gx#identifier? _hd141925141946_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd141943141964_)) - (___kont151057151058_) - (___kont151059151060_)) - (___kont151059151060_)))) + (gx#stx-eq? '%#call _hd141925141946_)) + (___kont151039151040_) + (___kont151041151042_)) + (___kont151041151042_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151059151060_)))))) - (___kont151081151082_ - (lambda (_L141820_) + (___kont151041151042_)))))) + (___kont151063151064_ + (lambda (_L141802_) (let () (declare (not safe)) - (_nonlinear-expr?141543_ - _L141820_)))) - (___kont151083151084_ - (lambda (_L141767_ - _L141768_ - _L141769_) - (let ((_$e141788_ + (_nonlinear-expr?141525_ + _L141802_)))) + (___kont151065151066_ + (lambda (_L141749_ + _L141750_ + _L141751_) + (let ((_$e141770_ (let () (declare (not safe)) - (_nonlinear-expr?141543_ - _L141768_)))) - (if _$e141788_ - _$e141788_ + (_nonlinear-expr?141525_ + _L141750_)))) + (if _$e141770_ + _$e141770_ (let () (declare (not safe)) - (_nonlinear-expr?141543_ - _L141767_)))))) - (___kont151085151086_ + (_nonlinear-expr?141525_ + _L141749_)))))) + (___kont151067151068_ (lambda () '#f))) - (let* ((___match151136151137_ - (lambda (_e141697141796_ - _hd141696141799_ - _tl141695141801_ - _e141700141804_ - _hd141699141807_ - _tl141698141809_) + (let* ((___match151118151119_ + (lambda (_e141679141778_ + _hd141678141781_ + _tl141677141783_ + _e141682141786_ + _hd141681141789_ + _tl141680141791_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141698141809_)) - (let ((_e141703141812_ + _tl141680141791_)) + (let ((_e141685141794_ (let () (declare (not safe)) (gx#stx-e - _tl141698141809_)))) - (let ((_tl141701141817_ + _tl141680141791_)))) + (let ((_tl141683141799_ (let () (declare (not safe)) - (##cdr _e141703141812_))) - (_hd141702141815_ + (##cdr _e141685141794_))) + (_hd141684141797_ (let () (declare (not safe)) - (##car _e141703141812_)))) + (##car _e141685141794_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141701141817_)) - (___kont151081151082_ - _hd141702141815_) - (___kont151085151086_)))) - (___kont151085151086_)))) - (___match151120151121_ - (lambda (_e141665141838_ - _hd141664141841_ - _tl141663141843_ - _e141668141846_ - _hd141667141849_ - _tl141666141851_ - ___splice151079151080_ - _target141669141854_ - _tl141671141856_) - (letrec ((_loop141672141859_ - (lambda (_hd141670141862_) + _tl141683141799_)) + (___kont151063151064_ + _hd141684141797_) + (___kont151067151068_)))) + (___kont151067151068_)))) + (___match151102151103_ + (lambda (_e141647141820_ + _hd141646141823_ + _tl141645141825_ + _e141650141828_ + _hd141649141831_ + _tl141648141833_ + ___splice151061151062_ + _target141651141836_ + _tl141653141838_) + (letrec ((_loop141654141841_ + (lambda (_hd141652141844_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _hd141670141862_)) - (let ((_e141673141865_ + (gx#stx-pair? _hd141652141844_)) + (let ((_e141655141847_ (let () (declare (not safe)) - (gx#stx-e _hd141670141862_)))) - (let ((_lp-tl141675141870_ + (gx#stx-e _hd141652141844_)))) + (let ((_lp-tl141657141852_ (let () (declare (not safe)) - (##cdr _e141673141865_))) - (_lp-hd141674141868_ + (##cdr _e141655141847_))) + (_lp-hd141656141850_ (let () (declare (not safe)) - (##car _e141673141865_)))) + (##car _e141655141847_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd141674141868_)) - (let ((_e141678141873_ + (gx#stx-pair? _lp-hd141656141850_)) + (let ((_e141660141855_ (let () (declare (not safe)) - (gx#stx-e _lp-hd141674141868_)))) - (let ((_tl141676141878_ + (gx#stx-e _lp-hd141656141850_)))) + (let ((_tl141658141860_ (let () (declare (not safe)) - (##cdr _e141678141873_))) - (_hd141677141876_ + (##cdr _e141660141855_))) + (_hd141659141858_ (let () (declare (not safe)) - (##car _e141678141873_)))) + (##car _e141660141855_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd141677141876_)) - (let ((_e141681141881_ + (gx#stx-pair? _hd141659141858_)) + (let ((_e141663141863_ (let () (declare (not safe)) - (gx#stx-e _hd141677141876_)))) - (let ((_tl141679141886_ + (gx#stx-e _hd141659141858_)))) + (let ((_tl141661141868_ (let () (declare (not safe)) - (##cdr _e141681141881_))) - (_hd141680141884_ + (##cdr _e141663141863_))) + (_hd141662141866_ (let () (declare (not safe)) - (##car _e141681141881_)))) + (##car _e141663141863_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141679141886_)) + _tl141661141868_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141676141878_)) - (let ((_e141684141889_ + _tl141658141860_)) + (let ((_e141666141871_ (let () (declare (not safe)) (gx#stx-e - _tl141676141878_)))) - (let ((_tl141682141894_ + _tl141658141860_)))) + (let ((_tl141664141876_ (let () (declare (not safe)) - (##cdr _e141684141889_))) - (_hd141683141892_ + (##cdr _e141666141871_))) + (_hd141665141874_ (let () (declare (not safe)) - (##car _e141684141889_)))) + (##car _e141666141871_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141683141892_)) - (let ((_e141687141897_ + _hd141665141874_)) + (let ((_e141669141879_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd141683141892_)))) - (let ((_tl141685141902_ + (gx#stx-e _hd141665141874_)))) + (let ((_tl141667141884_ (let () (declare (not safe)) - (##cdr _e141687141897_))) - (_hd141686141900_ + (##cdr _e141669141879_))) + (_hd141668141882_ (let () (declare (not safe)) - (##car _e141687141897_)))) + (##car _e141669141879_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd141686141900_)) + (gx#identifier? _hd141668141882_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd141686141900_)) + (gx#stx-eq? '%#ref _hd141668141882_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141685141902_)) - (let ((_e141690141905_ + (gx#stx-pair? _tl141667141884_)) + (let ((_e141672141887_ (let () (declare (not safe)) - (gx#stx-e _tl141685141902_)))) - (let ((_tl141688141910_ + (gx#stx-e _tl141667141884_)))) + (let ((_tl141670141892_ (let () (declare (not safe)) - (##cdr _e141690141905_))) - (_hd141689141908_ + (##cdr _e141672141887_))) + (_hd141671141890_ (let () (declare (not safe)) - (##car _e141690141905_)))) + (##car _e141672141887_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141688141910_)) + (gx#stx-null? _tl141670141892_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl141682141894_)) + _tl141664141876_)) (let () (declare (not safe)) - (_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_)))) + (_loop141654141841_ + _lp-tl141657141852_)) + (___match151118151119_ + _e141647141820_ + _hd141646141823_ + _tl141645141825_ + _e141650141828_ + _hd141649141831_ + _tl141648141833_)) + (___match151118151119_ + _e141647141820_ + _hd141646141823_ + _tl141645141825_ + _e141650141828_ + _hd141649141831_ + _tl141648141833_)))) + (___match151118151119_ + _e141647141820_ + _hd141646141823_ + _tl141645141825_ + _e141650141828_ + _hd141649141831_ + _tl141648141833_)) + (___match151118151119_ + _e141647141820_ + _hd141646141823_ + _tl141645141825_ + _e141650141828_ + _hd141649141831_ + _tl141648141833_)) + (___match151118151119_ + _e141647141820_ + _hd141646141823_ + _tl141645141825_ + _e141650141828_ + _hd141649141831_ + _tl141648141833_)))) + (___match151118151119_ + _e141647141820_ + _hd141646141823_ + _tl141645141825_ + _e141650141828_ + _hd141649141831_ + _tl141648141833_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_)))) + (___match151118151119_ + _e141647141820_ + _hd141646141823_ + _tl141645141825_ + _e141650141828_ + _hd141649141831_ + _tl141648141833_)) + (___match151118151119_ + _e141647141820_ + _hd141646141823_ + _tl141645141825_ + _e141650141828_ + _hd141649141831_ + _tl141648141833_)))) + (___match151118151119_ + _e141647141820_ + _hd141646141823_ + _tl141645141825_ + _e141650141828_ + _hd141649141831_ + _tl141648141833_)))) + (___match151118151119_ + _e141647141820_ + _hd141646141823_ + _tl141645141825_ + _e141650141828_ + _hd141649141831_ + _tl141648141833_)))) (let () (if (let () (declare (not safe)) - (gx#stx-pair? _tl141666141851_)) - (let ((_e141693141914_ + (gx#stx-pair? _tl141648141833_)) + (let ((_e141675141896_ (let () (declare (not safe)) - (gx#stx-e _tl141666141851_)))) - (let ((_tl141691141919_ + (gx#stx-e _tl141648141833_)))) + (let ((_tl141673141901_ (let () (declare (not safe)) - (##cdr _e141693141914_))) - (_hd141692141917_ + (##cdr _e141675141896_))) + (_hd141674141899_ (let () (declare (not safe)) - (##car _e141693141914_)))) + (##car _e141675141896_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141691141919_)) - (___kont151077151078_ _hd141692141917_) - (___kont151085151086_)))) - (___kont151085151086_))))))) + (gx#stx-null? _tl141673141901_)) + (___kont151059151060_ _hd141674141899_) + (___kont151067151068_)))) + (___kont151067151068_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop141672141859_ - _target141669141854_)))))) + (_loop141654141841_ + _target141651141836_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx151073151074_)) - (let ((_e141661141979_ + ___stx151055151056_)) + (let ((_e141643141961_ (let () (declare (not safe)) (gx#stx-e - ___stx151073151074_)))) - (let ((_tl141659141984_ + ___stx151055151056_)))) + (let ((_tl141641141966_ (let () (declare (not safe)) - (##cdr _e141661141979_))) - (_hd141660141982_ + (##cdr _e141643141961_))) + (_hd141642141964_ (let () (declare (not safe)) - (##car _e141661141979_)))) + (##car _e141643141961_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd141660141982_)) + _hd141642141964_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd141660141982_)) - (___kont151075151076_) + _hd141642141964_)) + (___kont151057151058_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd141660141982_)) + _hd141642141964_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl141659141984_)) - (let ((_e141668141846_ + (gx#stx-pair? _tl141641141966_)) + (let ((_e141650141828_ (let () (declare (not safe)) - (gx#stx-e _tl141659141984_)))) - (let ((_tl141666141851_ + (gx#stx-e _tl141641141966_)))) + (let ((_tl141648141833_ (let () (declare (not safe)) - (##cdr _e141668141846_))) - (_hd141667141849_ + (##cdr _e141650141828_))) + (_hd141649141831_ (let () (declare (not safe)) - (##car _e141668141846_)))) + (##car _e141650141828_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd141667141849_)) - (let ((___splice151079151080_ + (gx#stx-pair/null? _hd141649141831_)) + (let ((___splice151061151062_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd141667141849_ + _hd141649141831_ '0)))) - (let ((_tl141671141856_ + (let ((_tl141653141838_ (let () (declare (not safe)) (##vector-ref - ___splice151079151080_ + ___splice151061151062_ '1))) - (_target141669141854_ + (_target141651141836_ (let () (declare (not safe)) (##vector-ref - ___splice151079151080_ + ___splice151061151062_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141671141856_)) - (___match151120151121_ - _e141661141979_ - _hd141660141982_ - _tl141659141984_ - _e141668141846_ - _hd141667141849_ - _tl141666141851_ - ___splice151079151080_ - _target141669141854_ - _tl141671141856_) + (gx#stx-null? _tl141653141838_)) + (___match151102151103_ + _e141643141961_ + _hd141642141964_ + _tl141641141966_ + _e141650141828_ + _hd141649141831_ + _tl141648141833_ + ___splice151061151062_ + _target141651141836_ + _tl141653141838_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141666141851_)) - (let ((_e141703141812_ + (gx#stx-pair? _tl141648141833_)) + (let ((_e141685141794_ (let () (declare (not safe)) (gx#stx-e - _tl141666141851_)))) - (let ((_tl141701141817_ + _tl141648141833_)))) + (let ((_tl141683141799_ (let () (declare (not safe)) - (##cdr _e141703141812_))) - (_hd141702141815_ + (##cdr _e141685141794_))) + (_hd141684141797_ (let () (declare (not safe)) - (##car _e141703141812_)))) + (##car _e141685141794_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141701141817_)) - (___kont151081151082_ - _hd141702141815_) - (___kont151085151086_)))) - (___kont151085151086_))))) + _tl141683141799_)) + (___kont151063151064_ + _hd141684141797_) + (___kont151067151068_)))) + (___kont151067151068_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141666141851_)) - (let ((_e141703141812_ + (gx#stx-pair? _tl141648141833_)) + (let ((_e141685141794_ (let () (declare (not safe)) - (gx#stx-e _tl141666141851_)))) - (let ((_tl141701141817_ + (gx#stx-e _tl141648141833_)))) + (let ((_tl141683141799_ (let () (declare (not safe)) - (##cdr _e141703141812_))) - (_hd141702141815_ + (##cdr _e141685141794_))) + (_hd141684141797_ (let () (declare (not safe)) - (##car _e141703141812_)))) + (##car _e141685141794_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141701141817_)) - (___kont151081151082_ - _hd141702141815_) - (___kont151085151086_)))) - (___kont151085151086_))))) - (___kont151085151086_)) + (gx#stx-null? _tl141683141799_)) + (___kont151063151064_ + _hd141684141797_) + (___kont151067151068_)))) + (___kont151067151068_))))) + (___kont151067151068_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd141660141982_)) + (gx#stx-eq? '%#if _hd141642141964_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141659141984_)) - (let ((_e141712141743_ + (gx#stx-pair? _tl141641141966_)) + (let ((_e141694141725_ (let () (declare (not safe)) - (gx#stx-e _tl141659141984_)))) - (let ((_tl141710141748_ + (gx#stx-e _tl141641141966_)))) + (let ((_tl141692141730_ (let () (declare (not safe)) - (##cdr _e141712141743_))) - (_hd141711141746_ + (##cdr _e141694141725_))) + (_hd141693141728_ (let () (declare (not safe)) - (##car _e141712141743_)))) + (##car _e141694141725_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141710141748_)) - (let ((_e141715141751_ + (gx#stx-pair? _tl141692141730_)) + (let ((_e141697141733_ (let () (declare (not safe)) - (gx#stx-e _tl141710141748_)))) - (let ((_tl141713141756_ + (gx#stx-e _tl141692141730_)))) + (let ((_tl141695141738_ (let () (declare (not safe)) - (##cdr _e141715141751_))) - (_hd141714141754_ + (##cdr _e141697141733_))) + (_hd141696141736_ (let () (declare (not safe)) - (##car _e141715141751_)))) + (##car _e141697141733_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl141713141756_)) - (let ((_e141718141759_ + (gx#stx-pair? _tl141695141738_)) + (let ((_e141700141741_ (let () (declare (not safe)) (gx#stx-e - _tl141713141756_)))) - (let ((_tl141716141764_ + _tl141695141738_)))) + (let ((_tl141698141746_ (let () (declare (not safe)) - (##cdr _e141718141759_))) - (_hd141717141762_ + (##cdr _e141700141741_))) + (_hd141699141744_ (let () (declare (not safe)) - (##car _e141718141759_)))) + (##car _e141700141741_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl141716141764_)) - (___kont151083151084_ - _hd141717141762_ - _hd141714141754_ - _hd141711141746_) - (___kont151085151086_)))) - (___kont151085151086_)))) - (___kont151085151086_)))) - (___kont151085151086_)) - (___kont151085151086_)))) + _tl141698141746_)) + (___kont151065151066_ + _hd141699141744_ + _hd141696141736_ + _hd141693141728_) + (___kont151067151068_)))) + (___kont151067151068_)))) + (___kont151067151068_)))) + (___kont151067151068_)) + (___kont151067151068_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151085151086_)))) - (___kont151085151086_)))))))) - (let* ((_kont141545_ (caddr _block141541_)) - (_g141547141573_ - (lambda (_g141548141570_) + (___kont151067151068_)))) + (___kont151067151068_)))))))) + (let* ((_kont141527_ (caddr _block141523_)) + (_g141529141555_ + (lambda (_g141530141552_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g141548141570_)))) - (_g141546141648_ - (lambda (_g141548141576_) + _g141530141552_)))) + (_g141528141630_ + (lambda (_g141530141558_) (if (let () (declare (not safe)) - (gx#stx-pair? _g141548141576_)) - (let ((_e141553141578_ + (gx#stx-pair? _g141530141558_)) + (let ((_e141535141560_ (let () (declare (not safe)) - (gx#stx-e _g141548141576_)))) - (let ((_hd141552141581_ + (gx#stx-e _g141530141558_)))) + (let ((_hd141534141563_ (let () (declare (not safe)) - (##car _e141553141578_))) - (_tl141551141583_ + (##car _e141535141560_))) + (_tl141533141565_ (let () (declare (not safe)) - (##cdr _e141553141578_)))) + (##cdr _e141535141560_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd141552141581_)) + _hd141534141563_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd141552141581_)) + _hd141534141563_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141551141583_)) - (let ((_e141556141586_ + _tl141533141565_)) + (let ((_e141538141568_ (let () (declare (not safe)) (gx#stx-e - _tl141551141583_)))) - (let ((_hd141555141589_ + _tl141533141565_)))) + (let ((_hd141537141571_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e141556141586_))) - (_tl141554141591_ - (let () (declare (not safe)) (##cdr _e141556141586_)))) + (##car _e141538141568_))) + (_tl141536141573_ + (let () (declare (not safe)) (##cdr _e141538141568_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd141555141589_)) - (let ((_g152459_ + (gx#stx-pair/null? _hd141537141571_)) + (let ((_g152441_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd141555141589_ '0)))) + (gx#syntax-split-splice _hd141537141571_ '0)))) (begin - (let ((_g152460_ + (let ((_g152442_ (let () (declare (not safe)) - (if (##values? _g152459_) - (##vector-length _g152459_) + (if (##values? _g152441_) + (##vector-length _g152441_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152460_ 2))) - (error "Context expects 2 values" _g152460_))) - (let ((_target141557141594_ + (##fx= _g152442_ 2))) + (error "Context expects 2 values" _g152442_))) + (let ((_target141539141576_ (let () (declare (not safe)) - (##vector-ref _g152459_ 0))) - (_tl141559141596_ + (##vector-ref _g152441_ 0))) + (_tl141541141578_ (let () (declare (not safe)) - (##vector-ref _g152459_ 1)))) + (##vector-ref _g152441_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141559141596_)) - (letrec ((_loop141560141599_ - (lambda (_hd141558141602_ - _id141564141604_) + (gx#stx-null? _tl141541141578_)) + (letrec ((_loop141542141581_ + (lambda (_hd141540141584_ + _id141546141586_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd141558141602_)) - (let ((_e141561141607_ + _hd141540141584_)) + (let ((_e141543141589_ (let () (declare (not safe)) (gx#stx-e - _hd141558141602_)))) - (let ((_lp-hd141562141610_ + _hd141540141584_)))) + (let ((_lp-hd141544141592_ (let () (declare (not safe)) - (##car _e141561141607_))) - (_lp-tl141563141612_ + (##car _e141543141589_))) + (_lp-tl141545141594_ (let () (declare (not safe)) - (##cdr _e141561141607_)))) - (let ((__tmp152461 + (##cdr _e141543141589_)))) + (let ((__tmp152443 (let () (declare (not safe)) - (cons _lp-hd141562141610_ + (cons _lp-hd141544141592_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id141564141604_)))) + _id141546141586_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop141560141599_ - _lp-tl141563141612_ - __tmp152461)))) - (let ((_id141565141615_ - (reverse _id141564141604_))) + (_loop141542141581_ + _lp-tl141545141594_ + __tmp152443)))) + (let ((_id141547141597_ + (reverse _id141546141586_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl141554141591_)) - (let ((_e141568141618_ + _tl141536141573_)) + (let ((_e141550141600_ (let () (declare (not safe)) (gx#stx-e - _tl141554141591_)))) - (let ((_hd141567141621_ + _tl141536141573_)))) + (let ((_hd141549141603_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e141568141618_))) - (_tl141566141623_ - (let () (declare (not safe)) (##cdr _e141568141618_)))) + (##car _e141550141600_))) + (_tl141548141605_ + (let () (declare (not safe)) (##cdr _e141550141600_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl141566141623_)) - ((lambda (_L141626_ _L141627_) + (gx#stx-null? _tl141548141605_)) + ((lambda (_L141608_ _L141609_) (let () (declare (not safe)) - (_nonlinear-expr?141543_ _L141626_))) - _hd141567141621_ - _id141565141615_) + (_nonlinear-expr?141525_ _L141608_))) + _hd141549141603_ + _id141547141597_) (let () (declare (not safe)) - (_g141547141573_ _g141548141576_))))) + (_g141529141555_ _g141530141558_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g141547141573_ - _g141548141576_)))))))) + (_g141529141555_ + _g141530141558_)))))))) (let () (declare (not safe)) - (_loop141560141599_ - _target141557141594_ + (_loop141542141581_ + _target141539141576_ '()))) (let () (declare (not safe)) - (_g141547141573_ _g141548141576_)))))) + (_g141529141555_ _g141530141558_)))))) (let () (declare (not safe)) - (_g141547141573_ _g141548141576_))))) + (_g141529141555_ _g141530141558_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g141547141573_ - _g141548141576_))) + (_g141529141555_ + _g141530141558_))) (let () (declare (not safe)) - (_g141547141573_ - _g141548141576_))) + (_g141529141555_ + _g141530141558_))) (let () (declare (not safe)) - (_g141547141573_ - _g141548141576_))))) + (_g141529141555_ + _g141530141558_))))) (let () (declare (not safe)) - (_g141547141573_ _g141548141576_)))))) + (_g141529141555_ _g141530141558_)))))) (declare (not safe)) - (_g141546141648_ _kont141545_)))))) - (let ((__tmp152462 + (_g141528141630_ _kont141527_)))))) + (let ((__tmp152444 (lambda () - (let ((__tmp152463 + (let ((__tmp152445 (lambda () (if (memq '@match:prefix (gxc#current-annotation-optimizer)) - (let ((__tmp152464 + (let ((__tmp152446 (lambda () (let () (declare (not safe)) - (_optimize-e141526_ - _body141273_))))) + (_optimize-e141508_ + _body141255_))))) (declare (not safe)) - (_do-splice!141525_ __tmp152464)) + (_do-splice!141507_ __tmp152446)) (let () (declare (not safe)) - (_optimize-e141526_ _body141273_)))))) + (_optimize-e141508_ _body141255_)))))) (declare (not safe)) - (_do-bind141522_ _bind141275_ __tmp152463))))) + (_do-bind141504_ _bind141257_ __tmp152445))))) (declare (not safe)) - (_do-assert141515_ _assert141274_ __tmp152462))))) + (_do-assert141497_ _assert141256_ __tmp152444))))) (define gxc#optimize-match-prune-blocks - (lambda (_blocks141185_ _konts141186_) - (letrec* ((_rtab141188_ + (lambda (_blocks141167_ _konts141168_) + (letrec* ((_rtab141170_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_block141190_) - (let ((__tmp152465 (caddr _block141190_))) + (lambda (_block141172_) + (let ((__tmp152447 (caddr _block141172_))) (declare (not safe)) (gxc#apply-collect-runtime-refs - __tmp152465 + __tmp152447 'table: - _rtab141188_))) - _konts141186_) - (let _lp141192_ ((_rest141194_ _blocks141185_) (_r141195_ '())) - (let* ((_rest141196141204_ _rest141194_) - (_else141198141212_ (lambda () (reverse _r141195_))) - (_K141200141261_ - (lambda (_rest141215_ _block141216_) - (let* ((_block141217141228_ _block141216_) - (_E141219141232_ + _rtab141170_))) + _konts141168_) + (let _lp141174_ ((_rest141176_ _blocks141167_) (_r141177_ '())) + (let* ((_rest141178141186_ _rest141176_) + (_else141180141194_ (lambda () (reverse _r141177_))) + (_K141182141243_ + (lambda (_rest141197_ _block141198_) + (let* ((_block141199141210_ _block141198_) + (_E141201141214_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _block141217141228_)))) - (_K141220141239_ - (lambda (_kont141235_ _type141236_ _name141237_) - (if (let ((__tmp152467 + _block141199141210_)))) + (_K141202141221_ + (lambda (_kont141217_ _type141218_ _name141219_) + (if (let ((__tmp152449 (let () (declare (not safe)) (gxc#identifier-symbol - _name141237_)))) + _name141219_)))) (declare (not safe)) - (hash-get _rtab141188_ __tmp152467)) + (hash-get _rtab141170_ __tmp152449)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs - _kont141235_ + _kont141217_ 'table: - _rtab141188_)) - (let ((__tmp152466 + _rtab141170_)) + (let ((__tmp152448 (let () (declare (not safe)) - (cons _block141216_ - _r141195_)))) + (cons _block141198_ + _r141177_)))) (declare (not safe)) - (_lp141192_ _rest141215_ __tmp152466))) + (_lp141174_ _rest141197_ __tmp152448))) (let () (declare (not safe)) - (_lp141192_ _rest141215_ _r141195_)))))) + (_lp141174_ _rest141197_ _r141177_)))))) (if (let () (declare (not safe)) - (##pair? _block141217141228_)) - (let ((_hd141221141242_ + (##pair? _block141199141210_)) + (let ((_hd141203141224_ (let () (declare (not safe)) - (##car _block141217141228_))) - (_tl141222141244_ + (##car _block141199141210_))) + (_tl141204141226_ (let () (declare (not safe)) - (##cdr _block141217141228_)))) - (let ((_name141247_ _hd141221141242_)) + (##cdr _block141199141210_)))) + (let ((_name141229_ _hd141203141224_)) (if (let () (declare (not safe)) - (##pair? _tl141222141244_)) - (let ((_hd141223141249_ + (##pair? _tl141204141226_)) + (let ((_hd141205141231_ (let () (declare (not safe)) - (##car _tl141222141244_))) - (_tl141224141251_ + (##car _tl141204141226_))) + (_tl141206141233_ (let () (declare (not safe)) - (##cdr _tl141222141244_)))) - (let ((_type141254_ _hd141223141249_)) + (##cdr _tl141204141226_)))) + (let ((_type141236_ _hd141205141231_)) (if (let () (declare (not safe)) - (##pair? _tl141224141251_)) - (let* ((_hd141225141256_ + (##pair? _tl141206141233_)) + (let* ((_hd141207141238_ (let () (declare (not safe)) - (##car _tl141224141251_))) - (_kont141259_ - _hd141225141256_)) + (##car _tl141206141233_))) + (_kont141241_ + _hd141207141238_)) (declare (not safe)) - (_K141220141239_ - _kont141259_ - _type141254_ - _name141247_)) + (_K141202141221_ + _kont141241_ + _type141236_ + _name141229_)) (let () (declare (not safe)) - (_E141219141232_))))) + (_E141201141214_))))) (let () (declare (not safe)) - (_E141219141232_))))) + (_E141201141214_))))) (let () (declare (not safe)) - (_E141219141232_))))))) - (if (let () (declare (not safe)) (##pair? _rest141196141204_)) - (let ((_hd141201141264_ + (_E141201141214_))))))) + (if (let () (declare (not safe)) (##pair? _rest141178141186_)) + (let ((_hd141183141246_ (let () (declare (not safe)) - (##car _rest141196141204_))) - (_tl141202141266_ + (##car _rest141178141186_))) + (_tl141184141248_ (let () (declare (not safe)) - (##cdr _rest141196141204_)))) - (let* ((_block141269_ _hd141201141264_) - (_rest141271_ _tl141202141266_)) + (##cdr _rest141178141186_)))) + (let* ((_block141251_ _hd141183141246_) + (_rest141253_ _tl141184141248_)) (declare (not safe)) - (_K141200141261_ _rest141271_ _block141269_))) - (let () (declare (not safe)) (_else141198141212_)))))))) + (_K141182141243_ _rest141253_ _block141251_))) + (let () (declare (not safe)) (_else141180141194_)))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_blocks141109_ _konts141110_) - (let* ((_blocks141111141127_ _blocks141109_) - (_else141113141135_ (lambda () _blocks141109_)) - (_K141115141153_ - (lambda (_rest141138_ _kont141139_ _name141140_) - (letrec* ((_rtab141142_ + (lambda (_blocks141091_ _konts141092_) + (let* ((_blocks141093141109_ _blocks141091_) + (_else141095141117_ (lambda () _blocks141091_)) + (_K141097141135_ + (lambda (_rest141120_ _kont141121_ _name141122_) + (letrec* ((_rtab141124_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_block141144_) - (let ((__tmp152468 (caddr _block141144_))) + (lambda (_block141126_) + (let ((__tmp152450 (caddr _block141126_))) (declare (not safe)) (gxc#apply-collect-runtime-refs - __tmp152468 + __tmp152450 'table: - _rtab141142_))) - _konts141110_) - (if (fx= (let ((__tmp152476 + _rtab141124_))) + _konts141092_) + (if (fx= (let ((__tmp152458 (let () (declare (not safe)) - (gxc#identifier-symbol _name141140_)))) + (gxc#identifier-symbol _name141122_)))) (declare (not safe)) - (hash-ref__0 _rtab141142_ __tmp152476)) + (hash-ref__0 _rtab141124_ __tmp152458)) '1) - (let* ((_rblock141148_ - (let ((__tmp152469 - (lambda (_block141146_) - (let ((__tmp152471 - (caddr _block141146_)) - (__tmp152470 + (let* ((_rblock141130_ + (let ((__tmp152451 + (lambda (_block141128_) + (let ((__tmp152453 + (caddr _block141128_)) + (__tmp152452 (let () (declare (not safe)) - (cons _name141140_ '())))) + (cons _name141122_ '())))) (declare (not safe)) (gxc#apply-find-var-refs - __tmp152471 + __tmp152453 'ids: - __tmp152470))))) + __tmp152452))))) (declare (not safe)) - (find __tmp152469 _konts141110_))) - (_assert141150_ + (find __tmp152451 _konts141092_))) + (_assert141132_ (let () (declare (not safe)) (gxc#optimize-match-assert-restart - _rblock141148_ - _name141140_)))) - (let ((__tmp152472 - (let ((__tmp152473 - (let ((__tmp152474 - (let ((__tmp152475 + _rblock141130_ + _name141122_)))) + (let ((__tmp152454 + (let ((__tmp152455 + (let ((__tmp152456 + (let ((__tmp152457 (let () (declare (not safe)) - (cons _assert141150_ + (cons _assert141132_ '())))) (declare (not safe)) - (cons _kont141139_ - __tmp152475)))) + (cons _kont141121_ + __tmp152457)))) (declare (not safe)) - (cons 'restart: __tmp152474)))) + (cons 'restart: __tmp152456)))) (declare (not safe)) - (cons _name141140_ __tmp152473)))) + (cons _name141122_ __tmp152455)))) (declare (not safe)) - (cons __tmp152472 _rest141138_))) - _blocks141109_))))) - (if (let () (declare (not safe)) (##pair? _blocks141111141127_)) - (let ((_hd141116141156_ + (cons __tmp152454 _rest141120_))) + _blocks141091_))))) + (if (let () (declare (not safe)) (##pair? _blocks141093141109_)) + (let ((_hd141098141138_ (let () (declare (not safe)) - (##car _blocks141111141127_))) - (_tl141117141158_ + (##car _blocks141093141109_))) + (_tl141099141140_ (let () (declare (not safe)) - (##cdr _blocks141111141127_)))) - (if (let () (declare (not safe)) (##pair? _hd141116141156_)) - (let ((_hd141118141161_ + (##cdr _blocks141093141109_)))) + (if (let () (declare (not safe)) (##pair? _hd141098141138_)) + (let ((_hd141100141143_ (let () (declare (not safe)) - (##car _hd141116141156_))) - (_tl141119141163_ + (##car _hd141098141138_))) + (_tl141101141145_ (let () (declare (not safe)) - (##cdr _hd141116141156_)))) - (let ((_name141166_ _hd141118141161_)) + (##cdr _hd141098141138_)))) + (let ((_name141148_ _hd141100141143_)) (if (let () (declare (not safe)) - (##pair? _tl141119141163_)) - (let ((_hd141120141168_ + (##pair? _tl141101141145_)) + (let ((_hd141102141150_ (let () (declare (not safe)) - (##car _tl141119141163_))) - (_tl141121141170_ + (##car _tl141101141145_))) + (_tl141103141152_ (let () (declare (not safe)) - (##cdr _tl141119141163_)))) + (##cdr _tl141101141145_)))) (if (let () (declare (not safe)) - (##eq? _hd141120141168_ 'restart:)) + (##eq? _hd141102141150_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl141121141170_)) - (let ((_hd141122141173_ + (##pair? _tl141103141152_)) + (let ((_hd141104141155_ (let () (declare (not safe)) - (##car _tl141121141170_))) - (_tl141123141175_ + (##car _tl141103141152_))) + (_tl141105141157_ (let () (declare (not safe)) - (##cdr _tl141121141170_)))) - (let ((_kont141178_ _hd141122141173_)) + (##cdr _tl141103141152_)))) + (let ((_kont141160_ _hd141104141155_)) (if (let () (declare (not safe)) - (##pair? _tl141123141175_)) - (let ((_tl141125141180_ + (##pair? _tl141105141157_)) + (let ((_tl141107141162_ (let () (declare (not safe)) - (##cdr _tl141123141175_)))) + (##cdr _tl141105141157_)))) (if (let () (declare (not safe)) - (##null? _tl141125141180_)) - (let ((_rest141183_ - _tl141117141158_)) + (##null? _tl141107141162_)) + (let ((_rest141165_ + _tl141099141140_)) (declare (not safe)) - (_K141115141153_ - _rest141183_ - _kont141178_ - _name141166_)) + (_K141097141135_ + _rest141165_ + _kont141160_ + _name141148_)) (let () (declare (not safe)) - (_else141113141135_)))) + (_else141095141117_)))) (let () (declare (not safe)) - (_else141113141135_))))) + (_else141095141117_))))) (let () (declare (not safe)) - (_else141113141135_))) + (_else141095141117_))) (let () (declare (not safe)) - (_else141113141135_)))) + (_else141095141117_)))) (let () (declare (not safe)) - (_else141113141135_))))) - (let () (declare (not safe)) (_else141113141135_)))) - (let () (declare (not safe)) (_else141113141135_)))))) + (_else141095141117_))))) + (let () (declare (not safe)) (_else141095141117_)))) + (let () (declare (not safe)) (_else141095141117_)))))) (define gxc#optimize-match-assert-restart - (lambda (_block140505_ _name140506_) - (letrec ((_assert-restart140508_ - (lambda (_expr140664_ _assert140665_) - (let* ((___stx151177151178_ _expr140664_) - (_g140671140768_ + (lambda (_block140487_ _name140488_) + (letrec ((_assert-restart140490_ + (lambda (_expr140646_ _assert140647_) + (let* ((___stx151159151160_ _expr140646_) + (_g140653140750_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx151177151178_))))) - (let ((___kont151179151180_ - (lambda (_L141084_ _L141085_ _L141086_) - (let ((_$e141103_ - (let ((__tmp152477 - (let ((__tmp152478 + ___stx151159151160_))))) + (let ((___kont151161151162_ + (lambda (_L141066_ _L141067_ _L141068_) + (let ((_$e141085_ + (let ((__tmp152459 + (let ((__tmp152460 (let () (declare (not safe)) - (cons _L141086_ '#t)))) + (cons _L141068_ '#t)))) (declare (not safe)) - (cons __tmp152478 - _assert140665_)))) + (cons __tmp152460 + _assert140647_)))) (declare (not safe)) - (_assert-restart140508_ - _L141085_ - __tmp152477)))) - (if _$e141103_ - _$e141103_ - (let ((__tmp152479 - (let ((__tmp152480 + (_assert-restart140490_ + _L141067_ + __tmp152459)))) + (if _$e141085_ + _$e141085_ + (let ((__tmp152461 + (let ((__tmp152462 (let () (declare (not safe)) - (cons _L141086_ '#f)))) + (cons _L141068_ '#f)))) (declare (not safe)) - (cons __tmp152480 - _assert140665_)))) + (cons __tmp152462 + _assert140647_)))) (declare (not safe)) - (_assert-restart140508_ - _L141084_ - __tmp152479)))))) - (___kont151181151182_ - (lambda (_L141032_) + (_assert-restart140490_ + _L141066_ + __tmp152461)))))) + (___kont151163151164_ + (lambda (_L141014_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L141032_ - _name140506_)) - _assert140665_ + _L141014_ + _name140488_)) + _assert140647_ '#f))) - (___kont151183151184_ - (lambda (_L140982_) + (___kont151165151166_ + (lambda (_L140964_) (let () (declare (not safe)) - (_assert-restart140508_ - _L140982_ - _assert140665_)))) - (___kont151185151186_ - (lambda (_L140908_ - _L140909_ - _L140910_ - _L140911_ - _L140912_) + (_assert-restart140490_ + _L140964_ + _assert140647_)))) + (___kont151167151168_ + (lambda (_L140890_ + _L140891_ + _L140892_ + _L140893_ + _L140894_) (let () (declare (not safe)) - (_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_) + (_assert-restart140490_ + _L140892_ + _assert140647_)))) + (___kont151173151174_ (lambda () '#f))) + (let ((___match151328151329_ + (lambda (_e140700140762_ + _hd140699140765_ + _tl140698140767_ + _e140703140770_ + _hd140702140773_ + _tl140701140775_ + _e140706140778_ + _hd140705140781_ + _tl140704140783_ + _e140709140786_ + _hd140708140789_ + _tl140707140791_ + _e140712140794_ + _hd140711140797_ + _tl140710140799_ + _e140715140802_ + _hd140714140805_ + _tl140713140807_ + _e140718140810_ + _hd140717140813_ + _tl140716140815_ + _e140721140818_ + _hd140720140821_ + _tl140719140823_ + ___splice151169151170_ + _target140722140826_ + _tl140724140828_) + (letrec ((_loop140725140831_ + (lambda (_hd140723140834_ + _id140729140836_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140741140852_)) - (let ((_e140744140857_ + _hd140723140834_)) + (let ((_e140726140839_ (let () (declare (not safe)) (gx#stx-e - _hd140741140852_)))) - (let ((_lp-tl140746140862_ + _hd140723140834_)))) + (let ((_lp-tl140728140844_ (let () (declare (not safe)) - (##cdr _e140744140857_))) - (_lp-hd140745140860_ + (##cdr _e140726140839_))) + (_lp-hd140727140842_ (let () (declare (not safe)) - (##car _e140744140857_)))) - (let ((__tmp152482 + (##car _e140726140839_)))) + (let ((__tmp152464 (let () (declare (not safe)) - (cons _lp-hd140745140860_ + (cons _lp-hd140727140842_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id140747140854_)))) + _id140729140836_)))) (declare (not safe)) - (_loop140743140849_ _lp-tl140746140862_ __tmp152482)))) + (_loop140725140831_ _lp-tl140728140844_ __tmp152464)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id140748140865_ - (reverse _id140747140854_))) + (let ((_id140730140847_ + (reverse _id140729140836_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140737140841_)) - (let ((_e140751140868_ + _tl140719140823_)) + (let ((_e140733140850_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl140737140841_)))) - (let ((_tl140749140873_ - (let () (declare (not safe)) (##cdr _e140751140868_))) - (_hd140750140871_ - (let () (declare (not safe)) (##car _e140751140868_)))) + (gx#stx-e _tl140719140823_)))) + (let ((_tl140731140855_ + (let () (declare (not safe)) (##cdr _e140733140850_))) + (_hd140732140853_ + (let () (declare (not safe)) (##car _e140733140850_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140749140873_)) + (gx#stx-null? _tl140731140855_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl140731140825_)) + (gx#stx-null? _tl140713140807_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl140722140801_)) - (let ((___splice151189151190_ + (gx#stx-pair/null? _tl140704140783_)) + (let ((___splice151171151172_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl140722140801_ + _tl140704140783_ '0)))) - (let ((_tl140754140878_ + (let ((_tl140736140860_ (let () (declare (not safe)) (##vector-ref - ___splice151189151190_ + ___splice151171151172_ '1))) - (_target140752140876_ + (_target140734140858_ (let () (declare (not safe)) (##vector-ref - ___splice151189151190_ + ___splice151171151172_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140754140878_)) - (letrec ((_loop140755140881_ - (lambda (_hd140753140884_ - _bind140759140886_) + (gx#stx-null? _tl140736140860_)) + (letrec ((_loop140737140863_ + (lambda (_hd140735140866_ + _bind140741140868_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140753140884_)) - (let ((_e140756140889_ + _hd140735140866_)) + (let ((_e140738140871_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd140753140884_)))) - (let ((_lp-tl140758140894_ - (let () (declare (not safe)) (##cdr _e140756140889_))) - (_lp-hd140757140892_ - (let () (declare (not safe)) (##car _e140756140889_)))) - (let ((__tmp152481 + (gx#stx-e _hd140735140866_)))) + (let ((_lp-tl140740140876_ + (let () (declare (not safe)) (##cdr _e140738140871_))) + (_lp-hd140739140874_ + (let () (declare (not safe)) (##car _e140738140871_)))) + (let ((__tmp152463 (let () (declare (not safe)) - (cons _lp-hd140757140892_ _bind140759140886_)))) + (cons _lp-hd140739140874_ _bind140741140868_)))) (declare (not safe)) - (_loop140755140881_ _lp-tl140758140894_ __tmp152481)))) - (let ((_bind140760140897_ (reverse _bind140759140886_))) + (_loop140737140863_ _lp-tl140740140876_ __tmp152463)))) + (let ((_bind140742140879_ (reverse _bind140741140868_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140719140793_)) - (let ((_e140763140900_ + (gx#stx-pair? _tl140701140775_)) + (let ((_e140745140882_ (let () (declare (not safe)) - (gx#stx-e _tl140719140793_)))) - (let ((_tl140761140905_ + (gx#stx-e _tl140701140775_)))) + (let ((_tl140743140887_ (let () (declare (not safe)) - (##cdr _e140763140900_))) - (_hd140762140903_ + (##cdr _e140745140882_))) + (_hd140744140885_ (let () (declare (not safe)) - (##car _e140763140900_)))) + (##car _e140745140882_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140761140905_)) - (___kont151185151186_ - _hd140762140903_ - _bind140760140897_ - _hd140750140871_ - _id140748140865_ - _hd140729140815_) - (___kont151191151192_)))) - (___kont151191151192_))))))) + (gx#stx-null? _tl140743140887_)) + (___kont151167151168_ + _hd140744140885_ + _bind140742140879_ + _hd140732140853_ + _id140730140847_ + _hd140711140797_) + (___kont151173151174_)))) + (___kont151173151174_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop140755140881_ - _target140752140876_ + (_loop140737140863_ + _target140734140858_ '()))) - (___kont151191151192_)))) - (___kont151191151192_)) - (___kont151191151192_)) - (___kont151191151192_)))) - (___kont151191151192_))))))) + (___kont151173151174_)))) + (___kont151173151174_)) + (___kont151173151174_)) + (___kont151173151174_)))) + (___kont151173151174_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop140743140849_ - _target140740140844_ + (_loop140725140831_ + _target140722140826_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx151177151178_)) - (let ((_e140678141052_ + (gx#stx-pair? ___stx151159151160_)) + (let ((_e140660141034_ (let () (declare (not safe)) - (gx#stx-e ___stx151177151178_)))) - (let ((_tl140676141057_ + (gx#stx-e ___stx151159151160_)))) + (let ((_tl140658141039_ (let () (declare (not safe)) - (##cdr _e140678141052_))) - (_hd140677141055_ + (##cdr _e140660141034_))) + (_hd140659141037_ (let () (declare (not safe)) - (##car _e140678141052_)))) + (##car _e140660141034_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140677141055_)) + (gx#identifier? _hd140659141037_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd140677141055_)) + _hd140659141037_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140676141057_)) - (let ((_e140681141060_ + _tl140658141039_)) + (let ((_e140663141042_ (let () (declare (not safe)) (gx#stx-e - _tl140676141057_)))) - (let ((_tl140679141065_ + _tl140658141039_)))) + (let ((_tl140661141047_ (let () (declare (not safe)) - (##cdr _e140681141060_))) - (_hd140680141063_ + (##cdr _e140663141042_))) + (_hd140662141045_ (let () (declare (not safe)) - (##car _e140681141060_)))) + (##car _e140663141042_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140679141065_)) - (let ((_e140684141068_ + _tl140661141047_)) + (let ((_e140666141050_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl140679141065_)))) - (let ((_tl140682141073_ - (let () (declare (not safe)) (##cdr _e140684141068_))) - (_hd140683141071_ - (let () (declare (not safe)) (##car _e140684141068_)))) + (gx#stx-e _tl140661141047_)))) + (let ((_tl140664141055_ + (let () (declare (not safe)) (##cdr _e140666141050_))) + (_hd140665141053_ + (let () (declare (not safe)) (##car _e140666141050_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140682141073_)) - (let ((_e140687141076_ + (gx#stx-pair? _tl140664141055_)) + (let ((_e140669141058_ (let () (declare (not safe)) - (gx#stx-e _tl140682141073_)))) - (let ((_tl140685141081_ + (gx#stx-e _tl140664141055_)))) + (let ((_tl140667141063_ (let () (declare (not safe)) - (##cdr _e140687141076_))) - (_hd140686141079_ + (##cdr _e140669141058_))) + (_hd140668141061_ (let () (declare (not safe)) - (##car _e140687141076_)))) + (##car _e140669141058_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140685141081_)) - (___kont151179151180_ - _hd140686141079_ - _hd140683141071_ - _hd140680141063_) - (___kont151191151192_)))) - (___kont151191151192_)))) - (___kont151191151192_)))) + (gx#stx-null? _tl140667141063_)) + (___kont151161151162_ + _hd140668141061_ + _hd140665141053_ + _hd140662141045_) + (___kont151173151174_)))) + (___kont151173151174_)))) + (___kont151173151174_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151191151192_)) + (___kont151173151174_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd140677141055_)) + _hd140659141037_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140676141057_)) - (let ((_e140694141008_ + _tl140658141039_)) + (let ((_e140676140990_ (let () (declare (not safe)) (gx#stx-e - _tl140676141057_)))) - (let ((_tl140692141013_ + _tl140658141039_)))) + (let ((_tl140674140995_ (let () (declare (not safe)) - (##cdr _e140694141008_))) - (_hd140693141011_ + (##cdr _e140676140990_))) + (_hd140675140993_ (let () (declare (not safe)) - (##car _e140694141008_)))) + (##car _e140676140990_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140693141011_)) - (let ((_e140697141016_ + _hd140675140993_)) + (let ((_e140679140998_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd140693141011_)))) - (let ((_tl140695141021_ + (gx#stx-e _hd140675140993_)))) + (let ((_tl140677141003_ (let () (declare (not safe)) - (##cdr _e140697141016_))) - (_hd140696141019_ + (##cdr _e140679140998_))) + (_hd140678141001_ (let () (declare (not safe)) - (##car _e140697141016_)))) + (##car _e140679140998_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140696141019_)) + (gx#identifier? _hd140678141001_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd140696141019_)) + (gx#stx-eq? '%#ref _hd140678141001_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140695141021_)) - (let ((_e140700141024_ + (gx#stx-pair? _tl140677141003_)) + (let ((_e140682141006_ (let () (declare (not safe)) - (gx#stx-e _tl140695141021_)))) - (let ((_tl140698141029_ + (gx#stx-e _tl140677141003_)))) + (let ((_tl140680141011_ (let () (declare (not safe)) - (##cdr _e140700141024_))) - (_hd140699141027_ + (##cdr _e140682141006_))) + (_hd140681141009_ (let () (declare (not safe)) - (##car _e140700141024_)))) + (##car _e140682141006_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140698141029_)) - (___kont151181151182_ - _hd140699141027_) - (___kont151191151192_)))) - (___kont151191151192_)) - (___kont151191151192_)) - (___kont151191151192_)))) - (___kont151191151192_)))) + (gx#stx-null? _tl140680141011_)) + (___kont151163151164_ + _hd140681141009_) + (___kont151173151174_)))) + (___kont151173151174_)) + (___kont151173151174_)) + (___kont151173151174_)))) + (___kont151173151174_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151191151192_)) + (___kont151173151174_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd140677141055_)) + _hd140659141037_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140676141057_)) - (let ((_e140707140966_ + _tl140658141039_)) + (let ((_e140689140948_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl140676141057_)))) - (let ((_tl140705140971_ - (let () (declare (not safe)) (##cdr _e140707140966_))) - (_hd140706140969_ - (let () (declare (not safe)) (##car _e140707140966_)))) + (gx#stx-e _tl140658141039_)))) + (let ((_tl140687140953_ + (let () (declare (not safe)) (##cdr _e140689140948_))) + (_hd140688140951_ + (let () (declare (not safe)) (##car _e140689140948_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140705140971_)) - (let ((_e140710140974_ + (gx#stx-pair? _tl140687140953_)) + (let ((_e140692140956_ (let () (declare (not safe)) - (gx#stx-e _tl140705140971_)))) - (let ((_tl140708140979_ + (gx#stx-e _tl140687140953_)))) + (let ((_tl140690140961_ (let () (declare (not safe)) - (##cdr _e140710140974_))) - (_hd140709140977_ + (##cdr _e140692140956_))) + (_hd140691140959_ (let () (declare (not safe)) - (##car _e140710140974_)))) + (##car _e140692140956_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140708140979_)) - (___kont151183151184_ _hd140709140977_) - (___kont151191151192_)))) - (___kont151191151192_)))) - (___kont151191151192_)) + (gx#stx-null? _tl140690140961_)) + (___kont151165151166_ _hd140691140959_) + (___kont151173151174_)))) + (___kont151173151174_)))) + (___kont151173151174_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd140677141055_)) + _hd140659141037_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140676141057_)) - (let ((_e140721140788_ + _tl140658141039_)) + (let ((_e140703140770_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl140676141057_)))) - (let ((_tl140719140793_ + (gx#stx-e _tl140658141039_)))) + (let ((_tl140701140775_ (let () (declare (not safe)) - (##cdr _e140721140788_))) - (_hd140720140791_ + (##cdr _e140703140770_))) + (_hd140702140773_ (let () (declare (not safe)) - (##car _e140721140788_)))) + (##car _e140703140770_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140720140791_)) - (let ((_e140724140796_ + (gx#stx-pair? _hd140702140773_)) + (let ((_e140706140778_ (let () (declare (not safe)) - (gx#stx-e _hd140720140791_)))) - (let ((_tl140722140801_ + (gx#stx-e _hd140702140773_)))) + (let ((_tl140704140783_ (let () (declare (not safe)) - (##cdr _e140724140796_))) - (_hd140723140799_ + (##cdr _e140706140778_))) + (_hd140705140781_ (let () (declare (not safe)) - (##car _e140724140796_)))) + (##car _e140706140778_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140723140799_)) - (let ((_e140727140804_ + (gx#stx-pair? _hd140705140781_)) + (let ((_e140709140786_ (let () (declare (not safe)) - (gx#stx-e _hd140723140799_)))) - (let ((_tl140725140809_ + (gx#stx-e _hd140705140781_)))) + (let ((_tl140707140791_ (let () (declare (not safe)) - (##cdr _e140727140804_))) - (_hd140726140807_ + (##cdr _e140709140786_))) + (_hd140708140789_ (let () (declare (not safe)) - (##car _e140727140804_)))) + (##car _e140709140786_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140726140807_)) - (let ((_e140730140812_ + (gx#stx-pair? _hd140708140789_)) + (let ((_e140712140794_ (let () (declare (not safe)) (gx#stx-e - _hd140726140807_)))) - (let ((_tl140728140817_ + _hd140708140789_)))) + (let ((_tl140710140799_ (let () (declare (not safe)) - (##cdr _e140730140812_))) - (_hd140729140815_ + (##cdr _e140712140794_))) + (_hd140711140797_ (let () (declare (not safe)) - (##car _e140730140812_)))) + (##car _e140712140794_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140728140817_)) + _tl140710140799_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140725140809_)) - (let ((_e140733140820_ + _tl140707140791_)) + (let ((_e140715140802_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl140725140809_)))) - (let ((_tl140731140825_ - (let () (declare (not safe)) (##cdr _e140733140820_))) - (_hd140732140823_ - (let () (declare (not safe)) (##car _e140733140820_)))) + (gx#stx-e _tl140707140791_)))) + (let ((_tl140713140807_ + (let () (declare (not safe)) (##cdr _e140715140802_))) + (_hd140714140805_ + (let () (declare (not safe)) (##car _e140715140802_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140732140823_)) - (let ((_e140736140828_ + (gx#stx-pair? _hd140714140805_)) + (let ((_e140718140810_ (let () (declare (not safe)) - (gx#stx-e _hd140732140823_)))) - (let ((_tl140734140833_ + (gx#stx-e _hd140714140805_)))) + (let ((_tl140716140815_ (let () (declare (not safe)) - (##cdr _e140736140828_))) - (_hd140735140831_ + (##cdr _e140718140810_))) + (_hd140717140813_ (let () (declare (not safe)) - (##car _e140736140828_)))) + (##car _e140718140810_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140735140831_)) + (gx#identifier? _hd140717140813_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd140735140831_)) + (gx#stx-eq? '%#lambda _hd140717140813_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140734140833_)) - (let ((_e140739140836_ + (gx#stx-pair? _tl140716140815_)) + (let ((_e140721140818_ (let () (declare (not safe)) - (gx#stx-e _tl140734140833_)))) - (let ((_tl140737140841_ + (gx#stx-e _tl140716140815_)))) + (let ((_tl140719140823_ (let () (declare (not safe)) - (##cdr _e140739140836_))) - (_hd140738140839_ + (##cdr _e140721140818_))) + (_hd140720140821_ (let () (declare (not safe)) - (##car _e140739140836_)))) + (##car _e140721140818_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd140738140839_)) - (let ((___splice151187151188_ + _hd140720140821_)) + (let ((___splice151169151170_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd140738140839_ + _hd140720140821_ '0)))) - (let ((_tl140742140846_ + (let ((_tl140724140828_ (let () (declare (not safe)) (##vector-ref - ___splice151187151188_ + ___splice151169151170_ '1))) - (_target140740140844_ + (_target140722140826_ (let () (declare (not safe)) (##vector-ref - ___splice151187151188_ + ___splice151169151170_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _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_)) + _tl140724140828_)) + (___match151328151329_ + _e140660141034_ + _hd140659141037_ + _tl140658141039_ + _e140703140770_ + _hd140702140773_ + _tl140701140775_ + _e140706140778_ + _hd140705140781_ + _tl140704140783_ + _e140709140786_ + _hd140708140789_ + _tl140707140791_ + _e140712140794_ + _hd140711140797_ + _tl140710140799_ + _e140715140802_ + _hd140714140805_ + _tl140713140807_ + _e140718140810_ + _hd140717140813_ + _tl140716140815_ + _e140721140818_ + _hd140720140821_ + _tl140719140823_ + ___splice151169151170_ + _target140722140826_ + _tl140724140828_) + (___kont151173151174_)))) + (___kont151173151174_)))) + (___kont151173151174_)) + (___kont151173151174_)) + (___kont151173151174_)))) + (___kont151173151174_)))) + (___kont151173151174_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151191151192_)))) - (___kont151191151192_)))) - (___kont151191151192_)))) - (___kont151191151192_)))) - (___kont151191151192_)) - (___kont151191151192_))))) + (___kont151173151174_)))) + (___kont151173151174_)))) + (___kont151173151174_)))) + (___kont151173151174_)))) + (___kont151173151174_)) + (___kont151173151174_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151191151192_)))) - (___kont151191151192_)))))))) - (let* ((_block140509140522_ _block140505_) - (_E140511140526_ + (___kont151173151174_)))) + (___kont151173151174_)))))))) + (let* ((_block140491140504_ _block140487_) + (_E140493140508_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _block140509140522_)))) - (_K140512140639_ - (lambda (_maybe-bind140529_ _assert140530_ _kont140531_) - (let* ((_g140533140559_ - (lambda (_g140534140556_) + (error '"No clause matching" _block140491140504_)))) + (_K140494140621_ + (lambda (_maybe-bind140511_ _assert140512_ _kont140513_) + (let* ((_g140515140541_ + (lambda (_g140516140538_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g140534140556_)))) - (_g140532140636_ - (lambda (_g140534140562_) + _g140516140538_)))) + (_g140514140618_ + (lambda (_g140516140544_) (if (let () (declare (not safe)) - (gx#stx-pair? _g140534140562_)) - (let ((_e140539140564_ + (gx#stx-pair? _g140516140544_)) + (let ((_e140521140546_ (let () (declare (not safe)) - (gx#stx-e _g140534140562_)))) - (let ((_hd140538140567_ + (gx#stx-e _g140516140544_)))) + (let ((_hd140520140549_ (let () (declare (not safe)) - (##car _e140539140564_))) - (_tl140537140569_ + (##car _e140521140546_))) + (_tl140519140551_ (let () (declare (not safe)) - (##cdr _e140539140564_)))) + (##cdr _e140521140546_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140538140567_)) + (gx#identifier? _hd140520140549_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd140538140567_)) + _hd140520140549_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140537140569_)) - (let ((_e140542140572_ + _tl140519140551_)) + (let ((_e140524140554_ (let () (declare (not safe)) (gx#stx-e - _tl140537140569_)))) - (let ((_hd140541140575_ + _tl140519140551_)))) + (let ((_hd140523140557_ (let () (declare (not safe)) - (##car _e140542140572_))) - (_tl140540140577_ + (##car _e140524140554_))) + (_tl140522140559_ (let () (declare (not safe)) - (##cdr _e140542140572_)))) + (##cdr _e140524140554_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd140541140575_)) - (let ((_g152483_ + _hd140523140557_)) + (let ((_g152465_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd140541140575_ '0)))) + (gx#syntax-split-splice _hd140523140557_ '0)))) (begin - (let ((_g152484_ + (let ((_g152466_ (let () (declare (not safe)) - (if (##values? _g152483_) - (##vector-length _g152483_) + (if (##values? _g152465_) + (##vector-length _g152465_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152484_ 2))) - (error "Context expects 2 values" _g152484_))) - (let ((_target140543140580_ + (##fx= _g152466_ 2))) + (error "Context expects 2 values" _g152466_))) + (let ((_target140525140562_ (let () (declare (not safe)) - (##vector-ref _g152483_ 0))) - (_tl140545140582_ + (##vector-ref _g152465_ 0))) + (_tl140527140564_ (let () (declare (not safe)) - (##vector-ref _g152483_ 1)))) + (##vector-ref _g152465_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140545140582_)) - (letrec ((_loop140546140585_ - (lambda (_hd140544140588_ - _id140550140590_) + (gx#stx-null? _tl140527140564_)) + (letrec ((_loop140528140567_ + (lambda (_hd140526140570_ + _id140532140572_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140544140588_)) - (let ((_e140547140593_ + (gx#stx-pair? _hd140526140570_)) + (let ((_e140529140575_ (let () (declare (not safe)) (gx#stx-e - _hd140544140588_)))) - (let ((_lp-hd140548140596_ + _hd140526140570_)))) + (let ((_lp-hd140530140578_ (let () (declare (not safe)) - (##car _e140547140593_))) - (_lp-tl140549140598_ + (##car _e140529140575_))) + (_lp-tl140531140580_ (let () (declare (not safe)) - (##cdr _e140547140593_)))) - (let ((__tmp152485 + (##cdr _e140529140575_)))) + (let ((__tmp152467 (let () (declare (not safe)) - (cons _lp-hd140548140596_ - _id140550140590_)))) + (cons _lp-hd140530140578_ + _id140532140572_)))) (declare (not safe)) - (_loop140546140585_ - _lp-tl140549140598_ - __tmp152485)))) - (let ((_id140551140601_ - (reverse _id140550140590_))) + (_loop140528140567_ + _lp-tl140531140580_ + __tmp152467)))) + (let ((_id140533140583_ + (reverse _id140532140572_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140540140577_)) - (let ((_e140554140604_ + _tl140522140559_)) + (let ((_e140536140586_ (let () (declare (not safe)) (gx#stx-e - _tl140540140577_)))) - (let ((_hd140553140607_ + _tl140522140559_)))) + (let ((_hd140535140589_ (let () (declare (not safe)) - (##car _e140554140604_))) - (_tl140552140609_ + (##car _e140536140586_))) + (_tl140534140591_ (let () (declare (not safe)) - (##cdr _e140554140604_)))) + (##cdr _e140536140586_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140552140609_)) - ((lambda (_L140612_ + _tl140534140591_)) + ((lambda (_L140594_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L140613_) + _L140595_) (let () (declare (not safe)) - (_assert-restart140508_ _L140612_ _assert140530_))) - _hd140553140607_ - _id140551140601_) + (_assert-restart140490_ _L140594_ _assert140512_))) + _hd140535140589_ + _id140533140583_) (let () (declare (not safe)) - (_g140533140559_ _g140534140562_))))) + (_g140515140541_ _g140516140544_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g140533140559_ - _g140534140562_)))))))) + (_g140515140541_ + _g140516140544_)))))))) (let () (declare (not safe)) - (_loop140546140585_ _target140543140580_ '()))) + (_loop140528140567_ _target140525140562_ '()))) (let () (declare (not safe)) - (_g140533140559_ _g140534140562_)))))) + (_g140515140541_ _g140516140544_)))))) (let () (declare (not safe)) - (_g140533140559_ _g140534140562_))))) + (_g140515140541_ _g140516140544_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g140533140559_ - _g140534140562_))) + (_g140515140541_ + _g140516140544_))) (let () (declare (not safe)) - (_g140533140559_ - _g140534140562_))) + (_g140515140541_ + _g140516140544_))) (let () (declare (not safe)) - (_g140533140559_ - _g140534140562_))))) + (_g140515140541_ + _g140516140544_))))) (let () (declare (not safe)) - (_g140533140559_ _g140534140562_)))))) + (_g140515140541_ _g140516140544_)))))) (declare (not safe)) - (_g140532140636_ _kont140531_))))) - (if (let () (declare (not safe)) (##pair? _block140509140522_)) - (let ((_tl140514140642_ + (_g140514140618_ _kont140513_))))) + (if (let () (declare (not safe)) (##pair? _block140491140504_)) + (let ((_tl140496140624_ (let () (declare (not safe)) - (##cdr _block140509140522_)))) - (if (let () (declare (not safe)) (##pair? _tl140514140642_)) - (let ((_tl140516140645_ + (##cdr _block140491140504_)))) + (if (let () (declare (not safe)) (##pair? _tl140496140624_)) + (let ((_tl140498140627_ (let () (declare (not safe)) - (##cdr _tl140514140642_)))) + (##cdr _tl140496140624_)))) (if (let () (declare (not safe)) - (##pair? _tl140516140645_)) - (let ((_hd140517140648_ + (##pair? _tl140498140627_)) + (let ((_hd140499140630_ (let () (declare (not safe)) - (##car _tl140516140645_))) - (_tl140518140650_ + (##car _tl140498140627_))) + (_tl140500140632_ (let () (declare (not safe)) - (##cdr _tl140516140645_)))) - (let ((_kont140653_ _hd140517140648_)) + (##cdr _tl140498140627_)))) + (let ((_kont140635_ _hd140499140630_)) (if (let () (declare (not safe)) - (##pair? _tl140518140650_)) - (let ((_hd140519140655_ + (##pair? _tl140500140632_)) + (let ((_hd140501140637_ (let () (declare (not safe)) - (##car _tl140518140650_))) - (_tl140520140657_ + (##car _tl140500140632_))) + (_tl140502140639_ (let () (declare (not safe)) - (##cdr _tl140518140650_)))) - (let* ((_assert140660_ _hd140519140655_) - (_maybe-bind140662_ - _tl140520140657_)) + (##cdr _tl140500140632_)))) + (let* ((_assert140642_ _hd140501140637_) + (_maybe-bind140644_ + _tl140502140639_)) (declare (not safe)) - (_K140512140639_ - _maybe-bind140662_ - _assert140660_ - _kont140653_))) + (_K140494140621_ + _maybe-bind140644_ + _assert140642_ + _kont140635_))) (let () (declare (not safe)) - (_E140511140526_))))) - (let () (declare (not safe)) (_E140511140526_)))) - (let () (declare (not safe)) (_E140511140526_)))) - (let () (declare (not safe)) (_E140511140526_))))))) + (_E140493140508_))))) + (let () (declare (not safe)) (_E140493140508_)))) + (let () (declare (not safe)) (_E140493140508_)))) + (let () (declare (not safe)) (_E140493140508_))))))) (define gxc#optimize-syntax-case - (lambda (_stx140136_) - (let* ((_g140138140168_ - (lambda (_g140139140165_) + (lambda (_stx140118_) + (let* ((_g140120140150_ + (lambda (_g140121140147_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g140139140165_)))) - (_g140137140502_ - (lambda (_g140139140171_) + _g140121140147_)))) + (_g140119140484_ + (lambda (_g140121140153_) (if (let () (declare (not safe)) - (gx#stx-pair? _g140139140171_)) - (let ((_e140145140173_ + (gx#stx-pair? _g140121140153_)) + (let ((_e140127140155_ (let () (declare (not safe)) - (gx#stx-e _g140139140171_)))) - (let ((_hd140144140176_ + (gx#stx-e _g140121140153_)))) + (let ((_hd140126140158_ (let () (declare (not safe)) - (##car _e140145140173_))) - (_tl140143140178_ + (##car _e140127140155_))) + (_tl140125140160_ (let () (declare (not safe)) - (##cdr _e140145140173_)))) + (##cdr _e140127140155_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140144140176_)) + (gx#identifier? _hd140126140158_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd140144140176_)) + _hd140126140158_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140143140178_)) - (let ((_e140148140181_ + (gx#stx-pair? _tl140125140160_)) + (let ((_e140130140163_ (let () (declare (not safe)) - (gx#stx-e _tl140143140178_)))) - (let ((_hd140147140184_ + (gx#stx-e _tl140125140160_)))) + (let ((_hd140129140166_ (let () (declare (not safe)) - (##car _e140148140181_))) - (_tl140146140186_ + (##car _e140130140163_))) + (_tl140128140168_ (let () (declare (not safe)) - (##cdr _e140148140181_)))) + (##cdr _e140130140163_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140147140184_)) - (let ((_e140151140189_ + _hd140129140166_)) + (let ((_e140133140171_ (let () (declare (not safe)) (gx#stx-e - _hd140147140184_)))) - (let ((_hd140150140192_ + _hd140129140166_)))) + (let ((_hd140132140174_ (let () (declare (not safe)) - (##car _e140151140189_))) - (_tl140149140194_ + (##car _e140133140171_))) + (_tl140131140176_ (let () (declare (not safe)) - (##cdr _e140151140189_)))) + (##cdr _e140133140171_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140150140192_)) - (let ((_e140154140197_ + _hd140132140174_)) + (let ((_e140136140179_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd140150140192_)))) - (let ((_hd140153140200_ - (let () (declare (not safe)) (##car _e140154140197_))) - (_tl140152140202_ - (let () (declare (not safe)) (##cdr _e140154140197_)))) + (gx#stx-e _hd140132140174_)))) + (let ((_hd140135140182_ + (let () (declare (not safe)) (##car _e140136140179_))) + (_tl140134140184_ + (let () (declare (not safe)) (##cdr _e140136140179_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140153140200_)) - (let ((_e140157140205_ + (gx#stx-pair? _hd140135140182_)) + (let ((_e140139140187_ (let () (declare (not safe)) - (gx#stx-e _hd140153140200_)))) - (let ((_hd140156140208_ + (gx#stx-e _hd140135140182_)))) + (let ((_hd140138140190_ (let () (declare (not safe)) - (##car _e140157140205_))) - (_tl140155140210_ + (##car _e140139140187_))) + (_tl140137140192_ (let () (declare (not safe)) - (##cdr _e140157140205_)))) + (##cdr _e140139140187_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140155140210_)) + (gx#stx-null? _tl140137140192_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140152140202_)) - (let ((_e140160140213_ + (gx#stx-pair? _tl140134140184_)) + (let ((_e140142140195_ (let () (declare (not safe)) - (gx#stx-e _tl140152140202_)))) - (let ((_hd140159140216_ + (gx#stx-e _tl140134140184_)))) + (let ((_hd140141140198_ (let () (declare (not safe)) - (##car _e140160140213_))) - (_tl140158140218_ + (##car _e140142140195_))) + (_tl140140140200_ (let () (declare (not safe)) - (##cdr _e140160140213_)))) + (##cdr _e140142140195_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140158140218_)) + (gx#stx-null? _tl140140140200_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl140149140194_)) + _tl140131140176_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140146140186_)) - (let ((_e140163140221_ + _tl140128140168_)) + (let ((_e140145140203_ (let () (declare (not safe)) (gx#stx-e - _tl140146140186_)))) - (let ((_hd140162140224_ + _tl140128140168_)))) + (let ((_hd140144140206_ (let () (declare (not safe)) - (##car _e140163140221_))) - (_tl140161140226_ + (##car _e140145140203_))) + (_tl140143140208_ (let () (declare (not safe)) - (##cdr _e140163140221_)))) + (##cdr _e140145140203_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140161140226_)) - ((lambda (_L140229_ + _tl140143140208_)) + ((lambda (_L140211_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L140230_ - _L140231_) - (let _lp140255_ ((_body140257_ _L140229_) - (_clauses140258_ '())) - (let* ((___stx151349151350_ _body140257_) - (_g140261140308_ + _L140212_ + _L140213_) + (let _lp140237_ ((_body140239_ _L140211_) + (_clauses140240_ '())) + (let* ((___stx151331151332_ _body140239_) + (_g140243140290_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx151349151350_))))) - (let ((___kont151351151352_ - (lambda (_L140474_ _L140475_ _L140476_) - (let ((__tmp152486 - (let ((__tmp152487 - (let ((__tmp152488 + ___stx151331151332_))))) + (let ((___kont151333151334_ + (lambda (_L140456_ _L140457_ _L140458_) + (let ((__tmp152468 + (let ((__tmp152469 + (let ((__tmp152470 (let () (declare (not safe)) (gxc#compile-e__0 - _L140475_)))) + _L140457_)))) (declare (not safe)) - (cons _L140476_ - __tmp152488)))) + (cons _L140458_ + __tmp152470)))) (declare (not safe)) - (cons __tmp152487 - _clauses140258_)))) + (cons __tmp152469 + _clauses140240_)))) (declare (not safe)) - (_lp140255_ _L140474_ __tmp152486)))) - (___kont151353151354_ - (lambda (_L140353_ _L140354_) - (let ((_$e140375_ (length _clauses140258_))) + (_lp140237_ _L140456_ __tmp152468)))) + (___kont151335151336_ + (lambda (_L140335_ _L140336_) + (let ((_$e140357_ (length _clauses140240_))) (if (let () (declare (not safe)) - (eq? '0 _$e140375_)) - (let ((__tmp152506 - (let ((__tmp152507 - (let ((__tmp152510 - (let ((__tmp152511 + (eq? '0 _$e140357_)) + (let ((__tmp152488 + (let ((__tmp152489 + (let ((__tmp152492 + (let ((__tmp152493 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152513 + (let ((__tmp152495 (let () (declare (not safe)) - (cons _L140231_ '()))) - (__tmp152512 + (cons _L140213_ '()))) + (__tmp152494 (let () (declare (not safe)) - (cons _L140230_ '())))) + (cons _L140212_ '())))) (declare (not safe)) - (cons __tmp152513 __tmp152512)))) + (cons __tmp152495 __tmp152494)))) (declare (not safe)) - (cons __tmp152511 '()))) - (__tmp152508 - (let ((__tmp152509 + (cons __tmp152493 '()))) + (__tmp152490 + (let ((__tmp152491 (let () (declare (not safe)) - (gxc#compile-e__0 _body140257_)))) + (gxc#compile-e__0 _body140239_)))) (declare (not safe)) - (cons __tmp152509 '())))) + (cons __tmp152491 '())))) (declare (not safe)) - (cons __tmp152510 __tmp152508)))) + (cons __tmp152492 __tmp152490)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp152507)))) + __tmp152489)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152506 - _stx140136_)) + __tmp152488 + _stx140118_)) (if (let () (declare (not safe)) - (eq? '1 _$e140375_)) - (let* ((_clauses140377140386_ - _clauses140258_) - (_E140379140390_ + (eq? '1 _$e140357_)) + (let* ((_clauses140359140368_ + _clauses140240_) + (_E140361140372_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clauses140377140386_)))) - (_K140380140396_ - (lambda (_clause-lambda140393_ - _clause140394_) - (let ((__tmp152491 - (let ((__tmp152492 + _clauses140359140368_)))) + (_K140362140378_ + (lambda (_clause-lambda140375_ + _clause140376_) + (let ((__tmp152473 + (let ((__tmp152474 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152502 - (let ((__tmp152503 - (let ((__tmp152505 + (let ((__tmp152484 + (let ((__tmp152485 + (let ((__tmp152487 (let () (declare (not safe)) - (cons _L140231_ '()))) - (__tmp152504 + (cons _L140213_ '()))) + (__tmp152486 (let () (declare (not safe)) - (cons _L140230_ '())))) + (cons _L140212_ '())))) (declare (not safe)) - (cons __tmp152505 __tmp152504)))) + (cons __tmp152487 __tmp152486)))) (declare (not safe)) - (cons __tmp152503 '()))) - (__tmp152493 - (let ((__tmp152494 - (let ((__tmp152495 - (let ((__tmp152498 - (let ((__tmp152499 - (let ((__tmp152501 + (cons __tmp152485 '()))) + (__tmp152475 + (let ((__tmp152476 + (let ((__tmp152477 + (let ((__tmp152480 + (let ((__tmp152481 + (let ((__tmp152483 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _clause140394_ '()))) - (__tmp152500 + (cons _clause140376_ '()))) + (__tmp152482 (let () (declare (not safe)) - (cons _clause-lambda140393_ '())))) + (cons _clause-lambda140375_ '())))) (declare (not safe)) - (cons __tmp152501 __tmp152500)))) + (cons __tmp152483 __tmp152482)))) (declare (not safe)) - (cons __tmp152499 '()))) - (__tmp152496 - (let ((__tmp152497 + (cons __tmp152481 '()))) + (__tmp152478 + (let ((__tmp152479 (let () (declare (not safe)) - (gxc#compile-e__0 _body140257_)))) + (gxc#compile-e__0 _body140239_)))) (declare (not safe)) - (cons __tmp152497 '())))) + (cons __tmp152479 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152498 - __tmp152496)))) + (cons __tmp152480 + __tmp152478)))) (declare (not safe)) - (cons '%#let-values __tmp152495)))) + (cons '%#let-values __tmp152477)))) (declare (not safe)) - (cons __tmp152494 '())))) + (cons __tmp152476 '())))) (declare (not safe)) - (cons __tmp152502 __tmp152493)))) + (cons __tmp152484 __tmp152475)))) (declare (not safe)) - (cons '%#let-values __tmp152492)))) + (cons '%#let-values __tmp152474)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp152491 _stx140136_))))) + (gxc#xform-wrap-source __tmp152473 _stx140118_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _clauses140377140386_)) - (let ((_hd140381140399_ + (##pair? _clauses140359140368_)) + (let ((_hd140363140381_ (let () (declare (not safe)) - (##car _clauses140377140386_))) - (_tl140382140401_ + (##car _clauses140359140368_))) + (_tl140364140383_ (let () (declare (not safe)) - (##cdr _clauses140377140386_)))) + (##cdr _clauses140359140368_)))) (if (let () (declare (not safe)) - (##pair? _hd140381140399_)) - (let ((_hd140383140404_ + (##pair? _hd140363140381_)) + (let ((_hd140365140386_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _hd140381140399_))) - (_tl140384140406_ - (let () (declare (not safe)) (##cdr _hd140381140399_)))) - (let* ((_clause140409_ _hd140383140404_) - (_clause-lambda140411_ _tl140384140406_)) + (##car _hd140363140381_))) + (_tl140366140388_ + (let () (declare (not safe)) (##cdr _hd140363140381_)))) + (let* ((_clause140391_ _hd140365140386_) + (_clause-lambda140393_ _tl140366140388_)) (if (let () (declare (not safe)) - (##null? _tl140382140401_)) + (##null? _tl140364140383_)) (let () (declare (not safe)) - (_K140380140396_ - _clause-lambda140411_ - _clause140409_)) - (let () (declare (not safe)) (_E140379140390_))))) - (let () (declare (not safe)) (_E140379140390_)))) + (_K140362140378_ + _clause-lambda140393_ + _clause140391_)) + (let () (declare (not safe)) (_E140361140372_))))) + (let () (declare (not safe)) (_E140361140372_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E140379140390_)))) - (let ((__tmp152490 + (_E140361140372_)))) + (let ((__tmp152472 (let () (declare (not safe)) (gxc#compile-e__0 - _L140353_))) - (__tmp152489 + _L140335_))) + (__tmp152471 (let () (declare (not safe)) - (cons _L140231_ - _L140230_)))) + (cons _L140213_ + _L140212_)))) (declare (not safe)) (gxc#optimize-syntax-case-body - _stx140136_ - __tmp152490 - __tmp152489 - _clauses140258_)))))))) + _stx140118_ + __tmp152472 + __tmp152471 + _clauses140240_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx151349151350_)) - (let ((_e140268140418_ + (gx#stx-pair? ___stx151331151332_)) + (let ((_e140250140400_ (let () (declare (not safe)) - (gx#stx-e ___stx151349151350_)))) - (let ((_tl140266140423_ + (gx#stx-e ___stx151331151332_)))) + (let ((_tl140248140405_ (let () (declare (not safe)) - (##cdr _e140268140418_))) - (_hd140267140421_ + (##cdr _e140250140400_))) + (_hd140249140403_ (let () (declare (not safe)) - (##car _e140268140418_)))) + (##car _e140250140400_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140267140421_)) + (gx#identifier? _hd140249140403_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd140267140421_)) + _hd140249140403_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140266140423_)) - (let ((_e140271140426_ + _tl140248140405_)) + (let ((_e140253140408_ (let () (declare (not safe)) (gx#stx-e - _tl140266140423_)))) - (let ((_tl140269140431_ + _tl140248140405_)))) + (let ((_tl140251140413_ (let () (declare (not safe)) - (##cdr _e140271140426_))) - (_hd140270140429_ + (##cdr _e140253140408_))) + (_hd140252140411_ (let () (declare (not safe)) - (##car _e140271140426_)))) + (##car _e140253140408_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140270140429_)) - (let ((_e140274140434_ + _hd140252140411_)) + (let ((_e140256140416_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd140270140429_)))) - (let ((_tl140272140439_ - (let () (declare (not safe)) (##cdr _e140274140434_))) - (_hd140273140437_ - (let () (declare (not safe)) (##car _e140274140434_)))) + (gx#stx-e _hd140252140411_)))) + (let ((_tl140254140421_ + (let () (declare (not safe)) (##cdr _e140256140416_))) + (_hd140255140419_ + (let () (declare (not safe)) (##car _e140256140416_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140273140437_)) - (let ((_e140277140442_ + (gx#stx-pair? _hd140255140419_)) + (let ((_e140259140424_ (let () (declare (not safe)) - (gx#stx-e _hd140273140437_)))) - (let ((_tl140275140447_ + (gx#stx-e _hd140255140419_)))) + (let ((_tl140257140429_ (let () (declare (not safe)) - (##cdr _e140277140442_))) - (_hd140276140445_ + (##cdr _e140259140424_))) + (_hd140258140427_ (let () (declare (not safe)) - (##car _e140277140442_)))) + (##car _e140259140424_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd140276140445_)) - (let ((_e140280140450_ + (gx#stx-pair? _hd140258140427_)) + (let ((_e140262140432_ (let () (declare (not safe)) - (gx#stx-e _hd140276140445_)))) - (let ((_tl140278140455_ + (gx#stx-e _hd140258140427_)))) + (let ((_tl140260140437_ (let () (declare (not safe)) - (##cdr _e140280140450_))) - (_hd140279140453_ + (##cdr _e140262140432_))) + (_hd140261140435_ (let () (declare (not safe)) - (##car _e140280140450_)))) + (##car _e140262140432_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140278140455_)) + (gx#stx-null? _tl140260140437_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140275140447_)) - (let ((_e140283140458_ + (gx#stx-pair? _tl140257140429_)) + (let ((_e140265140440_ (let () (declare (not safe)) (gx#stx-e - _tl140275140447_)))) - (let ((_tl140281140463_ + _tl140257140429_)))) + (let ((_tl140263140445_ (let () (declare (not safe)) - (##cdr _e140283140458_))) - (_hd140282140461_ + (##cdr _e140265140440_))) + (_hd140264140443_ (let () (declare (not safe)) - (##car _e140283140458_)))) + (##car _e140265140440_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140281140463_)) + _tl140263140445_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl140272140439_)) + _tl140254140421_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140269140431_)) - (let ((_e140286140466_ + _tl140251140413_)) + (let ((_e140268140448_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl140269140431_)))) - (let ((_tl140284140471_ + (gx#stx-e _tl140251140413_)))) + (let ((_tl140266140453_ (let () (declare (not safe)) - (##cdr _e140286140466_))) - (_hd140285140469_ + (##cdr _e140268140448_))) + (_hd140267140451_ (let () (declare (not safe)) - (##car _e140286140466_)))) + (##car _e140268140448_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140284140471_)) - (___kont151351151352_ - _hd140285140469_ - _hd140282140461_ - _hd140279140453_) - (let () (declare (not safe)) (_g140261140308_))))) - (let () (declare (not safe)) (_g140261140308_))) - (let () (declare (not safe)) (_g140261140308_))) + (gx#stx-null? _tl140266140453_)) + (___kont151333151334_ + _hd140267140451_ + _hd140264140443_ + _hd140261140435_) + (let () (declare (not safe)) (_g140243140290_))))) + (let () (declare (not safe)) (_g140243140290_))) + (let () (declare (not safe)) (_g140243140290_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g140261140308_))))) + (_g140243140290_))))) (let () (declare (not safe)) - (_g140261140308_))) + (_g140243140290_))) (let () (declare (not safe)) - (_g140261140308_))))) + (_g140243140290_))))) (let () (declare (not safe)) - (_g140261140308_))))) - (let () (declare (not safe)) (_g140261140308_))))) - (let () (declare (not safe)) (_g140261140308_))))) + (_g140243140290_))))) + (let () (declare (not safe)) (_g140243140290_))))) + (let () (declare (not safe)) (_g140243140290_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g140261140308_))) + (_g140243140290_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd140267140421_)) + _hd140249140403_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140266140423_)) - (let ((_e140294140321_ + _tl140248140405_)) + (let ((_e140276140303_ (let () (declare (not safe)) (gx#stx-e - _tl140266140423_)))) - (let ((_tl140292140326_ + _tl140248140405_)))) + (let ((_tl140274140308_ (let () (declare (not safe)) - (##cdr _e140294140321_))) - (_hd140293140324_ + (##cdr _e140276140303_))) + (_hd140275140306_ (let () (declare (not safe)) - (##car _e140294140321_)))) + (##car _e140276140303_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd140293140324_)) - (let ((_e140297140329_ + _hd140275140306_)) + (let ((_e140279140311_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd140293140324_)))) - (let ((_tl140295140334_ + (gx#stx-e _hd140275140306_)))) + (let ((_tl140277140316_ (let () (declare (not safe)) - (##cdr _e140297140329_))) - (_hd140296140332_ + (##cdr _e140279140311_))) + (_hd140278140314_ (let () (declare (not safe)) - (##car _e140297140329_)))) + (##car _e140279140311_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd140296140332_)) + (gx#identifier? _hd140278140314_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd140296140332_)) + (gx#stx-eq? '%#ref _hd140278140314_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl140295140334_)) - (let ((_e140300140337_ + (gx#stx-pair? _tl140277140316_)) + (let ((_e140282140319_ (let () (declare (not safe)) - (gx#stx-e _tl140295140334_)))) - (let ((_tl140298140342_ + (gx#stx-e _tl140277140316_)))) + (let ((_tl140280140324_ (let () (declare (not safe)) - (##cdr _e140300140337_))) - (_hd140299140340_ + (##cdr _e140282140319_))) + (_hd140281140322_ (let () (declare (not safe)) - (##car _e140300140337_)))) + (##car _e140282140319_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl140298140342_)) + (gx#stx-null? _tl140280140324_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl140292140326_)) - (let ((_e140303140345_ + _tl140274140308_)) + (let ((_e140285140327_ (let () (declare (not safe)) (gx#stx-e - _tl140292140326_)))) - (let ((_tl140301140350_ + _tl140274140308_)))) + (let ((_tl140283140332_ (let () (declare (not safe)) - (##cdr _e140303140345_))) - (_hd140302140348_ + (##cdr _e140285140327_))) + (_hd140284140330_ (let () (declare (not safe)) - (##car _e140303140345_)))) + (##car _e140285140327_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl140301140350_)) - (___kont151353151354_ - _hd140302140348_ - _hd140299140340_) + _tl140283140332_)) + (___kont151335151336_ + _hd140284140330_ + _hd140281140322_) (let () (declare (not safe)) - (_g140261140308_))))) + (_g140243140290_))))) (let () (declare (not safe)) - (_g140261140308_))) + (_g140243140290_))) (let () (declare (not safe)) - (_g140261140308_))))) + (_g140243140290_))))) (let () (declare (not safe)) - (_g140261140308_))) - (let () (declare (not safe)) (_g140261140308_))) - (let () (declare (not safe)) (_g140261140308_))))) - (let () (declare (not safe)) (_g140261140308_))))) + (_g140243140290_))) + (let () (declare (not safe)) (_g140243140290_))) + (let () (declare (not safe)) (_g140243140290_))))) + (let () (declare (not safe)) (_g140243140290_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g140261140308_))) + (_g140243140290_))) (let () (declare (not safe)) - (_g140261140308_)))) + (_g140243140290_)))) (let () (declare (not safe)) - (_g140261140308_))))) + (_g140243140290_))))) (let () (declare (not safe)) - (_g140261140308_))))))) - _hd140162140224_ - _hd140159140216_ - _hd140156140208_) + (_g140243140290_))))))) + _hd140144140206_ + _hd140141140198_ + _hd140138140190_) (let () (declare (not safe)) - (_g140138140168_ _g140139140171_))))) + (_g140120140150_ _g140121140153_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g140138140168_ - _g140139140171_))) + (_g140120140150_ + _g140121140153_))) (let () (declare (not safe)) - (_g140138140168_ - _g140139140171_))) + (_g140120140150_ + _g140121140153_))) (let () (declare (not safe)) - (_g140138140168_ - _g140139140171_))))) + (_g140120140150_ + _g140121140153_))))) (let () (declare (not safe)) - (_g140138140168_ _g140139140171_))) + (_g140120140150_ _g140121140153_))) (let () (declare (not safe)) - (_g140138140168_ _g140139140171_))))) + (_g140120140150_ _g140121140153_))))) (let () (declare (not safe)) - (_g140138140168_ _g140139140171_))))) + (_g140120140150_ _g140121140153_))))) (let () (declare (not safe)) - (_g140138140168_ _g140139140171_))))) + (_g140120140150_ _g140121140153_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g140138140168_ - _g140139140171_))))) + (_g140120140150_ + _g140121140153_))))) (let () (declare (not safe)) - (_g140138140168_ _g140139140171_))) + (_g140120140150_ _g140121140153_))) (let () (declare (not safe)) - (_g140138140168_ _g140139140171_))) + (_g140120140150_ _g140121140153_))) (let () (declare (not safe)) - (_g140138140168_ _g140139140171_))))) + (_g140120140150_ _g140121140153_))))) (let () (declare (not safe)) - (_g140138140168_ _g140139140171_)))))) + (_g140120140150_ _g140121140153_)))))) (declare (not safe)) - (_g140137140502_ _stx140136_)))) + (_g140119140484_ _stx140118_)))) (define gxc#optimize-syntax-case-body - (lambda (_stx140064_ _expr140065_ _negation140066_ _clauses140067_) - (letrec ((_normalize140069_ - (lambda (_clauses140096_) - (let* ((_clauses140097140106_ _clauses140096_) - (_E140099140110_ + (lambda (_stx140046_ _expr140047_ _negation140048_ _clauses140049_) + (letrec ((_normalize140051_ + (lambda (_clauses140078_) + (let* ((_clauses140079140088_ _clauses140078_) + (_E140081140092_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clauses140097140106_)))) - (_K140100140117_ - (lambda (_rest140113_ _kont140114_ _id140115_) - (let ((__tmp152514 + _clauses140079140088_)))) + (_K140082140099_ + (lambda (_rest140095_ _kont140096_ _id140097_) + (let ((__tmp152496 (let () (declare (not safe)) - (cons '#f _kont140114_)))) + (cons '#f _kont140096_)))) (declare (not safe)) - (cons __tmp152514 _rest140113_))))) + (cons __tmp152496 _rest140095_))))) (if (let () (declare (not safe)) - (##pair? _clauses140097140106_)) - (let ((_hd140101140120_ + (##pair? _clauses140079140088_)) + (let ((_hd140083140102_ (let () (declare (not safe)) - (##car _clauses140097140106_))) - (_tl140102140122_ + (##car _clauses140079140088_))) + (_tl140084140104_ (let () (declare (not safe)) - (##cdr _clauses140097140106_)))) + (##cdr _clauses140079140088_)))) (if (let () (declare (not safe)) - (##pair? _hd140101140120_)) - (let ((_hd140103140125_ + (##pair? _hd140083140102_)) + (let ((_hd140085140107_ (let () (declare (not safe)) - (##car _hd140101140120_))) - (_tl140104140127_ + (##car _hd140083140102_))) + (_tl140086140109_ (let () (declare (not safe)) - (##cdr _hd140101140120_)))) - (let* ((_id140130_ _hd140103140125_) - (_kont140132_ _tl140104140127_) - (_rest140134_ _tl140102140122_)) + (##cdr _hd140083140102_)))) + (let* ((_id140112_ _hd140085140107_) + (_kont140114_ _tl140086140109_) + (_rest140116_ _tl140084140104_)) (declare (not safe)) - (_K140100140117_ - _rest140134_ - _kont140132_ - _id140130_))) + (_K140082140099_ + _rest140116_ + _kont140114_ + _id140112_))) (let () (declare (not safe)) - (_E140099140110_)))) - (let () (declare (not safe)) (_E140099140110_))))))) - (let ((__tmp152516 + (_E140081140092_)))) + (let () (declare (not safe)) (_E140081140092_))))))) + (let ((__tmp152498 (lambda () - (let* ((_id140072_ - (let ((__tmp152517 (gensym '__stx))) + (let* ((_id140054_ + (let ((__tmp152499 (gensym '__stx))) (declare (not safe)) - (make-symbol__0 __tmp152517))) - (_id140074_ + (make-symbol__0 __tmp152499))) + (_id140056_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id140072_))) - (_g152518_ + (gx#core-quote-syntax__0 _id140054_))) + (_g152500_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id140074_))) - (_g152519_ - (let ((__tmp152521 (car _negation140066_))) + (gx#core-bind-runtime!__0 _id140056_))) + (_g152501_ + (let ((__tmp152503 (car _negation140048_))) (declare (not safe)) (gxc#optimize-syntax-case-clauses - _clauses140067_ - __tmp152521)))) + _clauses140049_ + __tmp152503)))) (begin - (let ((_g152520_ + (let ((_g152502_ (let () (declare (not safe)) - (if (##values? _g152519_) - (##vector-length _g152519_) + (if (##values? _g152501_) + (##vector-length _g152501_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152520_ 2))) - (error "Context expects 2 values" _g152520_))) - (let ((_clauses140077_ + (##fx= _g152502_ 2))) + (error "Context expects 2 values" _g152502_))) + (let ((_clauses140059_ (let () (declare (not safe)) - (##vector-ref _g152519_ 0))) - (_konts140078_ + (##vector-ref _g152501_ 0))) + (_konts140060_ (let () (declare (not safe)) - (##vector-ref _g152519_ 1)))) - (let* ((_clauses140087_ - (map (lambda (_g140079140082_ _g140080140084_) + (##vector-ref _g152501_ 1)))) + (let* ((_clauses140069_ + (map (lambda (_g140061140064_ _g140062140066_) (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _g140079140082_ - _g140080140084_ - _id140074_))) - _clauses140077_ - (let ((__tmp152523 - (let ((__tmp152524 - (car _negation140066_))) + _g140061140064_ + _g140062140066_ + _id140056_))) + _clauses140059_ + (let ((__tmp152505 + (let ((__tmp152506 + (car _negation140048_))) (declare (not safe)) - (cons __tmp152524 '()))) - (__tmp152522 - (map car (cdr _clauses140077_)))) + (cons __tmp152506 '()))) + (__tmp152504 + (map car (cdr _clauses140059_)))) (declare (not safe)) (foldr1 cons - __tmp152523 - __tmp152522)))) - (_clauses140089_ + __tmp152505 + __tmp152504)))) + (_clauses140071_ (let () (declare (not safe)) - (_normalize140069_ _clauses140087_))) - (_negation140091_ + (_normalize140051_ _clauses140069_))) + (_negation140073_ (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _negation140066_ + _negation140048_ '#f - _id140074_))) - (_body140093_ + _id140056_))) + (_body140075_ (let () (declare (not safe)) (gxc#optimize-match-body - _stx140064_ - _negation140091_ - _clauses140089_ - _konts140078_)))) - (let ((__tmp152525 - (let ((__tmp152526 - (let ((__tmp152528 - (let ((__tmp152529 - (let ((__tmp152531 + _stx140046_ + _negation140073_ + _clauses140071_ + _konts140060_)))) + (let ((__tmp152507 + (let ((__tmp152508 + (let ((__tmp152510 + (let ((__tmp152511 + (let ((__tmp152513 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id140074_ '()))) - (__tmp152530 - (let () (declare (not safe)) (cons _expr140065_ '())))) + (cons _id140056_ '()))) + (__tmp152512 + (let () (declare (not safe)) (cons _expr140047_ '())))) (declare (not safe)) - (cons __tmp152531 __tmp152530)))) + (cons __tmp152513 __tmp152512)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152529 '()))) - (__tmp152527 + (cons __tmp152511 '()))) + (__tmp152509 (let () (declare (not safe)) - (cons _body140093_ '())))) + (cons _body140075_ '())))) (declare (not safe)) - (cons __tmp152528 __tmp152527)))) + (cons __tmp152510 __tmp152509)))) (declare (not safe)) - (cons '%#let-values __tmp152526)))) + (cons '%#let-values __tmp152508)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152525 - _stx140064_)))))))) - (__tmp152515 - (let ((__obj152101 + __tmp152507 + _stx140046_)))))))) + (__tmp152497 + (let ((__obj152083 (let () (declare (not safe)) (##structure @@ -14863,3735 +14863,3735 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj152101) - __obj152101))) + (gx#local-context:::init! __obj152083) + __obj152083))) (declare (not safe)) (call-with-parameters - __tmp152516 + __tmp152498 gx#current-expander-context - __tmp152515))))) + __tmp152497))))) (define gxc#optimize-syntax-case-clauses - (lambda (_clauses138822_ _negation-id138823_) - (letrec ((_xform-e138825_ - (lambda (_expr139209_ - _kont-id139210_ - _kont-box139211_ - _negation-id139212_) - (let* ((___stx151551151552_ _expr139209_) - (_g139218139351_ + (lambda (_clauses138804_ _negation-id138805_) + (letrec ((_xform-e138807_ + (lambda (_expr139191_ + _kont-id139192_ + _kont-box139193_ + _negation-id139194_) + (let* ((___stx151533151534_ _expr139191_) + (_g139200139333_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx151551151552_))))) - (let ((___kont151553151554_ - (lambda (_L140040_ _L140041_ _L140042_) - (let* ((_K140059_ + ___stx151533151534_))))) + (let ((___kont151535151536_ + (lambda (_L140022_ _L140023_ _L140024_) + (let* ((_K140041_ (let () (declare (not safe)) - (_xform-e138825_ - _L140041_ - _kont-id139210_ - _kont-box139211_ - _negation-id139212_))) - (__tmp152532 - (let ((__tmp152533 - (let ((__tmp152534 + (_xform-e138807_ + _L140023_ + _kont-id139192_ + _kont-box139193_ + _negation-id139194_))) + (__tmp152514 + (let ((__tmp152515 + (let ((__tmp152516 (let () (declare (not safe)) - (cons _L140040_ '())))) + (cons _L140022_ '())))) (declare (not safe)) - (cons _K140059_ __tmp152534)))) + (cons _K140041_ __tmp152516)))) (declare (not safe)) - (cons _L140042_ __tmp152533)))) + (cons _L140024_ __tmp152515)))) (declare (not safe)) - (cons '%#if __tmp152532)))) - (___kont151555151556_ - (lambda (_L139956_ - _L139957_ - _L139958_ - _L139959_ - _L139960_) - (let* ((_id139995_ - (let ((__tmp152535 (gensym '__splice))) + (cons '%#if __tmp152514)))) + (___kont151537151538_ + (lambda (_L139938_ + _L139939_ + _L139940_ + _L139941_ + _L139942_) + (let* ((_id139977_ + (let ((__tmp152517 (gensym '__splice))) (declare (not safe)) - (make-symbol__0 __tmp152535))) - (_id139997_ + (make-symbol__0 __tmp152517))) + (_id139979_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id139995_))) - (_g152536_ + (gx#core-quote-syntax__0 _id139977_))) + (_g152518_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id139997_))) - (_body140000_ + _id139979_))) + (_body139982_ (let () (declare (not safe)) - (_xform-e138825_ - _L139956_ - _kont-id139210_ - _kont-box139211_ - _negation-id139212_)))) - (let ((__tmp152537 - (let ((__tmp152562 - (let ((__tmp152563 - (let ((__tmp152571 + (_xform-e138807_ + _L139938_ + _kont-id139192_ + _kont-box139193_ + _negation-id139194_)))) + (let ((__tmp152519 + (let ((__tmp152544 + (let ((__tmp152545 + (let ((__tmp152553 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id139997_ '()))) - (__tmp152564 - (let ((__tmp152565 - (let ((__tmp152570 + (cons _id139979_ '()))) + (__tmp152546 + (let ((__tmp152547 + (let ((__tmp152552 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp152566 - (let ((__tmp152567 - (let ((__tmp152569 + (__tmp152548 + (let ((__tmp152549 + (let ((__tmp152551 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152568 + (__tmp152550 (let () (declare (not safe)) - (cons _L139958_ '())))) + (cons _L139940_ '())))) (declare (not safe)) - (cons __tmp152569 __tmp152568)))) + (cons __tmp152551 __tmp152550)))) (declare (not safe)) - (cons __tmp152567 _L139957_)))) + (cons __tmp152549 _L139939_)))) (declare (not safe)) - (cons __tmp152570 __tmp152566)))) + (cons __tmp152552 __tmp152548)))) (declare (not safe)) - (cons __tmp152565 '())))) + (cons __tmp152547 '())))) (declare (not safe)) - (cons __tmp152571 __tmp152564)))) + (cons __tmp152553 __tmp152546)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152563 '()))) - (__tmp152538 - (let ((__tmp152539 - (let ((__tmp152540 - (let ((__tmp152542 + (cons __tmp152545 '()))) + (__tmp152520 + (let ((__tmp152521 + (let ((__tmp152522 + (let ((__tmp152524 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152553 - (let ((__tmp152561 + (let ((__tmp152535 + (let ((__tmp152543 (let () (declare (not safe)) - (cons _L139960_ '()))) - (__tmp152554 - (let ((__tmp152555 - (let ((__tmp152556 - (let ((__tmp152557 - (let ((__tmp152559 + (cons _L139942_ '()))) + (__tmp152536 + (let ((__tmp152537 + (let ((__tmp152538 + (let ((__tmp152539 + (let ((__tmp152541 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152560 + (let ((__tmp152542 (let () (declare (not safe)) - (cons _id139997_ '())))) + (cons _id139979_ '())))) (declare (not safe)) - (cons '%#ref __tmp152560))) - (__tmp152558 + (cons '%#ref __tmp152542))) + (__tmp152540 (let () (declare (not safe)) (cons '(%#quote 0) '())))) (declare (not safe)) - (cons __tmp152559 __tmp152558)))) + (cons __tmp152541 __tmp152540)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp152557)))) + (cons '(%#ref ##vector-ref) __tmp152539)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp152556)))) + __tmp152538)))) (declare (not safe)) - (cons __tmp152555 '())))) + (cons __tmp152537 '())))) (declare (not safe)) - (cons __tmp152561 __tmp152554))) - (__tmp152543 - (let ((__tmp152544 - (let ((__tmp152552 + (cons __tmp152543 __tmp152536))) + (__tmp152525 + (let ((__tmp152526 + (let ((__tmp152534 (let () (declare (not safe)) - (cons _L139959_ '()))) - (__tmp152545 - (let ((__tmp152546 - (let ((__tmp152547 - (let ((__tmp152548 + (cons _L139941_ '()))) + (__tmp152527 + (let ((__tmp152528 + (let ((__tmp152529 + (let ((__tmp152530 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152550 - (let ((__tmp152551 + (let ((__tmp152532 + (let ((__tmp152533 (let () (declare (not safe)) - (cons _id139997_ '())))) + (cons _id139979_ '())))) (declare (not safe)) - (cons '%#ref __tmp152551))) - (__tmp152549 + (cons '%#ref __tmp152533))) + (__tmp152531 (let () (declare (not safe)) (cons '(%#quote 1) '())))) (declare (not safe)) - (cons __tmp152550 __tmp152549)))) + (cons __tmp152532 __tmp152531)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp152548)))) + (cons '(%#ref ##vector-ref) __tmp152530)))) (declare (not safe)) - (cons '%#call __tmp152547)))) + (cons '%#call __tmp152529)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152546 '())))) + (cons __tmp152528 '())))) (declare (not safe)) - (cons __tmp152552 __tmp152545)))) + (cons __tmp152534 __tmp152527)))) (declare (not safe)) - (cons __tmp152544 '())))) + (cons __tmp152526 '())))) (declare (not safe)) - (cons __tmp152553 __tmp152543))) - (__tmp152541 + (cons __tmp152535 __tmp152525))) + (__tmp152523 (let () (declare (not safe)) - (cons _body140000_ '())))) + (cons _body139982_ '())))) (declare (not safe)) - (cons __tmp152542 __tmp152541)))) + (cons __tmp152524 __tmp152523)))) (declare (not safe)) - (cons '%#let-values __tmp152540)))) + (cons '%#let-values __tmp152522)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152539 '())))) + (cons __tmp152521 '())))) (declare (not safe)) - (cons __tmp152562 __tmp152538)))) + (cons __tmp152544 __tmp152520)))) (declare (not safe)) - (cons '%#let-values __tmp152537))))) - (___kont151557151558_ - (lambda (_L139838_ _L139839_) - (let* ((_body139853_ + (cons '%#let-values __tmp152519))))) + (___kont151539151540_ + (lambda (_L139820_ _L139821_) + (let* ((_body139835_ (let () (declare (not safe)) - (_xform-e138825_ - _L139838_ - _kont-id139210_ - _kont-box139211_ - _negation-id139212_))) - (__tmp152572 - (let ((__tmp152573 + (_xform-e138807_ + _L139820_ + _kont-id139192_ + _kont-box139193_ + _negation-id139194_))) + (__tmp152554 + (let ((__tmp152555 (let () (declare (not safe)) - (cons _body139853_ '())))) + (cons _body139835_ '())))) (declare (not safe)) - (cons _L139839_ __tmp152573)))) + (cons _L139821_ __tmp152555)))) (declare (not safe)) - (cons '%#let-values __tmp152572)))) - (___kont151559151560_ - (lambda (_L139782_ _L139783_ _L139784_) - (let* ((_lambda-expr139807_ + (cons '%#let-values __tmp152554)))) + (___kont151541151542_ + (lambda (_L139764_ _L139765_ _L139766_) + (let* ((_lambda-expr139789_ (let () (declare (not safe)) - (_xform-loop-e138826_ - _L139783_ - _kont-id139210_ - _kont-box139211_ - _negation-id139212_))) - (__tmp152574 - (let ((__tmp152576 - (let ((__tmp152577 - (let ((__tmp152579 + (_xform-loop-e138808_ + _L139765_ + _kont-id139192_ + _kont-box139193_ + _negation-id139194_))) + (__tmp152556 + (let ((__tmp152558 + (let ((__tmp152559 + (let ((__tmp152561 (let () (declare (not safe)) - (cons _L139784_ + (cons _L139766_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp152578 + (__tmp152560 (let () (declare (not safe)) - (cons _lambda-expr139807_ '())))) + (cons _lambda-expr139789_ '())))) (declare (not safe)) - (cons __tmp152579 __tmp152578)))) + (cons __tmp152561 __tmp152560)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152577 '()))) - (__tmp152575 + (cons __tmp152559 '()))) + (__tmp152557 (let () (declare (not safe)) - (cons _L139782_ '())))) + (cons _L139764_ '())))) (declare (not safe)) - (cons __tmp152576 __tmp152575)))) + (cons __tmp152558 __tmp152557)))) (declare (not safe)) - (cons '%#letrec-values __tmp152574)))) - (___kont151561151562_ - (lambda (_L139444_ _L139445_ _L139446_) - (let* ((___stx151453151454_ _L139445_) - (_g139475139518_ + (cons '%#letrec-values __tmp152556)))) + (___kont151543151544_ + (lambda (_L139426_ _L139427_ _L139428_) + (let* ((___stx151435151436_ _L139427_) + (_g139457139500_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx151453151454_))))) - (let ((___kont151455151456_ - (lambda (_L139634_ - _L139635_ - _L139636_ - _L139637_) - (let ((_kont139678_ - (let ((__tmp152584 + ___stx151435151436_))))) + (let ((___kont151437151438_ + (lambda (_L139616_ + _L139617_ + _L139618_ + _L139619_) + (let ((_kont139660_ + (let ((__tmp152566 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp152580 - (let ((__tmp152582 - (let ((__tmp152583 + (__tmp152562 + (let ((__tmp152564 + (let ((__tmp152565 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g139670139673_ _g139671139675_) + (lambda (_g139652139655_ _g139653139657_) (let () (declare (not safe)) - (cons _g139670139673_ _g139671139675_))))) + (cons _g139652139655_ _g139653139657_))))) (declare (not safe)) - (foldr1 __tmp152583 '() _L139446_))) - (__tmp152581 - (let () (declare (not safe)) (cons _L139636_ '())))) + (foldr1 __tmp152565 '() _L139428_))) + (__tmp152563 + (let () (declare (not safe)) (cons _L139618_ '())))) (declare (not safe)) - (cons __tmp152582 __tmp152581)))) + (cons __tmp152564 __tmp152563)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152584 - __tmp152580)))) + (cons __tmp152566 + __tmp152562)))) (set-box! - _kont-box139211_ - _kont139678_) - (let* ((_kont-args139689_ - (map (lambda (_id139680_) - (let ((__tmp152585 + _kont-box139193_ + _kont139660_) + (let* ((_kont-args139671_ + (map (lambda (_id139662_) + (let ((__tmp152567 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id139680_ '())))) + (let () (declare (not safe)) (cons _id139662_ '())))) (declare (not safe)) - (cons '%#ref __tmp152585))) - (let ((__tmp152586 - (lambda (_g139681139684_ _g139682139686_) + (cons '%#ref __tmp152567))) + (let ((__tmp152568 + (lambda (_g139663139666_ _g139664139668_) (let () (declare (not safe)) - (cons _g139681139684_ _g139682139686_))))) + (cons _g139663139666_ _g139664139668_))))) (declare (not safe)) - (foldr1 __tmp152586 '() _L139446_)))) + (foldr1 __tmp152568 '() _L139428_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_body139691_ - (let ((__tmp152587 - (let ((__tmp152588 + (_body139673_ + (let ((__tmp152569 + (let ((__tmp152570 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp152600 - (let ((__tmp152601 - (let ((__tmp152602 - (let ((__tmp152603 + (let ((__tmp152582 + (let ((__tmp152583 + (let ((__tmp152584 + (let ((__tmp152585 (let () (declare (not safe)) - (cons _kont-id139210_ + (cons _kont-id139192_ '())))) (declare (not safe)) - (cons '%#ref __tmp152603)))) + (cons '%#ref __tmp152585)))) (declare (not safe)) - (cons __tmp152602 - _kont-args139689_)))) + (cons __tmp152584 + _kont-args139671_)))) (declare (not safe)) - (cons '%#call __tmp152601))) - (__tmp152589 - (let ((__tmp152590 - (let ((__tmp152599 + (cons '%#call __tmp152583))) + (__tmp152571 + (let ((__tmp152572 + (let ((__tmp152581 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp152591 - (let ((__tmp152596 - (let ((__tmp152598 + (__tmp152573 + (let ((__tmp152578 + (let ((__tmp152580 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152597 - (let () (declare (not safe)) (cons _L139635_ '())))) + (__tmp152579 + (let () (declare (not safe)) (cons _L139617_ '())))) (declare (not safe)) - (cons __tmp152598 __tmp152597))) + (cons __tmp152580 __tmp152579))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp152592 - (let ((__tmp152593 - (let ((__tmp152595 + (__tmp152574 + (let ((__tmp152575 + (let ((__tmp152577 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152594 + (__tmp152576 (let () (declare (not safe)) - (cons _L139634_ '())))) + (cons _L139616_ '())))) (declare (not safe)) - (cons __tmp152595 __tmp152594)))) + (cons __tmp152577 __tmp152576)))) (declare (not safe)) - (cons __tmp152593 '())))) + (cons __tmp152575 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152596 - __tmp152592)))) + (cons __tmp152578 + __tmp152574)))) (declare (not safe)) - (cons __tmp152599 __tmp152591)))) + (cons __tmp152581 __tmp152573)))) (declare (not safe)) - (cons __tmp152590 '())))) + (cons __tmp152572 '())))) (declare (not safe)) - (cons __tmp152600 __tmp152589)))) + (cons __tmp152582 __tmp152571)))) (declare (not safe)) - (cons _L139637_ __tmp152588)))) + (cons _L139619_ __tmp152570)))) (declare (not safe)) - (cons '%#if __tmp152587)))) + (cons '%#if __tmp152569)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp152611 - (let ((__tmp152612 - (lambda (_g139693139696_ + (if (let ((__tmp152593 + (let ((__tmp152594 + (lambda (_g139675139678_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g139694139698_) + _g139676139680_) (let () (declare (not safe)) - (cons _g139693139696_ _g139694139698_))))) + (cons _g139675139678_ _g139676139680_))))) (declare (not safe)) - (foldr1 __tmp152612 '() _L139446_)))) + (foldr1 __tmp152594 '() _L139428_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp152611)) - _body139691_ - (let ((__tmp152604 - (let ((__tmp152606 - (map (lambda (_id139701_ + (null? __tmp152593)) + _body139673_ + (let ((__tmp152586 + (let ((__tmp152588 + (map (lambda (_id139683_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _arg139702_) - (let ((__tmp152608 + _arg139684_) + (let ((__tmp152590 (let () (declare (not safe)) - (cons _id139701_ '()))) - (__tmp152607 + (cons _id139683_ '()))) + (__tmp152589 (let () (declare (not safe)) - (cons _arg139702_ '())))) + (cons _arg139684_ '())))) (declare (not safe)) - (cons __tmp152608 __tmp152607))) - (let ((__tmp152609 - (lambda (_g139703139706_ _g139704139708_) + (cons __tmp152590 __tmp152589))) + (let ((__tmp152591 + (lambda (_g139685139688_ _g139686139690_) (let () (declare (not safe)) - (cons _g139703139706_ - _g139704139708_))))) + (cons _g139685139688_ + _g139686139690_))))) (declare (not safe)) - (foldr1 __tmp152609 '() _L139446_)) - (let ((__tmp152610 - (lambda (_g139710139713_ _g139711139715_) + (foldr1 __tmp152591 '() _L139428_)) + (let ((__tmp152592 + (lambda (_g139692139695_ _g139693139697_) (let () (declare (not safe)) - (cons _g139710139713_ - _g139711139715_))))) + (cons _g139692139695_ + _g139693139697_))))) (declare (not safe)) - (foldr1 __tmp152610 '() _L139444_)))) - (__tmp152605 - (let () (declare (not safe)) (cons _body139691_ '())))) + (foldr1 __tmp152592 '() _L139426_)))) + (__tmp152587 + (let () (declare (not safe)) (cons _body139673_ '())))) (declare (not safe)) - (cons __tmp152606 __tmp152605)))) + (cons __tmp152588 __tmp152587)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp152604))))))) - (___kont151457151458_ + __tmp152586))))))) + (___kont151439151440_ (lambda () - (let ((_kont139532_ - (let ((__tmp152617 + (let ((_kont139514_ + (let ((__tmp152599 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp152613 - (let ((__tmp152615 - (let ((__tmp152616 + (__tmp152595 + (let ((__tmp152597 + (let ((__tmp152598 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g139524139527_ _g139525139529_) + (lambda (_g139506139509_ _g139507139511_) (let () (declare (not safe)) - (cons _g139524139527_ _g139525139529_))))) + (cons _g139506139509_ _g139507139511_))))) (declare (not safe)) - (foldr1 __tmp152616 '() _L139446_))) - (__tmp152614 - (let () (declare (not safe)) (cons _L139445_ '())))) + (foldr1 __tmp152598 '() _L139428_))) + (__tmp152596 + (let () (declare (not safe)) (cons _L139427_ '())))) (declare (not safe)) - (cons __tmp152615 __tmp152614)))) + (cons __tmp152597 __tmp152596)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152617 - __tmp152613)))) + (cons __tmp152599 + __tmp152595)))) (set-box! - _kont-box139211_ - _kont139532_) - (let ((__tmp152618 - (let ((__tmp152621 - (let ((__tmp152622 + _kont-box139193_ + _kont139514_) + (let ((__tmp152600 + (let ((__tmp152603 + (let ((__tmp152604 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kont-id139210_ '())))) + (cons _kont-id139192_ '())))) (declare (not safe)) - (cons '%#ref __tmp152622))) - (__tmp152619 - (let ((__tmp152620 - (lambda (_g139533139536_ _g139534139538_) + (cons '%#ref __tmp152604))) + (__tmp152601 + (let ((__tmp152602 + (lambda (_g139515139518_ _g139516139520_) (let () (declare (not safe)) - (cons _g139533139536_ _g139534139538_))))) + (cons _g139515139518_ _g139516139520_))))) (declare (not safe)) - (foldr1 __tmp152620 '() _L139444_)))) + (foldr1 __tmp152602 '() _L139426_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152621 - __tmp152619)))) + (cons __tmp152603 + __tmp152601)))) (declare (not safe)) - (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_)) + (cons '%#call __tmp152600)))))) + (let ((___match151530151531_ + (lambda (_e139465139528_ + _hd139464139531_ + _tl139463139533_ + _e139468139536_ + _hd139467139539_ + _tl139466139541_ + _e139471139544_ + _hd139470139547_ + _tl139469139549_ + _e139474139552_ + _hd139473139555_ + _tl139472139557_ + _e139477139560_ + _hd139476139563_ + _tl139475139565_ + _e139480139568_ + _hd139479139571_ + _tl139478139573_ + _e139483139576_ + _hd139482139579_ + _tl139481139581_ + _e139486139584_ + _hd139485139587_ + _tl139484139589_ + _e139489139592_ + _hd139488139595_ + _tl139487139597_ + _e139492139600_ + _hd139491139603_ + _tl139490139605_ + _e139495139608_ + _hd139494139611_ + _tl139493139613_) + (let ((_L139616_ _hd139494139611_) + (_L139617_ _hd139485139587_) + (_L139618_ _hd139470139547_) + (_L139619_ _hd139467139539_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L139635_ - _negation-id139212_)) - (___kont151455151456_ - _L139634_ - _L139635_ - _L139636_ - _L139637_) - (___kont151457151458_)))))) + _L139617_ + _negation-id139194_)) + (___kont151437151438_ + _L139616_ + _L139617_ + _L139618_ + _L139619_) + (___kont151439151440_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx151453151454_)) - (let ((_e139483139546_ + (gx#stx-pair? ___stx151435151436_)) + (let ((_e139465139528_ (let () (declare (not safe)) (gx#stx-e - ___stx151453151454_)))) - (let ((_tl139481139551_ + ___stx151435151436_)))) + (let ((_tl139463139533_ (let () (declare (not safe)) - (##cdr _e139483139546_))) - (_hd139482139549_ + (##cdr _e139465139528_))) + (_hd139464139531_ (let () (declare (not safe)) - (##car _e139483139546_)))) + (##car _e139465139528_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd139482139549_)) + _hd139464139531_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd139482139549_)) + _hd139464139531_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139481139551_)) - (let ((_e139486139554_ + _tl139463139533_)) + (let ((_e139468139536_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl139481139551_)))) - (let ((_tl139484139559_ + (gx#stx-e _tl139463139533_)))) + (let ((_tl139466139541_ (let () (declare (not safe)) - (##cdr _e139486139554_))) - (_hd139485139557_ + (##cdr _e139468139536_))) + (_hd139467139539_ (let () (declare (not safe)) - (##car _e139486139554_)))) + (##car _e139468139536_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139484139559_)) - (let ((_e139489139562_ + (gx#stx-pair? _tl139466139541_)) + (let ((_e139471139544_ (let () (declare (not safe)) - (gx#stx-e _tl139484139559_)))) - (let ((_tl139487139567_ + (gx#stx-e _tl139466139541_)))) + (let ((_tl139469139549_ (let () (declare (not safe)) - (##cdr _e139489139562_))) - (_hd139488139565_ + (##cdr _e139471139544_))) + (_hd139470139547_ (let () (declare (not safe)) - (##car _e139489139562_)))) + (##car _e139471139544_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139487139567_)) - (let ((_e139492139570_ + (gx#stx-pair? _tl139469139549_)) + (let ((_e139474139552_ (let () (declare (not safe)) - (gx#stx-e _tl139487139567_)))) - (let ((_tl139490139575_ + (gx#stx-e _tl139469139549_)))) + (let ((_tl139472139557_ (let () (declare (not safe)) - (##cdr _e139492139570_))) - (_hd139491139573_ + (##cdr _e139474139552_))) + (_hd139473139555_ (let () (declare (not safe)) - (##car _e139492139570_)))) + (##car _e139474139552_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139491139573_)) - (let ((_e139495139578_ + (gx#stx-pair? _hd139473139555_)) + (let ((_e139477139560_ (let () (declare (not safe)) (gx#stx-e - _hd139491139573_)))) - (let ((_tl139493139583_ + _hd139473139555_)))) + (let ((_tl139475139565_ (let () (declare (not safe)) - (##cdr _e139495139578_))) - (_hd139494139581_ + (##cdr _e139477139560_))) + (_hd139476139563_ (let () (declare (not safe)) - (##car _e139495139578_)))) + (##car _e139477139560_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd139494139581_)) + _hd139476139563_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd139494139581_)) + _hd139476139563_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139493139583_)) - (let ((_e139498139586_ + _tl139475139565_)) + (let ((_e139480139568_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl139493139583_)))) - (let ((_tl139496139591_ + (gx#stx-e _tl139475139565_)))) + (let ((_tl139478139573_ (let () (declare (not safe)) - (##cdr _e139498139586_))) - (_hd139497139589_ + (##cdr _e139480139568_))) + (_hd139479139571_ (let () (declare (not safe)) - (##car _e139498139586_)))) + (##car _e139480139568_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139497139589_)) - (let ((_e139501139594_ + (gx#stx-pair? _hd139479139571_)) + (let ((_e139483139576_ (let () (declare (not safe)) - (gx#stx-e _hd139497139589_)))) - (let ((_tl139499139599_ + (gx#stx-e _hd139479139571_)))) + (let ((_tl139481139581_ (let () (declare (not safe)) - (##cdr _e139501139594_))) - (_hd139500139597_ + (##cdr _e139483139576_))) + (_hd139482139579_ (let () (declare (not safe)) - (##car _e139501139594_)))) + (##car _e139483139576_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139500139597_)) + (gx#identifier? _hd139482139579_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd139500139597_)) + (gx#stx-eq? '%#ref _hd139482139579_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139499139599_)) - (let ((_e139504139602_ + (gx#stx-pair? _tl139481139581_)) + (let ((_e139486139584_ (let () (declare (not safe)) (gx#stx-e - _tl139499139599_)))) - (let ((_tl139502139607_ + _tl139481139581_)))) + (let ((_tl139484139589_ (let () (declare (not safe)) - (##cdr _e139504139602_))) - (_hd139503139605_ + (##cdr _e139486139584_))) + (_hd139485139587_ (let () (declare (not safe)) - (##car _e139504139602_)))) + (##car _e139486139584_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139502139607_)) + _tl139484139589_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139496139591_)) - (let ((_e139507139610_ + _tl139478139573_)) + (let ((_e139489139592_ (let () (declare (not safe)) (gx#stx-e - _tl139496139591_)))) - (let ((_tl139505139615_ + _tl139478139573_)))) + (let ((_tl139487139597_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e139507139610_))) - (_hd139506139613_ - (let () (declare (not safe)) (##car _e139507139610_)))) + (##cdr _e139489139592_))) + (_hd139488139595_ + (let () (declare (not safe)) (##car _e139489139592_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139506139613_)) - (let ((_e139510139618_ + (gx#stx-pair? _hd139488139595_)) + (let ((_e139492139600_ (let () (declare (not safe)) - (gx#stx-e _hd139506139613_)))) - (let ((_tl139508139623_ + (gx#stx-e _hd139488139595_)))) + (let ((_tl139490139605_ (let () (declare (not safe)) - (##cdr _e139510139618_))) - (_hd139509139621_ + (##cdr _e139492139600_))) + (_hd139491139603_ (let () (declare (not safe)) - (##car _e139510139618_)))) + (##car _e139492139600_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139509139621_)) + (gx#identifier? _hd139491139603_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd139509139621_)) + (gx#stx-eq? '%#ref _hd139491139603_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139508139623_)) - (let ((_e139513139626_ + (gx#stx-pair? _tl139490139605_)) + (let ((_e139495139608_ (let () (declare (not safe)) - (gx#stx-e _tl139508139623_)))) - (let ((_tl139511139631_ + (gx#stx-e _tl139490139605_)))) + (let ((_tl139493139613_ (let () (declare (not safe)) - (##cdr _e139513139626_))) - (_hd139512139629_ + (##cdr _e139495139608_))) + (_hd139494139611_ (let () (declare (not safe)) - (##car _e139513139626_)))) + (##car _e139495139608_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139511139631_)) + (gx#stx-null? _tl139493139613_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl139505139615_)) + _tl139487139597_)) (if (let () (declare (not safe)) (gx#stx-null? - _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_)))) + _tl139472139557_)) + (___match151530151531_ + _e139465139528_ + _hd139464139531_ + _tl139463139533_ + _e139468139536_ + _hd139467139539_ + _tl139466139541_ + _e139471139544_ + _hd139470139547_ + _tl139469139549_ + _e139474139552_ + _hd139473139555_ + _tl139472139557_ + _e139477139560_ + _hd139476139563_ + _tl139475139565_ + _e139480139568_ + _hd139479139571_ + _tl139478139573_ + _e139483139576_ + _hd139482139579_ + _tl139481139581_ + _e139486139584_ + _hd139485139587_ + _tl139484139589_ + _e139489139592_ + _hd139488139595_ + _tl139487139597_ + _e139492139600_ + _hd139491139603_ + _tl139490139605_ + _e139495139608_ + _hd139494139611_ + _tl139493139613_) + (___kont151439151440_)) + (___kont151439151440_)) + (___kont151439151440_)))) + (___kont151439151440_)) + (___kont151439151440_)) + (___kont151439151440_)))) + (___kont151439151440_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151457151458_)) - (___kont151457151458_)))) - (___kont151457151458_)) - (___kont151457151458_)) - (___kont151457151458_)))) - (___kont151457151458_)))) - (___kont151457151458_)) + (___kont151439151440_)) + (___kont151439151440_)))) + (___kont151439151440_)) + (___kont151439151440_)) + (___kont151439151440_)))) + (___kont151439151440_)))) + (___kont151439151440_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont151457151458_)) - (___kont151457151458_)))) - (___kont151457151458_)))) - (___kont151457151458_)))) - (___kont151457151458_)))) - (___kont151457151458_)) + (___kont151439151440_)) + (___kont151439151440_)))) + (___kont151439151440_)))) + (___kont151439151440_)))) + (___kont151439151440_)))) + (___kont151439151440_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_) + (___kont151439151440_)) + (___kont151439151440_)))) + (___kont151439151440_)))))))) + (let* ((___match151790151791_ + (lambda (_e139298139338_ + _hd139297139341_ + _tl139296139343_ + _e139301139346_ + _hd139300139349_ + _tl139299139351_ + _e139304139354_ + _hd139303139357_ + _tl139302139359_ + _e139307139362_ + _hd139306139365_ + _tl139305139367_ + ___splice151545151546_ + _target139308139370_ + _tl139310139372_) + (letrec ((_loop139311139375_ + (lambda (_hd139309139378_ + _id139315139380_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139327139396_)) - (let ((_e139330139401_ + _hd139309139378_)) + (let ((_e139312139383_ (let () (declare (not safe)) (gx#stx-e - _hd139327139396_)))) - (let ((_lp-tl139332139406_ + _hd139309139378_)))) + (let ((_lp-tl139314139388_ (let () (declare (not safe)) - (##cdr _e139330139401_))) - (_lp-hd139331139404_ + (##cdr _e139312139383_))) + (_lp-hd139313139386_ (let () (declare (not safe)) - (##car _e139330139401_)))) - (let ((__tmp152624 + (##car _e139312139383_)))) + (let ((__tmp152606 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd139331139404_ _id139333139398_)))) + (cons _lp-hd139313139386_ _id139315139380_)))) (declare (not safe)) - (_loop139329139393_ _lp-tl139332139406_ __tmp152624)))) + (_loop139311139375_ _lp-tl139314139388_ __tmp152606)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id139334139409_ - (reverse _id139333139398_))) + (let ((_id139316139391_ + (reverse _id139315139380_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139323139385_)) - (let ((_e139337139412_ + _tl139305139367_)) + (let ((_e139319139394_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl139323139385_)))) - (let ((_tl139335139417_ - (let () (declare (not safe)) (##cdr _e139337139412_))) - (_hd139336139415_ + (gx#stx-e _tl139305139367_)))) + (let ((_tl139317139399_ + (let () (declare (not safe)) (##cdr _e139319139394_))) + (_hd139318139397_ (let () (declare (not safe)) - (##car _e139337139412_)))) + (##car _e139319139394_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139335139417_)) + (gx#stx-null? _tl139317139399_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl139317139369_)) - (let ((___splice151565151566_ + (gx#stx-pair/null? _tl139299139351_)) + (let ((___splice151547151548_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl139317139369_ + _tl139299139351_ '0)))) - (let ((_tl139340139422_ + (let ((_tl139322139404_ (let () (declare (not safe)) (##vector-ref - ___splice151565151566_ + ___splice151547151548_ '1))) - (_target139338139420_ + (_target139320139402_ (let () (declare (not safe)) (##vector-ref - ___splice151565151566_ + ___splice151547151548_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139340139422_)) - (letrec ((_loop139341139425_ - (lambda (_hd139339139428_ - _arg139345139430_) + (gx#stx-null? _tl139322139404_)) + (letrec ((_loop139323139407_ + (lambda (_hd139321139410_ + _arg139327139412_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139339139428_)) - (let ((_e139342139433_ + _hd139321139410_)) + (let ((_e139324139415_ (let () (declare (not safe)) (gx#stx-e - _hd139339139428_)))) - (let ((_lp-tl139344139438_ + _hd139321139410_)))) + (let ((_lp-tl139326139420_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e139342139433_))) - (_lp-hd139343139436_ - (let () (declare (not safe)) (##car _e139342139433_)))) - (let ((__tmp152623 + (##cdr _e139324139415_))) + (_lp-hd139325139418_ + (let () (declare (not safe)) (##car _e139324139415_)))) + (let ((__tmp152605 (let () (declare (not safe)) - (cons _lp-hd139343139436_ _arg139345139430_)))) + (cons _lp-hd139325139418_ _arg139327139412_)))) (declare (not safe)) - (_loop139341139425_ _lp-tl139344139438_ __tmp152623)))) + (_loop139323139407_ _lp-tl139326139420_ __tmp152605)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg139346139441_ - (reverse _arg139345139430_))) - (___kont151561151562_ - _arg139346139441_ - _hd139336139415_ - _id139334139409_)))))) + (let ((_arg139328139423_ + (reverse _arg139327139412_))) + (___kont151543151544_ + _arg139328139423_ + _hd139318139397_ + _id139316139391_)))))) (let () (declare (not safe)) - (_loop139341139425_ - _target139338139420_ + (_loop139323139407_ + _target139320139402_ '()))) (let () (declare (not safe)) - (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_))) - (let () (declare (not safe)) (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_)))))))) + (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_))) + (let () (declare (not safe)) (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop139329139393_ - _target139326139388_ + (_loop139311139375_ + _target139308139370_ '()))))) - (___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_)) + (___match151672151673_ + (lambda (_e139224139842_ + _hd139223139845_ + _tl139222139847_ + _e139227139850_ + _hd139226139853_ + _tl139225139855_ + _e139230139858_ + _hd139229139861_ + _tl139228139863_ + _e139233139866_ + _hd139232139869_ + _tl139231139871_ + _e139236139874_ + _hd139235139877_ + _tl139234139879_ + _e139239139882_ + _hd139238139885_ + _tl139237139887_ + _e139242139890_ + _hd139241139893_ + _tl139240139895_ + _e139245139898_ + _hd139244139901_ + _tl139243139903_ + _e139248139906_ + _hd139247139909_ + _tl139246139911_ + _e139251139914_ + _hd139250139917_ + _tl139249139919_ + _e139254139922_ + _hd139253139925_ + _tl139252139927_ + _e139257139930_ + _hd139256139933_ + _tl139255139935_) + (let ((_L139938_ _hd139256139933_) + (_L139939_ _tl139246139911_) + (_L139940_ _hd139253139925_) + (_L139941_ _hd139238139885_) + (_L139942_ _hd139235139877_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L139958_ + _L139940_ 'gx#syntax-split-splice)) - (___kont151555151556_ - _L139956_ - _L139957_ - _L139958_ - _L139959_ - _L139960_) - (___kont151557151558_ - _hd139274139951_ - _hd139244139871_)))))) + (___kont151537151538_ + _L139938_ + _L139939_ + _L139940_ + _L139941_ + _L139942_) + (___kont151539151540_ + _hd139256139933_ + _hd139226139853_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx151551151552_)) - (let ((_e139225140008_ + (gx#stx-pair? ___stx151533151534_)) + (let ((_e139207139990_ (let () (declare (not safe)) - (gx#stx-e ___stx151551151552_)))) - (let ((_tl139223140013_ + (gx#stx-e ___stx151533151534_)))) + (let ((_tl139205139995_ (let () (declare (not safe)) - (##cdr _e139225140008_))) - (_hd139224140011_ + (##cdr _e139207139990_))) + (_hd139206139993_ (let () (declare (not safe)) - (##car _e139225140008_)))) + (##car _e139207139990_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139224140011_)) + (gx#identifier? _hd139206139993_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd139224140011_)) + _hd139206139993_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139223140013_)) - (let ((_e139228140016_ + _tl139205139995_)) + (let ((_e139210139998_ (let () (declare (not safe)) (gx#stx-e - _tl139223140013_)))) - (let ((_tl139226140021_ + _tl139205139995_)))) + (let ((_tl139208140003_ (let () (declare (not safe)) - (##cdr _e139228140016_))) - (_hd139227140019_ + (##cdr _e139210139998_))) + (_hd139209140001_ (let () (declare (not safe)) - (##car _e139228140016_)))) + (##car _e139210139998_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139226140021_)) - (let ((_e139231140024_ + _tl139208140003_)) + (let ((_e139213140006_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl139226140021_)))) - (let ((_tl139229140029_ - (let () (declare (not safe)) (##cdr _e139231140024_))) - (_hd139230140027_ - (let () (declare (not safe)) (##car _e139231140024_)))) + (gx#stx-e _tl139208140003_)))) + (let ((_tl139211140011_ + (let () (declare (not safe)) (##cdr _e139213140006_))) + (_hd139212140009_ + (let () (declare (not safe)) (##car _e139213140006_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139229140029_)) - (let ((_e139234140032_ + (gx#stx-pair? _tl139211140011_)) + (let ((_e139216140014_ (let () (declare (not safe)) - (gx#stx-e _tl139229140029_)))) - (let ((_tl139232140037_ + (gx#stx-e _tl139211140011_)))) + (let ((_tl139214140019_ (let () (declare (not safe)) - (##cdr _e139234140032_))) - (_hd139233140035_ + (##cdr _e139216140014_))) + (_hd139215140017_ (let () (declare (not safe)) - (##car _e139234140032_)))) + (##car _e139216140014_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139232140037_)) - (___kont151553151554_ - _hd139233140035_ - _hd139230140027_ - _hd139227140019_) + (gx#stx-null? _tl139214140019_)) + (___kont151535151536_ + _hd139215140017_ + _hd139212140009_ + _hd139209140001_) (let () (declare (not safe)) - (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_))))) + (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139218139351_))) + (_g139200139333_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd139224140011_)) + _hd139206139993_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139223140013_)) - (let ((_e139245139868_ + _tl139205139995_)) + (let ((_e139227139850_ (let () (declare (not safe)) (gx#stx-e - _tl139223140013_)))) - (let ((_tl139243139873_ + _tl139205139995_)))) + (let ((_tl139225139855_ (let () (declare (not safe)) - (##cdr _e139245139868_))) - (_hd139244139871_ + (##cdr _e139227139850_))) + (_hd139226139853_ (let () (declare (not safe)) - (##car _e139245139868_)))) + (##car _e139227139850_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139244139871_)) - (let ((_e139248139876_ + _hd139226139853_)) + (let ((_e139230139858_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd139244139871_)))) - (let ((_tl139246139881_ + (gx#stx-e _hd139226139853_)))) + (let ((_tl139228139863_ (let () (declare (not safe)) - (##cdr _e139248139876_))) - (_hd139247139879_ + (##cdr _e139230139858_))) + (_hd139229139861_ (let () (declare (not safe)) - (##car _e139248139876_)))) + (##car _e139230139858_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139247139879_)) - (let ((_e139251139884_ + (gx#stx-pair? _hd139229139861_)) + (let ((_e139233139866_ (let () (declare (not safe)) - (gx#stx-e _hd139247139879_)))) - (let ((_tl139249139889_ + (gx#stx-e _hd139229139861_)))) + (let ((_tl139231139871_ (let () (declare (not safe)) - (##cdr _e139251139884_))) - (_hd139250139887_ + (##cdr _e139233139866_))) + (_hd139232139869_ (let () (declare (not safe)) - (##car _e139251139884_)))) + (##car _e139233139866_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139250139887_)) - (let ((_e139254139892_ + (gx#stx-pair? _hd139232139869_)) + (let ((_e139236139874_ (let () (declare (not safe)) - (gx#stx-e _hd139250139887_)))) - (let ((_tl139252139897_ + (gx#stx-e _hd139232139869_)))) + (let ((_tl139234139879_ (let () (declare (not safe)) - (##cdr _e139254139892_))) - (_hd139253139895_ + (##cdr _e139236139874_))) + (_hd139235139877_ (let () (declare (not safe)) - (##car _e139254139892_)))) + (##car _e139236139874_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139252139897_)) - (let ((_e139257139900_ + (gx#stx-pair? _tl139234139879_)) + (let ((_e139239139882_ (let () (declare (not safe)) (gx#stx-e - _tl139252139897_)))) - (let ((_tl139255139905_ + _tl139234139879_)))) + (let ((_tl139237139887_ (let () (declare (not safe)) - (##cdr _e139257139900_))) - (_hd139256139903_ + (##cdr _e139239139882_))) + (_hd139238139885_ (let () (declare (not safe)) - (##car _e139257139900_)))) + (##car _e139239139882_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139255139905_)) + _tl139237139887_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139249139889_)) - (let ((_e139260139908_ + _tl139231139871_)) + (let ((_e139242139890_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl139249139889_)))) - (let ((_tl139258139913_ - (let () (declare (not safe)) (##cdr _e139260139908_))) - (_hd139259139911_ - (let () (declare (not safe)) (##car _e139260139908_)))) + (gx#stx-e _tl139231139871_)))) + (let ((_tl139240139895_ + (let () (declare (not safe)) (##cdr _e139242139890_))) + (_hd139241139893_ + (let () (declare (not safe)) (##car _e139242139890_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139259139911_)) - (let ((_e139263139916_ + (gx#stx-pair? _hd139241139893_)) + (let ((_e139245139898_ (let () (declare (not safe)) - (gx#stx-e _hd139259139911_)))) - (let ((_tl139261139921_ + (gx#stx-e _hd139241139893_)))) + (let ((_tl139243139903_ (let () (declare (not safe)) - (##cdr _e139263139916_))) - (_hd139262139919_ + (##cdr _e139245139898_))) + (_hd139244139901_ (let () (declare (not safe)) - (##car _e139263139916_)))) + (##car _e139245139898_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139262139919_)) + (gx#identifier? _hd139244139901_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd139262139919_)) + (gx#stx-eq? '%#call _hd139244139901_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139261139921_)) - (let ((_e139266139924_ + (gx#stx-pair? _tl139243139903_)) + (let ((_e139248139906_ (let () (declare (not safe)) - (gx#stx-e _tl139261139921_)))) - (let ((_tl139264139929_ + (gx#stx-e _tl139243139903_)))) + (let ((_tl139246139911_ (let () (declare (not safe)) - (##cdr _e139266139924_))) - (_hd139265139927_ + (##cdr _e139248139906_))) + (_hd139247139909_ (let () (declare (not safe)) - (##car _e139266139924_)))) + (##car _e139248139906_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139265139927_)) - (let ((_e139269139932_ + _hd139247139909_)) + (let ((_e139251139914_ (let () (declare (not safe)) (gx#stx-e - _hd139265139927_)))) - (let ((_tl139267139937_ + _hd139247139909_)))) + (let ((_tl139249139919_ (let () (declare (not safe)) - (##cdr _e139269139932_))) - (_hd139268139935_ + (##cdr _e139251139914_))) + (_hd139250139917_ (let () (declare (not safe)) - (##car _e139269139932_)))) + (##car _e139251139914_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd139268139935_)) + _hd139250139917_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd139268139935_)) + _hd139250139917_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl139267139937_)) - (let ((_e139272139940_ + (gx#stx-pair? _tl139249139919_)) + (let ((_e139254139922_ (let () (declare (not safe)) - (gx#stx-e _tl139267139937_)))) - (let ((_tl139270139945_ + (gx#stx-e _tl139249139919_)))) + (let ((_tl139252139927_ (let () (declare (not safe)) - (##cdr _e139272139940_))) - (_hd139271139943_ + (##cdr _e139254139922_))) + (_hd139253139925_ (let () (declare (not safe)) - (##car _e139272139940_)))) + (##car _e139254139922_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139270139945_)) + (gx#stx-null? _tl139252139927_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl139258139913_)) + (gx#stx-null? _tl139240139895_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl139246139881_)) + (gx#stx-null? _tl139228139863_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139243139873_)) - (let ((_e139275139948_ + (gx#stx-pair? _tl139225139855_)) + (let ((_e139257139930_ (let () (declare (not safe)) (gx#stx-e - _tl139243139873_)))) - (let ((_tl139273139953_ + _tl139225139855_)))) + (let ((_tl139255139935_ (let () (declare (not safe)) - (##cdr _e139275139948_))) - (_hd139274139951_ + (##cdr _e139257139930_))) + (_hd139256139933_ (let () (declare (not safe)) - (##car _e139275139948_)))) + (##car _e139257139930_)))) (if (let () (declare (not safe)) (gx#stx-null? - _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_) + _tl139255139935_)) + (___match151672151673_ + _e139207139990_ + _hd139206139993_ + _tl139205139995_ + _e139227139850_ + _hd139226139853_ + _tl139225139855_ + _e139230139858_ + _hd139229139861_ + _tl139228139863_ + _e139233139866_ + _hd139232139869_ + _tl139231139871_ + _e139236139874_ + _hd139235139877_ + _tl139234139879_ + _e139239139882_ + _hd139238139885_ + _tl139237139887_ + _e139242139890_ + _hd139241139893_ + _tl139240139895_ + _e139245139898_ + _hd139244139901_ + _tl139243139903_ + _e139248139906_ + _hd139247139909_ + _tl139246139911_ + _e139251139914_ + _hd139250139917_ + _tl139249139919_ + _e139254139922_ + _hd139253139925_ + _tl139252139927_ + _e139257139930_ + _hd139256139933_ + _tl139255139935_) (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_))) + (_g139200139333_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139243139873_)) - (let ((_e139286139830_ + (gx#stx-pair? _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) (gx#stx-e - _tl139243139873_)))) - (let ((_tl139284139835_ + _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) + _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_)))) + (_g139200139333_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139243139873_)) - (let ((_e139286139830_ + (gx#stx-pair? _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) - (gx#stx-e _tl139243139873_)))) - (let ((_tl139284139835_ + (gx#stx-e _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) + _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_)))) + (_g139200139333_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139243139873_)) - (let ((_e139286139830_ + (gx#stx-pair? _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) - (gx#stx-e _tl139243139873_)))) - (let ((_tl139284139835_ + (gx#stx-e _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) + (gx#stx-null? _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_)))))) + (_g139200139333_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139243139873_)) - (let ((_e139286139830_ + (gx#stx-pair? _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) - (gx#stx-e _tl139243139873_)))) - (let ((_tl139284139835_ + (gx#stx-e _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) + (gx#stx-null? _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) (let () (declare (not safe)) - (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_)))) + (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139243139873_)) - (let ((_e139286139830_ + (gx#stx-pair? _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) - (gx#stx-e _tl139243139873_)))) - (let ((_tl139284139835_ + (gx#stx-e _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) + (gx#stx-null? _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) (let () (declare (not safe)) - (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_)))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl139243139873_)) - (let ((_e139286139830_ + (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) - (gx#stx-e _tl139243139873_)))) - (let ((_tl139284139835_ + (gx#stx-e _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) - (let () (declare (not safe)) (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_)))))) + (gx#stx-null? _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) + (let () (declare (not safe)) (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl139243139873_)) - (let ((_e139286139830_ + _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) (gx#stx-e - _tl139243139873_)))) - (let ((_tl139284139835_ + _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) + _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_)))))) + (_g139200139333_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139243139873_)) - (let ((_e139286139830_ + (gx#stx-pair? _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) (gx#stx-e - _tl139243139873_)))) - (let ((_tl139284139835_ + _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) + _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_)))) + (_g139200139333_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139243139873_)) - (let ((_e139286139830_ + (gx#stx-pair? _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) - (gx#stx-e _tl139243139873_)))) - (let ((_tl139284139835_ + (gx#stx-e _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) + _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_)))) + (_g139200139333_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139243139873_)) - (let ((_e139286139830_ + (gx#stx-pair? _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) - (gx#stx-e _tl139243139873_)))) - (let ((_tl139284139835_ + (gx#stx-e _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) + (gx#stx-null? _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_)))))) + (_g139200139333_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139243139873_)) - (let ((_e139286139830_ + (gx#stx-pair? _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) - (gx#stx-e _tl139243139873_)))) - (let ((_tl139284139835_ + (gx#stx-e _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) + (gx#stx-null? _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) (let () (declare (not safe)) - (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_)))))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl139243139873_)) - (let ((_e139286139830_ + (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_)))))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) - (gx#stx-e _tl139243139873_)))) - (let ((_tl139284139835_ + (gx#stx-e _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) - (let () (declare (not safe)) (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_)))) + (gx#stx-null? _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) + (let () (declare (not safe)) (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl139243139873_)) - (let ((_e139286139830_ + _tl139225139855_)) + (let ((_e139268139812_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl139243139873_)))) - (let ((_tl139284139835_ - (let () (declare (not safe)) (##cdr _e139286139830_))) - (_hd139285139833_ - (let () (declare (not safe)) (##car _e139286139830_)))) + (gx#stx-e _tl139225139855_)))) + (let ((_tl139266139817_ + (let () (declare (not safe)) (##cdr _e139268139812_))) + (_hd139267139815_ + (let () (declare (not safe)) (##car _e139268139812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139284139835_)) - (___kont151557151558_ _hd139285139833_ _hd139244139871_) - (let () (declare (not safe)) (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_)))))) + (gx#stx-null? _tl139266139817_)) + (___kont151539151540_ _hd139267139815_ _hd139226139853_) + (let () (declare (not safe)) (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl139243139873_)) - (let ((_e139286139830_ + _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) (gx#stx-e - _tl139243139873_)))) - (let ((_tl139284139835_ + _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) + _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_)))))) + (_g139200139333_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139243139873_)) - (let ((_e139286139830_ + (gx#stx-pair? _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) - (gx#stx-e _tl139243139873_)))) - (let ((_tl139284139835_ + (gx#stx-e _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) + _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_)))))) + (_g139200139333_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139243139873_)) - (let ((_e139286139830_ + (gx#stx-pair? _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) - (gx#stx-e _tl139243139873_)))) - (let ((_tl139284139835_ + (gx#stx-e _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) + (gx#stx-null? _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_)))))) + (_g139200139333_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139243139873_)) - (let ((_e139286139830_ + (gx#stx-pair? _tl139225139855_)) + (let ((_e139268139812_ (let () (declare (not safe)) - (gx#stx-e _tl139243139873_)))) - (let ((_tl139284139835_ + (gx#stx-e _tl139225139855_)))) + (let ((_tl139266139817_ (let () (declare (not safe)) - (##cdr _e139286139830_))) - (_hd139285139833_ + (##cdr _e139268139812_))) + (_hd139267139815_ (let () (declare (not safe)) - (##car _e139286139830_)))) + (##car _e139268139812_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139284139835_)) - (___kont151557151558_ - _hd139285139833_ - _hd139244139871_) + (gx#stx-null? _tl139266139817_)) + (___kont151539151540_ + _hd139267139815_ + _hd139226139853_) (let () (declare (not safe)) - (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_)))))) + (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139218139351_))) + (_g139200139333_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd139224140011_)) + _hd139206139993_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139223140013_)) - (let ((_e139295139734_ + _tl139205139995_)) + (let ((_e139277139716_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl139223140013_)))) - (let ((_tl139293139739_ - (let () (declare (not safe)) (##cdr _e139295139734_))) - (_hd139294139737_ - (let () (declare (not safe)) (##car _e139295139734_)))) + (gx#stx-e _tl139205139995_)))) + (let ((_tl139275139721_ + (let () (declare (not safe)) (##cdr _e139277139716_))) + (_hd139276139719_ + (let () (declare (not safe)) (##car _e139277139716_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139294139737_)) - (let ((_e139298139742_ + (gx#stx-pair? _hd139276139719_)) + (let ((_e139280139724_ (let () (declare (not safe)) - (gx#stx-e _hd139294139737_)))) - (let ((_tl139296139747_ + (gx#stx-e _hd139276139719_)))) + (let ((_tl139278139729_ (let () (declare (not safe)) - (##cdr _e139298139742_))) - (_hd139297139745_ + (##cdr _e139280139724_))) + (_hd139279139727_ (let () (declare (not safe)) - (##car _e139298139742_)))) + (##car _e139280139724_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139297139745_)) - (let ((_e139301139750_ + (gx#stx-pair? _hd139279139727_)) + (let ((_e139283139732_ (let () (declare (not safe)) - (gx#stx-e _hd139297139745_)))) - (let ((_tl139299139755_ + (gx#stx-e _hd139279139727_)))) + (let ((_tl139281139737_ (let () (declare (not safe)) - (##cdr _e139301139750_))) - (_hd139300139753_ + (##cdr _e139283139732_))) + (_hd139282139735_ (let () (declare (not safe)) - (##car _e139301139750_)))) + (##car _e139283139732_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139300139753_)) - (let ((_e139304139758_ + (gx#stx-pair? _hd139282139735_)) + (let ((_e139286139740_ (let () (declare (not safe)) - (gx#stx-e _hd139300139753_)))) - (let ((_tl139302139763_ + (gx#stx-e _hd139282139735_)))) + (let ((_tl139284139745_ (let () (declare (not safe)) - (##cdr _e139304139758_))) - (_hd139303139761_ + (##cdr _e139286139740_))) + (_hd139285139743_ (let () (declare (not safe)) - (##car _e139304139758_)))) + (##car _e139286139740_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139302139763_)) + _tl139284139745_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139299139755_)) - (let ((_e139307139766_ + _tl139281139737_)) + (let ((_e139289139748_ (let () (declare (not safe)) (gx#stx-e - _tl139299139755_)))) - (let ((_tl139305139771_ + _tl139281139737_)))) + (let ((_tl139287139753_ (let () (declare (not safe)) - (##cdr _e139307139766_))) - (_hd139306139769_ + (##cdr _e139289139748_))) + (_hd139288139751_ (let () (declare (not safe)) - (##car _e139307139766_)))) + (##car _e139289139748_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139305139771_)) + _tl139287139753_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl139296139747_)) + (gx#stx-null? _tl139278139729_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139293139739_)) - (let ((_e139310139774_ + (gx#stx-pair? _tl139275139721_)) + (let ((_e139292139756_ (let () (declare (not safe)) - (gx#stx-e _tl139293139739_)))) - (let ((_tl139308139779_ + (gx#stx-e _tl139275139721_)))) + (let ((_tl139290139761_ (let () (declare (not safe)) - (##cdr _e139310139774_))) - (_hd139309139777_ + (##cdr _e139292139756_))) + (_hd139291139759_ (let () (declare (not safe)) - (##car _e139310139774_)))) + (##car _e139292139756_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139308139779_)) - (___kont151559151560_ - _hd139309139777_ - _hd139306139769_ - _hd139303139761_) + (gx#stx-null? _tl139290139761_)) + (___kont151541151542_ + _hd139291139759_ + _hd139288139751_ + _hd139285139743_) (let () (declare (not safe)) - (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_))) - (let () (declare (not safe)) (_g139218139351_))) - (let () (declare (not safe)) (_g139218139351_))))) + (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_))) + (let () (declare (not safe)) (_g139200139333_))) + (let () (declare (not safe)) (_g139200139333_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139218139351_))) + (_g139200139333_))) (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_))) + (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd139224140011_)) + _hd139206139993_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139223140013_)) - (let ((_e139319139364_ + _tl139205139995_)) + (let ((_e139301139346_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl139223140013_)))) - (let ((_tl139317139369_ + (gx#stx-e _tl139205139995_)))) + (let ((_tl139299139351_ (let () (declare (not safe)) - (##cdr _e139319139364_))) - (_hd139318139367_ + (##cdr _e139301139346_))) + (_hd139300139349_ (let () (declare (not safe)) - (##car _e139319139364_)))) + (##car _e139301139346_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139318139367_)) - (let ((_e139322139372_ + (gx#stx-pair? _hd139300139349_)) + (let ((_e139304139354_ (let () (declare (not safe)) - (gx#stx-e _hd139318139367_)))) - (let ((_tl139320139377_ + (gx#stx-e _hd139300139349_)))) + (let ((_tl139302139359_ (let () (declare (not safe)) - (##cdr _e139322139372_))) - (_hd139321139375_ + (##cdr _e139304139354_))) + (_hd139303139357_ (let () (declare (not safe)) - (##car _e139322139372_)))) + (##car _e139304139354_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139321139375_)) + (gx#identifier? _hd139303139357_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd139321139375_)) + _hd139303139357_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139320139377_)) - (let ((_e139325139380_ + (gx#stx-pair? _tl139302139359_)) + (let ((_e139307139362_ (let () (declare (not safe)) (gx#stx-e - _tl139320139377_)))) - (let ((_tl139323139385_ + _tl139302139359_)))) + (let ((_tl139305139367_ (let () (declare (not safe)) - (##cdr _e139325139380_))) - (_hd139324139383_ + (##cdr _e139307139362_))) + (_hd139306139365_ (let () (declare (not safe)) - (##car _e139325139380_)))) + (##car _e139307139362_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd139324139383_)) - (let ((___splice151563151564_ + _hd139306139365_)) + (let ((___splice151545151546_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd139324139383_ + _hd139306139365_ '0)))) - (let ((_tl139328139390_ + (let ((_tl139310139372_ (let () (declare (not safe)) (##vector-ref - ___splice151563151564_ + ___splice151545151546_ '1))) - (_target139326139388_ + (_target139308139370_ (let () (declare (not safe)) (##vector-ref - ___splice151563151564_ + ___splice151545151546_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139328139390_)) - (___match151808151809_ - _e139225140008_ - _hd139224140011_ - _tl139223140013_ - _e139319139364_ - _hd139318139367_ - _tl139317139369_ - _e139322139372_ - _hd139321139375_ - _tl139320139377_ - _e139325139380_ - _hd139324139383_ - _tl139323139385_ - ___splice151563151564_ - _target139326139388_ - _tl139328139390_) + _tl139310139372_)) + (___match151790151791_ + _e139207139990_ + _hd139206139993_ + _tl139205139995_ + _e139301139346_ + _hd139300139349_ + _tl139299139351_ + _e139304139354_ + _hd139303139357_ + _tl139302139359_ + _e139307139362_ + _hd139306139365_ + _tl139305139367_ + ___splice151545151546_ + _target139308139370_ + _tl139310139372_) (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_))) + (_g139200139333_))) (let () (declare (not safe)) - (_g139218139351_))) + (_g139200139333_))) (let () (declare (not safe)) - (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_))))) - (let () (declare (not safe)) (_g139218139351_))) - (let () (declare (not safe)) (_g139218139351_)))))) + (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_))))) + (let () (declare (not safe)) (_g139200139333_))) + (let () (declare (not safe)) (_g139200139333_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139218139351_))))) + (_g139200139333_))))) (let () (declare (not safe)) - (_g139218139351_)))))))) - (_xform-loop-e138826_ - (lambda (_expr139035_ - _kont-id139036_ - _kont-box139037_ - _negation-id139038_) - (let* ((_g139040139080_ - (lambda (_g139041139077_) + (_g139200139333_)))))))) + (_xform-loop-e138808_ + (lambda (_expr139017_ + _kont-id139018_ + _kont-box139019_ + _negation-id139020_) + (let* ((_g139022139062_ + (lambda (_g139023139059_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g139041139077_)))) - (_g139039139206_ - (lambda (_g139041139083_) + _g139023139059_)))) + (_g139021139188_ + (lambda (_g139023139065_) (if (let () (declare (not safe)) - (gx#stx-pair? _g139041139083_)) - (let ((_e139048139085_ + (gx#stx-pair? _g139023139065_)) + (let ((_e139030139067_ (let () (declare (not safe)) - (gx#stx-e _g139041139083_)))) - (let ((_hd139047139088_ + (gx#stx-e _g139023139065_)))) + (let ((_hd139029139070_ (let () (declare (not safe)) - (##car _e139048139085_))) - (_tl139046139090_ + (##car _e139030139067_))) + (_tl139028139072_ (let () (declare (not safe)) - (##cdr _e139048139085_)))) + (##cdr _e139030139067_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139047139088_)) + (gx#identifier? _hd139029139070_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd139047139088_)) + _hd139029139070_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139046139090_)) - (let ((_e139051139093_ + _tl139028139072_)) + (let ((_e139033139075_ (let () (declare (not safe)) (gx#stx-e - _tl139046139090_)))) - (let ((_hd139050139096_ + _tl139028139072_)))) + (let ((_hd139032139078_ (let () (declare (not safe)) - (##car _e139051139093_))) - (_tl139049139098_ + (##car _e139033139075_))) + (_tl139031139080_ (let () (declare (not safe)) - (##cdr _e139051139093_)))) + (##cdr _e139033139075_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd139050139096_)) - (let ((_g152625_ + _hd139032139078_)) + (let ((_g152607_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd139050139096_ '0)))) + (gx#syntax-split-splice _hd139032139078_ '0)))) (begin - (let ((_g152626_ + (let ((_g152608_ (let () (declare (not safe)) - (if (##values? _g152625_) - (##vector-length _g152625_) + (if (##values? _g152607_) + (##vector-length _g152607_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152626_ 2))) - (error "Context expects 2 values" _g152626_))) - (let ((_target139052139101_ + (##fx= _g152608_ 2))) + (error "Context expects 2 values" _g152608_))) + (let ((_target139034139083_ (let () (declare (not safe)) - (##vector-ref _g152625_ 0))) - (_tl139054139103_ + (##vector-ref _g152607_ 0))) + (_tl139036139085_ (let () (declare (not safe)) - (##vector-ref _g152625_ 1)))) + (##vector-ref _g152607_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl139054139103_)) - (letrec ((_loop139055139106_ - (lambda (_hd139053139109_ - _id139059139111_) + (gx#stx-null? _tl139036139085_)) + (letrec ((_loop139037139088_ + (lambda (_hd139035139091_ + _id139041139093_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd139053139109_)) - (let ((_e139056139114_ + (gx#stx-pair? _hd139035139091_)) + (let ((_e139038139096_ (let () (declare (not safe)) (gx#stx-e - _hd139053139109_)))) - (let ((_lp-hd139057139117_ + _hd139035139091_)))) + (let ((_lp-hd139039139099_ (let () (declare (not safe)) - (##car _e139056139114_))) - (_lp-tl139058139119_ + (##car _e139038139096_))) + (_lp-tl139040139101_ (let () (declare (not safe)) - (##cdr _e139056139114_)))) - (let ((__tmp152635 + (##cdr _e139038139096_)))) + (let ((__tmp152617 (let () (declare (not safe)) - (cons _lp-hd139057139117_ - _id139059139111_)))) + (cons _lp-hd139039139099_ + _id139041139093_)))) (declare (not safe)) - (_loop139055139106_ - _lp-tl139058139119_ - __tmp152635)))) - (let ((_id139060139122_ - (reverse _id139059139111_))) + (_loop139037139088_ + _lp-tl139040139101_ + __tmp152617)))) + (let ((_id139042139104_ + (reverse _id139041139093_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139049139098_)) - (let ((_e139063139125_ + _tl139031139080_)) + (let ((_e139045139107_ (let () (declare (not safe)) (gx#stx-e - _tl139049139098_)))) - (let ((_hd139062139128_ + _tl139031139080_)))) + (let ((_hd139044139110_ (let () (declare (not safe)) - (##car _e139063139125_))) - (_tl139061139130_ + (##car _e139045139107_))) + (_tl139043139112_ (let () (declare (not safe)) - (##cdr _e139063139125_)))) + (##cdr _e139045139107_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd139062139128_)) - (let ((_e139066139133_ + _hd139044139110_)) + (let ((_e139048139115_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd139062139128_)))) - (let ((_hd139065139136_ + (gx#stx-e _hd139044139110_)))) + (let ((_hd139047139118_ (let () (declare (not safe)) - (##car _e139066139133_))) - (_tl139064139138_ + (##car _e139048139115_))) + (_tl139046139120_ (let () (declare (not safe)) - (##cdr _e139066139133_)))) + (##cdr _e139048139115_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd139065139136_)) + (gx#identifier? _hd139047139118_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd139065139136_)) + (gx#stx-eq? '%#if _hd139047139118_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139064139138_)) - (let ((_e139069139141_ + (gx#stx-pair? _tl139046139120_)) + (let ((_e139051139123_ (let () (declare (not safe)) - (gx#stx-e _tl139064139138_)))) - (let ((_hd139068139144_ + (gx#stx-e _tl139046139120_)))) + (let ((_hd139050139126_ (let () (declare (not safe)) - (##car _e139069139141_))) - (_tl139067139146_ + (##car _e139051139123_))) + (_tl139049139128_ (let () (declare (not safe)) - (##cdr _e139069139141_)))) + (##cdr _e139051139123_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl139067139146_)) - (let ((_e139072139149_ + (gx#stx-pair? _tl139049139128_)) + (let ((_e139054139131_ (let () (declare (not safe)) (gx#stx-e - _tl139067139146_)))) - (let ((_hd139071139152_ + _tl139049139128_)))) + (let ((_hd139053139134_ (let () (declare (not safe)) - (##car _e139072139149_))) - (_tl139070139154_ + (##car _e139054139131_))) + (_tl139052139136_ (let () (declare (not safe)) - (##cdr _e139072139149_)))) + (##cdr _e139054139131_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl139070139154_)) - (let ((_e139075139157_ + _tl139052139136_)) + (let ((_e139057139139_ (let () (declare (not safe)) (gx#stx-e - _tl139070139154_)))) - (let ((_hd139074139160_ + _tl139052139136_)))) + (let ((_hd139056139142_ (let () (declare (not safe)) - (##car _e139075139157_))) - (_tl139073139162_ + (##car _e139057139139_))) + (_tl139055139144_ (let () (declare (not safe)) - (##cdr _e139075139157_)))) + (##cdr _e139057139139_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl139073139162_)) + _tl139055139144_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl139061139130_)) - ((lambda (_L139165_ _L139166_ _L139167_ _L139168_) - (let* ((_E139197_ + (gx#stx-null? _tl139043139112_)) + ((lambda (_L139147_ _L139148_ _L139149_ _L139150_) + (let* ((_E139179_ (let () (declare (not safe)) - (_xform-e138825_ - _L139165_ - _kont-id139036_ - _kont-box139037_ - _negation-id139038_))) - (__tmp152627 - (let ((__tmp152633 - (let ((__tmp152634 - (lambda (_g139198139201_ - _g139199139203_) + (_xform-e138807_ + _L139147_ + _kont-id139018_ + _kont-box139019_ + _negation-id139020_))) + (__tmp152609 + (let ((__tmp152615 + (let ((__tmp152616 + (lambda (_g139180139183_ + _g139181139185_) (let () (declare (not safe)) - (cons _g139198139201_ - _g139199139203_))))) + (cons _g139180139183_ + _g139181139185_))))) (declare (not safe)) - (foldr1 __tmp152634 '() _L139168_))) - (__tmp152628 - (let ((__tmp152629 - (let ((__tmp152630 - (let ((__tmp152631 - (let ((__tmp152632 + (foldr1 __tmp152616 '() _L139150_))) + (__tmp152610 + (let ((__tmp152611 + (let ((__tmp152612 + (let ((__tmp152613 + (let ((__tmp152614 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E139197_ '())))) + (cons _E139179_ '())))) (declare (not safe)) - (cons _L139166_ __tmp152632)))) + (cons _L139148_ __tmp152614)))) (declare (not safe)) - (cons _L139167_ __tmp152631)))) + (cons _L139149_ __tmp152613)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp152630)))) + (cons '%#if __tmp152612)))) (declare (not safe)) - (cons __tmp152629 '())))) + (cons __tmp152611 '())))) (declare (not safe)) - (cons __tmp152633 __tmp152628)))) + (cons __tmp152615 __tmp152610)))) (declare (not safe)) - (cons '%#lambda __tmp152627))) - _hd139074139160_ - _hd139071139152_ - _hd139068139144_ - _id139060139122_) + (cons '%#lambda __tmp152609))) + _hd139056139142_ + _hd139053139134_ + _hd139050139126_ + _id139042139104_) (let () (declare (not safe)) - (_g139040139080_ _g139041139083_))) + (_g139022139062_ _g139023139065_))) (let () (declare (not safe)) - (_g139040139080_ _g139041139083_))))) + (_g139022139062_ _g139023139065_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139040139080_ - _g139041139083_))))) + (_g139022139062_ + _g139023139065_))))) (let () (declare (not safe)) - (_g139040139080_ - _g139041139083_))))) + (_g139022139062_ + _g139023139065_))))) (let () (declare (not safe)) - (_g139040139080_ _g139041139083_))) + (_g139022139062_ _g139023139065_))) (let () (declare (not safe)) - (_g139040139080_ _g139041139083_))) + (_g139022139062_ _g139023139065_))) (let () (declare (not safe)) - (_g139040139080_ _g139041139083_))))) + (_g139022139062_ _g139023139065_))))) (let () (declare (not safe)) - (_g139040139080_ _g139041139083_))))) + (_g139022139062_ _g139023139065_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139040139080_ - _g139041139083_)))))))) + (_g139022139062_ + _g139023139065_)))))))) (let () (declare (not safe)) - (_loop139055139106_ _target139052139101_ '()))) + (_loop139037139088_ _target139034139083_ '()))) (let () (declare (not safe)) - (_g139040139080_ _g139041139083_)))))) + (_g139022139062_ _g139023139065_)))))) (let () (declare (not safe)) - (_g139040139080_ _g139041139083_))))) + (_g139022139062_ _g139023139065_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g139040139080_ - _g139041139083_))) + (_g139022139062_ + _g139023139065_))) (let () (declare (not safe)) - (_g139040139080_ - _g139041139083_))) + (_g139022139062_ + _g139023139065_))) (let () (declare (not safe)) - (_g139040139080_ - _g139041139083_))))) + (_g139022139062_ + _g139023139065_))))) (let () (declare (not safe)) - (_g139040139080_ _g139041139083_)))))) + (_g139022139062_ _g139023139065_)))))) (declare (not safe)) - (_g139039139206_ _expr139035_)))) - (_clause-e138827_ - (lambda (_clause-lambda138905_ _kont-id138906_ _rest138907_) - (letrec* ((_kont-box138909_ + (_g139021139188_ _expr139017_)))) + (_clause-e138809_ + (lambda (_clause-lambda138887_ _kont-id138888_ _rest138889_) + (letrec* ((_kont-box138891_ (let () (declare (not safe)) (box '#f)))) - (let* ((_negation-id138949_ - (let* ((_rest138910138920_ _rest138907_) - (_else138912138928_ - (lambda () _negation-id138823_)) - (_K138914138934_ - (lambda (_clause138931_ - _clause-id138932_) - _clause-id138932_))) + (let* ((_negation-id138931_ + (let* ((_rest138892138902_ _rest138889_) + (_else138894138910_ + (lambda () _negation-id138805_)) + (_K138896138916_ + (lambda (_clause138913_ + _clause-id138914_) + _clause-id138914_))) (if (let () (declare (not safe)) - (##pair? _rest138910138920_)) - (let ((_hd138915138937_ + (##pair? _rest138892138902_)) + (let ((_hd138897138919_ (let () (declare (not safe)) - (##car _rest138910138920_)))) + (##car _rest138892138902_)))) (if (let () (declare (not safe)) - (##pair? _hd138915138937_)) - (let ((_hd138917138940_ + (##pair? _hd138897138919_)) + (let ((_hd138899138922_ (let () (declare (not safe)) - (##car _hd138915138937_))) - (_tl138918138942_ + (##car _hd138897138919_))) + (_tl138900138924_ (let () (declare (not safe)) - (##cdr _hd138915138937_)))) - (let* ((_clause-id138945_ - _hd138917138940_) - (_clause138947_ - _tl138918138942_)) + (##cdr _hd138897138919_)))) + (let* ((_clause-id138927_ + _hd138899138922_) + (_clause138929_ + _tl138900138924_)) (declare (not safe)) - (_K138914138934_ - _clause138947_ - _clause-id138945_))) + (_K138896138916_ + _clause138929_ + _clause-id138927_))) (let () (declare (not safe)) - (_else138912138928_)))) + (_else138894138910_)))) (let () (declare (not safe)) - (_else138912138928_))))) - (_g138951138971_ - (lambda (_g138952138968_) + (_else138894138910_))))) + (_g138933138953_ + (lambda (_g138934138950_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g138952138968_)))) - (_g138950139032_ - (lambda (_g138952138974_) + _g138934138950_)))) + (_g138932139014_ + (lambda (_g138934138956_) (if (let () (declare (not safe)) - (gx#stx-pair? _g138952138974_)) - (let ((_e138957138976_ + (gx#stx-pair? _g138934138956_)) + (let ((_e138939138958_ (let () (declare (not safe)) - (gx#stx-e _g138952138974_)))) - (let ((_hd138956138979_ + (gx#stx-e _g138934138956_)))) + (let ((_hd138938138961_ (let () (declare (not safe)) - (##car _e138957138976_))) - (_tl138955138981_ + (##car _e138939138958_))) + (_tl138937138963_ (let () (declare (not safe)) - (##cdr _e138957138976_)))) + (##cdr _e138939138958_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd138956138979_)) + _hd138938138961_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd138956138979_)) + _hd138938138961_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138955138981_)) - (let ((_e138960138984_ + _tl138937138963_)) + (let ((_e138942138966_ (let () (declare (not safe)) (gx#stx-e - _tl138955138981_)))) - (let ((_hd138959138987_ + _tl138937138963_)))) + (let ((_hd138941138969_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e138960138984_))) - (_tl138958138989_ - (let () (declare (not safe)) (##cdr _e138960138984_)))) + (##car _e138942138966_))) + (_tl138940138971_ + (let () (declare (not safe)) (##cdr _e138942138966_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138959138987_)) - (let ((_e138963138992_ + (gx#stx-pair? _hd138941138969_)) + (let ((_e138945138974_ (let () (declare (not safe)) - (gx#stx-e _hd138959138987_)))) - (let ((_hd138962138995_ + (gx#stx-e _hd138941138969_)))) + (let ((_hd138944138977_ (let () (declare (not safe)) - (##car _e138963138992_))) - (_tl138961138997_ + (##car _e138945138974_))) + (_tl138943138979_ (let () (declare (not safe)) - (##cdr _e138963138992_)))) + (##cdr _e138945138974_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138961138997_)) + (gx#stx-null? _tl138943138979_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138958138989_)) - (let ((_e138966139000_ + (gx#stx-pair? _tl138940138971_)) + (let ((_e138948138982_ (let () (declare (not safe)) - (gx#stx-e _tl138958138989_)))) - (let ((_hd138965139003_ + (gx#stx-e _tl138940138971_)))) + (let ((_hd138947138985_ (let () (declare (not safe)) - (##car _e138966139000_))) - (_tl138964139005_ + (##car _e138948138982_))) + (_tl138946138987_ (let () (declare (not safe)) - (##cdr _e138966139000_)))) + (##cdr _e138948138982_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138964139005_)) - ((lambda (_L139008_ _L139009_) - (let ((_body139030_ + (gx#stx-null? _tl138946138987_)) + ((lambda (_L138990_ _L138991_) + (let ((_body139012_ (let () (declare (not safe)) - (_xform-e138825_ - _L139008_ - _kont-id138906_ - _kont-box138909_ - _negation-id138949_)))) - (values (let ((__tmp152636 - (let ((__tmp152638 + (_xform-e138807_ + _L138990_ + _kont-id138888_ + _kont-box138891_ + _negation-id138931_)))) + (values (let ((__tmp152618 + (let ((__tmp152620 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L139009_ '()))) - (__tmp152637 + (let () (declare (not safe)) (cons _L138991_ '()))) + (__tmp152619 (let () (declare (not safe)) - (cons _body139030_ '())))) + (cons _body139012_ '())))) (declare (not safe)) - (cons __tmp152638 __tmp152637)))) + (cons __tmp152620 __tmp152619)))) (declare (not safe)) - (cons '%#lambda __tmp152636)) + (cons '%#lambda __tmp152618)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _kont-box138909_)))) - _hd138965139003_ - _hd138962138995_) + (unbox _kont-box138891_)))) + _hd138947138985_ + _hd138944138977_) (let () (declare (not safe)) - (_g138951138971_ _g138952138974_))))) + (_g138933138953_ _g138934138956_))))) (let () (declare (not safe)) - (_g138951138971_ _g138952138974_))) + (_g138933138953_ _g138934138956_))) (let () (declare (not safe)) - (_g138951138971_ _g138952138974_))))) + (_g138933138953_ _g138934138956_))))) (let () (declare (not safe)) - (_g138951138971_ _g138952138974_))))) + (_g138933138953_ _g138934138956_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138951138971_ - _g138952138974_))) + (_g138933138953_ + _g138934138956_))) (let () (declare (not safe)) - (_g138951138971_ - _g138952138974_))) + (_g138933138953_ + _g138934138956_))) (let () (declare (not safe)) - (_g138951138971_ - _g138952138974_))))) + (_g138933138953_ + _g138934138956_))))) (let () (declare (not safe)) - (_g138951138971_ _g138952138974_)))))) + (_g138933138953_ _g138934138956_)))))) (declare (not safe)) - (_g138950139032_ _clause-lambda138905_)))))) - (let _lp138829_ ((_rest138831_ _clauses138822_) - (_clauses138832_ '()) - (_konts138833_ '())) - (let* ((_rest138834138842_ _rest138831_) - (_else138836138850_ + (_g138932139014_ _clause-lambda138887_)))))) + (let _lp138811_ ((_rest138813_ _clauses138804_) + (_clauses138814_ '()) + (_konts138815_ '())) + (let* ((_rest138816138824_ _rest138813_) + (_else138818138832_ (lambda () - (values (reverse _clauses138832_) - (reverse _konts138833_)))) - (_K138838138893_ - (lambda (_rest138853_ _clause138854_) - (let* ((_clause138855138862_ _clause138854_) - (_E138857138866_ + (values (reverse _clauses138814_) + (reverse _konts138815_)))) + (_K138820138875_ + (lambda (_rest138835_ _clause138836_) + (let* ((_clause138837138844_ _clause138836_) + (_E138839138848_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clause138855138862_)))) - (_K138858138881_ - (lambda (_clause-lambda138869_ _clause-id138870_) - (let* ((_id138872_ - (let ((__tmp152639 (gensym '__kont))) + _clause138837138844_)))) + (_K138840138863_ + (lambda (_clause-lambda138851_ _clause-id138852_) + (let* ((_id138854_ + (let ((__tmp152621 (gensym '__kont))) (declare (not safe)) - (make-symbol__0 __tmp152639))) - (_id138874_ + (make-symbol__0 __tmp152621))) + (_id138856_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _id138872_))) - (_g152640_ + _id138854_))) + (_g152622_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id138874_))) - (_g152641_ + _id138856_))) + (_g152623_ (let () (declare (not safe)) - (_clause-e138827_ - _clause-lambda138869_ - _id138874_ - _rest138853_)))) + (_clause-e138809_ + _clause-lambda138851_ + _id138856_ + _rest138835_)))) (begin - (let ((_g152642_ + (let ((_g152624_ (let () (declare (not safe)) - (if (##values? _g152641_) - (##vector-length _g152641_) + (if (##values? _g152623_) + (##vector-length _g152623_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g152642_ 2))) + (##fx= _g152624_ 2))) (error "Context expects 2 values" - _g152642_))) - (let ((_clause-lambda138877_ + _g152624_))) + (let ((_clause-lambda138859_ (let () (declare (not safe)) - (##vector-ref _g152641_ 0))) - (_kont138878_ + (##vector-ref _g152623_ 0))) + (_kont138860_ (let () (declare (not safe)) - (##vector-ref _g152641_ 1)))) + (##vector-ref _g152623_ 1)))) (let () - (let ((__tmp152645 - (let ((__tmp152646 + (let ((__tmp152627 + (let ((__tmp152628 (let () (declare (not safe)) - (cons _clause-id138870_ - _clause-lambda138877_)))) + (cons _clause-id138852_ + _clause-lambda138859_)))) (declare (not safe)) - (cons __tmp152646 - _clauses138832_))) - (__tmp152643 - (let ((__tmp152644 + (cons __tmp152628 + _clauses138814_))) + (__tmp152625 + (let ((__tmp152626 (let () (declare (not safe)) - (cons _id138874_ - _kont138878_)))) + (cons _id138856_ + _kont138860_)))) (declare (not safe)) - (cons __tmp152644 - _konts138833_)))) + (cons __tmp152626 + _konts138815_)))) (declare (not safe)) - (_lp138829_ - _rest138853_ - __tmp152645 - __tmp152643))))))))) + (_lp138811_ + _rest138835_ + __tmp152627 + __tmp152625))))))))) (if (let () (declare (not safe)) - (##pair? _clause138855138862_)) - (let ((_hd138859138884_ + (##pair? _clause138837138844_)) + (let ((_hd138841138866_ (let () (declare (not safe)) - (##car _clause138855138862_))) - (_tl138860138886_ + (##car _clause138837138844_))) + (_tl138842138868_ (let () (declare (not safe)) - (##cdr _clause138855138862_)))) - (let* ((_clause-id138889_ _hd138859138884_) - (_clause-lambda138891_ _tl138860138886_)) + (##cdr _clause138837138844_)))) + (let* ((_clause-id138871_ _hd138841138866_) + (_clause-lambda138873_ _tl138842138868_)) (declare (not safe)) - (_K138858138881_ - _clause-lambda138891_ - _clause-id138889_))) + (_K138840138863_ + _clause-lambda138873_ + _clause-id138871_))) (let () (declare (not safe)) - (_E138857138866_))))))) - (if (let () (declare (not safe)) (##pair? _rest138834138842_)) - (let ((_hd138839138896_ + (_E138839138848_))))))) + (if (let () (declare (not safe)) (##pair? _rest138816138824_)) + (let ((_hd138821138878_ (let () (declare (not safe)) - (##car _rest138834138842_))) - (_tl138840138898_ + (##car _rest138816138824_))) + (_tl138822138880_ (let () (declare (not safe)) - (##cdr _rest138834138842_)))) - (let* ((_clause138901_ _hd138839138896_) - (_rest138903_ _tl138840138898_)) + (##cdr _rest138816138824_)))) + (let* ((_clause138883_ _hd138821138878_) + (_rest138885_ _tl138822138880_)) (declare (not safe)) - (_K138838138893_ _rest138903_ _clause138901_))) - (let () (declare (not safe)) (_else138836138850_)))))))) + (_K138820138875_ _rest138885_ _clause138883_))) + (let () (declare (not safe)) (_else138818138832_)))))))) (define gxc#optimize-syntax-case-closure - (lambda (_clause138166_ _negation138167_ _target138168_) - (letrec ((_closure-e138170_ - (lambda (_expr138287_) - (let* ((___stx151811151812_ _expr138287_) - (_g138294138409_ + (lambda (_clause138148_ _negation138149_ _target138150_) + (letrec ((_closure-e138152_ + (lambda (_expr138269_) + (let* ((___stx151793151794_ _expr138269_) + (_g138276138391_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx151811151812_))))) - (let ((___kont151813151814_ - (lambda (_L138800_ _L138801_ _L138802_) - (let ((__tmp152647 - (let ((__tmp152648 - (let ((__tmp152651 + ___stx151793151794_))))) + (let ((___kont151795151796_ + (lambda (_L138782_ _L138783_ _L138784_) + (let ((__tmp152629 + (let ((__tmp152630 + (let ((__tmp152633 (let () (declare (not safe)) - (_closure-e138170_ - _L138801_))) - (__tmp152649 - (let ((__tmp152650 + (_closure-e138152_ + _L138783_))) + (__tmp152631 + (let ((__tmp152632 (let () (declare (not safe)) - (_closure-e138170_ - _L138800_)))) + (_closure-e138152_ + _L138782_)))) (declare (not safe)) - (cons __tmp152650 '())))) + (cons __tmp152632 '())))) (declare (not safe)) - (cons __tmp152651 - __tmp152649)))) + (cons __tmp152633 + __tmp152631)))) (declare (not safe)) - (cons _L138802_ __tmp152648)))) + (cons _L138784_ __tmp152630)))) (declare (not safe)) - (cons '%#if __tmp152647)))) - (___kont151815151816_ - (lambda (_L138748_ _L138749_) - (let ((__tmp152652 - (let ((__tmp152653 - (let ((__tmp152654 + (cons '%#if __tmp152629)))) + (___kont151797151798_ + (lambda (_L138730_ _L138731_) + (let ((__tmp152634 + (let ((__tmp152635 + (let ((__tmp152636 (let () (declare (not safe)) - (_closure-e138170_ - _L138748_)))) + (_closure-e138152_ + _L138730_)))) (declare (not safe)) - (cons __tmp152654 '())))) + (cons __tmp152636 '())))) (declare (not safe)) - (cons _L138749_ __tmp152653)))) + (cons _L138731_ __tmp152635)))) (declare (not safe)) - (cons '%#let-values __tmp152652)))) - (___kont151817151818_ - (lambda (_L138694_ _L138695_ _L138696_) - (let ((__tmp152655 - (let ((__tmp152657 - (let ((__tmp152658 - (let ((__tmp152661 + (cons '%#let-values __tmp152634)))) + (___kont151799151800_ + (lambda (_L138676_ _L138677_ _L138678_) + (let ((__tmp152637 + (let ((__tmp152639 + (let ((__tmp152640 + (let ((__tmp152643 (let () (declare (not safe)) - (cons _L138696_ + (cons _L138678_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp152659 - (let ((__tmp152660 + (__tmp152641 + (let ((__tmp152642 (let () (declare (not safe)) - (_closure-e138170_ _L138695_)))) + (_closure-e138152_ _L138677_)))) (declare (not safe)) - (cons __tmp152660 '())))) + (cons __tmp152642 '())))) (declare (not safe)) - (cons __tmp152661 __tmp152659)))) + (cons __tmp152643 __tmp152641)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152658 '()))) - (__tmp152656 + (cons __tmp152640 '()))) + (__tmp152638 (let () (declare (not safe)) - (cons _L138694_ '())))) + (cons _L138676_ '())))) (declare (not safe)) - (cons __tmp152657 __tmp152656)))) + (cons __tmp152639 __tmp152638)))) (declare (not safe)) - (cons '%#letrec-values __tmp152655)))) - (___kont151819151820_ - (lambda (_L138607_ _L138608_) - (let ((__tmp152662 - (let ((__tmp152665 - (let ((__tmp152666 - (lambda (_g138625138628_ - _g138626138630_) + (cons '%#letrec-values __tmp152637)))) + (___kont151801151802_ + (lambda (_L138589_ _L138590_) + (let ((__tmp152644 + (let ((__tmp152647 + (let ((__tmp152648 + (lambda (_g138607138610_ + _g138608138612_) (let () (declare (not safe)) - (cons _g138625138628_ - _g138626138630_))))) + (cons _g138607138610_ + _g138608138612_))))) (declare (not safe)) - (foldr1 __tmp152666 + (foldr1 __tmp152648 '() - _L138608_))) - (__tmp152663 - (let ((__tmp152664 + _L138590_))) + (__tmp152645 + (let ((__tmp152646 (let () (declare (not safe)) - (_closure-e138170_ - _L138607_)))) + (_closure-e138152_ + _L138589_)))) (declare (not safe)) - (cons __tmp152664 '())))) + (cons __tmp152646 '())))) (declare (not safe)) - (cons __tmp152665 __tmp152663)))) + (cons __tmp152647 __tmp152645)))) (declare (not safe)) - (cons '%#lambda __tmp152662)))) - (___kont151823151824_ - (lambda (_L138537_) - (let ((__tmp152667 - (let ((__tmp152668 - (let ((__tmp152670 + (cons '%#lambda __tmp152644)))) + (___kont151805151806_ + (lambda (_L138519_) + (let ((__tmp152649 + (let ((__tmp152650 + (let ((__tmp152652 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp152669 + (__tmp152651 (let () (declare (not safe)) - (cons _L138537_ '())))) + (cons _L138519_ '())))) (declare (not safe)) - (cons __tmp152670 - __tmp152669)))) + (cons __tmp152652 + __tmp152651)))) (declare (not safe)) - (cons __tmp152668 '())))) + (cons __tmp152650 '())))) (declare (not safe)) - (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_) + (cons '%#call __tmp152649)))) + (___kont151807151808_ + (lambda (_L138452_ _L138453_) _expr138269_))) + (let* ((___match152026152027_ + (lambda (_e138368138396_ + _hd138367138399_ + _tl138366138401_ + _e138371138404_ + _hd138370138407_ + _tl138369138409_ + _e138374138412_ + _hd138373138415_ + _tl138372138417_ + _e138377138420_ + _hd138376138423_ + _tl138375138425_ + ___splice151809151810_ + _target138378138428_ + _tl138380138430_) + (letrec ((_loop138381138433_ + (lambda (_hd138379138436_ + _arg138385138438_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138397138454_)) - (let ((_e138400138459_ + _hd138379138436_)) + (let ((_e138382138441_ (let () (declare (not safe)) (gx#stx-e - _hd138397138454_)))) - (let ((_lp-tl138402138464_ + _hd138379138436_)))) + (let ((_lp-tl138384138446_ (let () (declare (not safe)) - (##cdr _e138400138459_))) - (_lp-hd138401138462_ + (##cdr _e138382138441_))) + (_lp-hd138383138444_ (let () (declare (not safe)) - (##car _e138400138459_)))) - (let ((__tmp152671 + (##car _e138382138441_)))) + (let ((__tmp152653 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd138401138462_ _arg138403138456_)))) + (cons _lp-hd138383138444_ _arg138385138438_)))) (declare (not safe)) - (_loop138399138451_ _lp-tl138402138464_ __tmp152671)))) + (_loop138381138433_ _lp-tl138384138446_ __tmp152653)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg138404138467_ - (reverse _arg138403138456_))) - (___kont151825151826_ - _arg138404138467_ - _hd138394138441_)))))) + (let ((_arg138386138449_ + (reverse _arg138385138438_))) + (___kont151807151808_ + _arg138386138449_ + _hd138376138423_)))))) (let () (declare (not safe)) - (_loop138399138451_ - _target138396138446_ + (_loop138381138433_ + _target138378138428_ '()))))) - (___match152002152003_ - (lambda (_e138369138497_ - _hd138368138500_ - _tl138367138502_ - _e138372138505_ - _hd138371138508_ - _tl138370138510_ - _e138375138513_ - _hd138374138516_ - _tl138373138518_ - _e138378138521_ - _hd138377138524_ - _tl138376138526_ - _e138381138529_ - _hd138380138532_ - _tl138379138534_) - (let ((_L138537_ _hd138377138524_)) + (___match151984151985_ + (lambda (_e138351138479_ + _hd138350138482_ + _tl138349138484_ + _e138354138487_ + _hd138353138490_ + _tl138352138492_ + _e138357138495_ + _hd138356138498_ + _tl138355138500_ + _e138360138503_ + _hd138359138506_ + _tl138358138508_ + _e138363138511_ + _hd138362138514_ + _tl138361138516_) + (let ((_L138519_ _hd138359138506_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L138537_ - _negation138167_)) - (___kont151823151824_ _L138537_) + _L138519_ + _negation138149_)) + (___kont151805151806_ _L138519_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl138370138510_)) - (let ((___splice151827151828_ + _tl138352138492_)) + (let ((___splice151809151810_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl138370138510_ + _tl138352138492_ '0)))) - (let ((_tl138398138448_ + (let ((_tl138380138430_ (let () (declare (not safe)) (##vector-ref - ___splice151827151828_ + ___splice151809151810_ '1))) - (_target138396138446_ + (_target138378138428_ (let () (declare (not safe)) (##vector-ref - ___splice151827151828_ + ___splice151809151810_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138398138448_)) - (___match152044152045_ - _e138369138497_ - _hd138368138500_ - _tl138367138502_ - _e138372138505_ - _hd138371138508_ - _tl138370138510_ - _e138375138513_ - _hd138374138516_ - _tl138373138518_ - _e138378138521_ - _hd138377138524_ - _tl138376138526_ - ___splice151827151828_ - _target138396138446_ - _tl138398138448_) + _tl138380138430_)) + (___match152026152027_ + _e138351138479_ + _hd138350138482_ + _tl138349138484_ + _e138354138487_ + _hd138353138490_ + _tl138352138492_ + _e138357138495_ + _hd138356138498_ + _tl138355138500_ + _e138360138503_ + _hd138359138506_ + _tl138358138508_ + ___splice151809151810_ + _target138378138428_ + _tl138380138430_) (let () (declare (not safe)) - (_g138294138409_))))) + (_g138276138391_))))) (let () (declare (not safe)) - (_g138294138409_))))))) - (___match151960151961_ - (lambda (_e138350138559_ - _hd138349138562_ - _tl138348138564_ - _e138353138567_ - _hd138352138570_ - _tl138351138572_ - ___splice151821151822_ - _target138354138575_ - _tl138356138577_) - (letrec ((_loop138357138580_ - (lambda (_hd138355138583_ - _id138361138585_) + (_g138276138391_))))))) + (___match151942151943_ + (lambda (_e138332138541_ + _hd138331138544_ + _tl138330138546_ + _e138335138549_ + _hd138334138552_ + _tl138333138554_ + ___splice151803151804_ + _target138336138557_ + _tl138338138559_) + (letrec ((_loop138339138562_ + (lambda (_hd138337138565_ + _id138343138567_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138355138583_)) - (let ((_e138358138588_ + _hd138337138565_)) + (let ((_e138340138570_ (let () (declare (not safe)) (gx#stx-e - _hd138355138583_)))) - (let ((_lp-tl138360138593_ + _hd138337138565_)))) + (let ((_lp-tl138342138575_ (let () (declare (not safe)) - (##cdr _e138358138588_))) - (_lp-hd138359138591_ + (##cdr _e138340138570_))) + (_lp-hd138341138573_ (let () (declare (not safe)) - (##car _e138358138588_)))) - (let ((__tmp152672 + (##car _e138340138570_)))) + (let ((__tmp152654 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd138359138591_ _id138361138585_)))) + (cons _lp-hd138341138573_ _id138343138567_)))) (declare (not safe)) - (_loop138357138580_ _lp-tl138360138593_ __tmp152672)))) + (_loop138339138562_ _lp-tl138342138575_ __tmp152654)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id138362138596_ - (reverse _id138361138585_))) + (let ((_id138344138578_ + (reverse _id138343138567_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138351138572_)) - (let ((_e138365138599_ + _tl138333138554_)) + (let ((_e138347138581_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl138351138572_)))) - (let ((_tl138363138604_ - (let () (declare (not safe)) (##cdr _e138365138599_))) - (_hd138364138602_ + (gx#stx-e _tl138333138554_)))) + (let ((_tl138345138586_ + (let () (declare (not safe)) (##cdr _e138347138581_))) + (_hd138346138584_ (let () (declare (not safe)) - (##car _e138365138599_)))) + (##car _e138347138581_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138363138604_)) - (___kont151819151820_ - _hd138364138602_ - _id138362138596_) - (let () (declare (not safe)) (_g138294138409_))))) - (let () (declare (not safe)) (_g138294138409_)))))))) + (gx#stx-null? _tl138345138586_)) + (___kont151801151802_ + _hd138346138584_ + _id138344138578_) + (let () (declare (not safe)) (_g138276138391_))))) + (let () (declare (not safe)) (_g138276138391_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop138357138580_ - _target138354138575_ + (_loop138339138562_ + _target138336138557_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx151811151812_)) - (let ((_e138301138768_ + (gx#stx-pair? ___stx151793151794_)) + (let ((_e138283138750_ (let () (declare (not safe)) - (gx#stx-e ___stx151811151812_)))) - (let ((_tl138299138773_ + (gx#stx-e ___stx151793151794_)))) + (let ((_tl138281138755_ (let () (declare (not safe)) - (##cdr _e138301138768_))) - (_hd138300138771_ + (##cdr _e138283138750_))) + (_hd138282138753_ (let () (declare (not safe)) - (##car _e138301138768_)))) + (##car _e138283138750_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138300138771_)) + (gx#identifier? _hd138282138753_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd138300138771_)) + _hd138282138753_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138299138773_)) - (let ((_e138304138776_ + _tl138281138755_)) + (let ((_e138286138758_ (let () (declare (not safe)) (gx#stx-e - _tl138299138773_)))) - (let ((_tl138302138781_ + _tl138281138755_)))) + (let ((_tl138284138763_ (let () (declare (not safe)) - (##cdr _e138304138776_))) - (_hd138303138779_ + (##cdr _e138286138758_))) + (_hd138285138761_ (let () (declare (not safe)) - (##car _e138304138776_)))) + (##car _e138286138758_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138302138781_)) - (let ((_e138307138784_ + _tl138284138763_)) + (let ((_e138289138766_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138302138781_)))) - (let ((_tl138305138789_ - (let () (declare (not safe)) (##cdr _e138307138784_))) - (_hd138306138787_ - (let () (declare (not safe)) (##car _e138307138784_)))) + (gx#stx-e _tl138284138763_)))) + (let ((_tl138287138771_ + (let () (declare (not safe)) (##cdr _e138289138766_))) + (_hd138288138769_ + (let () (declare (not safe)) (##car _e138289138766_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138305138789_)) - (let ((_e138310138792_ + (gx#stx-pair? _tl138287138771_)) + (let ((_e138292138774_ (let () (declare (not safe)) - (gx#stx-e _tl138305138789_)))) - (let ((_tl138308138797_ + (gx#stx-e _tl138287138771_)))) + (let ((_tl138290138779_ (let () (declare (not safe)) - (##cdr _e138310138792_))) - (_hd138309138795_ + (##cdr _e138292138774_))) + (_hd138291138777_ (let () (declare (not safe)) - (##car _e138310138792_)))) + (##car _e138292138774_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138308138797_)) - (___kont151813151814_ - _hd138309138795_ - _hd138306138787_ - _hd138303138779_) + (gx#stx-null? _tl138290138779_)) + (___kont151795151796_ + _hd138291138777_ + _hd138288138769_ + _hd138285138761_) (let () (declare (not safe)) - (_g138294138409_))))) - (let () (declare (not safe)) (_g138294138409_))))) - (let () (declare (not safe)) (_g138294138409_))))) + (_g138276138391_))))) + (let () (declare (not safe)) (_g138276138391_))))) + (let () (declare (not safe)) (_g138276138391_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138294138409_))) + (_g138276138391_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd138300138771_)) + _hd138282138753_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138299138773_)) - (let ((_e138318138732_ + _tl138281138755_)) + (let ((_e138300138714_ (let () (declare (not safe)) (gx#stx-e - _tl138299138773_)))) - (let ((_tl138316138737_ + _tl138281138755_)))) + (let ((_tl138298138719_ (let () (declare (not safe)) - (##cdr _e138318138732_))) - (_hd138317138735_ + (##cdr _e138300138714_))) + (_hd138299138717_ (let () (declare (not safe)) - (##car _e138318138732_)))) + (##car _e138300138714_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138316138737_)) - (let ((_e138321138740_ + _tl138298138719_)) + (let ((_e138303138722_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl138316138737_)))) - (let ((_tl138319138745_ + (gx#stx-e _tl138298138719_)))) + (let ((_tl138301138727_ (let () (declare (not safe)) - (##cdr _e138321138740_))) - (_hd138320138743_ + (##cdr _e138303138722_))) + (_hd138302138725_ (let () (declare (not safe)) - (##car _e138321138740_)))) + (##car _e138303138722_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138319138745_)) - (___kont151815151816_ - _hd138320138743_ - _hd138317138735_) - (let () (declare (not safe)) (_g138294138409_))))) - (let () (declare (not safe)) (_g138294138409_))))) + (gx#stx-null? _tl138301138727_)) + (___kont151797151798_ + _hd138302138725_ + _hd138299138717_) + (let () (declare (not safe)) (_g138276138391_))))) + (let () (declare (not safe)) (_g138276138391_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138294138409_))) + (_g138276138391_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd138300138771_)) + _hd138282138753_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138299138773_)) - (let ((_e138330138646_ + _tl138281138755_)) + (let ((_e138312138628_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl138299138773_)))) - (let ((_tl138328138651_ - (let () (declare (not safe)) (##cdr _e138330138646_))) - (_hd138329138649_ - (let () (declare (not safe)) (##car _e138330138646_)))) + (gx#stx-e _tl138281138755_)))) + (let ((_tl138310138633_ + (let () (declare (not safe)) (##cdr _e138312138628_))) + (_hd138311138631_ + (let () (declare (not safe)) (##car _e138312138628_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138329138649_)) - (let ((_e138333138654_ + (gx#stx-pair? _hd138311138631_)) + (let ((_e138315138636_ (let () (declare (not safe)) - (gx#stx-e _hd138329138649_)))) - (let ((_tl138331138659_ + (gx#stx-e _hd138311138631_)))) + (let ((_tl138313138641_ (let () (declare (not safe)) - (##cdr _e138333138654_))) - (_hd138332138657_ + (##cdr _e138315138636_))) + (_hd138314138639_ (let () (declare (not safe)) - (##car _e138333138654_)))) + (##car _e138315138636_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138332138657_)) - (let ((_e138336138662_ + (gx#stx-pair? _hd138314138639_)) + (let ((_e138318138644_ (let () (declare (not safe)) - (gx#stx-e _hd138332138657_)))) - (let ((_tl138334138667_ + (gx#stx-e _hd138314138639_)))) + (let ((_tl138316138649_ (let () (declare (not safe)) - (##cdr _e138336138662_))) - (_hd138335138665_ + (##cdr _e138318138644_))) + (_hd138317138647_ (let () (declare (not safe)) - (##car _e138336138662_)))) + (##car _e138318138644_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138335138665_)) - (let ((_e138339138670_ + (gx#stx-pair? _hd138317138647_)) + (let ((_e138321138652_ (let () (declare (not safe)) - (gx#stx-e _hd138335138665_)))) - (let ((_tl138337138675_ + (gx#stx-e _hd138317138647_)))) + (let ((_tl138319138657_ (let () (declare (not safe)) - (##cdr _e138339138670_))) - (_hd138338138673_ + (##cdr _e138321138652_))) + (_hd138320138655_ (let () (declare (not safe)) - (##car _e138339138670_)))) + (##car _e138321138652_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138337138675_)) + _tl138319138657_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138334138667_)) - (let ((_e138342138678_ + _tl138316138649_)) + (let ((_e138324138660_ (let () (declare (not safe)) (gx#stx-e - _tl138334138667_)))) - (let ((_tl138340138683_ + _tl138316138649_)))) + (let ((_tl138322138665_ (let () (declare (not safe)) - (##cdr _e138342138678_))) - (_hd138341138681_ + (##cdr _e138324138660_))) + (_hd138323138663_ (let () (declare (not safe)) - (##car _e138342138678_)))) + (##car _e138324138660_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138340138683_)) + _tl138322138665_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl138331138659_)) + (gx#stx-null? _tl138313138641_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138328138651_)) - (let ((_e138345138686_ + (gx#stx-pair? _tl138310138633_)) + (let ((_e138327138668_ (let () (declare (not safe)) - (gx#stx-e _tl138328138651_)))) - (let ((_tl138343138691_ + (gx#stx-e _tl138310138633_)))) + (let ((_tl138325138673_ (let () (declare (not safe)) - (##cdr _e138345138686_))) - (_hd138344138689_ + (##cdr _e138327138668_))) + (_hd138326138671_ (let () (declare (not safe)) - (##car _e138345138686_)))) + (##car _e138327138668_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138343138691_)) - (___kont151817151818_ - _hd138344138689_ - _hd138341138681_ - _hd138338138673_) + (gx#stx-null? _tl138325138673_)) + (___kont151799151800_ + _hd138326138671_ + _hd138323138663_ + _hd138320138655_) (let () (declare (not safe)) - (_g138294138409_))))) - (let () (declare (not safe)) (_g138294138409_))) - (let () (declare (not safe)) (_g138294138409_))) - (let () (declare (not safe)) (_g138294138409_))))) + (_g138276138391_))))) + (let () (declare (not safe)) (_g138276138391_))) + (let () (declare (not safe)) (_g138276138391_))) + (let () (declare (not safe)) (_g138276138391_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138294138409_))) + (_g138276138391_))) (let () (declare (not safe)) - (_g138294138409_))))) + (_g138276138391_))))) (let () (declare (not safe)) - (_g138294138409_))))) + (_g138276138391_))))) (let () (declare (not safe)) - (_g138294138409_))))) - (let () (declare (not safe)) (_g138294138409_))))) - (let () (declare (not safe)) (_g138294138409_))) + (_g138276138391_))))) + (let () (declare (not safe)) (_g138276138391_))))) + (let () (declare (not safe)) (_g138276138391_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd138300138771_)) + _hd138282138753_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138299138773_)) - (let ((_e138353138567_ + _tl138281138755_)) + (let ((_e138335138549_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl138299138773_)))) - (let ((_tl138351138572_ + (gx#stx-e _tl138281138755_)))) + (let ((_tl138333138554_ (let () (declare (not safe)) - (##cdr _e138353138567_))) - (_hd138352138570_ + (##cdr _e138335138549_))) + (_hd138334138552_ (let () (declare (not safe)) - (##car _e138353138567_)))) + (##car _e138335138549_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd138352138570_)) - (let ((___splice151821151822_ + (gx#stx-pair/null? _hd138334138552_)) + (let ((___splice151803151804_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd138352138570_ + _hd138334138552_ '0)))) - (let ((_tl138356138577_ + (let ((_tl138338138559_ (let () (declare (not safe)) - (##vector-ref ___splice151821151822_ '1))) - (_target138354138575_ + (##vector-ref ___splice151803151804_ '1))) + (_target138336138557_ (let () (declare (not safe)) (##vector-ref - ___splice151821151822_ + ___splice151803151804_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138356138577_)) - (___match151960151961_ - _e138301138768_ - _hd138300138771_ - _tl138299138773_ - _e138353138567_ - _hd138352138570_ - _tl138351138572_ - ___splice151821151822_ - _target138354138575_ - _tl138356138577_) + (gx#stx-null? _tl138338138559_)) + (___match151942151943_ + _e138283138750_ + _hd138282138753_ + _tl138281138755_ + _e138335138549_ + _hd138334138552_ + _tl138333138554_ + ___splice151803151804_ + _target138336138557_ + _tl138338138559_) (let () (declare (not safe)) - (_g138294138409_))))) - (let () (declare (not safe)) (_g138294138409_))))) - (let () (declare (not safe)) (_g138294138409_))) + (_g138276138391_))))) + (let () (declare (not safe)) (_g138276138391_))))) + (let () (declare (not safe)) (_g138276138391_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd138300138771_)) + (gx#stx-eq? '%#call _hd138282138753_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138299138773_)) - (let ((_e138372138505_ + (gx#stx-pair? _tl138281138755_)) + (let ((_e138354138487_ (let () (declare (not safe)) - (gx#stx-e _tl138299138773_)))) - (let ((_tl138370138510_ + (gx#stx-e _tl138281138755_)))) + (let ((_tl138352138492_ (let () (declare (not safe)) - (##cdr _e138372138505_))) - (_hd138371138508_ + (##cdr _e138354138487_))) + (_hd138353138490_ (let () (declare (not safe)) - (##car _e138372138505_)))) + (##car _e138354138487_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138371138508_)) - (let ((_e138375138513_ + (gx#stx-pair? _hd138353138490_)) + (let ((_e138357138495_ (let () (declare (not safe)) - (gx#stx-e _hd138371138508_)))) - (let ((_tl138373138518_ + (gx#stx-e _hd138353138490_)))) + (let ((_tl138355138500_ (let () (declare (not safe)) - (##cdr _e138375138513_))) - (_hd138374138516_ + (##cdr _e138357138495_))) + (_hd138356138498_ (let () (declare (not safe)) - (##car _e138375138513_)))) + (##car _e138357138495_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138374138516_)) + (gx#identifier? _hd138356138498_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd138374138516_)) + _hd138356138498_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138373138518_)) - (let ((_e138378138521_ + _tl138355138500_)) + (let ((_e138360138503_ (let () (declare (not safe)) (gx#stx-e - _tl138373138518_)))) - (let ((_tl138376138526_ + _tl138355138500_)))) + (let ((_tl138358138508_ (let () (declare (not safe)) - (##cdr _e138378138521_))) - (_hd138377138524_ + (##cdr _e138360138503_))) + (_hd138359138506_ (let () (declare (not safe)) - (##car _e138378138521_)))) + (##car _e138360138503_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl138376138526_)) + _tl138358138508_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138370138510_)) - (let ((_e138381138529_ + _tl138352138492_)) + (let ((_e138363138511_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl138370138510_)))) - (let ((_tl138379138534_ + (gx#stx-e _tl138352138492_)))) + (let ((_tl138361138516_ (let () (declare (not safe)) - (##cdr _e138381138529_))) - (_hd138380138532_ + (##cdr _e138363138511_))) + (_hd138362138514_ (let () (declare (not safe)) - (##car _e138381138529_)))) + (##car _e138363138511_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138379138534_)) - (___match152002152003_ - _e138301138768_ - _hd138300138771_ - _tl138299138773_ - _e138372138505_ - _hd138371138508_ - _tl138370138510_ - _e138375138513_ - _hd138374138516_ - _tl138373138518_ - _e138378138521_ - _hd138377138524_ - _tl138376138526_ - _e138381138529_ - _hd138380138532_ - _tl138379138534_) + (gx#stx-null? _tl138361138516_)) + (___match151984151985_ + _e138283138750_ + _hd138282138753_ + _tl138281138755_ + _e138354138487_ + _hd138353138490_ + _tl138352138492_ + _e138357138495_ + _hd138356138498_ + _tl138355138500_ + _e138360138503_ + _hd138359138506_ + _tl138358138508_ + _e138363138511_ + _hd138362138514_ + _tl138361138516_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl138370138510_)) - (let ((___splice151827151828_ + (gx#stx-pair/null? _tl138352138492_)) + (let ((___splice151809151810_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl138370138510_ + _tl138352138492_ '0)))) - (let ((_tl138398138448_ + (let ((_tl138380138430_ (let () (declare (not safe)) (##vector-ref - ___splice151827151828_ + ___splice151809151810_ '1))) - (_target138396138446_ + (_target138378138428_ (let () (declare (not safe)) (##vector-ref - ___splice151827151828_ + ___splice151809151810_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138398138448_)) - (___match152044152045_ - _e138301138768_ - _hd138300138771_ - _tl138299138773_ - _e138372138505_ - _hd138371138508_ - _tl138370138510_ - _e138375138513_ - _hd138374138516_ - _tl138373138518_ - _e138378138521_ - _hd138377138524_ - _tl138376138526_ - ___splice151827151828_ - _target138396138446_ - _tl138398138448_) + (gx#stx-null? _tl138380138430_)) + (___match152026152027_ + _e138283138750_ + _hd138282138753_ + _tl138281138755_ + _e138354138487_ + _hd138353138490_ + _tl138352138492_ + _e138357138495_ + _hd138356138498_ + _tl138355138500_ + _e138360138503_ + _hd138359138506_ + _tl138358138508_ + ___splice151809151810_ + _target138378138428_ + _tl138380138430_) (let () (declare (not safe)) - (_g138294138409_))))) + (_g138276138391_))))) (let () (declare (not safe)) - (_g138294138409_)))))) + (_g138276138391_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl138370138510_)) - (let ((___splice151827151828_ + (gx#stx-pair/null? _tl138352138492_)) + (let ((___splice151809151810_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl138370138510_ '0)))) - (let ((_tl138398138448_ + (gx#syntax-split-splice _tl138352138492_ '0)))) + (let ((_tl138380138430_ (let () (declare (not safe)) - (##vector-ref ___splice151827151828_ '1))) - (_target138396138446_ + (##vector-ref ___splice151809151810_ '1))) + (_target138378138428_ (let () (declare (not safe)) - (##vector-ref ___splice151827151828_ '0)))) + (##vector-ref ___splice151809151810_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138398138448_)) - (___match152044152045_ - _e138301138768_ - _hd138300138771_ - _tl138299138773_ - _e138372138505_ - _hd138371138508_ - _tl138370138510_ - _e138375138513_ - _hd138374138516_ - _tl138373138518_ - _e138378138521_ - _hd138377138524_ - _tl138376138526_ - ___splice151827151828_ - _target138396138446_ - _tl138398138448_) + (gx#stx-null? _tl138380138430_)) + (___match152026152027_ + _e138283138750_ + _hd138282138753_ + _tl138281138755_ + _e138354138487_ + _hd138353138490_ + _tl138352138492_ + _e138357138495_ + _hd138356138498_ + _tl138355138500_ + _e138360138503_ + _hd138359138506_ + _tl138358138508_ + ___splice151809151810_ + _target138378138428_ + _tl138380138430_) (let () (declare (not safe)) - (_g138294138409_))))) - (let () (declare (not safe)) (_g138294138409_)))) - (let () (declare (not safe)) (_g138294138409_))))) + (_g138276138391_))))) + (let () (declare (not safe)) (_g138276138391_)))) + (let () (declare (not safe)) (_g138276138391_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138294138409_))) + (_g138276138391_))) (let () (declare (not safe)) - (_g138294138409_))) + (_g138276138391_))) (let () (declare (not safe)) - (_g138294138409_))))) + (_g138276138391_))))) (let () (declare (not safe)) - (_g138294138409_))))) - (let () (declare (not safe)) (_g138294138409_))) - (let () (declare (not safe)) (_g138294138409_))))))) + (_g138276138391_))))) + (let () (declare (not safe)) (_g138276138391_))) + (let () (declare (not safe)) (_g138276138391_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138294138409_))))) + (_g138276138391_))))) (let () (declare (not safe)) - (_g138294138409_))))))))) - (let* ((_clause138171138178_ _clause138166_) - (_E138173138182_ + (_g138276138391_))))))))) + (let* ((_clause138153138160_ _clause138148_) + (_E138155138164_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _clause138171138178_)))) - (_K138174138275_ - (lambda (_kont138185_ _id138186_) - (let* ((_g138188138208_ - (lambda (_g138189138205_) + (error '"No clause matching" _clause138153138160_)))) + (_K138156138257_ + (lambda (_kont138167_ _id138168_) + (let* ((_g138170138190_ + (lambda (_g138171138187_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g138189138205_)))) - (_g138187138272_ - (lambda (_g138189138211_) + _g138171138187_)))) + (_g138169138254_ + (lambda (_g138171138193_) (if (let () (declare (not safe)) - (gx#stx-pair? _g138189138211_)) - (let ((_e138194138213_ + (gx#stx-pair? _g138171138193_)) + (let ((_e138176138195_ (let () (declare (not safe)) - (gx#stx-e _g138189138211_)))) - (let ((_hd138193138216_ + (gx#stx-e _g138171138193_)))) + (let ((_hd138175138198_ (let () (declare (not safe)) - (##car _e138194138213_))) - (_tl138192138218_ + (##car _e138176138195_))) + (_tl138174138200_ (let () (declare (not safe)) - (##cdr _e138194138213_)))) + (##cdr _e138176138195_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138193138216_)) + (gx#identifier? _hd138175138198_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd138193138216_)) + _hd138175138198_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138192138218_)) - (let ((_e138197138221_ + _tl138174138200_)) + (let ((_e138179138203_ (let () (declare (not safe)) (gx#stx-e - _tl138192138218_)))) - (let ((_hd138196138224_ + _tl138174138200_)))) + (let ((_hd138178138206_ (let () (declare (not safe)) - (##car _e138197138221_))) - (_tl138195138226_ + (##car _e138179138203_))) + (_tl138177138208_ (let () (declare (not safe)) - (##cdr _e138197138221_)))) + (##cdr _e138179138203_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138196138224_)) - (let ((_e138200138229_ + _hd138178138206_)) + (let ((_e138182138211_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd138196138224_)))) - (let ((_hd138199138232_ + (gx#stx-e _hd138178138206_)))) + (let ((_hd138181138214_ (let () (declare (not safe)) - (##car _e138200138229_))) - (_tl138198138234_ + (##car _e138182138211_))) + (_tl138180138216_ (let () (declare (not safe)) - (##cdr _e138200138229_)))) + (##cdr _e138182138211_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138198138234_)) + (gx#stx-null? _tl138180138216_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138195138226_)) - (let ((_e138203138237_ + (gx#stx-pair? _tl138177138208_)) + (let ((_e138185138219_ (let () (declare (not safe)) - (gx#stx-e _tl138195138226_)))) - (let ((_hd138202138240_ + (gx#stx-e _tl138177138208_)))) + (let ((_hd138184138222_ (let () (declare (not safe)) - (##car _e138203138237_))) - (_tl138201138242_ + (##car _e138185138219_))) + (_tl138183138224_ (let () (declare (not safe)) - (##cdr _e138203138237_)))) + (##cdr _e138185138219_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138201138242_)) - ((lambda (_L138245_ _L138246_) - (let* ((_body138267_ + (gx#stx-null? _tl138183138224_)) + ((lambda (_L138227_ _L138228_) + (let* ((_body138249_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L138245_ + _L138227_ 'id: - _L138246_ + _L138228_ 'new-id: - _target138168_))) - (_body138269_ - (if _negation138167_ + _target138150_))) + (_body138251_ + (if _negation138149_ (let () (declare (not safe)) - (_closure-e138170_ - _body138267_)) - _body138267_))) - (let ((__tmp152674 + (_closure-e138152_ + _body138249_)) + _body138249_))) + (let ((__tmp152656 (let () (declare (not safe)) (gxc#identifier-symbol - _id138186_))) - (__tmp152673 - (let ((__obj152102 + _id138168_))) + (__tmp152655 + (let ((__obj152084 (let () (declare (not safe)) (##structure @@ -18602,682 +18602,682 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj152102 + __obj152084 'lambda '0 '#f) - __obj152102))) + __obj152084))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp152674 - __tmp152673 + __tmp152656 + __tmp152655 '#t)) - (let ((__tmp152675 - (let ((__tmp152676 - (let ((__tmp152677 + (let ((__tmp152657 + (let ((__tmp152658 + (let ((__tmp152659 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body138269_ '())))) + (cons _body138251_ '())))) (declare (not safe)) - (cons '() __tmp152677)))) + (cons '() __tmp152659)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#lambda - __tmp152676)))) + __tmp152658)))) (declare (not safe)) - (cons _id138186_ __tmp152675)))) - _hd138202138240_ - _hd138199138232_) + (cons _id138168_ __tmp152657)))) + _hd138184138222_ + _hd138181138214_) (let () (declare (not safe)) - (_g138188138208_ _g138189138211_))))) + (_g138170138190_ _g138171138193_))))) (let () (declare (not safe)) - (_g138188138208_ _g138189138211_))) + (_g138170138190_ _g138171138193_))) (let () (declare (not safe)) - (_g138188138208_ _g138189138211_))))) + (_g138170138190_ _g138171138193_))))) (let () (declare (not safe)) - (_g138188138208_ _g138189138211_))))) + (_g138170138190_ _g138171138193_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g138188138208_ - _g138189138211_))) + (_g138170138190_ + _g138171138193_))) (let () (declare (not safe)) - (_g138188138208_ - _g138189138211_))) + (_g138170138190_ + _g138171138193_))) (let () (declare (not safe)) - (_g138188138208_ - _g138189138211_))))) + (_g138170138190_ + _g138171138193_))))) (let () (declare (not safe)) - (_g138188138208_ _g138189138211_)))))) + (_g138170138190_ _g138171138193_)))))) (declare (not safe)) - (_g138187138272_ _kont138185_))))) - (if (let () (declare (not safe)) (##pair? _clause138171138178_)) - (let ((_hd138175138278_ + (_g138169138254_ _kont138167_))))) + (if (let () (declare (not safe)) (##pair? _clause138153138160_)) + (let ((_hd138157138260_ (let () (declare (not safe)) - (##car _clause138171138178_))) - (_tl138176138280_ + (##car _clause138153138160_))) + (_tl138158138262_ (let () (declare (not safe)) - (##cdr _clause138171138178_)))) - (let* ((_id138283_ _hd138175138278_) - (_kont138285_ _tl138176138280_)) + (##cdr _clause138153138160_)))) + (let* ((_id138265_ _hd138157138260_) + (_kont138267_ _tl138158138262_)) (declare (not safe)) - (_K138174138275_ _kont138285_ _id138283_))) - (let () (declare (not safe)) (_E138173138182_))))))) + (_K138156138257_ _kont138267_ _id138265_))) + (let () (declare (not safe)) (_E138155138164_))))))) (define gxc#push-match-vars-let-values% - (lambda (_self137950_ _stx137951_) - (let* ((_g137953137970_ - (lambda (_g137954137967_) + (lambda (_self137932_ _stx137933_) + (let* ((_g137935137952_ + (lambda (_g137936137949_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g137954137967_)))) - (_g137952138163_ - (lambda (_g137954137973_) + _g137936137949_)))) + (_g137934138145_ + (lambda (_g137936137955_) (if (let () (declare (not safe)) - (gx#stx-pair? _g137954137973_)) - (let ((_e137959137975_ + (gx#stx-pair? _g137936137955_)) + (let ((_e137941137957_ (let () (declare (not safe)) - (gx#stx-e _g137954137973_)))) - (let ((_hd137958137978_ + (gx#stx-e _g137936137955_)))) + (let ((_hd137940137960_ (let () (declare (not safe)) - (##car _e137959137975_))) - (_tl137957137980_ + (##car _e137941137957_))) + (_tl137939137962_ (let () (declare (not safe)) - (##cdr _e137959137975_)))) + (##cdr _e137941137957_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137957137980_)) - (let ((_e137962137983_ + (gx#stx-pair? _tl137939137962_)) + (let ((_e137944137965_ (let () (declare (not safe)) - (gx#stx-e _tl137957137980_)))) - (let ((_hd137961137986_ + (gx#stx-e _tl137939137962_)))) + (let ((_hd137943137968_ (let () (declare (not safe)) - (##car _e137962137983_))) - (_tl137960137988_ + (##car _e137944137965_))) + (_tl137942137970_ (let () (declare (not safe)) - (##cdr _e137962137983_)))) + (##cdr _e137944137965_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137960137988_)) - (let ((_e137965137991_ + (gx#stx-pair? _tl137942137970_)) + (let ((_e137947137973_ (let () (declare (not safe)) - (gx#stx-e _tl137960137988_)))) - (let ((_hd137964137994_ + (gx#stx-e _tl137942137970_)))) + (let ((_hd137946137976_ (let () (declare (not safe)) - (##car _e137965137991_))) - (_tl137963137996_ + (##car _e137947137973_))) + (_tl137945137978_ (let () (declare (not safe)) - (##cdr _e137965137991_)))) + (##cdr _e137947137973_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137963137996_)) - ((lambda (_L137999_ _L138000_) - (let _lp138015_ ((_rest138017_ + _tl137945137978_)) + ((lambda (_L137981_ _L137982_) + (let _lp137997_ ((_rest137999_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L138000_) - (_rebind138018_ '()) - (_vars138019_ + _L137982_) + (_rebind138000_ '()) + (_vars138001_ (let () (declare (not safe)) - (slot-ref__0 _self137950_ 'vars)))) + (slot-ref__0 _self137932_ 'vars)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest138020138028_ - _rest138017_) - (_else138022138039_ + (let* ((_rest138002138010_ + _rest137999_) + (_else138004138021_ (lambda () - (let ((_sibling138036_ + (let ((_sibling138018_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (struct-copy _self137950_)))) + (struct-copy _self137932_)))) (let () (declare (not safe)) - (slot-set!__0 _sibling138036_ 'vars _vars138019_)) - (let ((__tmp152678 + (slot-set!__0 _sibling138018_ 'vars _vars138001_)) + (let ((__tmp152660 (lambda () (if (let () (declare (not safe)) - (null? _rebind138018_)) + (null? _rebind138000_)) (let () (declare (not safe)) (gxc#compile-e__1 - _sibling138036_ - _L137999_)) - (let ((__tmp152679 - (let ((__tmp152680 - (let ((__tmp152683 - (reverse _rebind138018_)) - (__tmp152681 - (let ((__tmp152682 + _sibling138018_ + _L137981_)) + (let ((__tmp152661 + (let ((__tmp152662 + (let ((__tmp152665 + (reverse _rebind138000_)) + (__tmp152663 + (let ((__tmp152664 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _sibling138036_ _L137999_)))) + (gxc#compile-e__1 _sibling138018_ _L137981_)))) (declare (not safe)) - (cons __tmp152682 '())))) + (cons __tmp152664 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp152683 - __tmp152681)))) + (cons __tmp152665 + __tmp152663)))) (declare (not safe)) (cons '%#let-values - __tmp152680)))) + __tmp152662)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp152679 - _stx137951_)))))) + __tmp152661 + _stx137933_)))))) (declare (not safe)) (call-with-parameters - __tmp152678 + __tmp152660 gxc#current-compile-method - _sibling138036_))))) - (_K138024138151_ - (lambda (_rest138042_ _bind138043_) - (let* ((___stx152047152048_ _bind138043_) - (_g138046138069_ + _sibling138018_))))) + (_K138006138133_ + (lambda (_rest138024_ _bind138025_) + (let* ((___stx152029152030_ _bind138025_) + (_g138028138051_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx152047152048_))))) - (let ((___kont152049152050_ - (lambda (_L138121_ _L138122_) - (let ((__tmp152684 + ___stx152029152030_))))) + (let ((___kont152031152032_ + (lambda (_L138103_ _L138104_) + (let ((__tmp152666 (let () (declare (not safe)) - (cons _bind138043_ _vars138019_)))) + (cons _bind138025_ _vars138001_)))) (declare (not safe)) - (_lp138015_ - _rest138042_ - _rebind138018_ - __tmp152684)))) - (___kont152051152052_ + (_lp137997_ + _rest138024_ + _rebind138000_ + __tmp152666)))) + (___kont152033152034_ (lambda () - (let ((__tmp152685 + (let ((__tmp152667 (let () (declare (not safe)) - (cons _bind138043_ _rebind138018_)))) + (cons _bind138025_ _rebind138000_)))) (declare (not safe)) - (_lp138015_ - _rest138042_ - __tmp152685 - _vars138019_))))) + (_lp137997_ + _rest138024_ + __tmp152667 + _vars138001_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx152047152048_)) - (let ((_e138052138081_ + (gx#stx-pair? ___stx152029152030_)) + (let ((_e138034138063_ (let () (declare (not safe)) - (gx#stx-e ___stx152047152048_)))) - (let ((_tl138050138086_ + (gx#stx-e ___stx152029152030_)))) + (let ((_tl138032138068_ (let () (declare (not safe)) - (##cdr _e138052138081_))) - (_hd138051138084_ + (##cdr _e138034138063_))) + (_hd138033138066_ (let () (declare (not safe)) - (##car _e138052138081_)))) + (##car _e138034138063_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd138051138084_)) - (let ((_e138055138089_ + (gx#stx-pair? _hd138033138066_)) + (let ((_e138037138071_ (let () (declare (not safe)) - (gx#stx-e _hd138051138084_)))) - (let ((_tl138053138094_ + (gx#stx-e _hd138033138066_)))) + (let ((_tl138035138076_ (let () (declare (not safe)) - (##cdr _e138055138089_))) - (_hd138054138092_ + (##cdr _e138037138071_))) + (_hd138036138074_ (let () (declare (not safe)) - (##car _e138055138089_)))) + (##car _e138037138071_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138053138094_)) + (gx#stx-null? _tl138035138076_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl138050138086_)) - (let ((_e138058138097_ + _tl138032138068_)) + (let ((_e138040138079_ (let () (declare (not safe)) (gx#stx-e - _tl138050138086_)))) - (let ((_tl138056138102_ + _tl138032138068_)))) + (let ((_tl138038138084_ (let () (declare (not safe)) - (##cdr _e138058138097_))) - (_hd138057138100_ + (##cdr _e138040138079_))) + (_hd138039138082_ (let () (declare (not safe)) - (##car _e138058138097_)))) + (##car _e138040138079_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd138057138100_)) - (let ((_e138061138105_ + _hd138039138082_)) + (let ((_e138043138087_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd138057138100_)))) - (let ((_tl138059138110_ + (gx#stx-e _hd138039138082_)))) + (let ((_tl138041138092_ (let () (declare (not safe)) - (##cdr _e138061138105_))) - (_hd138060138108_ + (##cdr _e138043138087_))) + (_hd138042138090_ (let () (declare (not safe)) - (##car _e138061138105_)))) + (##car _e138043138087_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd138060138108_)) + (gx#identifier? _hd138042138090_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd138060138108_)) + (gx#stx-eq? '%#ref _hd138042138090_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl138059138110_)) - (let ((_e138064138113_ + (gx#stx-pair? _tl138041138092_)) + (let ((_e138046138095_ (let () (declare (not safe)) - (gx#stx-e _tl138059138110_)))) - (let ((_tl138062138118_ + (gx#stx-e _tl138041138092_)))) + (let ((_tl138044138100_ (let () (declare (not safe)) - (##cdr _e138064138113_))) - (_hd138063138116_ + (##cdr _e138046138095_))) + (_hd138045138098_ (let () (declare (not safe)) - (##car _e138064138113_)))) + (##car _e138046138095_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl138062138118_)) + (gx#stx-null? _tl138044138100_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl138056138102_)) - (___kont152049152050_ - _hd138063138116_ - _hd138054138092_) - (___kont152051152052_)) - (___kont152051152052_)))) - (___kont152051152052_)) - (___kont152051152052_)) - (___kont152051152052_)))) - (___kont152051152052_)))) + (gx#stx-null? _tl138038138084_)) + (___kont152031152032_ + _hd138045138098_ + _hd138036138074_) + (___kont152033152034_)) + (___kont152033152034_)))) + (___kont152033152034_)) + (___kont152033152034_)) + (___kont152033152034_)))) + (___kont152033152034_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont152051152052_)) - (___kont152051152052_)))) - (___kont152051152052_)))) - (___kont152051152052_))))))) + (___kont152033152034_)) + (___kont152033152034_)))) + (___kont152033152034_)))) + (___kont152033152034_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest138020138028_)) - (let ((_hd138025138154_ + (##pair? _rest138002138010_)) + (let ((_hd138007138136_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _rest138020138028_))) - (_tl138026138156_ + (##car _rest138002138010_))) + (_tl138008138138_ (let () (declare (not safe)) - (##cdr _rest138020138028_)))) - (let* ((_bind138159_ _hd138025138154_) - (_rest138161_ _tl138026138156_)) + (##cdr _rest138002138010_)))) + (let* ((_bind138141_ _hd138007138136_) + (_rest138143_ _tl138008138138_)) (declare (not safe)) - (_K138024138151_ _rest138161_ _bind138159_))) - (let () (declare (not safe)) (_else138022138039_)))))) + (_K138006138133_ _rest138143_ _bind138141_))) + (let () (declare (not safe)) (_else138004138021_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd137964137994_ - _hd137961137986_) + _hd137946137976_ + _hd137943137968_) (let () (declare (not safe)) - (_g137953137970_ - _g137954137973_))))) + (_g137935137952_ + _g137936137955_))))) (let () (declare (not safe)) - (_g137953137970_ _g137954137973_))))) + (_g137935137952_ _g137936137955_))))) (let () (declare (not safe)) - (_g137953137970_ _g137954137973_))))) + (_g137935137952_ _g137936137955_))))) (let () (declare (not safe)) - (_g137953137970_ _g137954137973_)))))) + (_g137935137952_ _g137936137955_)))))) (declare (not safe)) - (_g137952138163_ _stx137951_)))) + (_g137934138145_ _stx137933_)))) (define gxc#push-match-vars-if% - (lambda (_self137866_ _stx137867_) - (let* ((_g137869137890_ - (lambda (_g137870137887_) + (lambda (_self137848_ _stx137849_) + (let* ((_g137851137872_ + (lambda (_g137852137869_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g137870137887_)))) - (_g137868137947_ - (lambda (_g137870137893_) + _g137852137869_)))) + (_g137850137929_ + (lambda (_g137852137875_) (if (let () (declare (not safe)) - (gx#stx-pair? _g137870137893_)) - (let ((_e137876137895_ + (gx#stx-pair? _g137852137875_)) + (let ((_e137858137877_ (let () (declare (not safe)) - (gx#stx-e _g137870137893_)))) - (let ((_hd137875137898_ + (gx#stx-e _g137852137875_)))) + (let ((_hd137857137880_ (let () (declare (not safe)) - (##car _e137876137895_))) - (_tl137874137900_ + (##car _e137858137877_))) + (_tl137856137882_ (let () (declare (not safe)) - (##cdr _e137876137895_)))) + (##cdr _e137858137877_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137874137900_)) - (let ((_e137879137903_ + (gx#stx-pair? _tl137856137882_)) + (let ((_e137861137885_ (let () (declare (not safe)) - (gx#stx-e _tl137874137900_)))) - (let ((_hd137878137906_ + (gx#stx-e _tl137856137882_)))) + (let ((_hd137860137888_ (let () (declare (not safe)) - (##car _e137879137903_))) - (_tl137877137908_ + (##car _e137861137885_))) + (_tl137859137890_ (let () (declare (not safe)) - (##cdr _e137879137903_)))) + (##cdr _e137861137885_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137877137908_)) - (let ((_e137882137911_ + (gx#stx-pair? _tl137859137890_)) + (let ((_e137864137893_ (let () (declare (not safe)) - (gx#stx-e _tl137877137908_)))) - (let ((_hd137881137914_ + (gx#stx-e _tl137859137890_)))) + (let ((_hd137863137896_ (let () (declare (not safe)) - (##car _e137882137911_))) - (_tl137880137916_ + (##car _e137864137893_))) + (_tl137862137898_ (let () (declare (not safe)) - (##cdr _e137882137911_)))) + (##cdr _e137864137893_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137880137916_)) - (let ((_e137885137919_ + _tl137862137898_)) + (let ((_e137867137901_ (let () (declare (not safe)) (gx#stx-e - _tl137880137916_)))) - (let ((_hd137884137922_ + _tl137862137898_)))) + (let ((_hd137866137904_ (let () (declare (not safe)) - (##car _e137885137919_))) - (_tl137883137924_ + (##car _e137867137901_))) + (_tl137865137906_ (let () (declare (not safe)) - (##cdr _e137885137919_)))) + (##cdr _e137867137901_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl137883137924_)) - ((lambda (_L137927_ - _L137928_ - _L137929_) - (if (let ((__tmp152692 + _tl137865137906_)) + ((lambda (_L137909_ + _L137910_ + _L137911_) + (if (let ((__tmp152674 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map caar (let () (declare (not safe)) - (slot-ref__0 _self137866_ 'vars))))) + (slot-ref__0 _self137848_ 'vars))))) (declare (not safe)) - (gxc#apply-find-var-refs _L137929_ 'ids: __tmp152692)) + (gxc#apply-find-var-refs _L137911_ 'ids: __tmp152674)) (let () (declare (not safe)) - (gxc#push-match-vars-stop _self137866_ _stx137867_)) - (let ((__tmp152686 - (let ((__tmp152687 - (let ((__tmp152688 - (let ((__tmp152691 + (gxc#push-match-vars-stop _self137848_ _stx137849_)) + (let ((__tmp152668 + (let ((__tmp152669 + (let ((__tmp152670 + (let ((__tmp152673 (let () (declare (not safe)) (gxc#compile-e__1 - _self137866_ - _L137928_))) - (__tmp152689 - (let ((__tmp152690 + _self137848_ + _L137910_))) + (__tmp152671 + (let ((__tmp152672 (let () (declare (not safe)) (gxc#compile-e__1 - _self137866_ - _L137927_)))) + _self137848_ + _L137909_)))) (declare (not safe)) - (cons __tmp152690 '())))) + (cons __tmp152672 '())))) (declare (not safe)) - (cons __tmp152691 __tmp152689)))) + (cons __tmp152673 __tmp152671)))) (declare (not safe)) - (cons _L137929_ __tmp152688)))) + (cons _L137911_ __tmp152670)))) (declare (not safe)) - (cons '%#if __tmp152687)))) + (cons '%#if __tmp152669)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp152686 _stx137867_)))) - _hd137884137922_ - _hd137881137914_ - _hd137878137906_) + (gxc#xform-wrap-source __tmp152668 _stx137849_)))) + _hd137866137904_ + _hd137863137896_ + _hd137860137888_) (let () (declare (not safe)) - (_g137869137890_ _g137870137893_))))) + (_g137851137872_ _g137852137875_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137869137890_ - _g137870137893_))))) + (_g137851137872_ + _g137852137875_))))) (let () (declare (not safe)) - (_g137869137890_ _g137870137893_))))) + (_g137851137872_ _g137852137875_))))) (let () (declare (not safe)) - (_g137869137890_ _g137870137893_))))) + (_g137851137872_ _g137852137875_))))) (let () (declare (not safe)) - (_g137869137890_ _g137870137893_)))))) + (_g137851137872_ _g137852137875_)))))) (declare (not safe)) - (_g137868137947_ _stx137867_)))) + (_g137850137929_ _stx137849_)))) (define gxc#push-match-vars-call% - (lambda (_self137788_ _stx137789_) - (let* ((_g137791137810_ - (lambda (_g137792137807_) + (lambda (_self137770_ _stx137771_) + (let* ((_g137773137792_ + (lambda (_g137774137789_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g137792137807_)))) - (_g137790137863_ - (lambda (_g137792137813_) + _g137774137789_)))) + (_g137772137845_ + (lambda (_g137774137795_) (if (let () (declare (not safe)) - (gx#stx-pair? _g137792137813_)) - (let ((_e137796137815_ + (gx#stx-pair? _g137774137795_)) + (let ((_e137778137797_ (let () (declare (not safe)) - (gx#stx-e _g137792137813_)))) - (let ((_hd137795137818_ + (gx#stx-e _g137774137795_)))) + (let ((_hd137777137800_ (let () (declare (not safe)) - (##car _e137796137815_))) - (_tl137794137820_ + (##car _e137778137797_))) + (_tl137776137802_ (let () (declare (not safe)) - (##cdr _e137796137815_)))) + (##cdr _e137778137797_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl137794137820_)) - (let ((_e137799137823_ + (gx#stx-pair? _tl137776137802_)) + (let ((_e137781137805_ (let () (declare (not safe)) - (gx#stx-e _tl137794137820_)))) - (let ((_hd137798137826_ + (gx#stx-e _tl137776137802_)))) + (let ((_hd137780137808_ (let () (declare (not safe)) - (##car _e137799137823_))) - (_tl137797137828_ + (##car _e137781137805_))) + (_tl137779137810_ (let () (declare (not safe)) - (##cdr _e137799137823_)))) + (##cdr _e137781137805_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd137798137826_)) - (let ((_e137802137831_ + (gx#stx-pair? _hd137780137808_)) + (let ((_e137784137813_ (let () (declare (not safe)) - (gx#stx-e _hd137798137826_)))) - (let ((_hd137801137834_ + (gx#stx-e _hd137780137808_)))) + (let ((_hd137783137816_ (let () (declare (not safe)) - (##car _e137802137831_))) - (_tl137800137836_ + (##car _e137784137813_))) + (_tl137782137818_ (let () (declare (not safe)) - (##cdr _e137802137831_)))) + (##cdr _e137784137813_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd137801137834_)) + _hd137783137816_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd137801137834_)) + _hd137783137816_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl137800137836_)) - (let ((_e137805137839_ + _tl137782137818_)) + (let ((_e137787137821_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl137800137836_)))) - (let ((_hd137804137842_ - (let () (declare (not safe)) (##car _e137805137839_))) - (_tl137803137844_ - (let () (declare (not safe)) (##cdr _e137805137839_)))) + (gx#stx-e _tl137782137818_)))) + (let ((_hd137786137824_ + (let () (declare (not safe)) (##car _e137787137821_))) + (_tl137785137826_ + (let () (declare (not safe)) (##cdr _e137787137821_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl137803137844_)) - ((lambda (_L137847_) - (if (and (let ((__tmp152698 + (gx#stx-null? _tl137785137826_)) + ((lambda (_L137829_) + (if (and (let ((__tmp152680 (let () (declare (not safe)) - (slot-ref__0 _self137788_ 'K)))) + (slot-ref__0 _self137770_ 'K)))) (declare (not safe)) (gx#free-identifier=? - _L137847_ - __tmp152698)) - (let ((__tmp152697 + _L137829_ + __tmp152680)) + (let ((__tmp152679 (let () (declare (not safe)) - (slot-ref__0 _self137788_ 'vars)))) + (slot-ref__0 _self137770_ 'vars)))) (declare (not safe)) - (pair? __tmp152697))) - (let ((__tmp152693 - (let ((__tmp152694 - (let ((__tmp152696 + (pair? __tmp152679))) + (let ((__tmp152675 + (let ((__tmp152676 + (let ((__tmp152678 (reverse (let () (declare (not safe)) (slot-ref__0 - _self137788_ + _self137770_ 'vars)))) - (__tmp152695 + (__tmp152677 (let () (declare (not safe)) - (cons _stx137789_ '())))) + (cons _stx137771_ '())))) (declare (not safe)) - (cons __tmp152696 __tmp152695)))) + (cons __tmp152678 __tmp152677)))) (declare (not safe)) - (cons '%#let-values __tmp152694)))) + (cons '%#let-values __tmp152676)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp152693 _stx137789_)) - _stx137789_)) - _hd137804137842_) + (gxc#xform-wrap-source __tmp152675 _stx137771_)) + _stx137771_)) + _hd137786137824_) (let () (declare (not safe)) - (_g137791137810_ _g137792137813_))))) - (let () (declare (not safe)) (_g137791137810_ _g137792137813_))) + (_g137773137792_ _g137774137795_))))) + (let () (declare (not safe)) (_g137773137792_ _g137774137795_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g137791137810_ - _g137792137813_))) + (_g137773137792_ + _g137774137795_))) (let () (declare (not safe)) - (_g137791137810_ - _g137792137813_))))) + (_g137773137792_ + _g137774137795_))))) (let () (declare (not safe)) - (_g137791137810_ _g137792137813_))))) + (_g137773137792_ _g137774137795_))))) (let () (declare (not safe)) - (_g137791137810_ _g137792137813_))))) + (_g137773137792_ _g137774137795_))))) (let () (declare (not safe)) - (_g137791137810_ _g137792137813_)))))) + (_g137773137792_ _g137774137795_)))))) (declare (not safe)) - (_g137790137863_ _stx137789_)))) + (_g137772137845_ _stx137771_)))) (define gxc#push-match-vars-stop - (lambda (_self137785_ _stx137786_) - (if (let ((__tmp152703 + (lambda (_self137767_ _stx137768_) + (if (let ((__tmp152685 (let () (declare (not safe)) - (slot-ref__0 _self137785_ 'vars)))) + (slot-ref__0 _self137767_ 'vars)))) (declare (not safe)) - (null? __tmp152703)) - _stx137786_ - (let ((__tmp152699 - (let ((__tmp152700 - (let ((__tmp152702 + (null? __tmp152685)) + _stx137768_ + (let ((__tmp152681 + (let ((__tmp152682 + (let ((__tmp152684 (reverse (let () (declare (not safe)) - (slot-ref__0 _self137785_ 'vars)))) - (__tmp152701 + (slot-ref__0 _self137767_ 'vars)))) + (__tmp152683 (let () (declare (not safe)) - (cons _stx137786_ '())))) + (cons _stx137768_ '())))) (declare (not safe)) - (cons __tmp152702 __tmp152701)))) + (cons __tmp152684 __tmp152683)))) (declare (not safe)) - (cons '%#let-values __tmp152700)))) + (cons '%#let-values __tmp152682)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp152699 _stx137786_))))))) + (gxc#xform-wrap-source __tmp152681 _stx137768_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~1.scm b/src/bootstrap/gerbil/compiler/optimize-ann~1.scm index b03d3e82d..d58df5fff 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]#_g152706_| + (define |gxc[1]#_g152688_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152708_| + (define |gxc[1]#_g152690_| (##structure gx#syntax-quote::t '::optimize-annotated::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152710_| + (define |gxc[1]#_g152692_| (##structure gx#syntax-quote::t 'make-::optimize-annotated #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152712_| + (define |gxc[1]#_g152694_| (##structure gx#syntax-quote::t '::optimize-annotated? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152715_| + (define |gxc[1]#_g152697_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152717_| + (define |gxc[1]#_g152699_| (##structure gx#syntax-quote::t '::generate-runtime-repr::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152719_| + (define |gxc[1]#_g152701_| (##structure gx#syntax-quote::t 'make-::generate-runtime-repr #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152721_| + (define |gxc[1]#_g152703_| (##structure gx#syntax-quote::t '::generate-runtime-repr? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152723_| + (define |gxc[1]#_g152705_| (##structure gx#syntax-quote::t '::push-match-vars::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152725_| + (define |gxc[1]#_g152707_| (##structure gx#syntax-quote::t 'make-::push-match-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152727_| + (define |gxc[1]#_g152709_| (##structure gx#syntax-quote::t '::push-match-vars? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152732_| + (define |gxc[1]#_g152714_| (##structure gx#syntax-quote::t '::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152735_| + (define |gxc[1]#_g152717_| (##structure gx#syntax-quote::t '::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152740_| + (define |gxc[1]#_g152722_| (##structure gx#syntax-quote::t '::push-match-vars-K-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152743_| + (define |gxc[1]#_g152725_| (##structure gx#syntax-quote::t '::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152748_| + (define |gxc[1]#_g152730_| (##structure gx#syntax-quote::t '&::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152751_| + (define |gxc[1]#_g152733_| (##structure gx#syntax-quote::t '&::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152756_| + (define |gxc[1]#_g152738_| (##structure gx#syntax-quote::t '&::push-match-vars-K-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g152759_| + (define |gxc[1]#_g152741_| (##structure gx#syntax-quote::t '&::push-match-vars-vars-set! @@ -135,7 +135,7 @@ '())) (begin (define |gxc[:0:]#::optimize-annotated| - (let ((__obj152094 + (let ((__obj152076 (let () (declare (not safe)) (##structure @@ -159,7 +159,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152076 '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! - __obj152094 + __obj152076 '::optimize-annotated '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -175,26 +175,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152076 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152704 - (let ((__tmp152705 |gxc[1]#_g152706_|)) + (let ((__tmp152686 + (let ((__tmp152687 |gxc[1]#_g152688_|)) (declare (not safe)) - (cons __tmp152705 '())))) + (cons __tmp152687 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj152094 - __tmp152704 + __obj152076 + __tmp152686 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152076 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -202,7 +202,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152076 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -210,7 +210,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152076 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -218,39 +218,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152076 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152707 |gxc[1]#_g152708_|)) + (let ((__tmp152689 |gxc[1]#_g152690_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152094 - __tmp152707 + __obj152076 + __tmp152689 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152709 |gxc[1]#_g152710_|)) + (let ((__tmp152691 |gxc[1]#_g152692_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152094 - __tmp152709 + __obj152076 + __tmp152691 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152711 |gxc[1]#_g152712_|)) + (let ((__tmp152693 |gxc[1]#_g152694_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152094 - __tmp152711 + __obj152076 + __tmp152693 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152076 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -258,7 +258,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152076 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -266,7 +266,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152076 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -274,14 +274,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152094 + __obj152076 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj152094)) + __obj152076)) (define |gxc[:0:]#::generate-runtime-repr| - (let ((__obj152096 + (let ((__obj152078 (let () (declare (not safe)) (##structure @@ -305,7 +305,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj152078 '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! - __obj152096 + __obj152078 '::generate-runtime-repr '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -321,26 +321,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj152078 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152713 - (let ((__tmp152714 |gxc[1]#_g152715_|)) + (let ((__tmp152695 + (let ((__tmp152696 |gxc[1]#_g152697_|)) (declare (not safe)) - (cons __tmp152714 '())))) + (cons __tmp152696 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj152096 - __tmp152713 + __obj152078 + __tmp152695 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj152078 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -348,7 +348,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj152078 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -356,7 +356,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj152078 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -364,39 +364,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj152078 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152716 |gxc[1]#_g152717_|)) + (let ((__tmp152698 |gxc[1]#_g152699_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152096 - __tmp152716 + __obj152078 + __tmp152698 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152718 |gxc[1]#_g152719_|)) + (let ((__tmp152700 |gxc[1]#_g152701_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152096 - __tmp152718 + __obj152078 + __tmp152700 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152720 |gxc[1]#_g152721_|)) + (let ((__tmp152702 |gxc[1]#_g152703_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152096 - __tmp152720 + __obj152078 + __tmp152702 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj152078 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -404,7 +404,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj152078 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -412,7 +412,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj152078 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -420,14 +420,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152096 + __obj152078 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj152096)) + __obj152078)) (define |gxc[:0:]#::push-match-vars| - (let ((__obj152098 + (let ((__obj152080 (let () (declare (not safe)) (##structure @@ -451,7 +451,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152098 + __obj152080 '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! - __obj152098 + __obj152080 '::push-match-vars '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -467,7 +467,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152098 + __obj152080 '(vars K) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -475,7 +475,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152098 + __obj152080 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -483,7 +483,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152098 + __obj152080 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -491,7 +491,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152098 + __obj152080 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -499,7 +499,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152098 + __obj152080 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -507,117 +507,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152098 + __obj152080 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152722 |gxc[1]#_g152723_|)) + (let ((__tmp152704 |gxc[1]#_g152705_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152098 - __tmp152722 + __obj152080 + __tmp152704 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152724 |gxc[1]#_g152725_|)) + (let ((__tmp152706 |gxc[1]#_g152707_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152098 - __tmp152724 + __obj152080 + __tmp152706 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152726 |gxc[1]#_g152727_|)) + (let ((__tmp152708 |gxc[1]#_g152709_|)) (declare (not safe)) (##unchecked-structure-set! - __obj152098 - __tmp152726 + __obj152080 + __tmp152708 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152728 - (let ((__tmp152733 - (let ((__tmp152734 |gxc[1]#_g152735_|)) + (let ((__tmp152710 + (let ((__tmp152715 + (let ((__tmp152716 |gxc[1]#_g152717_|)) (declare (not safe)) - (cons 'vars __tmp152734))) - (__tmp152729 - (let ((__tmp152730 - (let ((__tmp152731 |gxc[1]#_g152732_|)) + (cons 'vars __tmp152716))) + (__tmp152711 + (let ((__tmp152712 + (let ((__tmp152713 |gxc[1]#_g152714_|)) (declare (not safe)) - (cons 'K __tmp152731)))) + (cons 'K __tmp152713)))) (declare (not safe)) - (cons __tmp152730 '())))) + (cons __tmp152712 '())))) (declare (not safe)) - (cons __tmp152733 __tmp152729)))) + (cons __tmp152715 __tmp152711)))) (declare (not safe)) (##unchecked-structure-set! - __obj152098 - __tmp152728 + __obj152080 + __tmp152710 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152736 - (let ((__tmp152741 - (let ((__tmp152742 |gxc[1]#_g152743_|)) + (let ((__tmp152718 + (let ((__tmp152723 + (let ((__tmp152724 |gxc[1]#_g152725_|)) (declare (not safe)) - (cons 'vars __tmp152742))) - (__tmp152737 - (let ((__tmp152738 - (let ((__tmp152739 |gxc[1]#_g152740_|)) + (cons 'vars __tmp152724))) + (__tmp152719 + (let ((__tmp152720 + (let ((__tmp152721 |gxc[1]#_g152722_|)) (declare (not safe)) - (cons 'K __tmp152739)))) + (cons 'K __tmp152721)))) (declare (not safe)) - (cons __tmp152738 '())))) + (cons __tmp152720 '())))) (declare (not safe)) - (cons __tmp152741 __tmp152737)))) + (cons __tmp152723 __tmp152719)))) (declare (not safe)) (##unchecked-structure-set! - __obj152098 - __tmp152736 + __obj152080 + __tmp152718 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152744 - (let ((__tmp152749 - (let ((__tmp152750 |gxc[1]#_g152751_|)) + (let ((__tmp152726 + (let ((__tmp152731 + (let ((__tmp152732 |gxc[1]#_g152733_|)) (declare (not safe)) - (cons 'vars __tmp152750))) - (__tmp152745 - (let ((__tmp152746 - (let ((__tmp152747 |gxc[1]#_g152748_|)) + (cons 'vars __tmp152732))) + (__tmp152727 + (let ((__tmp152728 + (let ((__tmp152729 |gxc[1]#_g152730_|)) (declare (not safe)) - (cons 'K __tmp152747)))) + (cons 'K __tmp152729)))) (declare (not safe)) - (cons __tmp152746 '())))) + (cons __tmp152728 '())))) (declare (not safe)) - (cons __tmp152749 __tmp152745)))) + (cons __tmp152731 __tmp152727)))) (declare (not safe)) (##unchecked-structure-set! - __obj152098 - __tmp152744 + __obj152080 + __tmp152726 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp152752 - (let ((__tmp152757 - (let ((__tmp152758 |gxc[1]#_g152759_|)) + (let ((__tmp152734 + (let ((__tmp152739 + (let ((__tmp152740 |gxc[1]#_g152741_|)) (declare (not safe)) - (cons 'vars __tmp152758))) - (__tmp152753 - (let ((__tmp152754 - (let ((__tmp152755 |gxc[1]#_g152756_|)) + (cons 'vars __tmp152740))) + (__tmp152735 + (let ((__tmp152736 + (let ((__tmp152737 |gxc[1]#_g152738_|)) (declare (not safe)) - (cons 'K __tmp152755)))) + (cons 'K __tmp152737)))) (declare (not safe)) - (cons __tmp152754 '())))) + (cons __tmp152736 '())))) (declare (not safe)) - (cons __tmp152757 __tmp152753)))) + (cons __tmp152739 __tmp152735)))) (declare (not safe)) (##unchecked-structure-set! - __obj152098 - __tmp152752 + __obj152080 + __tmp152734 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj152098)))) + __obj152080)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base~0.scm b/src/bootstrap/gerbil/compiler/optimize-base~0.scm index 32ece6879..c2d944077 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 1710833425) + (define gerbil/compiler/optimize-base::timestamp 1710943499) (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 ((__tmp117122 (list)) - (__tmp117120 - (let ((__tmp117121 + (let ((__tmp117104 (list)) + (__tmp117102 + (let ((__tmp117103 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117121 '())))) + (cons __tmp117103 '())))) (declare (not safe)) (make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp117122 + __tmp117104 '(type ssxi methods) - __tmp117120 + __tmp117102 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _$args117056_ - (apply make-instance gxc#optimizer-info::t _$args117056_))) + (lambda _$args117038_ + (apply make-instance gxc#optimizer-info::t _$args117038_))) (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 (_self117054_) - (if (let ((__tmp117130 + (lambda (_self117036_) + (if (let ((__tmp117112 (let () (declare (not safe)) - (##structure-length _self117054_)))) + (##structure-length _self117036_)))) (declare (not safe)) - (##fx< '3 __tmp117130)) + (##fx< '3 __tmp117112)) (begin - (let ((__tmp117125 + (let ((__tmp117107 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp117124 + (__tmp117106 (let () (declare (not safe)) - (##structure-type _self117054_)))) + (##structure-type _self117036_)))) (declare (not safe)) (##unchecked-structure-set! - _self117054_ - __tmp117125 + _self117036_ + __tmp117107 '1 - __tmp117124 + __tmp117106 '#f)) - (let ((__tmp117127 + (let ((__tmp117109 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp117126 + (__tmp117108 (let () (declare (not safe)) - (##structure-type _self117054_)))) + (##structure-type _self117036_)))) (declare (not safe)) (##unchecked-structure-set! - _self117054_ - __tmp117127 + _self117036_ + __tmp117109 '2 - __tmp117126 + __tmp117108 '#f)) - (let ((__tmp117129 + (let ((__tmp117111 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp117128 + (__tmp117110 (let () (declare (not safe)) - (##structure-type _self117054_)))) + (##structure-type _self117036_)))) (declare (not safe)) (##unchecked-structure-set! - _self117054_ - __tmp117129 + _self117036_ + __tmp117111 '3 - __tmp117128 + __tmp117110 '#f))) - (let ((__tmp117123 + (let ((__tmp117105 (let () (declare (not safe)) - (##vector-length _self117054_)))) + (##vector-length _self117036_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self117054_ + _self117036_ '3 - __tmp117123))))) + __tmp117105))))) (let () (declare (not safe)) (bind-method!__% @@ -140,24 +140,24 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp117133 (list)) - (__tmp117131 - (let ((__tmp117132 + (let ((__tmp117115 (list)) + (__tmp117113 + (let ((__tmp117114 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117132 '())))) + (cons __tmp117114 '())))) (declare (not safe)) (make-class-type 'gxc#!type::t '!type - __tmp117133 + __tmp117115 '(id) - __tmp117131 + __tmp117113 '#f))) (define gxc#!type? (let () (declare (not safe)) (make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _$args116929_ (apply make-instance gxc#!type::t _$args116929_))) + (lambda _$args116911_ (apply make-instance gxc#!type::t _$args116911_))) (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 ((__tmp117136 (list gxc#!type::t)) - (__tmp117134 - (let ((__tmp117135 + (let ((__tmp117118 (list gxc#!type::t)) + (__tmp117116 + (let ((__tmp117117 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117135 '())))) + (cons __tmp117117 '())))) (declare (not safe)) (make-class-type 'gxc#!alias::t '!alias - __tmp117136 + __tmp117118 '() - __tmp117134 + __tmp117116 '#f))) (define gxc#!alias? (let () (declare (not safe)) (make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _$args116926_ (apply make-instance gxc#!alias::t _$args116926_))) + (lambda _$args116908_ (apply make-instance gxc#!alias::t _$args116908_))) (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 ((__tmp117139 (list gxc#!type::t)) - (__tmp117137 - (let ((__tmp117138 + (let ((__tmp117121 (list gxc#!type::t)) + (__tmp117119 + (let ((__tmp117120 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117138 '())))) + (cons __tmp117120 '())))) (declare (not safe)) (make-class-type 'gxc#!procedure::t '!procedure - __tmp117139 + __tmp117121 '() - __tmp117137 + __tmp117119 '#f))) (define gxc#!procedure? (let () (declare (not safe)) (make-class-predicate gxc#!procedure::t))) (define gxc#make-!procedure - (lambda _$args116923_ - (apply make-instance gxc#!procedure::t _$args116923_))) + (lambda _$args116905_ + (apply make-instance gxc#!procedure::t _$args116905_))) (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 ((__tmp117142 (list gxc#!type::t)) - (__tmp117140 - (let ((__tmp117141 + (let ((__tmp117124 (list gxc#!type::t)) + (__tmp117122 + (let ((__tmp117123 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117141 '())))) + (cons __tmp117123 '())))) (declare (not safe)) (make-class-type 'gxc#!class::t '!class - __tmp117142 + __tmp117124 '(super precedence-list slots fields @@ -264,12 +264,12 @@ system? metaclass methods) - __tmp117140 + __tmp117122 ':init!))) (define gxc#!class? (let () (declare (not safe)) (make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _$args116920_ (apply make-instance gxc#!class::t _$args116920_))) + (lambda _$args116902_ (apply make-instance gxc#!class::t _$args116902_))) (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 ((__tmp117145 (list gxc#!procedure::t)) - (__tmp117143 - (let ((__tmp117144 + (let ((__tmp117127 (list gxc#!procedure::t)) + (__tmp117125 + (let ((__tmp117126 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117144 '())))) + (cons __tmp117126 '())))) (declare (not safe)) (make-class-type 'gxc#!predicate::t '!predicate - __tmp117145 + __tmp117127 '() - __tmp117143 + __tmp117125 '#f))) (define gxc#!predicate? (let () (declare (not safe)) (make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _$args116917_ - (apply make-instance gxc#!predicate::t _$args116917_))) + (lambda _$args116899_ + (apply make-instance gxc#!predicate::t _$args116899_))) (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 ((__tmp117148 (list gxc#!procedure::t)) - (__tmp117146 - (let ((__tmp117147 + (let ((__tmp117130 (list gxc#!procedure::t)) + (__tmp117128 + (let ((__tmp117129 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117147 '())))) + (cons __tmp117129 '())))) (declare (not safe)) (make-class-type 'gxc#!constructor::t '!constructor - __tmp117148 + __tmp117130 '() - __tmp117146 + __tmp117128 '#f))) (define gxc#!constructor? (let () (declare (not safe)) (make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _$args116914_ - (apply make-instance gxc#!constructor::t _$args116914_))) + (lambda _$args116896_ + (apply make-instance gxc#!constructor::t _$args116896_))) (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 ((__tmp117151 (list gxc#!procedure::t)) - (__tmp117149 - (let ((__tmp117150 + (let ((__tmp117133 (list gxc#!procedure::t)) + (__tmp117131 + (let ((__tmp117132 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117150 '())))) + (cons __tmp117132 '())))) (declare (not safe)) (make-class-type 'gxc#!accessor::t '!accessor - __tmp117151 + __tmp117133 '(slot checked?) - __tmp117149 + __tmp117131 '#f))) (define gxc#!accessor? (let () (declare (not safe)) (make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _$args116911_ - (apply make-instance gxc#!accessor::t _$args116911_))) + (lambda _$args116893_ + (apply make-instance gxc#!accessor::t _$args116893_))) (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 ((__tmp117154 (list gxc#!procedure::t)) - (__tmp117152 - (let ((__tmp117153 + (let ((__tmp117136 (list gxc#!procedure::t)) + (__tmp117134 + (let ((__tmp117135 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117153 '())))) + (cons __tmp117135 '())))) (declare (not safe)) (make-class-type 'gxc#!mutator::t '!mutator - __tmp117154 + __tmp117136 '(slot checked?) - __tmp117152 + __tmp117134 '#f))) (define gxc#!mutator? (let () (declare (not safe)) (make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _$args116908_ - (apply make-instance gxc#!mutator::t _$args116908_))) + (lambda _$args116890_ + (apply make-instance gxc#!mutator::t _$args116890_))) (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 ((__tmp117157 (list gxc#!procedure::t)) - (__tmp117155 - (let ((__tmp117156 + (let ((__tmp117139 (list gxc#!procedure::t)) + (__tmp117137 + (let ((__tmp117138 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117156 '())))) + (cons __tmp117138 '())))) (declare (not safe)) (make-class-type 'gxc#!lambda::t '!lambda - __tmp117157 + __tmp117139 '(arity dispatch inline inline-typedecl) - __tmp117155 + __tmp117137 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _$args116905_ - (apply make-instance gxc#!lambda::t _$args116905_))) + (lambda _$args116887_ + (apply make-instance gxc#!lambda::t _$args116887_))) (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 ((__tmp117160 (list gxc#!procedure::t)) - (__tmp117158 - (let ((__tmp117159 + (let ((__tmp117142 (list gxc#!procedure::t)) + (__tmp117140 + (let ((__tmp117141 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117159 '())))) + (cons __tmp117141 '())))) (declare (not safe)) (make-class-type 'gxc#!case-lambda::t '!case-lambda - __tmp117160 + __tmp117142 '(clauses) - __tmp117158 + __tmp117140 '#f))) (define gxc#!case-lambda? (let () (declare (not safe)) (make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _$args116902_ - (apply make-instance gxc#!case-lambda::t _$args116902_))) + (lambda _$args116884_ + (apply make-instance gxc#!case-lambda::t _$args116884_))) (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 ((__tmp117163 (list gxc#!procedure::t)) - (__tmp117161 - (let ((__tmp117162 + (let ((__tmp117145 (list gxc#!procedure::t)) + (__tmp117143 + (let ((__tmp117144 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117162 '())))) + (cons __tmp117144 '())))) (declare (not safe)) (make-class-type 'gxc#!kw-lambda::t '!kw-lambda - __tmp117163 + __tmp117145 '(table dispatch) - __tmp117161 + __tmp117143 '#f))) (define gxc#!kw-lambda? (let () (declare (not safe)) (make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _$args116899_ - (apply make-instance gxc#!kw-lambda::t _$args116899_))) + (lambda _$args116881_ + (apply make-instance gxc#!kw-lambda::t _$args116881_))) (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 ((__tmp117166 (list gxc#!procedure::t)) - (__tmp117164 - (let ((__tmp117165 + (let ((__tmp117148 (list gxc#!procedure::t)) + (__tmp117146 + (let ((__tmp117147 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp117165 '())))) + (cons __tmp117147 '())))) (declare (not safe)) (make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - __tmp117166 + __tmp117148 '(keys main) - __tmp117164 + __tmp117146 '#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 _$args116896_ - (apply make-instance gxc#!kw-lambda-primary::t _$args116896_))) + (lambda _$args116878_ + (apply make-instance gxc#!kw-lambda-primary::t _$args116878_))) (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 ((__tmp117167 (list))) + (let ((__tmp117149 (list))) (declare (not safe)) (make-class-type 'gxc#!primitive::t '!primitive - __tmp117167 + __tmp117149 '() '() '#f))) (define gxc#!primitive? (let () (declare (not safe)) (make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _$args116893_ - (apply make-instance gxc#!primitive::t _$args116893_))) + (lambda _$args116875_ + (apply make-instance gxc#!primitive::t _$args116875_))) (define gxc#!primitive-lambda::t - (let ((__tmp117168 (list gxc#!primitive::t gxc#!lambda::t))) + (let ((__tmp117150 (list gxc#!primitive::t gxc#!lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp117168 + __tmp117150 '() '() ':init!))) @@ -974,8 +974,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _$args116890_ - (apply make-instance gxc#!primitive-lambda::t _$args116890_))) + (lambda _$args116872_ + (apply make-instance gxc#!primitive-lambda::t _$args116872_))) (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 ((__tmp117169 (list gxc#!primitive::t gxc#!case-lambda::t))) + (let ((__tmp117151 (list gxc#!primitive::t gxc#!case-lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp117169 + __tmp117151 '() '() ':init!))) @@ -1079,8 +1079,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-case-lambda::t))) (define gxc#make-!primitive-case-lambda - (lambda _$args116887_ - (apply make-instance gxc#!primitive-case-lambda::t _$args116887_))) + (lambda _$args116869_ + (apply make-instance gxc#!primitive-case-lambda::t _$args116869_))) (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 (_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_) + (lambda (_self116749_ + _id116750_ + _super116751_ + _slots116752_ + _ctor-method116753_ + _struct?116754_ + _final?116755_ + _system?116756_ + _metaclass116757_) + (let _lp116759_ ((_rest116761_ _super116751_)) + (let* ((_rest116762116770_ _rest116761_) + (_else116764116778_ (lambda () '#!void)) + (_K116766116784_ + (lambda (_rest116781_ _super-id116782_) (if (##structure-ref - (let ((__tmp117172 - (let ((__tmp117173 + (let ((__tmp117154 + (let ((__tmp117155 (let () (declare (not safe)) - (cons _id116768_ '())))) + (cons _id116750_ '())))) (declare (not safe)) - (cons '!class __tmp117173)))) + (cons '!class __tmp117155)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117172 - _super-id116800_)) + __tmp117154 + _super-id116782_)) '8 gxc#!class::t '#f) - (let ((__tmp117170 - (let ((__tmp117171 + (let ((__tmp117152 + (let ((__tmp117153 (let () (declare (not safe)) - (cons _id116768_ '())))) + (cons _id116750_ '())))) (declare (not safe)) - (cons '!class __tmp117171)))) + (cons '!class __tmp117153)))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp117170 - _super-id116800_)) + __tmp117152 + _super-id116782_)) '#!void) - (let () (declare (not safe)) (_lp116777_ _rest116799_))))) - (if (let () (declare (not safe)) (##pair? _rest116780116788_)) - (let ((_hd116785116805_ + (let () (declare (not safe)) (_lp116759_ _rest116781_))))) + (if (let () (declare (not safe)) (##pair? _rest116762116770_)) + (let ((_hd116767116787_ (let () (declare (not safe)) - (##car _rest116780116788_))) - (_tl116786116807_ + (##car _rest116762116770_))) + (_tl116768116789_ (let () (declare (not safe)) - (##cdr _rest116780116788_)))) - (let* ((_super-id116810_ _hd116785116805_) - (_rest116812_ _tl116786116807_)) + (##cdr _rest116762116770_)))) + (let* ((_super-id116792_ _hd116767116787_) + (_rest116794_ _tl116768116789_)) (declare (not safe)) - (_K116784116802_ _rest116812_ _super-id116810_))) + (_K116766116784_ _rest116794_ _super-id116792_))) '#!void))) - (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* ((_ctor-method116844_ + (let ((_$e116796_ _ctor-method116753_)) + (if _$e116796_ + _$e116796_ + (let _lp116799_ ((_rest116801_ _super116751_) + (_method116802_ '#f)) + (let* ((_rest116803116811_ _rest116801_) + (_else116805116819_ (lambda () _method116802_)) + (_K116807116832_ + (lambda (_rest116822_ _super-id116823_) + (let* ((_klass116825_ + (let ((__tmp117156 + (let ((__tmp117157 (let () (declare (not safe)) - (cons _id116768_ + (cons _id116750_ '())))) (declare (not safe)) (cons '!class - __tmp117175)))) + __tmp117157)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117174 - _super-id116841_))) - (_$e116845_ + __tmp117156 + _super-id116823_))) + (_$e116827_ (##structure-ref - _klass116843_ + _klass116825_ '6 gxc#!class::t '#f))) - (if _$e116845_ - ((lambda (_ctor-method116848_) - (if _method116820_ + (if _$e116827_ + ((lambda (_ctor-method116830_) + (if _method116802_ (if (let () (declare (not safe)) - (eq? _ctor-method116848_ - _method116820_)) + (eq? _ctor-method116830_ + _method116802_)) (let () (declare (not safe)) - (_lp116817_ - _rest116840_ - _ctor-method116848_)) - (let ((__tmp117176 - (let ((__tmp117177 + (_lp116799_ + _rest116822_ + _ctor-method116830_)) + (let ((__tmp117158 + (let ((__tmp117159 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id116768_ '())))) + (let () (declare (not safe)) (cons _id116750_ '())))) (declare (not safe)) - (cons '!class __tmp117177)))) + (cons '!class __tmp117159)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp117176 - _method116820_ - _ctor-method116848_))) + __tmp117158 + _method116802_ + _ctor-method116830_))) (let () (declare (not safe)) - (_lp116817_ - _rest116840_ - _ctor-method116848_)))) - _$e116845_) + (_lp116799_ + _rest116822_ + _ctor-method116830_)))) + _$e116827_) (let () (declare (not safe)) - (_lp116817_ - _rest116840_ - _method116820_))))))) + (_lp116799_ + _rest116822_ + _method116802_))))))) (if (let () (declare (not safe)) - (##pair? _rest116821116829_)) - (let ((_hd116826116853_ + (##pair? _rest116803116811_)) + (let ((_hd116808116835_ (let () (declare (not safe)) - (##car _rest116821116829_))) - (_tl116827116855_ + (##car _rest116803116811_))) + (_tl116809116837_ (let () (declare (not safe)) - (##cdr _rest116821116829_)))) - (let* ((_super-id116858_ _hd116826116853_) - (_rest116860_ _tl116827116855_)) + (##cdr _rest116803116811_)))) + (let* ((_super-id116840_ _hd116808116835_) + (_rest116842_ _tl116809116837_)) (declare (not safe)) - (_K116825116850_ - _rest116860_ - _super-id116858_))) + (_K116807116832_ + _rest116842_ + _super-id116840_))) (let () (declare (not safe)) - (_else116823116837_)))))))) - (_g117178_ - (let ((__tmp117183 - (lambda (_klass-id116864_) - (let ((__tmp117184 + (_else116805116819_)))))))) + (_g117160_ + (let ((__tmp117165 + (lambda (_klass-id116846_) + (let ((__tmp117166 (##structure-ref - (let ((__tmp117185 - (let ((__tmp117186 + (let ((__tmp117167 + (let ((__tmp117168 (let () (declare (not safe)) - (cons _id116768_ '())))) + (cons _id116750_ '())))) (declare (not safe)) - (cons '!class __tmp117186)))) + (cons '!class __tmp117168)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117185 - _klass-id116864_)) + __tmp117167 + _klass-id116846_)) '3 gxc#!class::t '#f))) (declare (not safe)) - (cons _klass-id116864_ __tmp117184)))) - (__tmp117180 - (lambda (_klass-id116866_) + (cons _klass-id116846_ __tmp117166)))) + (__tmp117162 + (lambda (_klass-id116848_) (##structure-ref - (let ((__tmp117181 - (let ((__tmp117182 + (let ((__tmp117163 + (let ((__tmp117164 (let () (declare (not safe)) - (cons _id116768_ '())))) + (cons _id116750_ '())))) (declare (not safe)) - (cons '!class __tmp117182)))) + (cons '!class __tmp117164)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117181 - _klass-id116866_)) + __tmp117163 + _klass-id116848_)) '7 gxc#!class::t '#f)))) (declare (not safe)) (c4-linearize '() - _super116769_ + _super116751_ 'get-precedence-list: - __tmp117183 + __tmp117165 'struct: - __tmp117180 + __tmp117162 'eq: eq? 'get-name: identity)))) (begin - (let ((_g117179_ + (let ((_g117161_ (let () (declare (not safe)) - (if (##values? _g117178_) - (##vector-length _g117178_) + (if (##values? _g117160_) + (##vector-length _g117160_) 1)))) - (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 + (if (not (let () (declare (not safe)) (##fx= _g117161_ 2))) + (error "Context expects 2 values" _g117161_))) + (let ((_precedence-list116850_ + (let () (declare (not safe)) (##vector-ref _g117160_ 0))) + (_base-struct116851_ + (let () (declare (not safe)) (##vector-ref _g117160_ 1)))) + (let ((_fields116853_ + (let ((__tmp117169 + (let ((__tmp117170 (let () (declare (not safe)) - (cons _id116768_ '())))) + (cons _id116750_ '())))) (declare (not safe)) - (cons '!class __tmp117188)))) + (cons '!class __tmp117170)))) (declare (not safe)) (gxc#compute-class-fields - __tmp117187 - _base-struct116869_ - _precedence-list116868_ - _slots116770_)))) - (##structure-set! _self116767_ _id116768_ '1 gxc#!type::t '#f) + __tmp117169 + _base-struct116851_ + _precedence-list116850_ + _slots116752_)))) + (##structure-set! _self116749_ _id116750_ '1 gxc#!type::t '#f) (##structure-set! - _self116767_ - _super116769_ + _self116749_ + _super116751_ '2 gxc#!class::t '#f) (##structure-set! - _self116767_ - _precedence-list116868_ + _self116749_ + _precedence-list116850_ '3 gxc#!class::t '#f) (##structure-set! - _self116767_ - _slots116770_ + _self116749_ + _slots116752_ '4 gxc#!class::t '#f) (##structure-set! - _self116767_ - _fields116871_ + _self116749_ + _fields116853_ '5 gxc#!class::t '#f) (##structure-set! - _self116767_ - _ctor-method116862_ + _self116749_ + _ctor-method116844_ '6 gxc#!class::t '#f) (##structure-set! - _self116767_ - _struct?116772_ + _self116749_ + _struct?116754_ '7 gxc#!class::t '#f) (##structure-set! - _self116767_ - _final?116773_ + _self116749_ + _final?116755_ '8 gxc#!class::t '#f) (##structure-set! - _self116767_ - _metaclass116775_ + _self116749_ + _metaclass116757_ '10 gxc#!class::t '#f))))))) (define gxc#!class:::init!__1 - (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) + (lambda (_self116856_ + _id116857_ + _super116858_ + _precedence-list116859_ + _slots116860_ + _fields116861_ + _constructor116862_ + _struct?116863_ + _final?116864_ + _system?116865_ + _metaclass116866_ + _methods116867_) + (##structure-set! _self116856_ _id116857_ '1 gxc#!type::t '#f) + (##structure-set! _self116856_ _super116858_ '2 gxc#!class::t '#f) (##structure-set! - _self116874_ - _precedence-list116877_ + _self116856_ + _precedence-list116859_ '3 gxc#!class::t '#f) - (##structure-set! _self116874_ _slots116878_ '4 gxc#!class::t '#f) - (##structure-set! _self116874_ _fields116879_ '5 gxc#!class::t '#f) + (##structure-set! _self116856_ _slots116860_ '4 gxc#!class::t '#f) + (##structure-set! _self116856_ _fields116861_ '5 gxc#!class::t '#f) (##structure-set! - _self116874_ - _constructor116880_ + _self116856_ + _constructor116862_ '6 gxc#!class::t '#f) - (##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! _self116856_ _struct?116863_ '7 gxc#!class::t '#f) + (##structure-set! _self116856_ _final?116864_ '8 gxc#!class::t '#f) + (##structure-set! _self116856_ _metaclass116866_ '10 gxc#!class::t '#f) + (if _methods116867_ (##structure-set! - _self116874_ + _self116856_ (let () (declare (not safe)) - (list->hash-table-eq _methods116885_)) + (list->hash-table-eq _methods116867_)) '11 gxc#!class::t '#f) '#!void))) (define gxc#!class:::init! - (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_) + (lambda _g117172_ + (let ((_g117171_ (let () (declare (not safe)) (##length _g117172_)))) + (cond ((let () (declare (not safe)) (##fx= _g117171_ 9)) + (apply (lambda (_self116749_ + _id116750_ + _super116751_ + _slots116752_ + _ctor-method116753_ + _struct?116754_ + _final?116755_ + _system?116756_ + _metaclass116757_) (let () (declare (not safe)) (gxc#!class:::init!__0 - _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_) + _self116749_ + _id116750_ + _super116751_ + _slots116752_ + _ctor-method116753_ + _struct?116754_ + _final?116755_ + _system?116756_ + _metaclass116757_))) + _g117172_)) + ((let () (declare (not safe)) (##fx= _g117171_ 12)) + (apply (lambda (_self116856_ + _id116857_ + _super116858_ + _precedence-list116859_ + _slots116860_ + _fields116861_ + _constructor116862_ + _struct?116863_ + _final?116864_ + _system?116865_ + _metaclass116866_ + _methods116867_) (let () (declare (not safe)) (gxc#!class:::init!__1 - _self116874_ - _id116875_ - _super116876_ - _precedence-list116877_ - _slots116878_ - _fields116879_ - _constructor116880_ - _struct?116881_ - _final?116882_ - _system?116883_ - _metaclass116884_ - _methods116885_))) - _g117190_)) + _self116856_ + _id116857_ + _super116858_ + _precedence-list116859_ + _slots116860_ + _fields116861_ + _constructor116862_ + _struct?116863_ + _final?116864_ + _system?116865_ + _metaclass116866_ + _methods116867_))) + _g117172_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g117190_)))))) + _g117172_)))))) (define gxc#!class:::init!::specialize - (lambda (__klass117058 __method-table117059) - (let ((__id117060 - (let ((__slot117070 + (lambda (__klass117040 __method-table117041) + (let ((__metaclass117042 + (let ((__slot117052 (let () (declare (not safe)) - (class-slot-offset __klass117058 'id)))) - (if __slot117070 - __slot117070 + (class-slot-offset __klass117040 'metaclass)))) + (if __slot117052 + __slot117052 (let () (declare (not safe)) - (error '"Unknown slot" 'id))))) - (__super117061 - (let ((__slot117071 + (error '"Unknown slot" 'metaclass))))) + (__methods117043 + (let ((__slot117053 (let () (declare (not safe)) - (class-slot-offset __klass117058 'super)))) - (if __slot117071 - __slot117071 + (class-slot-offset __klass117040 'methods)))) + (if __slot117053 + __slot117053 (let () (declare (not safe)) - (error '"Unknown slot" 'super))))) - (__constructor117062 - (let ((__slot117072 + (error '"Unknown slot" 'methods))))) + (__id117044 + (let ((__slot117054 (let () (declare (not safe)) - (class-slot-offset __klass117058 'constructor)))) - (if __slot117072 - __slot117072 + (class-slot-offset __klass117040 'id)))) + (if __slot117054 + __slot117054 (let () (declare (not safe)) - (error '"Unknown slot" 'constructor))))) - (__fields117063 - (let ((__slot117073 + (error '"Unknown slot" 'id))))) + (__super117045 + (let ((__slot117055 (let () (declare (not safe)) - (class-slot-offset __klass117058 'fields)))) - (if __slot117073 - __slot117073 + (class-slot-offset __klass117040 'super)))) + (if __slot117055 + __slot117055 (let () (declare (not safe)) - (error '"Unknown slot" 'fields))))) - (__final?117064 - (let ((__slot117074 + (error '"Unknown slot" 'super))))) + (__constructor117046 + (let ((__slot117056 (let () (declare (not safe)) - (class-slot-offset __klass117058 'final?)))) - (if __slot117074 - __slot117074 + (class-slot-offset __klass117040 'constructor)))) + (if __slot117056 + __slot117056 (let () (declare (not safe)) - (error '"Unknown slot" 'final?))))) - (__slots117065 - (let ((__slot117075 + (error '"Unknown slot" 'constructor))))) + (__final?117047 + (let ((__slot117057 (let () (declare (not safe)) - (class-slot-offset __klass117058 'slots)))) - (if __slot117075 - __slot117075 + (class-slot-offset __klass117040 'final?)))) + (if __slot117057 + __slot117057 (let () (declare (not safe)) - (error '"Unknown slot" 'slots))))) - (__precedence-list117066 - (let ((__slot117076 + (error '"Unknown slot" 'final?))))) + (__struct?117048 + (let ((__slot117058 (let () (declare (not safe)) - (class-slot-offset __klass117058 'precedence-list)))) - (if __slot117076 - __slot117076 + (class-slot-offset __klass117040 'struct?)))) + (if __slot117058 + __slot117058 (let () (declare (not safe)) - (error '"Unknown slot" 'precedence-list))))) - (__struct?117067 - (let ((__slot117077 + (error '"Unknown slot" 'struct?))))) + (__slots117049 + (let ((__slot117059 (let () (declare (not safe)) - (class-slot-offset __klass117058 'struct?)))) - (if __slot117077 - __slot117077 + (class-slot-offset __klass117040 'slots)))) + (if __slot117059 + __slot117059 (let () (declare (not safe)) - (error '"Unknown slot" 'struct?))))) - (__metaclass117068 - (let ((__slot117078 + (error '"Unknown slot" 'slots))))) + (__precedence-list117050 + (let ((__slot117060 (let () (declare (not safe)) - (class-slot-offset __klass117058 'metaclass)))) - (if __slot117078 - __slot117078 + (class-slot-offset __klass117040 'precedence-list)))) + (if __slot117060 + __slot117060 (let () (declare (not safe)) - (error '"Unknown slot" 'metaclass))))) - (__methods117069 - (let ((__slot117079 + (error '"Unknown slot" 'precedence-list))))) + (__fields117051 + (let ((__slot117061 (let () (declare (not safe)) - (class-slot-offset __klass117058 'methods)))) - (if __slot117079 - __slot117079 + (class-slot-offset __klass117040 'fields)))) + (if __slot117061 + __slot117061 (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_) + (error '"Unknown slot" 'fields)))))) + (lambda _g117174_ + (let ((_g117173_ + (let () (declare (not safe)) (##length _g117174_)))) + (cond ((let () (declare (not safe)) (##fx= _g117173_ 9)) + (apply (lambda (_self116749_ + _id116750_ + _super116751_ + _slots116752_ + _ctor-method116753_ + _struct?116754_ + _final?116755_ + _system?116756_ + _metaclass116757_) + (let _lp116759_ ((_rest116761_ _super116751_)) + (let* ((_rest116762116770_ _rest116761_) + (_else116764116778_ (lambda () '#!void)) + (_K116766116784_ + (lambda (_rest116781_ _super-id116782_) (if (##structure-ref - (let ((__tmp117195 - (let ((__tmp117196 + (let ((__tmp117177 + (let ((__tmp117178 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id116768_ '())))) + (cons _id116750_ '())))) (declare (not safe)) - (cons '!class __tmp117196)))) + (cons '!class __tmp117178)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117195 - _super-id116800_)) + __tmp117177 + _super-id116782_)) '8 gxc#!class::t '#f) - (let ((__tmp117193 - (let ((__tmp117194 + (let ((__tmp117175 + (let ((__tmp117176 (let () (declare (not safe)) - (cons _id116768_ + (cons _id116750_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '!class __tmp117194)))) + (cons '!class __tmp117176)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp117193 - _super-id116800_)) + __tmp117175 + _super-id116782_)) '#!void) (let () (declare (not safe)) - (_lp116777_ _rest116799_))))) + (_lp116759_ _rest116781_))))) (if (let () (declare (not safe)) - (##pair? _rest116780116788_)) - (let ((_hd116785116805_ + (##pair? _rest116762116770_)) + (let ((_hd116767116787_ (let () (declare (not safe)) - (##car _rest116780116788_))) - (_tl116786116807_ + (##car _rest116762116770_))) + (_tl116768116789_ (let () (declare (not safe)) - (##cdr _rest116780116788_)))) - (let* ((_super-id116810_ - _hd116785116805_) - (_rest116812_ _tl116786116807_)) + (##cdr _rest116762116770_)))) + (let* ((_super-id116792_ + _hd116767116787_) + (_rest116794_ _tl116768116789_)) (declare (not safe)) - (_K116784116802_ - _rest116812_ - _super-id116810_))) + (_K116766116784_ + _rest116794_ + _super-id116792_))) '#!void))) - (let* ((_ctor-method116862_ - (let ((_$e116814_ _ctor-method116771_)) - (if _$e116814_ - _$e116814_ - (let _lp116817_ ((_rest116819_ - _super116769_) - (_method116820_ + (let* ((_ctor-method116844_ + (let ((_$e116796_ _ctor-method116753_)) + (if _$e116796_ + _$e116796_ + (let _lp116799_ ((_rest116801_ + _super116751_) + (_method116802_ '#f)) - (let* ((_rest116821116829_ - _rest116819_) - (_else116823116837_ + (let* ((_rest116803116811_ + _rest116801_) + (_else116805116819_ (lambda () - _method116820_)) - (_K116825116850_ - (lambda (_rest116840_ - _super-id116841_) - (let* ((_klass116843_ - (let ((__tmp117197 + _method116802_)) + (_K116807116832_ + (lambda (_rest116822_ + _super-id116823_) + (let* ((_klass116825_ + (let ((__tmp117179 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp117198 + (let ((__tmp117180 (let () (declare (not safe)) - (cons _id116768_ '())))) + (cons _id116750_ '())))) (declare (not safe)) - (cons '!class __tmp117198)))) + (cons '!class __tmp117180)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117197 - _super-id116841_))) - (_$e116845_ - (##structure-ref _klass116843_ '6 gxc#!class::t '#f))) - (if _$e116845_ - ((lambda (_ctor-method116848_) - (if _method116820_ + __tmp117179 + _super-id116823_))) + (_$e116827_ + (##structure-ref _klass116825_ '6 gxc#!class::t '#f))) + (if _$e116827_ + ((lambda (_ctor-method116830_) + (if _method116802_ (if (let () (declare (not safe)) - (eq? _ctor-method116848_ _method116820_)) + (eq? _ctor-method116830_ _method116802_)) (let () (declare (not safe)) - (_lp116817_ - _rest116840_ - _ctor-method116848_)) - (let ((__tmp117199 - (let ((__tmp117200 + (_lp116799_ + _rest116822_ + _ctor-method116830_)) + (let ((__tmp117181 + (let ((__tmp117182 (let () (declare (not safe)) - (cons _id116768_ '())))) + (cons _id116750_ '())))) (declare (not safe)) - (cons '!class __tmp117200)))) + (cons '!class __tmp117182)))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp117199 - _method116820_ - _ctor-method116848_))) + __tmp117181 + _method116802_ + _ctor-method116830_))) (let () (declare (not safe)) - (_lp116817_ _rest116840_ _ctor-method116848_)))) - _$e116845_) + (_lp116799_ _rest116822_ _ctor-method116830_)))) + _$e116827_) (let () (declare (not safe)) - (_lp116817_ _rest116840_ _method116820_))))))) + (_lp116799_ _rest116822_ _method116802_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest116821116829_)) - (let ((_hd116826116853_ + (##pair? _rest116803116811_)) + (let ((_hd116808116835_ (let () (declare (not safe)) - (##car _rest116821116829_))) - (_tl116827116855_ + (##car _rest116803116811_))) + (_tl116809116837_ (let () (declare (not safe)) - (##cdr _rest116821116829_)))) - (let* ((_super-id116858_ - _hd116826116853_) - (_rest116860_ - _tl116827116855_)) + (##cdr _rest116803116811_)))) + (let* ((_super-id116840_ + _hd116808116835_) + (_rest116842_ + _tl116809116837_)) (declare (not safe)) - (_K116825116850_ - _rest116860_ - _super-id116858_))) + (_K116807116832_ + _rest116842_ + _super-id116840_))) (let () (declare (not safe)) - (_else116823116837_)))))))) - (_g117201_ - (let ((__tmp117206 - (lambda (_klass-id116864_) - (let ((__tmp117207 + (_else116805116819_)))))))) + (_g117183_ + (let ((__tmp117188 + (lambda (_klass-id116846_) + (let ((__tmp117189 (##structure-ref - (let ((__tmp117208 - (let ((__tmp117209 + (let ((__tmp117190 + (let ((__tmp117191 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id116768_ '())))) + (cons _id116750_ '())))) (declare (not safe)) - (cons '!class __tmp117209)))) + (cons '!class __tmp117191)))) (declare (not safe)) - (gxc#optimizer-resolve-class __tmp117208 _klass-id116864_)) + (gxc#optimizer-resolve-class __tmp117190 _klass-id116846_)) '3 gxc#!class::t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _klass-id116864_ - __tmp117207)))) - (__tmp117203 - (lambda (_klass-id116866_) + (cons _klass-id116846_ + __tmp117189)))) + (__tmp117185 + (lambda (_klass-id116848_) (##structure-ref - (let ((__tmp117204 - (let ((__tmp117205 + (let ((__tmp117186 + (let ((__tmp117187 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id116768_ '())))) + (cons _id116750_ '())))) (declare (not safe)) - (cons '!class __tmp117205)))) + (cons '!class __tmp117187)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117204 - _klass-id116866_)) + __tmp117186 + _klass-id116848_)) '7 gxc#!class::t '#f)))) (declare (not safe)) (c4-linearize '() - _super116769_ + _super116751_ 'get-precedence-list: - __tmp117206 + __tmp117188 'struct: - __tmp117203 + __tmp117185 'eq: eq? 'get-name: identity)))) (begin - (let ((_g117202_ + (let ((_g117184_ (let () (declare (not safe)) - (if (##values? _g117201_) - (##vector-length _g117201_) + (if (##values? _g117183_) + (##vector-length _g117183_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g117202_ 2))) + (##fx= _g117184_ 2))) (error "Context expects 2 values" - _g117202_))) - (let ((_precedence-list116868_ + _g117184_))) + (let ((_precedence-list116850_ (let () (declare (not safe)) - (##vector-ref _g117201_ 0))) - (_base-struct116869_ + (##vector-ref _g117183_ 0))) + (_base-struct116851_ (let () (declare (not safe)) - (##vector-ref _g117201_ 1)))) - (let ((_fields116871_ - (let ((__tmp117210 - (let ((__tmp117211 + (##vector-ref _g117183_ 1)))) + (let ((_fields116853_ + (let ((__tmp117192 + (let ((__tmp117193 (let () (declare (not safe)) - (cons _id116768_ + (cons _id116750_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '!class - __tmp117211)))) + __tmp117193)))) (declare (not safe)) (gxc#compute-class-fields - __tmp117210 - _base-struct116869_ - _precedence-list116868_ - _slots116770_)))) + __tmp117192 + _base-struct116851_ + _precedence-list116850_ + _slots116752_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _self116767_ - _id116768_ - __id117060 - __klass117058 + _self116749_ + _id116750_ + __id117044 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116767_ - _super116769_ - __super117061 - __klass117058 + _self116749_ + _super116751_ + __super117045 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116767_ - _precedence-list116868_ - __precedence-list117066 - __klass117058 + _self116749_ + _precedence-list116850_ + __precedence-list117050 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116767_ - _slots116770_ - __slots117065 - __klass117058 + _self116749_ + _slots116752_ + __slots117049 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116767_ - _fields116871_ - __fields117063 - __klass117058 + _self116749_ + _fields116853_ + __fields117051 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116767_ - _ctor-method116862_ - __constructor117062 - __klass117058 + _self116749_ + _ctor-method116844_ + __constructor117046 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116767_ - _struct?116772_ - __struct?117067 - __klass117058 + _self116749_ + _struct?116754_ + __struct?117048 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116767_ - _final?116773_ - __final?117064 - __klass117058 + _self116749_ + _final?116755_ + __final?117047 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116767_ - _metaclass116775_ - __metaclass117068 - __klass117058 + _self116749_ + _metaclass116757_ + __metaclass117042 + __klass117040 '#f))))))) - _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_) + _g117174_)) + ((let () (declare (not safe)) (##fx= _g117173_ 12)) + (apply (lambda (_self116856_ + _id116857_ + _super116858_ + _precedence-list116859_ + _slots116860_ + _fields116861_ + _constructor116862_ + _struct?116863_ + _final?116864_ + _system?116865_ + _metaclass116866_ + _methods116867_) (let () (declare (not safe)) (##unchecked-structure-set! - _self116874_ - _id116875_ - __id117060 - __klass117058 + _self116856_ + _id116857_ + __id117044 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116874_ - _super116876_ - __super117061 - __klass117058 + _self116856_ + _super116858_ + __super117045 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116874_ - _precedence-list116877_ - __precedence-list117066 - __klass117058 + _self116856_ + _precedence-list116859_ + __precedence-list117050 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116874_ - _slots116878_ - __slots117065 - __klass117058 + _self116856_ + _slots116860_ + __slots117049 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116874_ - _fields116879_ - __fields117063 - __klass117058 + _self116856_ + _fields116861_ + __fields117051 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116874_ - _constructor116880_ - __constructor117062 - __klass117058 + _self116856_ + _constructor116862_ + __constructor117046 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116874_ - _struct?116881_ - __struct?117067 - __klass117058 + _self116856_ + _struct?116863_ + __struct?117048 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116874_ - _final?116882_ - __final?117064 - __klass117058 + _self116856_ + _final?116864_ + __final?117047 + __klass117040 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116874_ - _metaclass116884_ - __metaclass117068 - __klass117058 + _self116856_ + _metaclass116866_ + __metaclass117042 + __klass117040 '#f)) - (if _methods116885_ - (let ((__tmp117212 + (if _methods116867_ + (let ((__tmp117194 (let () (declare (not safe)) (list->hash-table-eq - _methods116885_)))) + _methods116867_)))) (declare (not safe)) (##unchecked-structure-set! - _self116874_ - __tmp117212 - __methods117069 - __klass117058 + _self116856_ + __tmp117194 + __methods117043 + __klass117040 '#f)) '#!void)) - _g117192_)) + _g117174_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g117192_)))))))) + _g117174_)))))))) (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 (_where116619_ - _base-struct116620_ - _precedence-list116621_ - _direct-slots116622_) - (let* ((_base-fields116624_ - (if _base-struct116620_ + (lambda (_where116601_ + _base-struct116602_ + _precedence-list116603_ + _direct-slots116604_) + (let* ((_base-fields116606_ + (if _base-struct116602_ (##structure-ref (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where116619_ - _base-struct116620_)) + _where116601_ + _base-struct116602_)) '5 gxc#!class::t '#f) '())) - (_r-fields116626_ (reverse _base-fields116624_)) - (_seen-slots116634_ - (let ((_tab116628_ + (_r-fields116608_ (reverse _base-fields116606_)) + (_seen-slots116616_ + (let ((_tab116610_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_g116629116631_) + (lambda (_g116611116613_) (let () (declare (not safe)) - (hash-put! _tab116628_ _g116629116631_ '#t))) - _base-fields116624_) - _tab116628_)) - (_process-slot116638_ - (lambda (_slot116636_) + (hash-put! _tab116610_ _g116611116613_ '#t))) + _base-fields116606_) + _tab116610_)) + (_process-slot116620_ + (lambda (_slot116618_) (if (let () (declare (not safe)) - (hash-get _seen-slots116634_ _slot116636_)) + (hash-get _seen-slots116616_ _slot116618_)) '#!void (begin (let () (declare (not safe)) - (hash-put! _seen-slots116634_ _slot116636_ '#t)) - (set! _r-fields116626_ + (hash-put! _seen-slots116616_ _slot116618_ '#t)) + (set! _r-fields116608_ (let () (declare (not safe)) - (cons _slot116636_ _r-fields116626_)))))))) + (cons _slot116618_ _r-fields116608_)))))))) (for-each - (lambda (_mixin116641_) - (let ((_klass116643_ + (lambda (_mixin116623_) + (let ((_klass116625_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where116619_ - _mixin116641_)))) - (if (##structure-ref _klass116643_ '7 gxc#!class::t '#f) + _where116601_ + _mixin116623_)))) + (if (##structure-ref _klass116625_ '7 gxc#!class::t '#f) '#!void (for-each - _process-slot116638_ - (##structure-ref _klass116643_ '5 gxc#!class::t '#f))))) - _precedence-list116621_) - (for-each _process-slot116638_ _direct-slots116622_) - (reverse _r-fields116626_)))) + _process-slot116620_ + (##structure-ref _klass116625_ '5 gxc#!class::t '#f))))) + _precedence-list116603_) + (for-each _process-slot116620_ _direct-slots116604_) + (reverse _r-fields116608_)))) (define gxc#!class-slot->field-offset - (lambda (_klass116578_ _slot116579_) - (let _lp116581_ ((_rest116583_ - (##structure-ref _klass116578_ '5 gxc#!class::t '#f)) - (_offset116584_ '1)) - (let* ((_rest116585116593_ _rest116583_) - (_else116587116601_ + (lambda (_klass116560_ _slot116561_) + (let _lp116563_ ((_rest116565_ + (##structure-ref _klass116560_ '5 gxc#!class::t '#f)) + (_offset116566_ '1)) + (let* ((_rest116567116575_ _rest116565_) + (_else116569116583_ (lambda () - (let ((__tmp117214 - (##structure-ref _klass116578_ '1 gxc#!type::t '#f)) - (__tmp117213 + (let ((__tmp117196 + (##structure-ref _klass116560_ '1 gxc#!type::t '#f)) + (__tmp117195 (##structure-ref - _klass116578_ + _klass116560_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp117214 - __tmp117213 - _slot116579_)))) - (_K116589116607_ - (lambda (_rest116604_ _s116605_) + __tmp117196 + __tmp117195 + _slot116561_)))) + (_K116571116589_ + (lambda (_rest116586_ _s116587_) (if (let () (declare (not safe)) - (eq? _s116605_ _slot116579_)) - _offset116584_ - (let ((__tmp117215 + (eq? _s116587_ _slot116561_)) + _offset116566_ + (let ((__tmp117197 (let () (declare (not safe)) - (fx+ _offset116584_ '1)))) + (fx+ _offset116566_ '1)))) (declare (not safe)) - (_lp116581_ _rest116604_ __tmp117215)))))) - (if (let () (declare (not safe)) (##pair? _rest116585116593_)) - (let ((_hd116590116610_ + (_lp116563_ _rest116586_ __tmp117197)))))) + (if (let () (declare (not safe)) (##pair? _rest116567116575_)) + (let ((_hd116572116592_ (let () (declare (not safe)) - (##car _rest116585116593_))) - (_tl116591116612_ + (##car _rest116567116575_))) + (_tl116573116594_ (let () (declare (not safe)) - (##cdr _rest116585116593_)))) - (let* ((_s116615_ _hd116590116610_) - (_rest116617_ _tl116591116612_)) + (##cdr _rest116567116575_)))) + (let* ((_s116597_ _hd116572116592_) + (_rest116599_ _tl116573116594_)) (declare (not safe)) - (_K116589116607_ _rest116617_ _s116615_))) - (let () (declare (not safe)) (_else116587116601_))))))) + (_K116571116589_ _rest116599_ _s116597_))) + (let () (declare (not safe)) (_else116569116583_))))))) (define gxc#!class-slot-find-struct - (lambda (_klass116536_ _slot116537_) + (lambda (_klass116518_ _slot116519_) (if (let () (declare (not safe)) - (gxc#!class-struct-slot? _klass116536_ _slot116537_)) - _klass116536_ - (let _lp116539_ ((_rest116541_ + (gxc#!class-struct-slot? _klass116518_ _slot116519_)) + _klass116518_ + (let _lp116521_ ((_rest116523_ (##structure-ref - _klass116536_ + _klass116518_ '3 gxc#!class::t '#f))) - (let* ((_rest116542116550_ _rest116541_) - (_else116544116558_ (lambda () '#f)) - (_K116546116566_ - (lambda (_rest116561_ _super116562_) - (let ((_super-class116564_ - (let ((__tmp117216 - (let ((__tmp117217 - (let ((__tmp117219 + (let* ((_rest116524116532_ _rest116523_) + (_else116526116540_ (lambda () '#f)) + (_K116528116548_ + (lambda (_rest116543_ _super116544_) + (let ((_super-class116546_ + (let ((__tmp117198 + (let ((__tmp117199 + (let ((__tmp117201 (##structure-ref - _klass116536_ + _klass116518_ '1 gxc#!type::t '#f)) - (__tmp117218 + (__tmp117200 (let () (declare (not safe)) - (cons _slot116537_ + (cons _slot116519_ '())))) (declare (not safe)) - (cons __tmp117219 - __tmp117218)))) + (cons __tmp117201 + __tmp117200)))) (declare (not safe)) (cons '!class-slot-find-struct - __tmp117217)))) + __tmp117199)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp117216 - _super116562_)))) + __tmp117198 + _super116544_)))) (if (let () (declare (not safe)) (gxc#!class-struct-slot? - _super-class116564_ - _slot116537_)) - _super-class116564_ + _super-class116546_ + _slot116519_)) + _super-class116546_ (let () (declare (not safe)) - (_lp116539_ _rest116561_))))))) - (if (let () (declare (not safe)) (##pair? _rest116542116550_)) - (let ((_hd116547116569_ + (_lp116521_ _rest116543_))))))) + (if (let () (declare (not safe)) (##pair? _rest116524116532_)) + (let ((_hd116529116551_ (let () (declare (not safe)) - (##car _rest116542116550_))) - (_tl116548116571_ + (##car _rest116524116532_))) + (_tl116530116553_ (let () (declare (not safe)) - (##cdr _rest116542116550_)))) - (let* ((_super116574_ _hd116547116569_) - (_rest116576_ _tl116548116571_)) + (##cdr _rest116524116532_)))) + (let* ((_super116556_ _hd116529116551_) + (_rest116558_ _tl116530116553_)) (declare (not safe)) - (_K116546116566_ _rest116576_ _super116574_))) - (let () (declare (not safe)) (_else116544116558_)))))))) + (_K116528116548_ _rest116558_ _super116556_))) + (let () (declare (not safe)) (_else116526116540_)))))))) (define gxc#!class-struct-slot? - (lambda (_klass116533_ _slot116534_) - (if (##structure-ref _klass116533_ '7 gxc#!class::t '#f) - (memq _slot116534_ - (##structure-ref _klass116533_ '5 gxc#!class::t '#f)) + (lambda (_klass116515_ _slot116516_) + (if (##structure-ref _klass116515_ '7 gxc#!class::t '#f) + (memq _slot116516_ + (##structure-ref _klass116515_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_self116530_ _id116531_) - (##structure-set! _self116530_ _id116531_ '1 gxc#!type::t '#f))) + (lambda (_self116512_ _id116513_) + (##structure-set! _self116512_ _id116513_ '1 gxc#!type::t '#f))) (define gxc#!predicate:::init!::specialize - (lambda (__klass117080 __method-table117081) - (let ((__id117082 - (let ((__slot117083 + (lambda (__klass117062 __method-table117063) + (let ((__id117064 + (let ((__slot117065 (let () (declare (not safe)) - (class-slot-offset __klass117080 'id)))) - (if __slot117083 - __slot117083 + (class-slot-offset __klass117062 'id)))) + (if __slot117065 + __slot117065 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self116530_ _id116531_) + (lambda (_self116512_ _id116513_) (let () (declare (not safe)) (##unchecked-structure-set! - _self116530_ - _id116531_ - __id117082 - __klass117080 + _self116512_ + _id116513_ + __id117064 + __klass117062 '#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 (_self116405_ _id116406_) - (##structure-set! _self116405_ _id116406_ '1 gxc#!type::t '#f))) + (lambda (_self116387_ _id116388_) + (##structure-set! _self116387_ _id116388_ '1 gxc#!type::t '#f))) (define gxc#!constructor:::init!::specialize - (lambda (__klass117084 __method-table117085) - (let ((__id117086 - (let ((__slot117087 + (lambda (__klass117066 __method-table117067) + (let ((__id117068 + (let ((__slot117069 (let () (declare (not safe)) - (class-slot-offset __klass117084 'id)))) - (if __slot117087 - __slot117087 + (class-slot-offset __klass117066 'id)))) + (if __slot117069 + __slot117069 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self116405_ _id116406_) + (lambda (_self116387_ _id116388_) (let () (declare (not safe)) (##unchecked-structure-set! - _self116405_ - _id116406_ - __id117086 - __klass117084 + _self116387_ + _id116388_ + __id117068 + __klass117066 '#f)))))) (let () (declare (not safe)) @@ -2273,71 +2273,71 @@ gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_self116278_ _id116279_ _slot116280_ _checked?116281_) - (##structure-set! _self116278_ _id116279_ '1 gxc#!type::t '#f) - (##structure-set! _self116278_ _slot116280_ '2 gxc#!accessor::t '#f) + (lambda (_self116260_ _id116261_ _slot116262_ _checked?116263_) + (##structure-set! _self116260_ _id116261_ '1 gxc#!type::t '#f) + (##structure-set! _self116260_ _slot116262_ '2 gxc#!accessor::t '#f) (##structure-set! - _self116278_ - _checked?116281_ + _self116260_ + _checked?116263_ '3 gxc#!accessor::t '#f))) (define gxc#!accessor:::init!::specialize - (lambda (__klass117088 __method-table117089) - (let ((__slot117090 - (let ((__slot117093 + (lambda (__klass117070 __method-table117071) + (let ((__id117072 + (let ((__slot117075 (let () (declare (not safe)) - (class-slot-offset __klass117088 'slot)))) - (if __slot117093 - __slot117093 + (class-slot-offset __klass117070 'id)))) + (if __slot117075 + __slot117075 (let () (declare (not safe)) - (error '"Unknown slot" 'slot))))) - (__id117091 - (let ((__slot117094 + (error '"Unknown slot" 'id))))) + (__checked?117073 + (let ((__slot117076 (let () (declare (not safe)) - (class-slot-offset __klass117088 'id)))) - (if __slot117094 - __slot117094 + (class-slot-offset __klass117070 'checked?)))) + (if __slot117076 + __slot117076 (let () (declare (not safe)) - (error '"Unknown slot" 'id))))) - (__checked?117092 - (let ((__slot117095 + (error '"Unknown slot" 'checked?))))) + (__slot117074 + (let ((__slot117077 (let () (declare (not safe)) - (class-slot-offset __klass117088 'checked?)))) - (if __slot117095 - __slot117095 + (class-slot-offset __klass117070 'slot)))) + (if __slot117077 + __slot117077 (let () (declare (not safe)) - (error '"Unknown slot" 'checked?)))))) - (lambda (_self116278_ _id116279_ _slot116280_ _checked?116281_) + (error '"Unknown slot" 'slot)))))) + (lambda (_self116260_ _id116261_ _slot116262_ _checked?116263_) (let () (declare (not safe)) (##unchecked-structure-set! - _self116278_ - _id116279_ - __id117091 - __klass117088 + _self116260_ + _id116261_ + __id117072 + __klass117070 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116278_ - _slot116280_ - __slot117090 - __klass117088 + _self116260_ + _slot116262_ + __slot117074 + __klass117070 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116278_ - _checked?116281_ - __checked?117092 - __klass117088 + _self116260_ + _checked?116263_ + __checked?117073 + __klass117070 '#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 (_self116151_ _id116152_ _slot116153_ _checked?116154_) - (##structure-set! _self116151_ _id116152_ '1 gxc#!type::t '#f) - (##structure-set! _self116151_ _slot116153_ '2 gxc#!mutator::t '#f) + (lambda (_self116133_ _id116134_ _slot116135_ _checked?116136_) + (##structure-set! _self116133_ _id116134_ '1 gxc#!type::t '#f) + (##structure-set! _self116133_ _slot116135_ '2 gxc#!mutator::t '#f) (##structure-set! - _self116151_ - _checked?116154_ + _self116133_ + _checked?116136_ '3 gxc#!mutator::t '#f))) (define gxc#!mutator:::init!::specialize - (lambda (__klass117096 __method-table117097) - (let ((__slot117098 - (let ((__slot117101 + (lambda (__klass117078 __method-table117079) + (let ((__id117080 + (let ((__slot117083 (let () (declare (not safe)) - (class-slot-offset __klass117096 'slot)))) - (if __slot117101 - __slot117101 + (class-slot-offset __klass117078 'id)))) + (if __slot117083 + __slot117083 (let () (declare (not safe)) - (error '"Unknown slot" 'slot))))) - (__id117099 - (let ((__slot117102 + (error '"Unknown slot" 'id))))) + (__checked?117081 + (let ((__slot117084 (let () (declare (not safe)) - (class-slot-offset __klass117096 'id)))) - (if __slot117102 - __slot117102 + (class-slot-offset __klass117078 'checked?)))) + (if __slot117084 + __slot117084 (let () (declare (not safe)) - (error '"Unknown slot" 'id))))) - (__checked?117100 - (let ((__slot117103 + (error '"Unknown slot" 'checked?))))) + (__slot117082 + (let ((__slot117085 (let () (declare (not safe)) - (class-slot-offset __klass117096 'checked?)))) - (if __slot117103 - __slot117103 + (class-slot-offset __klass117078 'slot)))) + (if __slot117085 + __slot117085 (let () (declare (not safe)) - (error '"Unknown slot" 'checked?)))))) - (lambda (_self116151_ _id116152_ _slot116153_ _checked?116154_) + (error '"Unknown slot" 'slot)))))) + (lambda (_self116133_ _id116134_ _slot116135_ _checked?116136_) (let () (declare (not safe)) (##unchecked-structure-set! - _self116151_ - _id116152_ - __id117099 - __klass117096 + _self116133_ + _id116134_ + __id117080 + __klass117078 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116151_ - _slot116153_ - __slot117098 - __klass117096 + _self116133_ + _slot116135_ + __slot117082 + __klass117078 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self116151_ - _checked?116154_ - __checked?117100 - __klass117096 + _self116133_ + _checked?116136_ + __checked?117081 + __klass117078 '#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 (_self115995_ - _id115996_ - _arity115997_ - _dispatch115998_ - _inline115999_ - _typedecl116000_) - (if (let ((__tmp117226 + (lambda (_self115977_ + _id115978_ + _arity115979_ + _dispatch115980_ + _inline115981_ + _typedecl115982_) + (if (let ((__tmp117208 (let () (declare (not safe)) - (##structure-length _self115995_)))) + (##structure-length _self115977_)))) (declare (not safe)) - (##fx< '5 __tmp117226)) + (##fx< '5 __tmp117208)) (begin - (let ((__tmp117221 + (let ((__tmp117203 (let () (declare (not safe)) - (##structure-type _self115995_)))) + (##structure-type _self115977_)))) (declare (not safe)) (##unchecked-structure-set! - _self115995_ - _id115996_ + _self115977_ + _id115978_ '1 - __tmp117221 + __tmp117203 '#f)) - (let ((__tmp117222 + (let ((__tmp117204 (let () (declare (not safe)) - (##structure-type _self115995_)))) + (##structure-type _self115977_)))) (declare (not safe)) (##unchecked-structure-set! - _self115995_ - _arity115997_ + _self115977_ + _arity115979_ '2 - __tmp117222 + __tmp117204 '#f)) - (let ((__tmp117223 + (let ((__tmp117205 (let () (declare (not safe)) - (##structure-type _self115995_)))) + (##structure-type _self115977_)))) (declare (not safe)) (##unchecked-structure-set! - _self115995_ - _dispatch115998_ + _self115977_ + _dispatch115980_ '3 - __tmp117223 + __tmp117205 '#f)) - (let ((__tmp117224 + (let ((__tmp117206 (let () (declare (not safe)) - (##structure-type _self115995_)))) + (##structure-type _self115977_)))) (declare (not safe)) (##unchecked-structure-set! - _self115995_ - _inline115999_ + _self115977_ + _inline115981_ '4 - __tmp117224 + __tmp117206 '#f)) - (let ((__tmp117225 + (let ((__tmp117207 (let () (declare (not safe)) - (##structure-type _self115995_)))) + (##structure-type _self115977_)))) (declare (not safe)) (##unchecked-structure-set! - _self115995_ - _typedecl116000_ + _self115977_ + _typedecl115982_ '5 - __tmp117225 + __tmp117207 '#f))) - (let ((__tmp117220 + (let ((__tmp117202 (let () (declare (not safe)) - (##vector-length _self115995_)))) + (##vector-length _self115977_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self115995_ + _self115977_ '5 - __tmp117220))))) + __tmp117202))))) (define gxc#!lambda:::init!__0 - (lambda (_self116005_ _id116006_ _arity116007_ _dispatch116008_) - (let* ((_inline116010_ '#f) (_typedecl116012_ '#f)) - (if (let ((__tmp117233 + (lambda (_self115987_ _id115988_ _arity115989_ _dispatch115990_) + (let* ((_inline115992_ '#f) (_typedecl115994_ '#f)) + (if (let ((__tmp117215 (let () (declare (not safe)) - (##structure-length _self116005_)))) + (##structure-length _self115987_)))) (declare (not safe)) - (##fx< '5 __tmp117233)) + (##fx< '5 __tmp117215)) (begin - (let ((__tmp117228 + (let ((__tmp117210 (let () (declare (not safe)) - (##structure-type _self116005_)))) + (##structure-type _self115987_)))) (declare (not safe)) (##unchecked-structure-set! - _self116005_ - _id116006_ + _self115987_ + _id115988_ '1 - __tmp117228 + __tmp117210 '#f)) - (let ((__tmp117229 + (let ((__tmp117211 (let () (declare (not safe)) - (##structure-type _self116005_)))) + (##structure-type _self115987_)))) (declare (not safe)) (##unchecked-structure-set! - _self116005_ - _arity116007_ + _self115987_ + _arity115989_ '2 - __tmp117229 + __tmp117211 '#f)) - (let ((__tmp117230 + (let ((__tmp117212 (let () (declare (not safe)) - (##structure-type _self116005_)))) + (##structure-type _self115987_)))) (declare (not safe)) (##unchecked-structure-set! - _self116005_ - _dispatch116008_ + _self115987_ + _dispatch115990_ '3 - __tmp117230 + __tmp117212 '#f)) - (let ((__tmp117231 + (let ((__tmp117213 (let () (declare (not safe)) - (##structure-type _self116005_)))) + (##structure-type _self115987_)))) (declare (not safe)) (##unchecked-structure-set! - _self116005_ - _inline116010_ + _self115987_ + _inline115992_ '4 - __tmp117231 + __tmp117213 '#f)) - (let ((__tmp117232 + (let ((__tmp117214 (let () (declare (not safe)) - (##structure-type _self116005_)))) + (##structure-type _self115987_)))) (declare (not safe)) (##unchecked-structure-set! - _self116005_ - _typedecl116012_ + _self115987_ + _typedecl115994_ '5 - __tmp117232 + __tmp117214 '#f))) - (let ((__tmp117227 + (let ((__tmp117209 (let () (declare (not safe)) - (##vector-length _self116005_)))) + (##vector-length _self115987_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self116005_ + _self115987_ '5 - __tmp117227)))))) + __tmp117209)))))) (define gxc#!lambda:::init!__1 - (lambda (_self116014_ - _id116015_ - _arity116016_ - _dispatch116017_ - _inline116018_) - (let ((_typedecl116020_ '#f)) - (if (let ((__tmp117240 + (lambda (_self115996_ + _id115997_ + _arity115998_ + _dispatch115999_ + _inline116000_) + (let ((_typedecl116002_ '#f)) + (if (let ((__tmp117222 (let () (declare (not safe)) - (##structure-length _self116014_)))) + (##structure-length _self115996_)))) (declare (not safe)) - (##fx< '5 __tmp117240)) + (##fx< '5 __tmp117222)) (begin - (let ((__tmp117235 + (let ((__tmp117217 (let () (declare (not safe)) - (##structure-type _self116014_)))) + (##structure-type _self115996_)))) (declare (not safe)) (##unchecked-structure-set! - _self116014_ - _id116015_ + _self115996_ + _id115997_ '1 - __tmp117235 + __tmp117217 '#f)) - (let ((__tmp117236 + (let ((__tmp117218 (let () (declare (not safe)) - (##structure-type _self116014_)))) + (##structure-type _self115996_)))) (declare (not safe)) (##unchecked-structure-set! - _self116014_ - _arity116016_ + _self115996_ + _arity115998_ '2 - __tmp117236 + __tmp117218 '#f)) - (let ((__tmp117237 + (let ((__tmp117219 (let () (declare (not safe)) - (##structure-type _self116014_)))) + (##structure-type _self115996_)))) (declare (not safe)) (##unchecked-structure-set! - _self116014_ - _dispatch116017_ + _self115996_ + _dispatch115999_ '3 - __tmp117237 + __tmp117219 '#f)) - (let ((__tmp117238 + (let ((__tmp117220 (let () (declare (not safe)) - (##structure-type _self116014_)))) + (##structure-type _self115996_)))) (declare (not safe)) (##unchecked-structure-set! - _self116014_ - _inline116018_ + _self115996_ + _inline116000_ '4 - __tmp117238 + __tmp117220 '#f)) - (let ((__tmp117239 + (let ((__tmp117221 (let () (declare (not safe)) - (##structure-type _self116014_)))) + (##structure-type _self115996_)))) (declare (not safe)) (##unchecked-structure-set! - _self116014_ - _typedecl116020_ + _self115996_ + _typedecl116002_ '5 - __tmp117239 + __tmp117221 '#f))) - (let ((__tmp117234 + (let ((__tmp117216 (let () (declare (not safe)) - (##vector-length _self116014_)))) + (##vector-length _self115996_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self116014_ + _self115996_ '5 - __tmp117234)))))) + __tmp117216)))))) (define gxc#!lambda:::init! - (lambda _g117242_ - (let ((_g117241_ (let () (declare (not safe)) (##length _g117242_)))) - (cond ((let () (declare (not safe)) (##fx= _g117241_ 4)) - (apply (lambda (_self116005_ - _id116006_ - _arity116007_ - _dispatch116008_) + (lambda _g117224_ + (let ((_g117223_ (let () (declare (not safe)) (##length _g117224_)))) + (cond ((let () (declare (not safe)) (##fx= _g117223_ 4)) + (apply (lambda (_self115987_ + _id115988_ + _arity115989_ + _dispatch115990_) (let () (declare (not safe)) (gxc#!lambda:::init!__0 - _self116005_ - _id116006_ - _arity116007_ - _dispatch116008_))) - _g117242_)) - ((let () (declare (not safe)) (##fx= _g117241_ 5)) - (apply (lambda (_self116014_ - _id116015_ - _arity116016_ - _dispatch116017_ - _inline116018_) + _self115987_ + _id115988_ + _arity115989_ + _dispatch115990_))) + _g117224_)) + ((let () (declare (not safe)) (##fx= _g117223_ 5)) + (apply (lambda (_self115996_ + _id115997_ + _arity115998_ + _dispatch115999_ + _inline116000_) (let () (declare (not safe)) (gxc#!lambda:::init!__1 - _self116014_ - _id116015_ - _arity116016_ - _dispatch116017_ - _inline116018_))) - _g117242_)) - ((let () (declare (not safe)) (##fx= _g117241_ 6)) - (apply (lambda (_self116022_ - _id116023_ - _arity116024_ - _dispatch116025_ - _inline116026_ - _typedecl116027_) - (if (let ((__tmp117249 + _self115996_ + _id115997_ + _arity115998_ + _dispatch115999_ + _inline116000_))) + _g117224_)) + ((let () (declare (not safe)) (##fx= _g117223_ 6)) + (apply (lambda (_self116004_ + _id116005_ + _arity116006_ + _dispatch116007_ + _inline116008_ + _typedecl116009_) + (if (let ((__tmp117231 (let () (declare (not safe)) - (##structure-length _self116022_)))) + (##structure-length _self116004_)))) (declare (not safe)) - (##fx< '5 __tmp117249)) + (##fx< '5 __tmp117231)) (begin - (let ((__tmp117244 + (let ((__tmp117226 (let () (declare (not safe)) - (##structure-type _self116022_)))) + (##structure-type _self116004_)))) (declare (not safe)) (##unchecked-structure-set! - _self116022_ - _id116023_ + _self116004_ + _id116005_ '1 - __tmp117244 + __tmp117226 '#f)) - (let ((__tmp117245 + (let ((__tmp117227 (let () (declare (not safe)) - (##structure-type _self116022_)))) + (##structure-type _self116004_)))) (declare (not safe)) (##unchecked-structure-set! - _self116022_ - _arity116024_ + _self116004_ + _arity116006_ '2 - __tmp117245 + __tmp117227 '#f)) - (let ((__tmp117246 + (let ((__tmp117228 (let () (declare (not safe)) - (##structure-type _self116022_)))) + (##structure-type _self116004_)))) (declare (not safe)) (##unchecked-structure-set! - _self116022_ - _dispatch116025_ + _self116004_ + _dispatch116007_ '3 - __tmp117246 + __tmp117228 '#f)) - (let ((__tmp117247 + (let ((__tmp117229 (let () (declare (not safe)) - (##structure-type _self116022_)))) + (##structure-type _self116004_)))) (declare (not safe)) (##unchecked-structure-set! - _self116022_ - _inline116026_ + _self116004_ + _inline116008_ '4 - __tmp117247 + __tmp117229 '#f)) - (let ((__tmp117248 + (let ((__tmp117230 (let () (declare (not safe)) - (##structure-type _self116022_)))) + (##structure-type _self116004_)))) (declare (not safe)) (##unchecked-structure-set! - _self116022_ - _typedecl116027_ + _self116004_ + _typedecl116009_ '5 - __tmp117248 + __tmp117230 '#f))) - (let ((__tmp117243 + (let ((__tmp117225 (let () (declare (not safe)) - (##vector-length _self116022_)))) + (##vector-length _self116004_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _self116022_ + _self116004_ '5 - __tmp117243)))) - _g117242_)) + __tmp117225)))) + _g117224_)) (else (##raise-wrong-number-of-arguments-exception gxc#!lambda:::init! - _g117242_)))))) + _g117224_)))))) (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 (_self115747_ . _args115748_) - (apply struct-instance-init! _self115747_ _args115748_))) + (lambda (_self115729_ . _args115730_) + (apply struct-instance-init! _self115729_ _args115730_))) (let () (declare (not safe)) (bind-method!__% @@ -2788,64 +2788,64 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!type-vtab - (lambda (_type115622_) + (lambda (_type115604_) (if (let () (declare (not safe)) - (##structure-instance-of? _type115622_ 'gxc#!class::t)) + (##structure-instance-of? _type115604_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-method-table _type115622_)) + (gxc#!class-method-table _type115604_)) '#f))) (define gxc#!class-method-table - (lambda (_klass115615_) - (let ((_$e115617_ - (##structure-ref _klass115615_ '11 gxc#!class::t '#f))) - (if _$e115617_ - _$e115617_ - (let ((_tab115620_ + (lambda (_klass115597_) + (let ((_$e115599_ + (##structure-ref _klass115597_ '11 gxc#!class::t '#f))) + (if _$e115599_ + _$e115599_ + (let ((_tab115602_ (let () (declare (not safe)) (make-hash-table-eq)))) (##structure-set! - _klass115615_ - _tab115620_ + _klass115597_ + _tab115602_ '11 gxc#!class::t '#f) - _tab115620_))))) + _tab115602_))))) (define gxc#!class-lookup-method - (lambda (_klass115606_ _method115607_) - (let ((_tab115608115610_ - (##structure-ref _klass115606_ '11 gxc#!class::t '#f))) - (if _tab115608115610_ - (let ((_tab115613_ _tab115608115610_)) + (lambda (_klass115588_ _method115589_) + (let ((_tab115590115592_ + (##structure-ref _klass115588_ '11 gxc#!class::t '#f))) + (if _tab115590115592_ + (let ((_tab115595_ _tab115590115592_)) (declare (not safe)) - (hash-get _tab115613_ _method115607_)) + (hash-get _tab115595_ _method115589_)) '#f)))) (define gxc#!type-lookup-method - (lambda (_type115603_ _method115604_) + (lambda (_type115585_ _method115586_) (if (let () (declare (not safe)) - (##structure-instance-of? _type115603_ 'gxc#!class::t)) + (##structure-instance-of? _type115585_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-lookup-method _type115603_ _method115604_)) + (gxc#!class-lookup-method _type115585_ _method115586_)) '#f))) (define gxc#optimizer-declare-type!__% - (lambda (_sym115587_ _type115588_ _local?115589_) + (lambda (_sym115569_ _type115570_ _local?115571_) (if (let () (declare (not safe)) - (##structure-instance-of? _type115588_ 'gxc#!type::t)) + (##structure-instance-of? _type115570_ 'gxc#!type::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !type" - _sym115587_ - _type115588_))) - (let ((__tmp117250 - (let () (declare (not safe)) (struct->list _type115588_)))) + _sym115569_ + _type115570_))) + (let ((__tmp117232 + (let () (declare (not safe)) (struct->list _type115570_)))) (declare (not safe)) - (gxc#verbose '"declare-type " _sym115587_ '" " __tmp117250)) - (let ((__tmp117251 - (if _local?115589_ + (gxc#verbose '"declare-type " _sym115569_ '" " __tmp117232)) + (let ((__tmp117233 + (if _local?115571_ (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! __tmp117251 _sym115587_ _type115588_)))) + (hash-put! __tmp117233 _sym115569_ _type115570_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_sym115594_ _type115595_) - (let ((_local?115597_ '#f)) + (lambda (_sym115576_ _type115577_) + (let ((_local?115579_ '#f)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym115594_ - _type115595_ - _local?115597_)))) + _sym115576_ + _type115577_ + _local?115579_)))) (define gxc#optimizer-declare-type! - (lambda _g117253_ - (let ((_g117252_ (let () (declare (not safe)) (##length _g117253_)))) - (cond ((let () (declare (not safe)) (##fx= _g117252_ 2)) - (apply (lambda (_sym115594_ _type115595_) + (lambda _g117235_ + (let ((_g117234_ (let () (declare (not safe)) (##length _g117235_)))) + (cond ((let () (declare (not safe)) (##fx= _g117234_ 2)) + (apply (lambda (_sym115576_ _type115577_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym115594_ - _type115595_))) - _g117253_)) - ((let () (declare (not safe)) (##fx= _g117252_ 3)) - (apply (lambda (_sym115599_ _type115600_ _local?115601_) + _sym115576_ + _type115577_))) + _g117235_)) + ((let () (declare (not safe)) (##fx= _g117234_ 3)) + (apply (lambda (_sym115581_ _type115582_ _local?115583_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym115599_ - _type115600_ - _local?115601_))) - _g117253_)) + _sym115581_ + _type115582_ + _local?115583_))) + _g117235_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g117253_)))))) + _g117235_)))))) (define gxc#optimizer-clear-type!__% - (lambda (_sym115573_ _local?115574_) - (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym115573_)) - (let ((__tmp117254 - (if _local?115574_ + (lambda (_sym115555_ _local?115556_) + (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym115555_)) + (let ((__tmp117236 + (if _local?115556_ (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! __tmp117254 _sym115573_)))) + (hash-remove! __tmp117236 _sym115555_)))) (define gxc#optimizer-clear-type!__0 - (lambda (_sym115579_) - (let ((_local?115581_ '#f)) + (lambda (_sym115561_) + (let ((_local?115563_ '#f)) (declare (not safe)) - (gxc#optimizer-clear-type!__% _sym115579_ _local?115581_)))) + (gxc#optimizer-clear-type!__% _sym115561_ _local?115563_)))) (define gxc#optimizer-clear-type! - (lambda _g117256_ - (let ((_g117255_ (let () (declare (not safe)) (##length _g117256_)))) - (cond ((let () (declare (not safe)) (##fx= _g117255_ 1)) - (apply (lambda (_sym115579_) + (lambda _g117238_ + (let ((_g117237_ (let () (declare (not safe)) (##length _g117238_)))) + (cond ((let () (declare (not safe)) (##fx= _g117237_ 1)) + (apply (lambda (_sym115561_) (let () (declare (not safe)) - (gxc#optimizer-clear-type!__0 _sym115579_))) - _g117256_)) - ((let () (declare (not safe)) (##fx= _g117255_ 2)) - (apply (lambda (_sym115583_ _local?115584_) + (gxc#optimizer-clear-type!__0 _sym115561_))) + _g117238_)) + ((let () (declare (not safe)) (##fx= _g117237_ 2)) + (apply (lambda (_sym115565_ _local?115566_) (let () (declare (not safe)) (gxc#optimizer-clear-type!__% - _sym115583_ - _local?115584_))) - _g117256_)) + _sym115565_ + _local?115566_))) + _g117238_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-clear-type! - _g117256_)))))) + _g117238_)))))) (define gxc#optimizer-declare-method!__% - (lambda (_type-t115541_ _method115542_ _sym115543_ _rebind?115544_) - (let* ((_type115546_ + (lambda (_type-t115523_ _method115524_ _sym115525_ _rebind?115526_) + (let* ((_type115528_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t115541_))) - (_$e115548_ - (let () (declare (not safe)) (gxc#!type-vtab _type115546_)))) - (if _$e115548_ - ((lambda (_vtab115551_) - (let ((_$e115553_ + (gxc#optimizer-resolve-type _type-t115523_))) + (_$e115530_ + (let () (declare (not safe)) (gxc#!type-vtab _type115528_)))) + (if _$e115530_ + ((lambda (_vtab115533_) + (let ((_$e115535_ (let () (declare (not safe)) - (hash-get _vtab115551_ _method115542_)))) - (if _$e115553_ - ((lambda (_existing115556_) - (if _rebind?115544_ + (hash-get _vtab115533_ _method115524_)))) + (if _$e115535_ + ((lambda (_existing115538_) + (if _rebind?115526_ (begin (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _type-t115541_ + _type-t115523_ '" " - _method115542_)) + _method115524_)) (let () (declare (not safe)) (hash-put! - _vtab115551_ - _method115542_ - _sym115543_))) + _vtab115533_ + _method115524_ + _sym115525_))) (if (let () (declare (not safe)) - (eq? _existing115556_ _sym115543_)) + (eq? _existing115538_ _sym115525_)) '#!void - (let ((__tmp117261 - (let ((__tmp117262 - (let ((__tmp117263 - (let ((__tmp117264 + (let ((__tmp117243 + (let ((__tmp117244 + (let ((__tmp117245 + (let ((__tmp117246 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _sym115543_ '())))) + (cons _sym115525_ '())))) (declare (not safe)) - (cons _method115542_ __tmp117264)))) + (cons _method115524_ __tmp117246)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _type-t115541_ - __tmp117263)))) + (cons _type-t115523_ + __tmp117245)))) (declare (not safe)) - (cons 'bind-method! __tmp117262)))) + (cons 'bind-method! __tmp117244)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp117261 - _method115542_))))) - _$e115553_) + __tmp117243 + _method115524_))))) + _$e115535_) (begin (let () (declare (not safe)) (gxc#verbose '"declare-method " - _type-t115541_ + _type-t115523_ '" " - _method115542_ + _method115524_ '" => " - _sym115543_)) + _sym115525_)) (let () (declare (not safe)) (hash-put! - _vtab115551_ - _method115542_ - _sym115543_)))))) - _$e115548_) - (if (let () (declare (not safe)) (not _type115546_)) + _vtab115533_ + _method115524_ + _sym115525_)))))) + _$e115530_) + (if (let () (declare (not safe)) (not _type115528_)) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown type " - _type-t115541_)) - (let ((__tmp117257 - (let ((__tmp117258 - (let ((__tmp117259 - (let ((__tmp117260 + _type-t115523_)) + (let ((__tmp117239 + (let ((__tmp117240 + (let ((__tmp117241 + (let ((__tmp117242 (let () (declare (not safe)) - (cons _method115542_ '())))) + (cons _method115524_ '())))) (declare (not safe)) - (cons _sym115543_ __tmp117260)))) + (cons _sym115525_ __tmp117242)))) (declare (not safe)) - (cons _type-t115541_ __tmp117259)))) + (cons _type-t115523_ __tmp117241)))) (declare (not safe)) - (cons 'bind-method! __tmp117258)))) + (cons 'bind-method! __tmp117240)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: bad method declaration; no method table" - __tmp117257 - _type115546_))))))) + __tmp117239 + _type115528_))))))) (define gxc#optimizer-declare-method!__0 - (lambda (_type-t115561_ _method115562_ _sym115563_) - (let ((_rebind?115565_ '#f)) + (lambda (_type-t115543_ _method115544_ _sym115545_) + (let ((_rebind?115547_ '#f)) (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t115561_ - _method115562_ - _sym115563_ - _rebind?115565_)))) + _type-t115543_ + _method115544_ + _sym115545_ + _rebind?115547_)))) (define gxc#optimizer-declare-method! - (lambda _g117266_ - (let ((_g117265_ (let () (declare (not safe)) (##length _g117266_)))) - (cond ((let () (declare (not safe)) (##fx= _g117265_ 3)) - (apply (lambda (_type-t115561_ _method115562_ _sym115563_) + (lambda _g117248_ + (let ((_g117247_ (let () (declare (not safe)) (##length _g117248_)))) + (cond ((let () (declare (not safe)) (##fx= _g117247_ 3)) + (apply (lambda (_type-t115543_ _method115544_ _sym115545_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__0 - _type-t115561_ - _method115562_ - _sym115563_))) - _g117266_)) - ((let () (declare (not safe)) (##fx= _g117265_ 4)) - (apply (lambda (_type-t115567_ - _method115568_ - _sym115569_ - _rebind?115570_) + _type-t115543_ + _method115544_ + _sym115545_))) + _g117248_)) + ((let () (declare (not safe)) (##fx= _g117247_ 4)) + (apply (lambda (_type-t115549_ + _method115550_ + _sym115551_ + _rebind?115552_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t115567_ - _method115568_ - _sym115569_ - _rebind?115570_))) - _g117266_)) + _type-t115549_ + _method115550_ + _sym115551_ + _rebind?115552_))) + _g117248_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g117266_)))))) + _g117248_)))))) (define gxc#optimizer-lookup-type - (lambda (_sym115529_) - (let ((_$e115537_ - (let ((_ht115530115532_ (gxc#current-compile-local-type))) - (if _ht115530115532_ - (let ((_ht115535_ _ht115530115532_)) + (lambda (_sym115511_) + (let ((_$e115519_ + (let ((_ht115512115514_ (gxc#current-compile-local-type))) + (if _ht115512115514_ + (let ((_ht115517_ _ht115512115514_)) (declare (not safe)) - (hash-get _ht115535_ _sym115529_)) + (hash-get _ht115517_ _sym115511_)) '#f)))) - (if _$e115537_ - _$e115537_ - (let ((__tmp117267 + (if _$e115519_ + _$e115519_ + (let ((__tmp117249 (##structure-ref (gxc#current-compile-optimizer-info) '1 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp117267 _sym115529_)))))) + (hash-get __tmp117249 _sym115511_)))))) (define gxc#optimizer-resolve-type - (lambda (_sym115521_) - (let ((_type115522115524_ + (lambda (_sym115503_) + (let ((_type115504115506_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym115521_)))) - (if _type115522115524_ - (let ((_type115527_ _type115522115524_)) + (gxc#optimizer-lookup-type _sym115503_)))) + (if _type115504115506_ + (let ((_type115509_ _type115504115506_)) (if (let () (declare (not safe)) - (##structure-instance-of? _type115527_ 'gxc#!alias::t)) - (let ((__tmp117268 - (##structure-ref _type115527_ '1 gxc#!type::t '#f))) + (##structure-instance-of? _type115509_ 'gxc#!alias::t)) + (let ((__tmp117250 + (##structure-ref _type115509_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp117268)) - _type115527_)) + (gxc#optimizer-resolve-type __tmp117250)) + _type115509_)) '#f)))) (define gxc#optimizer-resolve-class - (lambda (_where115513_ _klass-id115514_) - (let ((_$e115516_ + (lambda (_where115495_ _klass-id115496_) + (let ((_$e115498_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _klass-id115514_)))) - (if _$e115516_ - ((lambda (_klass115519_) + (gxc#optimizer-resolve-type _klass-id115496_)))) + (if _$e115498_ + ((lambda (_klass115501_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass115519_ 'gxc#!class::t)) + (##structure-instance-of? _klass115501_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"bad class reference; not a class type" - _where115513_ - _klass-id115514_ - _klass115519_))) - _klass115519_) - _$e115516_) + _where115495_ + _klass-id115496_ + _klass115501_))) + _klass115501_) + _$e115498_) (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _where115513_ - _klass-id115514_)))))) + _where115495_ + _klass-id115496_)))))) (define gxc#optimizer-lookup-method - (lambda (_type-t115510_ _method115511_) - (let ((__tmp117269 + (lambda (_type-t115492_ _method115493_) + (let ((__tmp117251 (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t115510_)))) + (gxc#optimizer-resolve-type _type-t115492_)))) (declare (not safe)) - (gxc#!type-lookup-method __tmp117269 _method115511_)))) + (gxc#!type-lookup-method __tmp117251 _method115493_)))) (define gxc#optimizer-top-level-method! - (lambda (_sym115508_) + (lambda (_sym115490_) (let () (declare (not safe)) - (gxc#verbose '"top-level method: " _sym115508_)) - (let ((__tmp117270 + (gxc#verbose '"top-level method: " _sym115490_)) + (let ((__tmp117252 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp117270 _sym115508_ '#t)))) + (hash-put! __tmp117252 _sym115490_ '#t)))) (define gxc#optimizer-top-level-method? - (lambda (_sym115506_) - (let ((__tmp117271 + (lambda (_sym115488_) + (let ((__tmp117253 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp117271 _sym115506_)))) + (hash-get __tmp117253 _sym115488_)))) (define gxc#identifier-symbol - (lambda (_stx115504_) + (lambda (_stx115486_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _stx115504_ + _stx115486_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _stx115504_)) - (let () (declare (not safe)) (gx#stx-e _stx115504_))))))) + (gxc#generate-runtime-binding-id _stx115486_)) + (let () (declare (not safe)) (gx#stx-e _stx115486_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base~1.scm b/src/bootstrap/gerbil/compiler/optimize-base~1.scm index 8296f89d1..f01449195 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]#_g117273_| + (define |gxc[1]#_g117255_| (##structure gx#syntax-quote::t 'optimizer-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117275_| + (define |gxc[1]#_g117257_| (##structure gx#syntax-quote::t 'make-optimizer-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117277_| + (define |gxc[1]#_g117259_| (##structure gx#syntax-quote::t 'optimizer-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117283_| + (define |gxc[1]#_g117265_| (##structure gx#syntax-quote::t 'optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117286_| + (define |gxc[1]#_g117268_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117289_| + (define |gxc[1]#_g117271_| (##structure gx#syntax-quote::t 'optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117295_| + (define |gxc[1]#_g117277_| (##structure gx#syntax-quote::t 'optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117298_| + (define |gxc[1]#_g117280_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117301_| + (define |gxc[1]#_g117283_| (##structure gx#syntax-quote::t 'optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117307_| + (define |gxc[1]#_g117289_| (##structure gx#syntax-quote::t '&optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117310_| + (define |gxc[1]#_g117292_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117313_| + (define |gxc[1]#_g117295_| (##structure gx#syntax-quote::t '&optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117319_| + (define |gxc[1]#_g117301_| (##structure gx#syntax-quote::t '&optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117322_| + (define |gxc[1]#_g117304_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117325_| + (define |gxc[1]#_g117307_| (##structure gx#syntax-quote::t '&optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117327_| + (define |gxc[1]#_g117309_| (##structure gx#syntax-quote::t '!type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117329_| + (define |gxc[1]#_g117311_| (##structure gx#syntax-quote::t 'make-!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117331_| + (define |gxc[1]#_g117313_| (##structure gx#syntax-quote::t '!type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117335_| + (define |gxc[1]#_g117317_| (##structure gx#syntax-quote::t '!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117339_| + (define |gxc[1]#_g117321_| (##structure gx#syntax-quote::t '!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117343_| + (define |gxc[1]#_g117325_| (##structure gx#syntax-quote::t '&!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117347_| + (define |gxc[1]#_g117329_| (##structure gx#syntax-quote::t '&!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117350_| + (define |gxc[1]#_g117332_| (##structure gx#syntax-quote::t '!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117352_| + (define |gxc[1]#_g117334_| (##structure gx#syntax-quote::t '!alias::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117354_| + (define |gxc[1]#_g117336_| (##structure gx#syntax-quote::t 'make-!alias #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117356_| + (define |gxc[1]#_g117338_| (##structure gx#syntax-quote::t '!alias? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117360_| + (define |gxc[1]#_g117342_| (##structure gx#syntax-quote::t '!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117364_| + (define |gxc[1]#_g117346_| (##structure gx#syntax-quote::t '!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117368_| + (define |gxc[1]#_g117350_| (##structure gx#syntax-quote::t '&!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117372_| + (define |gxc[1]#_g117354_| (##structure gx#syntax-quote::t '&!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117376_| + (define |gxc[1]#_g117358_| (##structure gx#syntax-quote::t '!procedure::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117378_| + (define |gxc[1]#_g117360_| (##structure gx#syntax-quote::t 'make-!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117380_| + (define |gxc[1]#_g117362_| (##structure gx#syntax-quote::t '!procedure? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117384_| + (define |gxc[1]#_g117366_| (##structure gx#syntax-quote::t '!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117388_| + (define |gxc[1]#_g117370_| (##structure gx#syntax-quote::t '!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117392_| + (define |gxc[1]#_g117374_| (##structure gx#syntax-quote::t '&!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117396_| + (define |gxc[1]#_g117378_| (##structure gx#syntax-quote::t '&!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117400_| + (define |gxc[1]#_g117382_| (##structure gx#syntax-quote::t '!class::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117402_| + (define |gxc[1]#_g117384_| (##structure gx#syntax-quote::t 'make-!class #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117404_| + (define |gxc[1]#_g117386_| (##structure gx#syntax-quote::t '!class? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117418_| + (define |gxc[1]#_g117400_| (##structure gx#syntax-quote::t '!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117421_| + (define |gxc[1]#_g117403_| (##structure gx#syntax-quote::t '!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117424_| + (define |gxc[1]#_g117406_| (##structure gx#syntax-quote::t '!class-metaclass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117427_| + (define |gxc[1]#_g117409_| (##structure gx#syntax-quote::t '!class-system? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117430_| + (define |gxc[1]#_g117412_| (##structure gx#syntax-quote::t '!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117433_| + (define |gxc[1]#_g117415_| (##structure gx#syntax-quote::t '!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117436_| + (define |gxc[1]#_g117418_| (##structure gx#syntax-quote::t '!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117439_| + (define |gxc[1]#_g117421_| (##structure gx#syntax-quote::t '!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117442_| + (define |gxc[1]#_g117424_| (##structure gx#syntax-quote::t '!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117445_| + (define |gxc[1]#_g117427_| (##structure gx#syntax-quote::t '!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117448_| + (define |gxc[1]#_g117430_| (##structure gx#syntax-quote::t '!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117462_| + (define |gxc[1]#_g117444_| (##structure gx#syntax-quote::t '!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117465_| + (define |gxc[1]#_g117447_| (##structure gx#syntax-quote::t '!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117468_| + (define |gxc[1]#_g117450_| (##structure gx#syntax-quote::t '!class-metaclass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117471_| + (define |gxc[1]#_g117453_| (##structure gx#syntax-quote::t '!class-system?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117474_| + (define |gxc[1]#_g117456_| (##structure gx#syntax-quote::t '!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117477_| + (define |gxc[1]#_g117459_| (##structure gx#syntax-quote::t '!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117480_| + (define |gxc[1]#_g117462_| (##structure gx#syntax-quote::t '!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117483_| + (define |gxc[1]#_g117465_| (##structure gx#syntax-quote::t '!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117486_| + (define |gxc[1]#_g117468_| (##structure gx#syntax-quote::t '!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117489_| + (define |gxc[1]#_g117471_| (##structure gx#syntax-quote::t '!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117492_| + (define |gxc[1]#_g117474_| (##structure gx#syntax-quote::t '!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117506_| + (define |gxc[1]#_g117488_| (##structure gx#syntax-quote::t '&!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117509_| + (define |gxc[1]#_g117491_| (##structure gx#syntax-quote::t '&!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117512_| + (define |gxc[1]#_g117494_| (##structure gx#syntax-quote::t '&!class-metaclass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117515_| + (define |gxc[1]#_g117497_| (##structure gx#syntax-quote::t '&!class-system? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117518_| + (define |gxc[1]#_g117500_| (##structure gx#syntax-quote::t '&!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117521_| + (define |gxc[1]#_g117503_| (##structure gx#syntax-quote::t '&!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117524_| + (define |gxc[1]#_g117506_| (##structure gx#syntax-quote::t '&!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117527_| + (define |gxc[1]#_g117509_| (##structure gx#syntax-quote::t '&!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117530_| + (define |gxc[1]#_g117512_| (##structure gx#syntax-quote::t '&!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117533_| + (define |gxc[1]#_g117515_| (##structure gx#syntax-quote::t '&!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117536_| + (define |gxc[1]#_g117518_| (##structure gx#syntax-quote::t '&!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117550_| + (define |gxc[1]#_g117532_| (##structure gx#syntax-quote::t '&!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117553_| + (define |gxc[1]#_g117535_| (##structure gx#syntax-quote::t '&!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117556_| + (define |gxc[1]#_g117538_| (##structure gx#syntax-quote::t '&!class-metaclass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117559_| + (define |gxc[1]#_g117541_| (##structure gx#syntax-quote::t '&!class-system?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117562_| + (define |gxc[1]#_g117544_| (##structure gx#syntax-quote::t '&!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117565_| + (define |gxc[1]#_g117547_| (##structure gx#syntax-quote::t '&!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117568_| + (define |gxc[1]#_g117550_| (##structure gx#syntax-quote::t '&!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117571_| + (define |gxc[1]#_g117553_| (##structure gx#syntax-quote::t '&!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117574_| + (define |gxc[1]#_g117556_| (##structure gx#syntax-quote::t '&!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117577_| + (define |gxc[1]#_g117559_| (##structure gx#syntax-quote::t '&!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117580_| + (define |gxc[1]#_g117562_| (##structure gx#syntax-quote::t '&!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117583_| + (define |gxc[1]#_g117565_| (##structure gx#syntax-quote::t '!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117585_| + (define |gxc[1]#_g117567_| (##structure gx#syntax-quote::t '!predicate::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117587_| + (define |gxc[1]#_g117569_| (##structure gx#syntax-quote::t 'make-!predicate #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117589_| + (define |gxc[1]#_g117571_| (##structure gx#syntax-quote::t '!predicate? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117593_| + (define |gxc[1]#_g117575_| (##structure gx#syntax-quote::t '!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117597_| + (define |gxc[1]#_g117579_| (##structure gx#syntax-quote::t '!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117601_| + (define |gxc[1]#_g117583_| (##structure gx#syntax-quote::t '&!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117605_| + (define |gxc[1]#_g117587_| (##structure gx#syntax-quote::t '&!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117609_| + (define |gxc[1]#_g117591_| (##structure gx#syntax-quote::t '!constructor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117611_| + (define |gxc[1]#_g117593_| (##structure gx#syntax-quote::t 'make-!constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117613_| + (define |gxc[1]#_g117595_| (##structure gx#syntax-quote::t '!constructor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117617_| + (define |gxc[1]#_g117599_| (##structure gx#syntax-quote::t '!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117621_| + (define |gxc[1]#_g117603_| (##structure gx#syntax-quote::t '!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117625_| + (define |gxc[1]#_g117607_| (##structure gx#syntax-quote::t '&!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117629_| + (define |gxc[1]#_g117611_| (##structure gx#syntax-quote::t '&!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117633_| + (define |gxc[1]#_g117615_| (##structure gx#syntax-quote::t '!accessor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117635_| + (define |gxc[1]#_g117617_| (##structure gx#syntax-quote::t 'make-!accessor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117637_| + (define |gxc[1]#_g117619_| (##structure gx#syntax-quote::t '!accessor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117643_| + (define |gxc[1]#_g117625_| (##structure gx#syntax-quote::t '!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117646_| + (define |gxc[1]#_g117628_| (##structure gx#syntax-quote::t '!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117649_| + (define |gxc[1]#_g117631_| (##structure gx#syntax-quote::t '!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117655_| + (define |gxc[1]#_g117637_| (##structure gx#syntax-quote::t '!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117658_| + (define |gxc[1]#_g117640_| (##structure gx#syntax-quote::t '!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117661_| + (define |gxc[1]#_g117643_| (##structure gx#syntax-quote::t '!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117667_| + (define |gxc[1]#_g117649_| (##structure gx#syntax-quote::t '&!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117670_| + (define |gxc[1]#_g117652_| (##structure gx#syntax-quote::t '&!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117673_| + (define |gxc[1]#_g117655_| (##structure gx#syntax-quote::t '&!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117679_| + (define |gxc[1]#_g117661_| (##structure gx#syntax-quote::t '&!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117682_| + (define |gxc[1]#_g117664_| (##structure gx#syntax-quote::t '&!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117685_| + (define |gxc[1]#_g117667_| (##structure gx#syntax-quote::t '&!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117689_| + (define |gxc[1]#_g117671_| (##structure gx#syntax-quote::t '!mutator::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117691_| + (define |gxc[1]#_g117673_| (##structure gx#syntax-quote::t 'make-!mutator #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117693_| + (define |gxc[1]#_g117675_| (##structure gx#syntax-quote::t '!mutator? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117699_| + (define |gxc[1]#_g117681_| (##structure gx#syntax-quote::t '!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117702_| + (define |gxc[1]#_g117684_| (##structure gx#syntax-quote::t '!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117705_| + (define |gxc[1]#_g117687_| (##structure gx#syntax-quote::t '!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117711_| + (define |gxc[1]#_g117693_| (##structure gx#syntax-quote::t '!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117714_| + (define |gxc[1]#_g117696_| (##structure gx#syntax-quote::t '!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117717_| + (define |gxc[1]#_g117699_| (##structure gx#syntax-quote::t '!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117723_| + (define |gxc[1]#_g117705_| (##structure gx#syntax-quote::t '&!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117726_| + (define |gxc[1]#_g117708_| (##structure gx#syntax-quote::t '&!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117729_| + (define |gxc[1]#_g117711_| (##structure gx#syntax-quote::t '&!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117735_| + (define |gxc[1]#_g117717_| (##structure gx#syntax-quote::t '&!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117738_| + (define |gxc[1]#_g117720_| (##structure gx#syntax-quote::t '&!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117741_| + (define |gxc[1]#_g117723_| (##structure gx#syntax-quote::t '&!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117745_| + (define |gxc[1]#_g117727_| (##structure gx#syntax-quote::t '!lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117747_| + (define |gxc[1]#_g117729_| (##structure gx#syntax-quote::t 'make-!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117749_| + (define |gxc[1]#_g117731_| (##structure gx#syntax-quote::t '!lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117757_| + (define |gxc[1]#_g117739_| (##structure gx#syntax-quote::t '!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117760_| + (define |gxc[1]#_g117742_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117763_| + (define |gxc[1]#_g117745_| (##structure gx#syntax-quote::t '!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117766_| + (define |gxc[1]#_g117748_| (##structure gx#syntax-quote::t '!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117769_| + (define |gxc[1]#_g117751_| (##structure gx#syntax-quote::t '!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117777_| + (define |gxc[1]#_g117759_| (##structure gx#syntax-quote::t '!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117780_| + (define |gxc[1]#_g117762_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117783_| + (define |gxc[1]#_g117765_| (##structure gx#syntax-quote::t '!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117786_| + (define |gxc[1]#_g117768_| (##structure gx#syntax-quote::t '!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117789_| + (define |gxc[1]#_g117771_| (##structure gx#syntax-quote::t '!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117797_| + (define |gxc[1]#_g117779_| (##structure gx#syntax-quote::t '&!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117800_| + (define |gxc[1]#_g117782_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117803_| + (define |gxc[1]#_g117785_| (##structure gx#syntax-quote::t '&!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117806_| + (define |gxc[1]#_g117788_| (##structure gx#syntax-quote::t '&!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117809_| + (define |gxc[1]#_g117791_| (##structure gx#syntax-quote::t '&!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117817_| + (define |gxc[1]#_g117799_| (##structure gx#syntax-quote::t '&!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117820_| + (define |gxc[1]#_g117802_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117823_| + (define |gxc[1]#_g117805_| (##structure gx#syntax-quote::t '&!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117826_| + (define |gxc[1]#_g117808_| (##structure gx#syntax-quote::t '&!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117829_| + (define |gxc[1]#_g117811_| (##structure gx#syntax-quote::t '&!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117833_| + (define |gxc[1]#_g117815_| (##structure gx#syntax-quote::t '!case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117835_| + (define |gxc[1]#_g117817_| (##structure gx#syntax-quote::t 'make-!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117837_| + (define |gxc[1]#_g117819_| (##structure gx#syntax-quote::t '!case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117842_| + (define |gxc[1]#_g117824_| (##structure gx#syntax-quote::t '!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117845_| + (define |gxc[1]#_g117827_| (##structure gx#syntax-quote::t '!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117850_| + (define |gxc[1]#_g117832_| (##structure gx#syntax-quote::t '!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117853_| + (define |gxc[1]#_g117835_| (##structure gx#syntax-quote::t '!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117858_| + (define |gxc[1]#_g117840_| (##structure gx#syntax-quote::t '&!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117861_| + (define |gxc[1]#_g117843_| (##structure gx#syntax-quote::t '&!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117866_| + (define |gxc[1]#_g117848_| (##structure gx#syntax-quote::t '&!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117869_| + (define |gxc[1]#_g117851_| (##structure gx#syntax-quote::t '&!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117873_| + (define |gxc[1]#_g117855_| (##structure gx#syntax-quote::t '!kw-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117875_| + (define |gxc[1]#_g117857_| (##structure gx#syntax-quote::t 'make-!kw-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117877_| + (define |gxc[1]#_g117859_| (##structure gx#syntax-quote::t '!kw-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117883_| + (define |gxc[1]#_g117865_| (##structure gx#syntax-quote::t '!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117886_| + (define |gxc[1]#_g117868_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117889_| + (define |gxc[1]#_g117871_| (##structure gx#syntax-quote::t '!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117895_| + (define |gxc[1]#_g117877_| (##structure gx#syntax-quote::t '!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117898_| + (define |gxc[1]#_g117880_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117901_| + (define |gxc[1]#_g117883_| (##structure gx#syntax-quote::t '!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117907_| + (define |gxc[1]#_g117889_| (##structure gx#syntax-quote::t '&!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117910_| + (define |gxc[1]#_g117892_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117913_| + (define |gxc[1]#_g117895_| (##structure gx#syntax-quote::t '&!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117919_| + (define |gxc[1]#_g117901_| (##structure gx#syntax-quote::t '&!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117922_| + (define |gxc[1]#_g117904_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117925_| + (define |gxc[1]#_g117907_| (##structure gx#syntax-quote::t '&!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117929_| + (define |gxc[1]#_g117911_| (##structure gx#syntax-quote::t '!kw-lambda-primary::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117931_| + (define |gxc[1]#_g117913_| (##structure gx#syntax-quote::t 'make-!kw-lambda-primary #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117933_| + (define |gxc[1]#_g117915_| (##structure gx#syntax-quote::t '!kw-lambda-primary? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117939_| + (define |gxc[1]#_g117921_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117942_| + (define |gxc[1]#_g117924_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117945_| + (define |gxc[1]#_g117927_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117951_| + (define |gxc[1]#_g117933_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117954_| + (define |gxc[1]#_g117936_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117957_| + (define |gxc[1]#_g117939_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117963_| + (define |gxc[1]#_g117945_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117966_| + (define |gxc[1]#_g117948_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117969_| + (define |gxc[1]#_g117951_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117975_| + (define |gxc[1]#_g117957_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117978_| + (define |gxc[1]#_g117960_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117981_| + (define |gxc[1]#_g117963_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117983_| + (define |gxc[1]#_g117965_| (##structure gx#syntax-quote::t '!primitive::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117985_| + (define |gxc[1]#_g117967_| (##structure gx#syntax-quote::t 'make-!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117987_| + (define |gxc[1]#_g117969_| (##structure gx#syntax-quote::t '!primitive? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117991_| + (define |gxc[1]#_g117973_| (##structure gx#syntax-quote::t '!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117993_| + (define |gxc[1]#_g117975_| (##structure gx#syntax-quote::t '!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117995_| + (define |gxc[1]#_g117977_| (##structure gx#syntax-quote::t '!primitive-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117997_| + (define |gxc[1]#_g117979_| (##structure gx#syntax-quote::t 'make-!primitive-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g117999_| + (define |gxc[1]#_g117981_| (##structure gx#syntax-quote::t '!primitive-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118007_| + (define |gxc[1]#_g117989_| (##structure gx#syntax-quote::t '!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118010_| + (define |gxc[1]#_g117992_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118013_| + (define |gxc[1]#_g117995_| (##structure gx#syntax-quote::t '!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118016_| + (define |gxc[1]#_g117998_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118019_| + (define |gxc[1]#_g118001_| (##structure gx#syntax-quote::t '!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118027_| + (define |gxc[1]#_g118009_| (##structure gx#syntax-quote::t '!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118030_| + (define |gxc[1]#_g118012_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118033_| + (define |gxc[1]#_g118015_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118036_| + (define |gxc[1]#_g118018_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118039_| + (define |gxc[1]#_g118021_| (##structure gx#syntax-quote::t '!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118047_| + (define |gxc[1]#_g118029_| (##structure gx#syntax-quote::t '&!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118050_| + (define |gxc[1]#_g118032_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118053_| + (define |gxc[1]#_g118035_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118056_| + (define |gxc[1]#_g118038_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118059_| + (define |gxc[1]#_g118041_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118067_| + (define |gxc[1]#_g118049_| (##structure gx#syntax-quote::t '&!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118070_| + (define |gxc[1]#_g118052_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118073_| + (define |gxc[1]#_g118055_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118076_| + (define |gxc[1]#_g118058_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118079_| + (define |gxc[1]#_g118061_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118083_| + (define |gxc[1]#_g118065_| (##structure gx#syntax-quote::t '!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118086_| + (define |gxc[1]#_g118068_| (##structure gx#syntax-quote::t '!primitive-case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118088_| + (define |gxc[1]#_g118070_| (##structure gx#syntax-quote::t 'make-!primitive-case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118090_| + (define |gxc[1]#_g118072_| (##structure gx#syntax-quote::t '!primitive-case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118095_| + (define |gxc[1]#_g118077_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118098_| + (define |gxc[1]#_g118080_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118103_| + (define |gxc[1]#_g118085_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118106_| + (define |gxc[1]#_g118088_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118111_| + (define |gxc[1]#_g118093_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118114_| + (define |gxc[1]#_g118096_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118119_| + (define |gxc[1]#_g118101_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g118122_| + (define |gxc[1]#_g118104_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses-set! @@ -1633,7 +1633,7 @@ '())) (begin (define |gxc[:0:]#optimizer-info| - (let ((__obj117104 + (let ((__obj117086 (let () (declare (not safe)) (##structure @@ -1657,7 +1657,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117104 + __obj117086 '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! - __obj117104 + __obj117086 'optimizer-info '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1673,7 +1673,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117104 + __obj117086 '(type ssxi methods) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -1681,7 +1681,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117104 + __obj117086 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1689,7 +1689,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117104 + __obj117086 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1697,7 +1697,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117104 + __obj117086 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1705,7 +1705,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117104 + __obj117086 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1713,150 +1713,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117104 + __obj117086 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117272 |gxc[1]#_g117273_|)) + (let ((__tmp117254 |gxc[1]#_g117255_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117104 - __tmp117272 + __obj117086 + __tmp117254 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117274 |gxc[1]#_g117275_|)) + (let ((__tmp117256 |gxc[1]#_g117257_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117104 - __tmp117274 + __obj117086 + __tmp117256 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117276 |gxc[1]#_g117277_|)) + (let ((__tmp117258 |gxc[1]#_g117259_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117104 - __tmp117276 + __obj117086 + __tmp117258 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117278 - (let ((__tmp117287 - (let ((__tmp117288 |gxc[1]#_g117289_|)) + (let ((__tmp117260 + (let ((__tmp117269 + (let ((__tmp117270 |gxc[1]#_g117271_|)) (declare (not safe)) - (cons 'type __tmp117288))) - (__tmp117279 - (let ((__tmp117284 - (let ((__tmp117285 |gxc[1]#_g117286_|)) + (cons 'type __tmp117270))) + (__tmp117261 + (let ((__tmp117266 + (let ((__tmp117267 |gxc[1]#_g117268_|)) (declare (not safe)) - (cons 'ssxi __tmp117285))) - (__tmp117280 - (let ((__tmp117281 - (let ((__tmp117282 |gxc[1]#_g117283_|)) + (cons 'ssxi __tmp117267))) + (__tmp117262 + (let ((__tmp117263 + (let ((__tmp117264 |gxc[1]#_g117265_|)) (declare (not safe)) - (cons 'methods __tmp117282)))) + (cons 'methods __tmp117264)))) (declare (not safe)) - (cons __tmp117281 '())))) + (cons __tmp117263 '())))) (declare (not safe)) - (cons __tmp117284 __tmp117280)))) + (cons __tmp117266 __tmp117262)))) (declare (not safe)) - (cons __tmp117287 __tmp117279)))) + (cons __tmp117269 __tmp117261)))) (declare (not safe)) (##unchecked-structure-set! - __obj117104 - __tmp117278 + __obj117086 + __tmp117260 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117290 - (let ((__tmp117299 - (let ((__tmp117300 |gxc[1]#_g117301_|)) + (let ((__tmp117272 + (let ((__tmp117281 + (let ((__tmp117282 |gxc[1]#_g117283_|)) (declare (not safe)) - (cons 'type __tmp117300))) - (__tmp117291 - (let ((__tmp117296 - (let ((__tmp117297 |gxc[1]#_g117298_|)) + (cons 'type __tmp117282))) + (__tmp117273 + (let ((__tmp117278 + (let ((__tmp117279 |gxc[1]#_g117280_|)) (declare (not safe)) - (cons 'ssxi __tmp117297))) - (__tmp117292 - (let ((__tmp117293 - (let ((__tmp117294 |gxc[1]#_g117295_|)) + (cons 'ssxi __tmp117279))) + (__tmp117274 + (let ((__tmp117275 + (let ((__tmp117276 |gxc[1]#_g117277_|)) (declare (not safe)) - (cons 'methods __tmp117294)))) + (cons 'methods __tmp117276)))) (declare (not safe)) - (cons __tmp117293 '())))) + (cons __tmp117275 '())))) (declare (not safe)) - (cons __tmp117296 __tmp117292)))) + (cons __tmp117278 __tmp117274)))) (declare (not safe)) - (cons __tmp117299 __tmp117291)))) + (cons __tmp117281 __tmp117273)))) (declare (not safe)) (##unchecked-structure-set! - __obj117104 - __tmp117290 + __obj117086 + __tmp117272 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117302 - (let ((__tmp117311 - (let ((__tmp117312 |gxc[1]#_g117313_|)) + (let ((__tmp117284 + (let ((__tmp117293 + (let ((__tmp117294 |gxc[1]#_g117295_|)) (declare (not safe)) - (cons 'type __tmp117312))) - (__tmp117303 - (let ((__tmp117308 - (let ((__tmp117309 |gxc[1]#_g117310_|)) + (cons 'type __tmp117294))) + (__tmp117285 + (let ((__tmp117290 + (let ((__tmp117291 |gxc[1]#_g117292_|)) (declare (not safe)) - (cons 'ssxi __tmp117309))) - (__tmp117304 - (let ((__tmp117305 - (let ((__tmp117306 |gxc[1]#_g117307_|)) + (cons 'ssxi __tmp117291))) + (__tmp117286 + (let ((__tmp117287 + (let ((__tmp117288 |gxc[1]#_g117289_|)) (declare (not safe)) - (cons 'methods __tmp117306)))) + (cons 'methods __tmp117288)))) (declare (not safe)) - (cons __tmp117305 '())))) + (cons __tmp117287 '())))) (declare (not safe)) - (cons __tmp117308 __tmp117304)))) + (cons __tmp117290 __tmp117286)))) (declare (not safe)) - (cons __tmp117311 __tmp117303)))) + (cons __tmp117293 __tmp117285)))) (declare (not safe)) (##unchecked-structure-set! - __obj117104 - __tmp117302 + __obj117086 + __tmp117284 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117314 - (let ((__tmp117323 - (let ((__tmp117324 |gxc[1]#_g117325_|)) + (let ((__tmp117296 + (let ((__tmp117305 + (let ((__tmp117306 |gxc[1]#_g117307_|)) (declare (not safe)) - (cons 'type __tmp117324))) - (__tmp117315 - (let ((__tmp117320 - (let ((__tmp117321 |gxc[1]#_g117322_|)) + (cons 'type __tmp117306))) + (__tmp117297 + (let ((__tmp117302 + (let ((__tmp117303 |gxc[1]#_g117304_|)) (declare (not safe)) - (cons 'ssxi __tmp117321))) - (__tmp117316 - (let ((__tmp117317 - (let ((__tmp117318 |gxc[1]#_g117319_|)) + (cons 'ssxi __tmp117303))) + (__tmp117298 + (let ((__tmp117299 + (let ((__tmp117300 |gxc[1]#_g117301_|)) (declare (not safe)) - (cons 'methods __tmp117318)))) + (cons 'methods __tmp117300)))) (declare (not safe)) - (cons __tmp117317 '())))) + (cons __tmp117299 '())))) (declare (not safe)) - (cons __tmp117320 __tmp117316)))) + (cons __tmp117302 __tmp117298)))) (declare (not safe)) - (cons __tmp117323 __tmp117315)))) + (cons __tmp117305 __tmp117297)))) (declare (not safe)) (##unchecked-structure-set! - __obj117104 - __tmp117314 + __obj117086 + __tmp117296 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117104)) + __obj117086)) (define |gxc[:0:]#!type| - (let ((__obj117105 + (let ((__obj117087 (let () (declare (not safe)) (##structure @@ -1880,7 +1880,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117087 'gxc#!type::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1888,7 +1888,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117087 '!type '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1896,7 +1896,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117087 '(id) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -1904,7 +1904,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117087 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1912,7 +1912,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117087 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1920,7 +1920,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117087 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1928,7 +1928,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117087 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1936,94 +1936,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117105 + __obj117087 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117326 |gxc[1]#_g117327_|)) + (let ((__tmp117308 |gxc[1]#_g117309_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117105 - __tmp117326 + __obj117087 + __tmp117308 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117328 |gxc[1]#_g117329_|)) + (let ((__tmp117310 |gxc[1]#_g117311_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117105 - __tmp117328 + __obj117087 + __tmp117310 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117330 |gxc[1]#_g117331_|)) + (let ((__tmp117312 |gxc[1]#_g117313_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117105 - __tmp117330 + __obj117087 + __tmp117312 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117332 - (let ((__tmp117333 - (let ((__tmp117334 |gxc[1]#_g117335_|)) + (let ((__tmp117314 + (let ((__tmp117315 + (let ((__tmp117316 |gxc[1]#_g117317_|)) (declare (not safe)) - (cons 'id __tmp117334)))) + (cons 'id __tmp117316)))) (declare (not safe)) - (cons __tmp117333 '())))) + (cons __tmp117315 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117105 - __tmp117332 + __obj117087 + __tmp117314 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117336 - (let ((__tmp117337 - (let ((__tmp117338 |gxc[1]#_g117339_|)) + (let ((__tmp117318 + (let ((__tmp117319 + (let ((__tmp117320 |gxc[1]#_g117321_|)) (declare (not safe)) - (cons 'id __tmp117338)))) + (cons 'id __tmp117320)))) (declare (not safe)) - (cons __tmp117337 '())))) + (cons __tmp117319 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117105 - __tmp117336 + __obj117087 + __tmp117318 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117340 - (let ((__tmp117341 - (let ((__tmp117342 |gxc[1]#_g117343_|)) + (let ((__tmp117322 + (let ((__tmp117323 + (let ((__tmp117324 |gxc[1]#_g117325_|)) (declare (not safe)) - (cons 'id __tmp117342)))) + (cons 'id __tmp117324)))) (declare (not safe)) - (cons __tmp117341 '())))) + (cons __tmp117323 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117105 - __tmp117340 + __obj117087 + __tmp117322 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117344 - (let ((__tmp117345 - (let ((__tmp117346 |gxc[1]#_g117347_|)) + (let ((__tmp117326 + (let ((__tmp117327 + (let ((__tmp117328 |gxc[1]#_g117329_|)) (declare (not safe)) - (cons 'id __tmp117346)))) + (cons 'id __tmp117328)))) (declare (not safe)) - (cons __tmp117345 '())))) + (cons __tmp117327 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117105 - __tmp117344 + __obj117087 + __tmp117326 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117105)) + __obj117087)) (define |gxc[:0:]#!alias| - (let ((__obj117106 + (let ((__obj117088 (let () (declare (not safe)) (##structure @@ -2047,7 +2047,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117088 'gxc#!alias::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -2055,7 +2055,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117088 '!alias '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2063,26 +2063,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117088 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117348 - (let ((__tmp117349 |gxc[1]#_g117350_|)) + (let ((__tmp117330 + (let ((__tmp117331 |gxc[1]#_g117332_|)) (declare (not safe)) - (cons __tmp117349 '())))) + (cons __tmp117331 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117106 - __tmp117348 + __obj117088 + __tmp117330 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117088 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2090,7 +2090,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117088 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2098,7 +2098,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117088 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2106,94 +2106,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117106 + __obj117088 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117351 |gxc[1]#_g117352_|)) + (let ((__tmp117333 |gxc[1]#_g117334_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117106 - __tmp117351 + __obj117088 + __tmp117333 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117353 |gxc[1]#_g117354_|)) + (let ((__tmp117335 |gxc[1]#_g117336_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117106 - __tmp117353 + __obj117088 + __tmp117335 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117355 |gxc[1]#_g117356_|)) + (let ((__tmp117337 |gxc[1]#_g117338_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117106 - __tmp117355 + __obj117088 + __tmp117337 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117357 - (let ((__tmp117358 - (let ((__tmp117359 |gxc[1]#_g117360_|)) + (let ((__tmp117339 + (let ((__tmp117340 + (let ((__tmp117341 |gxc[1]#_g117342_|)) (declare (not safe)) - (cons 'id __tmp117359)))) + (cons 'id __tmp117341)))) (declare (not safe)) - (cons __tmp117358 '())))) + (cons __tmp117340 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117106 - __tmp117357 + __obj117088 + __tmp117339 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117361 - (let ((__tmp117362 - (let ((__tmp117363 |gxc[1]#_g117364_|)) + (let ((__tmp117343 + (let ((__tmp117344 + (let ((__tmp117345 |gxc[1]#_g117346_|)) (declare (not safe)) - (cons 'id __tmp117363)))) + (cons 'id __tmp117345)))) (declare (not safe)) - (cons __tmp117362 '())))) + (cons __tmp117344 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117106 - __tmp117361 + __obj117088 + __tmp117343 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117365 - (let ((__tmp117366 - (let ((__tmp117367 |gxc[1]#_g117368_|)) + (let ((__tmp117347 + (let ((__tmp117348 + (let ((__tmp117349 |gxc[1]#_g117350_|)) (declare (not safe)) - (cons 'id __tmp117367)))) + (cons 'id __tmp117349)))) (declare (not safe)) - (cons __tmp117366 '())))) + (cons __tmp117348 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117106 - __tmp117365 + __obj117088 + __tmp117347 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117369 - (let ((__tmp117370 - (let ((__tmp117371 |gxc[1]#_g117372_|)) + (let ((__tmp117351 + (let ((__tmp117352 + (let ((__tmp117353 |gxc[1]#_g117354_|)) (declare (not safe)) - (cons 'id __tmp117371)))) + (cons 'id __tmp117353)))) (declare (not safe)) - (cons __tmp117370 '())))) + (cons __tmp117352 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117106 - __tmp117369 + __obj117088 + __tmp117351 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117106)) + __obj117088)) (define |gxc[:0:]#!procedure| - (let ((__obj117107 + (let ((__obj117089 (let () (declare (not safe)) (##structure @@ -2217,7 +2217,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117107 + __obj117089 'gxc#!procedure::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -2225,7 +2225,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117107 + __obj117089 '!procedure '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2233,26 +2233,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117107 + __obj117089 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117373 - (let ((__tmp117374 |gxc[1]#_g117350_|)) + (let ((__tmp117355 + (let ((__tmp117356 |gxc[1]#_g117332_|)) (declare (not safe)) - (cons __tmp117374 '())))) + (cons __tmp117356 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117373 + __obj117089 + __tmp117355 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117107 + __obj117089 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2260,7 +2260,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117107 + __obj117089 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2268,7 +2268,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117107 + __obj117089 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2276,94 +2276,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117107 + __obj117089 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117375 |gxc[1]#_g117376_|)) + (let ((__tmp117357 |gxc[1]#_g117358_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117375 + __obj117089 + __tmp117357 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117377 |gxc[1]#_g117378_|)) + (let ((__tmp117359 |gxc[1]#_g117360_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117377 + __obj117089 + __tmp117359 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117379 |gxc[1]#_g117380_|)) + (let ((__tmp117361 |gxc[1]#_g117362_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117379 + __obj117089 + __tmp117361 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117381 - (let ((__tmp117382 - (let ((__tmp117383 |gxc[1]#_g117384_|)) + (let ((__tmp117363 + (let ((__tmp117364 + (let ((__tmp117365 |gxc[1]#_g117366_|)) (declare (not safe)) - (cons 'id __tmp117383)))) + (cons 'id __tmp117365)))) (declare (not safe)) - (cons __tmp117382 '())))) + (cons __tmp117364 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117381 + __obj117089 + __tmp117363 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117385 - (let ((__tmp117386 - (let ((__tmp117387 |gxc[1]#_g117388_|)) + (let ((__tmp117367 + (let ((__tmp117368 + (let ((__tmp117369 |gxc[1]#_g117370_|)) (declare (not safe)) - (cons 'id __tmp117387)))) + (cons 'id __tmp117369)))) (declare (not safe)) - (cons __tmp117386 '())))) + (cons __tmp117368 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117385 + __obj117089 + __tmp117367 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117389 - (let ((__tmp117390 - (let ((__tmp117391 |gxc[1]#_g117392_|)) + (let ((__tmp117371 + (let ((__tmp117372 + (let ((__tmp117373 |gxc[1]#_g117374_|)) (declare (not safe)) - (cons 'id __tmp117391)))) + (cons 'id __tmp117373)))) (declare (not safe)) - (cons __tmp117390 '())))) + (cons __tmp117372 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117389 + __obj117089 + __tmp117371 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117393 - (let ((__tmp117394 - (let ((__tmp117395 |gxc[1]#_g117396_|)) + (let ((__tmp117375 + (let ((__tmp117376 + (let ((__tmp117377 |gxc[1]#_g117378_|)) (declare (not safe)) - (cons 'id __tmp117395)))) + (cons 'id __tmp117377)))) (declare (not safe)) - (cons __tmp117394 '())))) + (cons __tmp117376 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117107 - __tmp117393 + __obj117089 + __tmp117375 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117107)) + __obj117089)) (define |gxc[:0:]#!class| - (let ((__obj117108 + (let ((__obj117090 (let () (declare (not safe)) (##structure @@ -2387,7 +2387,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117108 + __obj117090 'gxc#!class::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -2395,7 +2395,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117108 + __obj117090 '!class '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2403,7 +2403,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117108 + __obj117090 '(super precedence-list slots fields @@ -2416,21 +2416,21 @@ '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117397 - (let ((__tmp117398 |gxc[1]#_g117350_|)) + (let ((__tmp117379 + (let ((__tmp117380 |gxc[1]#_g117332_|)) (declare (not safe)) - (cons __tmp117398 '())))) + (cons __tmp117380 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117397 + __obj117090 + __tmp117379 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117108 + __obj117090 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2438,7 +2438,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117108 + __obj117090 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2446,7 +2446,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117108 + __obj117090 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2454,414 +2454,414 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117108 + __obj117090 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117399 |gxc[1]#_g117400_|)) + (let ((__tmp117381 |gxc[1]#_g117382_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117399 + __obj117090 + __tmp117381 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117401 |gxc[1]#_g117402_|)) + (let ((__tmp117383 |gxc[1]#_g117384_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117401 + __obj117090 + __tmp117383 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117403 |gxc[1]#_g117404_|)) + (let ((__tmp117385 |gxc[1]#_g117386_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117403 + __obj117090 + __tmp117385 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117405 - (let ((__tmp117446 - (let ((__tmp117447 |gxc[1]#_g117448_|)) + (let ((__tmp117387 + (let ((__tmp117428 + (let ((__tmp117429 |gxc[1]#_g117430_|)) (declare (not safe)) - (cons 'super __tmp117447))) - (__tmp117406 - (let ((__tmp117443 - (let ((__tmp117444 |gxc[1]#_g117445_|)) + (cons 'super __tmp117429))) + (__tmp117388 + (let ((__tmp117425 + (let ((__tmp117426 |gxc[1]#_g117427_|)) (declare (not safe)) - (cons 'precedence-list __tmp117444))) - (__tmp117407 - (let ((__tmp117440 - (let ((__tmp117441 |gxc[1]#_g117442_|)) + (cons 'precedence-list __tmp117426))) + (__tmp117389 + (let ((__tmp117422 + (let ((__tmp117423 |gxc[1]#_g117424_|)) (declare (not safe)) - (cons 'slots __tmp117441))) - (__tmp117408 - (let ((__tmp117437 - (let ((__tmp117438 - |gxc[1]#_g117439_|)) + (cons 'slots __tmp117423))) + (__tmp117390 + (let ((__tmp117419 + (let ((__tmp117420 + |gxc[1]#_g117421_|)) (declare (not safe)) - (cons 'fields __tmp117438))) - (__tmp117409 - (let ((__tmp117434 - (let ((__tmp117435 - |gxc[1]#_g117436_|)) + (cons 'fields __tmp117420))) + (__tmp117391 + (let ((__tmp117416 + (let ((__tmp117417 + |gxc[1]#_g117418_|)) (declare (not safe)) (cons 'constructor - __tmp117435))) - (__tmp117410 - (let ((__tmp117431 - (let ((__tmp117432 - |gxc[1]#_g117433_|)) + __tmp117417))) + (__tmp117392 + (let ((__tmp117413 + (let ((__tmp117414 + |gxc[1]#_g117415_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp117432))) - (__tmp117411 - (let ((__tmp117428 - (let ((__tmp117429 |gxc[1]#_g117430_|)) + __tmp117414))) + (__tmp117393 + (let ((__tmp117410 + (let ((__tmp117411 |gxc[1]#_g117412_|)) (declare (not safe)) - (cons 'final? __tmp117429))) - (__tmp117412 - (let ((__tmp117425 - (let ((__tmp117426 |gxc[1]#_g117427_|)) + (cons 'final? __tmp117411))) + (__tmp117394 + (let ((__tmp117407 + (let ((__tmp117408 |gxc[1]#_g117409_|)) (declare (not safe)) - (cons 'system? __tmp117426))) - (__tmp117413 - (let ((__tmp117422 - (let ((__tmp117423 |gxc[1]#_g117424_|)) + (cons 'system? __tmp117408))) + (__tmp117395 + (let ((__tmp117404 + (let ((__tmp117405 |gxc[1]#_g117406_|)) (declare (not safe)) - (cons 'metaclass __tmp117423))) - (__tmp117414 - (let ((__tmp117419 - (let ((__tmp117420 - |gxc[1]#_g117421_|)) + (cons 'metaclass __tmp117405))) + (__tmp117396 + (let ((__tmp117401 + (let ((__tmp117402 + |gxc[1]#_g117403_|)) (declare (not safe)) - (cons 'methods __tmp117420))) - (__tmp117415 - (let ((__tmp117416 - (let ((__tmp117417 - |gxc[1]#_g117418_|)) + (cons 'methods __tmp117402))) + (__tmp117397 + (let ((__tmp117398 + (let ((__tmp117399 + |gxc[1]#_g117400_|)) (declare (not safe)) - (cons 'id __tmp117417)))) + (cons 'id __tmp117399)))) (declare (not safe)) - (cons __tmp117416 '())))) + (cons __tmp117398 '())))) (declare (not safe)) - (cons __tmp117419 __tmp117415)))) + (cons __tmp117401 __tmp117397)))) (declare (not safe)) - (cons __tmp117422 __tmp117414)))) + (cons __tmp117404 __tmp117396)))) (declare (not safe)) - (cons __tmp117425 __tmp117413)))) + (cons __tmp117407 __tmp117395)))) (declare (not safe)) - (cons __tmp117428 __tmp117412)))) + (cons __tmp117410 __tmp117394)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp117431 - __tmp117411)))) + (cons __tmp117413 + __tmp117393)))) (declare (not safe)) - (cons __tmp117434 __tmp117410)))) + (cons __tmp117416 __tmp117392)))) (declare (not safe)) - (cons __tmp117437 __tmp117409)))) + (cons __tmp117419 __tmp117391)))) (declare (not safe)) - (cons __tmp117440 __tmp117408)))) + (cons __tmp117422 __tmp117390)))) (declare (not safe)) - (cons __tmp117443 __tmp117407)))) + (cons __tmp117425 __tmp117389)))) (declare (not safe)) - (cons __tmp117446 __tmp117406)))) + (cons __tmp117428 __tmp117388)))) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117405 + __obj117090 + __tmp117387 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117449 - (let ((__tmp117490 - (let ((__tmp117491 |gxc[1]#_g117492_|)) + (let ((__tmp117431 + (let ((__tmp117472 + (let ((__tmp117473 |gxc[1]#_g117474_|)) (declare (not safe)) - (cons 'super __tmp117491))) - (__tmp117450 - (let ((__tmp117487 - (let ((__tmp117488 |gxc[1]#_g117489_|)) + (cons 'super __tmp117473))) + (__tmp117432 + (let ((__tmp117469 + (let ((__tmp117470 |gxc[1]#_g117471_|)) (declare (not safe)) - (cons 'precedence-list __tmp117488))) - (__tmp117451 - (let ((__tmp117484 - (let ((__tmp117485 |gxc[1]#_g117486_|)) + (cons 'precedence-list __tmp117470))) + (__tmp117433 + (let ((__tmp117466 + (let ((__tmp117467 |gxc[1]#_g117468_|)) (declare (not safe)) - (cons 'slots __tmp117485))) - (__tmp117452 - (let ((__tmp117481 - (let ((__tmp117482 - |gxc[1]#_g117483_|)) + (cons 'slots __tmp117467))) + (__tmp117434 + (let ((__tmp117463 + (let ((__tmp117464 + |gxc[1]#_g117465_|)) (declare (not safe)) - (cons 'fields __tmp117482))) - (__tmp117453 - (let ((__tmp117478 - (let ((__tmp117479 - |gxc[1]#_g117480_|)) + (cons 'fields __tmp117464))) + (__tmp117435 + (let ((__tmp117460 + (let ((__tmp117461 + |gxc[1]#_g117462_|)) (declare (not safe)) (cons 'constructor - __tmp117479))) - (__tmp117454 - (let ((__tmp117475 - (let ((__tmp117476 - |gxc[1]#_g117477_|)) + __tmp117461))) + (__tmp117436 + (let ((__tmp117457 + (let ((__tmp117458 + |gxc[1]#_g117459_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp117476))) - (__tmp117455 - (let ((__tmp117472 - (let ((__tmp117473 |gxc[1]#_g117474_|)) + __tmp117458))) + (__tmp117437 + (let ((__tmp117454 + (let ((__tmp117455 |gxc[1]#_g117456_|)) (declare (not safe)) - (cons 'final? __tmp117473))) - (__tmp117456 - (let ((__tmp117469 - (let ((__tmp117470 |gxc[1]#_g117471_|)) + (cons 'final? __tmp117455))) + (__tmp117438 + (let ((__tmp117451 + (let ((__tmp117452 |gxc[1]#_g117453_|)) (declare (not safe)) - (cons 'system? __tmp117470))) - (__tmp117457 - (let ((__tmp117466 - (let ((__tmp117467 |gxc[1]#_g117468_|)) + (cons 'system? __tmp117452))) + (__tmp117439 + (let ((__tmp117448 + (let ((__tmp117449 |gxc[1]#_g117450_|)) (declare (not safe)) - (cons 'metaclass __tmp117467))) - (__tmp117458 - (let ((__tmp117463 - (let ((__tmp117464 - |gxc[1]#_g117465_|)) + (cons 'metaclass __tmp117449))) + (__tmp117440 + (let ((__tmp117445 + (let ((__tmp117446 + |gxc[1]#_g117447_|)) (declare (not safe)) - (cons 'methods __tmp117464))) - (__tmp117459 - (let ((__tmp117460 - (let ((__tmp117461 - |gxc[1]#_g117462_|)) + (cons 'methods __tmp117446))) + (__tmp117441 + (let ((__tmp117442 + (let ((__tmp117443 + |gxc[1]#_g117444_|)) (declare (not safe)) - (cons 'id __tmp117461)))) + (cons 'id __tmp117443)))) (declare (not safe)) - (cons __tmp117460 '())))) + (cons __tmp117442 '())))) (declare (not safe)) - (cons __tmp117463 __tmp117459)))) + (cons __tmp117445 __tmp117441)))) (declare (not safe)) - (cons __tmp117466 __tmp117458)))) + (cons __tmp117448 __tmp117440)))) (declare (not safe)) - (cons __tmp117469 __tmp117457)))) + (cons __tmp117451 __tmp117439)))) (declare (not safe)) - (cons __tmp117472 __tmp117456)))) + (cons __tmp117454 __tmp117438)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp117475 - __tmp117455)))) + (cons __tmp117457 + __tmp117437)))) (declare (not safe)) - (cons __tmp117478 __tmp117454)))) + (cons __tmp117460 __tmp117436)))) (declare (not safe)) - (cons __tmp117481 __tmp117453)))) + (cons __tmp117463 __tmp117435)))) (declare (not safe)) - (cons __tmp117484 __tmp117452)))) + (cons __tmp117466 __tmp117434)))) (declare (not safe)) - (cons __tmp117487 __tmp117451)))) + (cons __tmp117469 __tmp117433)))) (declare (not safe)) - (cons __tmp117490 __tmp117450)))) + (cons __tmp117472 __tmp117432)))) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117449 + __obj117090 + __tmp117431 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117493 - (let ((__tmp117534 - (let ((__tmp117535 |gxc[1]#_g117536_|)) + (let ((__tmp117475 + (let ((__tmp117516 + (let ((__tmp117517 |gxc[1]#_g117518_|)) (declare (not safe)) - (cons 'super __tmp117535))) - (__tmp117494 - (let ((__tmp117531 - (let ((__tmp117532 |gxc[1]#_g117533_|)) + (cons 'super __tmp117517))) + (__tmp117476 + (let ((__tmp117513 + (let ((__tmp117514 |gxc[1]#_g117515_|)) (declare (not safe)) - (cons 'precedence-list __tmp117532))) - (__tmp117495 - (let ((__tmp117528 - (let ((__tmp117529 |gxc[1]#_g117530_|)) + (cons 'precedence-list __tmp117514))) + (__tmp117477 + (let ((__tmp117510 + (let ((__tmp117511 |gxc[1]#_g117512_|)) (declare (not safe)) - (cons 'slots __tmp117529))) - (__tmp117496 - (let ((__tmp117525 - (let ((__tmp117526 - |gxc[1]#_g117527_|)) + (cons 'slots __tmp117511))) + (__tmp117478 + (let ((__tmp117507 + (let ((__tmp117508 + |gxc[1]#_g117509_|)) (declare (not safe)) - (cons 'fields __tmp117526))) - (__tmp117497 - (let ((__tmp117522 - (let ((__tmp117523 - |gxc[1]#_g117524_|)) + (cons 'fields __tmp117508))) + (__tmp117479 + (let ((__tmp117504 + (let ((__tmp117505 + |gxc[1]#_g117506_|)) (declare (not safe)) (cons 'constructor - __tmp117523))) - (__tmp117498 - (let ((__tmp117519 - (let ((__tmp117520 - |gxc[1]#_g117521_|)) + __tmp117505))) + (__tmp117480 + (let ((__tmp117501 + (let ((__tmp117502 + |gxc[1]#_g117503_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp117520))) - (__tmp117499 - (let ((__tmp117516 - (let ((__tmp117517 |gxc[1]#_g117518_|)) + __tmp117502))) + (__tmp117481 + (let ((__tmp117498 + (let ((__tmp117499 |gxc[1]#_g117500_|)) (declare (not safe)) - (cons 'final? __tmp117517))) - (__tmp117500 - (let ((__tmp117513 - (let ((__tmp117514 |gxc[1]#_g117515_|)) + (cons 'final? __tmp117499))) + (__tmp117482 + (let ((__tmp117495 + (let ((__tmp117496 |gxc[1]#_g117497_|)) (declare (not safe)) - (cons 'system? __tmp117514))) - (__tmp117501 - (let ((__tmp117510 - (let ((__tmp117511 |gxc[1]#_g117512_|)) + (cons 'system? __tmp117496))) + (__tmp117483 + (let ((__tmp117492 + (let ((__tmp117493 |gxc[1]#_g117494_|)) (declare (not safe)) - (cons 'metaclass __tmp117511))) - (__tmp117502 - (let ((__tmp117507 - (let ((__tmp117508 - |gxc[1]#_g117509_|)) + (cons 'metaclass __tmp117493))) + (__tmp117484 + (let ((__tmp117489 + (let ((__tmp117490 + |gxc[1]#_g117491_|)) (declare (not safe)) - (cons 'methods __tmp117508))) - (__tmp117503 - (let ((__tmp117504 - (let ((__tmp117505 - |gxc[1]#_g117506_|)) + (cons 'methods __tmp117490))) + (__tmp117485 + (let ((__tmp117486 + (let ((__tmp117487 + |gxc[1]#_g117488_|)) (declare (not safe)) - (cons 'id __tmp117505)))) + (cons 'id __tmp117487)))) (declare (not safe)) - (cons __tmp117504 '())))) + (cons __tmp117486 '())))) (declare (not safe)) - (cons __tmp117507 __tmp117503)))) + (cons __tmp117489 __tmp117485)))) (declare (not safe)) - (cons __tmp117510 __tmp117502)))) + (cons __tmp117492 __tmp117484)))) (declare (not safe)) - (cons __tmp117513 __tmp117501)))) + (cons __tmp117495 __tmp117483)))) (declare (not safe)) - (cons __tmp117516 __tmp117500)))) + (cons __tmp117498 __tmp117482)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp117519 - __tmp117499)))) + (cons __tmp117501 + __tmp117481)))) (declare (not safe)) - (cons __tmp117522 __tmp117498)))) + (cons __tmp117504 __tmp117480)))) (declare (not safe)) - (cons __tmp117525 __tmp117497)))) + (cons __tmp117507 __tmp117479)))) (declare (not safe)) - (cons __tmp117528 __tmp117496)))) + (cons __tmp117510 __tmp117478)))) (declare (not safe)) - (cons __tmp117531 __tmp117495)))) + (cons __tmp117513 __tmp117477)))) (declare (not safe)) - (cons __tmp117534 __tmp117494)))) + (cons __tmp117516 __tmp117476)))) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117493 + __obj117090 + __tmp117475 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117537 - (let ((__tmp117578 - (let ((__tmp117579 |gxc[1]#_g117580_|)) + (let ((__tmp117519 + (let ((__tmp117560 + (let ((__tmp117561 |gxc[1]#_g117562_|)) (declare (not safe)) - (cons 'super __tmp117579))) - (__tmp117538 - (let ((__tmp117575 - (let ((__tmp117576 |gxc[1]#_g117577_|)) + (cons 'super __tmp117561))) + (__tmp117520 + (let ((__tmp117557 + (let ((__tmp117558 |gxc[1]#_g117559_|)) (declare (not safe)) - (cons 'precedence-list __tmp117576))) - (__tmp117539 - (let ((__tmp117572 - (let ((__tmp117573 |gxc[1]#_g117574_|)) + (cons 'precedence-list __tmp117558))) + (__tmp117521 + (let ((__tmp117554 + (let ((__tmp117555 |gxc[1]#_g117556_|)) (declare (not safe)) - (cons 'slots __tmp117573))) - (__tmp117540 - (let ((__tmp117569 - (let ((__tmp117570 - |gxc[1]#_g117571_|)) + (cons 'slots __tmp117555))) + (__tmp117522 + (let ((__tmp117551 + (let ((__tmp117552 + |gxc[1]#_g117553_|)) (declare (not safe)) - (cons 'fields __tmp117570))) - (__tmp117541 - (let ((__tmp117566 - (let ((__tmp117567 - |gxc[1]#_g117568_|)) + (cons 'fields __tmp117552))) + (__tmp117523 + (let ((__tmp117548 + (let ((__tmp117549 + |gxc[1]#_g117550_|)) (declare (not safe)) (cons 'constructor - __tmp117567))) - (__tmp117542 - (let ((__tmp117563 - (let ((__tmp117564 - |gxc[1]#_g117565_|)) + __tmp117549))) + (__tmp117524 + (let ((__tmp117545 + (let ((__tmp117546 + |gxc[1]#_g117547_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp117564))) - (__tmp117543 - (let ((__tmp117560 - (let ((__tmp117561 |gxc[1]#_g117562_|)) + __tmp117546))) + (__tmp117525 + (let ((__tmp117542 + (let ((__tmp117543 |gxc[1]#_g117544_|)) (declare (not safe)) - (cons 'final? __tmp117561))) - (__tmp117544 - (let ((__tmp117557 - (let ((__tmp117558 |gxc[1]#_g117559_|)) + (cons 'final? __tmp117543))) + (__tmp117526 + (let ((__tmp117539 + (let ((__tmp117540 |gxc[1]#_g117541_|)) (declare (not safe)) - (cons 'system? __tmp117558))) - (__tmp117545 - (let ((__tmp117554 - (let ((__tmp117555 |gxc[1]#_g117556_|)) + (cons 'system? __tmp117540))) + (__tmp117527 + (let ((__tmp117536 + (let ((__tmp117537 |gxc[1]#_g117538_|)) (declare (not safe)) - (cons 'metaclass __tmp117555))) - (__tmp117546 - (let ((__tmp117551 - (let ((__tmp117552 - |gxc[1]#_g117553_|)) + (cons 'metaclass __tmp117537))) + (__tmp117528 + (let ((__tmp117533 + (let ((__tmp117534 + |gxc[1]#_g117535_|)) (declare (not safe)) - (cons 'methods __tmp117552))) - (__tmp117547 - (let ((__tmp117548 - (let ((__tmp117549 - |gxc[1]#_g117550_|)) + (cons 'methods __tmp117534))) + (__tmp117529 + (let ((__tmp117530 + (let ((__tmp117531 + |gxc[1]#_g117532_|)) (declare (not safe)) - (cons 'id __tmp117549)))) + (cons 'id __tmp117531)))) (declare (not safe)) - (cons __tmp117548 '())))) + (cons __tmp117530 '())))) (declare (not safe)) - (cons __tmp117551 __tmp117547)))) + (cons __tmp117533 __tmp117529)))) (declare (not safe)) - (cons __tmp117554 __tmp117546)))) + (cons __tmp117536 __tmp117528)))) (declare (not safe)) - (cons __tmp117557 __tmp117545)))) + (cons __tmp117539 __tmp117527)))) (declare (not safe)) - (cons __tmp117560 __tmp117544)))) + (cons __tmp117542 __tmp117526)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp117563 - __tmp117543)))) + (cons __tmp117545 + __tmp117525)))) (declare (not safe)) - (cons __tmp117566 __tmp117542)))) + (cons __tmp117548 __tmp117524)))) (declare (not safe)) - (cons __tmp117569 __tmp117541)))) + (cons __tmp117551 __tmp117523)))) (declare (not safe)) - (cons __tmp117572 __tmp117540)))) + (cons __tmp117554 __tmp117522)))) (declare (not safe)) - (cons __tmp117575 __tmp117539)))) + (cons __tmp117557 __tmp117521)))) (declare (not safe)) - (cons __tmp117578 __tmp117538)))) + (cons __tmp117560 __tmp117520)))) (declare (not safe)) (##unchecked-structure-set! - __obj117108 - __tmp117537 + __obj117090 + __tmp117519 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117108)) + __obj117090)) (define |gxc[:0:]#!predicate| - (let ((__obj117109 + (let ((__obj117091 (let () (declare (not safe)) (##structure @@ -2885,7 +2885,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117109 + __obj117091 'gxc#!predicate::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -2893,7 +2893,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117109 + __obj117091 '!predicate '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2901,26 +2901,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117109 + __obj117091 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117581 - (let ((__tmp117582 |gxc[1]#_g117583_|)) + (let ((__tmp117563 + (let ((__tmp117564 |gxc[1]#_g117565_|)) (declare (not safe)) - (cons __tmp117582 '())))) + (cons __tmp117564 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117581 + __obj117091 + __tmp117563 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117109 + __obj117091 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2928,7 +2928,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117109 + __obj117091 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2936,7 +2936,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117109 + __obj117091 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2944,94 +2944,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117109 + __obj117091 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117584 |gxc[1]#_g117585_|)) + (let ((__tmp117566 |gxc[1]#_g117567_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117584 + __obj117091 + __tmp117566 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117586 |gxc[1]#_g117587_|)) + (let ((__tmp117568 |gxc[1]#_g117569_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117586 + __obj117091 + __tmp117568 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117588 |gxc[1]#_g117589_|)) + (let ((__tmp117570 |gxc[1]#_g117571_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117588 + __obj117091 + __tmp117570 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117590 - (let ((__tmp117591 - (let ((__tmp117592 |gxc[1]#_g117593_|)) + (let ((__tmp117572 + (let ((__tmp117573 + (let ((__tmp117574 |gxc[1]#_g117575_|)) (declare (not safe)) - (cons 'id __tmp117592)))) + (cons 'id __tmp117574)))) (declare (not safe)) - (cons __tmp117591 '())))) + (cons __tmp117573 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117590 + __obj117091 + __tmp117572 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117594 - (let ((__tmp117595 - (let ((__tmp117596 |gxc[1]#_g117597_|)) + (let ((__tmp117576 + (let ((__tmp117577 + (let ((__tmp117578 |gxc[1]#_g117579_|)) (declare (not safe)) - (cons 'id __tmp117596)))) + (cons 'id __tmp117578)))) (declare (not safe)) - (cons __tmp117595 '())))) + (cons __tmp117577 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117594 + __obj117091 + __tmp117576 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117598 - (let ((__tmp117599 - (let ((__tmp117600 |gxc[1]#_g117601_|)) + (let ((__tmp117580 + (let ((__tmp117581 + (let ((__tmp117582 |gxc[1]#_g117583_|)) (declare (not safe)) - (cons 'id __tmp117600)))) + (cons 'id __tmp117582)))) (declare (not safe)) - (cons __tmp117599 '())))) + (cons __tmp117581 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117598 + __obj117091 + __tmp117580 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117602 - (let ((__tmp117603 - (let ((__tmp117604 |gxc[1]#_g117605_|)) + (let ((__tmp117584 + (let ((__tmp117585 + (let ((__tmp117586 |gxc[1]#_g117587_|)) (declare (not safe)) - (cons 'id __tmp117604)))) + (cons 'id __tmp117586)))) (declare (not safe)) - (cons __tmp117603 '())))) + (cons __tmp117585 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117109 - __tmp117602 + __obj117091 + __tmp117584 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117109)) + __obj117091)) (define |gxc[:0:]#!constructor| - (let ((__obj117110 + (let ((__obj117092 (let () (declare (not safe)) (##structure @@ -3055,7 +3055,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117110 + __obj117092 'gxc#!constructor::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3063,7 +3063,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117110 + __obj117092 '!constructor '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3071,26 +3071,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117110 + __obj117092 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117606 - (let ((__tmp117607 |gxc[1]#_g117583_|)) + (let ((__tmp117588 + (let ((__tmp117589 |gxc[1]#_g117565_|)) (declare (not safe)) - (cons __tmp117607 '())))) + (cons __tmp117589 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117606 + __obj117092 + __tmp117588 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117110 + __obj117092 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3098,7 +3098,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117110 + __obj117092 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3106,7 +3106,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117110 + __obj117092 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3114,94 +3114,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117110 + __obj117092 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117608 |gxc[1]#_g117609_|)) + (let ((__tmp117590 |gxc[1]#_g117591_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117608 + __obj117092 + __tmp117590 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117610 |gxc[1]#_g117611_|)) + (let ((__tmp117592 |gxc[1]#_g117593_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117610 + __obj117092 + __tmp117592 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117612 |gxc[1]#_g117613_|)) + (let ((__tmp117594 |gxc[1]#_g117595_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117612 + __obj117092 + __tmp117594 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117614 - (let ((__tmp117615 - (let ((__tmp117616 |gxc[1]#_g117617_|)) + (let ((__tmp117596 + (let ((__tmp117597 + (let ((__tmp117598 |gxc[1]#_g117599_|)) (declare (not safe)) - (cons 'id __tmp117616)))) + (cons 'id __tmp117598)))) (declare (not safe)) - (cons __tmp117615 '())))) + (cons __tmp117597 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117614 + __obj117092 + __tmp117596 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117618 - (let ((__tmp117619 - (let ((__tmp117620 |gxc[1]#_g117621_|)) + (let ((__tmp117600 + (let ((__tmp117601 + (let ((__tmp117602 |gxc[1]#_g117603_|)) (declare (not safe)) - (cons 'id __tmp117620)))) + (cons 'id __tmp117602)))) (declare (not safe)) - (cons __tmp117619 '())))) + (cons __tmp117601 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117618 + __obj117092 + __tmp117600 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117622 - (let ((__tmp117623 - (let ((__tmp117624 |gxc[1]#_g117625_|)) + (let ((__tmp117604 + (let ((__tmp117605 + (let ((__tmp117606 |gxc[1]#_g117607_|)) (declare (not safe)) - (cons 'id __tmp117624)))) + (cons 'id __tmp117606)))) (declare (not safe)) - (cons __tmp117623 '())))) + (cons __tmp117605 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117622 + __obj117092 + __tmp117604 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117626 - (let ((__tmp117627 - (let ((__tmp117628 |gxc[1]#_g117629_|)) + (let ((__tmp117608 + (let ((__tmp117609 + (let ((__tmp117610 |gxc[1]#_g117611_|)) (declare (not safe)) - (cons 'id __tmp117628)))) + (cons 'id __tmp117610)))) (declare (not safe)) - (cons __tmp117627 '())))) + (cons __tmp117609 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117110 - __tmp117626 + __obj117092 + __tmp117608 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117110)) + __obj117092)) (define |gxc[:0:]#!accessor| - (let ((__obj117111 + (let ((__obj117093 (let () (declare (not safe)) (##structure @@ -3225,7 +3225,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117111 + __obj117093 'gxc#!accessor::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3233,7 +3233,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117111 + __obj117093 '!accessor '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3241,26 +3241,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117111 + __obj117093 '(slot checked?) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117630 - (let ((__tmp117631 |gxc[1]#_g117583_|)) + (let ((__tmp117612 + (let ((__tmp117613 |gxc[1]#_g117565_|)) (declare (not safe)) - (cons __tmp117631 '())))) + (cons __tmp117613 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117630 + __obj117093 + __tmp117612 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117111 + __obj117093 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3268,7 +3268,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117111 + __obj117093 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3276,7 +3276,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117111 + __obj117093 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3284,150 +3284,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117111 + __obj117093 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117632 |gxc[1]#_g117633_|)) + (let ((__tmp117614 |gxc[1]#_g117615_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117632 + __obj117093 + __tmp117614 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117634 |gxc[1]#_g117635_|)) + (let ((__tmp117616 |gxc[1]#_g117617_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117634 + __obj117093 + __tmp117616 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117636 |gxc[1]#_g117637_|)) + (let ((__tmp117618 |gxc[1]#_g117619_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117636 + __obj117093 + __tmp117618 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117638 - (let ((__tmp117647 - (let ((__tmp117648 |gxc[1]#_g117649_|)) + (let ((__tmp117620 + (let ((__tmp117629 + (let ((__tmp117630 |gxc[1]#_g117631_|)) (declare (not safe)) - (cons 'slot __tmp117648))) - (__tmp117639 - (let ((__tmp117644 - (let ((__tmp117645 |gxc[1]#_g117646_|)) + (cons 'slot __tmp117630))) + (__tmp117621 + (let ((__tmp117626 + (let ((__tmp117627 |gxc[1]#_g117628_|)) (declare (not safe)) - (cons 'checked? __tmp117645))) - (__tmp117640 - (let ((__tmp117641 - (let ((__tmp117642 |gxc[1]#_g117643_|)) + (cons 'checked? __tmp117627))) + (__tmp117622 + (let ((__tmp117623 + (let ((__tmp117624 |gxc[1]#_g117625_|)) (declare (not safe)) - (cons 'id __tmp117642)))) + (cons 'id __tmp117624)))) (declare (not safe)) - (cons __tmp117641 '())))) + (cons __tmp117623 '())))) (declare (not safe)) - (cons __tmp117644 __tmp117640)))) + (cons __tmp117626 __tmp117622)))) (declare (not safe)) - (cons __tmp117647 __tmp117639)))) + (cons __tmp117629 __tmp117621)))) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117638 + __obj117093 + __tmp117620 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117650 - (let ((__tmp117659 - (let ((__tmp117660 |gxc[1]#_g117661_|)) + (let ((__tmp117632 + (let ((__tmp117641 + (let ((__tmp117642 |gxc[1]#_g117643_|)) (declare (not safe)) - (cons 'slot __tmp117660))) - (__tmp117651 - (let ((__tmp117656 - (let ((__tmp117657 |gxc[1]#_g117658_|)) + (cons 'slot __tmp117642))) + (__tmp117633 + (let ((__tmp117638 + (let ((__tmp117639 |gxc[1]#_g117640_|)) (declare (not safe)) - (cons 'checked? __tmp117657))) - (__tmp117652 - (let ((__tmp117653 - (let ((__tmp117654 |gxc[1]#_g117655_|)) + (cons 'checked? __tmp117639))) + (__tmp117634 + (let ((__tmp117635 + (let ((__tmp117636 |gxc[1]#_g117637_|)) (declare (not safe)) - (cons 'id __tmp117654)))) + (cons 'id __tmp117636)))) (declare (not safe)) - (cons __tmp117653 '())))) + (cons __tmp117635 '())))) (declare (not safe)) - (cons __tmp117656 __tmp117652)))) + (cons __tmp117638 __tmp117634)))) (declare (not safe)) - (cons __tmp117659 __tmp117651)))) + (cons __tmp117641 __tmp117633)))) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117650 + __obj117093 + __tmp117632 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117662 - (let ((__tmp117671 - (let ((__tmp117672 |gxc[1]#_g117673_|)) + (let ((__tmp117644 + (let ((__tmp117653 + (let ((__tmp117654 |gxc[1]#_g117655_|)) (declare (not safe)) - (cons 'slot __tmp117672))) - (__tmp117663 - (let ((__tmp117668 - (let ((__tmp117669 |gxc[1]#_g117670_|)) + (cons 'slot __tmp117654))) + (__tmp117645 + (let ((__tmp117650 + (let ((__tmp117651 |gxc[1]#_g117652_|)) (declare (not safe)) - (cons 'checked? __tmp117669))) - (__tmp117664 - (let ((__tmp117665 - (let ((__tmp117666 |gxc[1]#_g117667_|)) + (cons 'checked? __tmp117651))) + (__tmp117646 + (let ((__tmp117647 + (let ((__tmp117648 |gxc[1]#_g117649_|)) (declare (not safe)) - (cons 'id __tmp117666)))) + (cons 'id __tmp117648)))) (declare (not safe)) - (cons __tmp117665 '())))) + (cons __tmp117647 '())))) (declare (not safe)) - (cons __tmp117668 __tmp117664)))) + (cons __tmp117650 __tmp117646)))) (declare (not safe)) - (cons __tmp117671 __tmp117663)))) + (cons __tmp117653 __tmp117645)))) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117662 + __obj117093 + __tmp117644 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117674 - (let ((__tmp117683 - (let ((__tmp117684 |gxc[1]#_g117685_|)) + (let ((__tmp117656 + (let ((__tmp117665 + (let ((__tmp117666 |gxc[1]#_g117667_|)) (declare (not safe)) - (cons 'slot __tmp117684))) - (__tmp117675 - (let ((__tmp117680 - (let ((__tmp117681 |gxc[1]#_g117682_|)) + (cons 'slot __tmp117666))) + (__tmp117657 + (let ((__tmp117662 + (let ((__tmp117663 |gxc[1]#_g117664_|)) (declare (not safe)) - (cons 'checked? __tmp117681))) - (__tmp117676 - (let ((__tmp117677 - (let ((__tmp117678 |gxc[1]#_g117679_|)) + (cons 'checked? __tmp117663))) + (__tmp117658 + (let ((__tmp117659 + (let ((__tmp117660 |gxc[1]#_g117661_|)) (declare (not safe)) - (cons 'id __tmp117678)))) + (cons 'id __tmp117660)))) (declare (not safe)) - (cons __tmp117677 '())))) + (cons __tmp117659 '())))) (declare (not safe)) - (cons __tmp117680 __tmp117676)))) + (cons __tmp117662 __tmp117658)))) (declare (not safe)) - (cons __tmp117683 __tmp117675)))) + (cons __tmp117665 __tmp117657)))) (declare (not safe)) (##unchecked-structure-set! - __obj117111 - __tmp117674 + __obj117093 + __tmp117656 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117111)) + __obj117093)) (define |gxc[:0:]#!mutator| - (let ((__obj117112 + (let ((__obj117094 (let () (declare (not safe)) (##structure @@ -3451,7 +3451,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117112 + __obj117094 'gxc#!mutator::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3459,7 +3459,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117112 + __obj117094 '!mutator '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3467,26 +3467,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117112 + __obj117094 '(slot checked?) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117686 - (let ((__tmp117687 |gxc[1]#_g117583_|)) + (let ((__tmp117668 + (let ((__tmp117669 |gxc[1]#_g117565_|)) (declare (not safe)) - (cons __tmp117687 '())))) + (cons __tmp117669 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117686 + __obj117094 + __tmp117668 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117112 + __obj117094 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3494,7 +3494,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117112 + __obj117094 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3502,7 +3502,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117112 + __obj117094 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3510,150 +3510,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117112 + __obj117094 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117688 |gxc[1]#_g117689_|)) + (let ((__tmp117670 |gxc[1]#_g117671_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117688 + __obj117094 + __tmp117670 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117690 |gxc[1]#_g117691_|)) + (let ((__tmp117672 |gxc[1]#_g117673_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117690 + __obj117094 + __tmp117672 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117692 |gxc[1]#_g117693_|)) + (let ((__tmp117674 |gxc[1]#_g117675_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117692 + __obj117094 + __tmp117674 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117694 - (let ((__tmp117703 - (let ((__tmp117704 |gxc[1]#_g117705_|)) + (let ((__tmp117676 + (let ((__tmp117685 + (let ((__tmp117686 |gxc[1]#_g117687_|)) (declare (not safe)) - (cons 'slot __tmp117704))) - (__tmp117695 - (let ((__tmp117700 - (let ((__tmp117701 |gxc[1]#_g117702_|)) + (cons 'slot __tmp117686))) + (__tmp117677 + (let ((__tmp117682 + (let ((__tmp117683 |gxc[1]#_g117684_|)) (declare (not safe)) - (cons 'checked? __tmp117701))) - (__tmp117696 - (let ((__tmp117697 - (let ((__tmp117698 |gxc[1]#_g117699_|)) + (cons 'checked? __tmp117683))) + (__tmp117678 + (let ((__tmp117679 + (let ((__tmp117680 |gxc[1]#_g117681_|)) (declare (not safe)) - (cons 'id __tmp117698)))) + (cons 'id __tmp117680)))) (declare (not safe)) - (cons __tmp117697 '())))) + (cons __tmp117679 '())))) (declare (not safe)) - (cons __tmp117700 __tmp117696)))) + (cons __tmp117682 __tmp117678)))) (declare (not safe)) - (cons __tmp117703 __tmp117695)))) + (cons __tmp117685 __tmp117677)))) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117694 + __obj117094 + __tmp117676 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117706 - (let ((__tmp117715 - (let ((__tmp117716 |gxc[1]#_g117717_|)) + (let ((__tmp117688 + (let ((__tmp117697 + (let ((__tmp117698 |gxc[1]#_g117699_|)) (declare (not safe)) - (cons 'slot __tmp117716))) - (__tmp117707 - (let ((__tmp117712 - (let ((__tmp117713 |gxc[1]#_g117714_|)) + (cons 'slot __tmp117698))) + (__tmp117689 + (let ((__tmp117694 + (let ((__tmp117695 |gxc[1]#_g117696_|)) (declare (not safe)) - (cons 'checked? __tmp117713))) - (__tmp117708 - (let ((__tmp117709 - (let ((__tmp117710 |gxc[1]#_g117711_|)) + (cons 'checked? __tmp117695))) + (__tmp117690 + (let ((__tmp117691 + (let ((__tmp117692 |gxc[1]#_g117693_|)) (declare (not safe)) - (cons 'id __tmp117710)))) + (cons 'id __tmp117692)))) (declare (not safe)) - (cons __tmp117709 '())))) + (cons __tmp117691 '())))) (declare (not safe)) - (cons __tmp117712 __tmp117708)))) + (cons __tmp117694 __tmp117690)))) (declare (not safe)) - (cons __tmp117715 __tmp117707)))) + (cons __tmp117697 __tmp117689)))) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117706 + __obj117094 + __tmp117688 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117718 - (let ((__tmp117727 - (let ((__tmp117728 |gxc[1]#_g117729_|)) + (let ((__tmp117700 + (let ((__tmp117709 + (let ((__tmp117710 |gxc[1]#_g117711_|)) (declare (not safe)) - (cons 'slot __tmp117728))) - (__tmp117719 - (let ((__tmp117724 - (let ((__tmp117725 |gxc[1]#_g117726_|)) + (cons 'slot __tmp117710))) + (__tmp117701 + (let ((__tmp117706 + (let ((__tmp117707 |gxc[1]#_g117708_|)) (declare (not safe)) - (cons 'checked? __tmp117725))) - (__tmp117720 - (let ((__tmp117721 - (let ((__tmp117722 |gxc[1]#_g117723_|)) + (cons 'checked? __tmp117707))) + (__tmp117702 + (let ((__tmp117703 + (let ((__tmp117704 |gxc[1]#_g117705_|)) (declare (not safe)) - (cons 'id __tmp117722)))) + (cons 'id __tmp117704)))) (declare (not safe)) - (cons __tmp117721 '())))) + (cons __tmp117703 '())))) (declare (not safe)) - (cons __tmp117724 __tmp117720)))) + (cons __tmp117706 __tmp117702)))) (declare (not safe)) - (cons __tmp117727 __tmp117719)))) + (cons __tmp117709 __tmp117701)))) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117718 + __obj117094 + __tmp117700 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117730 - (let ((__tmp117739 - (let ((__tmp117740 |gxc[1]#_g117741_|)) + (let ((__tmp117712 + (let ((__tmp117721 + (let ((__tmp117722 |gxc[1]#_g117723_|)) (declare (not safe)) - (cons 'slot __tmp117740))) - (__tmp117731 - (let ((__tmp117736 - (let ((__tmp117737 |gxc[1]#_g117738_|)) + (cons 'slot __tmp117722))) + (__tmp117713 + (let ((__tmp117718 + (let ((__tmp117719 |gxc[1]#_g117720_|)) (declare (not safe)) - (cons 'checked? __tmp117737))) - (__tmp117732 - (let ((__tmp117733 - (let ((__tmp117734 |gxc[1]#_g117735_|)) + (cons 'checked? __tmp117719))) + (__tmp117714 + (let ((__tmp117715 + (let ((__tmp117716 |gxc[1]#_g117717_|)) (declare (not safe)) - (cons 'id __tmp117734)))) + (cons 'id __tmp117716)))) (declare (not safe)) - (cons __tmp117733 '())))) + (cons __tmp117715 '())))) (declare (not safe)) - (cons __tmp117736 __tmp117732)))) + (cons __tmp117718 __tmp117714)))) (declare (not safe)) - (cons __tmp117739 __tmp117731)))) + (cons __tmp117721 __tmp117713)))) (declare (not safe)) (##unchecked-structure-set! - __obj117112 - __tmp117730 + __obj117094 + __tmp117712 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117112)) + __obj117094)) (define |gxc[:0:]#!lambda| - (let ((__obj117113 + (let ((__obj117095 (let () (declare (not safe)) (##structure @@ -3677,7 +3677,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117095 'gxc#!lambda::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -3685,7 +3685,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117095 '!lambda '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3693,26 +3693,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117095 '(arity dispatch inline inline-typedecl) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117742 - (let ((__tmp117743 |gxc[1]#_g117583_|)) + (let ((__tmp117724 + (let ((__tmp117725 |gxc[1]#_g117565_|)) (declare (not safe)) - (cons __tmp117743 '())))) + (cons __tmp117725 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117113 - __tmp117742 + __obj117095 + __tmp117724 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117095 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3720,7 +3720,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117095 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3728,7 +3728,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117095 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3736,218 +3736,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117113 + __obj117095 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117744 |gxc[1]#_g117745_|)) + (let ((__tmp117726 |gxc[1]#_g117727_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117113 - __tmp117744 + __obj117095 + __tmp117726 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117746 |gxc[1]#_g117747_|)) + (let ((__tmp117728 |gxc[1]#_g117729_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117113 - __tmp117746 + __obj117095 + __tmp117728 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117748 |gxc[1]#_g117749_|)) + (let ((__tmp117730 |gxc[1]#_g117731_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117113 - __tmp117748 + __obj117095 + __tmp117730 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117750 - (let ((__tmp117767 - (let ((__tmp117768 |gxc[1]#_g117769_|)) + (let ((__tmp117732 + (let ((__tmp117749 + (let ((__tmp117750 |gxc[1]#_g117751_|)) (declare (not safe)) - (cons 'arity __tmp117768))) - (__tmp117751 - (let ((__tmp117764 - (let ((__tmp117765 |gxc[1]#_g117766_|)) + (cons 'arity __tmp117750))) + (__tmp117733 + (let ((__tmp117746 + (let ((__tmp117747 |gxc[1]#_g117748_|)) (declare (not safe)) - (cons 'dispatch __tmp117765))) - (__tmp117752 - (let ((__tmp117761 - (let ((__tmp117762 |gxc[1]#_g117763_|)) + (cons 'dispatch __tmp117747))) + (__tmp117734 + (let ((__tmp117743 + (let ((__tmp117744 |gxc[1]#_g117745_|)) (declare (not safe)) - (cons 'inline __tmp117762))) - (__tmp117753 - (let ((__tmp117758 - (let ((__tmp117759 - |gxc[1]#_g117760_|)) + (cons 'inline __tmp117744))) + (__tmp117735 + (let ((__tmp117740 + (let ((__tmp117741 + |gxc[1]#_g117742_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp117759))) - (__tmp117754 - (let ((__tmp117755 - (let ((__tmp117756 - |gxc[1]#_g117757_|)) + __tmp117741))) + (__tmp117736 + (let ((__tmp117737 + (let ((__tmp117738 + |gxc[1]#_g117739_|)) (declare (not safe)) - (cons 'id __tmp117756)))) + (cons 'id __tmp117738)))) (declare (not safe)) - (cons __tmp117755 '())))) + (cons __tmp117737 '())))) (declare (not safe)) - (cons __tmp117758 __tmp117754)))) + (cons __tmp117740 __tmp117736)))) (declare (not safe)) - (cons __tmp117761 __tmp117753)))) + (cons __tmp117743 __tmp117735)))) (declare (not safe)) - (cons __tmp117764 __tmp117752)))) + (cons __tmp117746 __tmp117734)))) (declare (not safe)) - (cons __tmp117767 __tmp117751)))) + (cons __tmp117749 __tmp117733)))) (declare (not safe)) (##unchecked-structure-set! - __obj117113 - __tmp117750 + __obj117095 + __tmp117732 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117770 - (let ((__tmp117787 - (let ((__tmp117788 |gxc[1]#_g117789_|)) + (let ((__tmp117752 + (let ((__tmp117769 + (let ((__tmp117770 |gxc[1]#_g117771_|)) (declare (not safe)) - (cons 'arity __tmp117788))) - (__tmp117771 - (let ((__tmp117784 - (let ((__tmp117785 |gxc[1]#_g117786_|)) + (cons 'arity __tmp117770))) + (__tmp117753 + (let ((__tmp117766 + (let ((__tmp117767 |gxc[1]#_g117768_|)) (declare (not safe)) - (cons 'dispatch __tmp117785))) - (__tmp117772 - (let ((__tmp117781 - (let ((__tmp117782 |gxc[1]#_g117783_|)) + (cons 'dispatch __tmp117767))) + (__tmp117754 + (let ((__tmp117763 + (let ((__tmp117764 |gxc[1]#_g117765_|)) (declare (not safe)) - (cons 'inline __tmp117782))) - (__tmp117773 - (let ((__tmp117778 - (let ((__tmp117779 - |gxc[1]#_g117780_|)) + (cons 'inline __tmp117764))) + (__tmp117755 + (let ((__tmp117760 + (let ((__tmp117761 + |gxc[1]#_g117762_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp117779))) - (__tmp117774 - (let ((__tmp117775 - (let ((__tmp117776 - |gxc[1]#_g117777_|)) + __tmp117761))) + (__tmp117756 + (let ((__tmp117757 + (let ((__tmp117758 + |gxc[1]#_g117759_|)) (declare (not safe)) - (cons 'id __tmp117776)))) + (cons 'id __tmp117758)))) (declare (not safe)) - (cons __tmp117775 '())))) + (cons __tmp117757 '())))) (declare (not safe)) - (cons __tmp117778 __tmp117774)))) + (cons __tmp117760 __tmp117756)))) (declare (not safe)) - (cons __tmp117781 __tmp117773)))) + (cons __tmp117763 __tmp117755)))) (declare (not safe)) - (cons __tmp117784 __tmp117772)))) + (cons __tmp117766 __tmp117754)))) (declare (not safe)) - (cons __tmp117787 __tmp117771)))) + (cons __tmp117769 __tmp117753)))) (declare (not safe)) (##unchecked-structure-set! - __obj117113 - __tmp117770 + __obj117095 + __tmp117752 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117790 - (let ((__tmp117807 - (let ((__tmp117808 |gxc[1]#_g117809_|)) + (let ((__tmp117772 + (let ((__tmp117789 + (let ((__tmp117790 |gxc[1]#_g117791_|)) (declare (not safe)) - (cons 'arity __tmp117808))) - (__tmp117791 - (let ((__tmp117804 - (let ((__tmp117805 |gxc[1]#_g117806_|)) + (cons 'arity __tmp117790))) + (__tmp117773 + (let ((__tmp117786 + (let ((__tmp117787 |gxc[1]#_g117788_|)) (declare (not safe)) - (cons 'dispatch __tmp117805))) - (__tmp117792 - (let ((__tmp117801 - (let ((__tmp117802 |gxc[1]#_g117803_|)) + (cons 'dispatch __tmp117787))) + (__tmp117774 + (let ((__tmp117783 + (let ((__tmp117784 |gxc[1]#_g117785_|)) (declare (not safe)) - (cons 'inline __tmp117802))) - (__tmp117793 - (let ((__tmp117798 - (let ((__tmp117799 - |gxc[1]#_g117800_|)) + (cons 'inline __tmp117784))) + (__tmp117775 + (let ((__tmp117780 + (let ((__tmp117781 + |gxc[1]#_g117782_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp117799))) - (__tmp117794 - (let ((__tmp117795 - (let ((__tmp117796 - |gxc[1]#_g117797_|)) + __tmp117781))) + (__tmp117776 + (let ((__tmp117777 + (let ((__tmp117778 + |gxc[1]#_g117779_|)) (declare (not safe)) - (cons 'id __tmp117796)))) + (cons 'id __tmp117778)))) (declare (not safe)) - (cons __tmp117795 '())))) + (cons __tmp117777 '())))) (declare (not safe)) - (cons __tmp117798 __tmp117794)))) + (cons __tmp117780 __tmp117776)))) (declare (not safe)) - (cons __tmp117801 __tmp117793)))) + (cons __tmp117783 __tmp117775)))) (declare (not safe)) - (cons __tmp117804 __tmp117792)))) + (cons __tmp117786 __tmp117774)))) (declare (not safe)) - (cons __tmp117807 __tmp117791)))) + (cons __tmp117789 __tmp117773)))) (declare (not safe)) (##unchecked-structure-set! - __obj117113 - __tmp117790 + __obj117095 + __tmp117772 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117810 - (let ((__tmp117827 - (let ((__tmp117828 |gxc[1]#_g117829_|)) + (let ((__tmp117792 + (let ((__tmp117809 + (let ((__tmp117810 |gxc[1]#_g117811_|)) (declare (not safe)) - (cons 'arity __tmp117828))) - (__tmp117811 - (let ((__tmp117824 - (let ((__tmp117825 |gxc[1]#_g117826_|)) + (cons 'arity __tmp117810))) + (__tmp117793 + (let ((__tmp117806 + (let ((__tmp117807 |gxc[1]#_g117808_|)) (declare (not safe)) - (cons 'dispatch __tmp117825))) - (__tmp117812 - (let ((__tmp117821 - (let ((__tmp117822 |gxc[1]#_g117823_|)) + (cons 'dispatch __tmp117807))) + (__tmp117794 + (let ((__tmp117803 + (let ((__tmp117804 |gxc[1]#_g117805_|)) (declare (not safe)) - (cons 'inline __tmp117822))) - (__tmp117813 - (let ((__tmp117818 - (let ((__tmp117819 - |gxc[1]#_g117820_|)) + (cons 'inline __tmp117804))) + (__tmp117795 + (let ((__tmp117800 + (let ((__tmp117801 + |gxc[1]#_g117802_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp117819))) - (__tmp117814 - (let ((__tmp117815 - (let ((__tmp117816 - |gxc[1]#_g117817_|)) + __tmp117801))) + (__tmp117796 + (let ((__tmp117797 + (let ((__tmp117798 + |gxc[1]#_g117799_|)) (declare (not safe)) - (cons 'id __tmp117816)))) + (cons 'id __tmp117798)))) (declare (not safe)) - (cons __tmp117815 '())))) + (cons __tmp117797 '())))) (declare (not safe)) - (cons __tmp117818 __tmp117814)))) + (cons __tmp117800 __tmp117796)))) (declare (not safe)) - (cons __tmp117821 __tmp117813)))) + (cons __tmp117803 __tmp117795)))) (declare (not safe)) - (cons __tmp117824 __tmp117812)))) + (cons __tmp117806 __tmp117794)))) (declare (not safe)) - (cons __tmp117827 __tmp117811)))) + (cons __tmp117809 __tmp117793)))) (declare (not safe)) (##unchecked-structure-set! - __obj117113 - __tmp117810 + __obj117095 + __tmp117792 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117113)) + __obj117095)) (define |gxc[:0:]#!case-lambda| - (let ((__obj117114 + (let ((__obj117096 (let () (declare (not safe)) (##structure @@ -3971,7 +3971,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117114 + __obj117096 '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! - __obj117114 + __obj117096 '!case-lambda '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3987,26 +3987,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117114 + __obj117096 '(clauses) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117830 - (let ((__tmp117831 |gxc[1]#_g117583_|)) + (let ((__tmp117812 + (let ((__tmp117813 |gxc[1]#_g117565_|)) (declare (not safe)) - (cons __tmp117831 '())))) + (cons __tmp117813 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp117830 + __obj117096 + __tmp117812 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117114 + __obj117096 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4014,7 +4014,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117114 + __obj117096 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4022,7 +4022,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117114 + __obj117096 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4030,122 +4030,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117114 + __obj117096 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117832 |gxc[1]#_g117833_|)) + (let ((__tmp117814 |gxc[1]#_g117815_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp117832 + __obj117096 + __tmp117814 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117834 |gxc[1]#_g117835_|)) + (let ((__tmp117816 |gxc[1]#_g117817_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp117834 + __obj117096 + __tmp117816 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117836 |gxc[1]#_g117837_|)) + (let ((__tmp117818 |gxc[1]#_g117819_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp117836 + __obj117096 + __tmp117818 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117838 - (let ((__tmp117843 - (let ((__tmp117844 |gxc[1]#_g117845_|)) + (let ((__tmp117820 + (let ((__tmp117825 + (let ((__tmp117826 |gxc[1]#_g117827_|)) (declare (not safe)) - (cons 'clauses __tmp117844))) - (__tmp117839 - (let ((__tmp117840 - (let ((__tmp117841 |gxc[1]#_g117842_|)) + (cons 'clauses __tmp117826))) + (__tmp117821 + (let ((__tmp117822 + (let ((__tmp117823 |gxc[1]#_g117824_|)) (declare (not safe)) - (cons 'id __tmp117841)))) + (cons 'id __tmp117823)))) (declare (not safe)) - (cons __tmp117840 '())))) + (cons __tmp117822 '())))) (declare (not safe)) - (cons __tmp117843 __tmp117839)))) + (cons __tmp117825 __tmp117821)))) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp117838 + __obj117096 + __tmp117820 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117846 - (let ((__tmp117851 - (let ((__tmp117852 |gxc[1]#_g117853_|)) + (let ((__tmp117828 + (let ((__tmp117833 + (let ((__tmp117834 |gxc[1]#_g117835_|)) (declare (not safe)) - (cons 'clauses __tmp117852))) - (__tmp117847 - (let ((__tmp117848 - (let ((__tmp117849 |gxc[1]#_g117850_|)) + (cons 'clauses __tmp117834))) + (__tmp117829 + (let ((__tmp117830 + (let ((__tmp117831 |gxc[1]#_g117832_|)) (declare (not safe)) - (cons 'id __tmp117849)))) + (cons 'id __tmp117831)))) (declare (not safe)) - (cons __tmp117848 '())))) + (cons __tmp117830 '())))) (declare (not safe)) - (cons __tmp117851 __tmp117847)))) + (cons __tmp117833 __tmp117829)))) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp117846 + __obj117096 + __tmp117828 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117854 - (let ((__tmp117859 - (let ((__tmp117860 |gxc[1]#_g117861_|)) + (let ((__tmp117836 + (let ((__tmp117841 + (let ((__tmp117842 |gxc[1]#_g117843_|)) (declare (not safe)) - (cons 'clauses __tmp117860))) - (__tmp117855 - (let ((__tmp117856 - (let ((__tmp117857 |gxc[1]#_g117858_|)) + (cons 'clauses __tmp117842))) + (__tmp117837 + (let ((__tmp117838 + (let ((__tmp117839 |gxc[1]#_g117840_|)) (declare (not safe)) - (cons 'id __tmp117857)))) + (cons 'id __tmp117839)))) (declare (not safe)) - (cons __tmp117856 '())))) + (cons __tmp117838 '())))) (declare (not safe)) - (cons __tmp117859 __tmp117855)))) + (cons __tmp117841 __tmp117837)))) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp117854 + __obj117096 + __tmp117836 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117862 - (let ((__tmp117867 - (let ((__tmp117868 |gxc[1]#_g117869_|)) + (let ((__tmp117844 + (let ((__tmp117849 + (let ((__tmp117850 |gxc[1]#_g117851_|)) (declare (not safe)) - (cons 'clauses __tmp117868))) - (__tmp117863 - (let ((__tmp117864 - (let ((__tmp117865 |gxc[1]#_g117866_|)) + (cons 'clauses __tmp117850))) + (__tmp117845 + (let ((__tmp117846 + (let ((__tmp117847 |gxc[1]#_g117848_|)) (declare (not safe)) - (cons 'id __tmp117865)))) + (cons 'id __tmp117847)))) (declare (not safe)) - (cons __tmp117864 '())))) + (cons __tmp117846 '())))) (declare (not safe)) - (cons __tmp117867 __tmp117863)))) + (cons __tmp117849 __tmp117845)))) (declare (not safe)) (##unchecked-structure-set! - __obj117114 - __tmp117862 + __obj117096 + __tmp117844 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117114)) + __obj117096)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj117115 + (let ((__obj117097 (let () (declare (not safe)) (##structure @@ -4169,7 +4169,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117115 + __obj117097 '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! - __obj117115 + __obj117097 '!kw-lambda '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4185,26 +4185,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117115 + __obj117097 '(table dispatch) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117870 - (let ((__tmp117871 |gxc[1]#_g117583_|)) + (let ((__tmp117852 + (let ((__tmp117853 |gxc[1]#_g117565_|)) (declare (not safe)) - (cons __tmp117871 '())))) + (cons __tmp117853 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp117870 + __obj117097 + __tmp117852 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117115 + __obj117097 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4212,7 +4212,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117115 + __obj117097 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4220,7 +4220,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117115 + __obj117097 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4228,150 +4228,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117115 + __obj117097 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117872 |gxc[1]#_g117873_|)) + (let ((__tmp117854 |gxc[1]#_g117855_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp117872 + __obj117097 + __tmp117854 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117874 |gxc[1]#_g117875_|)) + (let ((__tmp117856 |gxc[1]#_g117857_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp117874 + __obj117097 + __tmp117856 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117876 |gxc[1]#_g117877_|)) + (let ((__tmp117858 |gxc[1]#_g117859_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp117876 + __obj117097 + __tmp117858 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117878 - (let ((__tmp117887 - (let ((__tmp117888 |gxc[1]#_g117889_|)) + (let ((__tmp117860 + (let ((__tmp117869 + (let ((__tmp117870 |gxc[1]#_g117871_|)) (declare (not safe)) - (cons 'table __tmp117888))) - (__tmp117879 - (let ((__tmp117884 - (let ((__tmp117885 |gxc[1]#_g117886_|)) + (cons 'table __tmp117870))) + (__tmp117861 + (let ((__tmp117866 + (let ((__tmp117867 |gxc[1]#_g117868_|)) (declare (not safe)) - (cons 'dispatch __tmp117885))) - (__tmp117880 - (let ((__tmp117881 - (let ((__tmp117882 |gxc[1]#_g117883_|)) + (cons 'dispatch __tmp117867))) + (__tmp117862 + (let ((__tmp117863 + (let ((__tmp117864 |gxc[1]#_g117865_|)) (declare (not safe)) - (cons 'id __tmp117882)))) + (cons 'id __tmp117864)))) (declare (not safe)) - (cons __tmp117881 '())))) + (cons __tmp117863 '())))) (declare (not safe)) - (cons __tmp117884 __tmp117880)))) + (cons __tmp117866 __tmp117862)))) (declare (not safe)) - (cons __tmp117887 __tmp117879)))) + (cons __tmp117869 __tmp117861)))) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp117878 + __obj117097 + __tmp117860 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117890 - (let ((__tmp117899 - (let ((__tmp117900 |gxc[1]#_g117901_|)) + (let ((__tmp117872 + (let ((__tmp117881 + (let ((__tmp117882 |gxc[1]#_g117883_|)) (declare (not safe)) - (cons 'table __tmp117900))) - (__tmp117891 - (let ((__tmp117896 - (let ((__tmp117897 |gxc[1]#_g117898_|)) + (cons 'table __tmp117882))) + (__tmp117873 + (let ((__tmp117878 + (let ((__tmp117879 |gxc[1]#_g117880_|)) (declare (not safe)) - (cons 'dispatch __tmp117897))) - (__tmp117892 - (let ((__tmp117893 - (let ((__tmp117894 |gxc[1]#_g117895_|)) + (cons 'dispatch __tmp117879))) + (__tmp117874 + (let ((__tmp117875 + (let ((__tmp117876 |gxc[1]#_g117877_|)) (declare (not safe)) - (cons 'id __tmp117894)))) + (cons 'id __tmp117876)))) (declare (not safe)) - (cons __tmp117893 '())))) + (cons __tmp117875 '())))) (declare (not safe)) - (cons __tmp117896 __tmp117892)))) + (cons __tmp117878 __tmp117874)))) (declare (not safe)) - (cons __tmp117899 __tmp117891)))) + (cons __tmp117881 __tmp117873)))) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp117890 + __obj117097 + __tmp117872 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117902 - (let ((__tmp117911 - (let ((__tmp117912 |gxc[1]#_g117913_|)) + (let ((__tmp117884 + (let ((__tmp117893 + (let ((__tmp117894 |gxc[1]#_g117895_|)) (declare (not safe)) - (cons 'table __tmp117912))) - (__tmp117903 - (let ((__tmp117908 - (let ((__tmp117909 |gxc[1]#_g117910_|)) + (cons 'table __tmp117894))) + (__tmp117885 + (let ((__tmp117890 + (let ((__tmp117891 |gxc[1]#_g117892_|)) (declare (not safe)) - (cons 'dispatch __tmp117909))) - (__tmp117904 - (let ((__tmp117905 - (let ((__tmp117906 |gxc[1]#_g117907_|)) + (cons 'dispatch __tmp117891))) + (__tmp117886 + (let ((__tmp117887 + (let ((__tmp117888 |gxc[1]#_g117889_|)) (declare (not safe)) - (cons 'id __tmp117906)))) + (cons 'id __tmp117888)))) (declare (not safe)) - (cons __tmp117905 '())))) + (cons __tmp117887 '())))) (declare (not safe)) - (cons __tmp117908 __tmp117904)))) + (cons __tmp117890 __tmp117886)))) (declare (not safe)) - (cons __tmp117911 __tmp117903)))) + (cons __tmp117893 __tmp117885)))) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp117902 + __obj117097 + __tmp117884 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117914 - (let ((__tmp117923 - (let ((__tmp117924 |gxc[1]#_g117925_|)) + (let ((__tmp117896 + (let ((__tmp117905 + (let ((__tmp117906 |gxc[1]#_g117907_|)) (declare (not safe)) - (cons 'table __tmp117924))) - (__tmp117915 - (let ((__tmp117920 - (let ((__tmp117921 |gxc[1]#_g117922_|)) + (cons 'table __tmp117906))) + (__tmp117897 + (let ((__tmp117902 + (let ((__tmp117903 |gxc[1]#_g117904_|)) (declare (not safe)) - (cons 'dispatch __tmp117921))) - (__tmp117916 - (let ((__tmp117917 - (let ((__tmp117918 |gxc[1]#_g117919_|)) + (cons 'dispatch __tmp117903))) + (__tmp117898 + (let ((__tmp117899 + (let ((__tmp117900 |gxc[1]#_g117901_|)) (declare (not safe)) - (cons 'id __tmp117918)))) + (cons 'id __tmp117900)))) (declare (not safe)) - (cons __tmp117917 '())))) + (cons __tmp117899 '())))) (declare (not safe)) - (cons __tmp117920 __tmp117916)))) + (cons __tmp117902 __tmp117898)))) (declare (not safe)) - (cons __tmp117923 __tmp117915)))) + (cons __tmp117905 __tmp117897)))) (declare (not safe)) (##unchecked-structure-set! - __obj117115 - __tmp117914 + __obj117097 + __tmp117896 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117115)) + __obj117097)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj117116 + (let ((__obj117098 (let () (declare (not safe)) (##structure @@ -4395,7 +4395,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117116 + __obj117098 '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! - __obj117116 + __obj117098 '!kw-lambda-primary '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4411,26 +4411,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117116 + __obj117098 '(keys main) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117926 - (let ((__tmp117927 |gxc[1]#_g117583_|)) + (let ((__tmp117908 + (let ((__tmp117909 |gxc[1]#_g117565_|)) (declare (not safe)) - (cons __tmp117927 '())))) + (cons __tmp117909 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj117116 - __tmp117926 + __obj117098 + __tmp117908 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117116 + __obj117098 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4438,7 +4438,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117116 + __obj117098 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4446,7 +4446,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117116 + __obj117098 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4454,150 +4454,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117116 + __obj117098 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117928 |gxc[1]#_g117929_|)) + (let ((__tmp117910 |gxc[1]#_g117911_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117116 - __tmp117928 + __obj117098 + __tmp117910 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117930 |gxc[1]#_g117931_|)) + (let ((__tmp117912 |gxc[1]#_g117913_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117116 - __tmp117930 + __obj117098 + __tmp117912 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117932 |gxc[1]#_g117933_|)) + (let ((__tmp117914 |gxc[1]#_g117915_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117116 - __tmp117932 + __obj117098 + __tmp117914 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117934 - (let ((__tmp117943 - (let ((__tmp117944 |gxc[1]#_g117945_|)) + (let ((__tmp117916 + (let ((__tmp117925 + (let ((__tmp117926 |gxc[1]#_g117927_|)) (declare (not safe)) - (cons 'keys __tmp117944))) - (__tmp117935 - (let ((__tmp117940 - (let ((__tmp117941 |gxc[1]#_g117942_|)) + (cons 'keys __tmp117926))) + (__tmp117917 + (let ((__tmp117922 + (let ((__tmp117923 |gxc[1]#_g117924_|)) (declare (not safe)) - (cons 'main __tmp117941))) - (__tmp117936 - (let ((__tmp117937 - (let ((__tmp117938 |gxc[1]#_g117939_|)) + (cons 'main __tmp117923))) + (__tmp117918 + (let ((__tmp117919 + (let ((__tmp117920 |gxc[1]#_g117921_|)) (declare (not safe)) - (cons 'id __tmp117938)))) + (cons 'id __tmp117920)))) (declare (not safe)) - (cons __tmp117937 '())))) + (cons __tmp117919 '())))) (declare (not safe)) - (cons __tmp117940 __tmp117936)))) + (cons __tmp117922 __tmp117918)))) (declare (not safe)) - (cons __tmp117943 __tmp117935)))) + (cons __tmp117925 __tmp117917)))) (declare (not safe)) (##unchecked-structure-set! - __obj117116 - __tmp117934 + __obj117098 + __tmp117916 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117946 - (let ((__tmp117955 - (let ((__tmp117956 |gxc[1]#_g117957_|)) + (let ((__tmp117928 + (let ((__tmp117937 + (let ((__tmp117938 |gxc[1]#_g117939_|)) (declare (not safe)) - (cons 'keys __tmp117956))) - (__tmp117947 - (let ((__tmp117952 - (let ((__tmp117953 |gxc[1]#_g117954_|)) + (cons 'keys __tmp117938))) + (__tmp117929 + (let ((__tmp117934 + (let ((__tmp117935 |gxc[1]#_g117936_|)) (declare (not safe)) - (cons 'main __tmp117953))) - (__tmp117948 - (let ((__tmp117949 - (let ((__tmp117950 |gxc[1]#_g117951_|)) + (cons 'main __tmp117935))) + (__tmp117930 + (let ((__tmp117931 + (let ((__tmp117932 |gxc[1]#_g117933_|)) (declare (not safe)) - (cons 'id __tmp117950)))) + (cons 'id __tmp117932)))) (declare (not safe)) - (cons __tmp117949 '())))) + (cons __tmp117931 '())))) (declare (not safe)) - (cons __tmp117952 __tmp117948)))) + (cons __tmp117934 __tmp117930)))) (declare (not safe)) - (cons __tmp117955 __tmp117947)))) + (cons __tmp117937 __tmp117929)))) (declare (not safe)) (##unchecked-structure-set! - __obj117116 - __tmp117946 + __obj117098 + __tmp117928 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117958 - (let ((__tmp117967 - (let ((__tmp117968 |gxc[1]#_g117969_|)) + (let ((__tmp117940 + (let ((__tmp117949 + (let ((__tmp117950 |gxc[1]#_g117951_|)) (declare (not safe)) - (cons 'keys __tmp117968))) - (__tmp117959 - (let ((__tmp117964 - (let ((__tmp117965 |gxc[1]#_g117966_|)) + (cons 'keys __tmp117950))) + (__tmp117941 + (let ((__tmp117946 + (let ((__tmp117947 |gxc[1]#_g117948_|)) (declare (not safe)) - (cons 'main __tmp117965))) - (__tmp117960 - (let ((__tmp117961 - (let ((__tmp117962 |gxc[1]#_g117963_|)) + (cons 'main __tmp117947))) + (__tmp117942 + (let ((__tmp117943 + (let ((__tmp117944 |gxc[1]#_g117945_|)) (declare (not safe)) - (cons 'id __tmp117962)))) + (cons 'id __tmp117944)))) (declare (not safe)) - (cons __tmp117961 '())))) + (cons __tmp117943 '())))) (declare (not safe)) - (cons __tmp117964 __tmp117960)))) + (cons __tmp117946 __tmp117942)))) (declare (not safe)) - (cons __tmp117967 __tmp117959)))) + (cons __tmp117949 __tmp117941)))) (declare (not safe)) (##unchecked-structure-set! - __obj117116 - __tmp117958 + __obj117098 + __tmp117940 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117970 - (let ((__tmp117979 - (let ((__tmp117980 |gxc[1]#_g117981_|)) + (let ((__tmp117952 + (let ((__tmp117961 + (let ((__tmp117962 |gxc[1]#_g117963_|)) (declare (not safe)) - (cons 'keys __tmp117980))) - (__tmp117971 - (let ((__tmp117976 - (let ((__tmp117977 |gxc[1]#_g117978_|)) + (cons 'keys __tmp117962))) + (__tmp117953 + (let ((__tmp117958 + (let ((__tmp117959 |gxc[1]#_g117960_|)) (declare (not safe)) - (cons 'main __tmp117977))) - (__tmp117972 - (let ((__tmp117973 - (let ((__tmp117974 |gxc[1]#_g117975_|)) + (cons 'main __tmp117959))) + (__tmp117954 + (let ((__tmp117955 + (let ((__tmp117956 |gxc[1]#_g117957_|)) (declare (not safe)) - (cons 'id __tmp117974)))) + (cons 'id __tmp117956)))) (declare (not safe)) - (cons __tmp117973 '())))) + (cons __tmp117955 '())))) (declare (not safe)) - (cons __tmp117976 __tmp117972)))) + (cons __tmp117958 __tmp117954)))) (declare (not safe)) - (cons __tmp117979 __tmp117971)))) + (cons __tmp117961 __tmp117953)))) (declare (not safe)) (##unchecked-structure-set! - __obj117116 - __tmp117970 + __obj117098 + __tmp117952 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117116)) + __obj117098)) (define |gxc[:0:]#!primitive| - (let ((__obj117117 + (let ((__obj117099 (let () (declare (not safe)) (##structure @@ -4621,7 +4621,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117117 + __obj117099 'gxc#!primitive::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -4629,7 +4629,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117117 + __obj117099 '!primitive '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4637,7 +4637,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117117 + __obj117099 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -4645,7 +4645,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117117 + __obj117099 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -4653,7 +4653,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117117 + __obj117099 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4661,7 +4661,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117117 + __obj117099 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4669,7 +4669,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117117 + __obj117099 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4677,39 +4677,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117117 + __obj117099 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117982 |gxc[1]#_g117983_|)) + (let ((__tmp117964 |gxc[1]#_g117965_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117117 - __tmp117982 + __obj117099 + __tmp117964 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117984 |gxc[1]#_g117985_|)) + (let ((__tmp117966 |gxc[1]#_g117967_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117117 - __tmp117984 + __obj117099 + __tmp117966 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117986 |gxc[1]#_g117987_|)) + (let ((__tmp117968 |gxc[1]#_g117969_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117117 - __tmp117986 + __obj117099 + __tmp117968 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117117 + __obj117099 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -4717,7 +4717,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117117 + __obj117099 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -4725,7 +4725,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117117 + __obj117099 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -4733,14 +4733,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117117 + __obj117099 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117117)) + __obj117099)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj117118 + (let ((__obj117100 (let () (declare (not safe)) (##structure @@ -4764,7 +4764,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117118 + __obj117100 '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! - __obj117118 + __obj117100 '!primitive-lambda '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4780,30 +4780,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117118 + __obj117100 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117988 - (let ((__tmp117992 |gxc[1]#_g117993_|) - (__tmp117989 - (let ((__tmp117990 |gxc[1]#_g117991_|)) + (let ((__tmp117970 + (let ((__tmp117974 |gxc[1]#_g117975_|) + (__tmp117971 + (let ((__tmp117972 |gxc[1]#_g117973_|)) (declare (not safe)) - (cons __tmp117990 '())))) + (cons __tmp117972 '())))) (declare (not safe)) - (cons __tmp117992 __tmp117989)))) + (cons __tmp117974 __tmp117971)))) (declare (not safe)) (##unchecked-structure-set! - __obj117118 - __tmp117988 + __obj117100 + __tmp117970 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117118 + __obj117100 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4811,7 +4811,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117118 + __obj117100 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4819,7 +4819,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117118 + __obj117100 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4827,218 +4827,218 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117118 + __obj117100 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117994 |gxc[1]#_g117995_|)) + (let ((__tmp117976 |gxc[1]#_g117977_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117118 - __tmp117994 + __obj117100 + __tmp117976 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117996 |gxc[1]#_g117997_|)) + (let ((__tmp117978 |gxc[1]#_g117979_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117118 - __tmp117996 + __obj117100 + __tmp117978 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp117998 |gxc[1]#_g117999_|)) + (let ((__tmp117980 |gxc[1]#_g117981_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117118 - __tmp117998 + __obj117100 + __tmp117980 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118000 - (let ((__tmp118017 - (let ((__tmp118018 |gxc[1]#_g118019_|)) + (let ((__tmp117982 + (let ((__tmp117999 + (let ((__tmp118000 |gxc[1]#_g118001_|)) (declare (not safe)) - (cons 'arity __tmp118018))) - (__tmp118001 - (let ((__tmp118014 - (let ((__tmp118015 |gxc[1]#_g118016_|)) + (cons 'arity __tmp118000))) + (__tmp117983 + (let ((__tmp117996 + (let ((__tmp117997 |gxc[1]#_g117998_|)) (declare (not safe)) - (cons 'dispatch __tmp118015))) - (__tmp118002 - (let ((__tmp118011 - (let ((__tmp118012 |gxc[1]#_g118013_|)) + (cons 'dispatch __tmp117997))) + (__tmp117984 + (let ((__tmp117993 + (let ((__tmp117994 |gxc[1]#_g117995_|)) (declare (not safe)) - (cons 'inline __tmp118012))) - (__tmp118003 - (let ((__tmp118008 - (let ((__tmp118009 - |gxc[1]#_g118010_|)) + (cons 'inline __tmp117994))) + (__tmp117985 + (let ((__tmp117990 + (let ((__tmp117991 + |gxc[1]#_g117992_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp118009))) - (__tmp118004 - (let ((__tmp118005 - (let ((__tmp118006 - |gxc[1]#_g118007_|)) + __tmp117991))) + (__tmp117986 + (let ((__tmp117987 + (let ((__tmp117988 + |gxc[1]#_g117989_|)) (declare (not safe)) - (cons 'id __tmp118006)))) + (cons 'id __tmp117988)))) (declare (not safe)) - (cons __tmp118005 '())))) + (cons __tmp117987 '())))) (declare (not safe)) - (cons __tmp118008 __tmp118004)))) + (cons __tmp117990 __tmp117986)))) (declare (not safe)) - (cons __tmp118011 __tmp118003)))) + (cons __tmp117993 __tmp117985)))) (declare (not safe)) - (cons __tmp118014 __tmp118002)))) + (cons __tmp117996 __tmp117984)))) (declare (not safe)) - (cons __tmp118017 __tmp118001)))) + (cons __tmp117999 __tmp117983)))) (declare (not safe)) (##unchecked-structure-set! - __obj117118 - __tmp118000 + __obj117100 + __tmp117982 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118020 - (let ((__tmp118037 - (let ((__tmp118038 |gxc[1]#_g118039_|)) + (let ((__tmp118002 + (let ((__tmp118019 + (let ((__tmp118020 |gxc[1]#_g118021_|)) (declare (not safe)) - (cons 'arity __tmp118038))) - (__tmp118021 - (let ((__tmp118034 - (let ((__tmp118035 |gxc[1]#_g118036_|)) + (cons 'arity __tmp118020))) + (__tmp118003 + (let ((__tmp118016 + (let ((__tmp118017 |gxc[1]#_g118018_|)) (declare (not safe)) - (cons 'dispatch __tmp118035))) - (__tmp118022 - (let ((__tmp118031 - (let ((__tmp118032 |gxc[1]#_g118033_|)) + (cons 'dispatch __tmp118017))) + (__tmp118004 + (let ((__tmp118013 + (let ((__tmp118014 |gxc[1]#_g118015_|)) (declare (not safe)) - (cons 'inline __tmp118032))) - (__tmp118023 - (let ((__tmp118028 - (let ((__tmp118029 - |gxc[1]#_g118030_|)) + (cons 'inline __tmp118014))) + (__tmp118005 + (let ((__tmp118010 + (let ((__tmp118011 + |gxc[1]#_g118012_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp118029))) - (__tmp118024 - (let ((__tmp118025 - (let ((__tmp118026 - |gxc[1]#_g118027_|)) + __tmp118011))) + (__tmp118006 + (let ((__tmp118007 + (let ((__tmp118008 + |gxc[1]#_g118009_|)) (declare (not safe)) - (cons 'id __tmp118026)))) + (cons 'id __tmp118008)))) (declare (not safe)) - (cons __tmp118025 '())))) + (cons __tmp118007 '())))) (declare (not safe)) - (cons __tmp118028 __tmp118024)))) + (cons __tmp118010 __tmp118006)))) (declare (not safe)) - (cons __tmp118031 __tmp118023)))) + (cons __tmp118013 __tmp118005)))) (declare (not safe)) - (cons __tmp118034 __tmp118022)))) + (cons __tmp118016 __tmp118004)))) (declare (not safe)) - (cons __tmp118037 __tmp118021)))) + (cons __tmp118019 __tmp118003)))) (declare (not safe)) (##unchecked-structure-set! - __obj117118 - __tmp118020 + __obj117100 + __tmp118002 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118040 - (let ((__tmp118057 - (let ((__tmp118058 |gxc[1]#_g118059_|)) + (let ((__tmp118022 + (let ((__tmp118039 + (let ((__tmp118040 |gxc[1]#_g118041_|)) (declare (not safe)) - (cons 'arity __tmp118058))) - (__tmp118041 - (let ((__tmp118054 - (let ((__tmp118055 |gxc[1]#_g118056_|)) + (cons 'arity __tmp118040))) + (__tmp118023 + (let ((__tmp118036 + (let ((__tmp118037 |gxc[1]#_g118038_|)) (declare (not safe)) - (cons 'dispatch __tmp118055))) - (__tmp118042 - (let ((__tmp118051 - (let ((__tmp118052 |gxc[1]#_g118053_|)) + (cons 'dispatch __tmp118037))) + (__tmp118024 + (let ((__tmp118033 + (let ((__tmp118034 |gxc[1]#_g118035_|)) (declare (not safe)) - (cons 'inline __tmp118052))) - (__tmp118043 - (let ((__tmp118048 - (let ((__tmp118049 - |gxc[1]#_g118050_|)) + (cons 'inline __tmp118034))) + (__tmp118025 + (let ((__tmp118030 + (let ((__tmp118031 + |gxc[1]#_g118032_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp118049))) - (__tmp118044 - (let ((__tmp118045 - (let ((__tmp118046 - |gxc[1]#_g118047_|)) + __tmp118031))) + (__tmp118026 + (let ((__tmp118027 + (let ((__tmp118028 + |gxc[1]#_g118029_|)) (declare (not safe)) - (cons 'id __tmp118046)))) + (cons 'id __tmp118028)))) (declare (not safe)) - (cons __tmp118045 '())))) + (cons __tmp118027 '())))) (declare (not safe)) - (cons __tmp118048 __tmp118044)))) + (cons __tmp118030 __tmp118026)))) (declare (not safe)) - (cons __tmp118051 __tmp118043)))) + (cons __tmp118033 __tmp118025)))) (declare (not safe)) - (cons __tmp118054 __tmp118042)))) + (cons __tmp118036 __tmp118024)))) (declare (not safe)) - (cons __tmp118057 __tmp118041)))) + (cons __tmp118039 __tmp118023)))) (declare (not safe)) (##unchecked-structure-set! - __obj117118 - __tmp118040 + __obj117100 + __tmp118022 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118060 - (let ((__tmp118077 - (let ((__tmp118078 |gxc[1]#_g118079_|)) + (let ((__tmp118042 + (let ((__tmp118059 + (let ((__tmp118060 |gxc[1]#_g118061_|)) (declare (not safe)) - (cons 'arity __tmp118078))) - (__tmp118061 - (let ((__tmp118074 - (let ((__tmp118075 |gxc[1]#_g118076_|)) + (cons 'arity __tmp118060))) + (__tmp118043 + (let ((__tmp118056 + (let ((__tmp118057 |gxc[1]#_g118058_|)) (declare (not safe)) - (cons 'dispatch __tmp118075))) - (__tmp118062 - (let ((__tmp118071 - (let ((__tmp118072 |gxc[1]#_g118073_|)) + (cons 'dispatch __tmp118057))) + (__tmp118044 + (let ((__tmp118053 + (let ((__tmp118054 |gxc[1]#_g118055_|)) (declare (not safe)) - (cons 'inline __tmp118072))) - (__tmp118063 - (let ((__tmp118068 - (let ((__tmp118069 - |gxc[1]#_g118070_|)) + (cons 'inline __tmp118054))) + (__tmp118045 + (let ((__tmp118050 + (let ((__tmp118051 + |gxc[1]#_g118052_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp118069))) - (__tmp118064 - (let ((__tmp118065 - (let ((__tmp118066 - |gxc[1]#_g118067_|)) + __tmp118051))) + (__tmp118046 + (let ((__tmp118047 + (let ((__tmp118048 + |gxc[1]#_g118049_|)) (declare (not safe)) - (cons 'id __tmp118066)))) + (cons 'id __tmp118048)))) (declare (not safe)) - (cons __tmp118065 '())))) + (cons __tmp118047 '())))) (declare (not safe)) - (cons __tmp118068 __tmp118064)))) + (cons __tmp118050 __tmp118046)))) (declare (not safe)) - (cons __tmp118071 __tmp118063)))) + (cons __tmp118053 __tmp118045)))) (declare (not safe)) - (cons __tmp118074 __tmp118062)))) + (cons __tmp118056 __tmp118044)))) (declare (not safe)) - (cons __tmp118077 __tmp118061)))) + (cons __tmp118059 __tmp118043)))) (declare (not safe)) (##unchecked-structure-set! - __obj117118 - __tmp118060 + __obj117100 + __tmp118042 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117118)) + __obj117100)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj117119 + (let ((__obj117101 (let () (declare (not safe)) (##structure @@ -5062,7 +5062,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117119 + __obj117101 '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! - __obj117119 + __obj117101 '!primitive-case-lambda '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -5078,30 +5078,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117119 + __obj117101 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118080 - (let ((__tmp118084 |gxc[1]#_g117993_|) - (__tmp118081 - (let ((__tmp118082 |gxc[1]#_g118083_|)) + (let ((__tmp118062 + (let ((__tmp118066 |gxc[1]#_g117975_|) + (__tmp118063 + (let ((__tmp118064 |gxc[1]#_g118065_|)) (declare (not safe)) - (cons __tmp118082 '())))) + (cons __tmp118064 '())))) (declare (not safe)) - (cons __tmp118084 __tmp118081)))) + (cons __tmp118066 __tmp118063)))) (declare (not safe)) (##unchecked-structure-set! - __obj117119 - __tmp118080 + __obj117101 + __tmp118062 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj117119 + __obj117101 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -5109,7 +5109,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117119 + __obj117101 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -5117,7 +5117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117119 + __obj117101 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -5125,117 +5125,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj117119 + __obj117101 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118085 |gxc[1]#_g118086_|)) + (let ((__tmp118067 |gxc[1]#_g118068_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117119 - __tmp118085 + __obj117101 + __tmp118067 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118087 |gxc[1]#_g118088_|)) + (let ((__tmp118069 |gxc[1]#_g118070_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117119 - __tmp118087 + __obj117101 + __tmp118069 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118089 |gxc[1]#_g118090_|)) + (let ((__tmp118071 |gxc[1]#_g118072_|)) (declare (not safe)) (##unchecked-structure-set! - __obj117119 - __tmp118089 + __obj117101 + __tmp118071 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118091 - (let ((__tmp118096 - (let ((__tmp118097 |gxc[1]#_g118098_|)) + (let ((__tmp118073 + (let ((__tmp118078 + (let ((__tmp118079 |gxc[1]#_g118080_|)) (declare (not safe)) - (cons 'clauses __tmp118097))) - (__tmp118092 - (let ((__tmp118093 - (let ((__tmp118094 |gxc[1]#_g118095_|)) + (cons 'clauses __tmp118079))) + (__tmp118074 + (let ((__tmp118075 + (let ((__tmp118076 |gxc[1]#_g118077_|)) (declare (not safe)) - (cons 'id __tmp118094)))) + (cons 'id __tmp118076)))) (declare (not safe)) - (cons __tmp118093 '())))) + (cons __tmp118075 '())))) (declare (not safe)) - (cons __tmp118096 __tmp118092)))) + (cons __tmp118078 __tmp118074)))) (declare (not safe)) (##unchecked-structure-set! - __obj117119 - __tmp118091 + __obj117101 + __tmp118073 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118099 - (let ((__tmp118104 - (let ((__tmp118105 |gxc[1]#_g118106_|)) + (let ((__tmp118081 + (let ((__tmp118086 + (let ((__tmp118087 |gxc[1]#_g118088_|)) (declare (not safe)) - (cons 'clauses __tmp118105))) - (__tmp118100 - (let ((__tmp118101 - (let ((__tmp118102 |gxc[1]#_g118103_|)) + (cons 'clauses __tmp118087))) + (__tmp118082 + (let ((__tmp118083 + (let ((__tmp118084 |gxc[1]#_g118085_|)) (declare (not safe)) - (cons 'id __tmp118102)))) + (cons 'id __tmp118084)))) (declare (not safe)) - (cons __tmp118101 '())))) + (cons __tmp118083 '())))) (declare (not safe)) - (cons __tmp118104 __tmp118100)))) + (cons __tmp118086 __tmp118082)))) (declare (not safe)) (##unchecked-structure-set! - __obj117119 - __tmp118099 + __obj117101 + __tmp118081 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118107 - (let ((__tmp118112 - (let ((__tmp118113 |gxc[1]#_g118114_|)) + (let ((__tmp118089 + (let ((__tmp118094 + (let ((__tmp118095 |gxc[1]#_g118096_|)) (declare (not safe)) - (cons 'clauses __tmp118113))) - (__tmp118108 - (let ((__tmp118109 - (let ((__tmp118110 |gxc[1]#_g118111_|)) + (cons 'clauses __tmp118095))) + (__tmp118090 + (let ((__tmp118091 + (let ((__tmp118092 |gxc[1]#_g118093_|)) (declare (not safe)) - (cons 'id __tmp118110)))) + (cons 'id __tmp118092)))) (declare (not safe)) - (cons __tmp118109 '())))) + (cons __tmp118091 '())))) (declare (not safe)) - (cons __tmp118112 __tmp118108)))) + (cons __tmp118094 __tmp118090)))) (declare (not safe)) (##unchecked-structure-set! - __obj117119 - __tmp118107 + __obj117101 + __tmp118089 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp118115 - (let ((__tmp118120 - (let ((__tmp118121 |gxc[1]#_g118122_|)) + (let ((__tmp118097 + (let ((__tmp118102 + (let ((__tmp118103 |gxc[1]#_g118104_|)) (declare (not safe)) - (cons 'clauses __tmp118121))) - (__tmp118116 - (let ((__tmp118117 - (let ((__tmp118118 |gxc[1]#_g118119_|)) + (cons 'clauses __tmp118103))) + (__tmp118098 + (let ((__tmp118099 + (let ((__tmp118100 |gxc[1]#_g118101_|)) (declare (not safe)) - (cons 'id __tmp118118)))) + (cons 'id __tmp118100)))) (declare (not safe)) - (cons __tmp118117 '())))) + (cons __tmp118099 '())))) (declare (not safe)) - (cons __tmp118120 __tmp118116)))) + (cons __tmp118102 __tmp118098)))) (declare (not safe)) (##unchecked-structure-set! - __obj117119 - __tmp118115 + __obj117101 + __tmp118097 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj117119)))) + __obj117101)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~0.scm b/src/bootstrap/gerbil/compiler/optimize-call~0.scm index 29a3f12e4..a93cff1f1 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 1710833429) + (define gerbil/compiler/optimize-call::timestamp 1710943503) (begin (define gxc#::optimize-call::t - (let ((__tmp155067 (list gxc#::basic-xform::t)) - (__tmp155065 - (let ((__tmp155066 + (let ((__tmp155049 (list gxc#::basic-xform::t)) + (__tmp155047 + (let ((__tmp155048 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp155066 '())))) + (cons __tmp155048 '())))) (declare (not safe)) (make-class-type 'gxc#::optimize-call::t '::optimize-call - __tmp155067 + __tmp155049 '() - __tmp155065 + __tmp155047 '#f))) (define gxc#::optimize-call? (let () (declare (not safe)) (make-class-predicate gxc#::optimize-call::t))) (define gxc#make-::optimize-call - (lambda _$args154768_ - (apply make-instance gxc#::optimize-call::t _$args154768_))) + (lambda _$args154750_ + (apply make-instance gxc#::optimize-call::t _$args154750_))) (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 (_stx154760_) + (lambda (_stx154742_) (force gxc#::optimize-call-bind-methods!) - (let* ((_self154763_ - (let ((__obj155062 + (let* ((_self154745_ + (let ((__obj155044 (let () (declare (not safe)) (##structure gxc#::optimize-call::t)))) - __obj155062)) - (__tmp155068 + __obj155044)) + (__tmp155050 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self154763_ _stx154760_))))) + (gxc#compile-e__1 _self154745_ _stx154742_))))) (declare (not safe)) (call-with-parameters - __tmp155068 + __tmp155050 gxc#current-compile-method - _self154763_)))) + _self154745_)))) (define gxc#optimize-call% - (lambda (_self154614_ _stx154615_) - (let* ((___stx154813154814_ _stx154615_) - (_g154618154638_ + (lambda (_self154596_ _stx154597_) + (let* ((___stx154795154796_ _stx154597_) + (_g154600154620_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx154813154814_))))) - (let ((___kont154815154816_ - (lambda (_L154682_ _L154683_) - (let* ((_rator-id154701_ + ___stx154795154796_))))) + (let ((___kont154797154798_ + (lambda (_L154664_ _L154665_) + (let* ((_rator-id154683_ (let () (declare (not safe)) - (gxc#identifier-symbol _L154683_))) - (_rator-type154703_ + (gxc#identifier-symbol _L154665_))) + (_rator-type154685_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _rator-id154701_)))) + (gxc#optimizer-resolve-type _rator-id154683_)))) (if (let () (declare (not safe)) (##structure-instance-of? - _rator-type154703_ + _rator-type154685_ 'gxc#!procedure::t)) (begin - (let ((__tmp155069 + (let ((__tmp155051 (##structure-ref - _rator-type154703_ + _rator-type154685_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#verbose '"optimize-call " - _rator-id154701_ + _rator-id154683_ '" => " - _rator-type154703_ + _rator-type154685_ '" " - __tmp155069)) - (let ((_optimized154706_ - (let ((__method155063 + __tmp155051)) + (let ((_optimized154688_ + (let ((__method155045 (let () (declare (not safe)) (method-ref - _rator-type154703_ + _rator-type154685_ 'optimize-call)))) - (if __method155063 - (__method155063 - _rator-type154703_ - _self154614_ - _stx154615_ - _L154682_) + (if __method155045 + (__method155045 + _rator-type154685_ + _self154596_ + _stx154597_ + _L154664_) (let () (declare (not safe)) (error '"Missing method" - _rator-type154703_ + _rator-type154685_ 'optimize-call)))))) (if (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _rator-type154703_)) - _optimized154706_ - (let* ((___stx154795154796_ _optimized154706_) - (_g154709154719_ + _rator-type154685_)) + _optimized154688_ + (let* ((___stx154777154778_ _optimized154688_) + (_g154691154701_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx154795154796_))))) - (let ((___kont154797154798_ - (lambda (_L154739_) - (let ((__tmp155070 + ___stx154777154778_))))) + (let ((___kont154779154780_ + (lambda (_L154721_) + (let ((__tmp155052 (let () (declare (not safe)) (cons '%#call-unchecked - _L154739_)))) + _L154721_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155070 - _stx154615_)))) - (___kont154799154800_ - (lambda () _optimized154706_))) + __tmp155052 + _stx154597_)))) + (___kont154781154782_ + (lambda () _optimized154688_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx154795154796_)) - (let ((_e154714154731_ + (gx#stx-pair? ___stx154777154778_)) + (let ((_e154696154713_ (let () (declare (not safe)) (gx#stx-e - ___stx154795154796_)))) - (let ((_tl154712154736_ + ___stx154777154778_)))) + (let ((_tl154694154718_ (let () (declare (not safe)) - (##cdr _e154714154731_))) - (_hd154713154734_ + (##cdr _e154696154713_))) + (_hd154695154716_ (let () (declare (not safe)) - (##car _e154714154731_)))) + (##car _e154696154713_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd154713154734_)) + _hd154695154716_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd154713154734_)) - (___kont154797154798_ - _tl154712154736_) - (___kont154799154800_)) - (___kont154799154800_)))) - (___kont154799154800_))))))) + _hd154695154716_)) + (___kont154779154780_ + _tl154694154718_) + (___kont154781154782_)) + (___kont154781154782_)))) + (___kont154781154782_))))))) (if (let () (declare (not safe)) - (not _rator-type154703_)) + (not _rator-type154685_)) (let () (declare (not safe)) - (gxc#xform-call% _self154614_ _stx154615_)) + (gxc#xform-call% _self154596_ _stx154597_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _stx154615_ - _rator-type154703_))))))) - (___kont154817154818_ + _stx154597_ + _rator-type154685_))))))) + (___kont154799154800_ (lambda () (let () (declare (not safe)) - (gxc#xform-call% _self154614_ _stx154615_))))) + (gxc#xform-call% _self154596_ _stx154597_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx154813154814_)) - (let ((_e154624154650_ + (gx#stx-pair? ___stx154795154796_)) + (let ((_e154606154632_ (let () (declare (not safe)) - (gx#stx-e ___stx154813154814_)))) - (let ((_tl154622154655_ - (let () (declare (not safe)) (##cdr _e154624154650_))) - (_hd154623154653_ + (gx#stx-e ___stx154795154796_)))) + (let ((_tl154604154637_ + (let () (declare (not safe)) (##cdr _e154606154632_))) + (_hd154605154635_ (let () (declare (not safe)) - (##car _e154624154650_)))) + (##car _e154606154632_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl154622154655_)) - (let ((_e154627154658_ + (gx#stx-pair? _tl154604154637_)) + (let ((_e154609154640_ (let () (declare (not safe)) - (gx#stx-e _tl154622154655_)))) - (let ((_tl154625154663_ + (gx#stx-e _tl154604154637_)))) + (let ((_tl154607154645_ (let () (declare (not safe)) - (##cdr _e154627154658_))) - (_hd154626154661_ + (##cdr _e154609154640_))) + (_hd154608154643_ (let () (declare (not safe)) - (##car _e154627154658_)))) + (##car _e154609154640_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd154626154661_)) - (let ((_e154630154666_ + (gx#stx-pair? _hd154608154643_)) + (let ((_e154612154648_ (let () (declare (not safe)) - (gx#stx-e _hd154626154661_)))) - (let ((_tl154628154671_ + (gx#stx-e _hd154608154643_)))) + (let ((_tl154610154653_ (let () (declare (not safe)) - (##cdr _e154630154666_))) - (_hd154629154669_ + (##cdr _e154612154648_))) + (_hd154611154651_ (let () (declare (not safe)) - (##car _e154630154666_)))) + (##car _e154612154648_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd154629154669_)) + (gx#identifier? _hd154611154651_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd154629154669_)) + _hd154611154651_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl154628154671_)) - (let ((_e154633154674_ + _tl154610154653_)) + (let ((_e154615154656_ (let () (declare (not safe)) (gx#stx-e - _tl154628154671_)))) - (let ((_tl154631154679_ + _tl154610154653_)))) + (let ((_tl154613154661_ (let () (declare (not safe)) - (##cdr _e154633154674_))) - (_hd154632154677_ + (##cdr _e154615154656_))) + (_hd154614154659_ (let () (declare (not safe)) - (##car _e154633154674_)))) + (##car _e154615154656_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl154631154679_)) - (___kont154815154816_ - _tl154625154663_ - _hd154632154677_) - (___kont154817154818_)))) - (___kont154817154818_)) - (___kont154817154818_)) - (___kont154817154818_)))) - (___kont154817154818_)))) - (___kont154817154818_)))) - (___kont154817154818_)))))) + _tl154613154661_)) + (___kont154797154798_ + _tl154607154645_ + _hd154614154659_) + (___kont154799154800_)))) + (___kont154799154800_)) + (___kont154799154800_)) + (___kont154799154800_)))) + (___kont154799154800_)))) + (___kont154799154800_)))) + (___kont154799154800_)))))) (define gxc#!predicate::optimize-call - (lambda (_self154567_ _ctx154568_ _stx154569_ _args154570_) - (let* ((_g154572154582_ - (lambda (_g154573154579_) + (lambda (_self154549_ _ctx154550_ _stx154551_ _args154552_) + (let* ((_g154554154564_ + (lambda (_g154555154561_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g154573154579_)))) - (_g154571154611_ - (lambda (_g154573154585_) + _g154555154561_)))) + (_g154553154593_ + (lambda (_g154555154567_) (if (let () (declare (not safe)) - (gx#stx-pair? _g154573154585_)) - (let ((_e154577154587_ + (gx#stx-pair? _g154555154567_)) + (let ((_e154559154569_ (let () (declare (not safe)) - (gx#stx-e _g154573154585_)))) - (let ((_hd154576154590_ + (gx#stx-e _g154555154567_)))) + (let ((_hd154558154572_ (let () (declare (not safe)) - (##car _e154577154587_))) - (_tl154575154592_ + (##car _e154559154569_))) + (_tl154557154574_ (let () (declare (not safe)) - (##cdr _e154577154587_)))) + (##cdr _e154559154569_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl154575154592_)) - ((lambda (_L154595_) - (let* ((_klass154606_ - (let ((__tmp155071 + (gx#stx-null? _tl154557154574_)) + ((lambda (_L154577_) + (let* ((_klass154588_ + (let ((__tmp155053 (##structure-ref - _self154567_ + _self154549_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx154569_ - __tmp155071))) - (_object154608_ + _stx154551_ + __tmp155053))) + (_object154590_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx154568_ - _L154595_)))) + _ctx154550_ + _L154577_)))) (if (##structure-ref - _klass154606_ + _klass154588_ '8 gxc#!class::t '#f) - (let ((__tmp155087 - (let ((__tmp155088 - (let ((__tmp155090 - (let ((__tmp155091 + (let ((__tmp155069 + (let ((__tmp155070 + (let ((__tmp155072 + (let ((__tmp155073 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155092 + (let ((__tmp155074 (##structure-ref - _klass154606_ + _klass154588_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155092 '())))) + (cons __tmp155074 '())))) (declare (not safe)) - (cons '%#quote __tmp155091))) - (__tmp155089 - (let () (declare (not safe)) (cons _object154608_ '())))) + (cons '%#quote __tmp155073))) + (__tmp155071 + (let () (declare (not safe)) (cons _object154590_ '())))) (declare (not safe)) - (cons __tmp155090 __tmp155089)))) + (cons __tmp155072 __tmp155071)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp155088)))) + __tmp155070)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155087 - _stx154569_)) + __tmp155069 + _stx154551_)) (if (##structure-ref - _klass154606_ + _klass154588_ '7 gxc#!class::t '#f) - (let ((__tmp155081 - (let ((__tmp155082 - (let ((__tmp155084 - (let ((__tmp155085 + (let ((__tmp155063 + (let ((__tmp155064 + (let ((__tmp155066 + (let ((__tmp155067 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155086 + (let ((__tmp155068 (##structure-ref - _klass154606_ + _klass154588_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155086 '())))) + (cons __tmp155068 '())))) (declare (not safe)) - (cons '%#quote __tmp155085))) - (__tmp155083 + (cons '%#quote __tmp155067))) + (__tmp155065 (let () (declare (not safe)) - (cons _object154608_ '())))) + (cons _object154590_ '())))) (declare (not safe)) - (cons __tmp155084 __tmp155083)))) + (cons __tmp155066 __tmp155065)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-instance? - __tmp155082)))) + __tmp155064)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155081 - _stx154569_)) - (let ((__tmp155072 - (let ((__tmp155073 - (let ((__tmp155079 - (let ((__tmp155080 + __tmp155063 + _stx154551_)) + (let ((__tmp155054 + (let ((__tmp155055 + (let ((__tmp155061 + (let ((__tmp155062 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp155080))) - (__tmp155074 - (let ((__tmp155076 - (let ((__tmp155077 - (let ((__tmp155078 + (cons '%#ref __tmp155062))) + (__tmp155056 + (let ((__tmp155058 + (let ((__tmp155059 + (let ((__tmp155060 (##structure-ref - _self154567_ + _self154549_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155078 '())))) + (cons __tmp155060 '())))) (declare (not safe)) - (cons '%#ref __tmp155077))) - (__tmp155075 + (cons '%#ref __tmp155059))) + (__tmp155057 (let () (declare (not safe)) - (cons _object154608_ '())))) + (cons _object154590_ '())))) (declare (not safe)) - (cons __tmp155076 __tmp155075)))) + (cons __tmp155058 __tmp155057)))) (declare (not safe)) - (cons __tmp155079 __tmp155074)))) + (cons __tmp155061 __tmp155056)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp155073)))) + __tmp155055)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155072 - _stx154569_)))))) - _hd154576154590_) + __tmp155054 + _stx154551_)))))) + _hd154558154572_) (let () (declare (not safe)) - (_g154572154582_ _g154573154585_))))) + (_g154554154564_ _g154555154567_))))) (let () (declare (not safe)) - (_g154572154582_ _g154573154585_)))))) + (_g154554154564_ _g154555154567_)))))) (declare (not safe)) - (_g154571154611_ _args154570_)))) + (_g154553154593_ _args154552_)))) (define gxc#!predicate::optimize-call::specialize - (lambda (__klass154770 __method-table154771) - (let ((__id154772 - (let ((__slot154773 + (lambda (__klass154752 __method-table154753) + (let ((__id154754 + (let ((__slot154755 (let () (declare (not safe)) - (class-slot-offset __klass154770 'id)))) - (if __slot154773 - __slot154773 + (class-slot-offset __klass154752 'id)))) + (if __slot154755 + __slot154755 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self154567_ _ctx154568_ _stx154569_ _args154570_) - (let* ((_g154572154582_ - (lambda (_g154573154579_) + (lambda (_self154549_ _ctx154550_ _stx154551_ _args154552_) + (let* ((_g154554154564_ + (lambda (_g154555154561_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g154573154579_)))) - (_g154571154611_ - (lambda (_g154573154585_) + _g154555154561_)))) + (_g154553154593_ + (lambda (_g154555154567_) (if (let () (declare (not safe)) - (gx#stx-pair? _g154573154585_)) - (let ((_e154577154587_ + (gx#stx-pair? _g154555154567_)) + (let ((_e154559154569_ (let () (declare (not safe)) - (gx#stx-e _g154573154585_)))) - (let ((_hd154576154590_ + (gx#stx-e _g154555154567_)))) + (let ((_hd154558154572_ (let () (declare (not safe)) - (##car _e154577154587_))) - (_tl154575154592_ + (##car _e154559154569_))) + (_tl154557154574_ (let () (declare (not safe)) - (##cdr _e154577154587_)))) + (##cdr _e154559154569_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl154575154592_)) - ((lambda (_L154595_) - (let* ((_klass154606_ - (let ((__tmp155093 + (gx#stx-null? _tl154557154574_)) + ((lambda (_L154577_) + (let* ((_klass154588_ + (let ((__tmp155075 (let () (declare (not safe)) (##unchecked-structure-ref - _self154567_ - __id154772 - __klass154770 + _self154549_ + __id154754 + __klass154752 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx154569_ - __tmp155093))) - (_object154608_ + _stx154551_ + __tmp155075))) + (_object154590_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx154568_ - _L154595_)))) + _ctx154550_ + _L154577_)))) (if (##structure-ref - _klass154606_ + _klass154588_ '8 gxc#!class::t '#f) - (let ((__tmp155109 - (let ((__tmp155110 - (let ((__tmp155112 - (let ((__tmp155113 + (let ((__tmp155091 + (let ((__tmp155092 + (let ((__tmp155094 + (let ((__tmp155095 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155114 + (let ((__tmp155096 (##structure-ref - _klass154606_ + _klass154588_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155114 '())))) + (cons __tmp155096 '())))) (declare (not safe)) - (cons '%#quote __tmp155113))) - (__tmp155111 + (cons '%#quote __tmp155095))) + (__tmp155093 (let () (declare (not safe)) - (cons _object154608_ '())))) + (cons _object154590_ '())))) (declare (not safe)) - (cons __tmp155112 __tmp155111)))) + (cons __tmp155094 __tmp155093)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp155110)))) + __tmp155092)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155109 - _stx154569_)) + __tmp155091 + _stx154551_)) (if (##structure-ref - _klass154606_ + _klass154588_ '7 gxc#!class::t '#f) - (let ((__tmp155103 - (let ((__tmp155104 - (let ((__tmp155106 + (let ((__tmp155085 + (let ((__tmp155086 + (let ((__tmp155088 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155107 - (let ((__tmp155108 + (let ((__tmp155089 + (let ((__tmp155090 (##structure-ref - _klass154606_ + _klass154588_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155108 '())))) + (cons __tmp155090 '())))) (declare (not safe)) - (cons '%#quote __tmp155107))) - (__tmp155105 + (cons '%#quote __tmp155089))) + (__tmp155087 (let () (declare (not safe)) - (cons _object154608_ '())))) + (cons _object154590_ '())))) (declare (not safe)) - (cons __tmp155106 __tmp155105)))) + (cons __tmp155088 __tmp155087)))) (declare (not safe)) - (cons '%#struct-instance? __tmp155104)))) + (cons '%#struct-instance? __tmp155086)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155103 - _stx154569_)) - (let ((__tmp155094 - (let ((__tmp155095 - (let ((__tmp155101 + __tmp155085 + _stx154551_)) + (let ((__tmp155076 + (let ((__tmp155077 + (let ((__tmp155083 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155102 + (let ((__tmp155084 (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp155102))) - (__tmp155096 - (let ((__tmp155098 - (let ((__tmp155099 - (let ((__tmp155100 + (cons '%#ref __tmp155084))) + (__tmp155078 + (let ((__tmp155080 + (let ((__tmp155081 + (let ((__tmp155082 (let () (declare (not safe)) (##unchecked-structure-ref - _self154567_ - __id154772 - __klass154770 + _self154549_ + __id154754 + __klass154752 '#f)))) (declare (not safe)) - (cons __tmp155100 '())))) + (cons __tmp155082 '())))) (declare (not safe)) - (cons '%#ref __tmp155099))) - (__tmp155097 + (cons '%#ref __tmp155081))) + (__tmp155079 (let () (declare (not safe)) - (cons _object154608_ '())))) + (cons _object154590_ '())))) (declare (not safe)) - (cons __tmp155098 __tmp155097)))) + (cons __tmp155080 __tmp155079)))) (declare (not safe)) - (cons __tmp155101 __tmp155096)))) + (cons __tmp155083 __tmp155078)))) (declare (not safe)) - (cons '%#call __tmp155095)))) + (cons '%#call __tmp155077)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155094 - _stx154569_)))))) - _hd154576154590_) + __tmp155076 + _stx154551_)))))) + _hd154558154572_) (let () (declare (not safe)) - (_g154572154582_ _g154573154585_))))) + (_g154554154564_ _g154555154567_))))) (let () (declare (not safe)) - (_g154572154582_ _g154573154585_)))))) + (_g154554154564_ _g154555154567_)))))) (declare (not safe)) - (_g154571154611_ _args154570_)))))) + (_g154553154593_ _args154552_)))))) (let () (declare (not safe)) (bind-specializer! @@ -619,237 +619,237 @@ gxc#!predicate::optimize-call '#f)) (define gxc#!constructor::optimize-call - (lambda (_self154282_ _ctx154283_ _stx154284_ _args154285_) - (let* ((_klass154287_ - (let ((__tmp155115 - (##structure-ref _self154282_ '1 gxc#!type::t '#f))) + (lambda (_self154264_ _ctx154265_ _stx154266_ _args154267_) + (let* ((_klass154269_ + (let ((__tmp155097 + (##structure-ref _self154264_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx154284_ __tmp155115))) - (_fields154289_ - (length (##structure-ref _klass154287_ '5 gxc#!class::t '#f))) - (_args154295_ - (map (lambda (_g154290154292_) + (gxc#optimizer-resolve-class _stx154266_ __tmp155097))) + (_fields154271_ + (length (##structure-ref _klass154269_ '5 gxc#!class::t '#f))) + (_args154277_ + (map (lambda (_g154272154274_) (let () (declare (not safe)) - (gxc#compile-e__1 _ctx154283_ _g154290154292_))) - _args154285_)) - (_inline-make-object154297_ - (let ((__tmp155116 - (let ((__tmp155122 - (let ((__tmp155123 + (gxc#compile-e__1 _ctx154265_ _g154272154274_))) + _args154267_)) + (_inline-make-object154279_ + (let ((__tmp155098 + (let ((__tmp155104 + (let ((__tmp155105 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp155123))) - (__tmp155117 - (let ((__tmp155119 - (let ((__tmp155120 - (let ((__tmp155121 + (cons '%#ref __tmp155105))) + (__tmp155099 + (let ((__tmp155101 + (let ((__tmp155102 + (let ((__tmp155103 (##structure-ref - _self154282_ + _self154264_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155121 '())))) + (cons __tmp155103 '())))) (declare (not safe)) - (cons '%#ref __tmp155120))) - (__tmp155118 - (make-list _fields154289_ '(%#quote #f)))) + (cons '%#ref __tmp155102))) + (__tmp155100 + (make-list _fields154271_ '(%#quote #f)))) (declare (not safe)) - (cons __tmp155119 __tmp155118)))) + (cons __tmp155101 __tmp155100)))) (declare (not safe)) - (cons __tmp155122 __tmp155117)))) + (cons __tmp155104 __tmp155099)))) (declare (not safe)) - (cons '%#call __tmp155116)))) - (let ((_$e154300_ - (##structure-ref _klass154287_ '6 gxc#!class::t '#f))) - (if _$e154300_ - ((lambda (_ctor154303_) - (let ((_$obj154305_ - (let ((__tmp155223 (gensym '__obj))) + (cons '%#call __tmp155098)))) + (let ((_$e154282_ + (##structure-ref _klass154269_ '6 gxc#!class::t '#f))) + (if _$e154282_ + ((lambda (_ctor154285_) + (let ((_$obj154287_ + (let ((__tmp155205 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155223))) - (_ctor-impl154306_ + (make-symbol__0 __tmp155205))) + (_ctor-impl154288_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass154287_ - _ctor154303_)))) - (let ((__tmp155224 - (let ((__tmp155225 - (let ((__tmp155293 - (let ((__tmp155294 - (let ((__tmp155296 + _klass154269_ + _ctor154285_)))) + (let ((__tmp155206 + (let ((__tmp155207 + (let ((__tmp155275 + (let ((__tmp155276 + (let ((__tmp155278 (let () (declare (not safe)) - (cons _$obj154305_ + (cons _$obj154287_ '()))) - (__tmp155295 + (__tmp155277 (let () (declare (not safe)) - (cons _inline-make-object154297_ + (cons _inline-make-object154279_ '())))) (declare (not safe)) - (cons __tmp155296 - __tmp155295)))) + (cons __tmp155278 + __tmp155277)))) (declare (not safe)) - (cons __tmp155294 '()))) - (__tmp155226 - (let ((__tmp155227 - (let ((__tmp155228 - (let ((__tmp155232 - (if _ctor-impl154306_ + (cons __tmp155276 '()))) + (__tmp155208 + (let ((__tmp155209 + (let ((__tmp155210 + (let ((__tmp155214 + (if _ctor-impl154288_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155287 - (let ((__tmp155291 - (let ((__tmp155292 + (let ((__tmp155269 + (let ((__tmp155273 + (let ((__tmp155274 (let () (declare (not safe)) - (cons _ctor-impl154306_ + (cons _ctor-impl154288_ '())))) (declare (not safe)) - (cons '%#ref __tmp155292))) - (__tmp155288 - (let ((__tmp155289 - (let ((__tmp155290 + (cons '%#ref __tmp155274))) + (__tmp155270 + (let ((__tmp155271 + (let ((__tmp155272 (let () (declare (not safe)) - (cons _$obj154305_ + (cons _$obj154287_ '())))) (declare (not safe)) - (cons '%#ref __tmp155290)))) + (cons '%#ref __tmp155272)))) (declare (not safe)) - (cons __tmp155289 _args154295_)))) + (cons __tmp155271 _args154277_)))) (declare (not safe)) - (cons __tmp155291 __tmp155288)))) + (cons __tmp155273 __tmp155270)))) (declare (not safe)) - (cons '%#call __tmp155287)) - (let* ((_$ctor154308_ - (let ((__tmp155233 (gensym '__constructor))) + (cons '%#call __tmp155269)) + (let* ((_$ctor154290_ + (let ((__tmp155215 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp155233))) - (__tmp155234 - (let ((__tmp155269 - (let ((__tmp155270 - (let ((__tmp155286 + (make-symbol__0 __tmp155215))) + (__tmp155216 + (let ((__tmp155251 + (let ((__tmp155252 + (let ((__tmp155268 (let () (declare (not safe)) - (cons _$ctor154308_ + (cons _$ctor154290_ '()))) - (__tmp155271 - (let ((__tmp155272 - (let ((__tmp155273 + (__tmp155253 + (let ((__tmp155254 + (let ((__tmp155255 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155284 - (let ((__tmp155285 + (let ((__tmp155266 + (let ((__tmp155267 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp155285))) - (__tmp155274 - (let ((__tmp155281 - (let ((__tmp155282 - (let ((__tmp155283 + (cons '%#ref __tmp155267))) + (__tmp155256 + (let ((__tmp155263 + (let ((__tmp155264 + (let ((__tmp155265 (##structure-ref - _self154282_ + _self154264_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155283 '())))) + (cons __tmp155265 '())))) (declare (not safe)) - (cons '%#ref __tmp155282))) - (__tmp155275 - (let ((__tmp155279 - (let ((__tmp155280 + (cons '%#ref __tmp155264))) + (__tmp155257 + (let ((__tmp155261 + (let ((__tmp155262 (let () (declare (not safe)) - (cons _$obj154305_ + (cons _$obj154287_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155280))) - (__tmp155276 - (let ((__tmp155277 - (let ((__tmp155278 + __tmp155262))) + (__tmp155258 + (let ((__tmp155259 + (let ((__tmp155260 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _ctor154303_ '())))) + (cons _ctor154285_ '())))) (declare (not safe)) - (cons '%#quote __tmp155278)))) + (cons '%#quote __tmp155260)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155277 '())))) + (cons __tmp155259 '())))) (declare (not safe)) - (cons __tmp155279 __tmp155276)))) + (cons __tmp155261 __tmp155258)))) (declare (not safe)) - (cons __tmp155281 __tmp155275)))) + (cons __tmp155263 __tmp155257)))) (declare (not safe)) - (cons __tmp155284 __tmp155274)))) + (cons __tmp155266 __tmp155256)))) (declare (not safe)) - (cons '%#call __tmp155273)))) + (cons '%#call __tmp155255)))) (declare (not safe)) - (cons __tmp155272 '())))) + (cons __tmp155254 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155286 - __tmp155271)))) + (cons __tmp155268 + __tmp155253)))) (declare (not safe)) - (cons __tmp155270 '()))) - (__tmp155235 - (let ((__tmp155236 - (let ((__tmp155237 - (let ((__tmp155267 - (let ((__tmp155268 + (cons __tmp155252 '()))) + (__tmp155217 + (let ((__tmp155218 + (let ((__tmp155219 + (let ((__tmp155249 + (let ((__tmp155250 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$ctor154308_ '())))) + (cons _$ctor154290_ '())))) (declare (not safe)) - (cons '%#ref __tmp155268))) - (__tmp155238 - (let ((__tmp155260 - (let ((__tmp155261 - (let ((__tmp155265 - (let ((__tmp155266 + (cons '%#ref __tmp155250))) + (__tmp155220 + (let ((__tmp155242 + (let ((__tmp155243 + (let ((__tmp155247 + (let ((__tmp155248 (let () (declare (not safe)) - (cons _$ctor154308_ + (cons _$ctor154290_ '())))) (declare (not safe)) - (cons '%#ref __tmp155266))) - (__tmp155262 - (let ((__tmp155263 - (let ((__tmp155264 + (cons '%#ref __tmp155248))) + (__tmp155244 + (let ((__tmp155245 + (let ((__tmp155246 (let () (declare (not safe)) - (cons _$obj154305_ + (cons _$obj154287_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155264)))) + __tmp155246)))) (declare (not safe)) - (cons __tmp155263 - _args154295_)))) + (cons __tmp155245 + _args154277_)))) (declare (not safe)) - (cons __tmp155265 __tmp155262)))) + (cons __tmp155247 __tmp155244)))) (declare (not safe)) - (cons '%#call __tmp155261))) - (__tmp155239 - (let ((__tmp155240 - (let ((__tmp155241 - (let ((__tmp155258 - (let ((__tmp155259 + (cons '%#call __tmp155243))) + (__tmp155221 + (let ((__tmp155222 + (let ((__tmp155223 + (let ((__tmp155240 + (let ((__tmp155241 (let () (declare (not safe)) @@ -859,281 +859,281 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155259))) - (__tmp155242 - (let ((__tmp155256 - (let ((__tmp155257 + __tmp155241))) + (__tmp155224 + (let ((__tmp155238 + (let ((__tmp155239 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp155257))) - (__tmp155243 - (let ((__tmp155254 - (let ((__tmp155255 + (cons '%#quote __tmp155239))) + (__tmp155225 + (let ((__tmp155236 + (let ((__tmp155237 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp155255))) - (__tmp155244 - (let ((__tmp155251 - (let ((__tmp155252 - (let ((__tmp155253 + (cons '%#quote __tmp155237))) + (__tmp155226 + (let ((__tmp155233 + (let ((__tmp155234 + (let ((__tmp155235 (##structure-ref - _self154282_ + _self154264_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155253 '())))) + (cons __tmp155235 '())))) (declare (not safe)) - (cons '%#ref __tmp155252))) - (__tmp155245 - (let ((__tmp155249 - (let ((__tmp155250 + (cons '%#ref __tmp155234))) + (__tmp155227 + (let ((__tmp155231 + (let ((__tmp155232 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp155250))) - (__tmp155246 - (let ((__tmp155247 - (let ((__tmp155248 + (cons '%#quote __tmp155232))) + (__tmp155228 + (let ((__tmp155229 + (let ((__tmp155230 (let () (declare (not safe)) - (cons _ctor154303_ + (cons _ctor154285_ '())))) (declare (not safe)) - (cons '%#quote __tmp155248)))) + (cons '%#quote __tmp155230)))) (declare (not safe)) - (cons __tmp155247 '())))) + (cons __tmp155229 '())))) (declare (not safe)) - (cons __tmp155249 __tmp155246)))) + (cons __tmp155231 __tmp155228)))) (declare (not safe)) - (cons __tmp155251 __tmp155245)))) + (cons __tmp155233 __tmp155227)))) (declare (not safe)) - (cons __tmp155254 __tmp155244)))) + (cons __tmp155236 __tmp155226)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155256 - __tmp155243)))) + (cons __tmp155238 + __tmp155225)))) (declare (not safe)) - (cons __tmp155258 __tmp155242)))) + (cons __tmp155240 __tmp155224)))) (declare (not safe)) - (cons '%#call __tmp155241)))) + (cons '%#call __tmp155223)))) (declare (not safe)) - (cons __tmp155240 '())))) + (cons __tmp155222 '())))) (declare (not safe)) - (cons __tmp155260 __tmp155239)))) + (cons __tmp155242 __tmp155221)))) (declare (not safe)) - (cons __tmp155267 __tmp155238)))) + (cons __tmp155249 __tmp155220)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp155237)))) + (cons '%#if __tmp155219)))) (declare (not safe)) - (cons __tmp155236 '())))) + (cons __tmp155218 '())))) (declare (not safe)) - (cons __tmp155269 __tmp155235)))) + (cons __tmp155251 __tmp155217)))) (declare (not safe)) - (cons '%#let-values __tmp155234)))) - (__tmp155229 - (let ((__tmp155230 - (let ((__tmp155231 + (cons '%#let-values __tmp155216)))) + (__tmp155211 + (let ((__tmp155212 + (let ((__tmp155213 (let () (declare (not safe)) - (cons _$obj154305_ '())))) + (cons _$obj154287_ '())))) (declare (not safe)) - (cons '%#ref __tmp155231)))) + (cons '%#ref __tmp155213)))) (declare (not safe)) - (cons __tmp155230 '())))) + (cons __tmp155212 '())))) (declare (not safe)) - (cons __tmp155232 __tmp155229)))) + (cons __tmp155214 __tmp155211)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#begin - __tmp155228)))) + __tmp155210)))) (declare (not safe)) - (cons __tmp155227 '())))) + (cons __tmp155209 '())))) (declare (not safe)) - (cons __tmp155293 __tmp155226)))) + (cons __tmp155275 __tmp155208)))) (declare (not safe)) - (cons '%#let-values __tmp155225)))) + (cons '%#let-values __tmp155207)))) (declare (not safe)) - (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))) + (gxc#xform-wrap-source __tmp155206 _stx154266_)))) + _$e154282_) + (let ((_$e154292_ + (##structure-ref _klass154269_ '10 gxc#!class::t '#f))) + (if _$e154292_ + ((lambda (_metaclass154295_) + (let* ((_$obj154297_ + (let ((__tmp155167 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155185))) - (_metakons154317_ - (let ((__tmp155186 + (make-symbol__0 __tmp155167))) + (_metakons154299_ + (let ((__tmp155168 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _stx154284_ - _metaclass154313_)))) + _stx154266_ + _metaclass154295_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp155186 + __tmp155168 'instance-init!)))) - (let ((__tmp155187 - (let ((__tmp155188 - (let ((__tmp155219 - (let ((__tmp155220 - (let ((__tmp155222 + (let ((__tmp155169 + (let ((__tmp155170 + (let ((__tmp155201 + (let ((__tmp155202 + (let ((__tmp155204 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj154315_ '()))) - (__tmp155221 + (cons _$obj154297_ '()))) + (__tmp155203 (let () (declare (not safe)) - (cons _inline-make-object154297_ '())))) + (cons _inline-make-object154279_ '())))) (declare (not safe)) - (cons __tmp155222 __tmp155221)))) + (cons __tmp155204 __tmp155203)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155220 '()))) - (__tmp155189 - (let ((__tmp155190 - (let ((__tmp155191 - (let ((__tmp155195 + (cons __tmp155202 '()))) + (__tmp155171 + (let ((__tmp155172 + (let ((__tmp155173 + (let ((__tmp155177 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _metakons154317_ - (let ((__tmp155209 - (let ((__tmp155217 - (let ((__tmp155218 + (if _metakons154299_ + (let ((__tmp155191 + (let ((__tmp155199 + (let ((__tmp155200 (let () (declare (not safe)) - (cons _metakons154317_ + (cons _metakons154299_ '())))) (declare (not safe)) - (cons '%#ref __tmp155218))) - (__tmp155210 - (let ((__tmp155214 - (let ((__tmp155215 - (let ((__tmp155216 + (cons '%#ref __tmp155200))) + (__tmp155192 + (let ((__tmp155196 + (let ((__tmp155197 + (let ((__tmp155198 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self154282_ + _self154264_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155216 '())))) + (cons __tmp155198 '())))) (declare (not safe)) - (cons '%#ref __tmp155215))) + (cons '%#ref __tmp155197))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp155211 - (let ((__tmp155212 - (let ((__tmp155213 + (__tmp155193 + (let ((__tmp155194 + (let ((__tmp155195 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj154315_ '())))) + (cons _$obj154297_ '())))) (declare (not safe)) - (cons '%#ref __tmp155213)))) + (cons '%#ref __tmp155195)))) (declare (not safe)) - (cons __tmp155212 _args154295_)))) + (cons __tmp155194 _args154277_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155214 - __tmp155211)))) + (cons __tmp155196 + __tmp155193)))) (declare (not safe)) - (cons __tmp155217 __tmp155210)))) + (cons __tmp155199 __tmp155192)))) (declare (not safe)) - (cons '%#call __tmp155209)) - (let ((__tmp155196 - (let ((__tmp155207 - (let ((__tmp155208 + (cons '%#call __tmp155191)) + (let ((__tmp155178 + (let ((__tmp155189 + (let ((__tmp155190 (let () (declare (not safe)) (cons 'call-method '())))) (declare (not safe)) - (cons '%#ref __tmp155208))) - (__tmp155197 - (let ((__tmp155204 - (let ((__tmp155205 - (let ((__tmp155206 + (cons '%#ref __tmp155190))) + (__tmp155179 + (let ((__tmp155186 + (let ((__tmp155187 + (let ((__tmp155188 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self154282_ + _self154264_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155206 '())))) + (cons __tmp155188 '())))) (declare (not safe)) - (cons '%#ref __tmp155205))) + (cons '%#ref __tmp155187))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp155198 - (let ((__tmp155202 - (let ((__tmp155203 + (__tmp155180 + (let ((__tmp155184 + (let ((__tmp155185 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'instance-init! '())))) (declare (not safe)) - (cons '%#quote __tmp155203))) - (__tmp155199 - (let ((__tmp155200 - (let ((__tmp155201 + (cons '%#quote __tmp155185))) + (__tmp155181 + (let ((__tmp155182 + (let ((__tmp155183 (let () (declare (not safe)) - (cons _$obj154315_ '())))) + (cons _$obj154297_ '())))) (declare (not safe)) - (cons '%#ref __tmp155201)))) + (cons '%#ref __tmp155183)))) (declare (not safe)) - (cons __tmp155200 _args154295_)))) + (cons __tmp155182 _args154277_)))) (declare (not safe)) - (cons __tmp155202 __tmp155199)))) + (cons __tmp155184 __tmp155181)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155204 - __tmp155198)))) + (cons __tmp155186 + __tmp155180)))) (declare (not safe)) - (cons __tmp155207 __tmp155197)))) + (cons __tmp155189 __tmp155179)))) (declare (not safe)) - (cons '%#call __tmp155196)))) - (__tmp155192 - (let ((__tmp155193 - (let ((__tmp155194 + (cons '%#call __tmp155178)))) + (__tmp155174 + (let ((__tmp155175 + (let ((__tmp155176 (let () (declare (not safe)) - (cons _$obj154315_ '())))) + (cons _$obj154297_ '())))) (declare (not safe)) - (cons '%#ref __tmp155194)))) + (cons '%#ref __tmp155176)))) (declare (not safe)) - (cons __tmp155193 '())))) + (cons __tmp155175 '())))) (declare (not safe)) - (cons __tmp155195 __tmp155192)))) + (cons __tmp155177 __tmp155174)))) (declare (not safe)) - (cons '%#begin __tmp155191)))) + (cons '%#begin __tmp155173)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155190 '())))) + (cons __tmp155172 '())))) (declare (not safe)) - (cons __tmp155219 __tmp155189)))) + (cons __tmp155201 __tmp155171)))) (declare (not safe)) - (cons '%#let-values __tmp155188)))) + (cons '%#let-values __tmp155170)))) (declare (not safe)) - (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 + (gxc#xform-wrap-source __tmp155169 _stx154266_)))) + _$e154292_) + (if (##structure-ref _klass154269_ '7 gxc#!class::t '#f) + (if (fx= (length _args154277_) _fields154271_) + (let ((__tmp155159 + (let ((__tmp155160 + (let ((__tmp155165 + (let ((__tmp155166 (let () (declare (not safe)) @@ -1143,900 +1143,900 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155184))) - (__tmp155179 - (let ((__tmp155180 - (let ((__tmp155181 + __tmp155166))) + (__tmp155161 + (let ((__tmp155162 + (let ((__tmp155163 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155182 + (let ((__tmp155164 (##structure-ref - _self154282_ + _self154264_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155182 '())))) + (cons __tmp155164 '())))) (declare (not safe)) - (cons '%#ref __tmp155181)))) + (cons '%#ref __tmp155163)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155180 - _args154295_)))) + (cons __tmp155162 + _args154277_)))) (declare (not safe)) - (cons __tmp155183 __tmp155179)))) + (cons __tmp155165 __tmp155161)))) (declare (not safe)) - (cons '%#call __tmp155178)))) + (cons '%#call __tmp155160)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155177 - _stx154284_)) - (let ((__tmp155176 + __tmp155159 + _stx154266_)) + (let ((__tmp155158 (##structure-ref - _self154282_ + _self154264_ '1 gxc#!type::t '#f)) - (__tmp155175 + (__tmp155157 (length (##structure-ref - _klass154287_ + _klass154269_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx154284_ - __tmp155176 - __tmp155175))) - (let ((_$obj154320_ - (let ((__tmp155124 (gensym '__obj))) + _stx154266_ + __tmp155158 + __tmp155157))) + (let ((_$obj154302_ + (let ((__tmp155106 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155124)))) - (let _lp154322_ ((_rest154324_ _args154295_) - (_initializers154325_ '())) - (let* ((___stx154851154852_ _rest154324_) - (_g154329154350_ + (make-symbol__0 __tmp155106)))) + (let _lp154304_ ((_rest154306_ _args154277_) + (_initializers154307_ '())) + (let* ((___stx154833154834_ _rest154306_) + (_g154311154332_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx154851154852_))))) - (let ((___kont154853154854_ - (lambda (_L154404_ _L154405_ _L154406_) - (let* ((_slot154437_ + ___stx154833154834_))))) + (let ((___kont154835154836_ + (lambda (_L154386_ _L154387_ _L154388_) + (let* ((_slot154419_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L154406_)))) - (_off154439_ + (gx#stx-e _L154388_)))) + (_off154421_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass154287_ - _slot154437_)))) - (if _off154439_ - (let ((__tmp155126 - (let ((__tmp155127 + _klass154269_ + _slot154419_)))) + (if _off154421_ + (let ((__tmp155108 + (let ((__tmp155109 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _off154439_ _L154405_)))) + (cons _off154421_ _L154387_)))) (declare (not safe)) - (cons __tmp155127 _initializers154325_)))) + (cons __tmp155109 _initializers154307_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp154322_ - _L154404_ - __tmp155126)) - (let ((__tmp155125 + (_lp154304_ + _L154386_ + __tmp155108)) + (let ((__tmp155107 (##structure-ref - _self154282_ + _self154264_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx154284_ - __tmp155125 - _slot154437_)))))) - (___kont154855154856_ + _stx154266_ + __tmp155107 + _slot154419_)))))) + (___kont154837154838_ (lambda () - (let ((__tmp155128 - (let ((__tmp155129 - (let ((__tmp155152 - (let ((__tmp155153 + (let ((__tmp155110 + (let ((__tmp155111 + (let ((__tmp155134 + (let ((__tmp155135 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155155 + (let ((__tmp155137 (let () (declare (not safe)) - (cons _$obj154320_ '()))) - (__tmp155154 + (cons _$obj154302_ '()))) + (__tmp155136 (let () (declare (not safe)) - (cons _inline-make-object154297_ '())))) + (cons _inline-make-object154279_ '())))) (declare (not safe)) - (cons __tmp155155 __tmp155154)))) + (cons __tmp155137 __tmp155136)))) (declare (not safe)) - (cons __tmp155153 '()))) - (__tmp155130 - (let ((__tmp155131 - (let ((__tmp155132 - (let ((__tmp155149 - (let ((__tmp155150 - (let ((__tmp155151 + (cons __tmp155135 '()))) + (__tmp155112 + (let ((__tmp155113 + (let ((__tmp155114 + (let ((__tmp155131 + (let ((__tmp155132 + (let ((__tmp155133 (let () (declare (not safe)) - (cons _$obj154320_ + (cons _$obj154302_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155151)))) + __tmp155133)))) (declare (not safe)) - (cons __tmp155150 '()))) - (__tmp155133 - (let ((__tmp155134 - (lambda (_i154364_ _r154365_) - (let ((__tmp155135 - (let ((__tmp155136 + (cons __tmp155132 '()))) + (__tmp155115 + (let ((__tmp155116 + (lambda (_i154346_ _r154347_) + (let ((__tmp155117 + (let ((__tmp155118 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155146 - (let ((__tmp155147 - (let ((__tmp155148 + (let ((__tmp155128 + (let ((__tmp155129 + (let ((__tmp155130 (##structure-ref - _self154282_ + _self154264_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155148 '())))) + (cons __tmp155130 '())))) (declare (not safe)) - (cons '%#ref __tmp155147))) - (__tmp155137 - (let ((__tmp155143 - (let ((__tmp155144 - (let ((__tmp155145 - (car _i154364_))) + (cons '%#ref __tmp155129))) + (__tmp155119 + (let ((__tmp155125 + (let ((__tmp155126 + (let ((__tmp155127 + (car _i154346_))) (declare (not safe)) - (cons __tmp155145 '())))) + (cons __tmp155127 '())))) (declare (not safe)) - (cons '%#quote __tmp155144))) - (__tmp155138 - (let ((__tmp155141 - (let ((__tmp155142 + (cons '%#quote __tmp155126))) + (__tmp155120 + (let ((__tmp155123 + (let ((__tmp155124 (let () (declare (not safe)) - (cons _$obj154320_ + (cons _$obj154302_ '())))) (declare (not safe)) - (cons '%#ref __tmp155142))) - (__tmp155139 - (let ((__tmp155140 - (cdr _i154364_))) + (cons '%#ref __tmp155124))) + (__tmp155121 + (let ((__tmp155122 + (cdr _i154346_))) (declare (not safe)) - (cons __tmp155140 '())))) + (cons __tmp155122 '())))) (declare (not safe)) - (cons __tmp155141 __tmp155139)))) + (cons __tmp155123 __tmp155121)))) (declare (not safe)) - (cons __tmp155143 __tmp155138)))) + (cons __tmp155125 __tmp155120)))) (declare (not safe)) - (cons __tmp155146 __tmp155137)))) + (cons __tmp155128 __tmp155119)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp155136)))) + (cons '%#struct-unchecked-set! __tmp155118)))) (declare (not safe)) - (cons __tmp155135 _r154365_))))) + (cons __tmp155117 _r154347_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp155134 + (foldl1 __tmp155116 '() - _initializers154325_)))) + _initializers154307_)))) (declare (not safe)) - (foldr1 cons __tmp155149 __tmp155133)))) + (foldr1 cons __tmp155131 __tmp155115)))) (declare (not safe)) - (cons '%#begin __tmp155132)))) + (cons '%#begin __tmp155114)))) (declare (not safe)) - (cons __tmp155131 '())))) + (cons __tmp155113 '())))) (declare (not safe)) - (cons __tmp155152 __tmp155130)))) + (cons __tmp155134 __tmp155112)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp155129)))) + __tmp155111)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155128 - _stx154284_)))) - (___kont154857154858_ + __tmp155110 + _stx154266_)))) + (___kont154839154840_ (lambda () - (let ((__tmp155156 - (let ((__tmp155157 - (let ((__tmp155171 - (let ((__tmp155172 + (let ((__tmp155138 + (let ((__tmp155139 + (let ((__tmp155153 + (let ((__tmp155154 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155174 + (let ((__tmp155156 (let () (declare (not safe)) - (cons _$obj154320_ '()))) - (__tmp155173 + (cons _$obj154302_ '()))) + (__tmp155155 (let () (declare (not safe)) - (cons _inline-make-object154297_ '())))) + (cons _inline-make-object154279_ '())))) (declare (not safe)) - (cons __tmp155174 __tmp155173)))) + (cons __tmp155156 __tmp155155)))) (declare (not safe)) - (cons __tmp155172 '()))) - (__tmp155158 - (let ((__tmp155159 - (let ((__tmp155160 - (let ((__tmp155164 - (let ((__tmp155165 - (let ((__tmp155169 - (let ((__tmp155170 + (cons __tmp155154 '()))) + (__tmp155140 + (let ((__tmp155141 + (let ((__tmp155142 + (let ((__tmp155146 + (let ((__tmp155147 + (let ((__tmp155151 + (let ((__tmp155152 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'class-instance-init! '())))) (declare (not safe)) - (cons '%#ref __tmp155170))) - (__tmp155166 - (let ((__tmp155167 - (let ((__tmp155168 + (cons '%#ref __tmp155152))) + (__tmp155148 + (let ((__tmp155149 + (let ((__tmp155150 (let () (declare (not safe)) - (cons _$obj154320_ '())))) + (cons _$obj154302_ '())))) (declare (not safe)) - (cons '%#ref __tmp155168)))) + (cons '%#ref __tmp155150)))) (declare (not safe)) - (cons __tmp155167 _args154295_)))) + (cons __tmp155149 _args154277_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155169 - __tmp155166)))) + (cons __tmp155151 + __tmp155148)))) (declare (not safe)) - (cons '%#call __tmp155165))) - (__tmp155161 - (let ((__tmp155162 - (let ((__tmp155163 + (cons '%#call __tmp155147))) + (__tmp155143 + (let ((__tmp155144 + (let ((__tmp155145 (let () (declare (not safe)) - (cons _$obj154320_ + (cons _$obj154302_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155163)))) + __tmp155145)))) (declare (not safe)) - (cons __tmp155162 '())))) + (cons __tmp155144 '())))) (declare (not safe)) - (cons __tmp155164 __tmp155161)))) + (cons __tmp155146 __tmp155143)))) (declare (not safe)) - (cons '%#begin __tmp155160)))) + (cons '%#begin __tmp155142)))) (declare (not safe)) - (cons __tmp155159 '())))) + (cons __tmp155141 '())))) (declare (not safe)) - (cons __tmp155171 __tmp155158)))) + (cons __tmp155153 __tmp155140)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp155157)))) + __tmp155139)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155156 - _stx154284_))))) - (let* ((_g154327154367_ + __tmp155138 + _stx154266_))))) + (let* ((_g154309154349_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - ___stx154851154852_)) - (___kont154855154856_) - (___kont154857154858_)))) - (___match154888154889_ - (lambda (_e154336154372_ - _hd154335154375_ - _tl154334154377_ - _e154339154380_ - _hd154338154383_ - _tl154337154385_ - _e154342154388_ - _hd154341154391_ - _tl154340154393_ - _e154345154396_ - _hd154344154399_ - _tl154343154401_) - (let ((_L154404_ _tl154343154401_) - (_L154405_ _hd154344154399_) - (_L154406_ _hd154341154391_)) + ___stx154833154834_)) + (___kont154837154838_) + (___kont154839154840_)))) + (___match154870154871_ + (lambda (_e154318154354_ + _hd154317154357_ + _tl154316154359_ + _e154321154362_ + _hd154320154365_ + _tl154319154367_ + _e154324154370_ + _hd154323154373_ + _tl154322154375_ + _e154327154378_ + _hd154326154381_ + _tl154325154383_) + (let ((_L154386_ _tl154325154383_) + (_L154387_ _hd154326154381_) + (_L154388_ _hd154323154373_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _L154406_)) - (___kont154853154854_ - _L154404_ - _L154405_ - _L154406_) - (___kont154857154858_)))))) + _L154388_)) + (___kont154835154836_ + _L154386_ + _L154387_ + _L154388_) + (___kont154839154840_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx154851154852_)) - (let ((_e154336154372_ + (gx#stx-pair? ___stx154833154834_)) + (let ((_e154318154354_ (let () (declare (not safe)) (gx#stx-e - ___stx154851154852_)))) - (let ((_tl154334154377_ + ___stx154833154834_)))) + (let ((_tl154316154359_ (let () (declare (not safe)) - (##cdr _e154336154372_))) - (_hd154335154375_ + (##cdr _e154318154354_))) + (_hd154317154357_ (let () (declare (not safe)) - (##car _e154336154372_)))) + (##car _e154318154354_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd154335154375_)) - (let ((_e154339154380_ + _hd154317154357_)) + (let ((_e154321154362_ (let () (declare (not safe)) (gx#stx-e - _hd154335154375_)))) - (let ((_tl154337154385_ + _hd154317154357_)))) + (let ((_tl154319154367_ (let () (declare (not safe)) - (##cdr _e154339154380_))) - (_hd154338154383_ + (##cdr _e154321154362_))) + (_hd154320154365_ (let () (declare (not safe)) - (##car _e154339154380_)))) + (##car _e154321154362_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd154338154383_)) + _hd154320154365_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd154338154383_)) + _hd154320154365_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl154337154385_)) - (let ((_e154342154388_ + (gx#stx-pair? _tl154319154367_)) + (let ((_e154324154370_ (let () (declare (not safe)) - (gx#stx-e _tl154337154385_)))) - (let ((_tl154340154393_ + (gx#stx-e _tl154319154367_)))) + (let ((_tl154322154375_ (let () (declare (not safe)) - (##cdr _e154342154388_))) - (_hd154341154391_ + (##cdr _e154324154370_))) + (_hd154323154373_ (let () (declare (not safe)) - (##car _e154342154388_)))) + (##car _e154324154370_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl154340154393_)) + (gx#stx-null? _tl154322154375_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl154334154377_)) - (let ((_e154345154396_ + (gx#stx-pair? _tl154316154359_)) + (let ((_e154327154378_ (let () (declare (not safe)) - (gx#stx-e _tl154334154377_)))) - (let ((_tl154343154401_ + (gx#stx-e _tl154316154359_)))) + (let ((_tl154325154383_ (let () (declare (not safe)) - (##cdr _e154345154396_))) - (_hd154344154399_ + (##cdr _e154327154378_))) + (_hd154326154381_ (let () (declare (not safe)) - (##car _e154345154396_)))) - (___match154888154889_ - _e154336154372_ - _hd154335154375_ - _tl154334154377_ - _e154339154380_ - _hd154338154383_ - _tl154337154385_ - _e154342154388_ - _hd154341154391_ - _tl154340154393_ - _e154345154396_ - _hd154344154399_ - _tl154343154401_))) - (___kont154857154858_)) - (___kont154857154858_)))) - (___kont154857154858_)) - (___kont154857154858_)) - (___kont154857154858_)))) + (##car _e154327154378_)))) + (___match154870154871_ + _e154318154354_ + _hd154317154357_ + _tl154316154359_ + _e154321154362_ + _hd154320154365_ + _tl154319154367_ + _e154324154370_ + _hd154323154373_ + _tl154322154375_ + _e154327154378_ + _hd154326154381_ + _tl154325154383_))) + (___kont154839154840_)) + (___kont154839154840_)))) + (___kont154839154840_)) + (___kont154839154840_)) + (___kont154839154840_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont154857154858_)))) + (___kont154839154840_)))) (let () (declare (not safe)) - (_g154327154367_)))))))))))))))) + (_g154309154349_)))))))))))))))) (define gxc#!constructor::optimize-call::specialize - (lambda (__klass154774 __method-table154775) - (let ((__id154776 - (let ((__slot154777 + (lambda (__klass154756 __method-table154757) + (let ((__id154758 + (let ((__slot154759 (let () (declare (not safe)) - (class-slot-offset __klass154774 'id)))) - (if __slot154777 - __slot154777 + (class-slot-offset __klass154756 'id)))) + (if __slot154759 + __slot154759 (let () (declare (not safe)) (error '"Unknown slot" 'id)))))) - (lambda (_self154282_ _ctx154283_ _stx154284_ _args154285_) - (let* ((_klass154287_ - (let ((__tmp155297 + (lambda (_self154264_ _ctx154265_ _stx154266_ _args154267_) + (let* ((_klass154269_ + (let ((__tmp155279 (let () (declare (not safe)) (##unchecked-structure-ref - _self154282_ - __id154776 - __klass154774 + _self154264_ + __id154758 + __klass154756 '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx154284_ __tmp155297))) - (_fields154289_ + (gxc#optimizer-resolve-class _stx154266_ __tmp155279))) + (_fields154271_ (length (##structure-ref - _klass154287_ + _klass154269_ '5 gxc#!class::t '#f))) - (_args154295_ - (map (lambda (_g154290154292_) + (_args154277_ + (map (lambda (_g154272154274_) (let () (declare (not safe)) - (gxc#compile-e__1 _ctx154283_ _g154290154292_))) - _args154285_)) - (_inline-make-object154297_ - (let ((__tmp155298 - (let ((__tmp155304 - (let ((__tmp155305 + (gxc#compile-e__1 _ctx154265_ _g154272154274_))) + _args154267_)) + (_inline-make-object154279_ + (let ((__tmp155280 + (let ((__tmp155286 + (let ((__tmp155287 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp155305))) - (__tmp155299 - (let ((__tmp155301 - (let ((__tmp155302 - (let ((__tmp155303 + (cons '%#ref __tmp155287))) + (__tmp155281 + (let ((__tmp155283 + (let ((__tmp155284 + (let ((__tmp155285 (let () (declare (not safe)) (##unchecked-structure-ref - _self154282_ - __id154776 - __klass154774 + _self154264_ + __id154758 + __klass154756 '#f)))) (declare (not safe)) - (cons __tmp155303 '())))) + (cons __tmp155285 '())))) (declare (not safe)) - (cons '%#ref __tmp155302))) - (__tmp155300 + (cons '%#ref __tmp155284))) + (__tmp155282 (make-list - _fields154289_ + _fields154271_ '(%#quote #f)))) (declare (not safe)) - (cons __tmp155301 __tmp155300)))) + (cons __tmp155283 __tmp155282)))) (declare (not safe)) - (cons __tmp155304 __tmp155299)))) + (cons __tmp155286 __tmp155281)))) (declare (not safe)) - (cons '%#call __tmp155298)))) - (let ((_$e154300_ - (##structure-ref _klass154287_ '6 gxc#!class::t '#f))) - (if _$e154300_ - ((lambda (_ctor154303_) - (let ((_$obj154305_ - (let ((__tmp155405 (gensym '__obj))) + (cons '%#call __tmp155280)))) + (let ((_$e154282_ + (##structure-ref _klass154269_ '6 gxc#!class::t '#f))) + (if _$e154282_ + ((lambda (_ctor154285_) + (let ((_$obj154287_ + (let ((__tmp155387 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155405))) - (_ctor-impl154306_ + (make-symbol__0 __tmp155387))) + (_ctor-impl154288_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass154287_ - _ctor154303_)))) - (let ((__tmp155406 - (let ((__tmp155407 - (let ((__tmp155475 - (let ((__tmp155476 - (let ((__tmp155478 + _klass154269_ + _ctor154285_)))) + (let ((__tmp155388 + (let ((__tmp155389 + (let ((__tmp155457 + (let ((__tmp155458 + (let ((__tmp155460 (let () (declare (not safe)) - (cons _$obj154305_ + (cons _$obj154287_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp155477 + (__tmp155459 (let () (declare (not safe)) - (cons _inline-make-object154297_ '())))) + (cons _inline-make-object154279_ '())))) (declare (not safe)) - (cons __tmp155478 __tmp155477)))) + (cons __tmp155460 __tmp155459)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155476 '()))) - (__tmp155408 - (let ((__tmp155409 - (let ((__tmp155410 - (let ((__tmp155414 + (cons __tmp155458 '()))) + (__tmp155390 + (let ((__tmp155391 + (let ((__tmp155392 + (let ((__tmp155396 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _ctor-impl154306_ - (let ((__tmp155469 - (let ((__tmp155473 - (let ((__tmp155474 + (if _ctor-impl154288_ + (let ((__tmp155451 + (let ((__tmp155455 + (let ((__tmp155456 (let () (declare (not safe)) - (cons _ctor-impl154306_ + (cons _ctor-impl154288_ '())))) (declare (not safe)) - (cons '%#ref __tmp155474))) - (__tmp155470 - (let ((__tmp155471 - (let ((__tmp155472 + (cons '%#ref __tmp155456))) + (__tmp155452 + (let ((__tmp155453 + (let ((__tmp155454 (let () (declare (not safe)) - (cons _$obj154305_ + (cons _$obj154287_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp155472)))) + (cons '%#ref __tmp155454)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155471 - _args154295_)))) + (cons __tmp155453 + _args154277_)))) (declare (not safe)) - (cons __tmp155473 __tmp155470)))) + (cons __tmp155455 __tmp155452)))) (declare (not safe)) - (cons '%#call __tmp155469)) - (let* ((_$ctor154308_ - (let ((__tmp155415 + (cons '%#call __tmp155451)) + (let* ((_$ctor154290_ + (let ((__tmp155397 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp155415))) - (__tmp155416 - (let ((__tmp155451 - (let ((__tmp155452 - (let ((__tmp155468 + (make-symbol__0 __tmp155397))) + (__tmp155398 + (let ((__tmp155433 + (let ((__tmp155434 + (let ((__tmp155450 (let () (declare (not safe)) - (cons _$ctor154308_ + (cons _$ctor154290_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp155453 - (let ((__tmp155454 - (let ((__tmp155455 - (let ((__tmp155466 - (let ((__tmp155467 + (__tmp155435 + (let ((__tmp155436 + (let ((__tmp155437 + (let ((__tmp155448 + (let ((__tmp155449 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp155467))) - (__tmp155456 - (let ((__tmp155463 - (let ((__tmp155464 - (let ((__tmp155465 + (cons '%#ref __tmp155449))) + (__tmp155438 + (let ((__tmp155445 + (let ((__tmp155446 + (let ((__tmp155447 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self154282_ - __id154776 - __klass154774 + _self154264_ + __id154758 + __klass154756 '#f)))) (declare (not safe)) - (cons __tmp155465 '())))) + (cons __tmp155447 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp155464))) - (__tmp155457 - (let ((__tmp155461 - (let ((__tmp155462 + (cons '%#ref __tmp155446))) + (__tmp155439 + (let ((__tmp155443 + (let ((__tmp155444 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj154305_ '())))) + (cons _$obj154287_ '())))) (declare (not safe)) - (cons '%#ref __tmp155462))) - (__tmp155458 - (let ((__tmp155459 - (let ((__tmp155460 + (cons '%#ref __tmp155444))) + (__tmp155440 + (let ((__tmp155441 + (let ((__tmp155442 (let () (declare (not safe)) - (cons _ctor154303_ '())))) + (cons _ctor154285_ '())))) (declare (not safe)) - (cons '%#quote __tmp155460)))) + (cons '%#quote __tmp155442)))) (declare (not safe)) - (cons __tmp155459 '())))) + (cons __tmp155441 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155461 - __tmp155458)))) + (cons __tmp155443 + __tmp155440)))) (declare (not safe)) - (cons __tmp155463 __tmp155457)))) + (cons __tmp155445 __tmp155439)))) (declare (not safe)) - (cons __tmp155466 __tmp155456)))) + (cons __tmp155448 __tmp155438)))) (declare (not safe)) - (cons '%#call __tmp155455)))) + (cons '%#call __tmp155437)))) (declare (not safe)) - (cons __tmp155454 '())))) + (cons __tmp155436 '())))) (declare (not safe)) - (cons __tmp155468 __tmp155453)))) + (cons __tmp155450 __tmp155435)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155452 '()))) - (__tmp155417 - (let ((__tmp155418 - (let ((__tmp155419 - (let ((__tmp155449 + (cons __tmp155434 '()))) + (__tmp155399 + (let ((__tmp155400 + (let ((__tmp155401 + (let ((__tmp155431 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155450 + (let ((__tmp155432 (let () (declare (not safe)) - (cons _$ctor154308_ '())))) + (cons _$ctor154290_ '())))) (declare (not safe)) - (cons '%#ref __tmp155450))) - (__tmp155420 - (let ((__tmp155442 - (let ((__tmp155443 - (let ((__tmp155447 - (let ((__tmp155448 + (cons '%#ref __tmp155432))) + (__tmp155402 + (let ((__tmp155424 + (let ((__tmp155425 + (let ((__tmp155429 + (let ((__tmp155430 (let () (declare (not safe)) - (cons _$ctor154308_ + (cons _$ctor154290_ '())))) (declare (not safe)) - (cons '%#ref __tmp155448))) - (__tmp155444 - (let ((__tmp155445 - (let ((__tmp155446 + (cons '%#ref __tmp155430))) + (__tmp155426 + (let ((__tmp155427 + (let ((__tmp155428 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj154305_ '())))) + (cons _$obj154287_ '())))) (declare (not safe)) - (cons '%#ref __tmp155446)))) + (cons '%#ref __tmp155428)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155445 - _args154295_)))) + (cons __tmp155427 + _args154277_)))) (declare (not safe)) - (cons __tmp155447 __tmp155444)))) + (cons __tmp155429 __tmp155426)))) (declare (not safe)) - (cons '%#call __tmp155443))) - (__tmp155421 - (let ((__tmp155422 - (let ((__tmp155423 - (let ((__tmp155440 - (let ((__tmp155441 + (cons '%#call __tmp155425))) + (__tmp155403 + (let ((__tmp155404 + (let ((__tmp155405 + (let ((__tmp155422 + (let ((__tmp155423 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp155441))) - (__tmp155424 - (let ((__tmp155438 - (let ((__tmp155439 + (cons '%#ref __tmp155423))) + (__tmp155406 + (let ((__tmp155420 + (let ((__tmp155421 (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp155439))) - (__tmp155425 - (let ((__tmp155436 - (let ((__tmp155437 + (cons '%#quote __tmp155421))) + (__tmp155407 + (let ((__tmp155418 + (let ((__tmp155419 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp155437))) - (__tmp155426 - (let ((__tmp155433 - (let ((__tmp155434 - (let ((__tmp155435 + (cons '%#quote __tmp155419))) + (__tmp155408 + (let ((__tmp155415 + (let ((__tmp155416 + (let ((__tmp155417 (let () (declare (not safe)) (##unchecked-structure-ref - _self154282_ - __id154776 - __klass154774 + _self154264_ + __id154758 + __klass154756 '#f)))) (declare (not safe)) - (cons __tmp155435 '())))) + (cons __tmp155417 '())))) (declare (not safe)) - (cons '%#ref __tmp155434))) - (__tmp155427 - (let ((__tmp155431 - (let ((__tmp155432 + (cons '%#ref __tmp155416))) + (__tmp155409 + (let ((__tmp155413 + (let ((__tmp155414 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp155432))) - (__tmp155428 - (let ((__tmp155429 - (let ((__tmp155430 + (cons '%#quote __tmp155414))) + (__tmp155410 + (let ((__tmp155411 + (let ((__tmp155412 (let () (declare (not safe)) - (cons _ctor154303_ + (cons _ctor154285_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#quote - __tmp155430)))) + __tmp155412)))) (declare (not safe)) - (cons __tmp155429 '())))) + (cons __tmp155411 '())))) (declare (not safe)) - (cons __tmp155431 __tmp155428)))) + (cons __tmp155413 __tmp155410)))) (declare (not safe)) - (cons __tmp155433 __tmp155427)))) + (cons __tmp155415 __tmp155409)))) (declare (not safe)) - (cons __tmp155436 __tmp155426)))) + (cons __tmp155418 __tmp155408)))) (declare (not safe)) - (cons __tmp155438 __tmp155425)))) + (cons __tmp155420 __tmp155407)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155440 - __tmp155424)))) + (cons __tmp155422 + __tmp155406)))) (declare (not safe)) - (cons '%#call __tmp155423)))) + (cons '%#call __tmp155405)))) (declare (not safe)) - (cons __tmp155422 '())))) + (cons __tmp155404 '())))) (declare (not safe)) - (cons __tmp155442 __tmp155421)))) + (cons __tmp155424 __tmp155403)))) (declare (not safe)) - (cons __tmp155449 __tmp155420)))) + (cons __tmp155431 __tmp155402)))) (declare (not safe)) - (cons '%#if __tmp155419)))) + (cons '%#if __tmp155401)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155418 '())))) + (cons __tmp155400 '())))) (declare (not safe)) - (cons __tmp155451 __tmp155417)))) + (cons __tmp155433 __tmp155399)))) (declare (not safe)) - (cons '%#let-values __tmp155416)))) - (__tmp155411 - (let ((__tmp155412 - (let ((__tmp155413 + (cons '%#let-values __tmp155398)))) + (__tmp155393 + (let ((__tmp155394 + (let ((__tmp155395 (let () (declare (not safe)) - (cons _$obj154305_ '())))) + (cons _$obj154287_ '())))) (declare (not safe)) - (cons '%#ref __tmp155413)))) + (cons '%#ref __tmp155395)))) (declare (not safe)) - (cons __tmp155412 '())))) + (cons __tmp155394 '())))) (declare (not safe)) - (cons __tmp155414 __tmp155411)))) + (cons __tmp155396 __tmp155393)))) (declare (not safe)) - (cons '%#begin __tmp155410)))) + (cons '%#begin __tmp155392)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155409 '())))) + (cons __tmp155391 '())))) (declare (not safe)) - (cons __tmp155475 __tmp155408)))) + (cons __tmp155457 __tmp155390)))) (declare (not safe)) - (cons '%#let-values __tmp155407)))) + (cons '%#let-values __tmp155389)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155406 _stx154284_)))) - _$e154300_) - (let ((_$e154310_ + (gxc#xform-wrap-source __tmp155388 _stx154266_)))) + _$e154282_) + (let ((_$e154292_ (##structure-ref - _klass154287_ + _klass154269_ '10 gxc#!class::t '#f))) - (if _$e154310_ - ((lambda (_metaclass154313_) - (let* ((_$obj154315_ - (let ((__tmp155367 (gensym '__obj))) + (if _$e154292_ + ((lambda (_metaclass154295_) + (let* ((_$obj154297_ + (let ((__tmp155349 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155367))) - (_metakons154317_ - (let ((__tmp155368 + (make-symbol__0 __tmp155349))) + (_metakons154299_ + (let ((__tmp155350 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _stx154284_ - _metaclass154313_)))) + _stx154266_ + _metaclass154295_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp155368 + __tmp155350 'instance-init!)))) - (let ((__tmp155369 - (let ((__tmp155370 - (let ((__tmp155401 - (let ((__tmp155402 - (let ((__tmp155404 + (let ((__tmp155351 + (let ((__tmp155352 + (let ((__tmp155383 + (let ((__tmp155384 + (let ((__tmp155386 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj154315_ '()))) - (__tmp155403 + (cons _$obj154297_ '()))) + (__tmp155385 (let () (declare (not safe)) - (cons _inline-make-object154297_ '())))) + (cons _inline-make-object154279_ '())))) (declare (not safe)) - (cons __tmp155404 __tmp155403)))) + (cons __tmp155386 __tmp155385)))) (declare (not safe)) - (cons __tmp155402 '()))) + (cons __tmp155384 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp155371 - (let ((__tmp155372 - (let ((__tmp155373 + (__tmp155353 + (let ((__tmp155354 + (let ((__tmp155355 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155377 - (if _metakons154317_ - (let ((__tmp155391 - (let ((__tmp155399 - (let ((__tmp155400 + (let ((__tmp155359 + (if _metakons154299_ + (let ((__tmp155373 + (let ((__tmp155381 + (let ((__tmp155382 (let () (declare (not safe)) - (cons _metakons154317_ + (cons _metakons154299_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155400))) - (__tmp155392 - (let ((__tmp155396 - (let ((__tmp155397 + __tmp155382))) + (__tmp155374 + (let ((__tmp155378 + (let ((__tmp155379 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155398 + (let ((__tmp155380 (let () (declare (not safe)) (##unchecked-structure-ref - _self154282_ - __id154776 - __klass154774 + _self154264_ + __id154758 + __klass154756 '#f)))) (declare (not safe)) - (cons __tmp155398 '())))) + (cons __tmp155380 '())))) (declare (not safe)) - (cons '%#ref __tmp155397))) - (__tmp155393 - (let ((__tmp155394 - (let ((__tmp155395 + (cons '%#ref __tmp155379))) + (__tmp155375 + (let ((__tmp155376 + (let ((__tmp155377 (let () (declare (not safe)) - (cons _$obj154315_ '())))) + (cons _$obj154297_ '())))) (declare (not safe)) - (cons '%#ref __tmp155395)))) + (cons '%#ref __tmp155377)))) (declare (not safe)) - (cons __tmp155394 _args154295_)))) + (cons __tmp155376 _args154277_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155396 - __tmp155393)))) + (cons __tmp155378 + __tmp155375)))) (declare (not safe)) - (cons __tmp155399 __tmp155392)))) + (cons __tmp155381 __tmp155374)))) (declare (not safe)) - (cons '%#call __tmp155391)) - (let ((__tmp155378 - (let ((__tmp155389 - (let ((__tmp155390 + (cons '%#call __tmp155373)) + (let ((__tmp155360 + (let ((__tmp155371 + (let ((__tmp155372 (let () (declare (not safe)) @@ -2046,526 +2046,526 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155390))) - (__tmp155379 - (let ((__tmp155386 - (let ((__tmp155387 + __tmp155372))) + (__tmp155361 + (let ((__tmp155368 + (let ((__tmp155369 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155388 + (let ((__tmp155370 (let () (declare (not safe)) (##unchecked-structure-ref - _self154282_ - __id154776 - __klass154774 + _self154264_ + __id154758 + __klass154756 '#f)))) (declare (not safe)) - (cons __tmp155388 '())))) + (cons __tmp155370 '())))) (declare (not safe)) - (cons '%#ref __tmp155387))) - (__tmp155380 - (let ((__tmp155384 - (let ((__tmp155385 + (cons '%#ref __tmp155369))) + (__tmp155362 + (let ((__tmp155366 + (let ((__tmp155367 (let () (declare (not safe)) (cons 'instance-init! '())))) (declare (not safe)) - (cons '%#quote __tmp155385))) - (__tmp155381 - (let ((__tmp155382 - (let ((__tmp155383 + (cons '%#quote __tmp155367))) + (__tmp155363 + (let ((__tmp155364 + (let ((__tmp155365 (let () (declare (not safe)) - (cons _$obj154315_ '())))) + (cons _$obj154297_ '())))) (declare (not safe)) - (cons '%#ref __tmp155383)))) + (cons '%#ref __tmp155365)))) (declare (not safe)) - (cons __tmp155382 _args154295_)))) + (cons __tmp155364 _args154277_)))) (declare (not safe)) - (cons __tmp155384 __tmp155381)))) + (cons __tmp155366 __tmp155363)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155386 - __tmp155380)))) + (cons __tmp155368 + __tmp155362)))) (declare (not safe)) - (cons __tmp155389 __tmp155379)))) + (cons __tmp155371 __tmp155361)))) (declare (not safe)) - (cons '%#call __tmp155378)))) - (__tmp155374 - (let ((__tmp155375 - (let ((__tmp155376 + (cons '%#call __tmp155360)))) + (__tmp155356 + (let ((__tmp155357 + (let ((__tmp155358 (let () (declare (not safe)) - (cons _$obj154315_ '())))) + (cons _$obj154297_ '())))) (declare (not safe)) - (cons '%#ref __tmp155376)))) + (cons '%#ref __tmp155358)))) (declare (not safe)) - (cons __tmp155375 '())))) + (cons __tmp155357 '())))) (declare (not safe)) - (cons __tmp155377 __tmp155374)))) + (cons __tmp155359 __tmp155356)))) (declare (not safe)) - (cons '%#begin __tmp155373)))) + (cons '%#begin __tmp155355)))) (declare (not safe)) - (cons __tmp155372 '())))) + (cons __tmp155354 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155401 - __tmp155371)))) + (cons __tmp155383 + __tmp155353)))) (declare (not safe)) - (cons '%#let-values __tmp155370)))) + (cons '%#let-values __tmp155352)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155369 - _stx154284_)))) - _$e154310_) + __tmp155351 + _stx154266_)))) + _$e154292_) (if (##structure-ref - _klass154287_ + _klass154269_ '7 gxc#!class::t '#f) - (if (fx= (length _args154295_) _fields154289_) - (let ((__tmp155359 - (let ((__tmp155360 - (let ((__tmp155365 - (let ((__tmp155366 + (if (fx= (length _args154277_) _fields154271_) + (let ((__tmp155341 + (let ((__tmp155342 + (let ((__tmp155347 + (let ((__tmp155348 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp155366))) - (__tmp155361 - (let ((__tmp155362 - (let ((__tmp155363 - (let ((__tmp155364 + (cons '%#ref __tmp155348))) + (__tmp155343 + (let ((__tmp155344 + (let ((__tmp155345 + (let ((__tmp155346 (let () (declare (not safe)) (##unchecked-structure-ref - _self154282_ - __id154776 - __klass154774 + _self154264_ + __id154758 + __klass154756 '#f)))) (declare (not safe)) - (cons __tmp155364 '())))) + (cons __tmp155346 '())))) (declare (not safe)) - (cons '%#ref __tmp155363)))) + (cons '%#ref __tmp155345)))) (declare (not safe)) - (cons __tmp155362 _args154295_)))) + (cons __tmp155344 _args154277_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155365 - __tmp155361)))) + (cons __tmp155347 + __tmp155343)))) (declare (not safe)) - (cons '%#call __tmp155360)))) + (cons '%#call __tmp155342)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155359 - _stx154284_)) - (let ((__tmp155358 + __tmp155341 + _stx154266_)) + (let ((__tmp155340 (let () (declare (not safe)) (##unchecked-structure-ref - _self154282_ - __id154776 - __klass154774 + _self154264_ + __id154758 + __klass154756 '#f))) - (__tmp155357 + (__tmp155339 (length (##structure-ref - _klass154287_ + _klass154269_ '5 gxc#!class::t '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _stx154284_ - __tmp155358 - __tmp155357))) - (let ((_$obj154320_ - (let ((__tmp155306 (gensym '__obj))) + _stx154266_ + __tmp155340 + __tmp155339))) + (let ((_$obj154302_ + (let ((__tmp155288 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155306)))) - (let _lp154322_ ((_rest154324_ _args154295_) - (_initializers154325_ '())) - (let* ((___stx154893154894_ _rest154324_) - (_g154329154350_ + (make-symbol__0 __tmp155288)))) + (let _lp154304_ ((_rest154306_ _args154277_) + (_initializers154307_ '())) + (let* ((___stx154875154876_ _rest154306_) + (_g154311154332_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx154893154894_))))) - (let ((___kont154895154896_ - (lambda (_L154404_ - _L154405_ - _L154406_) - (let* ((_slot154437_ + ___stx154875154876_))))) + (let ((___kont154877154878_ + (lambda (_L154386_ + _L154387_ + _L154388_) + (let* ((_slot154419_ (keyword->symbol (let () (declare (not safe)) - (gx#stx-e _L154406_)))) - (_off154439_ + (gx#stx-e _L154388_)))) + (_off154421_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _klass154287_ - _slot154437_)))) - (if _off154439_ - (let ((__tmp155308 - (let ((__tmp155309 + _klass154269_ + _slot154419_)))) + (if _off154421_ + (let ((__tmp155290 + (let ((__tmp155291 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _off154439_ _L154405_)))) + (cons _off154421_ _L154387_)))) (declare (not safe)) - (cons __tmp155309 _initializers154325_)))) + (cons __tmp155291 _initializers154307_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp154322_ - _L154404_ - __tmp155308)) - (let ((__tmp155307 + (_lp154304_ + _L154386_ + __tmp155290)) + (let ((__tmp155289 (let () (declare (not safe)) (##unchecked-structure-ref - _self154282_ - __id154776 - __klass154774 + _self154264_ + __id154758 + __klass154756 '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _stx154284_ - __tmp155307 - _slot154437_)))))) - (___kont154897154898_ + _stx154266_ + __tmp155289 + _slot154419_)))))) + (___kont154879154880_ (lambda () - (let ((__tmp155310 - (let ((__tmp155311 - (let ((__tmp155334 + (let ((__tmp155292 + (let ((__tmp155293 + (let ((__tmp155316 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155335 - (let ((__tmp155337 + (let ((__tmp155317 + (let ((__tmp155319 (let () (declare (not safe)) - (cons _$obj154320_ '()))) - (__tmp155336 + (cons _$obj154302_ '()))) + (__tmp155318 (let () (declare (not safe)) - (cons _inline-make-object154297_ + (cons _inline-make-object154279_ '())))) (declare (not safe)) - (cons __tmp155337 __tmp155336)))) + (cons __tmp155319 __tmp155318)))) (declare (not safe)) - (cons __tmp155335 '()))) - (__tmp155312 - (let ((__tmp155313 - (let ((__tmp155314 - (let ((__tmp155331 - (let ((__tmp155332 - (let ((__tmp155333 + (cons __tmp155317 '()))) + (__tmp155294 + (let ((__tmp155295 + (let ((__tmp155296 + (let ((__tmp155313 + (let ((__tmp155314 + (let ((__tmp155315 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj154320_ '())))) + (cons _$obj154302_ '())))) (declare (not safe)) - (cons '%#ref __tmp155333)))) + (cons '%#ref __tmp155315)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155332 '()))) - (__tmp155315 - (let ((__tmp155316 - (lambda (_i154364_ - _r154365_) - (let ((__tmp155317 - (let ((__tmp155318 + (cons __tmp155314 '()))) + (__tmp155297 + (let ((__tmp155298 + (lambda (_i154346_ + _r154347_) + (let ((__tmp155299 + (let ((__tmp155300 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155328 - (let ((__tmp155329 - (let ((__tmp155330 + (let ((__tmp155310 + (let ((__tmp155311 + (let ((__tmp155312 (let () (declare (not safe)) (##unchecked-structure-ref - _self154282_ - __id154776 - __klass154774 + _self154264_ + __id154758 + __klass154756 '#f)))) (declare (not safe)) - (cons __tmp155330 '())))) + (cons __tmp155312 '())))) (declare (not safe)) - (cons '%#ref __tmp155329))) - (__tmp155319 - (let ((__tmp155325 - (let ((__tmp155326 - (let ((__tmp155327 - (car _i154364_))) + (cons '%#ref __tmp155311))) + (__tmp155301 + (let ((__tmp155307 + (let ((__tmp155308 + (let ((__tmp155309 + (car _i154346_))) (declare (not safe)) - (cons __tmp155327 '())))) + (cons __tmp155309 '())))) (declare (not safe)) - (cons '%#quote __tmp155326))) - (__tmp155320 - (let ((__tmp155323 - (let ((__tmp155324 + (cons '%#quote __tmp155308))) + (__tmp155302 + (let ((__tmp155305 + (let ((__tmp155306 (let () (declare (not safe)) - (cons _$obj154320_ + (cons _$obj154302_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155324))) - (__tmp155321 - (let ((__tmp155322 - (cdr _i154364_))) + __tmp155306))) + (__tmp155303 + (let ((__tmp155304 + (cdr _i154346_))) (declare (not safe)) - (cons __tmp155322 '())))) + (cons __tmp155304 '())))) (declare (not safe)) - (cons __tmp155323 __tmp155321)))) + (cons __tmp155305 __tmp155303)))) (declare (not safe)) - (cons __tmp155325 __tmp155320)))) + (cons __tmp155307 __tmp155302)))) (declare (not safe)) - (cons __tmp155328 __tmp155319)))) + (cons __tmp155310 __tmp155301)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp155318)))) + (cons '%#struct-unchecked-set! __tmp155300)))) (declare (not safe)) - (cons __tmp155317 _r154365_))))) + (cons __tmp155299 _r154347_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp155316 + (foldl1 __tmp155298 '() - _initializers154325_)))) + _initializers154307_)))) (declare (not safe)) (foldr1 cons - __tmp155331 - __tmp155315)))) + __tmp155313 + __tmp155297)))) (declare (not safe)) - (cons '%#begin __tmp155314)))) + (cons '%#begin __tmp155296)))) (declare (not safe)) - (cons __tmp155313 '())))) + (cons __tmp155295 '())))) (declare (not safe)) - (cons __tmp155334 __tmp155312)))) + (cons __tmp155316 __tmp155294)))) (declare (not safe)) - (cons '%#let-values __tmp155311)))) + (cons '%#let-values __tmp155293)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155310 - _stx154284_)))) - (___kont154899154900_ + __tmp155292 + _stx154266_)))) + (___kont154881154882_ (lambda () - (let ((__tmp155338 - (let ((__tmp155339 - (let ((__tmp155353 + (let ((__tmp155320 + (let ((__tmp155321 + (let ((__tmp155335 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155354 - (let ((__tmp155356 + (let ((__tmp155336 + (let ((__tmp155338 (let () (declare (not safe)) - (cons _$obj154320_ '()))) - (__tmp155355 + (cons _$obj154302_ '()))) + (__tmp155337 (let () (declare (not safe)) - (cons _inline-make-object154297_ + (cons _inline-make-object154279_ '())))) (declare (not safe)) - (cons __tmp155356 __tmp155355)))) + (cons __tmp155338 __tmp155337)))) (declare (not safe)) - (cons __tmp155354 '()))) - (__tmp155340 - (let ((__tmp155341 - (let ((__tmp155342 - (let ((__tmp155346 - (let ((__tmp155347 - (let ((__tmp155351 - (let ((__tmp155352 + (cons __tmp155336 '()))) + (__tmp155322 + (let ((__tmp155323 + (let ((__tmp155324 + (let ((__tmp155328 + (let ((__tmp155329 + (let ((__tmp155333 + (let ((__tmp155334 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'class-instance-init! '())))) (declare (not safe)) - (cons '%#ref __tmp155352))) - (__tmp155348 - (let ((__tmp155349 - (let ((__tmp155350 + (cons '%#ref __tmp155334))) + (__tmp155330 + (let ((__tmp155331 + (let ((__tmp155332 (let () (declare (not safe)) - (cons _$obj154320_ '())))) + (cons _$obj154302_ '())))) (declare (not safe)) - (cons '%#ref __tmp155350)))) + (cons '%#ref __tmp155332)))) (declare (not safe)) - (cons __tmp155349 _args154295_)))) + (cons __tmp155331 _args154277_)))) (declare (not safe)) - (cons __tmp155351 __tmp155348)))) + (cons __tmp155333 __tmp155330)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp155347))) - (__tmp155343 - (let ((__tmp155344 - (let ((__tmp155345 + (cons '%#call __tmp155329))) + (__tmp155325 + (let ((__tmp155326 + (let ((__tmp155327 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj154320_ '())))) + (cons _$obj154302_ '())))) (declare (not safe)) - (cons '%#ref __tmp155345)))) + (cons '%#ref __tmp155327)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155344 '())))) + (cons __tmp155326 '())))) (declare (not safe)) - (cons __tmp155346 __tmp155343)))) + (cons __tmp155328 __tmp155325)))) (declare (not safe)) - (cons '%#begin __tmp155342)))) + (cons '%#begin __tmp155324)))) (declare (not safe)) - (cons __tmp155341 '())))) + (cons __tmp155323 '())))) (declare (not safe)) - (cons __tmp155353 __tmp155340)))) + (cons __tmp155335 __tmp155322)))) (declare (not safe)) - (cons '%#let-values __tmp155339)))) + (cons '%#let-values __tmp155321)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155338 - _stx154284_))))) - (let* ((_g154327154367_ + __tmp155320 + _stx154266_))))) + (let* ((_g154309154349_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - ___stx154893154894_)) - (___kont154897154898_) - (___kont154899154900_)))) - (___match154930154931_ - (lambda (_e154336154372_ - _hd154335154375_ - _tl154334154377_ - _e154339154380_ - _hd154338154383_ - _tl154337154385_ - _e154342154388_ - _hd154341154391_ - _tl154340154393_ - _e154345154396_ - _hd154344154399_ - _tl154343154401_) - (let ((_L154404_ - _tl154343154401_) - (_L154405_ - _hd154344154399_) - (_L154406_ - _hd154341154391_)) + ___stx154875154876_)) + (___kont154879154880_) + (___kont154881154882_)))) + (___match154912154913_ + (lambda (_e154318154354_ + _hd154317154357_ + _tl154316154359_ + _e154321154362_ + _hd154320154365_ + _tl154319154367_ + _e154324154370_ + _hd154323154373_ + _tl154322154375_ + _e154327154378_ + _hd154326154381_ + _tl154325154383_) + (let ((_L154386_ + _tl154325154383_) + (_L154387_ + _hd154326154381_) + (_L154388_ + _hd154323154373_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _L154406_)) - (___kont154895154896_ - _L154404_ - _L154405_ - _L154406_) - (___kont154899154900_)))))) + _L154388_)) + (___kont154877154878_ + _L154386_ + _L154387_ + _L154388_) + (___kont154881154882_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx154893154894_)) - (let ((_e154336154372_ + ___stx154875154876_)) + (let ((_e154318154354_ (let () (declare (not safe)) (gx#stx-e - ___stx154893154894_)))) - (let ((_tl154334154377_ + ___stx154875154876_)))) + (let ((_tl154316154359_ (let () (declare (not safe)) - (##cdr _e154336154372_))) - (_hd154335154375_ + (##cdr _e154318154354_))) + (_hd154317154357_ (let () (declare (not safe)) - (##car _e154336154372_)))) + (##car _e154318154354_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd154335154375_)) - (let ((_e154339154380_ + _hd154317154357_)) + (let ((_e154321154362_ (let () (declare (not safe)) (gx#stx-e - _hd154335154375_)))) - (let ((_tl154337154385_ + _hd154317154357_)))) + (let ((_tl154319154367_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e154339154380_))) - (_hd154338154383_ - (let () (declare (not safe)) (##car _e154339154380_)))) + (##cdr _e154321154362_))) + (_hd154320154365_ + (let () (declare (not safe)) (##car _e154321154362_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd154338154383_)) + (gx#identifier? _hd154320154365_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd154338154383_)) + (gx#stx-eq? '%#quote _hd154320154365_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl154337154385_)) - (let ((_e154342154388_ + (gx#stx-pair? _tl154319154367_)) + (let ((_e154324154370_ (let () (declare (not safe)) - (gx#stx-e _tl154337154385_)))) - (let ((_tl154340154393_ + (gx#stx-e _tl154319154367_)))) + (let ((_tl154322154375_ (let () (declare (not safe)) - (##cdr _e154342154388_))) - (_hd154341154391_ + (##cdr _e154324154370_))) + (_hd154323154373_ (let () (declare (not safe)) - (##car _e154342154388_)))) + (##car _e154324154370_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl154340154393_)) + (gx#stx-null? _tl154322154375_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl154334154377_)) - (let ((_e154345154396_ + (gx#stx-pair? _tl154316154359_)) + (let ((_e154327154378_ (let () (declare (not safe)) - (gx#stx-e _tl154334154377_)))) - (let ((_tl154343154401_ + (gx#stx-e _tl154316154359_)))) + (let ((_tl154325154383_ (let () (declare (not safe)) - (##cdr _e154345154396_))) - (_hd154344154399_ + (##cdr _e154327154378_))) + (_hd154326154381_ (let () (declare (not safe)) - (##car _e154345154396_)))) - (___match154930154931_ - _e154336154372_ - _hd154335154375_ - _tl154334154377_ - _e154339154380_ - _hd154338154383_ - _tl154337154385_ - _e154342154388_ - _hd154341154391_ - _tl154340154393_ - _e154345154396_ - _hd154344154399_ - _tl154343154401_))) - (___kont154899154900_)) - (___kont154899154900_)))) - (___kont154899154900_)) - (___kont154899154900_)) - (___kont154899154900_)))) + (##car _e154327154378_)))) + (___match154912154913_ + _e154318154354_ + _hd154317154357_ + _tl154316154359_ + _e154321154362_ + _hd154320154365_ + _tl154319154367_ + _e154324154370_ + _hd154323154373_ + _tl154322154375_ + _e154327154378_ + _hd154326154381_ + _tl154325154383_))) + (___kont154881154882_)) + (___kont154881154882_)))) + (___kont154881154882_)) + (___kont154881154882_)) + (___kont154881154882_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont154899154900_)))) + (___kont154881154882_)))) (let () (declare (not safe)) - (_g154327154367_)))))))))))))))))) + (_g154309154349_)))))))))))))))))) (let () (declare (not safe)) (bind-specializer! @@ -2579,958 +2579,958 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_self154104_ _ctx154105_ _stx154106_ _args154107_) - (let* ((_g154109154119_ - (lambda (_g154110154116_) + (lambda (_self154086_ _ctx154087_ _stx154088_ _args154089_) + (let* ((_g154091154101_ + (lambda (_g154092154098_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g154110154116_)))) - (_g154108154157_ - (lambda (_g154110154122_) + _g154092154098_)))) + (_g154090154139_ + (lambda (_g154092154104_) (if (let () (declare (not safe)) - (gx#stx-pair? _g154110154122_)) - (let ((_e154114154124_ + (gx#stx-pair? _g154092154104_)) + (let ((_e154096154106_ (let () (declare (not safe)) - (gx#stx-e _g154110154122_)))) - (let ((_hd154113154127_ + (gx#stx-e _g154092154104_)))) + (let ((_hd154095154109_ (let () (declare (not safe)) - (##car _e154114154124_))) - (_tl154112154129_ + (##car _e154096154106_))) + (_tl154094154111_ (let () (declare (not safe)) - (##cdr _e154114154124_)))) + (##cdr _e154096154106_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl154112154129_)) - ((lambda (_L154132_) - (let* ((_klass154143_ - (let ((__tmp155479 + (gx#stx-null? _tl154094154111_)) + ((lambda (_L154114_) + (let* ((_klass154125_ + (let ((__tmp155461 (##structure-ref - _self154104_ + _self154086_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx154106_ - __tmp155479))) - (_field154145_ - (let ((__tmp155480 + _stx154088_ + __tmp155461))) + (_field154127_ + (let ((__tmp155462 (##structure-ref - _self154104_ + _self154086_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass154143_ - __tmp155480))) - (_object154147_ + _klass154125_ + __tmp155462))) + (_object154129_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx154105_ - _L154132_)))) + _ctx154087_ + _L154114_)))) (if (##structure-ref - _klass154143_ + _klass154125_ '8 gxc#!class::t '#f) - (let ((__tmp155557 - (let ((__tmp155566 + (let ((__tmp155539 + (let ((__tmp155548 (if (##structure-ref - _self154104_ + _self154086_ '3 gxc#!accessor::t '#f) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp155558 - (let ((__tmp155563 - (let ((__tmp155564 + (__tmp155540 + (let ((__tmp155545 + (let ((__tmp155546 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155565 + (let ((__tmp155547 (##structure-ref - _self154104_ + _self154086_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155565 '())))) + (cons __tmp155547 '())))) (declare (not safe)) - (cons '%#ref __tmp155564))) - (__tmp155559 - (let ((__tmp155561 - (let ((__tmp155562 + (cons '%#ref __tmp155546))) + (__tmp155541 + (let ((__tmp155543 + (let ((__tmp155544 (let () (declare (not safe)) - (cons _field154145_ '())))) + (cons _field154127_ '())))) (declare (not safe)) - (cons '%#quote __tmp155562))) - (__tmp155560 + (cons '%#quote __tmp155544))) + (__tmp155542 (let () (declare (not safe)) - (cons _object154147_ '())))) + (cons _object154129_ '())))) (declare (not safe)) - (cons __tmp155561 __tmp155560)))) + (cons __tmp155543 __tmp155542)))) (declare (not safe)) - (cons __tmp155563 __tmp155559)))) + (cons __tmp155545 __tmp155541)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155566 - __tmp155558)))) + (cons __tmp155548 + __tmp155540)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155557 - _stx154106_)) + __tmp155539 + _stx154088_)) (if (##structure-ref - _klass154143_ + _klass154125_ '7 gxc#!class::t '#f) - (let ((__tmp155547 - (let ((__tmp155556 + (let ((__tmp155529 + (let ((__tmp155538 (if (##structure-ref - _self154104_ + _self154086_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp155548 - (let ((__tmp155553 - (let ((__tmp155554 + (__tmp155530 + (let ((__tmp155535 + (let ((__tmp155536 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155555 + (let ((__tmp155537 (##structure-ref - _self154104_ + _self154086_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155555 '())))) + (cons __tmp155537 '())))) (declare (not safe)) - (cons '%#ref __tmp155554))) - (__tmp155549 - (let ((__tmp155551 - (let ((__tmp155552 + (cons '%#ref __tmp155536))) + (__tmp155531 + (let ((__tmp155533 + (let ((__tmp155534 (let () (declare (not safe)) - (cons _field154145_ '())))) + (cons _field154127_ '())))) (declare (not safe)) - (cons '%#quote __tmp155552))) - (__tmp155550 + (cons '%#quote __tmp155534))) + (__tmp155532 (let () (declare (not safe)) - (cons _object154147_ '())))) + (cons _object154129_ '())))) (declare (not safe)) - (cons __tmp155551 __tmp155550)))) + (cons __tmp155533 __tmp155532)))) (declare (not safe)) - (cons __tmp155553 __tmp155549)))) + (cons __tmp155535 __tmp155531)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155556 - __tmp155548)))) + (cons __tmp155538 + __tmp155530)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155547 - _stx154106_)) - (let ((_$e154150_ - (let ((__tmp155481 + __tmp155529 + _stx154088_)) + (let ((_$e154132_ + (let ((__tmp155463 (##structure-ref - _self154104_ + _self154086_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass154143_ - __tmp155481)))) - (if _$e154150_ - ((lambda (_klass154153_) - (let ((__tmp155537 - (let ((__tmp155546 + _klass154125_ + __tmp155463)))) + (if _$e154132_ + ((lambda (_klass154135_) + (let ((__tmp155519 + (let ((__tmp155528 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self154104_ + _self154086_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp155538 - (let ((__tmp155543 - (let ((__tmp155544 - (let ((__tmp155545 + (__tmp155520 + (let ((__tmp155525 + (let ((__tmp155526 + (let ((__tmp155527 (##structure-ref - _self154104_ + _self154086_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155545 '())))) + (cons __tmp155527 '())))) (declare (not safe)) - (cons '%#ref __tmp155544))) - (__tmp155539 - (let ((__tmp155541 - (let ((__tmp155542 + (cons '%#ref __tmp155526))) + (__tmp155521 + (let ((__tmp155523 + (let ((__tmp155524 (let () (declare (not safe)) - (cons _field154145_ '())))) + (cons _field154127_ '())))) (declare (not safe)) - (cons '%#quote __tmp155542))) - (__tmp155540 + (cons '%#quote __tmp155524))) + (__tmp155522 (let () (declare (not safe)) - (cons _object154147_ '())))) + (cons _object154129_ '())))) (declare (not safe)) - (cons __tmp155541 __tmp155540)))) + (cons __tmp155523 __tmp155522)))) (declare (not safe)) - (cons __tmp155543 __tmp155539)))) + (cons __tmp155525 __tmp155521)))) (declare (not safe)) - (cons __tmp155546 __tmp155538)))) + (cons __tmp155528 __tmp155520)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155537 _stx154106_))) + (gxc#xform-wrap-source __tmp155519 _stx154088_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e154150_) + _$e154132_) (if (##structure-ref - _self154104_ + _self154086_ '3 gxc#!accessor::t '#f) - (let ((__tmp155491 - (let* ((_$obj154155_ + (let ((__tmp155473 + (let* ((_$obj154137_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155492 (gensym '__obj))) + (let ((__tmp155474 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155492))) - (__tmp155493 - (let ((__tmp155533 - (let ((__tmp155534 - (let ((__tmp155536 + (make-symbol__0 __tmp155474))) + (__tmp155475 + (let ((__tmp155515 + (let ((__tmp155516 + (let ((__tmp155518 (let () (declare (not safe)) - (cons _$obj154155_ '()))) - (__tmp155535 + (cons _$obj154137_ '()))) + (__tmp155517 (let () (declare (not safe)) - (cons _object154147_ '())))) + (cons _object154129_ '())))) (declare (not safe)) - (cons __tmp155536 __tmp155535)))) + (cons __tmp155518 __tmp155517)))) (declare (not safe)) - (cons __tmp155534 '()))) - (__tmp155494 - (let ((__tmp155495 - (let ((__tmp155496 - (let ((__tmp155525 - (let ((__tmp155526 - (let ((__tmp155530 + (cons __tmp155516 '()))) + (__tmp155476 + (let ((__tmp155477 + (let ((__tmp155478 + (let ((__tmp155507 + (let ((__tmp155508 + (let ((__tmp155512 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155531 - (let ((__tmp155532 + (let ((__tmp155513 + (let ((__tmp155514 (##structure-ref - _klass154143_ + _klass154125_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155532 '())))) + (cons __tmp155514 '())))) (declare (not safe)) - (cons '%#quote __tmp155531))) - (__tmp155527 - (let ((__tmp155528 - (let ((__tmp155529 + (cons '%#quote __tmp155513))) + (__tmp155509 + (let ((__tmp155510 + (let ((__tmp155511 (let () (declare (not safe)) - (cons _$obj154155_ '())))) + (cons _$obj154137_ '())))) (declare (not safe)) - (cons '%#ref __tmp155529)))) + (cons '%#ref __tmp155511)))) (declare (not safe)) - (cons __tmp155528 '())))) + (cons __tmp155510 '())))) (declare (not safe)) - (cons __tmp155530 __tmp155527)))) + (cons __tmp155512 __tmp155509)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp155526))) - (__tmp155497 - (let ((__tmp155514 - (let ((__tmp155515 - (let ((__tmp155522 - (let ((__tmp155523 - (let ((__tmp155524 + (cons '%#struct-direct-instance? __tmp155508))) + (__tmp155479 + (let ((__tmp155496 + (let ((__tmp155497 + (let ((__tmp155504 + (let ((__tmp155505 + (let ((__tmp155506 (##structure-ref - _self154104_ + _self154086_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155524 '())))) + (cons __tmp155506 '())))) (declare (not safe)) - (cons '%#ref __tmp155523))) - (__tmp155516 - (let ((__tmp155520 - (let ((__tmp155521 + (cons '%#ref __tmp155505))) + (__tmp155498 + (let ((__tmp155502 + (let ((__tmp155503 (let () (declare (not safe)) - (cons _field154145_ + (cons _field154127_ '())))) (declare (not safe)) - (cons '%#quote __tmp155521))) - (__tmp155517 - (let ((__tmp155518 - (let ((__tmp155519 + (cons '%#quote __tmp155503))) + (__tmp155499 + (let ((__tmp155500 + (let ((__tmp155501 (let () (declare (not safe)) - (cons _$obj154155_ + (cons _$obj154137_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155519)))) + __tmp155501)))) (declare (not safe)) - (cons __tmp155518 '())))) + (cons __tmp155500 '())))) (declare (not safe)) - (cons __tmp155520 __tmp155517)))) + (cons __tmp155502 __tmp155499)))) (declare (not safe)) - (cons __tmp155522 __tmp155516)))) + (cons __tmp155504 __tmp155498)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp155515))) - (__tmp155498 - (let ((__tmp155499 - (let ((__tmp155500 - (let ((__tmp155512 - (let ((__tmp155513 + (cons '%#struct-unchecked-ref __tmp155497))) + (__tmp155480 + (let ((__tmp155481 + (let ((__tmp155482 + (let ((__tmp155494 + (let ((__tmp155495 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp155513))) - (__tmp155501 - (let ((__tmp155509 - (let ((__tmp155510 - (let ((__tmp155511 + (cons '%#ref __tmp155495))) + (__tmp155483 + (let ((__tmp155491 + (let ((__tmp155492 + (let ((__tmp155493 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##structure-ref _self154104_ '1 gxc#!type::t '#f))) + (##structure-ref _self154086_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155511 '())))) + (cons __tmp155493 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155510))) - (__tmp155502 - (let ((__tmp155507 - (let ((__tmp155508 + __tmp155492))) + (__tmp155484 + (let ((__tmp155489 + (let ((__tmp155490 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj154155_ '())))) + (cons _$obj154137_ '())))) (declare (not safe)) - (cons '%#ref __tmp155508))) - (__tmp155503 - (let ((__tmp155504 - (let ((__tmp155505 - (let ((__tmp155506 + (cons '%#ref __tmp155490))) + (__tmp155485 + (let ((__tmp155486 + (let ((__tmp155487 + (let ((__tmp155488 (##structure-ref - _self154104_ + _self154086_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp155506 '())))) + (cons __tmp155488 '())))) (declare (not safe)) - (cons '%#quote __tmp155505)))) + (cons '%#quote __tmp155487)))) (declare (not safe)) - (cons __tmp155504 '())))) + (cons __tmp155486 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155507 - __tmp155503)))) + (cons __tmp155489 + __tmp155485)))) (declare (not safe)) - (cons __tmp155509 __tmp155502)))) + (cons __tmp155491 __tmp155484)))) (declare (not safe)) - (cons __tmp155512 __tmp155501)))) + (cons __tmp155494 __tmp155483)))) (declare (not safe)) - (cons '%#call __tmp155500)))) + (cons '%#call __tmp155482)))) (declare (not safe)) - (cons __tmp155499 '())))) + (cons __tmp155481 '())))) (declare (not safe)) - (cons __tmp155514 __tmp155498)))) + (cons __tmp155496 __tmp155480)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155525 - __tmp155497)))) + (cons __tmp155507 + __tmp155479)))) (declare (not safe)) - (cons '%#if __tmp155496)))) + (cons '%#if __tmp155478)))) (declare (not safe)) - (cons __tmp155495 '())))) + (cons __tmp155477 '())))) (declare (not safe)) - (cons __tmp155533 __tmp155494)))) + (cons __tmp155515 __tmp155476)))) (declare (not safe)) - (cons '%#let-values __tmp155493)))) + (cons '%#let-values __tmp155475)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155491 _stx154106_)) + (gxc#xform-wrap-source __tmp155473 _stx154088_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp155482 - (let ((__tmp155483 + (let ((__tmp155464 + (let ((__tmp155465 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155489 - (let ((__tmp155490 + (let ((__tmp155471 + (let ((__tmp155472 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp155490))) - (__tmp155484 - (let ((__tmp155485 - (let ((__tmp155486 - (let ((__tmp155487 - (let ((__tmp155488 + (cons '%#ref __tmp155472))) + (__tmp155466 + (let ((__tmp155467 + (let ((__tmp155468 + (let ((__tmp155469 + (let ((__tmp155470 (##structure-ref - _self154104_ + _self154086_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp155488 + (cons __tmp155470 '())))) (declare (not safe)) (cons '%#quote - __tmp155487)))) + __tmp155469)))) (declare (not safe)) - (cons __tmp155486 '())))) + (cons __tmp155468 '())))) (declare (not safe)) - (cons _object154147_ __tmp155485)))) + (cons _object154129_ __tmp155467)))) (declare (not safe)) - (cons __tmp155489 __tmp155484)))) + (cons __tmp155471 __tmp155466)))) (declare (not safe)) - (cons '%#call __tmp155483)))) + (cons '%#call __tmp155465)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155482 _stx154106_))))))))) + (gxc#xform-wrap-source __tmp155464 _stx154088_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd154113154127_) + _hd154095154109_) (let () (declare (not safe)) - (_g154109154119_ _g154110154122_))))) + (_g154091154101_ _g154092154104_))))) (let () (declare (not safe)) - (_g154109154119_ _g154110154122_)))))) + (_g154091154101_ _g154092154104_)))))) (declare (not safe)) - (_g154108154157_ _args154107_)))) + (_g154090154139_ _args154089_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__klass154778 __method-table154779) - (let ((__slot154780 - (let ((__slot154783 + (lambda (__klass154760 __method-table154761) + (let ((__id154762 + (let ((__slot154765 (let () (declare (not safe)) - (class-slot-offset __klass154778 'slot)))) - (if __slot154783 - __slot154783 + (class-slot-offset __klass154760 'id)))) + (if __slot154765 + __slot154765 (let () (declare (not safe)) - (error '"Unknown slot" 'slot))))) - (__id154781 - (let ((__slot154784 + (error '"Unknown slot" 'id))))) + (__checked?154763 + (let ((__slot154766 (let () (declare (not safe)) - (class-slot-offset __klass154778 'id)))) - (if __slot154784 - __slot154784 + (class-slot-offset __klass154760 'checked?)))) + (if __slot154766 + __slot154766 (let () (declare (not safe)) - (error '"Unknown slot" 'id))))) - (__checked?154782 - (let ((__slot154785 + (error '"Unknown slot" 'checked?))))) + (__slot154764 + (let ((__slot154767 (let () (declare (not safe)) - (class-slot-offset __klass154778 'checked?)))) - (if __slot154785 - __slot154785 + (class-slot-offset __klass154760 'slot)))) + (if __slot154767 + __slot154767 (let () (declare (not safe)) - (error '"Unknown slot" 'checked?)))))) - (lambda (_self154104_ _ctx154105_ _stx154106_ _args154107_) - (let* ((_g154109154119_ - (lambda (_g154110154116_) + (error '"Unknown slot" 'slot)))))) + (lambda (_self154086_ _ctx154087_ _stx154088_ _args154089_) + (let* ((_g154091154101_ + (lambda (_g154092154098_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g154110154116_)))) - (_g154108154157_ - (lambda (_g154110154122_) + _g154092154098_)))) + (_g154090154139_ + (lambda (_g154092154104_) (if (let () (declare (not safe)) - (gx#stx-pair? _g154110154122_)) - (let ((_e154114154124_ + (gx#stx-pair? _g154092154104_)) + (let ((_e154096154106_ (let () (declare (not safe)) - (gx#stx-e _g154110154122_)))) - (let ((_hd154113154127_ + (gx#stx-e _g154092154104_)))) + (let ((_hd154095154109_ (let () (declare (not safe)) - (##car _e154114154124_))) - (_tl154112154129_ + (##car _e154096154106_))) + (_tl154094154111_ (let () (declare (not safe)) - (##cdr _e154114154124_)))) + (##cdr _e154096154106_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl154112154129_)) - ((lambda (_L154132_) - (let* ((_klass154143_ - (let ((__tmp155567 + (gx#stx-null? _tl154094154111_)) + ((lambda (_L154114_) + (let* ((_klass154125_ + (let ((__tmp155549 (let () (declare (not safe)) (##unchecked-structure-ref - _self154104_ - __id154781 - __klass154778 + _self154086_ + __id154762 + __klass154760 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx154106_ - __tmp155567))) - (_field154145_ - (let ((__tmp155568 + _stx154088_ + __tmp155549))) + (_field154127_ + (let ((__tmp155550 (let () (declare (not safe)) (##unchecked-structure-ref - _self154104_ - __slot154780 - __klass154778 + _self154086_ + __slot154764 + __klass154760 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass154143_ - __tmp155568))) - (_object154147_ + _klass154125_ + __tmp155550))) + (_object154129_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx154105_ - _L154132_)))) + _ctx154087_ + _L154114_)))) (if (##structure-ref - _klass154143_ + _klass154125_ '8 gxc#!class::t '#f) - (let ((__tmp155645 - (let ((__tmp155654 + (let ((__tmp155627 + (let ((__tmp155636 (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self154104_ - __checked?154782 - __klass154778 + _self154086_ + __checked?154763 + __klass154760 '#f)) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp155646 - (let ((__tmp155651 - (let ((__tmp155652 - (let ((__tmp155653 + (__tmp155628 + (let ((__tmp155633 + (let ((__tmp155634 + (let ((__tmp155635 (let () (declare (not safe)) (##unchecked-structure-ref - _self154104_ - __id154781 - __klass154778 + _self154086_ + __id154762 + __klass154760 '#f)))) (declare (not safe)) - (cons __tmp155653 '())))) + (cons __tmp155635 '())))) (declare (not safe)) - (cons '%#ref __tmp155652))) - (__tmp155647 - (let ((__tmp155649 - (let ((__tmp155650 + (cons '%#ref __tmp155634))) + (__tmp155629 + (let ((__tmp155631 + (let ((__tmp155632 (let () (declare (not safe)) - (cons _field154145_ '())))) + (cons _field154127_ '())))) (declare (not safe)) - (cons '%#quote __tmp155650))) - (__tmp155648 + (cons '%#quote __tmp155632))) + (__tmp155630 (let () (declare (not safe)) - (cons _object154147_ '())))) + (cons _object154129_ '())))) (declare (not safe)) - (cons __tmp155649 __tmp155648)))) + (cons __tmp155631 __tmp155630)))) (declare (not safe)) - (cons __tmp155651 __tmp155647)))) + (cons __tmp155633 __tmp155629)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155654 - __tmp155646)))) + (cons __tmp155636 + __tmp155628)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155645 - _stx154106_)) + __tmp155627 + _stx154088_)) (if (##structure-ref - _klass154143_ + _klass154125_ '7 gxc#!class::t '#f) - (let ((__tmp155635 - (let ((__tmp155644 + (let ((__tmp155617 + (let ((__tmp155626 (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self154104_ - __checked?154782 - __klass154778 + _self154086_ + __checked?154763 + __klass154760 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp155636 - (let ((__tmp155641 - (let ((__tmp155642 - (let ((__tmp155643 + (__tmp155618 + (let ((__tmp155623 + (let ((__tmp155624 + (let ((__tmp155625 (let () (declare (not safe)) (##unchecked-structure-ref - _self154104_ - __id154781 - __klass154778 + _self154086_ + __id154762 + __klass154760 '#f)))) (declare (not safe)) - (cons __tmp155643 '())))) + (cons __tmp155625 '())))) (declare (not safe)) - (cons '%#ref __tmp155642))) - (__tmp155637 - (let ((__tmp155639 - (let ((__tmp155640 + (cons '%#ref __tmp155624))) + (__tmp155619 + (let ((__tmp155621 + (let ((__tmp155622 (let () (declare (not safe)) - (cons _field154145_ '())))) + (cons _field154127_ '())))) (declare (not safe)) - (cons '%#quote __tmp155640))) - (__tmp155638 + (cons '%#quote __tmp155622))) + (__tmp155620 (let () (declare (not safe)) - (cons _object154147_ '())))) + (cons _object154129_ '())))) (declare (not safe)) - (cons __tmp155639 __tmp155638)))) + (cons __tmp155621 __tmp155620)))) (declare (not safe)) - (cons __tmp155641 __tmp155637)))) + (cons __tmp155623 __tmp155619)))) (declare (not safe)) - (cons __tmp155644 __tmp155636)))) + (cons __tmp155626 __tmp155618)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155635 - _stx154106_)) - (let ((_$e154150_ - (let ((__tmp155569 + __tmp155617 + _stx154088_)) + (let ((_$e154132_ + (let ((__tmp155551 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self154104_ - __slot154780 - __klass154778 + _self154086_ + __slot154764 + __klass154760 '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass154143_ __tmp155569)))) + (gxc#!class-slot-find-struct _klass154125_ __tmp155551)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e154150_ - ((lambda (_klass154153_) - (let ((__tmp155625 - (let ((__tmp155634 + (if _$e154132_ + ((lambda (_klass154135_) + (let ((__tmp155607 + (let ((__tmp155616 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self154104_ - __checked?154782 - __klass154778 + _self154086_ + __checked?154763 + __klass154760 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp155626 - (let ((__tmp155631 - (let ((__tmp155632 - (let ((__tmp155633 + (__tmp155608 + (let ((__tmp155613 + (let ((__tmp155614 + (let ((__tmp155615 (let () (declare (not safe)) (##unchecked-structure-ref - _self154104_ - __id154781 - __klass154778 + _self154086_ + __id154762 + __klass154760 '#f)))) (declare (not safe)) - (cons __tmp155633 '())))) + (cons __tmp155615 '())))) (declare (not safe)) - (cons '%#ref __tmp155632))) - (__tmp155627 - (let ((__tmp155629 - (let ((__tmp155630 + (cons '%#ref __tmp155614))) + (__tmp155609 + (let ((__tmp155611 + (let ((__tmp155612 (let () (declare (not safe)) - (cons _field154145_ + (cons _field154127_ '())))) (declare (not safe)) - (cons '%#quote __tmp155630))) - (__tmp155628 + (cons '%#quote __tmp155612))) + (__tmp155610 (let () (declare (not safe)) - (cons _object154147_ '())))) + (cons _object154129_ '())))) (declare (not safe)) - (cons __tmp155629 __tmp155628)))) + (cons __tmp155611 __tmp155610)))) (declare (not safe)) - (cons __tmp155631 __tmp155627)))) + (cons __tmp155613 __tmp155609)))) (declare (not safe)) - (cons __tmp155634 __tmp155626)))) + (cons __tmp155616 __tmp155608)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155625 _stx154106_))) - _$e154150_) + (gxc#xform-wrap-source __tmp155607 _stx154088_))) + _$e154132_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _self154104_ - __checked?154782 - __klass154778 + _self154086_ + __checked?154763 + __klass154760 '#f)) - (let ((__tmp155579 - (let* ((_$obj154155_ + (let ((__tmp155561 + (let* ((_$obj154137_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155580 (gensym '__obj))) + (let ((__tmp155562 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155580))) - (__tmp155581 - (let ((__tmp155621 - (let ((__tmp155622 - (let ((__tmp155624 + (make-symbol__0 __tmp155562))) + (__tmp155563 + (let ((__tmp155603 + (let ((__tmp155604 + (let ((__tmp155606 (let () (declare (not safe)) - (cons _$obj154155_ + (cons _$obj154137_ '()))) - (__tmp155623 + (__tmp155605 (let () (declare (not safe)) - (cons _object154147_ + (cons _object154129_ '())))) (declare (not safe)) - (cons __tmp155624 - __tmp155623)))) + (cons __tmp155606 + __tmp155605)))) (declare (not safe)) - (cons __tmp155622 '()))) - (__tmp155582 - (let ((__tmp155583 - (let ((__tmp155584 - (let ((__tmp155613 - (let ((__tmp155614 + (cons __tmp155604 '()))) + (__tmp155564 + (let ((__tmp155565 + (let ((__tmp155566 + (let ((__tmp155595 + (let ((__tmp155596 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155618 - (let ((__tmp155619 - (let ((__tmp155620 + (let ((__tmp155600 + (let ((__tmp155601 + (let ((__tmp155602 (##structure-ref - _klass154143_ + _klass154125_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155620 '())))) + (cons __tmp155602 '())))) (declare (not safe)) - (cons '%#quote __tmp155619))) - (__tmp155615 - (let ((__tmp155616 - (let ((__tmp155617 + (cons '%#quote __tmp155601))) + (__tmp155597 + (let ((__tmp155598 + (let ((__tmp155599 (let () (declare (not safe)) - (cons _$obj154155_ '())))) + (cons _$obj154137_ '())))) (declare (not safe)) - (cons '%#ref __tmp155617)))) + (cons '%#ref __tmp155599)))) (declare (not safe)) - (cons __tmp155616 '())))) + (cons __tmp155598 '())))) (declare (not safe)) - (cons __tmp155618 __tmp155615)))) + (cons __tmp155600 __tmp155597)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp155614))) - (__tmp155585 - (let ((__tmp155602 - (let ((__tmp155603 - (let ((__tmp155610 - (let ((__tmp155611 - (let ((__tmp155612 + (cons '%#struct-direct-instance? __tmp155596))) + (__tmp155567 + (let ((__tmp155584 + (let ((__tmp155585 + (let ((__tmp155592 + (let ((__tmp155593 + (let ((__tmp155594 (let () (declare (not safe)) (##unchecked-structure-ref - _self154104_ - __id154781 - __klass154778 + _self154086_ + __id154762 + __klass154760 '#f)))) (declare (not safe)) - (cons __tmp155612 '())))) + (cons __tmp155594 '())))) (declare (not safe)) - (cons '%#ref __tmp155611))) - (__tmp155604 - (let ((__tmp155608 - (let ((__tmp155609 + (cons '%#ref __tmp155593))) + (__tmp155586 + (let ((__tmp155590 + (let ((__tmp155591 (let () (declare (not safe)) - (cons _field154145_ + (cons _field154127_ '())))) (declare (not safe)) - (cons '%#quote __tmp155609))) - (__tmp155605 - (let ((__tmp155606 - (let ((__tmp155607 + (cons '%#quote __tmp155591))) + (__tmp155587 + (let ((__tmp155588 + (let ((__tmp155589 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj154155_ '())))) + (cons _$obj154137_ '())))) (declare (not safe)) - (cons '%#ref __tmp155607)))) + (cons '%#ref __tmp155589)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155606 '())))) + (cons __tmp155588 '())))) (declare (not safe)) - (cons __tmp155608 __tmp155605)))) + (cons __tmp155590 __tmp155587)))) (declare (not safe)) - (cons __tmp155610 __tmp155604)))) + (cons __tmp155592 __tmp155586)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp155603))) - (__tmp155586 - (let ((__tmp155587 - (let ((__tmp155588 - (let ((__tmp155600 - (let ((__tmp155601 + (cons '%#struct-unchecked-ref __tmp155585))) + (__tmp155568 + (let ((__tmp155569 + (let ((__tmp155570 + (let ((__tmp155582 + (let ((__tmp155583 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp155601))) - (__tmp155589 - (let ((__tmp155597 - (let ((__tmp155598 - (let ((__tmp155599 + (cons '%#ref __tmp155583))) + (__tmp155571 + (let ((__tmp155579 + (let ((__tmp155580 + (let ((__tmp155581 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self154104_ - __id154781 - __klass154778 + _self154086_ + __id154762 + __klass154760 '#f)))) (declare (not safe)) - (cons __tmp155599 '())))) + (cons __tmp155581 '())))) (declare (not safe)) - (cons '%#ref __tmp155598))) - (__tmp155590 - (let ((__tmp155595 - (let ((__tmp155596 + (cons '%#ref __tmp155580))) + (__tmp155572 + (let ((__tmp155577 + (let ((__tmp155578 (let () (declare (not safe)) - (cons _$obj154155_ '())))) + (cons _$obj154137_ '())))) (declare (not safe)) - (cons '%#ref __tmp155596))) - (__tmp155591 - (let ((__tmp155592 - (let ((__tmp155593 - (let ((__tmp155594 + (cons '%#ref __tmp155578))) + (__tmp155573 + (let ((__tmp155574 + (let ((__tmp155575 + (let ((__tmp155576 (let () (declare (not safe)) (##unchecked-structure-ref - _self154104_ - __slot154780 - __klass154778 + _self154086_ + __slot154764 + __klass154760 '#f)))) (declare (not safe)) - (cons __tmp155594 '())))) + (cons __tmp155576 '())))) (declare (not safe)) - (cons '%#quote __tmp155593)))) + (cons '%#quote __tmp155575)))) (declare (not safe)) - (cons __tmp155592 '())))) + (cons __tmp155574 '())))) (declare (not safe)) - (cons __tmp155595 __tmp155591)))) + (cons __tmp155577 __tmp155573)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155597 - __tmp155590)))) + (cons __tmp155579 + __tmp155572)))) (declare (not safe)) - (cons __tmp155600 __tmp155589)))) + (cons __tmp155582 __tmp155571)))) (declare (not safe)) - (cons '%#call __tmp155588)))) + (cons '%#call __tmp155570)))) (declare (not safe)) - (cons __tmp155587 '())))) + (cons __tmp155569 '())))) (declare (not safe)) - (cons __tmp155602 __tmp155586)))) + (cons __tmp155584 __tmp155568)))) (declare (not safe)) - (cons __tmp155613 __tmp155585)))) + (cons __tmp155595 __tmp155567)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp155584)))) + (cons '%#if __tmp155566)))) (declare (not safe)) - (cons __tmp155583 '())))) + (cons __tmp155565 '())))) (declare (not safe)) - (cons __tmp155621 __tmp155582)))) + (cons __tmp155603 __tmp155564)))) (declare (not safe)) - (cons '%#let-values __tmp155581)))) + (cons '%#let-values __tmp155563)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155579 _stx154106_)) - (let ((__tmp155570 - (let ((__tmp155571 - (let ((__tmp155577 - (let ((__tmp155578 + (gxc#xform-wrap-source __tmp155561 _stx154088_)) + (let ((__tmp155552 + (let ((__tmp155553 + (let ((__tmp155559 + (let ((__tmp155560 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp155578))) - (__tmp155572 - (let ((__tmp155573 - (let ((__tmp155574 - (let ((__tmp155575 - (let ((__tmp155576 + (cons '%#ref __tmp155560))) + (__tmp155554 + (let ((__tmp155555 + (let ((__tmp155556 + (let ((__tmp155557 + (let ((__tmp155558 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self154104_ - __slot154780 - __klass154778 + _self154086_ + __slot154764 + __klass154760 '#f)))) (declare (not safe)) - (cons __tmp155576 '())))) + (cons __tmp155558 '())))) (declare (not safe)) - (cons '%#quote __tmp155575)))) + (cons '%#quote __tmp155557)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155574 '())))) + (cons __tmp155556 '())))) (declare (not safe)) - (cons _object154147_ __tmp155573)))) + (cons _object154129_ __tmp155555)))) (declare (not safe)) - (cons __tmp155577 __tmp155572)))) + (cons __tmp155559 __tmp155554)))) (declare (not safe)) - (cons '%#call __tmp155571)))) + (cons '%#call __tmp155553)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155570 _stx154106_))))))))) + (gxc#xform-wrap-source __tmp155552 _stx154088_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd154113154127_) + _hd154095154109_) (let () (declare (not safe)) - (_g154109154119_ _g154110154122_))))) + (_g154091154101_ _g154092154104_))))) (let () (declare (not safe)) - (_g154109154119_ _g154110154122_)))))) + (_g154091154101_ _g154092154104_)))))) (declare (not safe)) - (_g154108154157_ _args154107_)))))) + (_g154090154139_ _args154089_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3544,365 +3544,365 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_self153908_ _ctx153909_ _stx153910_ _args153911_) - (let* ((_g153913153927_ - (lambda (_g153914153924_) + (lambda (_self153890_ _ctx153891_ _stx153892_ _args153893_) + (let* ((_g153895153909_ + (lambda (_g153896153906_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g153914153924_)))) - (_g153912153979_ - (lambda (_g153914153930_) + _g153896153906_)))) + (_g153894153961_ + (lambda (_g153896153912_) (if (let () (declare (not safe)) - (gx#stx-pair? _g153914153930_)) - (let ((_e153919153932_ + (gx#stx-pair? _g153896153912_)) + (let ((_e153901153914_ (let () (declare (not safe)) - (gx#stx-e _g153914153930_)))) - (let ((_hd153918153935_ + (gx#stx-e _g153896153912_)))) + (let ((_hd153900153917_ (let () (declare (not safe)) - (##car _e153919153932_))) - (_tl153917153937_ + (##car _e153901153914_))) + (_tl153899153919_ (let () (declare (not safe)) - (##cdr _e153919153932_)))) + (##cdr _e153901153914_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl153917153937_)) - (let ((_e153922153940_ + (gx#stx-pair? _tl153899153919_)) + (let ((_e153904153922_ (let () (declare (not safe)) - (gx#stx-e _tl153917153937_)))) - (let ((_hd153921153943_ + (gx#stx-e _tl153899153919_)))) + (let ((_hd153903153925_ (let () (declare (not safe)) - (##car _e153922153940_))) - (_tl153920153945_ + (##car _e153904153922_))) + (_tl153902153927_ (let () (declare (not safe)) - (##cdr _e153922153940_)))) + (##cdr _e153904153922_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl153920153945_)) - ((lambda (_L153948_ _L153949_) - (let* ((_klass153963_ - (let ((__tmp155655 + (gx#stx-null? _tl153902153927_)) + ((lambda (_L153930_ _L153931_) + (let* ((_klass153945_ + (let ((__tmp155637 (##structure-ref - _self153908_ + _self153890_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx153910_ - __tmp155655))) - (_field153965_ - (let ((__tmp155656 + _stx153892_ + __tmp155637))) + (_field153947_ + (let ((__tmp155638 (##structure-ref - _self153908_ + _self153890_ '2 gxc#!mutator::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass153963_ - __tmp155656))) - (_object153967_ + _klass153945_ + __tmp155638))) + (_object153949_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx153909_ - _L153949_))) - (_value153969_ + _ctx153891_ + _L153931_))) + (_value153951_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx153909_ - _L153948_)))) + _ctx153891_ + _L153930_)))) (if (##structure-ref - _klass153963_ + _klass153945_ '8 gxc#!class::t '#f) - (let ((__tmp155738 - (let ((__tmp155748 + (let ((__tmp155720 + (let ((__tmp155730 (if (##structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _self153908_ + _self153890_ '3 gxc#!mutator::t '#f) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp155739 - (let ((__tmp155745 - (let ((__tmp155746 - (let ((__tmp155747 + (__tmp155721 + (let ((__tmp155727 + (let ((__tmp155728 + (let ((__tmp155729 (##structure-ref - _self153908_ + _self153890_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155747 '())))) + (cons __tmp155729 '())))) (declare (not safe)) - (cons '%#ref __tmp155746))) - (__tmp155740 - (let ((__tmp155743 - (let ((__tmp155744 + (cons '%#ref __tmp155728))) + (__tmp155722 + (let ((__tmp155725 + (let ((__tmp155726 (let () (declare (not safe)) - (cons _field153965_ '())))) + (cons _field153947_ '())))) (declare (not safe)) - (cons '%#quote __tmp155744))) - (__tmp155741 - (let ((__tmp155742 + (cons '%#quote __tmp155726))) + (__tmp155723 + (let ((__tmp155724 (let () (declare (not safe)) - (cons _value153969_ '())))) + (cons _value153951_ '())))) (declare (not safe)) - (cons _object153967_ __tmp155742)))) + (cons _object153949_ __tmp155724)))) (declare (not safe)) - (cons __tmp155743 __tmp155741)))) + (cons __tmp155725 __tmp155723)))) (declare (not safe)) - (cons __tmp155745 __tmp155740)))) + (cons __tmp155727 __tmp155722)))) (declare (not safe)) - (cons __tmp155748 __tmp155739)))) + (cons __tmp155730 __tmp155721)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155738 - _stx153910_)) + __tmp155720 + _stx153892_)) (if (##structure-ref - _klass153963_ + _klass153945_ '7 gxc#!class::t '#f) - (let ((__tmp155727 - (let ((__tmp155737 + (let ((__tmp155709 + (let ((__tmp155719 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self153908_ + _self153890_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp155728 - (let ((__tmp155734 - (let ((__tmp155735 - (let ((__tmp155736 + (__tmp155710 + (let ((__tmp155716 + (let ((__tmp155717 + (let ((__tmp155718 (##structure-ref - _self153908_ + _self153890_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155736 '())))) + (cons __tmp155718 '())))) (declare (not safe)) - (cons '%#ref __tmp155735))) - (__tmp155729 - (let ((__tmp155732 - (let ((__tmp155733 + (cons '%#ref __tmp155717))) + (__tmp155711 + (let ((__tmp155714 + (let ((__tmp155715 (let () (declare (not safe)) - (cons _field153965_ '())))) + (cons _field153947_ '())))) (declare (not safe)) - (cons '%#quote __tmp155733))) - (__tmp155730 - (let ((__tmp155731 + (cons '%#quote __tmp155715))) + (__tmp155712 + (let ((__tmp155713 (let () (declare (not safe)) - (cons _value153969_ '())))) + (cons _value153951_ '())))) (declare (not safe)) - (cons _object153967_ __tmp155731)))) + (cons _object153949_ __tmp155713)))) (declare (not safe)) - (cons __tmp155732 __tmp155730)))) + (cons __tmp155714 __tmp155712)))) (declare (not safe)) - (cons __tmp155734 __tmp155729)))) + (cons __tmp155716 __tmp155711)))) (declare (not safe)) - (cons __tmp155737 __tmp155728)))) + (cons __tmp155719 __tmp155710)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155727 - _stx153910_)) - (let ((_$e153972_ - (let ((__tmp155657 + __tmp155709 + _stx153892_)) + (let ((_$e153954_ + (let ((__tmp155639 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self153908_ + _self153890_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass153963_ __tmp155657)))) + (gxc#!class-slot-find-struct _klass153945_ __tmp155639)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e153972_ - ((lambda (_klass153975_) - (let ((__tmp155716 + (if _$e153954_ + ((lambda (_klass153957_) + (let ((__tmp155698 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155726 + (let ((__tmp155708 (if (##structure-ref - _self153908_ + _self153890_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp155717 - (let ((__tmp155723 - (let ((__tmp155724 - (let ((__tmp155725 + (__tmp155699 + (let ((__tmp155705 + (let ((__tmp155706 + (let ((__tmp155707 (##structure-ref - _self153908_ + _self153890_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155725 '())))) + (cons __tmp155707 '())))) (declare (not safe)) - (cons '%#ref __tmp155724))) - (__tmp155718 - (let ((__tmp155721 - (let ((__tmp155722 + (cons '%#ref __tmp155706))) + (__tmp155700 + (let ((__tmp155703 + (let ((__tmp155704 (let () (declare (not safe)) - (cons _field153965_ + (cons _field153947_ '())))) (declare (not safe)) - (cons '%#quote __tmp155722))) - (__tmp155719 - (let ((__tmp155720 + (cons '%#quote __tmp155704))) + (__tmp155701 + (let ((__tmp155702 (let () (declare (not safe)) - (cons _value153969_ + (cons _value153951_ '())))) (declare (not safe)) - (cons _object153967_ - __tmp155720)))) + (cons _object153949_ + __tmp155702)))) (declare (not safe)) - (cons __tmp155721 __tmp155719)))) + (cons __tmp155703 __tmp155701)))) (declare (not safe)) - (cons __tmp155723 __tmp155718)))) + (cons __tmp155705 __tmp155700)))) (declare (not safe)) - (cons __tmp155726 __tmp155717)))) + (cons __tmp155708 __tmp155699)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155716 _stx153910_))) - _$e153972_) - (if (##structure-ref _self153908_ '3 gxc#!mutator::t '#f) - (let ((__tmp155668 - (let* ((_$obj153977_ - (let ((__tmp155669 (gensym '__obj))) + (gxc#xform-wrap-source __tmp155698 _stx153892_))) + _$e153954_) + (if (##structure-ref _self153890_ '3 gxc#!mutator::t '#f) + (let ((__tmp155650 + (let* ((_$obj153959_ + (let ((__tmp155651 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155669))) - (__tmp155670 - (let ((__tmp155712 - (let ((__tmp155713 - (let ((__tmp155715 + (make-symbol__0 __tmp155651))) + (__tmp155652 + (let ((__tmp155694 + (let ((__tmp155695 + (let ((__tmp155697 (let () (declare (not safe)) - (cons _$obj153977_ + (cons _$obj153959_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp155714 - (let () (declare (not safe)) (cons _object153967_ '())))) + (__tmp155696 + (let () (declare (not safe)) (cons _object153949_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155715 - __tmp155714)))) + (cons __tmp155697 + __tmp155696)))) (declare (not safe)) - (cons __tmp155713 '()))) - (__tmp155671 - (let ((__tmp155672 - (let ((__tmp155673 - (let ((__tmp155704 - (let ((__tmp155705 + (cons __tmp155695 '()))) + (__tmp155653 + (let ((__tmp155654 + (let ((__tmp155655 + (let ((__tmp155686 + (let ((__tmp155687 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155709 - (let ((__tmp155710 - (let ((__tmp155711 + (let ((__tmp155691 + (let ((__tmp155692 + (let ((__tmp155693 (##structure-ref - _klass153963_ + _klass153945_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155711 '())))) + (cons __tmp155693 '())))) (declare (not safe)) - (cons '%#quote __tmp155710))) - (__tmp155706 - (let ((__tmp155707 - (let ((__tmp155708 + (cons '%#quote __tmp155692))) + (__tmp155688 + (let ((__tmp155689 + (let ((__tmp155690 (let () (declare (not safe)) - (cons _$obj153977_ + (cons _$obj153959_ '())))) (declare (not safe)) - (cons '%#ref __tmp155708)))) + (cons '%#ref __tmp155690)))) (declare (not safe)) - (cons __tmp155707 '())))) + (cons __tmp155689 '())))) (declare (not safe)) - (cons __tmp155709 __tmp155706)))) + (cons __tmp155691 __tmp155688)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp155705))) - (__tmp155674 - (let ((__tmp155692 - (let ((__tmp155693 - (let ((__tmp155701 - (let ((__tmp155702 - (let ((__tmp155703 + (cons '%#struct-direct-instance? __tmp155687))) + (__tmp155656 + (let ((__tmp155674 + (let ((__tmp155675 + (let ((__tmp155683 + (let ((__tmp155684 + (let ((__tmp155685 (##structure-ref - _self153908_ + _self153890_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155703 '())))) + (cons __tmp155685 '())))) (declare (not safe)) - (cons '%#ref __tmp155702))) - (__tmp155694 - (let ((__tmp155699 - (let ((__tmp155700 + (cons '%#ref __tmp155684))) + (__tmp155676 + (let ((__tmp155681 + (let ((__tmp155682 (let () (declare (not safe)) - (cons _field153965_ + (cons _field153947_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp155700))) + (cons '%#quote __tmp155682))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp155695 - (let ((__tmp155697 - (let ((__tmp155698 + (__tmp155677 + (let ((__tmp155679 + (let ((__tmp155680 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj153977_ '())))) + (cons _$obj153959_ '())))) (declare (not safe)) - (cons '%#ref __tmp155698))) - (__tmp155696 - (let () (declare (not safe)) (cons _value153969_ '())))) + (cons '%#ref __tmp155680))) + (__tmp155678 + (let () (declare (not safe)) (cons _value153951_ '())))) (declare (not safe)) - (cons __tmp155697 __tmp155696)))) + (cons __tmp155679 __tmp155678)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155699 - __tmp155695)))) + (cons __tmp155681 + __tmp155677)))) (declare (not safe)) - (cons __tmp155701 __tmp155694)))) + (cons __tmp155683 __tmp155676)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp155693))) - (__tmp155675 - (let ((__tmp155676 - (let ((__tmp155677 - (let ((__tmp155690 - (let ((__tmp155691 + (cons '%#struct-unchecked-set! __tmp155675))) + (__tmp155657 + (let ((__tmp155658 + (let ((__tmp155659 + (let ((__tmp155672 + (let ((__tmp155673 (let () (declare (not safe)) @@ -3910,686 +3910,686 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp155691))) + (cons '%#ref __tmp155673))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp155678 - (let ((__tmp155687 - (let ((__tmp155688 + (__tmp155660 + (let ((__tmp155669 + (let ((__tmp155670 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155689 + (let ((__tmp155671 (##structure-ref - _self153908_ + _self153890_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155689 '())))) + (cons __tmp155671 '())))) (declare (not safe)) - (cons '%#ref __tmp155688))) - (__tmp155679 - (let ((__tmp155685 - (let ((__tmp155686 + (cons '%#ref __tmp155670))) + (__tmp155661 + (let ((__tmp155667 + (let ((__tmp155668 (let () (declare (not safe)) - (cons _$obj153977_ '())))) + (cons _$obj153959_ '())))) (declare (not safe)) - (cons '%#ref __tmp155686))) - (__tmp155680 - (let ((__tmp155682 - (let ((__tmp155683 - (let ((__tmp155684 + (cons '%#ref __tmp155668))) + (__tmp155662 + (let ((__tmp155664 + (let ((__tmp155665 + (let ((__tmp155666 (##structure-ref - _self153908_ + _self153890_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp155684 '())))) + (cons __tmp155666 '())))) (declare (not safe)) - (cons '%#quote __tmp155683))) - (__tmp155681 + (cons '%#quote __tmp155665))) + (__tmp155663 (let () (declare (not safe)) - (cons _value153969_ '())))) + (cons _value153951_ '())))) (declare (not safe)) - (cons __tmp155682 __tmp155681)))) + (cons __tmp155664 __tmp155663)))) (declare (not safe)) - (cons __tmp155685 __tmp155680)))) + (cons __tmp155667 __tmp155662)))) (declare (not safe)) - (cons __tmp155687 __tmp155679)))) + (cons __tmp155669 __tmp155661)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155690 - __tmp155678)))) + (cons __tmp155672 + __tmp155660)))) (declare (not safe)) - (cons '%#call __tmp155677)))) + (cons '%#call __tmp155659)))) (declare (not safe)) - (cons __tmp155676 '())))) + (cons __tmp155658 '())))) (declare (not safe)) - (cons __tmp155692 __tmp155675)))) + (cons __tmp155674 __tmp155657)))) (declare (not safe)) - (cons __tmp155704 __tmp155674)))) + (cons __tmp155686 __tmp155656)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp155673)))) + (cons '%#if __tmp155655)))) (declare (not safe)) - (cons __tmp155672 '())))) + (cons __tmp155654 '())))) (declare (not safe)) - (cons __tmp155712 __tmp155671)))) + (cons __tmp155694 __tmp155653)))) (declare (not safe)) - (cons '%#let-values __tmp155670)))) + (cons '%#let-values __tmp155652)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155668 _stx153910_)) - (let ((__tmp155658 - (let ((__tmp155659 - (let ((__tmp155666 - (let ((__tmp155667 + (gxc#xform-wrap-source __tmp155650 _stx153892_)) + (let ((__tmp155640 + (let ((__tmp155641 + (let ((__tmp155648 + (let ((__tmp155649 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp155667))) - (__tmp155660 - (let ((__tmp155661 - (let ((__tmp155663 - (let ((__tmp155664 - (let ((__tmp155665 + (cons '%#ref __tmp155649))) + (__tmp155642 + (let ((__tmp155643 + (let ((__tmp155645 + (let ((__tmp155646 + (let ((__tmp155647 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self153908_ + _self153890_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp155665 '())))) + (cons __tmp155647 '())))) (declare (not safe)) - (cons '%#quote __tmp155664))) - (__tmp155662 - (let () (declare (not safe)) (cons _value153969_ '())))) + (cons '%#quote __tmp155646))) + (__tmp155644 + (let () (declare (not safe)) (cons _value153951_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155663 - __tmp155662)))) + (cons __tmp155645 + __tmp155644)))) (declare (not safe)) - (cons _object153967_ - __tmp155661)))) + (cons _object153949_ + __tmp155643)))) (declare (not safe)) - (cons __tmp155666 __tmp155660)))) + (cons __tmp155648 __tmp155642)))) (declare (not safe)) - (cons '%#call __tmp155659)))) + (cons '%#call __tmp155641)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155658 _stx153910_))))))))) + (gxc#xform-wrap-source __tmp155640 _stx153892_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd153921153943_ - _hd153918153935_) + _hd153903153925_ + _hd153900153917_) (let () (declare (not safe)) - (_g153913153927_ _g153914153930_))))) + (_g153895153909_ _g153896153912_))))) (let () (declare (not safe)) - (_g153913153927_ _g153914153930_))))) + (_g153895153909_ _g153896153912_))))) (let () (declare (not safe)) - (_g153913153927_ _g153914153930_)))))) + (_g153895153909_ _g153896153912_)))))) (declare (not safe)) - (_g153912153979_ _args153911_)))) + (_g153894153961_ _args153893_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__klass154786 __method-table154787) - (let ((__slot154788 - (let ((__slot154791 + (lambda (__klass154768 __method-table154769) + (let ((__id154770 + (let ((__slot154773 (let () (declare (not safe)) - (class-slot-offset __klass154786 'slot)))) - (if __slot154791 - __slot154791 + (class-slot-offset __klass154768 'id)))) + (if __slot154773 + __slot154773 (let () (declare (not safe)) - (error '"Unknown slot" 'slot))))) - (__id154789 - (let ((__slot154792 + (error '"Unknown slot" 'id))))) + (__checked?154771 + (let ((__slot154774 (let () (declare (not safe)) - (class-slot-offset __klass154786 'id)))) - (if __slot154792 - __slot154792 + (class-slot-offset __klass154768 'checked?)))) + (if __slot154774 + __slot154774 (let () (declare (not safe)) - (error '"Unknown slot" 'id))))) - (__checked?154790 - (let ((__slot154793 + (error '"Unknown slot" 'checked?))))) + (__slot154772 + (let ((__slot154775 (let () (declare (not safe)) - (class-slot-offset __klass154786 'checked?)))) - (if __slot154793 - __slot154793 + (class-slot-offset __klass154768 'slot)))) + (if __slot154775 + __slot154775 (let () (declare (not safe)) - (error '"Unknown slot" 'checked?)))))) - (lambda (_self153908_ _ctx153909_ _stx153910_ _args153911_) - (let* ((_g153913153927_ - (lambda (_g153914153924_) + (error '"Unknown slot" 'slot)))))) + (lambda (_self153890_ _ctx153891_ _stx153892_ _args153893_) + (let* ((_g153895153909_ + (lambda (_g153896153906_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g153914153924_)))) - (_g153912153979_ - (lambda (_g153914153930_) + _g153896153906_)))) + (_g153894153961_ + (lambda (_g153896153912_) (if (let () (declare (not safe)) - (gx#stx-pair? _g153914153930_)) - (let ((_e153919153932_ + (gx#stx-pair? _g153896153912_)) + (let ((_e153901153914_ (let () (declare (not safe)) - (gx#stx-e _g153914153930_)))) - (let ((_hd153918153935_ + (gx#stx-e _g153896153912_)))) + (let ((_hd153900153917_ (let () (declare (not safe)) - (##car _e153919153932_))) - (_tl153917153937_ + (##car _e153901153914_))) + (_tl153899153919_ (let () (declare (not safe)) - (##cdr _e153919153932_)))) + (##cdr _e153901153914_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl153917153937_)) - (let ((_e153922153940_ + (gx#stx-pair? _tl153899153919_)) + (let ((_e153904153922_ (let () (declare (not safe)) - (gx#stx-e _tl153917153937_)))) - (let ((_hd153921153943_ + (gx#stx-e _tl153899153919_)))) + (let ((_hd153903153925_ (let () (declare (not safe)) - (##car _e153922153940_))) - (_tl153920153945_ + (##car _e153904153922_))) + (_tl153902153927_ (let () (declare (not safe)) - (##cdr _e153922153940_)))) + (##cdr _e153904153922_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl153920153945_)) - ((lambda (_L153948_ _L153949_) - (let* ((_klass153963_ - (let ((__tmp155749 + (gx#stx-null? _tl153902153927_)) + ((lambda (_L153930_ _L153931_) + (let* ((_klass153945_ + (let ((__tmp155731 (let () (declare (not safe)) (##unchecked-structure-ref - _self153908_ - __id154789 - __klass154786 + _self153890_ + __id154770 + __klass154768 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx153910_ - __tmp155749))) - (_field153965_ - (let ((__tmp155750 + _stx153892_ + __tmp155731))) + (_field153947_ + (let ((__tmp155732 (let () (declare (not safe)) (##unchecked-structure-ref - _self153908_ - __slot154788 - __klass154786 + _self153890_ + __slot154772 + __klass154768 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass153963_ - __tmp155750))) - (_object153967_ + _klass153945_ + __tmp155732))) + (_object153949_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx153909_ - _L153949_))) - (_value153969_ + _ctx153891_ + _L153931_))) + (_value153951_ (let () (declare (not safe)) (gxc#compile-e__1 - _ctx153909_ - _L153948_)))) + _ctx153891_ + _L153930_)))) (if (##structure-ref - _klass153963_ + _klass153945_ '8 gxc#!class::t '#f) - (let ((__tmp155832 - (let ((__tmp155842 + (let ((__tmp155814 + (let ((__tmp155824 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self153908_ - __checked?154790 - __klass154786 + _self153890_ + __checked?154771 + __klass154768 '#f)) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp155833 - (let ((__tmp155839 - (let ((__tmp155840 - (let ((__tmp155841 + (__tmp155815 + (let ((__tmp155821 + (let ((__tmp155822 + (let ((__tmp155823 (let () (declare (not safe)) (##unchecked-structure-ref - _self153908_ - __id154789 - __klass154786 + _self153890_ + __id154770 + __klass154768 '#f)))) (declare (not safe)) - (cons __tmp155841 '())))) + (cons __tmp155823 '())))) (declare (not safe)) - (cons '%#ref __tmp155840))) - (__tmp155834 - (let ((__tmp155837 - (let ((__tmp155838 + (cons '%#ref __tmp155822))) + (__tmp155816 + (let ((__tmp155819 + (let ((__tmp155820 (let () (declare (not safe)) - (cons _field153965_ '())))) + (cons _field153947_ '())))) (declare (not safe)) - (cons '%#quote __tmp155838))) - (__tmp155835 - (let ((__tmp155836 + (cons '%#quote __tmp155820))) + (__tmp155817 + (let ((__tmp155818 (let () (declare (not safe)) - (cons _value153969_ '())))) + (cons _value153951_ '())))) (declare (not safe)) - (cons _object153967_ __tmp155836)))) + (cons _object153949_ __tmp155818)))) (declare (not safe)) - (cons __tmp155837 __tmp155835)))) + (cons __tmp155819 __tmp155817)))) (declare (not safe)) - (cons __tmp155839 __tmp155834)))) + (cons __tmp155821 __tmp155816)))) (declare (not safe)) - (cons __tmp155842 __tmp155833)))) + (cons __tmp155824 __tmp155815)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155832 - _stx153910_)) + __tmp155814 + _stx153892_)) (if (##structure-ref - _klass153963_ + _klass153945_ '7 gxc#!class::t '#f) - (let ((__tmp155821 - (let ((__tmp155831 + (let ((__tmp155803 + (let ((__tmp155813 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self153908_ - __checked?154790 - __klass154786 + _self153890_ + __checked?154771 + __klass154768 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp155822 - (let ((__tmp155828 - (let ((__tmp155829 - (let ((__tmp155830 + (__tmp155804 + (let ((__tmp155810 + (let ((__tmp155811 + (let ((__tmp155812 (let () (declare (not safe)) (##unchecked-structure-ref - _self153908_ - __id154789 - __klass154786 + _self153890_ + __id154770 + __klass154768 '#f)))) (declare (not safe)) - (cons __tmp155830 '())))) + (cons __tmp155812 '())))) (declare (not safe)) - (cons '%#ref __tmp155829))) - (__tmp155823 - (let ((__tmp155826 - (let ((__tmp155827 + (cons '%#ref __tmp155811))) + (__tmp155805 + (let ((__tmp155808 + (let ((__tmp155809 (let () (declare (not safe)) - (cons _field153965_ '())))) + (cons _field153947_ '())))) (declare (not safe)) - (cons '%#quote __tmp155827))) - (__tmp155824 - (let ((__tmp155825 + (cons '%#quote __tmp155809))) + (__tmp155806 + (let ((__tmp155807 (let () (declare (not safe)) - (cons _value153969_ '())))) + (cons _value153951_ '())))) (declare (not safe)) - (cons _object153967_ - __tmp155825)))) + (cons _object153949_ + __tmp155807)))) (declare (not safe)) - (cons __tmp155826 __tmp155824)))) + (cons __tmp155808 __tmp155806)))) (declare (not safe)) - (cons __tmp155828 __tmp155823)))) + (cons __tmp155810 __tmp155805)))) (declare (not safe)) - (cons __tmp155831 __tmp155822)))) + (cons __tmp155813 __tmp155804)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155821 _stx153910_)) - (let ((_$e153972_ - (let ((__tmp155751 + (gxc#xform-wrap-source __tmp155803 _stx153892_)) + (let ((_$e153954_ + (let ((__tmp155733 (let () (declare (not safe)) (##unchecked-structure-ref - _self153908_ - __slot154788 - __klass154786 + _self153890_ + __slot154772 + __klass154768 '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass153963_ - __tmp155751)))) - (if _$e153972_ - ((lambda (_klass153975_) - (let ((__tmp155810 - (let ((__tmp155820 + _klass153945_ + __tmp155733)))) + (if _$e153954_ + ((lambda (_klass153957_) + (let ((__tmp155792 + (let ((__tmp155802 (if (let () (declare (not safe)) (##unchecked-structure-ref - _self153908_ - __checked?154790 - __klass154786 + _self153890_ + __checked?154771 + __klass154768 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp155811 - (let ((__tmp155817 - (let ((__tmp155818 - (let ((__tmp155819 + (__tmp155793 + (let ((__tmp155799 + (let ((__tmp155800 + (let ((__tmp155801 (let () (declare (not safe)) (##unchecked-structure-ref - _self153908_ - __id154789 - __klass154786 + _self153890_ + __id154770 + __klass154768 '#f)))) (declare (not safe)) - (cons __tmp155819 '())))) + (cons __tmp155801 '())))) (declare (not safe)) - (cons '%#ref __tmp155818))) - (__tmp155812 - (let ((__tmp155815 - (let ((__tmp155816 + (cons '%#ref __tmp155800))) + (__tmp155794 + (let ((__tmp155797 + (let ((__tmp155798 (let () (declare (not safe)) - (cons _field153965_ + (cons _field153947_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp155816))) + (cons '%#quote __tmp155798))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp155813 - (let ((__tmp155814 + (__tmp155795 + (let ((__tmp155796 (let () (declare (not safe)) - (cons _value153969_ + (cons _value153951_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _object153967_ __tmp155814)))) + (cons _object153949_ __tmp155796)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155815 - __tmp155813)))) + (cons __tmp155797 + __tmp155795)))) (declare (not safe)) - (cons __tmp155817 __tmp155812)))) + (cons __tmp155799 __tmp155794)))) (declare (not safe)) - (cons __tmp155820 __tmp155811)))) + (cons __tmp155802 __tmp155793)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155810 _stx153910_))) - _$e153972_) + (gxc#xform-wrap-source __tmp155792 _stx153892_))) + _$e153954_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _self153908_ - __checked?154790 - __klass154786 + _self153890_ + __checked?154771 + __klass154768 '#f)) - (let ((__tmp155762 - (let* ((_$obj153977_ - (let ((__tmp155763 (gensym '__obj))) + (let ((__tmp155744 + (let* ((_$obj153959_ + (let ((__tmp155745 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp155763))) - (__tmp155764 - (let ((__tmp155806 - (let ((__tmp155807 - (let ((__tmp155809 + (make-symbol__0 __tmp155745))) + (__tmp155746 + (let ((__tmp155788 + (let ((__tmp155789 + (let ((__tmp155791 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj153977_ '()))) - (__tmp155808 - (let () (declare (not safe)) (cons _object153967_ '())))) + (cons _$obj153959_ '()))) + (__tmp155790 + (let () (declare (not safe)) (cons _object153949_ '())))) (declare (not safe)) - (cons __tmp155809 __tmp155808)))) + (cons __tmp155791 __tmp155790)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155807 '()))) - (__tmp155765 - (let ((__tmp155766 - (let ((__tmp155767 - (let ((__tmp155798 + (cons __tmp155789 '()))) + (__tmp155747 + (let ((__tmp155748 + (let ((__tmp155749 + (let ((__tmp155780 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155799 - (let ((__tmp155803 - (let ((__tmp155804 - (let ((__tmp155805 + (let ((__tmp155781 + (let ((__tmp155785 + (let ((__tmp155786 + (let ((__tmp155787 (##structure-ref - _klass153963_ + _klass153945_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp155805 '())))) + (cons __tmp155787 '())))) (declare (not safe)) - (cons '%#quote __tmp155804))) - (__tmp155800 - (let ((__tmp155801 - (let ((__tmp155802 + (cons '%#quote __tmp155786))) + (__tmp155782 + (let ((__tmp155783 + (let ((__tmp155784 (let () (declare (not safe)) - (cons _$obj153977_ + (cons _$obj153959_ '())))) (declare (not safe)) - (cons '%#ref __tmp155802)))) + (cons '%#ref __tmp155784)))) (declare (not safe)) - (cons __tmp155801 '())))) + (cons __tmp155783 '())))) (declare (not safe)) - (cons __tmp155803 __tmp155800)))) + (cons __tmp155785 __tmp155782)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp155799))) - (__tmp155768 - (let ((__tmp155786 - (let ((__tmp155787 - (let ((__tmp155795 - (let ((__tmp155796 - (let ((__tmp155797 + (cons '%#struct-direct-instance? __tmp155781))) + (__tmp155750 + (let ((__tmp155768 + (let ((__tmp155769 + (let ((__tmp155777 + (let ((__tmp155778 + (let ((__tmp155779 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self153908_ - __id154789 - __klass154786 + _self153890_ + __id154770 + __klass154768 '#f)))) (declare (not safe)) - (cons __tmp155797 '())))) + (cons __tmp155779 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp155796))) - (__tmp155788 - (let ((__tmp155793 - (let ((__tmp155794 + (cons '%#ref __tmp155778))) + (__tmp155770 + (let ((__tmp155775 + (let ((__tmp155776 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _field153965_ '())))) + (cons _field153947_ '())))) (declare (not safe)) - (cons '%#quote __tmp155794))) - (__tmp155789 - (let ((__tmp155791 - (let ((__tmp155792 + (cons '%#quote __tmp155776))) + (__tmp155771 + (let ((__tmp155773 + (let ((__tmp155774 (let () (declare (not safe)) - (cons _$obj153977_ '())))) + (cons _$obj153959_ '())))) (declare (not safe)) - (cons '%#ref __tmp155792))) - (__tmp155790 - (let () (declare (not safe)) (cons _value153969_ '())))) + (cons '%#ref __tmp155774))) + (__tmp155772 + (let () (declare (not safe)) (cons _value153951_ '())))) (declare (not safe)) - (cons __tmp155791 __tmp155790)))) + (cons __tmp155773 __tmp155772)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155793 - __tmp155789)))) + (cons __tmp155775 + __tmp155771)))) (declare (not safe)) - (cons __tmp155795 __tmp155788)))) + (cons __tmp155777 __tmp155770)))) (declare (not safe)) (cons '%#struct-unchecked-set! - __tmp155787))) - (__tmp155769 - (let ((__tmp155770 - (let ((__tmp155771 - (let ((__tmp155784 - (let ((__tmp155785 + __tmp155769))) + (__tmp155751 + (let ((__tmp155752 + (let ((__tmp155753 + (let ((__tmp155766 + (let ((__tmp155767 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'class-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp155785))) - (__tmp155772 - (let ((__tmp155781 - (let ((__tmp155782 - (let ((__tmp155783 + (cons '%#ref __tmp155767))) + (__tmp155754 + (let ((__tmp155763 + (let ((__tmp155764 + (let ((__tmp155765 (let () (declare (not safe)) (##unchecked-structure-ref - _self153908_ - __id154789 - __klass154786 + _self153890_ + __id154770 + __klass154768 '#f)))) (declare (not safe)) - (cons __tmp155783 '())))) + (cons __tmp155765 '())))) (declare (not safe)) - (cons '%#ref __tmp155782))) - (__tmp155773 - (let ((__tmp155779 - (let ((__tmp155780 + (cons '%#ref __tmp155764))) + (__tmp155755 + (let ((__tmp155761 + (let ((__tmp155762 (let () (declare (not safe)) - (cons _$obj153977_ '())))) + (cons _$obj153959_ '())))) (declare (not safe)) - (cons '%#ref __tmp155780))) - (__tmp155774 - (let ((__tmp155776 - (let ((__tmp155777 - (let ((__tmp155778 + (cons '%#ref __tmp155762))) + (__tmp155756 + (let ((__tmp155758 + (let ((__tmp155759 + (let ((__tmp155760 (let () (declare (not safe)) (##unchecked-structure-ref - _self153908_ - __slot154788 - __klass154786 + _self153890_ + __slot154772 + __klass154768 '#f)))) (declare (not safe)) - (cons __tmp155778 '())))) + (cons __tmp155760 '())))) (declare (not safe)) - (cons '%#quote __tmp155777))) - (__tmp155775 + (cons '%#quote __tmp155759))) + (__tmp155757 (let () (declare (not safe)) - (cons _value153969_ '())))) + (cons _value153951_ '())))) (declare (not safe)) - (cons __tmp155776 __tmp155775)))) + (cons __tmp155758 __tmp155757)))) (declare (not safe)) - (cons __tmp155779 __tmp155774)))) + (cons __tmp155761 __tmp155756)))) (declare (not safe)) - (cons __tmp155781 __tmp155773)))) + (cons __tmp155763 __tmp155755)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155784 - __tmp155772)))) + (cons __tmp155766 + __tmp155754)))) (declare (not safe)) - (cons '%#call __tmp155771)))) + (cons '%#call __tmp155753)))) (declare (not safe)) - (cons __tmp155770 '())))) + (cons __tmp155752 '())))) (declare (not safe)) - (cons __tmp155786 __tmp155769)))) + (cons __tmp155768 __tmp155751)))) (declare (not safe)) - (cons __tmp155798 __tmp155768)))) + (cons __tmp155780 __tmp155750)))) (declare (not safe)) - (cons '%#if __tmp155767)))) + (cons '%#if __tmp155749)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155766 '())))) + (cons __tmp155748 '())))) (declare (not safe)) - (cons __tmp155806 __tmp155765)))) + (cons __tmp155788 __tmp155747)))) (declare (not safe)) - (cons '%#let-values __tmp155764)))) + (cons '%#let-values __tmp155746)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp155762 _stx153910_)) - (let ((__tmp155752 - (let ((__tmp155753 - (let ((__tmp155760 - (let ((__tmp155761 + (gxc#xform-wrap-source __tmp155744 _stx153892_)) + (let ((__tmp155734 + (let ((__tmp155735 + (let ((__tmp155742 + (let ((__tmp155743 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp155761))) - (__tmp155754 - (let ((__tmp155755 - (let ((__tmp155757 - (let ((__tmp155758 + (cons '%#ref __tmp155743))) + (__tmp155736 + (let ((__tmp155737 + (let ((__tmp155739 + (let ((__tmp155740 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155759 + (let ((__tmp155741 (let () (declare (not safe)) (##unchecked-structure-ref - _self153908_ - __slot154788 - __klass154786 + _self153890_ + __slot154772 + __klass154768 '#f)))) (declare (not safe)) - (cons __tmp155759 '())))) + (cons __tmp155741 '())))) (declare (not safe)) - (cons '%#quote __tmp155758))) - (__tmp155756 - (let () (declare (not safe)) (cons _value153969_ '())))) + (cons '%#quote __tmp155740))) + (__tmp155738 + (let () (declare (not safe)) (cons _value153951_ '())))) (declare (not safe)) - (cons __tmp155757 __tmp155756)))) + (cons __tmp155739 __tmp155738)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _object153967_ - __tmp155755)))) + (cons _object153949_ + __tmp155737)))) (declare (not safe)) - (cons __tmp155760 __tmp155754)))) + (cons __tmp155742 __tmp155736)))) (declare (not safe)) - (cons '%#call __tmp155753)))) + (cons '%#call __tmp155735)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155752 - _stx153910_))))))))) + __tmp155734 + _stx153892_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd153921153943_ - _hd153918153935_) + _hd153903153925_ + _hd153900153917_) (let () (declare (not safe)) - (_g153913153927_ - _g153914153930_))))) + (_g153895153909_ + _g153896153912_))))) (let () (declare (not safe)) - (_g153913153927_ _g153914153930_))))) + (_g153895153909_ _g153896153912_))))) (let () (declare (not safe)) - (_g153913153927_ _g153914153930_)))))) + (_g153895153909_ _g153896153912_)))))) (declare (not safe)) - (_g153912153979_ _args153911_)))))) + (_g153894153961_ _args153893_)))))) (let () (declare (not safe)) (bind-specializer! @@ -4603,116 +4603,116 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_self153741_ _ctx153742_ _stx153743_ _args153744_) - (let* ((_self153745153754_ _self153741_) - (_E153747153758_ + (lambda (_self153723_ _ctx153724_ _stx153725_ _args153726_) + (let* ((_self153727153736_ _self153723_) + (_E153729153740_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self153745153754_)))) - (_K153748153765_ - (lambda (_inline153761_ _dispatch153762_ _arity153763_) + (error '"No clause matching" _self153727153736_)))) + (_K153730153747_ + (lambda (_inline153743_ _dispatch153744_ _arity153745_) (if (let () (declare (not safe)) - (gxc#!lambda-arity-match? _self153741_ _args153744_)) + (gxc#!lambda-arity-match? _self153723_ _args153726_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _stx153743_ - _arity153763_))) - (if _inline153761_ + _stx153725_ + _arity153745_))) + (if _inline153743_ (begin (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp155848 - (let ((__tmp155849 - (_inline153761_ _stx153743_))) + (let ((__tmp155830 + (let ((__tmp155831 + (_inline153743_ _stx153725_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155849 - _stx153743_)))) + __tmp155831 + _stx153725_)))) (declare (not safe)) - (gxc#compile-e__1 _ctx153742_ __tmp155848))) - (if _dispatch153762_ + (gxc#compile-e__1 _ctx153724_ __tmp155830))) + (if _dispatch153744_ (begin (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _dispatch153762_)) - (let ((__tmp155843 - (let ((__tmp155844 - (let ((__tmp155845 - (let ((__tmp155846 - (let ((__tmp155847 + _dispatch153744_)) + (let ((__tmp155825 + (let ((__tmp155826 + (let ((__tmp155827 + (let ((__tmp155828 + (let ((__tmp155829 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _dispatch153762_ '())))) + (cons _dispatch153744_ '())))) (declare (not safe)) - (cons '%#ref __tmp155847)))) + (cons '%#ref __tmp155829)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155846 - _args153744_)))) + (cons __tmp155828 + _args153726_)))) (declare (not safe)) - (cons '%#call __tmp155845)))) + (cons '%#call __tmp155827)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155844 - _stx153743_)))) + __tmp155826 + _stx153725_)))) (declare (not safe)) - (gxc#compile-e__1 _ctx153742_ __tmp155843))) + (gxc#compile-e__1 _ctx153724_ __tmp155825))) (let () (declare (not safe)) - (gxc#xform-call% _ctx153742_ _stx153743_))))))) + (gxc#xform-call% _ctx153724_ _stx153725_))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self153745153754_ 'gxc#!lambda::t)) - (let* ((_e153749153768_ + (##structure-instance-of? _self153727153736_ 'gxc#!lambda::t)) + (let* ((_e153731153750_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153745153754_ + _self153727153736_ '1 gxc#!type::t '#f))) - (_e153750153771_ + (_e153732153753_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153745153754_ + _self153727153736_ '2 gxc#!lambda::t '#f))) - (_arity153774_ _e153750153771_) - (_e153751153776_ + (_arity153756_ _e153732153753_) + (_e153733153758_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153745153754_ + _self153727153736_ '3 gxc#!lambda::t '#f))) - (_dispatch153779_ _e153751153776_) - (_e153752153781_ + (_dispatch153761_ _e153733153758_) + (_e153734153763_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153745153754_ + _self153727153736_ '4 gxc#!lambda::t '#f))) - (_inline153784_ _e153752153781_)) + (_inline153766_ _e153734153763_)) (declare (not safe)) - (_K153748153765_ - _inline153784_ - _dispatch153779_ - _arity153774_)) - (let () (declare (not safe)) (_E153747153758_)))))) + (_K153730153747_ + _inline153766_ + _dispatch153761_ + _arity153756_)) + (let () (declare (not safe)) (_E153729153740_)))))) (let () (declare (not safe)) (bind-method!__% @@ -4721,77 +4721,77 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_self153579_ _ctx153580_ _stx153581_ _args153582_) - (let* ((_self153583153590_ _self153579_) - (_E153585153594_ + (lambda (_self153561_ _ctx153562_ _stx153563_ _args153564_) + (let* ((_self153565153572_ _self153561_) + (_E153567153576_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self153583153590_)))) - (_K153586153608_ - (lambda (_clauses153597_) - (let ((_$e153603_ - (let ((__tmp155850 - (lambda (_g153598153600_) + (error '"No clause matching" _self153565153572_)))) + (_K153568153590_ + (lambda (_clauses153579_) + (let ((_$e153585_ + (let ((__tmp155832 + (lambda (_g153580153582_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _g153598153600_ - _args153582_))))) + _g153580153582_ + _args153564_))))) (declare (not safe)) - (find __tmp155850 _clauses153597_)))) - (if _$e153603_ - ((lambda (_clause153606_) - (let ((__method155064 + (find __tmp155832 _clauses153579_)))) + (if _$e153585_ + ((lambda (_clause153588_) + (let ((__method155046 (let () (declare (not safe)) (method-ref - _clause153606_ + _clause153588_ 'optimize-call)))) - (if __method155064 - (__method155064 - _clause153606_ - _ctx153580_ - _stx153581_ - _args153582_) + (if __method155046 + (__method155046 + _clause153588_ + _ctx153562_ + _stx153563_ + _args153564_) (let () (declare (not safe)) (error '"Missing method" - _clause153606_ + _clause153588_ 'optimize-call))))) - _$e153603_) - (let ((__tmp155851 - (map gxc#!lambda-arity _clauses153597_))) + _$e153585_) + (let ((__tmp155833 + (map gxc#!lambda-arity _clauses153579_))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _stx153581_ - __tmp155851))))))) + _stx153563_ + __tmp155833))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self153583153590_ + _self153565153572_ 'gxc#!case-lambda::t)) - (let* ((_e153587153611_ + (let* ((_e153569153593_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153583153590_ + _self153565153572_ '1 gxc#!type::t '#f))) - (_e153588153614_ + (_e153570153596_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153583153590_ + _self153565153572_ '2 gxc#!case-lambda::t '#f))) - (_clauses153617_ _e153588153614_)) + (_clauses153599_ _e153570153596_)) (declare (not safe)) - (_K153586153608_ _clauses153617_)) - (let () (declare (not safe)) (_E153585153594_)))))) + (_K153568153590_ _clauses153599_)) + (let () (declare (not safe)) (_E153567153576_)))))) (let () (declare (not safe)) (bind-method!__% @@ -4800,496 +4800,496 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!lambda-arity-match? - (lambda (_self153393_ _args153394_) - (let* ((_self153395153402_ _self153393_) - (_E153397153406_ + (lambda (_self153375_ _args153376_) + (let* ((_self153377153384_ _self153375_) + (_E153379153388_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self153395153402_)))) - (_K153398153446_ - (lambda (_arity153409_) - (let* ((_arity153410153419_ _arity153409_) - (_E153413153423_ + (error '"No clause matching" _self153377153384_)))) + (_K153380153428_ + (lambda (_arity153391_) + (let* ((_arity153392153401_ _arity153391_) + (_E153395153405_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _arity153410153419_))))) - (let ((_K153417153443_ + _arity153392153401_))))) + (let ((_K153399153425_ (lambda () - (fx= (length _args153394_) _arity153409_))) - (_K153414153429_ - (lambda (_arity153427_) - (fx>= (length _args153394_) _arity153427_)))) - (let ((_try-match153412153439_ + (fx= (length _args153376_) _arity153391_))) + (_K153396153411_ + (lambda (_arity153409_) + (fx>= (length _args153376_) _arity153409_)))) + (let ((_try-match153394153421_ (lambda () (if (let () (declare (not safe)) - (##pair? _arity153410153419_)) - (let ((_tl153416153434_ + (##pair? _arity153392153401_)) + (let ((_tl153398153416_ (let () (declare (not safe)) - (##cdr _arity153410153419_))) - (_hd153415153432_ + (##cdr _arity153392153401_))) + (_hd153397153414_ (let () (declare (not safe)) - (##car _arity153410153419_)))) + (##car _arity153392153401_)))) (if (let () (declare (not safe)) - (##null? _tl153416153434_)) - (let ((_arity153437_ - _hd153415153432_)) + (##null? _tl153398153416_)) + (let ((_arity153419_ + _hd153397153414_)) (declare (not safe)) - (_K153414153429_ _arity153437_)) + (_K153396153411_ _arity153419_)) (let () (declare (not safe)) - (_E153413153423_)))) + (_E153395153405_)))) (let () (declare (not safe)) - (_E153413153423_)))))) + (_E153395153405_)))))) (if (let () (declare (not safe)) - (fixnum? _arity153410153419_)) - (let () (declare (not safe)) (_K153417153443_)) + (fixnum? _arity153392153401_)) + (let () (declare (not safe)) (_K153399153425_)) (let () (declare (not safe)) - (_try-match153412153439_))))))))) + (_try-match153394153421_))))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self153395153402_ 'gxc#!lambda::t)) - (let* ((_e153399153449_ + (##structure-instance-of? _self153377153384_ 'gxc#!lambda::t)) + (let* ((_e153381153431_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153395153402_ + _self153377153384_ '1 gxc#!type::t '#f))) - (_e153400153452_ + (_e153382153434_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153395153402_ + _self153377153384_ '2 gxc#!lambda::t '#f))) - (_arity153455_ _e153400153452_)) + (_arity153437_ _e153382153434_)) (declare (not safe)) - (_K153398153446_ _arity153455_)) - (let () (declare (not safe)) (_E153397153406_)))))) + (_K153380153428_ _arity153437_)) + (let () (declare (not safe)) (_E153379153388_)))))) (define gxc#!kw-lambda::optimize-call - (lambda (_self153277_ _ctx153278_ _stx153279_ _args153280_) - (let* ((_self153281153289_ _self153277_) - (_E153283153293_ + (lambda (_self153259_ _ctx153260_ _stx153261_ _args153262_) + (let* ((_self153263153271_ _self153259_) + (_E153265153275_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self153281153289_)))) - (_K153284153377_ - (lambda (_dispatch153296_ _table153297_) - (let* ((_g153298153307_ + (error '"No clause matching" _self153263153271_)))) + (_K153266153359_ + (lambda (_dispatch153278_ _table153279_) + (let* ((_g153280153289_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _dispatch153296_))) - (_else153300153315_ + (gxc#optimizer-lookup-type _dispatch153278_))) + (_else153282153297_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _dispatch153296_)) + _dispatch153278_)) (let () (declare (not safe)) - (gxc#xform-call% _ctx153278_ _stx153279_)))) - (_K153302153361_ - (lambda (_main153318_ _keys153319_) - (let ((_g155852_ + (gxc#xform-call% _ctx153260_ _stx153261_)))) + (_K153284153343_ + (lambda (_main153300_ _keys153301_) + (let ((_g155834_ (let () (declare (not safe)) (gxc#!kw-lambda-split-args - _stx153279_ - _args153280_)))) + _stx153261_ + _args153262_)))) (begin - (let ((_g155853_ + (let ((_g155835_ (let () (declare (not safe)) - (if (##values? _g155852_) - (##vector-length _g155852_) + (if (##values? _g155834_) + (##vector-length _g155834_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g155853_ 2))) + (##fx= _g155835_ 2))) (error "Context expects 2 values" - _g155853_))) - (let ((_pargs153321_ + _g155835_))) + (let ((_pargs153303_ (let () (declare (not safe)) - (##vector-ref _g155852_ 0))) - (_kwargs153322_ + (##vector-ref _g155834_ 0))) + (_kwargs153304_ (let () (declare (not safe)) - (##vector-ref _g155852_ 1)))) + (##vector-ref _g155834_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _main153318_)) - (if _table153297_ - (let ((_xargs153329_ - (map (lambda (_key153324_) - (let ((_$e153326_ + _main153300_)) + (if _table153279_ + (let ((_xargs153311_ + (map (lambda (_key153306_) + (let ((_$e153308_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq__0 _key153324_ _kwargs153322_)))) - (if _$e153326_ (values _$e153326_) '(%#ref absent-value)))) + (assgetq__0 _key153306_ _kwargs153304_)))) + (if _$e153308_ (values _$e153308_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys153319_))) + _keys153301_))) (for-each - (lambda (_kw153331_) - (if (memq (car _kw153331_) - _keys153319_) + (lambda (_kw153313_) + (if (memq (car _kw153313_) + _keys153301_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _stx153279_ - _keys153319_ - _kw153331_)))) - _kwargs153322_) - (let ((__tmp155905 - (let ((__tmp155906 - (let ((__tmp155907 - (let ((__tmp155912 + _stx153261_ + _keys153301_ + _kw153313_)))) + _kwargs153304_) + (let ((__tmp155887 + (let ((__tmp155888 + (let ((__tmp155889 + (let ((__tmp155894 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155913 + (let ((__tmp155895 (let () (declare (not safe)) - (cons _main153318_ '())))) + (cons _main153300_ '())))) (declare (not safe)) - (cons '%#ref __tmp155913))) - (__tmp155908 - (let ((__tmp155910 - (let ((__tmp155911 + (cons '%#ref __tmp155895))) + (__tmp155890 + (let ((__tmp155892 + (let ((__tmp155893 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '%#quote __tmp155911))) - (__tmp155909 + (cons '%#quote __tmp155893))) + (__tmp155891 (let () (declare (not safe)) (foldr1 cons - _pargs153321_ - _xargs153329_)))) + _pargs153303_ + _xargs153311_)))) (declare (not safe)) - (cons __tmp155910 __tmp155909)))) + (cons __tmp155892 __tmp155891)))) (declare (not safe)) - (cons __tmp155912 __tmp155908)))) + (cons __tmp155894 __tmp155890)))) (declare (not safe)) - (cons '%#call __tmp155907)))) + (cons '%#call __tmp155889)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155906 - _stx153279_)))) + __tmp155888 + _stx153261_)))) (declare (not safe)) (gxc#compile-e__1 - _ctx153278_ - __tmp155905))) - (let* ((_kwt153333_ - (let ((__tmp155854 + _ctx153260_ + __tmp155887))) + (let* ((_kwt153315_ + (let ((__tmp155836 (gensym '__kwt))) (declare (not safe)) (make-symbol__0 - __tmp155854))) - (_kwvars153336_ - (map (lambda (_g155855_) - (let ((__tmp155856 + __tmp155836))) + (_kwvars153318_ + (map (lambda (_g155837_) + (let ((__tmp155838 (gensym '__kw))) (declare (not safe)) (make-symbol__0 - __tmp155856))) - _kwargs153322_)) - (_kwbind153341_ - (map (lambda (_kw153338_ - _kwvar153339_) - (let ((__tmp155859 + __tmp155838))) + _kwargs153304_)) + (_kwbind153323_ + (map (lambda (_kw153320_ + _kwvar153321_) + (let ((__tmp155841 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _kwvar153339_ '()))) - (__tmp155857 - (let ((__tmp155858 (cdr _kw153338_))) + (cons _kwvar153321_ '()))) + (__tmp155839 + (let ((__tmp155840 (cdr _kw153320_))) (declare (not safe)) - (cons __tmp155858 '())))) + (cons __tmp155840 '())))) (declare (not safe)) - (cons __tmp155859 __tmp155857))) + (cons __tmp155841 __tmp155839))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs153322_ - _kwvars153336_)) - (_kwset153346_ - (map (lambda (_kw153343_ - _kwvar153344_) - (let ((__tmp155860 - (let ((__tmp155861 + _kwargs153304_ + _kwvars153318_)) + (_kwset153328_ + (map (lambda (_kw153325_ + _kwvar153326_) + (let ((__tmp155842 + (let ((__tmp155843 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155869 - (let ((__tmp155870 + (let ((__tmp155851 + (let ((__tmp155852 (let () (declare (not safe)) - (cons _kwt153333_ '())))) + (cons _kwt153315_ '())))) (declare (not safe)) - (cons '%#ref __tmp155870))) - (__tmp155862 - (let ((__tmp155866 - (let ((__tmp155867 - (let ((__tmp155868 - (car _kw153343_))) + (cons '%#ref __tmp155852))) + (__tmp155844 + (let ((__tmp155848 + (let ((__tmp155849 + (let ((__tmp155850 + (car _kw153325_))) (declare (not safe)) - (cons __tmp155868 '())))) + (cons __tmp155850 '())))) (declare (not safe)) - (cons '%#quote __tmp155867))) - (__tmp155863 - (let ((__tmp155864 - (let ((__tmp155865 + (cons '%#quote __tmp155849))) + (__tmp155845 + (let ((__tmp155846 + (let ((__tmp155847 (let () (declare (not safe)) - (cons _kwvar153344_ + (cons _kwvar153326_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp155865)))) + __tmp155847)))) (declare (not safe)) - (cons __tmp155864 '())))) + (cons __tmp155846 '())))) (declare (not safe)) - (cons __tmp155866 __tmp155863)))) + (cons __tmp155848 __tmp155845)))) (declare (not safe)) - (cons __tmp155869 __tmp155862)))) + (cons __tmp155851 __tmp155844)))) (declare (not safe)) - (cons '(%#ref symbolic-table-set!) __tmp155861)))) + (cons '(%#ref symbolic-table-set!) __tmp155843)))) (declare (not safe)) - (cons '%#call __tmp155860))) + (cons '%#call __tmp155842))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs153322_ - _kwvars153336_)) - (_xkwargs153351_ - (map (lambda (_kw153348_ - _kwvar153349_) - (let ((__tmp155873 - (car _kw153348_)) - (__tmp155871 - (let ((__tmp155872 + _kwargs153304_ + _kwvars153318_)) + (_xkwargs153333_ + (map (lambda (_kw153330_ + _kwvar153331_) + (let ((__tmp155855 + (car _kw153330_)) + (__tmp155853 + (let ((__tmp155854 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kwvar153349_ '())))) + (cons _kwvar153331_ '())))) (declare (not safe)) - (cons '%#ref __tmp155872)))) + (cons '%#ref __tmp155854)))) (declare (not safe)) - (cons __tmp155873 __tmp155871))) + (cons __tmp155855 __tmp155853))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs153322_ - _kwvars153336_)) - (_xargs153358_ - (map (lambda (_key153353_) - (let ((_$e153355_ + _kwargs153304_ + _kwvars153318_)) + (_xargs153340_ + (map (lambda (_key153335_) + (let ((_$e153337_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq__0 _key153353_ _xkwargs153351_)))) - (if _$e153355_ (values _$e153355_) '(%#ref absent-value)))) + (assgetq__0 _key153335_ _xkwargs153333_)))) + (if _$e153337_ (values _$e153337_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys153319_))) - (let ((__tmp155874 - (let ((__tmp155875 - (let ((__tmp155876 - (let ((__tmp155877 + _keys153301_))) + (let ((__tmp155856 + (let ((__tmp155857 + (let ((__tmp155858 + (let ((__tmp155859 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155878 - (let ((__tmp155879 - (let ((__tmp155893 - (let ((__tmp155894 - (let ((__tmp155904 + (let ((__tmp155860 + (let ((__tmp155861 + (let ((__tmp155875 + (let ((__tmp155876 + (let ((__tmp155886 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _kwt153333_ '()))) - (__tmp155895 - (let ((__tmp155896 - (let ((__tmp155897 - (let ((__tmp155898 - (let ((__tmp155899 - (let ((__tmp155901 - (let ((__tmp155902 + (let () (declare (not safe)) (cons _kwt153315_ '()))) + (__tmp155877 + (let ((__tmp155878 + (let ((__tmp155879 + (let ((__tmp155880 + (let ((__tmp155881 + (let ((__tmp155883 + (let ((__tmp155884 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155903 (length _kwargs153322_))) + (let ((__tmp155885 (length _kwargs153304_))) (declare (not safe)) - (cons __tmp155903 '())))) + (cons __tmp155885 '())))) (declare (not safe)) - (cons '%#quote __tmp155902))) - (__tmp155900 + (cons '%#quote __tmp155884))) + (__tmp155882 (let () (declare (not safe)) (cons '(%#quote 0) '())))) (declare (not safe)) - (cons __tmp155901 __tmp155900)))) + (cons __tmp155883 __tmp155882)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(%#ref make-symbolic-table) - __tmp155899)))) + __tmp155881)))) (declare (not safe)) - (cons '%#call __tmp155898)))) + (cons '%#call __tmp155880)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155897 - _stx153279_)))) + __tmp155879 + _stx153261_)))) (declare (not safe)) - (cons __tmp155896 '())))) + (cons __tmp155878 '())))) (declare (not safe)) - (cons __tmp155904 __tmp155895)))) + (cons __tmp155886 __tmp155877)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155894 '()))) - (__tmp155880 - (let ((__tmp155881 - (let ((__tmp155882 + (cons __tmp155876 '()))) + (__tmp155862 + (let ((__tmp155863 + (let ((__tmp155864 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp155883 - (let ((__tmp155884 - (let ((__tmp155885 - (let ((__tmp155886 - (let ((__tmp155891 - (let ((__tmp155892 + (let ((__tmp155865 + (let ((__tmp155866 + (let ((__tmp155867 + (let ((__tmp155868 + (let ((__tmp155873 + (let ((__tmp155874 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main153318_ '())))) + (cons _main153300_ '())))) (declare (not safe)) - (cons '%#ref __tmp155892))) - (__tmp155887 - (let ((__tmp155889 - (let ((__tmp155890 + (cons '%#ref __tmp155874))) + (__tmp155869 + (let ((__tmp155871 + (let ((__tmp155872 (let () (declare (not safe)) - (cons _kwt153333_ '())))) + (cons _kwt153315_ '())))) (declare (not safe)) - (cons '%#ref __tmp155890))) - (__tmp155888 + (cons '%#ref __tmp155872))) + (__tmp155870 (let () (declare (not safe)) - (foldr1 cons _pargs153321_ _xargs153358_)))) + (foldr1 cons _pargs153303_ _xargs153340_)))) (declare (not safe)) - (cons __tmp155889 __tmp155888)))) + (cons __tmp155871 __tmp155870)))) (declare (not safe)) - (cons __tmp155891 __tmp155887)))) + (cons __tmp155873 __tmp155869)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp155886)))) + (cons '%#call __tmp155868)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp155885 - _stx153279_)))) + __tmp155867 + _stx153261_)))) (declare (not safe)) - (cons __tmp155884 '())))) + (cons __tmp155866 '())))) (declare (not safe)) - (foldr1 cons __tmp155883 _kwset153346_)))) + (foldr1 cons __tmp155865 _kwset153328_)))) (declare (not safe)) - (cons '%#begin __tmp155882)))) + (cons '%#begin __tmp155864)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp155881 '())))) + (cons __tmp155863 '())))) (declare (not safe)) - (cons __tmp155893 __tmp155880)))) + (cons __tmp155875 __tmp155862)))) (declare (not safe)) - (cons '%#let-values __tmp155879)))) + (cons '%#let-values __tmp155861)))) (declare (not safe)) - (cons __tmp155878 '())))) + (cons __tmp155860 '())))) (declare (not safe)) - (cons _kwbind153341_ __tmp155877)))) + (cons _kwbind153323_ __tmp155859)))) (declare (not safe)) - (cons '%#let-values __tmp155876)))) + (cons '%#let-values __tmp155858)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp155875 - _stx153279_)))) + __tmp155857 + _stx153261_)))) (declare (not safe)) (gxc#compile-e__1 - _ctx153278_ - __tmp155874))))))))))) + _ctx153260_ + __tmp155856))))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g153298153307_ + _g153280153289_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e153303153364_ + (let* ((_e153285153346_ (let () (declare (not safe)) (##unchecked-structure-ref - _g153298153307_ + _g153280153289_ '1 gxc#!type::t '#f))) - (_e153304153367_ + (_e153286153349_ (let () (declare (not safe)) (##unchecked-structure-ref - _g153298153307_ + _g153280153289_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys153370_ _e153304153367_) - (_e153305153372_ + (_keys153352_ _e153286153349_) + (_e153287153354_ (let () (declare (not safe)) (##unchecked-structure-ref - _g153298153307_ + _g153280153289_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main153375_ _e153305153372_)) + (_main153357_ _e153287153354_)) (declare (not safe)) - (_K153302153361_ _main153375_ _keys153370_)) - (let () (declare (not safe)) (_else153300153315_))))))) + (_K153284153343_ _main153357_ _keys153352_)) + (let () (declare (not safe)) (_else153282153297_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self153281153289_ + _self153263153271_ 'gxc#!kw-lambda::t)) - (let* ((_e153285153380_ + (let* ((_e153267153362_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153281153289_ + _self153263153271_ '1 gxc#!type::t '#f))) - (_e153286153383_ + (_e153268153365_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153281153289_ + _self153263153271_ '2 gxc#!kw-lambda::t '#f))) - (_table153386_ _e153286153383_) - (_e153287153388_ + (_table153368_ _e153268153365_) + (_e153269153370_ (let () (declare (not safe)) (##unchecked-structure-ref - _self153281153289_ + _self153263153271_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch153391_ _e153287153388_)) + (_dispatch153373_ _e153269153370_)) (declare (not safe)) - (_K153284153377_ _dispatch153391_ _table153386_)) - (let () (declare (not safe)) (_E153283153293_)))))) + (_K153266153359_ _dispatch153373_ _table153368_)) + (let () (declare (not safe)) (_E153265153275_)))))) (let () (declare (not safe)) (bind-method!__% @@ -5298,302 +5298,302 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_stx152890_ _args152891_) - (let _lp152893_ ((_rest152895_ _args152891_) - (_pargs152896_ '()) - (_kwargs152897_ '())) - (let* ((___stx154944154945_ _rest152895_) - (_g152903152955_ + (lambda (_stx152872_ _args152873_) + (let _lp152875_ ((_rest152877_ _args152873_) + (_pargs152878_ '()) + (_kwargs152879_ '())) + (let* ((___stx154926154927_ _rest152877_) + (_g152885152937_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx154944154945_))))) - (let ((___kont154946154947_ - (lambda (_L153134_ _L153135_) - (let ((__tmp155914 + ___stx154926154927_))))) + (let ((___kont154928154929_ + (lambda (_L153116_ _L153117_) + (let ((__tmp155896 (let () (declare (not safe)) - (cons _L153135_ _pargs152896_)))) + (cons _L153117_ _pargs152878_)))) (declare (not safe)) - (_lp152893_ _L153134_ __tmp155914 _kwargs152897_)))) - (___kont154948154949_ - (lambda (_L153080_) + (_lp152875_ _L153116_ __tmp155896 _kwargs152879_)))) + (___kont154930154931_ + (lambda (_L153062_) (values (let () (declare (not safe)) - (foldl1 cons _L153080_ _pargs152896_)) - (reverse _kwargs152897_)))) - (___kont154950154951_ - (lambda (_L153027_ _L153028_ _L153029_) - (let ((_kw153046_ + (foldl1 cons _L153062_ _pargs152878_)) + (reverse _kwargs152879_)))) + (___kont154932154933_ + (lambda (_L153009_ _L153010_ _L153011_) + (let ((_kw153028_ (let () (declare (not safe)) - (gx#stx-e _L153029_)))) - (if (assq _kw153046_ _kwargs152897_) + (gx#stx-e _L153011_)))) + (if (assq _kw153028_ _kwargs152879_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _stx152890_ - _kw153046_)) - (let ((__tmp155915 - (let ((__tmp155916 + _stx152872_ + _kw153028_)) + (let ((__tmp155897 + (let ((__tmp155898 (let () (declare (not safe)) - (cons _kw153046_ _L153028_)))) + (cons _kw153028_ _L153010_)))) (declare (not safe)) - (cons __tmp155916 _kwargs152897_)))) + (cons __tmp155898 _kwargs152879_)))) (declare (not safe)) - (_lp152893_ - _L153027_ - _pargs152896_ - __tmp155915)))))) - (___kont154952154953_ - (lambda (_L152975_ _L152976_) - (let ((__tmp155917 + (_lp152875_ + _L153009_ + _pargs152878_ + __tmp155897)))))) + (___kont154934154935_ + (lambda (_L152957_ _L152958_) + (let ((__tmp155899 (let () (declare (not safe)) - (cons _L152976_ _pargs152896_)))) + (cons _L152958_ _pargs152878_)))) (declare (not safe)) - (_lp152893_ _L152975_ __tmp155917 _kwargs152897_)))) - (___kont154954154955_ + (_lp152875_ _L152957_ __tmp155899 _kwargs152879_)))) + (___kont154936154937_ (lambda () - (values (reverse _pargs152896_) - (reverse _kwargs152897_))))) - (let* ((_g152902152962_ + (values (reverse _pargs152878_) + (reverse _kwargs152879_))))) + (let* ((_g152884152944_ (lambda () (if (let () (declare (not safe)) - (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_)) + (gx#stx-null? ___stx154926154927_)) + (___kont154936154937_) + (let () (declare (not safe)) (_g152885152937_))))) + (___match155033155034_ + (lambda (_e152918152977_ + _hd152917152980_ + _tl152916152982_ + _e152921152985_ + _hd152920152988_ + _tl152919152990_ + _e152924152993_ + _hd152923152996_ + _tl152922152998_ + _e152927153001_ + _hd152926153004_ + _tl152925153006_) + (let ((_L153009_ _tl152925153006_) + (_L153010_ _hd152926153004_) + (_L153011_ _hd152923152996_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _L153029_)) - (___kont154950154951_ - _L153027_ - _L153028_ - _L153029_) - (___kont154952154953_ - _tl152934153000_ - _hd152935152998_)))))) + (gx#stx-keyword? _L153011_)) + (___kont154932154933_ + _L153009_ + _L153010_ + _L153011_) + (___kont154934154935_ + _tl152916152982_ + _hd152917152980_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx154944154945_)) - (let ((_e152909153099_ + (gx#stx-pair? ___stx154926154927_)) + (let ((_e152891153081_ (let () (declare (not safe)) - (gx#stx-e ___stx154944154945_)))) - (let ((_tl152907153104_ + (gx#stx-e ___stx154926154927_)))) + (let ((_tl152889153086_ (let () (declare (not safe)) - (##cdr _e152909153099_))) - (_hd152908153102_ + (##cdr _e152891153081_))) + (_hd152890153084_ (let () (declare (not safe)) - (##car _e152909153099_)))) + (##car _e152891153081_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd152908153102_)) - (let ((_e152912153107_ + (gx#stx-pair? _hd152890153084_)) + (let ((_e152894153089_ (let () (declare (not safe)) - (gx#stx-e _hd152908153102_)))) - (let ((_tl152910153112_ + (gx#stx-e _hd152890153084_)))) + (let ((_tl152892153094_ (let () (declare (not safe)) - (##cdr _e152912153107_))) - (_hd152911153110_ + (##cdr _e152894153089_))) + (_hd152893153092_ (let () (declare (not safe)) - (##car _e152912153107_)))) + (##car _e152894153089_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd152911153110_)) + (gx#identifier? _hd152893153092_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd152911153110_)) + _hd152893153092_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152910153112_)) - (let ((_e152915153115_ + (gx#stx-pair? _tl152892153094_)) + (let ((_e152897153097_ (let () (declare (not safe)) (gx#stx-e - _tl152910153112_)))) - (let ((_tl152913153120_ + _tl152892153094_)))) + (let ((_tl152895153102_ (let () (declare (not safe)) - (##cdr _e152915153115_))) - (_hd152914153118_ + (##cdr _e152897153097_))) + (_hd152896153100_ (let () (declare (not safe)) - (##car _e152915153115_)))) + (##car _e152897153097_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd152914153118_)) - (let ((_e152916153123_ + _hd152896153100_)) + (let ((_e152898153105_ (let () (declare (not safe)) (gx#stx-e - _hd152914153118_)))) + _hd152896153100_)))) (if (let () (declare (not safe)) - (equal? _e152916153123_ + (equal? _e152898153105_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key)) (if (let () (declare (not safe)) - (gx#stx-null? _tl152913153120_)) + (gx#stx-null? _tl152895153102_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152907153104_)) - (let ((_e152919153126_ + (gx#stx-pair? _tl152889153086_)) + (let ((_e152901153108_ (let () (declare (not safe)) - (gx#stx-e _tl152907153104_)))) - (let ((_tl152917153131_ + (gx#stx-e _tl152889153086_)))) + (let ((_tl152899153113_ (let () (declare (not safe)) - (##cdr _e152919153126_))) - (_hd152918153129_ + (##cdr _e152901153108_))) + (_hd152900153111_ (let () (declare (not safe)) - (##car _e152919153126_)))) - (___kont154946154947_ - _tl152917153131_ - _hd152918153129_))) - (___kont154952154953_ - _tl152907153104_ - _hd152908153102_)) - (___kont154952154953_ _tl152907153104_ _hd152908153102_)) + (##car _e152901153108_)))) + (___kont154928154929_ + _tl152899153113_ + _hd152900153111_))) + (___kont154934154935_ + _tl152889153086_ + _hd152890153084_)) + (___kont154934154935_ _tl152889153086_ _hd152890153084_)) (if (let () (declare (not safe)) - (equal? _e152916153123_ '#!rest)) + (equal? _e152898153105_ '#!rest)) (if (let () (declare (not safe)) - (gx#stx-null? _tl152913153120_)) - (___kont154948154949_ _tl152907153104_) - (___kont154952154953_ - _tl152907153104_ - _hd152908153102_)) + (gx#stx-null? _tl152895153102_)) + (___kont154930154931_ _tl152889153086_) + (___kont154934154935_ + _tl152889153086_ + _hd152890153084_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl152913153120_)) + (gx#stx-null? _tl152895153102_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl152907153104_)) - (let ((_e152945153019_ + (gx#stx-pair? _tl152889153086_)) + (let ((_e152927153001_ (let () (declare (not safe)) - (gx#stx-e _tl152907153104_)))) - (let ((_tl152943153024_ + (gx#stx-e _tl152889153086_)))) + (let ((_tl152925153006_ (let () (declare (not safe)) - (##cdr _e152945153019_))) - (_hd152944153022_ + (##cdr _e152927153001_))) + (_hd152926153004_ (let () (declare (not safe)) - (##car _e152945153019_)))) - (___match155051155052_ - _e152909153099_ - _hd152908153102_ - _tl152907153104_ - _e152912153107_ - _hd152911153110_ - _tl152910153112_ - _e152915153115_ - _hd152914153118_ - _tl152913153120_ - _e152945153019_ - _hd152944153022_ - _tl152943153024_))) - (___kont154952154953_ - _tl152907153104_ - _hd152908153102_)) - (___kont154952154953_ - _tl152907153104_ - _hd152908153102_))))) + (##car _e152927153001_)))) + (___match155033155034_ + _e152891153081_ + _hd152890153084_ + _tl152889153086_ + _e152894153089_ + _hd152893153092_ + _tl152892153094_ + _e152897153097_ + _hd152896153100_ + _tl152895153102_ + _e152927153001_ + _hd152926153004_ + _tl152925153006_))) + (___kont154934154935_ + _tl152889153086_ + _hd152890153084_)) + (___kont154934154935_ + _tl152889153086_ + _hd152890153084_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl152913153120_)) + _tl152895153102_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl152907153104_)) - (let ((_e152945153019_ + _tl152889153086_)) + (let ((_e152927153001_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl152907153104_)))) - (let ((_tl152943153024_ + (gx#stx-e _tl152889153086_)))) + (let ((_tl152925153006_ (let () (declare (not safe)) - (##cdr _e152945153019_))) - (_hd152944153022_ + (##cdr _e152927153001_))) + (_hd152926153004_ (let () (declare (not safe)) - (##car _e152945153019_)))) - (___match155051155052_ - _e152909153099_ - _hd152908153102_ - _tl152907153104_ - _e152912153107_ - _hd152911153110_ - _tl152910153112_ - _e152915153115_ - _hd152914153118_ - _tl152913153120_ - _e152945153019_ - _hd152944153022_ - _tl152943153024_))) - (___kont154952154953_ _tl152907153104_ _hd152908153102_)) - (___kont154952154953_ _tl152907153104_ _hd152908153102_))))) + (##car _e152927153001_)))) + (___match155033155034_ + _e152891153081_ + _hd152890153084_ + _tl152889153086_ + _e152894153089_ + _hd152893153092_ + _tl152892153094_ + _e152897153097_ + _hd152896153100_ + _tl152895153102_ + _e152927153001_ + _hd152926153004_ + _tl152925153006_))) + (___kont154934154935_ _tl152889153086_ _hd152890153084_)) + (___kont154934154935_ _tl152889153086_ _hd152890153084_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont154952154953_ - _tl152907153104_ - _hd152908153102_)) - (___kont154952154953_ - _tl152907153104_ - _hd152908153102_)) - (___kont154952154953_ - _tl152907153104_ - _hd152908153102_)))) - (___kont154952154953_ - _tl152907153104_ - _hd152908153102_)))) - (let () (declare (not safe)) (_g152902152962_))))))))) + (___kont154934154935_ + _tl152889153086_ + _hd152890153084_)) + (___kont154934154935_ + _tl152889153086_ + _hd152890153084_)) + (___kont154934154935_ + _tl152889153086_ + _hd152890153084_)))) + (___kont154934154935_ + _tl152889153086_ + _hd152890153084_)))) + (let () (declare (not safe)) (_g152884152944_))))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_self152885_ _ctx152886_ _stx152887_ _args152888_) + (lambda (_self152867_ _ctx152868_ _stx152869_ _args152870_) (let () (declare (not safe)) - (gxc#xform-call% _ctx152886_ _stx152887_)))) + (gxc#xform-call% _ctx152868_ _stx152869_)))) (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 9d49d8f61..33a2151b3 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]#_g155920_| + (define |gxc[1]#_g155902_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g155922_| + (define |gxc[1]#_g155904_| (##structure gx#syntax-quote::t '::optimize-call::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g155924_| + (define |gxc[1]#_g155906_| (##structure gx#syntax-quote::t 'make-::optimize-call #f (gx#current-expander-context) '())) - (define |gxc[1]#_g155926_| + (define |gxc[1]#_g155908_| (##structure gx#syntax-quote::t '::optimize-call? @@ -29,7 +29,7 @@ (gx#current-expander-context) '())) (define |gxc[:0:]#::optimize-call| - (let ((__obj155061 + (let ((__obj155043 (let () (declare (not safe)) (##structure @@ -53,7 +53,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155061 + __obj155043 '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! - __obj155061 + __obj155043 '::optimize-call '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -69,26 +69,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155061 + __obj155043 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp155918 - (let ((__tmp155919 |gxc[1]#_g155920_|)) + (let ((__tmp155900 + (let ((__tmp155901 |gxc[1]#_g155902_|)) (declare (not safe)) - (cons __tmp155919 '())))) + (cons __tmp155901 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj155061 - __tmp155918 + __obj155043 + __tmp155900 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj155061 + __obj155043 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -96,7 +96,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155061 + __obj155043 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -104,7 +104,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155061 + __obj155043 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -112,39 +112,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155061 + __obj155043 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp155921 |gxc[1]#_g155922_|)) + (let ((__tmp155903 |gxc[1]#_g155904_|)) (declare (not safe)) (##unchecked-structure-set! - __obj155061 - __tmp155921 + __obj155043 + __tmp155903 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp155923 |gxc[1]#_g155924_|)) + (let ((__tmp155905 |gxc[1]#_g155906_|)) (declare (not safe)) (##unchecked-structure-set! - __obj155061 - __tmp155923 + __obj155043 + __tmp155905 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp155925 |gxc[1]#_g155926_|)) + (let ((__tmp155907 |gxc[1]#_g155908_|)) (declare (not safe)) (##unchecked-structure-set! - __obj155061 - __tmp155925 + __obj155043 + __tmp155907 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj155061 + __obj155043 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -152,7 +152,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155061 + __obj155043 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -160,7 +160,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155061 + __obj155043 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -168,9 +168,9 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj155061 + __obj155043 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj155061))) + __obj155043))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~0.scm b/src/bootstrap/gerbil/compiler/optimize-spec~0.scm index e173df678..5c30ab563 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 1710833426) + (define gerbil/compiler/optimize-spec::timestamp 1710943500) (begin (define gxc#::generate-method-specializers::t - (let ((__tmp137235 (list gxc#::identity::t)) - (__tmp137233 - (let ((__tmp137234 + (let ((__tmp137217 (list gxc#::identity::t)) + (__tmp137215 + (let ((__tmp137216 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp137234 '())))) + (cons __tmp137216 '())))) (declare (not safe)) (make-class-type 'gxc#::generate-method-specializers::t '::generate-method-specializers - __tmp137235 + __tmp137217 '() - __tmp137233 + __tmp137215 '#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 _$args136099_ + (lambda _$args136081_ (apply make-instance gxc#::generate-method-specializers::t - _$args136099_))) + _$args136081_))) (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 (_stx136091_) + (lambda (_stx136073_) (force gxc#::generate-method-specializers-bind-methods!) - (let* ((_self136094_ - (let ((__obj137228 + (let* ((_self136076_ + (let ((__obj137210 (let () (declare (not safe)) (##structure gxc#::generate-method-specializers::t)))) - __obj137228)) - (__tmp137236 + __obj137210)) + (__tmp137218 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self136094_ _stx136091_))))) + (gxc#compile-e__1 _self136076_ _stx136073_))))) (declare (not safe)) (call-with-parameters - __tmp137236 + __tmp137218 gxc#current-compile-method - _self136094_)))) + _self136076_)))) (define gxc#::collect-object-refs::t - (let ((__tmp137239 (list gxc#::void::t)) - (__tmp137237 - (let ((__tmp137238 + (let ((__tmp137221 (list gxc#::void::t)) + (__tmp137219 + (let ((__tmp137220 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp137238 '())))) + (cons __tmp137220 '())))) (declare (not safe)) (make-class-type 'gxc#::collect-object-refs::t '::collect-object-refs - __tmp137239 + __tmp137221 '(receiver methods slots) - __tmp137237 + __tmp137219 '#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 _$args136088_ - (apply make-instance gxc#::collect-object-refs::t _$args136088_))) + (lambda _$args136070_ + (apply make-instance gxc#::collect-object-refs::t _$args136070_))) (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 (_g137240_ - _receiver136049136054_ - _methods136050136056_ - _slots136051136058_ - _stx136060_) - (let* ((_receiver136063_ + (lambda (_g137222_ + _receiver136031136036_ + _methods136032136038_ + _slots136033136040_ + _stx136042_) + (let* ((_receiver136045_ (if (let () (declare (not safe)) - (eq? _receiver136049136054_ absent-value)) + (eq? _receiver136031136036_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _receiver136049136054_)) - (_methods136065_ + _receiver136031136036_)) + (_methods136047_ (if (let () (declare (not safe)) - (eq? _methods136050136056_ absent-value)) + (eq? _methods136032136038_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _methods136050136056_)) - (_slots136067_ + _methods136032136038_)) + (_slots136049_ (if (let () (declare (not safe)) - (eq? _slots136051136058_ absent-value)) + (eq? _slots136033136040_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _slots136051136058_))) + _slots136033136040_))) (force gxc#::collect-object-refs-bind-methods!) - (let* ((_self136069_ - (let ((__obj137230 + (let* ((_self136051_ + (let ((__obj137212 (let () (declare (not safe)) (##structure @@ -304,86 +304,86 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137230 - _receiver136063_ + __obj137212 + _receiver136045_ '1 gxc#::collect-object-refs::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137230 - _methods136065_ + __obj137212 + _methods136047_ '2 gxc#::collect-object-refs::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137230 - _slots136067_ + __obj137212 + _slots136049_ '3 gxc#::collect-object-refs::t '#f)) - __obj137230)) - (__tmp137241 + __obj137212)) + (__tmp137223 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self136069_ _stx136060_))))) + (gxc#compile-e__1 _self136051_ _stx136042_))))) (declare (not safe)) (call-with-parameters - __tmp137241 + __tmp137223 gxc#current-compile-method - _self136069_))))) + _self136051_))))) (define gxc#apply-collect-object-refs__@ - (lambda (_keys136048136076_ . _args136078_) + (lambda (_keys136030136058_ . _args136060_) (apply gxc#apply-collect-object-refs__% - _keys136048136076_ + _keys136030136058_ (let () (declare (not safe)) (symbolic-table-ref - _keys136048136076_ + _keys136030136058_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _keys136048136076_ + _keys136030136058_ 'methods: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys136048136076_ 'slots: absent-value)) - _args136078_))) + (symbolic-table-ref _keys136030136058_ 'slots: absent-value)) + _args136060_))) (define gxc#apply-collect-object-refs - (lambda _args136052136084_ + (lambda _args136034136066_ (apply keyword-dispatch '#(receiver: slots: methods:) gxc#apply-collect-object-refs__@ - _args136052136084_))) + _args136034136066_))) (define gxc#::subst-object-refs::t - (let ((__tmp137244 (list gxc#::basic-xform-expression::t)) - (__tmp137242 - (let ((__tmp137243 + (let ((__tmp137226 (list gxc#::basic-xform-expression::t)) + (__tmp137224 + (let ((__tmp137225 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp137243 '())))) + (cons __tmp137225 '())))) (declare (not safe)) (make-class-type 'gxc#::subst-object-refs::t '::subst-object-refs - __tmp137244 + __tmp137226 '(receiver klass methods slots) - __tmp137242 + __tmp137224 '#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 _$args136044_ - (apply make-instance gxc#::subst-object-refs::t _$args136044_))) + (lambda _$args136026_ + (apply make-instance gxc#::subst-object-refs::t _$args136026_))) (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 (_g137245_ - _receiver136000136006_ - _klass136001136008_ - _methods136002136010_ - _slots136003136012_ - _stx136014_) - (let* ((_receiver136017_ + (lambda (_g137227_ + _receiver135982135988_ + _klass135983135990_ + _methods135984135992_ + _slots135985135994_ + _stx135996_) + (let* ((_receiver135999_ (if (let () (declare (not safe)) - (eq? _receiver136000136006_ absent-value)) + (eq? _receiver135982135988_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _receiver136000136006_)) - (_klass136019_ + _receiver135982135988_)) + (_klass136001_ (if (let () (declare (not safe)) - (eq? _klass136001136008_ absent-value)) + (eq? _klass135983135990_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'klass:)) - _klass136001136008_)) - (_methods136021_ + _klass135983135990_)) + (_methods136003_ (if (let () (declare (not safe)) - (eq? _methods136002136010_ absent-value)) + (eq? _methods135984135992_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _methods136002136010_)) - (_slots136023_ + _methods135984135992_)) + (_slots136005_ (if (let () (declare (not safe)) - (eq? _slots136003136012_ absent-value)) + (eq? _slots135985135994_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _slots136003136012_))) + _slots135985135994_))) (force gxc#::subst-object-refs-bind-methods!) - (let* ((_self136025_ - (let ((__obj137232 + (let* ((_self136007_ + (let ((__obj137214 (let () (declare (not safe)) (##structure @@ -532,95 +532,95 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137232 - _receiver136017_ + __obj137214 + _receiver135999_ '1 gxc#::subst-object-refs::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137232 - _klass136019_ + __obj137214 + _klass136001_ '2 gxc#::subst-object-refs::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137232 - _methods136021_ + __obj137214 + _methods136003_ '3 gxc#::subst-object-refs::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137232 - _slots136023_ + __obj137214 + _slots136005_ '4 gxc#::subst-object-refs::t '#f)) - __obj137232)) - (__tmp137246 + __obj137214)) + (__tmp137228 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self136025_ _stx136014_))))) + (gxc#compile-e__1 _self136007_ _stx135996_))))) (declare (not safe)) (call-with-parameters - __tmp137246 + __tmp137228 gxc#current-compile-method - _self136025_))))) + _self136007_))))) (define gxc#apply-subst-object-refs__@ - (lambda (_keys135999136032_ . _args136034_) + (lambda (_keys135981136014_ . _args136016_) (apply gxc#apply-subst-object-refs__% - _keys135999136032_ + _keys135981136014_ (let () (declare (not safe)) (symbolic-table-ref - _keys135999136032_ + _keys135981136014_ 'receiver: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys135999136032_ 'klass: absent-value)) + (symbolic-table-ref _keys135981136014_ 'klass: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _keys135999136032_ + _keys135981136014_ 'methods: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys135999136032_ 'slots: absent-value)) - _args136034_))) + (symbolic-table-ref _keys135981136014_ 'slots: absent-value)) + _args136016_))) (define gxc#apply-subst-object-refs - (lambda _args136004136040_ + (lambda _args135986136022_ (apply keyword-dispatch '#(receiver: methods: slots: klass:) gxc#apply-subst-object-refs__@ - _args136004136040_))) + _args135986136022_))) (define gxc#generate-method-specializers-define-values% - (lambda (_self133209_ _stx133210_) - (letrec ((_generate-method-bind133212_ - (lambda (_$klass135991_ - _$method-table135992_ - _id135993_ - _$id135994_) - (let ((_$tmp135996_ - (let ((__tmp137247 (gensym '__method))) + (lambda (_self133191_ _stx133192_) + (letrec ((_generate-method-bind133194_ + (lambda (_$klass135973_ + _$method-table135974_ + _id135975_ + _$id135976_) + (let ((_$tmp135978_ + (let ((__tmp137229 (gensym '__method))) (declare (not safe)) - (make-symbol__0 __tmp137247)))) - (let ((__tmp137295 + (make-symbol__0 __tmp137229)))) + (let ((__tmp137277 (let () (declare (not safe)) - (cons _$id135994_ '()))) - (__tmp137248 - (let ((__tmp137249 - (let ((__tmp137250 - (let ((__tmp137293 - (let ((__tmp137294 + (cons _$id135976_ '()))) + (__tmp137230 + (let ((__tmp137231 + (let ((__tmp137232 + (let ((__tmp137275 + (let ((__tmp137276 (let () (declare (not safe)) (cons 'make-promise @@ -628,823 +628,823 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp137294))) - (__tmp137251 - (let ((__tmp137252 - (let ((__tmp137253 - (let ((__tmp137254 + (cons '%#ref __tmp137276))) + (__tmp137233 + (let ((__tmp137234 + (let ((__tmp137235 + (let ((__tmp137236 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137255 - (let ((__tmp137256 - (let ((__tmp137276 - (let ((__tmp137277 - (let ((__tmp137292 + (let ((__tmp137237 + (let ((__tmp137238 + (let ((__tmp137258 + (let ((__tmp137259 + (let ((__tmp137274 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$tmp135996_ '()))) - (__tmp137278 - (let ((__tmp137279 - (let ((__tmp137280 - (let ((__tmp137290 - (let ((__tmp137291 + (cons _$tmp135978_ '()))) + (__tmp137260 + (let ((__tmp137261 + (let ((__tmp137262 + (let ((__tmp137272 + (let ((__tmp137273 (let () (declare (not safe)) (cons 'symbolic-table-ref '())))) (declare (not safe)) - (cons '%#ref __tmp137291))) - (__tmp137281 - (let ((__tmp137288 - (let ((__tmp137289 + (cons '%#ref __tmp137273))) + (__tmp137263 + (let ((__tmp137270 + (let ((__tmp137271 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$method-table135992_ '())))) + (cons _$method-table135974_ '())))) (declare (not safe)) - (cons '%#ref __tmp137289))) + (cons '%#ref __tmp137271))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp137282 - (let ((__tmp137286 - (let ((__tmp137287 + (__tmp137264 + (let ((__tmp137268 + (let ((__tmp137269 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id135993_ '())))) + (cons _id135975_ '())))) (declare (not safe)) - (cons '%#quote __tmp137287))) - (__tmp137283 - (let ((__tmp137284 - (let ((__tmp137285 + (cons '%#quote __tmp137269))) + (__tmp137265 + (let ((__tmp137266 + (let ((__tmp137267 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '%#quote __tmp137285)))) + (cons '%#quote __tmp137267)))) (declare (not safe)) - (cons __tmp137284 '())))) + (cons __tmp137266 '())))) (declare (not safe)) - (cons __tmp137286 __tmp137283)))) + (cons __tmp137268 __tmp137265)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137288 - __tmp137282)))) + (cons __tmp137270 + __tmp137264)))) (declare (not safe)) - (cons __tmp137290 __tmp137281)))) + (cons __tmp137272 __tmp137263)))) (declare (not safe)) - (cons '%#call __tmp137280)))) + (cons '%#call __tmp137262)))) (declare (not safe)) - (cons __tmp137279 '())))) + (cons __tmp137261 '())))) (declare (not safe)) - (cons __tmp137292 __tmp137278)))) + (cons __tmp137274 __tmp137260)))) (declare (not safe)) - (cons __tmp137277 '()))) + (cons __tmp137259 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp137257 - (let ((__tmp137258 - (let ((__tmp137259 + (__tmp137239 + (let ((__tmp137240 + (let ((__tmp137241 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137274 - (let ((__tmp137275 + (let ((__tmp137256 + (let ((__tmp137257 (let () (declare (not safe)) - (cons _$tmp135996_ '())))) + (cons _$tmp135978_ '())))) (declare (not safe)) - (cons '%#ref __tmp137275))) - (__tmp137260 - (let ((__tmp137272 - (let ((__tmp137273 + (cons '%#ref __tmp137257))) + (__tmp137242 + (let ((__tmp137254 + (let ((__tmp137255 (let () (declare (not safe)) - (cons _$tmp135996_ '())))) + (cons _$tmp135978_ '())))) (declare (not safe)) - (cons '%#ref __tmp137273))) - (__tmp137261 - (let ((__tmp137262 - (let ((__tmp137263 - (let ((__tmp137270 - (let ((__tmp137271 + (cons '%#ref __tmp137255))) + (__tmp137243 + (let ((__tmp137244 + (let ((__tmp137245 + (let ((__tmp137252 + (let ((__tmp137253 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp137271))) - (__tmp137264 - (let ((__tmp137268 - (let ((__tmp137269 + (cons '%#ref __tmp137253))) + (__tmp137246 + (let ((__tmp137250 + (let ((__tmp137251 (let () (declare (not safe)) (cons '"Missing method" '())))) (declare (not safe)) - (cons '%#quote __tmp137269))) - (__tmp137265 - (let ((__tmp137266 - (let ((__tmp137267 + (cons '%#quote __tmp137251))) + (__tmp137247 + (let ((__tmp137248 + (let ((__tmp137249 (let () (declare (not safe)) - (cons _id135993_ '())))) + (cons _id135975_ '())))) (declare (not safe)) - (cons '%#quote __tmp137267)))) + (cons '%#quote __tmp137249)))) (declare (not safe)) - (cons __tmp137266 '())))) + (cons __tmp137248 '())))) (declare (not safe)) - (cons __tmp137268 __tmp137265)))) + (cons __tmp137250 __tmp137247)))) (declare (not safe)) - (cons __tmp137270 __tmp137264)))) + (cons __tmp137252 __tmp137246)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp137263)))) + (cons '%#call __tmp137245)))) (declare (not safe)) - (cons __tmp137262 '())))) + (cons __tmp137244 '())))) (declare (not safe)) - (cons __tmp137272 __tmp137261)))) + (cons __tmp137254 __tmp137243)))) (declare (not safe)) - (cons __tmp137274 __tmp137260)))) + (cons __tmp137256 __tmp137242)))) (declare (not safe)) - (cons '%#if __tmp137259)))) + (cons '%#if __tmp137241)))) (declare (not safe)) - (cons __tmp137258 '())))) + (cons __tmp137240 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137276 - __tmp137257)))) + (cons __tmp137258 + __tmp137239)))) (declare (not safe)) - (cons '%#let-values __tmp137256)))) + (cons '%#let-values __tmp137238)))) (declare (not safe)) - (cons __tmp137255 '())))) + (cons __tmp137237 '())))) (declare (not safe)) - (cons '() __tmp137254)))) + (cons '() __tmp137236)))) (declare (not safe)) - (cons '%#lambda __tmp137253)))) + (cons '%#lambda __tmp137235)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137252 '())))) + (cons __tmp137234 '())))) (declare (not safe)) - (cons __tmp137293 __tmp137251)))) + (cons __tmp137275 __tmp137233)))) (declare (not safe)) - (cons '%#call __tmp137250)))) + (cons '%#call __tmp137232)))) (declare (not safe)) - (cons __tmp137249 '())))) + (cons __tmp137231 '())))) (declare (not safe)) - (cons __tmp137295 __tmp137248))))) - (_generate-slot-bind133213_ - (lambda (_$klass135985_ _id135986_ _$id135987_) - (let ((_$tmp135989_ - (let ((__tmp137296 (gensym '__slot))) + (cons __tmp137277 __tmp137230))))) + (_generate-slot-bind133195_ + (lambda (_$klass135967_ _id135968_ _$id135969_) + (let ((_$tmp135971_ + (let ((__tmp137278 (gensym '__slot))) (declare (not safe)) - (make-symbol__0 __tmp137296)))) - (let ((__tmp137333 + (make-symbol__0 __tmp137278)))) + (let ((__tmp137315 (let () (declare (not safe)) - (cons _$id135987_ '()))) - (__tmp137297 - (let ((__tmp137298 - (let ((__tmp137299 - (let ((__tmp137319 - (let ((__tmp137320 - (let ((__tmp137332 + (cons _$id135969_ '()))) + (__tmp137279 + (let ((__tmp137280 + (let ((__tmp137281 + (let ((__tmp137301 + (let ((__tmp137302 + (let ((__tmp137314 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tmp135989_ '()))) - (__tmp137321 - (let ((__tmp137322 - (let ((__tmp137323 - (let ((__tmp137330 - (let ((__tmp137331 + (cons _$tmp135971_ '()))) + (__tmp137303 + (let ((__tmp137304 + (let ((__tmp137305 + (let ((__tmp137312 + (let ((__tmp137313 (let () (declare (not safe)) (cons 'class-slot-offset '())))) (declare (not safe)) - (cons '%#ref __tmp137331))) - (__tmp137324 - (let ((__tmp137328 - (let ((__tmp137329 + (cons '%#ref __tmp137313))) + (__tmp137306 + (let ((__tmp137310 + (let ((__tmp137311 (let () (declare (not safe)) - (cons _$klass135985_ + (cons _$klass135967_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp137329))) + (cons '%#ref __tmp137311))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp137325 - (let ((__tmp137326 - (let ((__tmp137327 + (__tmp137307 + (let ((__tmp137308 + (let ((__tmp137309 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id135986_ '())))) + (let () (declare (not safe)) (cons _id135968_ '())))) (declare (not safe)) - (cons '%#quote __tmp137327)))) + (cons '%#quote __tmp137309)))) (declare (not safe)) - (cons __tmp137326 '())))) + (cons __tmp137308 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137328 - __tmp137325)))) + (cons __tmp137310 + __tmp137307)))) (declare (not safe)) - (cons __tmp137330 __tmp137324)))) + (cons __tmp137312 __tmp137306)))) (declare (not safe)) - (cons '%#call __tmp137323)))) + (cons '%#call __tmp137305)))) (declare (not safe)) - (cons __tmp137322 '())))) + (cons __tmp137304 '())))) (declare (not safe)) - (cons __tmp137332 __tmp137321)))) + (cons __tmp137314 __tmp137303)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137320 '()))) - (__tmp137300 - (let ((__tmp137301 - (let ((__tmp137302 - (let ((__tmp137317 + (cons __tmp137302 '()))) + (__tmp137282 + (let ((__tmp137283 + (let ((__tmp137284 + (let ((__tmp137299 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137318 + (let ((__tmp137300 (let () (declare (not safe)) - (cons _$tmp135989_ '())))) + (cons _$tmp135971_ '())))) (declare (not safe)) - (cons '%#ref __tmp137318))) - (__tmp137303 - (let ((__tmp137315 - (let ((__tmp137316 + (cons '%#ref __tmp137300))) + (__tmp137285 + (let ((__tmp137297 + (let ((__tmp137298 (let () (declare (not safe)) - (cons _$tmp135989_ '())))) + (cons _$tmp135971_ '())))) (declare (not safe)) - (cons '%#ref __tmp137316))) - (__tmp137304 - (let ((__tmp137305 - (let ((__tmp137306 - (let ((__tmp137313 - (let ((__tmp137314 + (cons '%#ref __tmp137298))) + (__tmp137286 + (let ((__tmp137287 + (let ((__tmp137288 + (let ((__tmp137295 + (let ((__tmp137296 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp137314))) - (__tmp137307 - (let ((__tmp137311 - (let ((__tmp137312 + (cons '%#ref __tmp137296))) + (__tmp137289 + (let ((__tmp137293 + (let ((__tmp137294 (let () (declare (not safe)) (cons '"Unknown slot" '())))) (declare (not safe)) - (cons '%#quote __tmp137312))) - (__tmp137308 - (let ((__tmp137309 - (let ((__tmp137310 + (cons '%#quote __tmp137294))) + (__tmp137290 + (let ((__tmp137291 + (let ((__tmp137292 (let () (declare (not safe)) - (cons _id135986_ '())))) + (cons _id135968_ '())))) (declare (not safe)) - (cons '%#quote __tmp137310)))) + (cons '%#quote __tmp137292)))) (declare (not safe)) - (cons __tmp137309 '())))) + (cons __tmp137291 '())))) (declare (not safe)) - (cons __tmp137311 __tmp137308)))) + (cons __tmp137293 __tmp137290)))) (declare (not safe)) - (cons __tmp137313 __tmp137307)))) + (cons __tmp137295 __tmp137289)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp137306)))) + (cons '%#call __tmp137288)))) (declare (not safe)) - (cons __tmp137305 '())))) + (cons __tmp137287 '())))) (declare (not safe)) - (cons __tmp137315 __tmp137304)))) + (cons __tmp137297 __tmp137286)))) (declare (not safe)) - (cons __tmp137317 __tmp137303)))) + (cons __tmp137299 __tmp137285)))) (declare (not safe)) - (cons '%#if __tmp137302)))) + (cons '%#if __tmp137284)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137301 '())))) + (cons __tmp137283 '())))) (declare (not safe)) - (cons __tmp137319 __tmp137300)))) + (cons __tmp137301 __tmp137282)))) (declare (not safe)) - (cons '%#let-values __tmp137299)))) + (cons '%#let-values __tmp137281)))) (declare (not safe)) - (cons __tmp137298 '())))) + (cons __tmp137280 '())))) (declare (not safe)) - (cons __tmp137333 __tmp137297))))) - (_generate-specializer-impl133214_ - (lambda (_$klass135979_ - _$method-table135980_ - _methods-bind135981_ - _slots-bind135982_ - _specializer-impl135983_) - (let ((__tmp137334 - (let ((__tmp137335 - (let ((__tmp137341 - (let ((__tmp137342 + (cons __tmp137315 __tmp137279))))) + (_generate-specializer-impl133196_ + (lambda (_$klass135961_ + _$method-table135962_ + _methods-bind135963_ + _slots-bind135964_ + _specializer-impl135965_) + (let ((__tmp137316 + (let ((__tmp137317 + (let ((__tmp137323 + (let ((__tmp137324 (let () (declare (not safe)) - (cons _$method-table135980_ + (cons _$method-table135962_ '())))) (declare (not safe)) - (cons _$klass135979_ __tmp137342))) - (__tmp137336 - (let ((__tmp137337 - (let ((__tmp137338 - (let ((__tmp137340 + (cons _$klass135961_ __tmp137324))) + (__tmp137318 + (let ((__tmp137319 + (let ((__tmp137320 + (let ((__tmp137322 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (foldr1 cons _slots-bind135982_ _methods-bind135981_))) - (__tmp137339 + (foldr1 cons _slots-bind135964_ _methods-bind135963_))) + (__tmp137321 (let () (declare (not safe)) - (cons _specializer-impl135983_ '())))) + (cons _specializer-impl135965_ '())))) (declare (not safe)) - (cons __tmp137340 __tmp137339)))) + (cons __tmp137322 __tmp137321)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp137338)))) + __tmp137320)))) (declare (not safe)) - (cons __tmp137337 '())))) + (cons __tmp137319 '())))) (declare (not safe)) - (cons __tmp137341 __tmp137336)))) + (cons __tmp137323 __tmp137318)))) (declare (not safe)) - (cons '%#lambda __tmp137335)))) + (cons '%#lambda __tmp137317)))) (declare (not safe)) - (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 + (gxc#xform-wrap-source __tmp137316 _stx133192_)))) + (_generate-specializer-def133197_ + (lambda (_id135957_ + _specializer-id135958_ + _specializer-impl135959_) + (let ((__tmp137325 + (let ((__tmp137326 + (let ((__tmp137327 + (let ((__tmp137340 + (let ((__tmp137341 + (let ((__tmp137342 + (let ((__tmp137344 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _specializer-id135976_ '()))) - (__tmp137361 + (cons _specializer-id135958_ '()))) + (__tmp137343 (let () (declare (not safe)) - (cons _specializer-impl135977_ '())))) + (cons _specializer-impl135959_ '())))) (declare (not safe)) - (cons __tmp137362 __tmp137361)))) + (cons __tmp137344 __tmp137343)))) (declare (not safe)) - (cons '%#define-values __tmp137360)))) + (cons '%#define-values __tmp137342)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp137359 - _stx133210_))) - (__tmp137346 - (let ((__tmp137347 - (let ((__tmp137348 - (let ((__tmp137349 + __tmp137341 + _stx133192_))) + (__tmp137328 + (let ((__tmp137329 + (let ((__tmp137330 + (let ((__tmp137331 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137356 - (let ((__tmp137357 + (let ((__tmp137338 + (let ((__tmp137339 (let () (declare (not safe)) (cons 'bind-specializer! '())))) (declare (not safe)) - (cons '%#ref __tmp137357))) - (__tmp137350 - (let ((__tmp137354 - (let ((__tmp137355 + (cons '%#ref __tmp137339))) + (__tmp137332 + (let ((__tmp137336 + (let ((__tmp137337 (let () (declare (not safe)) - (cons _id135975_ '())))) + (cons _id135957_ '())))) (declare (not safe)) - (cons '%#ref __tmp137355))) - (__tmp137351 - (let ((__tmp137352 - (let ((__tmp137353 + (cons '%#ref __tmp137337))) + (__tmp137333 + (let ((__tmp137334 + (let ((__tmp137335 (let () (declare (not safe)) - (cons _specializer-id135976_ + (cons _specializer-id135958_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp137353)))) + __tmp137335)))) (declare (not safe)) - (cons __tmp137352 '())))) + (cons __tmp137334 '())))) (declare (not safe)) - (cons __tmp137354 __tmp137351)))) + (cons __tmp137336 __tmp137333)))) (declare (not safe)) - (cons __tmp137356 __tmp137350)))) + (cons __tmp137338 __tmp137332)))) (declare (not safe)) - (cons '%#call __tmp137349)))) + (cons '%#call __tmp137331)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137348 _stx133210_)))) + (gxc#xform-wrap-source __tmp137330 _stx133192_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137347 '())))) + (cons __tmp137329 '())))) (declare (not safe)) - (cons __tmp137358 __tmp137346)))) + (cons __tmp137340 __tmp137328)))) (declare (not safe)) - (cons _stx133210_ __tmp137345)))) + (cons _stx133192_ __tmp137327)))) (declare (not safe)) - (cons '%#begin __tmp137344)))) + (cons '%#begin __tmp137326)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137343 _stx133210_))))) - (let* ((___stx136188136189_ _stx133210_) - (_g133218133238_ + (gxc#xform-wrap-source __tmp137325 _stx133192_))))) + (let* ((___stx136170136171_ _stx133192_) + (_g133200133220_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136188136189_))))) - (let ((___kont136190136191_ - (lambda (_L133282_ _L133283_) - (let ((_method-calls133302_ + ___stx136170136171_))))) + (let ((___kont136172136173_ + (lambda (_L133264_ _L133265_) + (let ((_method-calls133284_ (let () (declare (not safe)) (make-hash-table-eq))) - (_slot-refs133303_ + (_slot-refs133285_ (let () (declare (not safe)) (make-hash-table-eq))) - (_empty133304_ + (_empty133286_ (let () (declare (not safe)) (make-hash-table-eq)))) - (letrec ((_no-specializer?133306_ + (letrec ((_no-specializer?133288_ (lambda () - (if (let ((__tmp137364 + (if (let ((__tmp137346 (let () (declare (not safe)) (hash-length - _method-calls133302_)))) + _method-calls133284_)))) (declare (not safe)) - (fxzero? __tmp137364)) - (let ((__tmp137363 + (fxzero? __tmp137346)) + (let ((__tmp137345 (let () (declare (not safe)) (hash-length - _slot-refs133303_)))) + _slot-refs133285_)))) (declare (not safe)) - (fxzero? __tmp137363)) + (fxzero? __tmp137345)) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L133282_)) - (let* ((___stx136102136103_ _L133282_) - (_g133693133711_ + (gxc#lambda-expr? _L133264_)) + (let* ((___stx136084136085_ _L133264_) + (_g133675133693_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136102136103_))))) - (let ((___kont136104136105_ - (lambda (_L133747_ _L133748_ _L133749_) + ___stx136084136085_))))) + (let ((___kont136086136087_ + (lambda (_L133729_ _L133730_ _L133731_) (for-each - (lambda (_g133764133766_) + (lambda (_g133746133748_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g133764133766_ + _g133746133748_ 'receiver: - _L133749_ + _L133731_ 'methods: - _method-calls133302_ + _method-calls133284_ 'slots: - _slot-refs133303_))) - _L133747_) + _slot-refs133285_))) + _L133729_) (if (let () (declare (not safe)) - (_no-specializer?133306_)) - _stx133210_ - (let* ((_specializer-id133775_ - (let* ((_id133769_ - (let ((__tmp137486 + (_no-specializer?133288_)) + _stx133192_ + (let* ((_specializer-id133757_ + (let* ((_id133751_ + (let ((__tmp137468 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L133283_)))) + (let () (declare (not safe)) (gx#stx-e _L133265_)))) (declare (not safe)) - (make-symbol__1 __tmp137486 '"::specialize"))) - (_specializer-id133772_ - (let ((__tmp137487 + (make-symbol__1 __tmp137468 '"::specialize"))) + (_specializer-id133754_ + (let ((__tmp137469 (let () (declare (not safe)) - (gx#stx-source _stx133210_)))) + (gx#stx-source _stx133192_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id133769_ __tmp137487)))) + (gx#core-quote-syntax__1 _id133751_ __tmp137469)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id133772_)) - _specializer-id133772_)) + (gx#core-bind-runtime!__0 _specializer-id133754_)) + _specializer-id133754_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$klass133777_ - (let ((__tmp137488 + (_$klass133759_ + (let ((__tmp137470 (gensym '__klass))) (declare (not safe)) (make-symbol__0 - __tmp137488))) - (_$method-table133779_ - (let ((__tmp137489 + __tmp137470))) + (_$method-table133761_ + (let ((__tmp137471 (gensym '__method-table))) (declare (not safe)) (make-symbol__0 - __tmp137489))) - (_methods133781_ + __tmp137471))) + (_methods133763_ (let () (declare (not safe)) (hash-keys - _method-calls133302_))) - (_$methods133785_ - (map (lambda (_id133783_) - (let ((__tmp137490 + _method-calls133284_))) + (_$methods133767_ + (map (lambda (_id133765_) + (let ((__tmp137472 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id133783_))) + (gensym _id133765_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137490))) - _methods133781_)) + (make-symbol__1 '"__" __tmp137472))) + _methods133763_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g137491_ + (_g137473_ (for-each - (lambda (_g133786133789_ - _g133787133791_) + (lambda (_g133768133771_ + _g133769133773_) (let () (declare (not safe)) (hash-put! - _method-calls133302_ - _g133786133789_ - _g133787133791_))) - _methods133781_ - _$methods133785_)) - (_methods-bind133802_ - (map (lambda (_g133794133797_ + _method-calls133284_ + _g133768133771_ + _g133769133773_))) + _methods133763_ + _$methods133767_)) + (_methods-bind133784_ + (map (lambda (_g133776133779_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g133795133799_) + _g133777133781_) (let () (declare (not safe)) - (_generate-method-bind133212_ - _$klass133777_ - _$method-table133779_ - _g133794133797_ - _g133795133799_))) - _methods133781_ - _$methods133785_)) + (_generate-method-bind133194_ + _$klass133759_ + _$method-table133761_ + _g133776133779_ + _g133777133781_))) + _methods133763_ + _$methods133767_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots133804_ + (_slots133786_ (let () (declare (not safe)) (hash-keys - _slot-refs133303_))) - (_$slots133808_ - (map (lambda (_id133806_) - (let ((__tmp137492 + _slot-refs133285_))) + (_$slots133790_ + (map (lambda (_id133788_) + (let ((__tmp137474 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id133806_))) + (gensym _id133788_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137492))) - _slots133804_)) + (make-symbol__1 '"__" __tmp137474))) + _slots133786_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g137493_ + (_g137475_ (for-each - (lambda (_g133809133812_ - _g133810133814_) + (lambda (_g133791133794_ + _g133792133796_) (let () (declare (not safe)) (hash-put! - _slot-refs133303_ - _g133809133812_ - _g133810133814_))) - _slots133804_ - _$slots133808_)) - (_slots-bind133825_ - (map (lambda (_g133817133820_ + _slot-refs133285_ + _g133791133794_ + _g133792133796_))) + _slots133786_ + _$slots133790_)) + (_slots-bind133807_ + (map (lambda (_g133799133802_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g133818133822_) + _g133800133804_) (let () (declare (not safe)) - (_generate-slot-bind133213_ - _$klass133777_ - _g133817133820_ - _g133818133822_))) - _slots133804_ - _$slots133808_)) + (_generate-slot-bind133195_ + _$klass133759_ + _g133799133802_ + _g133800133804_))) + _slots133786_ + _$slots133790_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-body133831_ - (map (lambda (_g133826133828_) + (_specializer-body133813_ + (map (lambda (_g133808133810_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g133826133828_ + _g133808133810_ 'receiver: - _L133749_ + _L133731_ 'klass: - _$klass133777_ + _$klass133759_ 'methods: - _method-calls133302_ + _method-calls133284_ 'slots: - _slot-refs133303_))) - _L133747_)) - (_specializer-impl133833_ - (let ((__tmp137494 - (let ((__tmp137495 + _slot-refs133285_))) + _L133729_)) + (_specializer-impl133815_ + (let ((__tmp137476 + (let ((__tmp137477 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137496 + (let ((__tmp137478 (let () (declare (not safe)) - (cons _L133749_ _L133748_)))) + (cons _L133731_ _L133730_)))) (declare (not safe)) - (cons __tmp137496 _specializer-body133831_)))) + (cons __tmp137478 _specializer-body133813_)))) (declare (not safe)) - (cons '%#lambda __tmp137495)))) + (cons '%#lambda __tmp137477)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137494 _stx133210_))) + (gxc#xform-wrap-source __tmp137476 _stx133192_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl133835_ + (_specializer-impl133817_ (let () (declare (not safe)) - (_generate-specializer-impl133214_ - _$klass133777_ - _$method-table133779_ - _methods-bind133802_ - _slots-bind133825_ - _specializer-impl133833_)))) - (let ((__tmp137498 + (_generate-specializer-impl133196_ + _$klass133759_ + _$method-table133761_ + _methods-bind133784_ + _slots-bind133807_ + _specializer-impl133815_)))) + (let ((__tmp137480 (let () (declare (not safe)) - (gx#stx-e _L133283_))) - (__tmp137497 + (gx#stx-e _L133265_))) + (__tmp137479 (let () (declare (not safe)) (gx#stx-e - _specializer-id133775_)))) + _specializer-id133757_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp137498 + __tmp137480 '" => " - __tmp137497)) + __tmp137479)) (let () (declare (not safe)) - (_generate-specializer-def133215_ - _L133283_ - _specializer-id133775_ - _specializer-impl133835_)))))) - (___kont136106136107_ - (lambda () _stx133210_))) + (_generate-specializer-def133197_ + _L133265_ + _specializer-id133757_ + _specializer-impl133817_)))))) + (___kont136088136089_ + (lambda () _stx133192_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx136102136103_)) - (let ((_e133700133723_ + (gx#stx-pair? ___stx136084136085_)) + (let ((_e133682133705_ (let () (declare (not safe)) - (gx#stx-e ___stx136102136103_)))) - (let ((_tl133698133728_ + (gx#stx-e ___stx136084136085_)))) + (let ((_tl133680133710_ (let () (declare (not safe)) - (##cdr _e133700133723_))) - (_hd133699133726_ + (##cdr _e133682133705_))) + (_hd133681133708_ (let () (declare (not safe)) - (##car _e133700133723_)))) + (##car _e133682133705_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133698133728_)) - (let ((_e133703133731_ + (gx#stx-pair? _tl133680133710_)) + (let ((_e133685133713_ (let () (declare (not safe)) (gx#stx-e - _tl133698133728_)))) - (let ((_tl133701133736_ + _tl133680133710_)))) + (let ((_tl133683133718_ (let () (declare (not safe)) - (##cdr _e133703133731_))) - (_hd133702133734_ + (##cdr _e133685133713_))) + (_hd133684133716_ (let () (declare (not safe)) - (##car _e133703133731_)))) + (##car _e133685133713_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd133702133734_)) - (let ((_e133706133739_ + _hd133684133716_)) + (let ((_e133688133721_ (let () (declare (not safe)) (gx#stx-e - _hd133702133734_)))) - (let ((_tl133704133744_ + _hd133684133716_)))) + (let ((_tl133686133726_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e133706133739_))) - (_hd133705133742_ - (let () (declare (not safe)) (##car _e133706133739_)))) - (___kont136104136105_ - _tl133701133736_ - _tl133704133744_ - _hd133705133742_))) + (##cdr _e133688133721_))) + (_hd133687133724_ + (let () (declare (not safe)) (##car _e133688133721_)))) + (___kont136086136087_ + _tl133683133718_ + _tl133686133726_ + _hd133687133724_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136106136107_)))) - (___kont136106136107_)))) - (___kont136106136107_)))) + (___kont136088136089_)))) + (___kont136088136089_)))) + (___kont136088136089_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _L133282_)) - (let* ((_g133841133860_ - (lambda (_g133842133857_) + (gxc#case-lambda-expr? _L133264_)) + (let* ((_g133823133842_ + (lambda (_g133824133839_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g133842133857_)))) - (_g133840134143_ - (lambda (_g133842133863_) + _g133824133839_)))) + (_g133822134125_ + (lambda (_g133824133845_) (if (let () (declare (not safe)) (gx#stx-pair? - _g133842133863_)) - (let ((_e133846133865_ + _g133824133845_)) + (let ((_e133828133847_ (let () (declare (not safe)) (gx#stx-e - _g133842133863_)))) - (let ((_hd133845133868_ + _g133824133845_)))) + (let ((_hd133827133850_ (let () (declare (not safe)) - (##car _e133846133865_))) - (_tl133844133870_ + (##car _e133828133847_))) + (_tl133826133852_ (let () (declare (not safe)) - (##cdr _e133846133865_)))) + (##cdr _e133828133847_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl133844133870_)) - (let ((_g137469_ + _tl133826133852_)) + (let ((_g137451_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl133844133870_ '0)))) + (gx#syntax-split-splice _tl133826133852_ '0)))) (begin - (let ((_g137470_ + (let ((_g137452_ (let () (declare (not safe)) - (if (##values? _g137469_) - (##vector-length _g137469_) + (if (##values? _g137451_) + (##vector-length _g137451_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137470_ 2))) - (error "Context expects 2 values" _g137470_))) - (let ((_target133847133873_ + (##fx= _g137452_ 2))) + (error "Context expects 2 values" _g137452_))) + (let ((_target133829133855_ (let () (declare (not safe)) - (##vector-ref _g137469_ 0))) - (_tl133849133875_ + (##vector-ref _g137451_ 0))) + (_tl133831133857_ (let () (declare (not safe)) - (##vector-ref _g137469_ 1)))) + (##vector-ref _g137451_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133849133875_)) - (letrec ((_loop133850133878_ - (lambda (_hd133848133881_ - _clause133854133883_) + (gx#stx-null? _tl133831133857_)) + (letrec ((_loop133832133860_ + (lambda (_hd133830133863_ + _clause133836133865_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133848133881_)) - (let ((_e133851133886_ + (gx#stx-pair? _hd133830133863_)) + (let ((_e133833133868_ (let () (declare (not safe)) (gx#stx-e - _hd133848133881_)))) - (let ((_lp-hd133852133889_ + _hd133830133863_)))) + (let ((_lp-hd133834133871_ (let () (declare (not safe)) - (##car _e133851133886_))) - (_lp-tl133853133891_ + (##car _e133833133868_))) + (_lp-tl133835133873_ (let () (declare (not safe)) - (##cdr _e133851133886_)))) - (let ((__tmp137485 + (##cdr _e133833133868_)))) + (let ((__tmp137467 (let () (declare (not safe)) - (cons _lp-hd133852133889_ - _clause133854133883_)))) + (cons _lp-hd133834133871_ + _clause133836133865_)))) (declare (not safe)) - (_loop133850133878_ - _lp-tl133853133891_ - __tmp137485)))) - (let ((_clause133855133894_ - (reverse _clause133854133883_))) - ((lambda (_L133897_) + (_loop133832133860_ + _lp-tl133835133873_ + __tmp137467)))) + (let ((_clause133837133876_ + (reverse _clause133836133865_))) + ((lambda (_L133879_) (for-each - (lambda (_clause133910_) - (let* ((___stx136128136129_ - _clause133910_) - (_g133913133928_ + (lambda (_clause133892_) + (let* ((___stx136110136111_ + _clause133892_) + (_g133895133910_ (lambda () (let () (declare @@ -1452,7854 +1452,7854 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136128136129_))))) - (let ((___kont136130136131_ - (lambda (_L133956_ + ___stx136110136111_))))) + (let ((___kont136112136113_ + (lambda (_L133938_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L133957_ - _L133958_) + _L133939_ + _L133940_) (for-each - (lambda (_g133973133975_) + (lambda (_g133955133957_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g133973133975_ + _g133955133957_ 'receiver: - _L133958_ + _L133940_ 'methods: - _method-calls133302_ + _method-calls133284_ 'slots: - _slot-refs133303_))) - _L133956_))) - (___kont136132136133_ (lambda () '#!void))) + _slot-refs133285_))) + _L133938_))) + (___kont136114136115_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx136128136129_)) - (let ((_e133920133940_ + ___stx136110136111_)) + (let ((_e133902133922_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e ___stx136128136129_)))) - (let ((_tl133918133945_ + (gx#stx-e ___stx136110136111_)))) + (let ((_tl133900133927_ (let () (declare (not safe)) - (##cdr _e133920133940_))) - (_hd133919133943_ + (##cdr _e133902133922_))) + (_hd133901133925_ (let () (declare (not safe)) - (##car _e133920133940_)))) + (##car _e133902133922_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133919133943_)) - (let ((_e133923133948_ + (gx#stx-pair? _hd133901133925_)) + (let ((_e133905133930_ (let () (declare (not safe)) - (gx#stx-e _hd133919133943_)))) - (let ((_tl133921133953_ + (gx#stx-e _hd133901133925_)))) + (let ((_tl133903133935_ (let () (declare (not safe)) - (##cdr _e133923133948_))) - (_hd133922133951_ + (##cdr _e133905133930_))) + (_hd133904133933_ (let () (declare (not safe)) - (##car _e133923133948_)))) - (___kont136130136131_ - _tl133918133945_ - _tl133921133953_ - _hd133922133951_))) - (___kont136132136133_)))) - (___kont136132136133_))))) + (##car _e133905133930_)))) + (___kont136112136113_ + _tl133900133927_ + _tl133903133935_ + _hd133904133933_))) + (___kont136114136115_)))) + (___kont136114136115_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp137471 - (lambda (_g133980133983_ - _g133981133985_) + (let ((__tmp137453 + (lambda (_g133962133965_ + _g133963133967_) (let () (declare (not safe)) - (cons _g133980133983_ - _g133981133985_))))) + (cons _g133962133965_ + _g133963133967_))))) (declare (not safe)) - (foldr1 __tmp137471 + (foldr1 __tmp137453 '() - _L133897_))) + _L133879_))) (if (let () (declare (not safe)) - (_no-specializer?133306_)) - _stx133210_ - (let* ((_specializer-id133994_ - (let* ((_id133988_ + (_no-specializer?133288_)) + _stx133192_ + (let* ((_specializer-id133976_ + (let* ((_id133970_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137472 + (let ((__tmp137454 (let () (declare (not safe)) - (gx#stx-e _L133283_)))) + (gx#stx-e _L133265_)))) (declare (not safe)) - (make-symbol__1 __tmp137472 '"::specialize"))) - (_specializer-id133991_ - (let ((__tmp137473 + (make-symbol__1 __tmp137454 '"::specialize"))) + (_specializer-id133973_ + (let ((__tmp137455 (let () (declare (not safe)) - (gx#stx-source _stx133210_)))) + (gx#stx-source _stx133192_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id133988_ __tmp137473)))) + (gx#core-quote-syntax__1 _id133970_ __tmp137455)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id133991_)) - _specializer-id133991_)) - (_$klass133996_ - (let ((__tmp137474 (gensym '__klass))) + (gx#core-bind-runtime!__0 _specializer-id133973_)) + _specializer-id133973_)) + (_$klass133978_ + (let ((__tmp137456 (gensym '__klass))) (declare (not safe)) - (make-symbol__0 __tmp137474))) - (_$method-table133998_ - (let ((__tmp137475 (gensym '__method-table))) + (make-symbol__0 __tmp137456))) + (_$method-table133980_ + (let ((__tmp137457 (gensym '__method-table))) (declare (not safe)) - (make-symbol__0 __tmp137475))) - (_methods134000_ + (make-symbol__0 __tmp137457))) + (_methods133982_ (let () (declare (not safe)) - (hash-keys _method-calls133302_))) - (_$methods134004_ - (map (lambda (_id134002_) - (let ((__tmp137476 (gensym _id134002_))) + (hash-keys _method-calls133284_))) + (_$methods133986_ + (map (lambda (_id133984_) + (let ((__tmp137458 (gensym _id133984_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137476))) - _methods134000_)) - (_g137477_ + (make-symbol__1 '"__" __tmp137458))) + _methods133982_)) + (_g137459_ (for-each - (lambda (_g134005134008_ _g134006134010_) + (lambda (_g133987133990_ _g133988133992_) (let () (declare (not safe)) (hash-put! - _method-calls133302_ - _g134005134008_ - _g134006134010_))) - _methods134000_ - _$methods134004_)) - (_methods-bind134021_ - (map (lambda (_g134013134016_ _g134014134018_) + _method-calls133284_ + _g133987133990_ + _g133988133992_))) + _methods133982_ + _$methods133986_)) + (_methods-bind134003_ + (map (lambda (_g133995133998_ _g133996134000_) (let () (declare (not safe)) - (_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_))) + (_generate-method-bind133194_ + _$klass133978_ + _$method-table133980_ + _g133995133998_ + _g133996134000_))) + _methods133982_ + _$methods133986_)) + (_slots134005_ + (let () (declare (not safe)) (hash-keys _slot-refs133285_))) + (_$slots134009_ + (map (lambda (_id134007_) + (let ((__tmp137460 (gensym _id134007_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137478))) - _slots134023_)) - (_g137479_ + (make-symbol__1 '"__" __tmp137460))) + _slots134005_)) + (_g137461_ (for-each - (lambda (_g134028134031_ _g134029134033_) + (lambda (_g134010134013_ _g134011134015_) (let () (declare (not safe)) (hash-put! - _slot-refs133303_ - _g134028134031_ - _g134029134033_))) - _slots134023_ - _$slots134027_)) - (_slots-bind134044_ - (map (lambda (_g134036134039_ _g134037134041_) + _slot-refs133285_ + _g134010134013_ + _g134011134015_))) + _slots134005_ + _$slots134009_)) + (_slots-bind134026_ + (map (lambda (_g134018134021_ _g134019134023_) (let () (declare (not safe)) - (_generate-slot-bind133213_ - _$klass133996_ - _g134036134039_ - _g134037134041_))) - _slots134023_ - _$slots134027_)) - (_specializer-clauses134136_ - (map (lambda (_clause134046_) - (let* ((___stx136148136149_ _clause134046_) - (_g134049134064_ + (_generate-slot-bind133195_ + _$klass133978_ + _g134018134021_ + _g134019134023_))) + _slots134005_ + _$slots134009_)) + (_specializer-clauses134118_ + (map (lambda (_clause134028_) + (let* ((___stx136130136131_ _clause134028_) + (_g134031134046_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136148136149_))))) - (let ((___kont136150136151_ - (lambda (_L134092_ _L134093_ _L134094_) - (let* ((_body134124_ - (map (lambda (_g134119134121_) + ___stx136130136131_))))) + (let ((___kont136132136133_ + (lambda (_L134074_ _L134075_ _L134076_) + (let* ((_body134106_ + (map (lambda (_g134101134103_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g134119134121_ + _g134101134103_ 'receiver: - _L134094_ + _L134076_ 'klass: - _$klass133996_ + _$klass133978_ 'methods: - _method-calls133302_ + _method-calls133284_ 'slots: - _slot-refs133303_))) - _L134092_)) - (__tmp137480 + _slot-refs133285_))) + _L134074_)) + (__tmp137462 (let () (declare (not safe)) - (cons _L134094_ _L134093_)))) + (cons _L134076_ _L134075_)))) (declare (not safe)) - (cons __tmp137480 _body134124_)))) - (___kont136152136153_ - (lambda () _clause134046_))) + (cons __tmp137462 _body134106_)))) + (___kont136134136135_ + (lambda () _clause134028_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx136148136149_)) - (let ((_e134056134076_ + (gx#stx-pair? ___stx136130136131_)) + (let ((_e134038134058_ (let () (declare (not safe)) - (gx#stx-e ___stx136148136149_)))) - (let ((_tl134054134081_ + (gx#stx-e ___stx136130136131_)))) + (let ((_tl134036134063_ (let () (declare (not safe)) - (##cdr _e134056134076_))) - (_hd134055134079_ + (##cdr _e134038134058_))) + (_hd134037134061_ (let () (declare (not safe)) - (##car _e134056134076_)))) + (##car _e134038134058_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134055134079_)) - (let ((_e134059134084_ + (gx#stx-pair? _hd134037134061_)) + (let ((_e134041134066_ (let () (declare (not safe)) (gx#stx-e - _hd134055134079_)))) - (let ((_tl134057134089_ + _hd134037134061_)))) + (let ((_tl134039134071_ (let () (declare (not safe)) - (##cdr _e134059134084_))) - (_hd134058134087_ + (##cdr _e134041134066_))) + (_hd134040134069_ (let () (declare (not safe)) - (##car _e134059134084_)))) - (___kont136150136151_ - _tl134054134081_ - _tl134057134089_ - _hd134058134087_))) - (___kont136152136153_)))) - (___kont136152136153_))))) - (let ((__tmp137481 - (lambda (_g134128134131_ _g134129134133_) + (##car _e134041134066_)))) + (___kont136132136133_ + _tl134036134063_ + _tl134039134071_ + _hd134040134069_))) + (___kont136134136135_)))) + (___kont136134136135_))))) + (let ((__tmp137463 + (lambda (_g134110134113_ _g134111134115_) (let () (declare (not safe)) - (cons _g134128134131_ _g134129134133_))))) + (cons _g134110134113_ _g134111134115_))))) (declare (not safe)) - (foldr1 __tmp137481 '() _L133897_)))) - (_specializer-impl134138_ - (let ((__tmp137482 + (foldr1 __tmp137463 '() _L133879_)))) + (_specializer-impl134120_ + (let ((__tmp137464 (let () (declare (not safe)) - (cons '%#case-lambda _specializer-clauses134136_)))) + (cons '%#case-lambda _specializer-clauses134118_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137482 _stx133210_))) - (_specializer-impl134140_ + (gxc#xform-wrap-source __tmp137464 _stx133192_))) + (_specializer-impl134122_ (let () (declare (not safe)) - (_generate-specializer-impl133214_ - _$klass133996_ - _$method-table133998_ - _methods-bind134021_ - _slots-bind134044_ - _specializer-impl134138_)))) + (_generate-specializer-impl133196_ + _$klass133978_ + _$method-table133980_ + _methods-bind134003_ + _slots-bind134026_ + _specializer-impl134120_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp137484 + (let ((__tmp137466 (let () (declare (not safe)) (gx#stx-e - _L133283_))) - (__tmp137483 + _L133265_))) + (__tmp137465 (let () (declare (not safe)) (gx#stx-e - _specializer-id133994_)))) + _specializer-id133976_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp137484 + __tmp137466 '" => " - __tmp137483)) + __tmp137465)) (let () (declare (not safe)) - (_generate-specializer-def133215_ - _L133283_ - _specializer-id133994_ - _specializer-impl134140_))))) - _clause133855133894_)))))) + (_generate-specializer-def133197_ + _L133265_ + _specializer-id133976_ + _specializer-impl134122_))))) + _clause133837133876_)))))) (let () (declare (not safe)) - (_loop133850133878_ _target133847133873_ '()))) + (_loop133832133860_ _target133829133855_ '()))) (let () (declare (not safe)) - (_g133841133860_ _g133842133863_)))))) + (_g133823133842_ _g133824133845_)))))) (let () (declare (not safe)) - (_g133841133860_ _g133842133863_))))) + (_g133823133842_ _g133824133845_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g133841133860_ - _g133842133863_)))))) + (_g133823133842_ + _g133824133845_)))))) (declare (not safe)) - (_g133840134143_ _L133282_)) + (_g133822134125_ _L133264_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L133282_)) - (let* ((_g134146134176_ - (lambda (_g134147134173_) + (gxc#opt-lambda-expr? _L133264_)) + (let* ((_g134128134158_ + (lambda (_g134129134155_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134147134173_)))) - (_g134145134781_ - (lambda (_g134147134179_) + _g134129134155_)))) + (_g134127134763_ + (lambda (_g134129134161_) (if (let () (declare (not safe)) (gx#stx-pair? - _g134147134179_)) - (let ((_e134153134181_ + _g134129134161_)) + (let ((_e134135134163_ (let () (declare (not safe)) (gx#stx-e - _g134147134179_)))) - (let ((_hd134152134184_ + _g134129134161_)))) + (let ((_hd134134134166_ (let () (declare (not safe)) - (##car _e134153134181_))) - (_tl134151134186_ + (##car _e134135134163_))) + (_tl134133134168_ (let () (declare (not safe)) - (##cdr _e134153134181_)))) + (##cdr _e134135134163_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl134151134186_)) - (let ((_e134156134189_ + _tl134133134168_)) + (let ((_e134138134171_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl134151134186_)))) - (let ((_hd134155134192_ + (gx#stx-e _tl134133134168_)))) + (let ((_hd134137134174_ (let () (declare (not safe)) - (##car _e134156134189_))) - (_tl134154134194_ + (##car _e134138134171_))) + (_tl134136134176_ (let () (declare (not safe)) - (##cdr _e134156134189_)))) + (##cdr _e134138134171_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134155134192_)) - (let ((_e134159134197_ + (gx#stx-pair? _hd134137134174_)) + (let ((_e134141134179_ (let () (declare (not safe)) - (gx#stx-e _hd134155134192_)))) - (let ((_hd134158134200_ + (gx#stx-e _hd134137134174_)))) + (let ((_hd134140134182_ (let () (declare (not safe)) - (##car _e134159134197_))) - (_tl134157134202_ + (##car _e134141134179_))) + (_tl134139134184_ (let () (declare (not safe)) - (##cdr _e134159134197_)))) + (##cdr _e134141134179_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134158134200_)) - (let ((_e134162134205_ + (gx#stx-pair? _hd134140134182_)) + (let ((_e134144134187_ (let () (declare (not safe)) - (gx#stx-e _hd134158134200_)))) - (let ((_hd134161134208_ + (gx#stx-e _hd134140134182_)))) + (let ((_hd134143134190_ (let () (declare (not safe)) - (##car _e134162134205_))) - (_tl134160134210_ + (##car _e134144134187_))) + (_tl134142134192_ (let () (declare (not safe)) - (##cdr _e134162134205_)))) + (##cdr _e134144134187_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134161134208_)) - (let ((_e134165134213_ + (gx#stx-pair? _hd134143134190_)) + (let ((_e134147134195_ (let () (declare (not safe)) (gx#stx-e - _hd134161134208_)))) - (let ((_hd134164134216_ + _hd134143134190_)))) + (let ((_hd134146134198_ (let () (declare (not safe)) - (##car _e134165134213_))) - (_tl134163134218_ + (##car _e134147134195_))) + (_tl134145134200_ (let () (declare (not safe)) - (##cdr _e134165134213_)))) + (##cdr _e134147134195_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl134163134218_)) + _tl134145134200_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl134160134210_)) - (let ((_e134168134221_ + _tl134142134192_)) + (let ((_e134150134203_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl134160134210_)))) - (let ((_hd134167134224_ - (let () (declare (not safe)) (##car _e134168134221_))) - (_tl134166134226_ - (let () (declare (not safe)) (##cdr _e134168134221_)))) + (gx#stx-e _tl134142134192_)))) + (let ((_hd134149134206_ + (let () (declare (not safe)) (##car _e134150134203_))) + (_tl134148134208_ + (let () (declare (not safe)) (##cdr _e134150134203_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl134166134226_)) + (gx#stx-null? _tl134148134208_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl134157134202_)) + (gx#stx-null? _tl134139134184_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl134154134194_)) - (let ((_e134171134229_ + (gx#stx-pair? _tl134136134176_)) + (let ((_e134153134211_ (let () (declare (not safe)) - (gx#stx-e _tl134154134194_)))) - (let ((_hd134170134232_ + (gx#stx-e _tl134136134176_)))) + (let ((_hd134152134214_ (let () (declare (not safe)) - (##car _e134171134229_))) - (_tl134169134234_ + (##car _e134153134211_))) + (_tl134151134216_ (let () (declare (not safe)) - (##cdr _e134171134229_)))) + (##cdr _e134153134211_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl134169134234_)) - ((lambda (_L134237_ _L134238_ _L134239_) - (let* ((_g134262134280_ - (lambda (_g134263134277_) + (gx#stx-null? _tl134151134216_)) + ((lambda (_L134219_ _L134220_ _L134221_) + (let* ((_g134244134262_ + (lambda (_g134245134259_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134263134277_)))) - (_g134261134331_ - (lambda (_g134263134283_) + _g134245134259_)))) + (_g134243134313_ + (lambda (_g134245134265_) (if (let () (declare (not safe)) (gx#stx-pair? - _g134263134283_)) - (let ((_e134269134285_ + _g134245134265_)) + (let ((_e134251134267_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g134263134283_)))) - (let ((_hd134268134288_ - (let () (declare (not safe)) (##car _e134269134285_))) - (_tl134267134290_ + (gx#stx-e _g134245134265_)))) + (let ((_hd134250134270_ + (let () (declare (not safe)) (##car _e134251134267_))) + (_tl134249134272_ (let () (declare (not safe)) - (##cdr _e134269134285_)))) + (##cdr _e134251134267_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl134267134290_)) - (let ((_e134272134293_ + (gx#stx-pair? _tl134249134272_)) + (let ((_e134254134275_ (let () (declare (not safe)) - (gx#stx-e _tl134267134290_)))) - (let ((_hd134271134296_ + (gx#stx-e _tl134249134272_)))) + (let ((_hd134253134278_ (let () (declare (not safe)) - (##car _e134272134293_))) - (_tl134270134298_ + (##car _e134254134275_))) + (_tl134252134280_ (let () (declare (not safe)) - (##cdr _e134272134293_)))) + (##cdr _e134254134275_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134271134296_)) - (let ((_e134275134301_ + (gx#stx-pair? _hd134253134278_)) + (let ((_e134257134283_ (let () (declare (not safe)) - (gx#stx-e _hd134271134296_)))) - (let ((_hd134274134304_ + (gx#stx-e _hd134253134278_)))) + (let ((_hd134256134286_ (let () (declare (not safe)) - (##car _e134275134301_))) - (_tl134273134306_ + (##car _e134257134283_))) + (_tl134255134288_ (let () (declare (not safe)) - (##cdr _e134275134301_)))) - ((lambda (_L134309_ _L134310_ _L134311_) + (##cdr _e134257134283_)))) + ((lambda (_L134291_ _L134292_ _L134293_) (for-each - (lambda (_g134326134328_) + (lambda (_g134308134310_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g134326134328_ + _g134308134310_ 'receiver: - _L134311_ + _L134293_ 'methods: - _method-calls133302_ + _method-calls133284_ 'slots: - _slot-refs133303_))) - _L134309_)) - _tl134270134298_ - _tl134273134306_ - _hd134274134304_))) + _slot-refs133285_))) + _L134291_)) + _tl134252134280_ + _tl134255134288_ + _hd134256134286_))) (let () (declare (not safe)) - (_g134262134280_ _g134263134283_))))) + (_g134244134262_ _g134245134265_))))) (let () (declare (not safe)) - (_g134262134280_ _g134263134283_))))) + (_g134244134262_ _g134245134265_))))) (let () (declare (not safe)) - (_g134262134280_ _g134263134283_)))))) + (_g134244134262_ _g134245134265_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g134261134331_ _L134238_)) - (let* ((_g134334134353_ - (lambda (_g134335134350_) + (_g134243134313_ _L134220_)) + (let* ((_g134316134335_ + (lambda (_g134317134332_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134335134350_)))) - (_g134333134472_ - (lambda (_g134335134356_) + _g134317134332_)))) + (_g134315134454_ + (lambda (_g134317134338_) (if (let () (declare (not safe)) (gx#stx-pair? - _g134335134356_)) - (let ((_e134339134358_ + _g134317134338_)) + (let ((_e134321134340_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g134335134356_)))) - (let ((_hd134338134361_ - (let () (declare (not safe)) (##car _e134339134358_))) - (_tl134337134363_ + (gx#stx-e _g134317134338_)))) + (let ((_hd134320134343_ + (let () (declare (not safe)) (##car _e134321134340_))) + (_tl134319134345_ (let () (declare (not safe)) - (##cdr _e134339134358_)))) + (##cdr _e134321134340_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl134337134363_)) - (let ((_g137439_ + (gx#stx-pair/null? _tl134319134345_)) + (let ((_g137421_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl134337134363_ + _tl134319134345_ '0)))) (begin - (let ((_g137440_ + (let ((_g137422_ (let () (declare (not safe)) - (if (##values? _g137439_) - (##vector-length _g137439_) + (if (##values? _g137421_) + (##vector-length _g137421_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137440_ 2))) + (##fx= _g137422_ 2))) (error "Context expects 2 values" - _g137440_))) - (let ((_target134340134366_ + _g137422_))) + (let ((_target134322134348_ (let () (declare (not safe)) - (##vector-ref _g137439_ 0))) - (_tl134342134368_ + (##vector-ref _g137421_ 0))) + (_tl134324134350_ (let () (declare (not safe)) - (##vector-ref _g137439_ 1)))) + (##vector-ref _g137421_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl134342134368_)) - (letrec ((_loop134343134371_ - (lambda (_hd134341134374_ - _clause134347134376_) + (gx#stx-null? _tl134324134350_)) + (letrec ((_loop134325134353_ + (lambda (_hd134323134356_ + _clause134329134358_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd134341134374_)) - (let ((_e134344134379_ + _hd134323134356_)) + (let ((_e134326134361_ (let () (declare (not safe)) (gx#stx-e - _hd134341134374_)))) - (let ((_lp-hd134345134382_ + _hd134323134356_)))) + (let ((_lp-hd134327134364_ (let () (declare (not safe)) - (##car _e134344134379_))) - (_lp-tl134346134384_ + (##car _e134326134361_))) + (_lp-tl134328134366_ (let () (declare (not safe)) - (##cdr _e134344134379_)))) - (let ((__tmp137442 + (##cdr _e134326134361_)))) + (let ((__tmp137424 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd134345134382_ _clause134347134376_)))) + (cons _lp-hd134327134364_ _clause134329134358_)))) (declare (not safe)) - (_loop134343134371_ _lp-tl134346134384_ __tmp137442)))) + (_loop134325134353_ _lp-tl134328134366_ __tmp137424)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_clause134348134387_ - (reverse _clause134347134376_))) - ((lambda (_L134390_) + (let ((_clause134330134369_ + (reverse _clause134329134358_))) + ((lambda (_L134372_) (for-each - (lambda (_clause134403_) - (let* ((_g134405134420_ + (lambda (_clause134385_) + (let* ((_g134387134402_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g134406134417_) + (lambda (_g134388134399_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134406134417_)))) - (_g134404134462_ - (lambda (_g134406134423_) + _g134388134399_)))) + (_g134386134444_ + (lambda (_g134388134405_) (if (let () (declare (not safe)) - (gx#stx-pair? _g134406134423_)) - (let ((_e134412134425_ + (gx#stx-pair? _g134388134405_)) + (let ((_e134394134407_ (let () (declare (not safe)) - (gx#stx-e _g134406134423_)))) - (let ((_hd134411134428_ + (gx#stx-e _g134388134405_)))) + (let ((_hd134393134410_ (let () (declare (not safe)) - (##car _e134412134425_))) - (_tl134410134430_ + (##car _e134394134407_))) + (_tl134392134412_ (let () (declare (not safe)) - (##cdr _e134412134425_)))) + (##cdr _e134394134407_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134411134428_)) - (let ((_e134415134433_ + (gx#stx-pair? _hd134393134410_)) + (let ((_e134397134415_ (let () (declare (not safe)) - (gx#stx-e _hd134411134428_)))) - (let ((_hd134414134436_ + (gx#stx-e _hd134393134410_)))) + (let ((_hd134396134418_ (let () (declare (not safe)) - (##car _e134415134433_))) - (_tl134413134438_ + (##car _e134397134415_))) + (_tl134395134420_ (let () (declare (not safe)) - (##cdr _e134415134433_)))) - ((lambda (_L134441_ - _L134442_ - _L134443_) + (##cdr _e134397134415_)))) + ((lambda (_L134423_ + _L134424_ + _L134425_) (for-each - (lambda (_g134457134459_) + (lambda (_g134439134441_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g134457134459_ + _g134439134441_ 'receiver: - _L134443_ + _L134425_ 'methods: - _method-calls133302_ + _method-calls133284_ 'slots: - _slot-refs133303_))) - _L134441_)) - _tl134410134430_ - _tl134413134438_ - _hd134414134436_))) + _slot-refs133285_))) + _L134423_)) + _tl134392134412_ + _tl134395134420_ + _hd134396134418_))) (let () (declare (not safe)) - (_g134405134420_ _g134406134423_))))) + (_g134387134402_ _g134388134405_))))) (let () (declare (not safe)) - (_g134405134420_ _g134406134423_)))))) + (_g134387134402_ _g134388134405_)))))) (declare (not safe)) - (_g134404134462_ _clause134403_))) - (let ((__tmp137441 - (lambda (_g134464134467_ _g134465134469_) + (_g134386134444_ _clause134385_))) + (let ((__tmp137423 + (lambda (_g134446134449_ _g134447134451_) (let () (declare (not safe)) - (cons _g134464134467_ _g134465134469_))))) + (cons _g134446134449_ _g134447134451_))))) (declare (not safe)) - (foldr1 __tmp137441 '() _L134390_)))) + (foldr1 __tmp137423 '() _L134372_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _clause134348134387_)))))) + _clause134330134369_)))))) (let () (declare (not safe)) - (_loop134343134371_ - _target134340134366_ + (_loop134325134353_ + _target134322134348_ '()))) (let () (declare (not safe)) - (_g134334134353_ _g134335134356_)))))) + (_g134316134335_ _g134317134338_)))))) (let () (declare (not safe)) - (_g134334134353_ _g134335134356_))))) + (_g134316134335_ _g134317134338_))))) (let () (declare (not safe)) - (_g134334134353_ _g134335134356_)))))) + (_g134316134335_ _g134317134338_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g134333134472_ _L134237_)) + (_g134315134454_ _L134219_)) (if (let () (declare (not safe)) - (_no-specializer?133306_)) - _stx133210_ - (let* ((_specializer-id134481_ - (let* ((_id134475_ - (let ((__tmp137443 + (_no-specializer?133288_)) + _stx133192_ + (let* ((_specializer-id134463_ + (let* ((_id134457_ + (let ((__tmp137425 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _L133283_)))) + (gx#stx-e _L133265_)))) (declare (not safe)) - (make-symbol__1 __tmp137443 '"::specialize"))) - (_specializer-id134478_ - (let ((__tmp137444 + (make-symbol__1 __tmp137425 '"::specialize"))) + (_specializer-id134460_ + (let ((__tmp137426 (let () (declare (not safe)) - (gx#stx-source _stx133210_)))) + (gx#stx-source _stx133192_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id134475_ __tmp137444)))) + (gx#core-quote-syntax__1 _id134457_ __tmp137426)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id134478_)) - _specializer-id134478_)) + (gx#core-bind-runtime!__0 _specializer-id134460_)) + _specializer-id134460_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$klass134483_ - (let ((__tmp137445 + (_$klass134465_ + (let ((__tmp137427 (gensym '__klass))) (declare (not safe)) (make-symbol__0 - __tmp137445))) - (_$method-table134485_ - (let ((__tmp137446 + __tmp137427))) + (_$method-table134467_ + (let ((__tmp137428 (gensym '__method-table))) (declare (not safe)) (make-symbol__0 - __tmp137446))) - (_methods134487_ + __tmp137428))) + (_methods134469_ (let () (declare (not safe)) (hash-keys - _method-calls133302_))) - (_$methods134491_ - (map (lambda (_id134489_) - (let ((__tmp137447 + _method-calls133284_))) + (_$methods134473_ + (map (lambda (_id134471_) + (let ((__tmp137429 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id134489_))) + (gensym _id134471_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137447))) - _methods134487_)) + (make-symbol__1 '"__" __tmp137429))) + _methods134469_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g137448_ + (_g137430_ (for-each - (lambda (_g134492134495_ - _g134493134497_) + (lambda (_g134474134477_ + _g134475134479_) (let () (declare (not safe)) (hash-put! - _method-calls133302_ - _g134492134495_ - _g134493134497_))) - _methods134487_ - _$methods134491_)) - (_methods-bind134508_ - (map (lambda (_g134500134503_ + _method-calls133284_ + _g134474134477_ + _g134475134479_))) + _methods134469_ + _$methods134473_)) + (_methods-bind134490_ + (map (lambda (_g134482134485_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g134501134505_) + _g134483134487_) (let () (declare (not safe)) - (_generate-method-bind133212_ - _$klass134483_ - _$method-table134485_ - _g134500134503_ - _g134501134505_))) - _methods134487_ - _$methods134491_)) + (_generate-method-bind133194_ + _$klass134465_ + _$method-table134467_ + _g134482134485_ + _g134483134487_))) + _methods134469_ + _$methods134473_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots134510_ + (_slots134492_ (let () (declare (not safe)) (hash-keys - _slot-refs133303_))) - (_$slots134514_ - (map (lambda (_id134512_) - (let ((__tmp137449 + _slot-refs133285_))) + (_$slots134496_ + (map (lambda (_id134494_) + (let ((__tmp137431 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id134512_))) + (gensym _id134494_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137449))) - _slots134510_)) + (make-symbol__1 '"__" __tmp137431))) + _slots134492_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g137450_ + (_g137432_ (for-each - (lambda (_g134515134518_ - _g134516134520_) + (lambda (_g134497134500_ + _g134498134502_) (let () (declare (not safe)) (hash-put! - _slot-refs133303_ - _g134515134518_ - _g134516134520_))) - _slots134510_ - _$slots134514_)) - (_slots-bind134531_ - (map (lambda (_g134523134526_ + _slot-refs133285_ + _g134497134500_ + _g134498134502_))) + _slots134492_ + _$slots134496_)) + (_slots-bind134513_ + (map (lambda (_g134505134508_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g134524134528_) + _g134506134510_) (let () (declare (not safe)) - (_generate-slot-bind133213_ - _$klass134483_ - _g134523134526_ - _g134524134528_))) - _slots134510_ - _$slots134514_)) + (_generate-slot-bind133195_ + _$klass134465_ + _g134505134508_ + _g134506134510_))) + _slots134492_ + _$slots134496_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-lambda-expr134617_ - (let* ((_g134533134551_ - (lambda (_g134534134548_) + (_specializer-lambda-expr134599_ + (let* ((_g134515134533_ + (lambda (_g134516134530_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134534134548_)))) - (_g134532134614_ - (lambda (_g134534134554_) + _g134516134530_)))) + (_g134514134596_ + (lambda (_g134516134536_) (if (let () (declare (not safe)) - (gx#stx-pair? _g134534134554_)) - (let ((_e134540134556_ + (gx#stx-pair? _g134516134536_)) + (let ((_e134522134538_ (let () (declare (not safe)) - (gx#stx-e _g134534134554_)))) - (let ((_hd134539134559_ + (gx#stx-e _g134516134536_)))) + (let ((_hd134521134541_ (let () (declare (not safe)) - (##car _e134540134556_))) - (_tl134538134561_ + (##car _e134522134538_))) + (_tl134520134543_ (let () (declare (not safe)) - (##cdr _e134540134556_)))) + (##cdr _e134522134538_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl134538134561_)) - (let ((_e134543134564_ + (gx#stx-pair? _tl134520134543_)) + (let ((_e134525134546_ (let () (declare (not safe)) - (gx#stx-e _tl134538134561_)))) - (let ((_hd134542134567_ + (gx#stx-e _tl134520134543_)))) + (let ((_hd134524134549_ (let () (declare (not safe)) - (##car _e134543134564_))) - (_tl134541134569_ + (##car _e134525134546_))) + (_tl134523134551_ (let () (declare (not safe)) - (##cdr _e134543134564_)))) + (##cdr _e134525134546_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134542134567_)) - (let ((_e134546134572_ + (gx#stx-pair? _hd134524134549_)) + (let ((_e134528134554_ (let () (declare (not safe)) (gx#stx-e - _hd134542134567_)))) - (let ((_hd134545134575_ + _hd134524134549_)))) + (let ((_hd134527134557_ (let () (declare (not safe)) - (##car _e134546134572_))) - (_tl134544134577_ + (##car _e134528134554_))) + (_tl134526134559_ (let () (declare (not safe)) - (##cdr _e134546134572_)))) - ((lambda (_L134580_ - _L134581_ - _L134582_) - (let* ((_body134612_ - (map (lambda (_g134607134609_) + (##cdr _e134528134554_)))) + ((lambda (_L134562_ + _L134563_ + _L134564_) + (let* ((_body134594_ + (map (lambda (_g134589134591_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g134607134609_ + _g134589134591_ 'receiver: - _L134582_ + _L134564_ 'klass: - _$klass134483_ + _$klass134465_ 'methods: - _method-calls133302_ + _method-calls133284_ 'slots: - _slot-refs133303_))) - _L134580_)) - (__tmp137451 - (let ((__tmp137452 - (let ((__tmp137453 + _slot-refs133285_))) + _L134562_)) + (__tmp137433 + (let ((__tmp137434 + (let ((__tmp137435 (let () (declare (not safe)) - (cons _L134582_ _L134581_)))) + (cons _L134564_ _L134563_)))) (declare (not safe)) - (cons __tmp137453 _body134612_)))) + (cons __tmp137435 _body134594_)))) (declare (not safe)) - (cons '%#lambda __tmp137452)))) + (cons '%#lambda __tmp137434)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp137451 - _L134238_))) - _tl134541134569_ - _tl134544134577_ - _hd134545134575_))) + __tmp137433 + _L134220_))) + _tl134523134551_ + _tl134526134559_ + _hd134527134557_))) (let () (declare (not safe)) - (_g134533134551_ - _g134534134554_))))) + (_g134515134533_ + _g134516134536_))))) (let () (declare (not safe)) - (_g134533134551_ _g134534134554_))))) + (_g134515134533_ _g134516134536_))))) (let () (declare (not safe)) - (_g134533134551_ _g134534134554_)))))) + (_g134515134533_ _g134516134536_)))))) (declare (not safe)) - (_g134532134614_ _L134238_))) + (_g134514134596_ _L134220_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-case-lambda-expr134774_ - (let* ((_g134619134638_ - (lambda (_g134620134635_) + (_specializer-case-lambda-expr134756_ + (let* ((_g134601134620_ + (lambda (_g134602134617_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134620134635_)))) - (_g134618134771_ - (lambda (_g134620134641_) + _g134602134617_)))) + (_g134600134753_ + (lambda (_g134602134623_) (if (let () (declare (not safe)) - (gx#stx-pair? _g134620134641_)) - (let ((_e134624134643_ + (gx#stx-pair? _g134602134623_)) + (let ((_e134606134625_ (let () (declare (not safe)) - (gx#stx-e _g134620134641_)))) - (let ((_hd134623134646_ + (gx#stx-e _g134602134623_)))) + (let ((_hd134605134628_ (let () (declare (not safe)) - (##car _e134624134643_))) - (_tl134622134648_ + (##car _e134606134625_))) + (_tl134604134630_ (let () (declare (not safe)) - (##cdr _e134624134643_)))) + (##cdr _e134606134625_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl134622134648_)) - (let ((_g137454_ + (gx#stx-pair/null? _tl134604134630_)) + (let ((_g137436_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl134622134648_ + _tl134604134630_ '0)))) (begin - (let ((_g137455_ + (let ((_g137437_ (let () (declare (not safe)) - (if (##values? _g137454_) + (if (##values? _g137436_) (##vector-length - _g137454_) + _g137436_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137455_ 2))) + (##fx= _g137437_ 2))) (error "Context expects 2 values" - _g137455_))) - (let ((_target134625134651_ + _g137437_))) + (let ((_target134607134633_ (let () (declare (not safe)) - (##vector-ref _g137454_ 0))) - (_tl134627134653_ + (##vector-ref _g137436_ 0))) + (_tl134609134635_ (let () (declare (not safe)) - (##vector-ref _g137454_ 1)))) + (##vector-ref _g137436_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl134627134653_)) - (letrec ((_loop134628134656_ - (lambda (_hd134626134659_ + _tl134609134635_)) + (letrec ((_loop134610134638_ + (lambda (_hd134608134641_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause134632134661_) + _clause134614134643_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134626134659_)) - (let ((_e134629134664_ + (gx#stx-pair? _hd134608134641_)) + (let ((_e134611134646_ (let () (declare (not safe)) - (gx#stx-e _hd134626134659_)))) - (let ((_lp-hd134630134667_ + (gx#stx-e _hd134608134641_)))) + (let ((_lp-hd134612134649_ (let () (declare (not safe)) - (##car _e134629134664_))) - (_lp-tl134631134669_ + (##car _e134611134646_))) + (_lp-tl134613134651_ (let () (declare (not safe)) - (##cdr _e134629134664_)))) - (let ((__tmp137459 + (##cdr _e134611134646_)))) + (let ((__tmp137441 (let () (declare (not safe)) - (cons _lp-hd134630134667_ - _clause134632134661_)))) + (cons _lp-hd134612134649_ + _clause134614134643_)))) (declare (not safe)) - (_loop134628134656_ - _lp-tl134631134669_ - __tmp137459)))) - (let ((_clause134633134672_ - (reverse _clause134632134661_))) - ((lambda (_L134675_) - (let* ((_clauses134769_ - (map (lambda (_clause134689_) - (let* ((___stx136168136169_ - _clause134689_) - (_g134692134707_ + (_loop134610134638_ + _lp-tl134613134651_ + __tmp137441)))) + (let ((_clause134615134654_ + (reverse _clause134614134643_))) + ((lambda (_L134657_) + (let* ((_clauses134751_ + (map (lambda (_clause134671_) + (let* ((___stx136150136151_ + _clause134671_) + (_g134674134689_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136168136169_))))) - (let ((___kont136170136171_ - (lambda (_L134735_ - _L134736_ - _L134737_) - (let* ((_body134757_ - (map (lambda (_g134752134754_) + ___stx136150136151_))))) + (let ((___kont136152136153_ + (lambda (_L134717_ + _L134718_ + _L134719_) + (let* ((_body134739_ + (map (lambda (_g134734134736_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g134752134754_ + _g134734134736_ 'receiver: - _L134737_ + _L134719_ 'klass: - _$klass134483_ + _$klass134465_ 'methods: - _method-calls133302_ + _method-calls133284_ 'slots: - _slot-refs133303_))) - _L134735_)) - (__tmp137456 - (let () (declare (not safe)) (cons _L134737_ _L134736_)))) + _slot-refs133285_))) + _L134717_)) + (__tmp137438 + (let () (declare (not safe)) (cons _L134719_ _L134718_)))) (declare (not safe)) - (cons __tmp137456 _body134757_)))) + (cons __tmp137438 _body134739_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136172136173_ - (lambda () _clause134689_))) + (___kont136154136155_ + (lambda () _clause134671_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx136168136169_)) - (let ((_e134699134719_ + ___stx136150136151_)) + (let ((_e134681134701_ (let () (declare (not safe)) (gx#stx-e - ___stx136168136169_)))) - (let ((_tl134697134724_ + ___stx136150136151_)))) + (let ((_tl134679134706_ (let () (declare (not safe)) - (##cdr _e134699134719_))) - (_hd134698134722_ + (##cdr _e134681134701_))) + (_hd134680134704_ (let () (declare (not safe)) - (##car _e134699134719_)))) + (##car _e134681134701_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd134698134722_)) - (let ((_e134702134727_ + _hd134680134704_)) + (let ((_e134684134709_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd134698134722_)))) - (let ((_tl134700134732_ + (gx#stx-e _hd134680134704_)))) + (let ((_tl134682134714_ (let () (declare (not safe)) - (##cdr _e134702134727_))) - (_hd134701134730_ + (##cdr _e134684134709_))) + (_hd134683134712_ (let () (declare (not safe)) - (##car _e134702134727_)))) - (___kont136170136171_ - _tl134697134724_ - _tl134700134732_ - _hd134701134730_))) - (___kont136172136173_)))) + (##car _e134684134709_)))) + (___kont136152136153_ + _tl134679134706_ + _tl134682134714_ + _hd134683134712_))) + (___kont136154136155_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136172136173_))))) - (let ((__tmp137457 - (lambda (_g134761134764_ - _g134762134766_) + (___kont136154136155_))))) + (let ((__tmp137439 + (lambda (_g134743134746_ + _g134744134748_) (let () (declare (not safe)) - (cons _g134761134764_ - _g134762134766_))))) + (cons _g134743134746_ + _g134744134748_))))) (declare (not safe)) - (foldr1 __tmp137457 '() _L134675_)))) - (__tmp137458 + (foldr1 __tmp137439 '() _L134657_)))) + (__tmp137440 (let () (declare (not safe)) - (cons '%#case-lambda _clauses134769_)))) + (cons '%#case-lambda _clauses134751_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137458 _L134237_))) - _clause134633134672_)))))) + (gxc#xform-wrap-source __tmp137440 _L134219_))) + _clause134615134654_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop134628134656_ - _target134625134651_ + (_loop134610134638_ + _target134607134633_ '()))) (let () (declare (not safe)) - (_g134619134638_ - _g134620134641_)))))) + (_g134601134620_ + _g134602134623_)))))) (let () (declare (not safe)) - (_g134619134638_ _g134620134641_))))) + (_g134601134620_ _g134602134623_))))) (let () (declare (not safe)) - (_g134619134638_ _g134620134641_)))))) + (_g134601134620_ _g134602134623_)))))) (declare (not safe)) - (_g134618134771_ _L134237_))) + (_g134600134753_ _L134219_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl134776_ - (let ((__tmp137460 - (let ((__tmp137461 + (_specializer-impl134758_ + (let ((__tmp137442 + (let ((__tmp137443 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137463 - (let ((__tmp137464 - (let ((__tmp137466 + (let ((__tmp137445 + (let ((__tmp137446 + (let ((__tmp137448 (let () (declare (not safe)) - (cons _L134239_ '()))) - (__tmp137465 + (cons _L134221_ '()))) + (__tmp137447 (let () (declare (not safe)) - (cons _specializer-lambda-expr134617_ + (cons _specializer-lambda-expr134599_ '())))) (declare (not safe)) - (cons __tmp137466 __tmp137465)))) + (cons __tmp137448 __tmp137447)))) (declare (not safe)) - (cons __tmp137464 '()))) - (__tmp137462 + (cons __tmp137446 '()))) + (__tmp137444 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr134774_ + (cons _specializer-case-lambda-expr134756_ '())))) (declare (not safe)) - (cons __tmp137463 __tmp137462)))) + (cons __tmp137445 __tmp137444)))) (declare (not safe)) - (cons '%#let-values __tmp137461)))) + (cons '%#let-values __tmp137443)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137460 _stx133210_))) + (gxc#xform-wrap-source __tmp137442 _stx133192_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl134778_ + (_specializer-impl134760_ (let () (declare (not safe)) - (_generate-specializer-impl133214_ - _$klass134483_ - _$method-table134485_ - _methods-bind134508_ - _slots-bind134531_ - _specializer-impl134776_)))) - (let ((__tmp137468 + (_generate-specializer-impl133196_ + _$klass134465_ + _$method-table134467_ + _methods-bind134490_ + _slots-bind134513_ + _specializer-impl134758_)))) + (let ((__tmp137450 (let () (declare (not safe)) - (gx#stx-e _L133283_))) - (__tmp137467 + (gx#stx-e _L133265_))) + (__tmp137449 (let () (declare (not safe)) (gx#stx-e - _specializer-id134481_)))) + _specializer-id134463_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp137468 + __tmp137450 '" => " - __tmp137467)) + __tmp137449)) (let () (declare (not safe)) - (_generate-specializer-def133215_ - _L133283_ - _specializer-id134481_ - _specializer-impl134778_))))) - _hd134170134232_ - _hd134167134224_ - _hd134164134216_) + (_generate-specializer-def133197_ + _L133265_ + _specializer-id134463_ + _specializer-impl134760_))))) + _hd134152134214_ + _hd134149134206_ + _hd134146134198_) (let () (declare (not safe)) - (_g134146134176_ _g134147134179_))))) + (_g134128134158_ _g134129134161_))))) (let () (declare (not safe)) - (_g134146134176_ _g134147134179_))) + (_g134128134158_ _g134129134161_))) (let () (declare (not safe)) - (_g134146134176_ _g134147134179_))) + (_g134128134158_ _g134129134161_))) (let () (declare (not safe)) - (_g134146134176_ _g134147134179_))))) - (let () (declare (not safe)) (_g134146134176_ _g134147134179_))) + (_g134128134158_ _g134129134161_))))) + (let () (declare (not safe)) (_g134128134158_ _g134129134161_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134146134176_ - _g134147134179_))))) + (_g134128134158_ + _g134129134161_))))) (let () (declare (not safe)) - (_g134146134176_ - _g134147134179_))))) + (_g134128134158_ + _g134129134161_))))) (let () (declare (not safe)) - (_g134146134176_ _g134147134179_))))) + (_g134128134158_ _g134129134161_))))) (let () (declare (not safe)) - (_g134146134176_ _g134147134179_))))) + (_g134128134158_ _g134129134161_))))) (let () (declare (not safe)) - (_g134146134176_ _g134147134179_))))) + (_g134128134158_ _g134129134161_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134146134176_ - _g134147134179_)))))) + (_g134128134158_ + _g134129134161_)))))) (declare (not safe)) - (_g134145134781_ _L133282_)) + (_g134127134763_ _L133264_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L133282_)) - (let* ((_g134784134837_ - (lambda (_g134785134834_) + (gxc#kw-lambda-expr? _L133264_)) + (let* ((_g134766134819_ + (lambda (_g134767134816_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134785134834_)))) - (_g134783135968_ - (lambda (_g134785134840_) + _g134767134816_)))) + (_g134765135950_ + (lambda (_g134767134822_) (if (let () (declare (not safe)) (gx#stx-pair? - _g134785134840_)) - (let ((_e134793134842_ + _g134767134822_)) + (let ((_e134775134824_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g134785134840_)))) - (let ((_hd134792134845_ - (let () (declare (not safe)) (##car _e134793134842_))) - (_tl134791134847_ - (let () (declare (not safe)) (##cdr _e134793134842_)))) + (gx#stx-e _g134767134822_)))) + (let ((_hd134774134827_ + (let () (declare (not safe)) (##car _e134775134824_))) + (_tl134773134829_ + (let () (declare (not safe)) (##cdr _e134775134824_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd134792134845_)) + (gx#identifier? _hd134774134827_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd134792134845_)) + (gx#stx-eq? '%#let-values _hd134774134827_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl134791134847_)) - (let ((_e134796134850_ + (gx#stx-pair? _tl134773134829_)) + (let ((_e134778134832_ (let () (declare (not safe)) - (gx#stx-e _tl134791134847_)))) - (let ((_hd134795134853_ + (gx#stx-e _tl134773134829_)))) + (let ((_hd134777134835_ (let () (declare (not safe)) - (##car _e134796134850_))) - (_tl134794134855_ + (##car _e134778134832_))) + (_tl134776134837_ (let () (declare (not safe)) - (##cdr _e134796134850_)))) + (##cdr _e134778134832_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134795134853_)) - (let ((_e134799134858_ + (gx#stx-pair? _hd134777134835_)) + (let ((_e134781134840_ (let () (declare (not safe)) - (gx#stx-e _hd134795134853_)))) - (let ((_hd134798134861_ + (gx#stx-e _hd134777134835_)))) + (let ((_hd134780134843_ (let () (declare (not safe)) - (##car _e134799134858_))) - (_tl134797134863_ + (##car _e134781134840_))) + (_tl134779134845_ (let () (declare (not safe)) - (##cdr _e134799134858_)))) + (##cdr _e134781134840_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd134798134861_)) - (let ((_e134802134866_ + _hd134780134843_)) + (let ((_e134784134848_ (let () (declare (not safe)) (gx#stx-e - _hd134798134861_)))) - (let ((_hd134801134869_ + _hd134780134843_)))) + (let ((_hd134783134851_ (let () (declare (not safe)) - (##car _e134802134866_))) - (_tl134800134871_ + (##car _e134784134848_))) + (_tl134782134853_ (let () (declare (not safe)) - (##cdr _e134802134866_)))) + (##cdr _e134784134848_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd134801134869_)) - (let ((_e134805134874_ + _hd134783134851_)) + (let ((_e134787134856_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd134801134869_)))) - (let ((_hd134804134877_ - (let () (declare (not safe)) (##car _e134805134874_))) - (_tl134803134879_ - (let () (declare (not safe)) (##cdr _e134805134874_)))) + (gx#stx-e _hd134783134851_)))) + (let ((_hd134786134859_ + (let () (declare (not safe)) (##car _e134787134856_))) + (_tl134785134861_ + (let () (declare (not safe)) (##cdr _e134787134856_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl134803134879_)) + (gx#stx-null? _tl134785134861_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl134800134871_)) - (let ((_e134808134882_ + (gx#stx-pair? _tl134782134853_)) + (let ((_e134790134864_ (let () (declare (not safe)) - (gx#stx-e _tl134800134871_)))) - (let ((_hd134807134885_ + (gx#stx-e _tl134782134853_)))) + (let ((_hd134789134867_ (let () (declare (not safe)) - (##car _e134808134882_))) - (_tl134806134887_ + (##car _e134790134864_))) + (_tl134788134869_ (let () (declare (not safe)) - (##cdr _e134808134882_)))) + (##cdr _e134790134864_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134807134885_)) - (let ((_e134811134890_ + (gx#stx-pair? _hd134789134867_)) + (let ((_e134793134872_ (let () (declare (not safe)) - (gx#stx-e _hd134807134885_)))) - (let ((_hd134810134893_ + (gx#stx-e _hd134789134867_)))) + (let ((_hd134792134875_ (let () (declare (not safe)) - (##car _e134811134890_))) - (_tl134809134895_ + (##car _e134793134872_))) + (_tl134791134877_ (let () (declare (not safe)) - (##cdr _e134811134890_)))) + (##cdr _e134793134872_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd134810134893_)) + (gx#identifier? _hd134792134875_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd134810134893_)) + _hd134792134875_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl134809134895_)) - (let ((_e134814134898_ + _tl134791134877_)) + (let ((_e134796134880_ (let () (declare (not safe)) (gx#stx-e - _tl134809134895_)))) - (let ((_hd134813134901_ + _tl134791134877_)))) + (let ((_hd134795134883_ (let () (declare (not safe)) - (##car _e134814134898_))) - (_tl134812134903_ + (##car _e134796134880_))) + (_tl134794134885_ (let () (declare (not safe)) - (##cdr _e134814134898_)))) + (##cdr _e134796134880_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd134813134901_)) - (let ((_e134817134906_ + _hd134795134883_)) + (let ((_e134799134888_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd134813134901_)))) - (let ((_hd134816134909_ + (gx#stx-e _hd134795134883_)))) + (let ((_hd134798134891_ (let () (declare (not safe)) - (##car _e134817134906_))) - (_tl134815134911_ + (##car _e134799134888_))) + (_tl134797134893_ (let () (declare (not safe)) - (##cdr _e134817134906_)))) + (##cdr _e134799134888_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134816134909_)) - (let ((_e134820134914_ + (gx#stx-pair? _hd134798134891_)) + (let ((_e134802134896_ (let () (declare (not safe)) - (gx#stx-e _hd134816134909_)))) - (let ((_hd134819134917_ + (gx#stx-e _hd134798134891_)))) + (let ((_hd134801134899_ (let () (declare (not safe)) - (##car _e134820134914_))) - (_tl134818134919_ + (##car _e134802134896_))) + (_tl134800134901_ (let () (declare (not safe)) - (##cdr _e134820134914_)))) + (##cdr _e134802134896_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd134819134917_)) - (let ((_e134823134922_ + (gx#stx-pair? _hd134801134899_)) + (let ((_e134805134904_ (let () (declare (not safe)) - (gx#stx-e _hd134819134917_)))) - (let ((_hd134822134925_ + (gx#stx-e _hd134801134899_)))) + (let ((_hd134804134907_ (let () (declare (not safe)) - (##car _e134823134922_))) - (_tl134821134927_ + (##car _e134805134904_))) + (_tl134803134909_ (let () (declare (not safe)) - (##cdr _e134823134922_)))) + (##cdr _e134805134904_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl134821134927_)) + (gx#stx-null? _tl134803134909_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl134818134919_)) - (let ((_e134826134930_ + _tl134800134901_)) + (let ((_e134808134912_ (let () (declare (not safe)) (gx#stx-e - _tl134818134919_)))) - (let ((_hd134825134933_ + _tl134800134901_)))) + (let ((_hd134807134915_ (let () (declare (not safe)) - (##car _e134826134930_))) - (_tl134824134935_ + (##car _e134808134912_))) + (_tl134806134917_ (let () (declare (not safe)) - (##cdr _e134826134930_)))) + (##cdr _e134808134912_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl134824134935_)) + _tl134806134917_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl134815134911_)) + _tl134797134893_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl134812134903_)) - (let ((_e134829134938_ + (gx#stx-pair? _tl134794134885_)) + (let ((_e134811134920_ (let () (declare (not safe)) - (gx#stx-e _tl134812134903_)))) - (let ((_hd134828134941_ + (gx#stx-e _tl134794134885_)))) + (let ((_hd134810134923_ (let () (declare (not safe)) - (##car _e134829134938_))) - (_tl134827134943_ + (##car _e134811134920_))) + (_tl134809134925_ (let () (declare (not safe)) - (##cdr _e134829134938_)))) + (##cdr _e134811134920_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl134827134943_)) + (gx#stx-null? _tl134809134925_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl134806134887_)) + (gx#stx-null? _tl134788134869_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl134797134863_)) + (gx#stx-null? _tl134779134845_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl134794134855_)) - (let ((_e134832134946_ + (gx#stx-pair? _tl134776134837_)) + (let ((_e134814134928_ (let () (declare (not safe)) (gx#stx-e - _tl134794134855_)))) - (let ((_hd134831134949_ + _tl134776134837_)))) + (let ((_hd134813134931_ (let () (declare (not safe)) - (##car _e134832134946_))) - (_tl134830134951_ + (##car _e134814134928_))) + (_tl134812134933_ (let () (declare (not safe)) - (##cdr _e134832134946_)))) + (##cdr _e134814134928_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl134830134951_)) - ((lambda (_L134954_ - _L134955_ - _L134956_ - _L134957_ - _L134958_) - (let* ((_g134997135059_ - (lambda (_g134998135056_) + _tl134812134933_)) + ((lambda (_L134936_ + _L134937_ + _L134938_ + _L134939_ + _L134940_) + (let* ((_g134979135041_ + (lambda (_g134980135038_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g134998135056_)))) - (_g134996135965_ - (lambda (_g134998135062_) + _g134980135038_)))) + (_g134978135947_ + (lambda (_g134980135044_) (if (let () (declare (not safe)) - (gx#stx-pair? _g134998135062_)) - (let ((_e135006135064_ + (gx#stx-pair? _g134980135044_)) + (let ((_e134988135046_ (let () (declare (not safe)) - (gx#stx-e _g134998135062_)))) - (let ((_hd135005135067_ + (gx#stx-e _g134980135044_)))) + (let ((_hd134987135049_ (let () (declare (not safe)) - (##car _e135006135064_))) - (_tl135004135069_ + (##car _e134988135046_))) + (_tl134986135051_ (let () (declare (not safe)) - (##cdr _e135006135064_)))) + (##cdr _e134988135046_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd135005135067_)) + (gx#identifier? _hd134987135049_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd135005135067_)) + _hd134987135049_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135004135069_)) - (let ((_e135009135072_ + (gx#stx-pair? _tl134986135051_)) + (let ((_e134991135054_ (let () (declare (not safe)) (gx#stx-e - _tl135004135069_)))) - (let ((_hd135008135075_ + _tl134986135051_)))) + (let ((_hd134990135057_ (let () (declare (not safe)) - (##car _e135009135072_))) - (_tl135007135077_ + (##car _e134991135054_))) + (_tl134989135059_ (let () (declare (not safe)) - (##cdr _e135009135072_)))) + (##cdr _e134991135054_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135007135077_)) - (let ((_e135012135080_ + _tl134989135059_)) + (let ((_e134994135062_ (let () (declare (not safe)) (gx#stx-e - _tl135007135077_)))) - (let ((_hd135011135083_ + _tl134989135059_)))) + (let ((_hd134993135065_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e135012135080_))) - (_tl135010135085_ - (let () (declare (not safe)) (##cdr _e135012135080_)))) + (##car _e134994135062_))) + (_tl134992135067_ + (let () (declare (not safe)) (##cdr _e134994135062_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135011135083_)) - (let ((_e135015135088_ + (gx#stx-pair? _hd134993135065_)) + (let ((_e134997135070_ (let () (declare (not safe)) - (gx#stx-e _hd135011135083_)))) - (let ((_hd135014135091_ + (gx#stx-e _hd134993135065_)))) + (let ((_hd134996135073_ (let () (declare (not safe)) - (##car _e135015135088_))) - (_tl135013135093_ + (##car _e134997135070_))) + (_tl134995135075_ (let () (declare (not safe)) - (##cdr _e135015135088_)))) + (##cdr _e134997135070_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd135014135091_)) + (gx#identifier? _hd134996135073_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd135014135091_)) + (gx#stx-eq? '%#call _hd134996135073_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135013135093_)) - (let ((_e135018135096_ + (gx#stx-pair? _tl134995135075_)) + (let ((_e135000135078_ (let () (declare (not safe)) - (gx#stx-e _tl135013135093_)))) - (let ((_hd135017135099_ + (gx#stx-e _tl134995135075_)))) + (let ((_hd134999135081_ (let () (declare (not safe)) - (##car _e135018135096_))) - (_tl135016135101_ + (##car _e135000135078_))) + (_tl134998135083_ (let () (declare (not safe)) - (##cdr _e135018135096_)))) + (##cdr _e135000135078_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135017135099_)) - (let ((_e135021135104_ + (gx#stx-pair? _hd134999135081_)) + (let ((_e135003135086_ (let () (declare (not safe)) (gx#stx-e - _hd135017135099_)))) - (let ((_hd135020135107_ + _hd134999135081_)))) + (let ((_hd135002135089_ (let () (declare (not safe)) - (##car _e135021135104_))) - (_tl135019135109_ + (##car _e135003135086_))) + (_tl135001135091_ (let () (declare (not safe)) - (##cdr _e135021135104_)))) + (##cdr _e135003135086_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd135020135107_)) + _hd135002135089_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd135020135107_)) + _hd135002135089_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135019135109_)) - (let ((_e135024135112_ + _tl135001135091_)) + (let ((_e135006135094_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl135019135109_)))) - (let ((_hd135023135115_ + (gx#stx-e _tl135001135091_)))) + (let ((_hd135005135097_ (let () (declare (not safe)) - (##car _e135024135112_))) - (_tl135022135117_ + (##car _e135006135094_))) + (_tl135004135099_ (let () (declare (not safe)) - (##cdr _e135024135112_)))) + (##cdr _e135006135094_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135022135117_)) + (gx#stx-null? _tl135004135099_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135016135101_)) - (let ((_e135027135120_ + (gx#stx-pair? _tl134998135083_)) + (let ((_e135009135102_ (let () (declare (not safe)) - (gx#stx-e _tl135016135101_)))) - (let ((_hd135026135123_ + (gx#stx-e _tl134998135083_)))) + (let ((_hd135008135105_ (let () (declare (not safe)) - (##car _e135027135120_))) - (_tl135025135125_ + (##car _e135009135102_))) + (_tl135007135107_ (let () (declare (not safe)) - (##cdr _e135027135120_)))) + (##cdr _e135009135102_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135026135123_)) - (let ((_e135030135128_ + (gx#stx-pair? _hd135008135105_)) + (let ((_e135012135110_ (let () (declare (not safe)) - (gx#stx-e _hd135026135123_)))) - (let ((_hd135029135131_ + (gx#stx-e _hd135008135105_)))) + (let ((_hd135011135113_ (let () (declare (not safe)) - (##car _e135030135128_))) - (_tl135028135133_ + (##car _e135012135110_))) + (_tl135010135115_ (let () (declare (not safe)) - (##cdr _e135030135128_)))) + (##cdr _e135012135110_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd135029135131_)) + _hd135011135113_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd135029135131_)) + _hd135011135113_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135028135133_)) - (let ((_e135033135136_ + _tl135010135115_)) + (let ((_e135015135118_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl135028135133_)))) - (let ((_hd135032135139_ - (let () (declare (not safe)) (##car _e135033135136_))) - (_tl135031135141_ + (gx#stx-e _tl135010135115_)))) + (let ((_hd135014135121_ + (let () (declare (not safe)) (##car _e135015135118_))) + (_tl135013135123_ (let () (declare (not safe)) - (##cdr _e135033135136_)))) + (##cdr _e135015135118_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135031135141_)) + (gx#stx-null? _tl135013135123_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135025135125_)) - (let ((_e135036135144_ + (gx#stx-pair? _tl135007135107_)) + (let ((_e135018135126_ (let () (declare (not safe)) - (gx#stx-e _tl135025135125_)))) - (let ((_hd135035135147_ + (gx#stx-e _tl135007135107_)))) + (let ((_hd135017135129_ (let () (declare (not safe)) - (##car _e135036135144_))) - (_tl135034135149_ + (##car _e135018135126_))) + (_tl135016135131_ (let () (declare (not safe)) - (##cdr _e135036135144_)))) + (##cdr _e135018135126_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135035135147_)) - (let ((_e135039135152_ + (gx#stx-pair? _hd135017135129_)) + (let ((_e135021135134_ (let () (declare (not safe)) - (gx#stx-e _hd135035135147_)))) - (let ((_hd135038135155_ + (gx#stx-e _hd135017135129_)))) + (let ((_hd135020135137_ (let () (declare (not safe)) - (##car _e135039135152_))) - (_tl135037135157_ + (##car _e135021135134_))) + (_tl135019135139_ (let () (declare (not safe)) - (##cdr _e135039135152_)))) + (##cdr _e135021135134_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd135038135155_)) + _hd135020135137_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd135038135155_)) + _hd135020135137_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135037135157_)) - (let ((_e135042135160_ + _tl135019135139_)) + (let ((_e135024135142_ (let () (declare (not safe)) (gx#stx-e - _tl135037135157_)))) - (let ((_hd135041135163_ + _tl135019135139_)))) + (let ((_hd135023135145_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e135042135160_))) - (_tl135040135165_ - (let () (declare (not safe)) (##cdr _e135042135160_)))) + (##car _e135024135142_))) + (_tl135022135147_ + (let () (declare (not safe)) (##cdr _e135024135142_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135040135165_)) + (gx#stx-null? _tl135022135147_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl135034135149_)) + (gx#stx-pair/null? _tl135016135131_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl135034135149_)) + (gx#stx-length _tl135016135131_)) '1) - (let ((_g137365_ + (let ((_g137347_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl135034135149_ + _tl135016135131_ '1)))) (begin - (let ((_g137366_ + (let ((_g137348_ (let () (declare (not safe)) - (if (##values? _g137365_) - (##vector-length _g137365_) + (if (##values? _g137347_) + (##vector-length _g137347_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137366_ 2))) + (##fx= _g137348_ 2))) (error "Context expects 2 values" - _g137366_))) - (let ((_target135043135168_ + _g137348_))) + (let ((_target135025135150_ (let () (declare (not safe)) - (##vector-ref _g137365_ 0))) - (_tl135045135170_ + (##vector-ref _g137347_ 0))) + (_tl135027135152_ (let () (declare (not safe)) - (##vector-ref _g137365_ 1)))) + (##vector-ref _g137347_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135045135170_)) - (let ((_e135054135173_ + (gx#stx-pair? _tl135027135152_)) + (let ((_e135036135155_ (let () (declare (not safe)) - (gx#stx-e _tl135045135170_)))) - (let ((_hd135053135176_ + (gx#stx-e _tl135027135152_)))) + (let ((_hd135035135158_ (let () (declare (not safe)) - (##car _e135054135173_))) - (_tl135052135178_ + (##car _e135036135155_))) + (_tl135034135160_ (let () (declare (not safe)) - (##cdr _e135054135173_)))) + (##cdr _e135036135155_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl135052135178_)) - (letrec ((_loop135046135181_ - (lambda (_hd135044135184_ + _tl135034135160_)) + (letrec ((_loop135028135163_ + (lambda (_hd135026135166_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _kw-ref135050135186_) + _kw-ref135032135168_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135044135184_)) - (let ((_e135047135189_ + (gx#stx-pair? _hd135026135166_)) + (let ((_e135029135171_ (let () (declare (not safe)) - (gx#stx-e _hd135044135184_)))) - (let ((_lp-hd135048135192_ + (gx#stx-e _hd135026135166_)))) + (let ((_lp-hd135030135174_ (let () (declare (not safe)) - (##car _e135047135189_))) - (_lp-tl135049135194_ + (##car _e135029135171_))) + (_lp-tl135031135176_ (let () (declare (not safe)) - (##cdr _e135047135189_)))) - (let ((__tmp137438 + (##cdr _e135029135171_)))) + (let ((__tmp137420 (let () (declare (not safe)) - (cons _lp-hd135048135192_ - _kw-ref135050135186_)))) + (cons _lp-hd135030135174_ + _kw-ref135032135168_)))) (declare (not safe)) - (_loop135046135181_ - _lp-tl135049135194_ - __tmp137438)))) - (let ((_kw-ref135051135197_ - (reverse _kw-ref135050135186_))) + (_loop135028135163_ + _lp-tl135031135176_ + __tmp137420)))) + (let ((_kw-ref135033135179_ + (reverse _kw-ref135032135168_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135010135085_)) - ((lambda (_L135200_ - _L135201_ - _L135202_ - _L135203_ - _L135204_) - (let* ((_kw-count135255_ - (length (let ((__tmp137367 - (lambda (_g135247135250_ - _g135248135252_) + (gx#stx-null? _tl134992135067_)) + ((lambda (_L135182_ + _L135183_ + _L135184_ + _L135185_ + _L135186_) + (let* ((_kw-count135237_ + (length (let ((__tmp137349 + (lambda (_g135229135232_ + _g135230135234_) (let () (declare (not safe)) - (cons _g135247135250_ - _g135248135252_))))) + (cons _g135229135232_ + _g135230135234_))))) (declare (not safe)) - (foldr1 __tmp137367 + (foldr1 __tmp137349 '() - _L135201_)))) - (_self-index135257_ + _L135183_)))) + (_self-index135239_ (let () (declare (not safe)) - (fx+ _kw-count135255_ '1)))) + (fx+ _kw-count135237_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L134956_)) - (let* ((_g135260135274_ - (lambda (_g135261135271_) + (gxc#lambda-expr? _L134938_)) + (let* ((_g135242135256_ + (lambda (_g135243135253_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135261135271_)))) - (_g135259135387_ - (lambda (_g135261135277_) + _g135243135253_)))) + (_g135241135369_ + (lambda (_g135243135259_) (if (let () (declare (not safe)) (gx#stx-pair? - _g135261135277_)) - (let ((_e135266135279_ + _g135243135259_)) + (let ((_e135248135261_ (let () (declare (not safe)) (gx#stx-e - _g135261135277_)))) - (let ((_hd135265135282_ + _g135243135259_)))) + (let ((_hd135247135264_ (let () (declare (not safe)) - (##car _e135266135279_))) - (_tl135264135284_ + (##car _e135248135261_))) + (_tl135246135266_ (let () (declare (not safe)) - (##cdr _e135266135279_)))) + (##cdr _e135248135261_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135264135284_)) - (let ((_e135269135287_ + _tl135246135266_)) + (let ((_e135251135269_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl135264135284_)))) - (let ((_hd135268135290_ + (gx#stx-e _tl135246135266_)))) + (let ((_hd135250135272_ (let () (declare (not safe)) - (##car _e135269135287_))) - (_tl135267135292_ + (##car _e135251135269_))) + (_tl135249135274_ (let () (declare (not safe)) - (##cdr _e135269135287_)))) - ((lambda (_L135295_ _L135296_) - (let ((_self135312_ - (list-ref _L135296_ _self-index135257_))) + (##cdr _e135251135269_)))) + ((lambda (_L135277_ _L135278_) + (let ((_self135294_ + (list-ref _L135278_ _self-index135239_))) (for-each - (lambda (_g135313135315_) + (lambda (_g135295135297_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g135313135315_ + _g135295135297_ 'receiver: - _self135312_ + _self135294_ 'methods: - _method-calls133302_ + _method-calls133284_ 'slots: - _slot-refs133303_))) - _L135295_) + _slot-refs133285_))) + _L135277_) (if (let () (declare (not safe)) - (_no-specializer?133306_)) - _stx133210_ - (let* ((_specializer-id135324_ - (let* ((_id135318_ - (let ((__tmp137411 + (_no-specializer?133288_)) + _stx133192_ + (let* ((_specializer-id135306_ + (let* ((_id135300_ + (let ((__tmp137393 (let () (declare (not safe)) (gx#stx-e - _L133283_)))) + _L133265_)))) (declare (not safe)) (make-symbol__1 - __tmp137411 + __tmp137393 '"::specialize"))) - (_specializer-id135321_ - (let ((__tmp137412 + (_specializer-id135303_ + (let ((__tmp137394 (let () (declare (not safe)) (gx#stx-source - _stx133210_)))) + _stx133192_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id135318_ - __tmp137412)))) + _id135300_ + __tmp137394)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _specializer-id135321_)) - _specializer-id135321_)) - (_$klass135326_ - (let ((__tmp137413 (gensym '__klass))) + _specializer-id135303_)) + _specializer-id135303_)) + (_$klass135308_ + (let ((__tmp137395 (gensym '__klass))) (declare (not safe)) - (make-symbol__0 __tmp137413))) - (_$method-table135328_ - (let ((__tmp137414 + (make-symbol__0 __tmp137395))) + (_$method-table135310_ + (let ((__tmp137396 (gensym '__method-table))) (declare (not safe)) - (make-symbol__0 __tmp137414))) - (_methods135330_ + (make-symbol__0 __tmp137396))) + (_methods135312_ (let () (declare (not safe)) - (hash-keys _method-calls133302_))) - (_$methods135334_ - (map (lambda (_id135332_) - (let ((__tmp137415 - (gensym _id135332_))) + (hash-keys _method-calls133284_))) + (_$methods135316_ + (map (lambda (_id135314_) + (let ((__tmp137397 + (gensym _id135314_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp137415))) - _methods135330_)) - (_g137416_ + __tmp137397))) + _methods135312_)) + (_g137398_ (for-each - (lambda (_g135335135338_ - _g135336135340_) + (lambda (_g135317135320_ + _g135318135322_) (let () (declare (not safe)) (hash-put! - _method-calls133302_ - _g135335135338_ - _g135336135340_))) - _methods135330_ - _$methods135334_)) - (_methods-bind135351_ - (map (lambda (_g135343135346_ - _g135344135348_) + _method-calls133284_ + _g135317135320_ + _g135318135322_))) + _methods135312_ + _$methods135316_)) + (_methods-bind135333_ + (map (lambda (_g135325135328_ + _g135326135330_) (let () (declare (not safe)) - (_generate-method-bind133212_ - _$klass135326_ - _$method-table135328_ - _g135343135346_ - _g135344135348_))) - _methods135330_ - _$methods135334_)) - (_slots135353_ + (_generate-method-bind133194_ + _$klass135308_ + _$method-table135310_ + _g135325135328_ + _g135326135330_))) + _methods135312_ + _$methods135316_)) + (_slots135335_ (let () (declare (not safe)) - (hash-keys _slot-refs133303_))) - (_$slots135357_ - (map (lambda (_id135355_) - (let ((__tmp137417 - (gensym _id135355_))) + (hash-keys _slot-refs133285_))) + (_$slots135339_ + (map (lambda (_id135337_) + (let ((__tmp137399 + (gensym _id135337_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp137417))) - _slots135353_)) - (_g137418_ + __tmp137399))) + _slots135335_)) + (_g137400_ (for-each - (lambda (_g135358135361_ - _g135359135363_) + (lambda (_g135340135343_ + _g135341135345_) (let () (declare (not safe)) (hash-put! - _slot-refs133303_ - _g135358135361_ - _g135359135363_))) - _slots135353_ - _$slots135357_)) - (_slots-bind135374_ - (map (lambda (_g135366135369_ - _g135367135371_) + _slot-refs133285_ + _g135340135343_ + _g135341135345_))) + _slots135335_ + _$slots135339_)) + (_slots-bind135356_ + (map (lambda (_g135348135351_ + _g135349135353_) (let () (declare (not safe)) - (_generate-slot-bind133213_ - _$klass135326_ - _g135366135369_ - _g135367135371_))) - _slots135353_ - _$slots135357_)) - (_specializer-impl135382_ - (let* ((_specializer-body135380_ - (map (lambda (_g135375135377_) + (_generate-slot-bind133195_ + _$klass135308_ + _g135348135351_ + _g135349135353_))) + _slots135335_ + _$slots135339_)) + (_specializer-impl135364_ + (let* ((_specializer-body135362_ + (map (lambda (_g135357135359_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g135375135377_ + _g135357135359_ 'receiver: - _self135312_ + _self135294_ 'klass: - _$klass135326_ + _$klass135308_ 'methods: - _method-calls133302_ + _method-calls133284_ 'slots: - _slot-refs133303_))) - _L135295_)) - (__tmp137419 - (let ((__tmp137420 - (let ((__tmp137422 - (let ((__tmp137423 + _slot-refs133285_))) + _L135277_)) + (__tmp137401 + (let ((__tmp137402 + (let ((__tmp137404 + (let ((__tmp137405 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137435 + (let ((__tmp137417 (let () (declare (not safe)) - (cons _L134958_ '()))) - (__tmp137424 - (let ((__tmp137425 - (let ((__tmp137426 - (let ((__tmp137428 - (let ((__tmp137429 - (let ((__tmp137434 + (cons _L134940_ '()))) + (__tmp137406 + (let ((__tmp137407 + (let ((__tmp137408 + (let ((__tmp137410 + (let ((__tmp137411 + (let ((__tmp137416 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L134957_ '()))) - (__tmp137430 - (let ((__tmp137431 - (let ((__tmp137432 - (let ((__tmp137433 + (cons _L134939_ '()))) + (__tmp137412 + (let ((__tmp137413 + (let ((__tmp137414 + (let ((__tmp137415 (let () (declare (not safe)) - (cons _L135296_ - _specializer-body135380_)))) + (cons _L135278_ + _specializer-body135362_)))) (declare (not safe)) - (cons '%#lambda __tmp137433)))) + (cons '%#lambda __tmp137415)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp137432 - _L134956_)))) + __tmp137414 + _L134938_)))) (declare (not safe)) - (cons __tmp137431 '())))) + (cons __tmp137413 '())))) (declare (not safe)) - (cons __tmp137434 __tmp137430)))) + (cons __tmp137416 __tmp137412)))) (declare (not safe)) - (cons __tmp137429 '()))) - (__tmp137427 - (let () (declare (not safe)) (cons _L134955_ '())))) + (cons __tmp137411 '()))) + (__tmp137409 + (let () (declare (not safe)) (cons _L134937_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137428 - __tmp137427)))) + (cons __tmp137410 + __tmp137409)))) (declare (not safe)) (cons '%#let-values - __tmp137426)))) + __tmp137408)))) (declare (not safe)) - (cons __tmp137425 '())))) + (cons __tmp137407 '())))) (declare (not safe)) - (cons __tmp137435 __tmp137424)))) + (cons __tmp137417 __tmp137406)))) (declare (not safe)) - (cons __tmp137423 '()))) - (__tmp137421 - (let () (declare (not safe)) (cons _L134954_ '())))) + (cons __tmp137405 '()))) + (__tmp137403 + (let () (declare (not safe)) (cons _L134936_ '())))) (declare (not safe)) - (cons __tmp137422 __tmp137421)))) + (cons __tmp137404 __tmp137403)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp137420)))) + __tmp137402)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp137419 - _stx133210_))) - (_specializer-impl135384_ + __tmp137401 + _stx133192_))) + (_specializer-impl135366_ (let () (declare (not safe)) - (_generate-specializer-impl133214_ - _$klass135326_ - _$method-table135328_ - _methods-bind135351_ - _slots-bind135374_ - _specializer-impl135382_)))) - (let ((__tmp137437 + (_generate-specializer-impl133196_ + _$klass135308_ + _$method-table135310_ + _methods-bind135333_ + _slots-bind135356_ + _specializer-impl135364_)))) + (let ((__tmp137419 (let () (declare (not safe)) - (gx#stx-e _L133283_))) - (__tmp137436 + (gx#stx-e _L133265_))) + (__tmp137418 (let () (declare (not safe)) - (gx#stx-e _specializer-id135324_)))) + (gx#stx-e _specializer-id135306_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp137437 + __tmp137419 '" => " - __tmp137436)) + __tmp137418)) (let () (declare (not safe)) - (_generate-specializer-def133215_ - _L133283_ - _specializer-id135324_ - _specializer-impl135384_)))))) - _tl135267135292_ - _hd135268135290_))) + (_generate-specializer-def133197_ + _L133265_ + _specializer-id135306_ + _specializer-impl135366_)))))) + _tl135249135274_ + _hd135250135272_))) (let () (declare (not safe)) - (_g135260135274_ _g135261135277_))))) + (_g135242135256_ _g135243135259_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g135260135274_ - _g135261135277_)))))) + (_g135242135256_ + _g135243135259_)))))) (declare (not safe)) - (_g135259135387_ _L134956_)) + (_g135241135369_ _L134938_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L134956_)) - (let* ((_g135390135420_ - (lambda (_g135391135417_) + (gxc#opt-lambda-expr? _L134938_)) + (let* ((_g135372135402_ + (lambda (_g135373135399_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135391135417_)))) - (_g135389135962_ - (lambda (_g135391135423_) + _g135373135399_)))) + (_g135371135944_ + (lambda (_g135373135405_) (if (let () (declare (not safe)) (gx#stx-pair? - _g135391135423_)) - (let ((_e135397135425_ + _g135373135405_)) + (let ((_e135379135407_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g135391135423_)))) - (let ((_hd135396135428_ - (let () (declare (not safe)) (##car _e135397135425_))) - (_tl135395135430_ - (let () (declare (not safe)) (##cdr _e135397135425_)))) + (gx#stx-e _g135373135405_)))) + (let ((_hd135378135410_ + (let () (declare (not safe)) (##car _e135379135407_))) + (_tl135377135412_ + (let () (declare (not safe)) (##cdr _e135379135407_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135395135430_)) - (let ((_e135400135433_ + (gx#stx-pair? _tl135377135412_)) + (let ((_e135382135415_ (let () (declare (not safe)) - (gx#stx-e _tl135395135430_)))) - (let ((_hd135399135436_ + (gx#stx-e _tl135377135412_)))) + (let ((_hd135381135418_ (let () (declare (not safe)) - (##car _e135400135433_))) - (_tl135398135438_ + (##car _e135382135415_))) + (_tl135380135420_ (let () (declare (not safe)) - (##cdr _e135400135433_)))) + (##cdr _e135382135415_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135399135436_)) - (let ((_e135403135441_ + (gx#stx-pair? _hd135381135418_)) + (let ((_e135385135423_ (let () (declare (not safe)) - (gx#stx-e _hd135399135436_)))) - (let ((_hd135402135444_ + (gx#stx-e _hd135381135418_)))) + (let ((_hd135384135426_ (let () (declare (not safe)) - (##car _e135403135441_))) - (_tl135401135446_ + (##car _e135385135423_))) + (_tl135383135428_ (let () (declare (not safe)) - (##cdr _e135403135441_)))) + (##cdr _e135385135423_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135402135444_)) - (let ((_e135406135449_ + (gx#stx-pair? _hd135384135426_)) + (let ((_e135388135431_ (let () (declare (not safe)) - (gx#stx-e _hd135402135444_)))) - (let ((_hd135405135452_ + (gx#stx-e _hd135384135426_)))) + (let ((_hd135387135434_ (let () (declare (not safe)) - (##car _e135406135449_))) - (_tl135404135454_ + (##car _e135388135431_))) + (_tl135386135436_ (let () (declare (not safe)) - (##cdr _e135406135449_)))) + (##cdr _e135388135431_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd135405135452_)) - (let ((_e135409135457_ + _hd135387135434_)) + (let ((_e135391135439_ (let () (declare (not safe)) (gx#stx-e - _hd135405135452_)))) - (let ((_hd135408135460_ + _hd135387135434_)))) + (let ((_hd135390135442_ (let () (declare (not safe)) - (##car _e135409135457_))) - (_tl135407135462_ + (##car _e135391135439_))) + (_tl135389135444_ (let () (declare (not safe)) - (##cdr _e135409135457_)))) + (##cdr _e135391135439_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl135407135462_)) + _tl135389135444_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl135404135454_)) - (let ((_e135412135465_ + _tl135386135436_)) + (let ((_e135394135447_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl135404135454_)))) - (let ((_hd135411135468_ + (gx#stx-e _tl135386135436_)))) + (let ((_hd135393135450_ (let () (declare (not safe)) - (##car _e135412135465_))) - (_tl135410135470_ + (##car _e135394135447_))) + (_tl135392135452_ (let () (declare (not safe)) - (##cdr _e135412135465_)))) + (##cdr _e135394135447_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135410135470_)) + (gx#stx-null? _tl135392135452_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl135401135446_)) + (gx#stx-null? _tl135383135428_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135398135438_)) - (let ((_e135415135473_ + (gx#stx-pair? _tl135380135420_)) + (let ((_e135397135455_ (let () (declare (not safe)) - (gx#stx-e _tl135398135438_)))) - (let ((_hd135414135476_ + (gx#stx-e _tl135380135420_)))) + (let ((_hd135396135458_ (let () (declare (not safe)) - (##car _e135415135473_))) - (_tl135413135478_ + (##car _e135397135455_))) + (_tl135395135460_ (let () (declare (not safe)) - (##cdr _e135415135473_)))) + (##cdr _e135397135455_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135413135478_)) - ((lambda (_L135481_ - _L135482_ - _L135483_) - (let* ((_g135506135520_ - (lambda (_g135507135517_) + (gx#stx-null? _tl135395135460_)) + ((lambda (_L135463_ + _L135464_ + _L135465_) + (let* ((_g135488135502_ + (lambda (_g135489135499_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135507135517_)))) - (_g135505135561_ - (lambda (_g135507135523_) + _g135489135499_)))) + (_g135487135543_ + (lambda (_g135489135505_) (if (let () (declare (not safe)) (gx#stx-pair? - _g135507135523_)) - (let ((_e135512135525_ + _g135489135505_)) + (let ((_e135494135507_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g135507135523_)))) - (let ((_hd135511135528_ + (gx#stx-e _g135489135505_)))) + (let ((_hd135493135510_ (let () (declare (not safe)) - (##car _e135512135525_))) - (_tl135510135530_ + (##car _e135494135507_))) + (_tl135492135512_ (let () (declare (not safe)) - (##cdr _e135512135525_)))) + (##cdr _e135494135507_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135510135530_)) - (let ((_e135515135533_ + (gx#stx-pair? _tl135492135512_)) + (let ((_e135497135515_ (let () (declare (not safe)) - (gx#stx-e _tl135510135530_)))) - (let ((_hd135514135536_ + (gx#stx-e _tl135492135512_)))) + (let ((_hd135496135518_ (let () (declare (not safe)) - (##car _e135515135533_))) - (_tl135513135538_ + (##car _e135497135515_))) + (_tl135495135520_ (let () (declare (not safe)) - (##cdr _e135515135533_)))) - ((lambda (_L135541_ _L135542_) - (let ((_self135555_ + (##cdr _e135497135515_)))) + ((lambda (_L135523_ _L135524_) + (let ((_self135537_ (list-ref - _L135542_ - _self-index135257_))) + _L135524_ + _self-index135239_))) (for-each - (lambda (_g135556135558_) + (lambda (_g135538135540_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g135556135558_ + _g135538135540_ 'receiver: - _self135555_ + _self135537_ 'methods: - _method-calls133302_ + _method-calls133284_ 'slots: - _slot-refs133303_))) - _L135541_))) - _tl135513135538_ - _hd135514135536_))) + _slot-refs133285_))) + _L135523_))) + _tl135495135520_ + _hd135496135518_))) (let () (declare (not safe)) - (_g135506135520_ _g135507135523_))))) + (_g135488135502_ _g135489135505_))))) (let () (declare (not safe)) - (_g135506135520_ _g135507135523_)))))) + (_g135488135502_ _g135489135505_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g135505135561_ _L135482_)) - (let* ((_g135564135583_ - (lambda (_g135565135580_) + (_g135487135543_ _L135464_)) + (let* ((_g135546135565_ + (lambda (_g135547135562_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135565135580_)))) - (_g135563135688_ - (lambda (_g135565135586_) + _g135547135562_)))) + (_g135545135670_ + (lambda (_g135547135568_) (if (let () (declare (not safe)) (gx#stx-pair? - _g135565135586_)) - (let ((_e135569135588_ + _g135547135568_)) + (let ((_e135551135570_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g135565135586_)))) - (let ((_hd135568135591_ + (gx#stx-e _g135547135568_)))) + (let ((_hd135550135573_ (let () (declare (not safe)) - (##car _e135569135588_))) - (_tl135567135593_ + (##car _e135551135570_))) + (_tl135549135575_ (let () (declare (not safe)) - (##cdr _e135569135588_)))) + (##cdr _e135551135570_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl135567135593_)) - (let ((_g137368_ + (gx#stx-pair/null? _tl135549135575_)) + (let ((_g137350_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl135567135593_ + _tl135549135575_ '0)))) (begin - (let ((_g137369_ + (let ((_g137351_ (let () (declare (not safe)) - (if (##values? _g137368_) - (##vector-length _g137368_) + (if (##values? _g137350_) + (##vector-length _g137350_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137369_ 2))) + (##fx= _g137351_ 2))) (error "Context expects 2 values" - _g137369_))) - (let ((_target135570135596_ + _g137351_))) + (let ((_target135552135578_ (let () (declare (not safe)) - (##vector-ref _g137368_ 0))) - (_tl135572135598_ + (##vector-ref _g137350_ 0))) + (_tl135554135580_ (let () (declare (not safe)) - (##vector-ref _g137368_ 1)))) + (##vector-ref _g137350_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl135572135598_)) - (letrec ((_loop135573135601_ - (lambda (_hd135571135604_ - _clause135577135606_) + (gx#stx-null? _tl135554135580_)) + (letrec ((_loop135555135583_ + (lambda (_hd135553135586_ + _clause135559135588_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd135571135604_)) - (let ((_e135574135609_ + _hd135553135586_)) + (let ((_e135556135591_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd135571135604_)))) - (let ((_lp-hd135575135612_ - (let () (declare (not safe)) (##car _e135574135609_))) - (_lp-tl135576135614_ - (let () (declare (not safe)) (##cdr _e135574135609_)))) - (let ((__tmp137371 + (gx#stx-e _hd135553135586_)))) + (let ((_lp-hd135557135594_ + (let () (declare (not safe)) (##car _e135556135591_))) + (_lp-tl135558135596_ + (let () (declare (not safe)) (##cdr _e135556135591_)))) + (let ((__tmp137353 (let () (declare (not safe)) - (cons _lp-hd135575135612_ _clause135577135606_)))) + (cons _lp-hd135557135594_ _clause135559135588_)))) (declare (not safe)) - (_loop135573135601_ _lp-tl135576135614_ __tmp137371)))) - (let ((_clause135578135617_ (reverse _clause135577135606_))) - ((lambda (_L135620_) + (_loop135555135583_ _lp-tl135558135596_ __tmp137353)))) + (let ((_clause135560135599_ (reverse _clause135559135588_))) + ((lambda (_L135602_) (for-each - (lambda (_clause135633_) - (let* ((_g135635135646_ - (lambda (_g135636135643_) + (lambda (_clause135615_) + (let* ((_g135617135628_ + (lambda (_g135618135625_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135636135643_)))) - (_g135634135678_ - (lambda (_g135636135649_) + _g135618135625_)))) + (_g135616135660_ + (lambda (_g135618135631_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135636135649_)) - (let ((_e135641135651_ + (gx#stx-pair? _g135618135631_)) + (let ((_e135623135633_ (let () (declare (not safe)) - (gx#stx-e _g135636135649_)))) - (let ((_hd135640135654_ + (gx#stx-e _g135618135631_)))) + (let ((_hd135622135636_ (let () (declare (not safe)) - (##car _e135641135651_))) - (_tl135639135656_ + (##car _e135623135633_))) + (_tl135621135638_ (let () (declare (not safe)) - (##cdr _e135641135651_)))) - ((lambda (_L135659_ _L135660_) - (let ((_self135672_ + (##cdr _e135623135633_)))) + ((lambda (_L135641_ _L135642_) + (let ((_self135654_ (list-ref - _L135660_ - _self-index135257_))) + _L135642_ + _self-index135239_))) (for-each - (lambda (_g135673135675_) + (lambda (_g135655135657_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g135673135675_ + _g135655135657_ 'receiver: - _self135672_ + _self135654_ 'methods: - _method-calls133302_ + _method-calls133284_ 'slots: - _slot-refs133303_))) - _L135659_))) - _tl135639135656_ - _hd135640135654_))) + _slot-refs133285_))) + _L135641_))) + _tl135621135638_ + _hd135622135636_))) (let () (declare (not safe)) - (_g135635135646_ _g135636135649_)))))) + (_g135617135628_ _g135618135631_)))))) (declare (not safe)) - (_g135634135678_ _clause135633_))) - (let ((__tmp137370 - (lambda (_g135680135683_ _g135681135685_) + (_g135616135660_ _clause135615_))) + (let ((__tmp137352 + (lambda (_g135662135665_ _g135663135667_) (let () (declare (not safe)) - (cons _g135680135683_ _g135681135685_))))) + (cons _g135662135665_ _g135663135667_))))) (declare (not safe)) - (foldr1 __tmp137370 '() _L135620_)))) - _clause135578135617_)))))) + (foldr1 __tmp137352 '() _L135602_)))) + _clause135560135599_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop135573135601_ - _target135570135596_ + (_loop135555135583_ + _target135552135578_ '()))) (let () (declare (not safe)) - (_g135564135583_ _g135565135586_)))))) + (_g135546135565_ _g135547135568_)))))) (let () (declare (not safe)) - (_g135564135583_ _g135565135586_))))) + (_g135546135565_ _g135547135568_))))) (let () (declare (not safe)) - (_g135564135583_ _g135565135586_)))))) + (_g135546135565_ _g135547135568_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g135563135688_ _L135481_)) + (_g135545135670_ _L135463_)) (if (let () (declare (not safe)) - (_no-specializer?133306_)) - _stx133210_ - (let* ((_specializer-id135697_ - (let* ((_id135691_ + (_no-specializer?133288_)) + _stx133192_ + (let* ((_specializer-id135679_ + (let* ((_id135673_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137372 + (let ((__tmp137354 (let () (declare (not safe)) - (gx#stx-e _L133283_)))) + (gx#stx-e _L133265_)))) (declare (not safe)) - (make-symbol__1 __tmp137372 '"::specialize"))) - (_specializer-id135694_ - (let ((__tmp137373 + (make-symbol__1 __tmp137354 '"::specialize"))) + (_specializer-id135676_ + (let ((__tmp137355 (let () (declare (not safe)) - (gx#stx-source _stx133210_)))) + (gx#stx-source _stx133192_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id135691_ __tmp137373)))) + (gx#core-quote-syntax__1 _id135673_ __tmp137355)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id135694_)) - _specializer-id135694_)) - (_$klass135699_ - (let ((__tmp137374 (gensym '__klass))) + (gx#core-bind-runtime!__0 _specializer-id135676_)) + _specializer-id135676_)) + (_$klass135681_ + (let ((__tmp137356 (gensym '__klass))) (declare (not safe)) - (make-symbol__0 __tmp137374))) - (_$method-table135701_ - (let ((__tmp137375 (gensym '__method-table))) + (make-symbol__0 __tmp137356))) + (_$method-table135683_ + (let ((__tmp137357 (gensym '__method-table))) (declare (not safe)) - (make-symbol__0 __tmp137375))) - (_methods135703_ + (make-symbol__0 __tmp137357))) + (_methods135685_ (let () (declare (not safe)) - (hash-keys _method-calls133302_))) - (_$methods135707_ - (map (lambda (_id135705_) - (let ((__tmp137376 (gensym _id135705_))) + (hash-keys _method-calls133284_))) + (_$methods135689_ + (map (lambda (_id135687_) + (let ((__tmp137358 (gensym _id135687_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137376))) - _methods135703_)) - (_g137377_ + (make-symbol__1 '"__" __tmp137358))) + _methods135685_)) + (_g137359_ (for-each - (lambda (_g135708135711_ _g135709135713_) + (lambda (_g135690135693_ _g135691135695_) (let () (declare (not safe)) (hash-put! - _method-calls133302_ - _g135708135711_ - _g135709135713_))) - _methods135703_ - _$methods135707_)) - (_methods-bind135724_ - (map (lambda (_g135716135719_ _g135717135721_) + _method-calls133284_ + _g135690135693_ + _g135691135695_))) + _methods135685_ + _$methods135689_)) + (_methods-bind135706_ + (map (lambda (_g135698135701_ _g135699135703_) (let () (declare (not safe)) - (_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_))) + (_generate-method-bind133194_ + _$klass135681_ + _$method-table135683_ + _g135698135701_ + _g135699135703_))) + _methods135685_ + _$methods135689_)) + (_slots135708_ + (let () (declare (not safe)) (hash-keys _slot-refs133285_))) + (_$slots135712_ + (map (lambda (_id135710_) + (let ((__tmp137360 (gensym _id135710_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp137378))) - _slots135726_)) - (_g137379_ + (make-symbol__1 '"__" __tmp137360))) + _slots135708_)) + (_g137361_ (for-each - (lambda (_g135731135734_ _g135732135736_) + (lambda (_g135713135716_ _g135714135718_) (let () (declare (not safe)) (hash-put! - _slot-refs133303_ - _g135731135734_ - _g135732135736_))) - _slots135726_ - _$slots135730_)) - (_slots-bind135747_ - (map (lambda (_g135739135742_ _g135740135744_) + _slot-refs133285_ + _g135713135716_ + _g135714135718_))) + _slots135708_ + _$slots135712_)) + (_slots-bind135729_ + (map (lambda (_g135721135724_ _g135722135726_) (let () (declare (not safe)) - (_generate-slot-bind133213_ - _$klass135699_ - _g135739135742_ - _g135740135744_))) - _slots135726_ - _$slots135730_)) - (_specializer-lambda-expr135820_ - (let* ((_g135749135763_ - (lambda (_g135750135760_) + (_generate-slot-bind133195_ + _$klass135681_ + _g135721135724_ + _g135722135726_))) + _slots135708_ + _$slots135712_)) + (_specializer-lambda-expr135802_ + (let* ((_g135731135745_ + (lambda (_g135732135742_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135750135760_)))) - (_g135748135817_ - (lambda (_g135750135766_) + _g135732135742_)))) + (_g135730135799_ + (lambda (_g135732135748_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135750135766_)) - (let ((_e135755135768_ + (gx#stx-pair? _g135732135748_)) + (let ((_e135737135750_ (let () (declare (not safe)) - (gx#stx-e _g135750135766_)))) - (let ((_hd135754135771_ + (gx#stx-e _g135732135748_)))) + (let ((_hd135736135753_ (let () (declare (not safe)) - (##car _e135755135768_))) - (_tl135753135773_ + (##car _e135737135750_))) + (_tl135735135755_ (let () (declare (not safe)) - (##cdr _e135755135768_)))) + (##cdr _e135737135750_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl135753135773_)) - (let ((_e135758135776_ + (gx#stx-pair? _tl135735135755_)) + (let ((_e135740135758_ (let () (declare (not safe)) - (gx#stx-e _tl135753135773_)))) - (let ((_hd135757135779_ + (gx#stx-e _tl135735135755_)))) + (let ((_hd135739135761_ (let () (declare (not safe)) - (##car _e135758135776_))) - (_tl135756135781_ + (##car _e135740135758_))) + (_tl135738135763_ (let () (declare (not safe)) - (##cdr _e135758135776_)))) - ((lambda (_L135784_ _L135785_) - (let* ((_self135808_ + (##cdr _e135740135758_)))) + ((lambda (_L135766_ _L135767_) + (let* ((_self135790_ (list-ref - _L135785_ - _self-index135257_)) - (_body135814_ - (map (lambda (_g135809135811_) + _L135767_ + _self-index135239_)) + (_body135796_ + (map (lambda (_g135791135793_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#apply-subst-object-refs - _g135809135811_ + _g135791135793_ 'receiver: - _self135808_ + _self135790_ 'klass: - _$klass135699_ + _$klass135681_ 'methods: - _method-calls133302_ + _method-calls133284_ 'slots: - _slot-refs133303_))) - _L135784_))) + _slot-refs133285_))) + _L135766_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp137380 - (let ((__tmp137381 + (let ((__tmp137362 + (let ((__tmp137363 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L135785_ _body135814_)))) + (cons _L135767_ _body135796_)))) (declare (not safe)) - (cons '%#lambda __tmp137381)))) + (cons '%#lambda __tmp137363)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp137380 - _L135482_)))) - _tl135756135781_ - _hd135757135779_))) + __tmp137362 + _L135464_)))) + _tl135738135763_ + _hd135739135761_))) (let () (declare (not safe)) - (_g135749135763_ _g135750135766_))))) + (_g135731135745_ _g135732135748_))))) (let () (declare (not safe)) - (_g135749135763_ _g135750135766_)))))) + (_g135731135745_ _g135732135748_)))))) (declare (not safe)) - (_g135748135817_ _L135482_))) - (_specializer-case-lambda-expr135955_ - (let* ((_g135822135841_ - (lambda (_g135823135838_) + (_g135730135799_ _L135464_))) + (_specializer-case-lambda-expr135937_ + (let* ((_g135804135823_ + (lambda (_g135805135820_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135823135838_)))) - (_g135821135952_ - (lambda (_g135823135844_) + _g135805135820_)))) + (_g135803135934_ + (lambda (_g135805135826_) (if (let () (declare (not safe)) - (gx#stx-pair? _g135823135844_)) - (let ((_e135827135846_ + (gx#stx-pair? _g135805135826_)) + (let ((_e135809135828_ (let () (declare (not safe)) - (gx#stx-e _g135823135844_)))) - (let ((_hd135826135849_ + (gx#stx-e _g135805135826_)))) + (let ((_hd135808135831_ (let () (declare (not safe)) - (##car _e135827135846_))) - (_tl135825135851_ + (##car _e135809135828_))) + (_tl135807135833_ (let () (declare (not safe)) - (##cdr _e135827135846_)))) + (##cdr _e135809135828_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl135825135851_)) - (let ((_g137382_ + (gx#stx-pair/null? _tl135807135833_)) + (let ((_g137364_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl135825135851_ + _tl135807135833_ '0)))) (begin - (let ((_g137383_ + (let ((_g137365_ (let () (declare (not safe)) - (if (##values? _g137382_) + (if (##values? _g137364_) (##vector-length - _g137382_) + _g137364_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137383_ 2))) + (##fx= _g137365_ 2))) (error "Context expects 2 values" - _g137383_))) - (let ((_target135828135854_ + _g137365_))) + (let ((_target135810135836_ (let () (declare (not safe)) (##vector-ref - _g137382_ + _g137364_ 0))) - (_tl135830135856_ + (_tl135812135838_ (let () (declare (not safe)) (##vector-ref - _g137382_ + _g137364_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl135830135856_)) - (letrec ((_loop135831135859_ - (lambda (_hd135829135862_ + _tl135812135838_)) + (letrec ((_loop135813135841_ + (lambda (_hd135811135844_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause135835135864_) + _clause135817135846_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd135829135862_)) - (let ((_e135832135867_ + (gx#stx-pair? _hd135811135844_)) + (let ((_e135814135849_ (let () (declare (not safe)) - (gx#stx-e _hd135829135862_)))) - (let ((_lp-hd135833135870_ + (gx#stx-e _hd135811135844_)))) + (let ((_lp-hd135815135852_ (let () (declare (not safe)) - (##car _e135832135867_))) - (_lp-tl135834135872_ + (##car _e135814135849_))) + (_lp-tl135816135854_ (let () (declare (not safe)) - (##cdr _e135832135867_)))) - (let ((__tmp137386 + (##cdr _e135814135849_)))) + (let ((__tmp137368 (let () (declare (not safe)) - (cons _lp-hd135833135870_ - _clause135835135864_)))) + (cons _lp-hd135815135852_ + _clause135817135846_)))) (declare (not safe)) - (_loop135831135859_ - _lp-tl135834135872_ - __tmp137386)))) - (let ((_clause135836135875_ - (reverse _clause135835135864_))) - ((lambda (_L135878_) - (let* ((_clauses135950_ - (map (lambda (_clause135892_) - (let* ((_g135894135905_ - (lambda (_g135895135902_) + (_loop135813135841_ + _lp-tl135816135854_ + __tmp137368)))) + (let ((_clause135818135857_ + (reverse _clause135817135846_))) + ((lambda (_L135860_) + (let* ((_clauses135932_ + (map (lambda (_clause135874_) + (let* ((_g135876135887_ + (lambda (_g135877135884_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g135895135902_)))) - (_g135893135940_ - (lambda (_g135895135908_) + _g135877135884_)))) + (_g135875135922_ + (lambda (_g135877135890_) (if (let () (declare (not safe)) (gx#stx-pair? - _g135895135908_)) - (let ((_e135900135910_ + _g135877135890_)) + (let ((_e135882135892_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g135895135908_)))) - (let ((_hd135899135913_ + (gx#stx-e _g135877135890_)))) + (let ((_hd135881135895_ (let () (declare (not safe)) - (##car _e135900135910_))) - (_tl135898135915_ + (##car _e135882135892_))) + (_tl135880135897_ (let () (declare (not safe)) - (##cdr _e135900135910_)))) - ((lambda (_L135918_ _L135919_) - (let* ((_self135931_ - (list-ref _L135919_ _self-index135257_)) - (_body135937_ - (map (lambda (_g135932135934_) + (##cdr _e135882135892_)))) + ((lambda (_L135900_ _L135901_) + (let* ((_self135913_ + (list-ref _L135901_ _self-index135239_)) + (_body135919_ + (map (lambda (_g135914135916_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g135932135934_ + _g135914135916_ 'receiver: - _self135931_ + _self135913_ 'klass: - _$klass135699_ + _$klass135681_ 'methods: - _method-calls133302_ + _method-calls133284_ 'slots: - _slot-refs133303_))) - _L135918_))) + _slot-refs133285_))) + _L135900_))) (let () (declare (not safe)) - (cons _L135919_ _body135937_)))) - _tl135898135915_ - _hd135899135913_))) + (cons _L135901_ _body135919_)))) + _tl135880135897_ + _hd135881135895_))) (let () (declare (not safe)) - (_g135894135905_ _g135895135908_)))))) + (_g135876135887_ _g135877135890_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g135893135940_ - _clause135892_))) - (let ((__tmp137384 - (lambda (_g135942135945_ - _g135943135947_) + (_g135875135922_ + _clause135874_))) + (let ((__tmp137366 + (lambda (_g135924135927_ + _g135925135929_) (let () (declare (not safe)) - (cons _g135942135945_ - _g135943135947_))))) + (cons _g135924135927_ + _g135925135929_))))) (declare (not safe)) - (foldr1 __tmp137384 + (foldr1 __tmp137366 '() - _L135878_)))) - (__tmp137385 + _L135860_)))) + (__tmp137367 (let () (declare (not safe)) (cons '%#case-lambda - _clauses135950_)))) + _clauses135932_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp137385 - _L135481_))) - _clause135836135875_)))))) + __tmp137367 + _L135463_))) + _clause135818135857_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop135831135859_ - _target135828135854_ + (_loop135813135841_ + _target135810135836_ '()))) (let () (declare (not safe)) - (_g135822135841_ - _g135823135844_)))))) + (_g135804135823_ + _g135805135826_)))))) (let () (declare (not safe)) - (_g135822135841_ _g135823135844_))))) + (_g135804135823_ _g135805135826_))))) (let () (declare (not safe)) - (_g135822135841_ _g135823135844_)))))) + (_g135804135823_ _g135805135826_)))))) (declare (not safe)) - (_g135821135952_ _L135481_))) - (_specializer-impl135957_ - (let ((__tmp137387 - (let ((__tmp137388 - (let ((__tmp137390 - (let ((__tmp137391 - (let ((__tmp137408 + (_g135803135934_ _L135463_))) + (_specializer-impl135939_ + (let ((__tmp137369 + (let ((__tmp137370 + (let ((__tmp137372 + (let ((__tmp137373 + (let ((__tmp137390 (let () (declare (not safe)) - (cons _L134958_ '()))) - (__tmp137392 - (let ((__tmp137393 - (let ((__tmp137394 + (cons _L134940_ '()))) + (__tmp137374 + (let ((__tmp137375 + (let ((__tmp137376 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137396 - (let ((__tmp137397 - (let ((__tmp137407 + (let ((__tmp137378 + (let ((__tmp137379 + (let ((__tmp137389 (let () (declare (not safe)) - (cons _L134957_ '()))) - (__tmp137398 - (let ((__tmp137399 - (let ((__tmp137400 - (let ((__tmp137401 + (cons _L134939_ '()))) + (__tmp137380 + (let ((__tmp137381 + (let ((__tmp137382 + (let ((__tmp137383 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137403 - (let ((__tmp137404 - (let ((__tmp137406 + (let ((__tmp137385 + (let ((__tmp137386 + (let ((__tmp137388 (let () (declare (not safe)) - (cons _L135483_ '()))) - (__tmp137405 + (cons _L135465_ '()))) + (__tmp137387 (let () (declare (not safe)) - (cons _specializer-lambda-expr135820_ + (cons _specializer-lambda-expr135802_ '())))) (declare (not safe)) - (cons __tmp137406 __tmp137405)))) + (cons __tmp137388 __tmp137387)))) (declare (not safe)) - (cons __tmp137404 '()))) - (__tmp137402 + (cons __tmp137386 '()))) + (__tmp137384 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr135955_ + (cons _specializer-case-lambda-expr135937_ '())))) (declare (not safe)) - (cons __tmp137403 __tmp137402)))) + (cons __tmp137385 __tmp137384)))) (declare (not safe)) - (cons '%#let-values __tmp137401)))) + (cons '%#let-values __tmp137383)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137400 _stx133210_)))) + (gxc#xform-wrap-source __tmp137382 _stx133192_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137399 '())))) + (cons __tmp137381 '())))) (declare (not safe)) - (cons __tmp137407 __tmp137398)))) + (cons __tmp137389 __tmp137380)))) (declare (not safe)) - (cons __tmp137397 '()))) - (__tmp137395 + (cons __tmp137379 '()))) + (__tmp137377 (let () (declare (not safe)) - (cons _L134955_ '())))) + (cons _L134937_ '())))) (declare (not safe)) - (cons __tmp137396 __tmp137395)))) + (cons __tmp137378 __tmp137377)))) (declare (not safe)) - (cons '%#let-values __tmp137394)))) + (cons '%#let-values __tmp137376)))) (declare (not safe)) - (cons __tmp137393 '())))) + (cons __tmp137375 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137408 - __tmp137392)))) + (cons __tmp137390 + __tmp137374)))) (declare (not safe)) - (cons __tmp137391 '()))) - (__tmp137389 + (cons __tmp137373 '()))) + (__tmp137371 (let () (declare (not safe)) - (cons _L134954_ '())))) + (cons _L134936_ '())))) (declare (not safe)) - (cons __tmp137390 __tmp137389)))) + (cons __tmp137372 __tmp137371)))) (declare (not safe)) - (cons '%#let-values __tmp137388)))) + (cons '%#let-values __tmp137370)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137387 _stx133210_))) - (_specializer-impl135959_ + (gxc#xform-wrap-source __tmp137369 _stx133192_))) + (_specializer-impl135941_ (let () (declare (not safe)) - (_generate-specializer-impl133214_ - _$klass135699_ - _$method-table135701_ - _methods-bind135724_ - _slots-bind135747_ - _specializer-impl135957_)))) + (_generate-specializer-impl133196_ + _$klass135681_ + _$method-table135683_ + _methods-bind135706_ + _slots-bind135729_ + _specializer-impl135939_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp137410 + (let ((__tmp137392 (let () (declare (not safe)) (gx#stx-e - _L133283_))) - (__tmp137409 + _L133265_))) + (__tmp137391 (let () (declare (not safe)) (gx#stx-e - _specializer-id135697_)))) + _specializer-id135679_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp137410 + __tmp137392 '" => " - __tmp137409)) + __tmp137391)) (let () (declare (not safe)) - (_generate-specializer-def133215_ - _L133283_ - _specializer-id135697_ - _specializer-impl135959_))))) - _hd135414135476_ - _hd135411135468_ - _hd135408135460_) + (_generate-specializer-def133197_ + _L133265_ + _specializer-id135679_ + _specializer-impl135941_))))) + _hd135396135458_ + _hd135393135450_ + _hd135390135442_) (let () (declare (not safe)) - (_g135390135420_ - _g135391135423_))))) + (_g135372135402_ + _g135373135405_))))) (let () (declare (not safe)) - (_g135390135420_ _g135391135423_))) + (_g135372135402_ _g135373135405_))) (let () (declare (not safe)) - (_g135390135420_ _g135391135423_))) + (_g135372135402_ _g135373135405_))) (let () (declare (not safe)) - (_g135390135420_ _g135391135423_))))) + (_g135372135402_ _g135373135405_))))) (let () (declare (not safe)) - (_g135390135420_ _g135391135423_))) + (_g135372135402_ _g135373135405_))) (let () (declare (not safe)) - (_g135390135420_ _g135391135423_))))) + (_g135372135402_ _g135373135405_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g135390135420_ - _g135391135423_))))) + (_g135372135402_ + _g135373135405_))))) (let () (declare (not safe)) - (_g135390135420_ _g135391135423_))))) + (_g135372135402_ _g135373135405_))))) (let () (declare (not safe)) - (_g135390135420_ _g135391135423_))))) + (_g135372135402_ _g135373135405_))))) (let () (declare (not safe)) - (_g135390135420_ _g135391135423_))))) + (_g135372135402_ _g135373135405_))))) (let () (declare (not safe)) - (_g135390135420_ _g135391135423_)))))) + (_g135372135402_ _g135373135405_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g135389135962_ _L134956_)) - _stx133210_)))) - _hd135053135176_ - _kw-ref135051135197_ - _hd135041135163_ - _hd135032135139_ - _hd135023135115_) + (_g135371135944_ _L134938_)) + _stx133192_)))) + _hd135035135158_ + _kw-ref135033135179_ + _hd135023135145_ + _hd135014135121_ + _hd135005135097_) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_)))))))) + (_g134979135041_ _g134980135044_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop135046135181_ - _target135043135168_ + (_loop135028135163_ + _target135025135150_ '()))) (let () (declare (not safe)) - (_g134997135059_ - _g134998135062_))))) + (_g134979135041_ + _g134980135044_))))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_)))))) + (_g134979135041_ _g134980135044_)))))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))) + (_g134979135041_ _g134980135044_))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))) + (_g134979135041_ _g134980135044_))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))))) + (_g134979135041_ _g134980135044_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134997135059_ - _g134998135062_))) + (_g134979135041_ + _g134980135044_))) (let () (declare (not safe)) - (_g134997135059_ - _g134998135062_))) + (_g134979135041_ + _g134980135044_))) (let () (declare (not safe)) - (_g134997135059_ - _g134998135062_))))) + (_g134979135041_ + _g134980135044_))))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))))) + (_g134979135041_ _g134980135044_))))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))) + (_g134979135041_ _g134980135044_))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))))) + (_g134979135041_ _g134980135044_))))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))) + (_g134979135041_ _g134980135044_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134997135059_ - _g134998135062_))) + (_g134979135041_ + _g134980135044_))) (let () (declare (not safe)) - (_g134997135059_ - _g134998135062_))))) + (_g134979135041_ + _g134980135044_))))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))))) + (_g134979135041_ _g134980135044_))))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))) + (_g134979135041_ _g134980135044_))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))))) + (_g134979135041_ _g134980135044_))))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))) + (_g134979135041_ _g134980135044_))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))) + (_g134979135041_ _g134980135044_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134997135059_ - _g134998135062_))))) + (_g134979135041_ + _g134980135044_))))) (let () (declare (not safe)) - (_g134997135059_ - _g134998135062_))))) + (_g134979135041_ + _g134980135044_))))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))) + (_g134979135041_ _g134980135044_))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))) + (_g134979135041_ _g134980135044_))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))))) + (_g134979135041_ _g134980135044_))))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))))) + (_g134979135041_ _g134980135044_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134997135059_ - _g134998135062_))))) + (_g134979135041_ + _g134980135044_))))) (let () (declare (not safe)) - (_g134997135059_ - _g134998135062_))) + (_g134979135041_ + _g134980135044_))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))) + (_g134979135041_ _g134980135044_))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_))))) + (_g134979135041_ _g134980135044_))))) (let () (declare (not safe)) - (_g134997135059_ _g134998135062_)))))) + (_g134979135041_ _g134980135044_)))))) (declare (not safe)) - (_g134996135965_ _L134955_))) + (_g134978135947_ _L134937_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd134831134949_ - _hd134828134941_ - _hd134825134933_ - _hd134822134925_ - _hd134804134877_) + _hd134813134931_ + _hd134810134923_ + _hd134807134915_ + _hd134804134907_ + _hd134786134859_) (let () (declare (not safe)) - (_g134784134837_ - _g134785134840_))))) + (_g134766134819_ + _g134767134822_))))) (let () (declare (not safe)) - (_g134784134837_ - _g134785134840_))) + (_g134766134819_ + _g134767134822_))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))) + (_g134766134819_ _g134767134822_))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))) + (_g134766134819_ _g134767134822_))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))))) + (_g134766134819_ _g134767134822_))))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))) + (_g134766134819_ _g134767134822_))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))) + (_g134766134819_ _g134767134822_))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))))) + (_g134766134819_ _g134767134822_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134784134837_ - _g134785134840_))) + (_g134766134819_ + _g134767134822_))) (let () (declare (not safe)) - (_g134784134837_ - _g134785134840_))))) + (_g134766134819_ + _g134767134822_))))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))))) + (_g134766134819_ _g134767134822_))))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))))) + (_g134766134819_ _g134767134822_))))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))))) + (_g134766134819_ _g134767134822_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134784134837_ - _g134785134840_))) + (_g134766134819_ + _g134767134822_))) (let () (declare (not safe)) - (_g134784134837_ - _g134785134840_))) + (_g134766134819_ + _g134767134822_))) (let () (declare (not safe)) - (_g134784134837_ - _g134785134840_))))) + (_g134766134819_ + _g134767134822_))))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))))) + (_g134766134819_ _g134767134822_))))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))) + (_g134766134819_ _g134767134822_))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))))) + (_g134766134819_ _g134767134822_))))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))))) + (_g134766134819_ _g134767134822_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g134784134837_ - _g134785134840_))))) + (_g134766134819_ + _g134767134822_))))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))))) + (_g134766134819_ _g134767134822_))))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))) + (_g134766134819_ _g134767134822_))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))) + (_g134766134819_ _g134767134822_))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_))))) + (_g134766134819_ _g134767134822_))))) (let () (declare (not safe)) - (_g134784134837_ _g134785134840_)))))) + (_g134766134819_ _g134767134822_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_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 + (_g134765135950_ _L133264_)) + _stx133192_)))))))) + (___kont136174136175_ (lambda () _stx133192_))) + (let ((___match136203136204_ + (lambda (_e133206133232_ + _hd133205133235_ + _tl133204133237_ + _e133209133240_ + _hd133208133243_ + _tl133207133245_ + _e133212133248_ + _hd133211133251_ + _tl133210133253_ + _e133215133256_ + _hd133214133259_ + _tl133213133261_) + (let ((_L133264_ _hd133214133259_) + (_L133265_ _hd133211133251_)) + (if (let ((__tmp137481 (let () (declare (not safe)) - (gxc#identifier-symbol _L133283_)))) + (gxc#identifier-symbol _L133265_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp137499)) - (___kont136190136191_ _L133282_ _L133283_) - (___kont136192136193_)))))) + (gxc#optimizer-top-level-method? __tmp137481)) + (___kont136172136173_ _L133264_ _L133265_) + (___kont136174136175_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx136188136189_)) - (let ((_e133224133250_ + (gx#stx-pair? ___stx136170136171_)) + (let ((_e133206133232_ (let () (declare (not safe)) - (gx#stx-e ___stx136188136189_)))) - (let ((_tl133222133255_ + (gx#stx-e ___stx136170136171_)))) + (let ((_tl133204133237_ (let () (declare (not safe)) - (##cdr _e133224133250_))) - (_hd133223133253_ + (##cdr _e133206133232_))) + (_hd133205133235_ (let () (declare (not safe)) - (##car _e133224133250_)))) + (##car _e133206133232_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl133222133255_)) - (let ((_e133227133258_ + (gx#stx-pair? _tl133204133237_)) + (let ((_e133209133240_ (let () (declare (not safe)) - (gx#stx-e _tl133222133255_)))) - (let ((_tl133225133263_ + (gx#stx-e _tl133204133237_)))) + (let ((_tl133207133245_ (let () (declare (not safe)) - (##cdr _e133227133258_))) - (_hd133226133261_ + (##cdr _e133209133240_))) + (_hd133208133243_ (let () (declare (not safe)) - (##car _e133227133258_)))) + (##car _e133209133240_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd133226133261_)) - (let ((_e133230133266_ + (gx#stx-pair? _hd133208133243_)) + (let ((_e133212133248_ (let () (declare (not safe)) - (gx#stx-e _hd133226133261_)))) - (let ((_tl133228133271_ + (gx#stx-e _hd133208133243_)))) + (let ((_tl133210133253_ (let () (declare (not safe)) - (##cdr _e133230133266_))) - (_hd133229133269_ + (##cdr _e133212133248_))) + (_hd133211133251_ (let () (declare (not safe)) - (##car _e133230133266_)))) + (##car _e133212133248_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl133228133271_)) + (gx#stx-null? _tl133210133253_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl133225133263_)) - (let ((_e133233133274_ + _tl133207133245_)) + (let ((_e133215133256_ (let () (declare (not safe)) (gx#stx-e - _tl133225133263_)))) - (let ((_tl133231133279_ + _tl133207133245_)))) + (let ((_tl133213133261_ (let () (declare (not safe)) - (##cdr _e133233133274_))) - (_hd133232133277_ + (##cdr _e133215133256_))) + (_hd133214133259_ (let () (declare (not safe)) - (##car _e133233133274_)))) + (##car _e133215133256_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl133231133279_)) - (___match136221136222_ - _e133224133250_ - _hd133223133253_ - _tl133222133255_ - _e133227133258_ - _hd133226133261_ - _tl133225133263_ - _e133230133266_ - _hd133229133269_ - _tl133228133271_ - _e133233133274_ - _hd133232133277_ - _tl133231133279_) - (___kont136192136193_)))) - (___kont136192136193_)) - (___kont136192136193_)))) - (___kont136192136193_)))) - (___kont136192136193_)))) - (___kont136192136193_)))))))) + _tl133213133261_)) + (___match136203136204_ + _e133206133232_ + _hd133205133235_ + _tl133204133237_ + _e133209133240_ + _hd133208133243_ + _tl133207133245_ + _e133212133248_ + _hd133211133251_ + _tl133210133253_ + _e133215133256_ + _hd133214133259_ + _tl133213133261_) + (___kont136174136175_)))) + (___kont136174136175_)) + (___kont136174136175_)))) + (___kont136174136175_)))) + (___kont136174136175_)))) + (___kont136174136175_)))))))) (define gxc#collect-object-refs-call% - (lambda (_self132170_ _stx132171_) - (let* ((___stx136224136225_ _stx132171_) - (_g132179132401_ + (lambda (_self132152_ _stx132153_) + (let* ((___stx136206136207_ _stx132153_) + (_g132161132383_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136224136225_))))) - (let ((___kont136226136227_ - (lambda (_L133158_ _L133159_ _L133160_ _L133161_) - (let ((__tmp137501 + ___stx136206136207_))))) + (let ((___kont136208136209_ + (lambda (_L133140_ _L133141_ _L133142_ _L133143_) + (let ((__tmp137483 (let () (declare (not safe)) - (slot-ref__0 _self132170_ 'methods))) - (__tmp137500 - (let () (declare (not safe)) (gx#stx-e _L133159_)))) + (slot-ref__0 _self132152_ 'methods))) + (__tmp137482 + (let () (declare (not safe)) (gx#stx-e _L133141_)))) (declare (not safe)) - (hash-put! __tmp137501 __tmp137500 '#t)) + (hash-put! __tmp137483 __tmp137482 '#t)) (for-each - (lambda (_g133194133196_) + (lambda (_g133176133178_) (let () (declare (not safe)) - (gxc#compile-e__1 _self132170_ _g133194133196_))) - (let ((__tmp137502 - (lambda (_g133198133201_ _g133199133203_) + (gxc#compile-e__1 _self132152_ _g133176133178_))) + (let ((__tmp137484 + (lambda (_g133180133183_ _g133181133185_) (let () (declare (not safe)) - (cons _g133198133201_ _g133199133203_))))) + (cons _g133180133183_ _g133181133185_))))) (declare (not safe)) - (foldr1 __tmp137502 '() _L133158_))))) - (___kont136230136231_ - (lambda (_L132993_ _L132994_ _L132995_ _L132996_ _L132997_) - (let ((__tmp137504 + (foldr1 __tmp137484 '() _L133140_))))) + (___kont136212136213_ + (lambda (_L132975_ _L132976_ _L132977_ _L132978_ _L132979_) + (let ((__tmp137486 (let () (declare (not safe)) - (slot-ref__0 _self132170_ 'methods))) - (__tmp137503 - (let () (declare (not safe)) (gx#stx-e _L132994_)))) + (slot-ref__0 _self132152_ 'methods))) + (__tmp137485 + (let () (declare (not safe)) (gx#stx-e _L132976_)))) (declare (not safe)) - (hash-put! __tmp137504 __tmp137503 '#t)) + (hash-put! __tmp137486 __tmp137485 '#t)) (for-each - (lambda (_g133037133039_) + (lambda (_g133019133021_) (let () (declare (not safe)) - (gxc#compile-e__1 _self132170_ _g133037133039_))) - (let ((__tmp137505 - (lambda (_g133041133044_ _g133042133046_) + (gxc#compile-e__1 _self132152_ _g133019133021_))) + (let ((__tmp137487 + (lambda (_g133023133026_ _g133024133028_) (let () (declare (not safe)) - (cons _g133041133044_ _g133042133046_))))) + (cons _g133023133026_ _g133024133028_))))) (declare (not safe)) - (foldr1 __tmp137505 '() _L132993_))))) - (___kont136234136235_ - (lambda (_L132826_ _L132827_ _L132828_) - (let ((__tmp137507 + (foldr1 __tmp137487 '() _L132975_))))) + (___kont136216136217_ + (lambda (_L132808_ _L132809_ _L132810_) + (let ((__tmp137489 (let () (declare (not safe)) - (slot-ref__0 _self132170_ 'slots))) - (__tmp137506 - (let () (declare (not safe)) (gx#stx-e _L132826_)))) + (slot-ref__0 _self132152_ 'slots))) + (__tmp137488 + (let () (declare (not safe)) (gx#stx-e _L132808_)))) (declare (not safe)) - (hash-put! __tmp137507 __tmp137506 '#t)))) - (___kont136236136237_ - (lambda (_L132703_ _L132704_ _L132705_ _L132706_) - (let ((__tmp137509 + (hash-put! __tmp137489 __tmp137488 '#t)))) + (___kont136218136219_ + (lambda (_L132685_ _L132686_ _L132687_ _L132688_) + (let ((__tmp137491 (let () (declare (not safe)) - (slot-ref__0 _self132170_ 'slots))) - (__tmp137508 - (let () (declare (not safe)) (gx#stx-e _L132704_)))) + (slot-ref__0 _self132152_ 'slots))) + (__tmp137490 + (let () (declare (not safe)) (gx#stx-e _L132686_)))) (declare (not safe)) - (hash-put! __tmp137509 __tmp137508 '#t)) + (hash-put! __tmp137491 __tmp137490 '#t)) (let () (declare (not safe)) - (gxc#compile-e__1 _self132170_ _L132703_)))) - (___kont136238136239_ - (lambda (_L132577_ _L132578_) - (let* ((_accessor132600_ - (let ((__tmp137510 + (gxc#compile-e__1 _self132152_ _L132685_)))) + (___kont136220136221_ + (lambda (_L132559_ _L132560_) + (let* ((_accessor132582_ + (let ((__tmp137492 (let () (declare (not safe)) - (gxc#identifier-symbol _L132578_)))) + (gxc#identifier-symbol _L132560_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp137510))) - (_klass132602_ - (let ((__tmp137511 + (gxc#optimizer-resolve-type __tmp137492))) + (_klass132584_ + (let ((__tmp137493 (##structure-ref - _accessor132600_ + _accessor132582_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx132171_ - __tmp137511))) - (_slot132604_ + _stx132153_ + __tmp137493))) + (_slot132586_ (##structure-ref - _accessor132600_ + _accessor132582_ '2 gxc#!accessor::t '#f))) - (if (and (let ((__tmp137514 + (if (and (let ((__tmp137496 (##structure-ref - _accessor132600_ + _accessor132582_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (not __tmp137514)) + (not __tmp137496)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass132602_ - _slot132604_)) + _klass132584_ + _slot132586_)) (##structure-ref - _klass132602_ + _klass132584_ '8 gxc#!class::t '#f))) '#!void - (let ((__tmp137513 + (let ((__tmp137495 (let () (declare (not safe)) - (slot-ref__0 _self132170_ 'slots))) - (__tmp137512 + (slot-ref__0 _self132152_ 'slots))) + (__tmp137494 (##structure-ref - _accessor132600_ + _accessor132582_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (hash-put! __tmp137513 __tmp137512 '#t)))))) - (___kont136240136241_ - (lambda (_L132477_ _L132478_ _L132479_) - (let* ((_mutator132506_ - (let ((__tmp137515 + (hash-put! __tmp137495 __tmp137494 '#t)))))) + (___kont136222136223_ + (lambda (_L132459_ _L132460_ _L132461_) + (let* ((_mutator132488_ + (let ((__tmp137497 (let () (declare (not safe)) - (gxc#identifier-symbol _L132479_)))) + (gxc#identifier-symbol _L132461_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp137515))) - (_klass132508_ - (let ((__tmp137516 + (gxc#optimizer-resolve-type __tmp137497))) + (_klass132490_ + (let ((__tmp137498 (##structure-ref - _mutator132506_ + _mutator132488_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx132171_ - __tmp137516))) - (_slot132510_ + _stx132153_ + __tmp137498))) + (_slot132492_ (##structure-ref - _mutator132506_ + _mutator132488_ '2 gxc#!mutator::t '#f))) - (if (and (let ((__tmp137518 + (if (and (let ((__tmp137500 (##structure-ref - _mutator132506_ + _mutator132488_ '3 gxc#!mutator::t '#f))) (declare (not safe)) - (not __tmp137518)) + (not __tmp137500)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass132508_ - _slot132510_)) + _klass132490_ + _slot132492_)) (##structure-ref - _klass132508_ + _klass132490_ '8 gxc#!class::t '#f))) '#!void - (let ((__tmp137517 + (let ((__tmp137499 (let () (declare (not safe)) - (slot-ref__0 _self132170_ 'slots)))) + (slot-ref__0 _self132152_ 'slots)))) (declare (not safe)) - (hash-put! __tmp137517 _slot132510_ '#t))) + (hash-put! __tmp137499 _slot132492_ '#t))) (let () (declare (not safe)) - (gxc#compile-e__1 _self132170_ _L132477_))))) - (___kont136242136243_ + (gxc#compile-e__1 _self132152_ _L132459_))))) + (___kont136224136225_ (lambda () (let () (declare (not safe)) - (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 + (gxc#apply-operands _self132152_ _stx132153_))))) + (let* ((___match136705136706_ + (lambda (_e132357132395_ + _hd132356132398_ + _tl132355132400_ + _e132360132403_ + _hd132359132406_ + _tl132358132408_ + _e132363132411_ + _hd132362132414_ + _tl132361132416_ + _e132366132419_ + _hd132365132422_ + _tl132364132424_ + _e132369132427_ + _hd132368132430_ + _tl132367132432_ + _e132372132435_ + _hd132371132438_ + _tl132370132440_ + _e132375132443_ + _hd132374132446_ + _tl132373132448_ + _e132378132451_ + _hd132377132454_ + _tl132376132456_) + (let ((_L132459_ _hd132377132454_) + (_L132460_ _hd132374132446_) + (_L132461_ _hd132365132422_)) + (if (and (let ((__tmp137502 + (let ((__tmp137503 (let () (declare (not safe)) (gxc#identifier-symbol - _L132479_)))) + _L132461_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp137521)))) + __tmp137503)))) (declare (not safe)) (##structure-instance-of? - __tmp137520 + __tmp137502 'gxc#!mutator::t)) - (let ((__tmp137519 + (let ((__tmp137501 (let () (declare (not safe)) (slot-ref__0 - _self132170_ + _self132152_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _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_) + _L132460_ + __tmp137501))) + (___kont136222136223_ + _L132459_ + _L132460_ + _L132461_) + (___kont136224136225_))))) + (___match136703136704_ + (lambda (_e132357132395_ + _hd132356132398_ + _tl132355132400_ + _e132360132403_ + _hd132359132406_ + _tl132358132408_ + _e132363132411_ + _hd132362132414_ + _tl132361132416_ + _e132366132419_ + _hd132365132422_ + _tl132364132424_ + _e132369132427_ + _hd132368132430_ + _tl132367132432_ + _e132372132435_ + _hd132371132438_ + _tl132370132440_ + _e132375132443_ + _hd132374132446_ + _tl132373132448_ + _e132378132451_ + _hd132377132454_ + _tl132376132456_) (if (let () (declare (not safe)) - (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_) + (gx#stx-null? _tl132376132456_)) + (___match136705136706_ + _e132357132395_ + _hd132356132398_ + _tl132355132400_ + _e132360132403_ + _hd132359132406_ + _tl132358132408_ + _e132363132411_ + _hd132362132414_ + _tl132361132416_ + _e132366132419_ + _hd132365132422_ + _tl132364132424_ + _e132369132427_ + _hd132368132430_ + _tl132367132432_ + _e132372132435_ + _hd132371132438_ + _tl132370132440_ + _e132375132443_ + _hd132374132446_ + _tl132373132448_ + _e132378132451_ + _hd132377132454_ + _tl132376132456_) + (___kont136224136225_)))) + (___match136697136698_ + (lambda (_e132357132395_ + _hd132356132398_ + _tl132355132400_ + _e132360132403_ + _hd132359132406_ + _tl132358132408_ + _e132363132411_ + _hd132362132414_ + _tl132361132416_ + _e132366132419_ + _hd132365132422_ + _tl132364132424_ + _e132369132427_ + _hd132368132430_ + _tl132367132432_ + _e132372132435_ + _hd132371132438_ + _tl132370132440_ + _e132375132443_ + _hd132374132446_ + _tl132373132448_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132385132450_)) - (let ((_e132396132469_ + (gx#stx-pair? _tl132367132432_)) + (let ((_e132378132451_ (let () (declare (not safe)) - (gx#stx-e _tl132385132450_)))) - (let ((_tl132394132474_ + (gx#stx-e _tl132367132432_)))) + (let ((_tl132376132456_ (let () (declare (not safe)) - (##cdr _e132396132469_))) - (_hd132395132472_ + (##cdr _e132378132451_))) + (_hd132377132454_ (let () (declare (not safe)) - (##car _e132396132469_)))) + (##car _e132378132451_)))) (if (let () (declare (not safe)) - (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 + (gx#stx-null? _tl132376132456_)) + (___match136705136706_ + _e132357132395_ + _hd132356132398_ + _tl132355132400_ + _e132360132403_ + _hd132359132406_ + _tl132358132408_ + _e132363132411_ + _hd132362132414_ + _tl132361132416_ + _e132366132419_ + _hd132365132422_ + _tl132364132424_ + _e132369132427_ + _hd132368132430_ + _tl132367132432_ + _e132372132435_ + _hd132371132438_ + _tl132370132440_ + _e132375132443_ + _hd132374132446_ + _tl132373132448_ + _e132378132451_ + _hd132377132454_ + _tl132376132456_) + (___kont136224136225_)))) + (___kont136224136225_)))) + (___match136643136644_ + (lambda (_e132333132503_ + _hd132332132506_ + _tl132331132508_ + _e132336132511_ + _hd132335132514_ + _tl132334132516_ + _e132339132519_ + _hd132338132522_ + _tl132337132524_ + _e132342132527_ + _hd132341132530_ + _tl132340132532_ + _e132345132535_ + _hd132344132538_ + _tl132343132540_ + _e132348132543_ + _hd132347132546_ + _tl132346132548_ + _e132351132551_ + _hd132350132554_ + _tl132349132556_) + (let ((_L132559_ _hd132350132554_) + (_L132560_ _hd132341132530_)) + (if (and (let ((__tmp137505 + (let ((__tmp137506 (let () (declare (not safe)) (gxc#identifier-symbol - _L132578_)))) + _L132560_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp137524)))) + __tmp137506)))) (declare (not safe)) (##structure-instance-of? - __tmp137523 + __tmp137505 'gxc#!accessor::t)) - (let ((__tmp137522 + (let ((__tmp137504 (let () (declare (not safe)) (slot-ref__0 - _self132170_ + _self132152_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _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_) + _L132559_ + __tmp137504))) + (___kont136220136221_ _L132559_ _L132560_) + (___kont136224136225_))))) + (___match136641136642_ + (lambda (_e132333132503_ + _hd132332132506_ + _tl132331132508_ + _e132336132511_ + _hd132335132514_ + _tl132334132516_ + _e132339132519_ + _hd132338132522_ + _tl132337132524_ + _e132342132527_ + _hd132341132530_ + _tl132340132532_ + _e132345132535_ + _hd132344132538_ + _tl132343132540_ + _e132348132543_ + _hd132347132546_ + _tl132346132548_ + _e132351132551_ + _hd132350132554_ + _tl132349132556_) (if (let () (declare (not safe)) - (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_)) + (gx#stx-null? _tl132343132540_)) + (___match136643136644_ + _e132333132503_ + _hd132332132506_ + _tl132331132508_ + _e132336132511_ + _hd132335132514_ + _tl132334132516_ + _e132339132519_ + _hd132338132522_ + _tl132337132524_ + _e132342132527_ + _hd132341132530_ + _tl132340132532_ + _e132345132535_ + _hd132344132538_ + _tl132343132540_ + _e132348132543_ + _hd132347132546_ + _tl132346132548_ + _e132351132551_ + _hd132350132554_ + _tl132349132556_) + (___match136697136698_ + _e132333132503_ + _hd132332132506_ + _tl132331132508_ + _e132336132511_ + _hd132335132514_ + _tl132334132516_ + _e132339132519_ + _hd132338132522_ + _tl132337132524_ + _e132342132527_ + _hd132341132530_ + _tl132340132532_ + _e132345132535_ + _hd132344132538_ + _tl132343132540_ + _e132348132543_ + _hd132347132546_ + _tl132346132548_ + _e132351132551_ + _hd132350132554_ + _tl132349132556_)))) + (___match136587136588_ + (lambda (_e132298132597_ + _hd132297132600_ + _tl132296132602_ + _e132301132605_ + _hd132300132608_ + _tl132299132610_ + _e132304132613_ + _hd132303132616_ + _tl132302132618_ + _e132307132621_ + _hd132306132624_ + _tl132305132626_ + _e132310132629_ + _hd132309132632_ + _tl132308132634_ + _e132313132637_ + _hd132312132640_ + _tl132311132642_ + _e132316132645_ + _hd132315132648_ + _tl132314132650_ + _e132319132653_ + _hd132318132656_ + _tl132317132658_ + _e132322132661_ + _hd132321132664_ + _tl132320132666_ + _e132325132669_ + _hd132324132672_ + _tl132323132674_ + _e132328132677_ + _hd132327132680_ + _tl132326132682_) + (let ((_L132685_ _hd132327132680_) + (_L132686_ _hd132324132672_) + (_L132687_ _hd132315132648_) + (_L132688_ _hd132306132624_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L132706_ + _L132688_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L132706_ + _L132688_ 'unchecked-slot-set!))) - (let ((__tmp137525 + (let ((__tmp137507 (let () (declare (not safe)) (slot-ref__0 - _self132170_ + _self132152_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _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_) + _L132687_ + __tmp137507))) + (___kont136218136219_ + _L132685_ + _L132686_ + _L132687_ + _L132688_) + (___kont136224136225_))))) + (___match136579136580_ + (lambda (_e132298132597_ + _hd132297132600_ + _tl132296132602_ + _e132301132605_ + _hd132300132608_ + _tl132299132610_ + _e132304132613_ + _hd132303132616_ + _tl132302132618_ + _e132307132621_ + _hd132306132624_ + _tl132305132626_ + _e132310132629_ + _hd132309132632_ + _tl132308132634_ + _e132313132637_ + _hd132312132640_ + _tl132311132642_ + _e132316132645_ + _hd132315132648_ + _tl132314132650_ + _e132319132653_ + _hd132318132656_ + _tl132317132658_ + _e132322132661_ + _hd132321132664_ + _tl132320132666_ + _e132325132669_ + _hd132324132672_ + _tl132323132674_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132335132676_)) - (let ((_e132346132695_ + (gx#stx-pair? _tl132317132658_)) + (let ((_e132328132677_ (let () (declare (not safe)) - (gx#stx-e _tl132335132676_)))) - (let ((_tl132344132700_ + (gx#stx-e _tl132317132658_)))) + (let ((_tl132326132682_ (let () (declare (not safe)) - (##cdr _e132346132695_))) - (_hd132345132698_ + (##cdr _e132328132677_))) + (_hd132327132680_ (let () (declare (not safe)) - (##car _e132346132695_)))) + (##car _e132328132677_)))) (if (let () (declare (not safe)) - (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_)) + (gx#stx-null? _tl132326132682_)) + (___match136587136588_ + _e132298132597_ + _hd132297132600_ + _tl132296132602_ + _e132301132605_ + _hd132300132608_ + _tl132299132610_ + _e132304132613_ + _hd132303132616_ + _tl132302132618_ + _e132307132621_ + _hd132306132624_ + _tl132305132626_ + _e132310132629_ + _hd132309132632_ + _tl132308132634_ + _e132313132637_ + _hd132312132640_ + _tl132311132642_ + _e132316132645_ + _hd132315132648_ + _tl132314132650_ + _e132319132653_ + _hd132318132656_ + _tl132317132658_ + _e132322132661_ + _hd132321132664_ + _tl132320132666_ + _e132325132669_ + _hd132324132672_ + _tl132323132674_ + _e132328132677_ + _hd132327132680_ + _tl132326132682_) + (___kont136224136225_)))) + (___match136703136704_ + _e132298132597_ + _hd132297132600_ + _tl132296132602_ + _e132301132605_ + _hd132300132608_ + _tl132299132610_ + _e132304132613_ + _hd132303132616_ + _tl132302132618_ + _e132307132621_ + _hd132306132624_ + _tl132305132626_ + _e132310132629_ + _hd132309132632_ + _tl132308132634_ + _e132313132637_ + _hd132312132640_ + _tl132311132642_ + _e132316132645_ + _hd132315132648_ + _tl132314132650_ + _e132319132653_ + _hd132318132656_ + _tl132317132658_)))) + (___match136501136502_ + (lambda (_e132264132728_ + _hd132263132731_ + _tl132262132733_ + _e132267132736_ + _hd132266132739_ + _tl132265132741_ + _e132270132744_ + _hd132269132747_ + _tl132268132749_ + _e132273132752_ + _hd132272132755_ + _tl132271132757_ + _e132276132760_ + _hd132275132763_ + _tl132274132765_ + _e132279132768_ + _hd132278132771_ + _tl132277132773_ + _e132282132776_ + _hd132281132779_ + _tl132280132781_ + _e132285132784_ + _hd132284132787_ + _tl132283132789_ + _e132288132792_ + _hd132287132795_ + _tl132286132797_ + _e132291132800_ + _hd132290132803_ + _tl132289132805_) + (let ((_L132808_ _hd132290132803_) + (_L132809_ _hd132281132779_) + (_L132810_ _hd132272132755_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L132828_ + _L132810_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L132828_ + _L132810_ 'unchecked-slot-ref))) - (let ((__tmp137526 + (let ((__tmp137508 (let () (declare (not safe)) (slot-ref__0 - _self132170_ + _self132152_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _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_) + _L132809_ + __tmp137508))) + (___kont136216136217_ + _L132808_ + _L132809_ + _L132810_) + (___match136705136706_ + _e132264132728_ + _hd132263132731_ + _tl132262132733_ + _e132267132736_ + _hd132266132739_ + _tl132265132741_ + _e132270132744_ + _hd132269132747_ + _tl132268132749_ + _e132273132752_ + _hd132272132755_ + _tl132271132757_ + _e132276132760_ + _hd132275132763_ + _tl132274132765_ + _e132279132768_ + _hd132278132771_ + _tl132277132773_ + _e132282132776_ + _hd132281132779_ + _tl132280132781_ + _e132285132784_ + _hd132284132787_ + _tl132283132789_))))) + (___match136499136500_ + (lambda (_e132264132728_ + _hd132263132731_ + _tl132262132733_ + _e132267132736_ + _hd132266132739_ + _tl132265132741_ + _e132270132744_ + _hd132269132747_ + _tl132268132749_ + _e132273132752_ + _hd132272132755_ + _tl132271132757_ + _e132276132760_ + _hd132275132763_ + _tl132274132765_ + _e132279132768_ + _hd132278132771_ + _tl132277132773_ + _e132282132776_ + _hd132281132779_ + _tl132280132781_ + _e132285132784_ + _hd132284132787_ + _tl132283132789_ + _e132288132792_ + _hd132287132795_ + _tl132286132797_ + _e132291132800_ + _hd132290132803_ + _tl132289132805_) (if (let () (declare (not safe)) - (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_) + (gx#stx-null? _tl132283132789_)) + (___match136501136502_ + _e132264132728_ + _hd132263132731_ + _tl132262132733_ + _e132267132736_ + _hd132266132739_ + _tl132265132741_ + _e132270132744_ + _hd132269132747_ + _tl132268132749_ + _e132273132752_ + _hd132272132755_ + _tl132271132757_ + _e132276132760_ + _hd132275132763_ + _tl132274132765_ + _e132279132768_ + _hd132278132771_ + _tl132277132773_ + _e132282132776_ + _hd132281132779_ + _tl132280132781_ + _e132285132784_ + _hd132284132787_ + _tl132283132789_ + _e132288132792_ + _hd132287132795_ + _tl132286132797_ + _e132291132800_ + _hd132290132803_ + _tl132289132805_) + (___match136579136580_ + _e132264132728_ + _hd132263132731_ + _tl132262132733_ + _e132267132736_ + _hd132266132739_ + _tl132265132741_ + _e132270132744_ + _hd132269132747_ + _tl132268132749_ + _e132273132752_ + _hd132272132755_ + _tl132271132757_ + _e132276132760_ + _hd132275132763_ + _tl132274132765_ + _e132279132768_ + _hd132278132771_ + _tl132277132773_ + _e132282132776_ + _hd132281132779_ + _tl132280132781_ + _e132285132784_ + _hd132284132787_ + _tl132283132789_ + _e132288132792_ + _hd132287132795_ + _tl132286132797_ + _e132291132800_ + _hd132290132803_ + _tl132289132805_)))) + (___match136489136490_ + (lambda (_e132264132728_ + _hd132263132731_ + _tl132262132733_ + _e132267132736_ + _hd132266132739_ + _tl132265132741_ + _e132270132744_ + _hd132269132747_ + _tl132268132749_ + _e132273132752_ + _hd132272132755_ + _tl132271132757_ + _e132276132760_ + _hd132275132763_ + _tl132274132765_ + _e132279132768_ + _hd132278132771_ + _tl132277132773_ + _e132282132776_ + _hd132281132779_ + _tl132280132781_ + _e132285132784_ + _hd132284132787_ + _tl132283132789_ + _e132288132792_ + _hd132287132795_ + _tl132286132797_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd132305132813_)) + (gx#stx-eq? '%#quote _hd132287132795_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132304132815_)) - (let ((_e132309132818_ + (gx#stx-pair? _tl132286132797_)) + (let ((_e132291132800_ (let () (declare (not safe)) - (gx#stx-e _tl132304132815_)))) - (let ((_tl132307132823_ + (gx#stx-e _tl132286132797_)))) + (let ((_tl132289132805_ (let () (declare (not safe)) - (##cdr _e132309132818_))) - (_hd132308132821_ + (##cdr _e132291132800_))) + (_hd132290132803_ (let () (declare (not safe)) - (##car _e132309132818_)))) + (##car _e132291132800_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132307132823_)) + (gx#stx-null? _tl132289132805_)) (if (let () (declare (not safe)) - (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_) + (gx#stx-null? _tl132283132789_)) + (___match136501136502_ + _e132264132728_ + _hd132263132731_ + _tl132262132733_ + _e132267132736_ + _hd132266132739_ + _tl132265132741_ + _e132270132744_ + _hd132269132747_ + _tl132268132749_ + _e132273132752_ + _hd132272132755_ + _tl132271132757_ + _e132276132760_ + _hd132275132763_ + _tl132274132765_ + _e132279132768_ + _hd132278132771_ + _tl132277132773_ + _e132282132776_ + _hd132281132779_ + _tl132280132781_ + _e132285132784_ + _hd132284132787_ + _tl132283132789_ + _e132288132792_ + _hd132287132795_ + _tl132286132797_ + _e132291132800_ + _hd132290132803_ + _tl132289132805_) + (___match136579136580_ + _e132264132728_ + _hd132263132731_ + _tl132262132733_ + _e132267132736_ + _hd132266132739_ + _tl132265132741_ + _e132270132744_ + _hd132269132747_ + _tl132268132749_ + _e132273132752_ + _hd132272132755_ + _tl132271132757_ + _e132276132760_ + _hd132275132763_ + _tl132274132765_ + _e132279132768_ + _hd132278132771_ + _tl132277132773_ + _e132282132776_ + _hd132281132779_ + _tl132280132781_ + _e132285132784_ + _hd132284132787_ + _tl132283132789_ + _e132288132792_ + _hd132287132795_ + _tl132286132797_ + _e132291132800_ + _hd132290132803_ + _tl132289132805_)) + (___match136703136704_ + _e132264132728_ + _hd132263132731_ + _tl132262132733_ + _e132267132736_ + _hd132266132739_ + _tl132265132741_ + _e132270132744_ + _hd132269132747_ + _tl132268132749_ + _e132273132752_ + _hd132272132755_ + _tl132271132757_ + _e132276132760_ + _hd132275132763_ + _tl132274132765_ + _e132279132768_ + _hd132278132771_ + _tl132277132773_ + _e132282132776_ + _hd132281132779_ + _tl132280132781_ + _e132285132784_ + _hd132284132787_ + _tl132283132789_)))) + (___match136703136704_ + _e132264132728_ + _hd132263132731_ + _tl132262132733_ + _e132267132736_ + _hd132266132739_ + _tl132265132741_ + _e132270132744_ + _hd132269132747_ + _tl132268132749_ + _e132273132752_ + _hd132272132755_ + _tl132271132757_ + _e132276132760_ + _hd132275132763_ + _tl132274132765_ + _e132279132768_ + _hd132278132771_ + _tl132277132773_ + _e132282132776_ + _hd132281132779_ + _tl132280132781_ + _e132285132784_ + _hd132284132787_ + _tl132283132789_)) + (___match136703136704_ + _e132264132728_ + _hd132263132731_ + _tl132262132733_ + _e132267132736_ + _hd132266132739_ + _tl132265132741_ + _e132270132744_ + _hd132269132747_ + _tl132268132749_ + _e132273132752_ + _hd132272132755_ + _tl132271132757_ + _e132276132760_ + _hd132275132763_ + _tl132274132765_ + _e132279132768_ + _hd132278132771_ + _tl132277132773_ + _e132282132776_ + _hd132281132779_ + _tl132280132781_ + _e132285132784_ + _hd132284132787_ + _tl132283132789_)))) + (___match136421136422_ + (lambda (_e132213132847_ + _hd132212132850_ + _tl132211132852_ + _e132216132855_ + _hd132215132858_ + _tl132214132860_ + _e132219132863_ + _hd132218132866_ + _tl132217132868_ + _e132222132871_ + _hd132221132874_ + _tl132220132876_ + _e132225132879_ + _hd132224132882_ + _tl132223132884_ + _e132228132887_ + _hd132227132890_ + _tl132226132892_ + _e132231132895_ + _hd132230132898_ + _tl132229132900_ + _e132234132903_ + _hd132233132906_ + _tl132232132908_ + _e132237132911_ + _hd132236132914_ + _tl132235132916_ + _e132240132919_ + _hd132239132922_ + _tl132238132924_ + _e132243132927_ + _hd132242132930_ + _tl132241132932_ + _e132246132935_ + _hd132245132938_ + _tl132244132940_ + _e132249132943_ + _hd132248132946_ + _tl132247132948_ + ___splice136214136215_ + _target132250132951_ + _tl132252132953_) + (letrec ((_loop132253132956_ + (lambda (_hd132251132959_ _args132257132961_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132269132977_)) - (let ((_e132272132982_ + (gx#stx-pair? _hd132251132959_)) + (let ((_e132254132964_ (let () (declare (not safe)) - (gx#stx-e _hd132269132977_)))) - (let ((_lp-tl132274132987_ + (gx#stx-e _hd132251132959_)))) + (let ((_lp-tl132256132969_ (let () (declare (not safe)) - (##cdr _e132272132982_))) - (_lp-hd132273132985_ + (##cdr _e132254132964_))) + (_lp-hd132255132967_ (let () (declare (not safe)) - (##car _e132272132982_)))) - (let ((__tmp137528 + (##car _e132254132964_)))) + (let ((__tmp137510 (let () (declare (not safe)) - (cons _lp-hd132273132985_ - _args132275132979_)))) + (cons _lp-hd132255132967_ + _args132257132961_)))) (declare (not safe)) - (_loop132271132974_ - _lp-tl132274132987_ - __tmp137528)))) - (let ((_args132276132990_ - (reverse _args132275132979_))) - (let ((_L132993_ _args132276132990_) - (_L132994_ _hd132266132964_) - (_L132995_ _hd132257132940_) - (_L132996_ _hd132248132916_) - (_L132997_ _hd132239132892_)) + (_loop132253132956_ + _lp-tl132256132969_ + __tmp137510)))) + (let ((_args132258132972_ + (reverse _args132257132961_))) + (let ((_L132975_ _args132258132972_) + (_L132976_ _hd132248132946_) + (_L132977_ _hd132239132922_) + (_L132978_ _hd132230132898_) + (_L132979_ _hd132221132874_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L132997_ + _L132979_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L132996_ + _L132978_ 'call-method)) - (let ((__tmp137527 + (let ((__tmp137509 (let () (declare (not safe)) (slot-ref__0 - _self132170_ + _self132152_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L132995_ - __tmp137527))) - (___kont136230136231_ - _L132993_ - _L132994_ - _L132995_ - _L132996_ - _L132997_) - (___kont136242136243_)))))))) + _L132977_ + __tmp137509))) + (___kont136212136213_ + _L132975_ + _L132976_ + _L132977_ + _L132978_ + _L132979_) + (___kont136224136225_)))))))) (let () (declare (not safe)) - (_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_) + (_loop132253132956_ _target132250132951_ '()))))) + (___match136379136380_ + (lambda (_e132213132847_ + _hd132212132850_ + _tl132211132852_ + _e132216132855_ + _hd132215132858_ + _tl132214132860_ + _e132219132863_ + _hd132218132866_ + _tl132217132868_ + _e132222132871_ + _hd132221132874_ + _tl132220132876_ + _e132225132879_ + _hd132224132882_ + _tl132223132884_ + _e132228132887_ + _hd132227132890_ + _tl132226132892_ + _e132231132895_ + _hd132230132898_ + _tl132229132900_ + _e132234132903_ + _hd132233132906_ + _tl132232132908_ + _e132237132911_ + _hd132236132914_ + _tl132235132916_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd132254132932_)) + (gx#stx-eq? '%#ref _hd132236132914_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132253132934_)) - (let ((_e132258132937_ + (gx#stx-pair? _tl132235132916_)) + (let ((_e132240132919_ (let () (declare (not safe)) - (gx#stx-e _tl132253132934_)))) - (let ((_tl132256132942_ + (gx#stx-e _tl132235132916_)))) + (let ((_tl132238132924_ (let () (declare (not safe)) - (##cdr _e132258132937_))) - (_hd132257132940_ + (##cdr _e132240132919_))) + (_hd132239132922_ (let () (declare (not safe)) - (##car _e132258132937_)))) + (##car _e132240132919_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132256132942_)) + (gx#stx-null? _tl132238132924_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132250132926_)) - (let ((_e132261132945_ + (gx#stx-pair? _tl132232132908_)) + (let ((_e132243132927_ (let () (declare (not safe)) (gx#stx-e - _tl132250132926_)))) - (let ((_tl132259132950_ + _tl132232132908_)))) + (let ((_tl132241132932_ (let () (declare (not safe)) - (##cdr _e132261132945_))) - (_hd132260132948_ + (##cdr _e132243132927_))) + (_hd132242132930_ (let () (declare (not safe)) - (##car _e132261132945_)))) + (##car _e132243132927_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd132260132948_)) - (let ((_e132264132953_ + _hd132242132930_)) + (let ((_e132246132935_ (let () (declare (not safe)) (gx#stx-e - _hd132260132948_)))) - (let ((_tl132262132958_ + _hd132242132930_)))) + (let ((_tl132244132940_ (let () (declare (not safe)) - (##cdr _e132264132953_))) - (_hd132263132956_ + (##cdr _e132246132935_))) + (_hd132245132938_ (let () (declare (not safe)) - (##car _e132264132953_)))) + (##car _e132246132935_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd132263132956_)) + _hd132245132938_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd132263132956_)) + (gx#stx-eq? '%#quote _hd132245132938_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132262132958_)) - (let ((_e132267132961_ + (gx#stx-pair? _tl132244132940_)) + (let ((_e132249132943_ (let () (declare (not safe)) - (gx#stx-e _tl132262132958_)))) - (let ((_tl132265132966_ + (gx#stx-e _tl132244132940_)))) + (let ((_tl132247132948_ (let () (declare (not safe)) - (##cdr _e132267132961_))) - (_hd132266132964_ + (##cdr _e132249132943_))) + (_hd132248132946_ (let () (declare (not safe)) - (##car _e132267132961_)))) + (##car _e132249132943_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl132265132966_)) + (gx#stx-null? _tl132247132948_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl132259132950_)) - (let ((___splice136232136233_ + (gx#stx-pair/null? _tl132241132932_)) + (let ((___splice136214136215_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl132259132950_ + _tl132241132932_ '0)))) - (let ((_tl132270132971_ + (let ((_tl132252132953_ (let () (declare (not safe)) (##vector-ref - ___splice136232136233_ + ___splice136214136215_ '1))) - (_target132268132969_ + (_target132250132951_ (let () (declare (not safe)) (##vector-ref - ___splice136232136233_ + ___splice136214136215_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _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_)))) + _tl132252132953_)) + (___match136421136422_ + _e132213132847_ + _hd132212132850_ + _tl132211132852_ + _e132216132855_ + _hd132215132858_ + _tl132214132860_ + _e132219132863_ + _hd132218132866_ + _tl132217132868_ + _e132222132871_ + _hd132221132874_ + _tl132220132876_ + _e132225132879_ + _hd132224132882_ + _tl132223132884_ + _e132228132887_ + _hd132227132890_ + _tl132226132892_ + _e132231132895_ + _hd132230132898_ + _tl132229132900_ + _e132234132903_ + _hd132233132906_ + _tl132232132908_ + _e132237132911_ + _hd132236132914_ + _tl132235132916_ + _e132240132919_ + _hd132239132922_ + _tl132238132924_ + _e132243132927_ + _hd132242132930_ + _tl132241132932_ + _e132246132935_ + _hd132245132938_ + _tl132244132940_ + _e132249132943_ + _hd132248132946_ + _tl132247132948_ + ___splice136214136215_ + _target132250132951_ + _tl132252132953_) + (___kont136224136225_)))) + (___kont136224136225_)) + (___kont136224136225_)))) + (___kont136224136225_)) + (___kont136224136225_)) + (___kont136224136225_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_) + (___kont136224136225_)))) + (___match136703136704_ + _e132213132847_ + _hd132212132850_ + _tl132211132852_ + _e132216132855_ + _hd132215132858_ + _tl132214132860_ + _e132219132863_ + _hd132218132866_ + _tl132217132868_ + _e132222132871_ + _hd132221132874_ + _tl132220132876_ + _e132225132879_ + _hd132224132882_ + _tl132223132884_ + _e132228132887_ + _hd132227132890_ + _tl132226132892_ + _e132231132895_ + _hd132230132898_ + _tl132229132900_ + _e132234132903_ + _hd132233132906_ + _tl132232132908_)) + (___match136703136704_ + _e132213132847_ + _hd132212132850_ + _tl132211132852_ + _e132216132855_ + _hd132215132858_ + _tl132214132860_ + _e132219132863_ + _hd132218132866_ + _tl132217132868_ + _e132222132871_ + _hd132221132874_ + _tl132220132876_ + _e132225132879_ + _hd132224132882_ + _tl132223132884_ + _e132228132887_ + _hd132227132890_ + _tl132226132892_ + _e132231132895_ + _hd132230132898_ + _tl132229132900_ + _e132234132903_ + _hd132233132906_ + _tl132232132908_)))) + (___match136703136704_ + _e132213132847_ + _hd132212132850_ + _tl132211132852_ + _e132216132855_ + _hd132215132858_ + _tl132214132860_ + _e132219132863_ + _hd132218132866_ + _tl132217132868_ + _e132222132871_ + _hd132221132874_ + _tl132220132876_ + _e132225132879_ + _hd132224132882_ + _tl132223132884_ + _e132228132887_ + _hd132227132890_ + _tl132226132892_ + _e132231132895_ + _hd132230132898_ + _tl132229132900_ + _e132234132903_ + _hd132233132906_ + _tl132232132908_)) + (___match136489136490_ + _e132213132847_ + _hd132212132850_ + _tl132211132852_ + _e132216132855_ + _hd132215132858_ + _tl132214132860_ + _e132219132863_ + _hd132218132866_ + _tl132217132868_ + _e132222132871_ + _hd132221132874_ + _tl132220132876_ + _e132225132879_ + _hd132224132882_ + _tl132223132884_ + _e132228132887_ + _hd132227132890_ + _tl132226132892_ + _e132231132895_ + _hd132230132898_ + _tl132229132900_ + _e132234132903_ + _hd132233132906_ + _tl132232132908_ + _e132237132911_ + _hd132236132914_ + _tl132235132916_)))) + (___match136311136312_ + (lambda (_e132169133036_ + _hd132168133039_ + _tl132167133041_ + _e132172133044_ + _hd132171133047_ + _tl132170133049_ + _e132175133052_ + _hd132174133055_ + _tl132173133057_ + _e132178133060_ + _hd132177133063_ + _tl132176133065_ + _e132181133068_ + _hd132180133071_ + _tl132179133073_ + _e132184133076_ + _hd132183133079_ + _tl132182133081_ + _e132187133084_ + _hd132186133087_ + _tl132185133089_ + _e132190133092_ + _hd132189133095_ + _tl132188133097_ + _e132193133100_ + _hd132192133103_ + _tl132191133105_ + _e132196133108_ + _hd132195133111_ + _tl132194133113_ + ___splice136210136211_ + _target132197133116_ + _tl132199133118_) + (letrec ((_loop132200133121_ + (lambda (_hd132198133124_ _args132204133126_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132216133142_)) - (let ((_e132219133147_ + (gx#stx-pair? _hd132198133124_)) + (let ((_e132201133129_ (let () (declare (not safe)) - (gx#stx-e _hd132216133142_)))) - (let ((_lp-tl132221133152_ + (gx#stx-e _hd132198133124_)))) + (let ((_lp-tl132203133134_ (let () (declare (not safe)) - (##cdr _e132219133147_))) - (_lp-hd132220133150_ + (##cdr _e132201133129_))) + (_lp-hd132202133132_ (let () (declare (not safe)) - (##car _e132219133147_)))) - (let ((__tmp137530 + (##car _e132201133129_)))) + (let ((__tmp137512 (let () (declare (not safe)) - (cons _lp-hd132220133150_ - _args132222133144_)))) + (cons _lp-hd132202133132_ + _args132204133126_)))) (declare (not safe)) - (_loop132218133139_ - _lp-tl132221133152_ - __tmp137530)))) - (let ((_args132223133155_ - (reverse _args132222133144_))) - (let ((_L133158_ _args132223133155_) - (_L133159_ _hd132213133129_) - (_L133160_ _hd132204133105_) - (_L133161_ _hd132195133081_)) + (_loop132200133121_ + _lp-tl132203133134_ + __tmp137512)))) + (let ((_args132205133137_ + (reverse _args132204133126_))) + (let ((_L133140_ _args132205133137_) + (_L133141_ _hd132195133111_) + (_L133142_ _hd132186133087_) + (_L133143_ _hd132177133063_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L133161_ + _L133143_ 'call-method)) - (let ((__tmp137529 + (let ((__tmp137511 (let () (declare (not safe)) (slot-ref__0 - _self132170_ + _self132152_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _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_)))))))) + _L133142_ + __tmp137511))) + (___kont136208136209_ + _L133140_ + _L133141_ + _L133142_ + _L133143_) + (___match136499136500_ + _e132169133036_ + _hd132168133039_ + _tl132167133041_ + _e132172133044_ + _hd132171133047_ + _tl132170133049_ + _e132175133052_ + _hd132174133055_ + _tl132173133057_ + _e132178133060_ + _hd132177133063_ + _tl132176133065_ + _e132181133068_ + _hd132180133071_ + _tl132179133073_ + _e132184133076_ + _hd132183133079_ + _tl132182133081_ + _e132187133084_ + _hd132186133087_ + _tl132185133089_ + _e132190133092_ + _hd132189133095_ + _tl132188133097_ + _e132193133100_ + _hd132192133103_ + _tl132191133105_ + _e132196133108_ + _hd132195133111_ + _tl132194133113_)))))))) (let () (declare (not safe)) - (_loop132218133139_ _target132215133134_ '())))))) + (_loop132200133121_ _target132197133116_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx136224136225_)) - (let ((_e132187133054_ + (gx#stx-pair? ___stx136206136207_)) + (let ((_e132169133036_ (let () (declare (not safe)) - (gx#stx-e ___stx136224136225_)))) - (let ((_tl132185133059_ + (gx#stx-e ___stx136206136207_)))) + (let ((_tl132167133041_ (let () (declare (not safe)) - (##cdr _e132187133054_))) - (_hd132186133057_ + (##cdr _e132169133036_))) + (_hd132168133039_ (let () (declare (not safe)) - (##car _e132187133054_)))) + (##car _e132169133036_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132185133059_)) - (let ((_e132190133062_ + (gx#stx-pair? _tl132167133041_)) + (let ((_e132172133044_ (let () (declare (not safe)) - (gx#stx-e _tl132185133059_)))) - (let ((_tl132188133067_ + (gx#stx-e _tl132167133041_)))) + (let ((_tl132170133049_ (let () (declare (not safe)) - (##cdr _e132190133062_))) - (_hd132189133065_ + (##cdr _e132172133044_))) + (_hd132171133047_ (let () (declare (not safe)) - (##car _e132190133062_)))) + (##car _e132172133044_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132189133065_)) - (let ((_e132193133070_ + (gx#stx-pair? _hd132171133047_)) + (let ((_e132175133052_ (let () (declare (not safe)) - (gx#stx-e _hd132189133065_)))) - (let ((_tl132191133075_ + (gx#stx-e _hd132171133047_)))) + (let ((_tl132173133057_ (let () (declare (not safe)) - (##cdr _e132193133070_))) - (_hd132192133073_ + (##cdr _e132175133052_))) + (_hd132174133055_ (let () (declare (not safe)) - (##car _e132193133070_)))) + (##car _e132175133052_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd132192133073_)) + (gx#identifier? _hd132174133055_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd132192133073_)) + _hd132174133055_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132191133075_)) - (let ((_e132196133078_ + _tl132173133057_)) + (let ((_e132178133060_ (let () (declare (not safe)) (gx#stx-e - _tl132191133075_)))) - (let ((_tl132194133083_ + _tl132173133057_)))) + (let ((_tl132176133065_ (let () (declare (not safe)) - (##cdr _e132196133078_))) - (_hd132195133081_ + (##cdr _e132178133060_))) + (_hd132177133063_ (let () (declare (not safe)) - (##car _e132196133078_)))) + (##car _e132178133060_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132194133083_)) + _tl132176133065_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl132188133067_)) - (let ((_e132199133086_ + (gx#stx-pair? _tl132170133049_)) + (let ((_e132181133068_ (let () (declare (not safe)) - (gx#stx-e _tl132188133067_)))) - (let ((_tl132197133091_ + (gx#stx-e _tl132170133049_)))) + (let ((_tl132179133073_ (let () (declare (not safe)) - (##cdr _e132199133086_))) - (_hd132198133089_ + (##cdr _e132181133068_))) + (_hd132180133071_ (let () (declare (not safe)) - (##car _e132199133086_)))) + (##car _e132181133068_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132198133089_)) - (let ((_e132202133094_ + (gx#stx-pair? _hd132180133071_)) + (let ((_e132184133076_ (let () (declare (not safe)) - (gx#stx-e _hd132198133089_)))) - (let ((_tl132200133099_ + (gx#stx-e _hd132180133071_)))) + (let ((_tl132182133081_ (let () (declare (not safe)) - (##cdr _e132202133094_))) - (_hd132201133097_ + (##cdr _e132184133076_))) + (_hd132183133079_ (let () (declare (not safe)) - (##car _e132202133094_)))) + (##car _e132184133076_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd132201133097_)) + (gx#identifier? _hd132183133079_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd132201133097_)) + _hd132183133079_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132200133099_)) - (let ((_e132205133102_ + _tl132182133081_)) + (let ((_e132187133084_ (let () (declare (not safe)) (gx#stx-e - _tl132200133099_)))) - (let ((_tl132203133107_ + _tl132182133081_)))) + (let ((_tl132185133089_ (let () (declare (not safe)) - (##cdr _e132205133102_))) - (_hd132204133105_ + (##cdr _e132187133084_))) + (_hd132186133087_ (let () (declare (not safe)) - (##car _e132205133102_)))) + (##car _e132187133084_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132203133107_)) + _tl132185133089_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl132197133091_)) - (let ((_e132208133110_ + _tl132179133073_)) + (let ((_e132190133092_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl132197133091_)))) - (let ((_tl132206133115_ + (gx#stx-e _tl132179133073_)))) + (let ((_tl132188133097_ (let () (declare (not safe)) - (##cdr _e132208133110_))) - (_hd132207133113_ + (##cdr _e132190133092_))) + (_hd132189133095_ (let () (declare (not safe)) - (##car _e132208133110_)))) + (##car _e132190133092_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd132207133113_)) - (let ((_e132211133118_ + (gx#stx-pair? _hd132189133095_)) + (let ((_e132193133100_ (let () (declare (not safe)) - (gx#stx-e _hd132207133113_)))) - (let ((_tl132209133123_ + (gx#stx-e _hd132189133095_)))) + (let ((_tl132191133105_ (let () (declare (not safe)) - (##cdr _e132211133118_))) - (_hd132210133121_ + (##cdr _e132193133100_))) + (_hd132192133103_ (let () (declare (not safe)) - (##car _e132211133118_)))) + (##car _e132193133100_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd132210133121_)) + (gx#identifier? _hd132192133103_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd132210133121_)) + (gx#stx-eq? '%#quote _hd132192133103_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl132209133123_)) - (let ((_e132214133126_ + (gx#stx-pair? _tl132191133105_)) + (let ((_e132196133108_ (let () (declare (not safe)) (gx#stx-e - _tl132209133123_)))) - (let ((_tl132212133131_ + _tl132191133105_)))) + (let ((_tl132194133113_ (let () (declare (not safe)) - (##cdr _e132214133126_))) - (_hd132213133129_ + (##cdr _e132196133108_))) + (_hd132195133111_ (let () (declare (not safe)) - (##car _e132214133126_)))) + (##car _e132196133108_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl132212133131_)) + _tl132194133113_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl132206133115_)) - (let ((___splice136228136229_ + _tl132188133097_)) + (let ((___splice136210136211_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl132206133115_ '0)))) - (let ((_tl132217133136_ + (gx#syntax-split-splice _tl132188133097_ '0)))) + (let ((_tl132199133118_ (let () (declare (not safe)) - (##vector-ref ___splice136228136229_ '1))) - (_target132215133134_ + (##vector-ref ___splice136210136211_ '1))) + (_target132197133116_ (let () (declare (not safe)) - (##vector-ref ___splice136228136229_ '0)))) + (##vector-ref ___splice136210136211_ '0)))) (if (let () (declare (not safe)) - (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_)) + (gx#stx-null? _tl132199133118_)) + (___match136311136312_ + _e132169133036_ + _hd132168133039_ + _tl132167133041_ + _e132172133044_ + _hd132171133047_ + _tl132170133049_ + _e132175133052_ + _hd132174133055_ + _tl132173133057_ + _e132178133060_ + _hd132177133063_ + _tl132176133065_ + _e132181133068_ + _hd132180133071_ + _tl132179133073_ + _e132184133076_ + _hd132183133079_ + _tl132182133081_ + _e132187133084_ + _hd132186133087_ + _tl132185133089_ + _e132190133092_ + _hd132189133095_ + _tl132188133097_ + _e132193133100_ + _hd132192133103_ + _tl132191133105_ + _e132196133108_ + _hd132195133111_ + _tl132194133113_ + ___splice136210136211_ + _target132197133116_ + _tl132199133118_) + (___match136499136500_ + _e132169133036_ + _hd132168133039_ + _tl132167133041_ + _e132172133044_ + _hd132171133047_ + _tl132170133049_ + _e132175133052_ + _hd132174133055_ + _tl132173133057_ + _e132178133060_ + _hd132177133063_ + _tl132176133065_ + _e132181133068_ + _hd132180133071_ + _tl132179133073_ + _e132184133076_ + _hd132183133079_ + _tl132182133081_ + _e132187133084_ + _hd132186133087_ + _tl132185133089_ + _e132190133092_ + _hd132189133095_ + _tl132188133097_ + _e132193133100_ + _hd132192133103_ + _tl132191133105_ + _e132196133108_ + _hd132195133111_ + _tl132194133113_)))) + (___match136499136500_ + _e132169133036_ + _hd132168133039_ + _tl132167133041_ + _e132172133044_ + _hd132171133047_ + _tl132170133049_ + _e132175133052_ + _hd132174133055_ + _tl132173133057_ + _e132178133060_ + _hd132177133063_ + _tl132176133065_ + _e132181133068_ + _hd132180133071_ + _tl132179133073_ + _e132184133076_ + _hd132183133079_ + _tl132182133081_ + _e132187133084_ + _hd132186133087_ + _tl132185133089_ + _e132190133092_ + _hd132189133095_ + _tl132188133097_ + _e132193133100_ + _hd132192133103_ + _tl132191133105_ + _e132196133108_ + _hd132195133111_ + _tl132194133113_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_)))) + (___match136703136704_ + _e132169133036_ + _hd132168133039_ + _tl132167133041_ + _e132172133044_ + _hd132171133047_ + _tl132170133049_ + _e132175133052_ + _hd132174133055_ + _tl132173133057_ + _e132178133060_ + _hd132177133063_ + _tl132176133065_ + _e132181133068_ + _hd132180133071_ + _tl132179133073_ + _e132184133076_ + _hd132183133079_ + _tl132182133081_ + _e132187133084_ + _hd132186133087_ + _tl132185133089_ + _e132190133092_ + _hd132189133095_ + _tl132188133097_)))) + (___match136703136704_ + _e132169133036_ + _hd132168133039_ + _tl132167133041_ + _e132172133044_ + _hd132171133047_ + _tl132170133049_ + _e132175133052_ + _hd132174133055_ + _tl132173133057_ + _e132178133060_ + _hd132177133063_ + _tl132176133065_ + _e132181133068_ + _hd132180133071_ + _tl132179133073_ + _e132184133076_ + _hd132183133079_ + _tl132182133081_ + _e132187133084_ + _hd132186133087_ + _tl132185133089_ + _e132190133092_ + _hd132189133095_ + _tl132188133097_)) + (___match136379136380_ + _e132169133036_ + _hd132168133039_ + _tl132167133041_ + _e132172133044_ + _hd132171133047_ + _tl132170133049_ + _e132175133052_ + _hd132174133055_ + _tl132173133057_ + _e132178133060_ + _hd132177133063_ + _tl132176133065_ + _e132181133068_ + _hd132180133071_ + _tl132179133073_ + _e132184133076_ + _hd132183133079_ + _tl132182133081_ + _e132187133084_ + _hd132186133087_ + _tl132185133089_ + _e132190133092_ + _hd132189133095_ + _tl132188133097_ + _e132193133100_ + _hd132192133103_ + _tl132191133105_)) + (___match136703136704_ + _e132169133036_ + _hd132168133039_ + _tl132167133041_ + _e132172133044_ + _hd132171133047_ + _tl132170133049_ + _e132175133052_ + _hd132174133055_ + _tl132173133057_ + _e132178133060_ + _hd132177133063_ + _tl132176133065_ + _e132181133068_ + _hd132180133071_ + _tl132179133073_ + _e132184133076_ + _hd132183133079_ + _tl132182133081_ + _e132187133084_ + _hd132186133087_ + _tl132185133089_ + _e132190133092_ + _hd132189133095_ + _tl132188133097_)))) + (___match136703136704_ + _e132169133036_ + _hd132168133039_ + _tl132167133041_ + _e132172133044_ + _hd132171133047_ + _tl132170133049_ + _e132175133052_ + _hd132174133055_ + _tl132173133057_ + _e132178133060_ + _hd132177133063_ + _tl132176133065_ + _e132181133068_ + _hd132180133071_ + _tl132179133073_ + _e132184133076_ + _hd132183133079_ + _tl132182133081_ + _e132187133084_ + _hd132186133087_ + _tl132185133089_ + _e132190133092_ + _hd132189133095_ + _tl132188133097_)))) + (___match136641136642_ + _e132169133036_ + _hd132168133039_ + _tl132167133041_ + _e132172133044_ + _hd132171133047_ + _tl132170133049_ + _e132175133052_ + _hd132174133055_ + _tl132173133057_ + _e132178133060_ + _hd132177133063_ + _tl132176133065_ + _e132181133068_ + _hd132180133071_ + _tl132179133073_ + _e132184133076_ + _hd132183133079_ + _tl132182133081_ + _e132187133084_ + _hd132186133087_ + _tl132185133089_)) + (___kont136224136225_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136242136243_)) - (___kont136242136243_)) - (___kont136242136243_)))) - (___kont136242136243_)))) - (___kont136242136243_)) - (___kont136242136243_)))) + (___kont136224136225_)) + (___kont136224136225_)) + (___kont136224136225_)))) + (___kont136224136225_)))) + (___kont136224136225_)) + (___kont136224136225_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136242136243_)) - (___kont136242136243_)) - (___kont136242136243_)))) - (___kont136242136243_)))) - (___kont136242136243_)))) - (___kont136242136243_))))))) + (___kont136224136225_)) + (___kont136224136225_)) + (___kont136224136225_)))) + (___kont136224136225_)))) + (___kont136224136225_)))) + (___kont136224136225_))))))) (define gxc#subst-object-refs-call% - (lambda (_self131109_ _stx131110_) - (letrec ((_force-e131112_ - (lambda (_target132168_) - (let ((__tmp137531 - (let ((__tmp137535 - (let ((__tmp137536 + (lambda (_self131091_ _stx131092_) + (letrec ((_force-e131094_ + (lambda (_target132150_) + (let ((__tmp137513 + (let ((__tmp137517 + (let ((__tmp137518 (let () (declare (not safe)) (cons 'force '())))) (declare (not safe)) - (cons '%#ref __tmp137536))) - (__tmp137532 - (let ((__tmp137533 - (let ((__tmp137534 + (cons '%#ref __tmp137518))) + (__tmp137514 + (let ((__tmp137515 + (let ((__tmp137516 (let () (declare (not safe)) - (cons _target132168_ '())))) + (cons _target132150_ '())))) (declare (not safe)) - (cons '%#ref __tmp137534)))) + (cons '%#ref __tmp137516)))) (declare (not safe)) - (cons __tmp137533 '())))) + (cons __tmp137515 '())))) (declare (not safe)) - (cons __tmp137535 __tmp137532)))) + (cons __tmp137517 __tmp137514)))) (declare (not safe)) - (cons '%#call __tmp137531))))) - (let* ((___stx136726136727_ _stx131110_) - (_g131120131342_ + (cons '%#call __tmp137513))))) + (let* ((___stx136708136709_ _stx131092_) + (_g131102131324_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx136726136727_))))) - (let ((___kont136728136729_ - (lambda (_L132114_ _L132115_ _L132116_ _L132117_) - (let ((_$method132162_ - (let ((__tmp137538 + ___stx136708136709_))))) + (let ((___kont136710136711_ + (lambda (_L132096_ _L132097_ _L132098_ _L132099_) + (let ((_$method132144_ + (let ((__tmp137520 (let () (declare (not safe)) - (slot-ref__0 _self131109_ 'methods))) - (__tmp137537 + (slot-ref__0 _self131091_ 'methods))) + (__tmp137519 (let () (declare (not safe)) - (gx#stx-e _L132115_)))) + (gx#stx-e _L132097_)))) (declare (not safe)) - (hash-ref__0 __tmp137538 __tmp137537))) - (_args132163_ - (map (lambda (_g132150132152_) + (hash-ref__0 __tmp137520 __tmp137519))) + (_args132145_ + (map (lambda (_g132132132134_) (let () (declare (not safe)) (gxc#compile-e__1 - _self131109_ - _g132150132152_))) - (let ((__tmp137539 - (lambda (_g132154132157_ - _g132155132159_) + _self131091_ + _g132132132134_))) + (let ((__tmp137521 + (lambda (_g132136132139_ + _g132137132141_) (let () (declare (not safe)) - (cons _g132154132157_ - _g132155132159_))))) + (cons _g132136132139_ + _g132137132141_))))) (declare (not safe)) - (foldr1 __tmp137539 '() _L132114_))))) - (let ((__tmp137540 - (let ((__tmp137541 - (let ((__tmp137546 + (foldr1 __tmp137521 '() _L132096_))))) + (let ((__tmp137522 + (let ((__tmp137523 + (let ((__tmp137528 (let () (declare (not safe)) - (_force-e131112_ - _$method132162_))) - (__tmp137542 - (let ((__tmp137543 - (let ((__tmp137544 - (let ((__tmp137545 + (_force-e131094_ + _$method132144_))) + (__tmp137524 + (let ((__tmp137525 + (let ((__tmp137526 + (let ((__tmp137527 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _self131109_ 'receiver)))) + (slot-ref__0 _self131091_ 'receiver)))) (declare (not safe)) - (cons __tmp137545 '())))) + (cons __tmp137527 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp137544)))) + __tmp137526)))) (declare (not safe)) - (cons __tmp137543 - _args132163_)))) + (cons __tmp137525 + _args132145_)))) (declare (not safe)) - (cons __tmp137546 __tmp137542)))) + (cons __tmp137528 __tmp137524)))) (declare (not safe)) - (cons '%#call __tmp137541)))) + (cons '%#call __tmp137523)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137540 _stx131110_))))) - (___kont136732136733_ - (lambda (_L131946_ _L131947_ _L131948_ _L131949_ _L131950_) - (let ((_$method132002_ - (let ((__tmp137548 + (gxc#xform-wrap-source __tmp137522 _stx131092_))))) + (___kont136714136715_ + (lambda (_L131928_ _L131929_ _L131930_ _L131931_ _L131932_) + (let ((_$method131984_ + (let ((__tmp137530 (let () (declare (not safe)) - (slot-ref__0 _self131109_ 'methods))) - (__tmp137547 + (slot-ref__0 _self131091_ 'methods))) + (__tmp137529 (let () (declare (not safe)) - (gx#stx-e _L131947_)))) + (gx#stx-e _L131929_)))) (declare (not safe)) - (hash-ref__0 __tmp137548 __tmp137547))) - (_args132003_ - (map (lambda (_g131990131992_) + (hash-ref__0 __tmp137530 __tmp137529))) + (_args131985_ + (map (lambda (_g131972131974_) (let () (declare (not safe)) (gxc#compile-e__1 - _self131109_ - _g131990131992_))) - (let ((__tmp137549 - (lambda (_g131994131997_ - _g131995131999_) + _self131091_ + _g131972131974_))) + (let ((__tmp137531 + (lambda (_g131976131979_ + _g131977131981_) (let () (declare (not safe)) - (cons _g131994131997_ - _g131995131999_))))) + (cons _g131976131979_ + _g131977131981_))))) (declare (not safe)) - (foldr1 __tmp137549 '() _L131946_))))) - (let ((__tmp137550 - (let ((__tmp137551 - (let ((__tmp137558 - (let ((__tmp137559 + (foldr1 __tmp137531 '() _L131928_))))) + (let ((__tmp137532 + (let ((__tmp137533 + (let ((__tmp137540 + (let ((__tmp137541 (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp137559))) - (__tmp137552 - (let ((__tmp137557 + (cons '%#ref __tmp137541))) + (__tmp137534 + (let ((__tmp137539 (let () (declare (not safe)) - (_force-e131112_ - _$method132002_))) - (__tmp137553 - (let ((__tmp137554 - (let ((__tmp137555 + (_force-e131094_ + _$method131984_))) + (__tmp137535 + (let ((__tmp137536 + (let ((__tmp137537 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137556 + (let ((__tmp137538 (let () (declare (not safe)) - (slot-ref__0 _self131109_ 'receiver)))) + (slot-ref__0 _self131091_ 'receiver)))) (declare (not safe)) - (cons __tmp137556 '())))) + (cons __tmp137538 '())))) (declare (not safe)) - (cons '%#ref __tmp137555)))) + (cons '%#ref __tmp137537)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137554 - _args132003_)))) + (cons __tmp137536 + _args131985_)))) (declare (not safe)) - (cons __tmp137557 __tmp137553)))) + (cons __tmp137539 __tmp137535)))) (declare (not safe)) - (cons __tmp137558 __tmp137552)))) + (cons __tmp137540 __tmp137534)))) (declare (not safe)) - (cons '%#call __tmp137551)))) + (cons '%#call __tmp137533)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137550 _stx131110_))))) - (___kont136736136737_ - (lambda (_L131777_ _L131778_ _L131779_) - (let* ((_$field131811_ - (let ((__tmp137561 + (gxc#xform-wrap-source __tmp137532 _stx131092_))))) + (___kont136718136719_ + (lambda (_L131759_ _L131760_ _L131761_) + (let* ((_$field131793_ + (let ((__tmp137543 (let () (declare (not safe)) - (slot-ref__0 _self131109_ 'slots))) - (__tmp137560 + (slot-ref__0 _self131091_ 'slots))) + (__tmp137542 (let () (declare (not safe)) - (gx#stx-e _L131777_)))) + (gx#stx-e _L131759_)))) (declare (not safe)) - (hash-ref__0 __tmp137561 __tmp137560))) - (__tmp137562 - (let ((__tmp137563 - (let ((__tmp137571 - (let ((__tmp137572 - (let ((__tmp137573 + (hash-ref__0 __tmp137543 __tmp137542))) + (__tmp137544 + (let ((__tmp137545 + (let ((__tmp137553 + (let ((__tmp137554 + (let ((__tmp137555 (let () (declare (not safe)) (slot-ref__0 - _self131109_ + _self131091_ 'klass)))) (declare (not safe)) - (cons __tmp137573 '())))) + (cons __tmp137555 '())))) (declare (not safe)) - (cons '%#ref __tmp137572))) - (__tmp137564 - (let ((__tmp137569 - (let ((__tmp137570 + (cons '%#ref __tmp137554))) + (__tmp137546 + (let ((__tmp137551 + (let ((__tmp137552 (let () (declare (not safe)) - (cons _$field131811_ + (cons _$field131793_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp137570))) - (__tmp137565 - (let ((__tmp137566 - (let ((__tmp137567 - (let ((__tmp137568 + (cons '%#ref __tmp137552))) + (__tmp137547 + (let ((__tmp137548 + (let ((__tmp137549 + (let ((__tmp137550 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _self131109_ 'receiver)))) + (slot-ref__0 _self131091_ 'receiver)))) (declare (not safe)) - (cons __tmp137568 '())))) + (cons __tmp137550 '())))) (declare (not safe)) - (cons '%#ref __tmp137567)))) + (cons '%#ref __tmp137549)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137566 '())))) + (cons __tmp137548 '())))) (declare (not safe)) - (cons __tmp137569 __tmp137565)))) + (cons __tmp137551 __tmp137547)))) (declare (not safe)) - (cons __tmp137571 __tmp137564)))) + (cons __tmp137553 __tmp137546)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp137563)))) + (cons '%#struct-unchecked-ref __tmp137545)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137562 _stx131110_)))) - (___kont136738136739_ - (lambda (_L131651_ _L131652_ _L131653_ _L131654_) - (let ((_$field131689_ - (let ((__tmp137575 + (gxc#xform-wrap-source __tmp137544 _stx131092_)))) + (___kont136720136721_ + (lambda (_L131633_ _L131634_ _L131635_ _L131636_) + (let ((_$field131671_ + (let ((__tmp137557 (let () (declare (not safe)) - (slot-ref__0 _self131109_ 'slots))) - (__tmp137574 + (slot-ref__0 _self131091_ 'slots))) + (__tmp137556 (let () (declare (not safe)) - (gx#stx-e _L131652_)))) + (gx#stx-e _L131634_)))) (declare (not safe)) - (hash-ref__0 __tmp137575 __tmp137574))) - (_expr131690_ + (hash-ref__0 __tmp137557 __tmp137556))) + (_expr131672_ (let () (declare (not safe)) - (gxc#compile-e__1 _self131109_ _L131651_)))) - (let ((__tmp137576 - (let ((__tmp137577 - (let ((__tmp137586 - (let ((__tmp137587 - (let ((__tmp137588 + (gxc#compile-e__1 _self131091_ _L131633_)))) + (let ((__tmp137558 + (let ((__tmp137559 + (let ((__tmp137568 + (let ((__tmp137569 + (let ((__tmp137570 (let () (declare (not safe)) (slot-ref__0 - _self131109_ + _self131091_ 'klass)))) (declare (not safe)) - (cons __tmp137588 '())))) + (cons __tmp137570 '())))) (declare (not safe)) - (cons '%#ref __tmp137587))) - (__tmp137578 - (let ((__tmp137584 - (let ((__tmp137585 + (cons '%#ref __tmp137569))) + (__tmp137560 + (let ((__tmp137566 + (let ((__tmp137567 (let () (declare (not safe)) - (cons _$field131689_ + (cons _$field131671_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp137585))) - (__tmp137579 - (let ((__tmp137581 - (let ((__tmp137582 + __tmp137567))) + (__tmp137561 + (let ((__tmp137563 + (let ((__tmp137564 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp137583 + (let ((__tmp137565 (let () (declare (not safe)) - (slot-ref__0 _self131109_ 'receiver)))) + (slot-ref__0 _self131091_ 'receiver)))) (declare (not safe)) - (cons __tmp137583 '())))) + (cons __tmp137565 '())))) (declare (not safe)) - (cons '%#ref __tmp137582))) - (__tmp137580 - (let () (declare (not safe)) (cons _expr131690_ '())))) + (cons '%#ref __tmp137564))) + (__tmp137562 + (let () (declare (not safe)) (cons _expr131672_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137581 - __tmp137580)))) + (cons __tmp137563 + __tmp137562)))) (declare (not safe)) - (cons __tmp137584 __tmp137579)))) + (cons __tmp137566 __tmp137561)))) (declare (not safe)) - (cons __tmp137586 __tmp137578)))) + (cons __tmp137568 __tmp137560)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp137577)))) + (cons '%#struct-unchecked-set! __tmp137559)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137576 _stx131110_))))) - (___kont136740136741_ - (lambda (_L131523_ _L131524_) - (let* ((_accessor131546_ - (let ((__tmp137589 + (gxc#xform-wrap-source __tmp137558 _stx131092_))))) + (___kont136722136723_ + (lambda (_L131505_ _L131506_) + (let* ((_accessor131528_ + (let ((__tmp137571 (let () (declare (not safe)) - (gxc#identifier-symbol _L131524_)))) + (gxc#identifier-symbol _L131506_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp137589))) - (_klass131548_ - (let ((__tmp137590 + (gxc#optimizer-resolve-type __tmp137571))) + (_klass131530_ + (let ((__tmp137572 (##structure-ref - _accessor131546_ + _accessor131528_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx131110_ - __tmp137590))) - (_slot131550_ + _stx131092_ + __tmp137572))) + (_slot131532_ (##structure-ref - _accessor131546_ + _accessor131528_ '2 gxc#!accessor::t '#f))) - (if (and (let ((__tmp137604 + (if (and (let ((__tmp137586 (##structure-ref - _accessor131546_ + _accessor131528_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (not __tmp137604)) + (not __tmp137586)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass131548_ - _slot131550_)) + _klass131530_ + _slot131532_)) (##structure-ref - _klass131548_ + _klass131530_ '8 gxc#!class::t '#f))) - _stx131110_ - (let* ((_$field131556_ - (let ((__tmp137591 + _stx131092_ + (let* ((_$field131538_ + (let ((__tmp137573 (let () (declare (not safe)) (slot-ref__0 - _self131109_ + _self131091_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp137591 _slot131550_))) - (__tmp137592 - (let ((__tmp137593 - (let ((__tmp137601 - (let ((__tmp137602 - (let ((__tmp137603 + (hash-ref__0 __tmp137573 _slot131532_))) + (__tmp137574 + (let ((__tmp137575 + (let ((__tmp137583 + (let ((__tmp137584 + (let ((__tmp137585 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _self131109_ 'klass)))) + (slot-ref__0 _self131091_ 'klass)))) (declare (not safe)) - (cons __tmp137603 '())))) + (cons __tmp137585 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp137602))) - (__tmp137594 - (let ((__tmp137599 - (let ((__tmp137600 + (cons '%#ref __tmp137584))) + (__tmp137576 + (let ((__tmp137581 + (let ((__tmp137582 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$field131556_ '())))) + (cons _$field131538_ '())))) (declare (not safe)) - (cons '%#ref __tmp137600))) - (__tmp137595 - (let ((__tmp137596 - (let ((__tmp137597 - (let ((__tmp137598 + (cons '%#ref __tmp137582))) + (__tmp137577 + (let ((__tmp137578 + (let ((__tmp137579 + (let ((__tmp137580 (let () (declare (not safe)) - (slot-ref__0 _self131109_ 'receiver)))) + (slot-ref__0 _self131091_ 'receiver)))) (declare (not safe)) - (cons __tmp137598 '())))) + (cons __tmp137580 '())))) (declare (not safe)) - (cons '%#ref __tmp137597)))) + (cons '%#ref __tmp137579)))) (declare (not safe)) - (cons __tmp137596 '())))) + (cons __tmp137578 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137599 - __tmp137595)))) + (cons __tmp137581 + __tmp137577)))) (declare (not safe)) - (cons __tmp137601 __tmp137594)))) + (cons __tmp137583 __tmp137576)))) (declare (not safe)) (cons '%#struct-unchecked-ref - __tmp137593)))) + __tmp137575)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp137592 - _stx131110_)))))) - (___kont136742136743_ - (lambda (_L131418_ _L131419_ _L131420_) - (let* ((_mutator131448_ - (let ((__tmp137605 + __tmp137574 + _stx131092_)))))) + (___kont136724136725_ + (lambda (_L131400_ _L131401_ _L131402_) + (let* ((_mutator131430_ + (let ((__tmp137587 (let () (declare (not safe)) - (gxc#identifier-symbol _L131420_)))) + (gxc#identifier-symbol _L131402_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp137605))) - (_klass131450_ - (let ((__tmp137606 + (gxc#optimizer-resolve-type __tmp137587))) + (_klass131432_ + (let ((__tmp137588 (##structure-ref - _mutator131448_ + _mutator131430_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx131110_ - __tmp137606))) - (_slot131452_ + _stx131092_ + __tmp137588))) + (_slot131434_ (##structure-ref - _mutator131448_ + _mutator131430_ '2 gxc#!mutator::t '#f)) - (_expr131454_ + (_expr131436_ (let () (declare (not safe)) - (gxc#compile-e__1 _self131109_ _L131418_)))) - (if (and (let ((__tmp137631 + (gxc#compile-e__1 _self131091_ _L131400_)))) + (if (and (let ((__tmp137613 (##structure-ref - _mutator131448_ + _mutator131430_ '3 gxc#!mutator::t '#f))) (declare (not safe)) - (not __tmp137631)) + (not __tmp137613)) (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _klass131450_ - _slot131452_)) + _klass131432_ + _slot131434_)) (##structure-ref - _klass131450_ + _klass131432_ '8 gxc#!class::t '#f))) - (let ((__tmp137621 - (let ((__tmp137622 - (let ((__tmp137628 - (let ((__tmp137630 + (let ((__tmp137603 + (let ((__tmp137604 + (let ((__tmp137610 + (let ((__tmp137612 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp137629 + (__tmp137611 (let () (declare (not safe)) - (cons _L131420_ + (cons _L131402_ '())))) (declare (not safe)) - (cons __tmp137630 - __tmp137629))) - (__tmp137623 - (let ((__tmp137625 - (let ((__tmp137627 + (cons __tmp137612 + __tmp137611))) + (__tmp137605 + (let ((__tmp137607 + (let ((__tmp137609 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp137626 - (let () (declare (not safe)) (cons _L131419_ '())))) + (__tmp137608 + (let () (declare (not safe)) (cons _L131401_ '())))) (declare (not safe)) - (cons __tmp137627 __tmp137626))) - (__tmp137624 - (let () (declare (not safe)) (cons _expr131454_ '())))) + (cons __tmp137609 __tmp137608))) + (__tmp137606 + (let () (declare (not safe)) (cons _expr131436_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137625 - __tmp137624)))) + (cons __tmp137607 + __tmp137606)))) (declare (not safe)) - (cons __tmp137628 __tmp137623)))) + (cons __tmp137610 __tmp137605)))) (declare (not safe)) - (cons '%#call __tmp137622)))) + (cons '%#call __tmp137604)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp137621 _stx131110_)) - (let* ((_$field131460_ - (let ((__tmp137607 + (gxc#xform-wrap-source __tmp137603 _stx131092_)) + (let* ((_$field131442_ + (let ((__tmp137589 (let () (declare (not safe)) (slot-ref__0 - _self131109_ + _self131091_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp137607 _slot131452_))) - (__tmp137608 - (let ((__tmp137609 - (let ((__tmp137618 - (let ((__tmp137619 - (let ((__tmp137620 + (hash-ref__0 __tmp137589 _slot131434_))) + (__tmp137590 + (let ((__tmp137591 + (let ((__tmp137600 + (let ((__tmp137601 + (let ((__tmp137602 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _self131109_ 'klass)))) + (slot-ref__0 _self131091_ 'klass)))) (declare (not safe)) - (cons __tmp137620 '())))) + (cons __tmp137602 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp137619))) - (__tmp137610 - (let ((__tmp137616 - (let ((__tmp137617 + (cons '%#ref __tmp137601))) + (__tmp137592 + (let ((__tmp137598 + (let ((__tmp137599 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$field131460_ '())))) + (cons _$field131442_ '())))) (declare (not safe)) - (cons '%#ref __tmp137617))) - (__tmp137611 - (let ((__tmp137613 - (let ((__tmp137614 - (let ((__tmp137615 + (cons '%#ref __tmp137599))) + (__tmp137593 + (let ((__tmp137595 + (let ((__tmp137596 + (let ((__tmp137597 (let () (declare (not safe)) - (slot-ref__0 _self131109_ 'receiver)))) + (slot-ref__0 _self131091_ 'receiver)))) (declare (not safe)) - (cons __tmp137615 '())))) + (cons __tmp137597 '())))) (declare (not safe)) - (cons '%#ref __tmp137614))) - (__tmp137612 - (let () (declare (not safe)) (cons _expr131454_ '())))) + (cons '%#ref __tmp137596))) + (__tmp137594 + (let () (declare (not safe)) (cons _expr131436_ '())))) (declare (not safe)) - (cons __tmp137613 __tmp137612)))) + (cons __tmp137595 __tmp137594)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp137616 - __tmp137611)))) + (cons __tmp137598 + __tmp137593)))) (declare (not safe)) - (cons __tmp137618 __tmp137610)))) + (cons __tmp137600 __tmp137592)))) (declare (not safe)) (cons '%#struct-unchecked-set! - __tmp137609)))) + __tmp137591)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp137608 - _stx131110_)))))) - (___kont136744136745_ + __tmp137590 + _stx131092_)))))) + (___kont136726136727_ (lambda () (let () (declare (not safe)) - (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 + (gxc#xform-operands _self131091_ _stx131092_))))) + (let* ((___match137207137208_ + (lambda (_e131298131336_ + _hd131297131339_ + _tl131296131341_ + _e131301131344_ + _hd131300131347_ + _tl131299131349_ + _e131304131352_ + _hd131303131355_ + _tl131302131357_ + _e131307131360_ + _hd131306131363_ + _tl131305131365_ + _e131310131368_ + _hd131309131371_ + _tl131308131373_ + _e131313131376_ + _hd131312131379_ + _tl131311131381_ + _e131316131384_ + _hd131315131387_ + _tl131314131389_ + _e131319131392_ + _hd131318131395_ + _tl131317131397_) + (let ((_L131400_ _hd131318131395_) + (_L131401_ _hd131315131387_) + (_L131402_ _hd131306131363_)) + (if (and (let ((__tmp137616 (let () (declare (not safe)) (slot-ref__0 - _self131109_ + _self131091_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L131419_ - __tmp137634)) - (let ((__tmp137632 - (let ((__tmp137633 + _L131401_ + __tmp137616)) + (let ((__tmp137614 + (let ((__tmp137615 (let () (declare (not safe)) (gxc#identifier-symbol - _L131420_)))) + _L131402_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp137633)))) + __tmp137615)))) (declare (not safe)) (##structure-instance-of? - __tmp137632 + __tmp137614 'gxc#!mutator::t))) - (___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_) + (___kont136724136725_ + _L131400_ + _L131401_ + _L131402_) + (___kont136726136727_))))) + (___match137205137206_ + (lambda (_e131298131336_ + _hd131297131339_ + _tl131296131341_ + _e131301131344_ + _hd131300131347_ + _tl131299131349_ + _e131304131352_ + _hd131303131355_ + _tl131302131357_ + _e131307131360_ + _hd131306131363_ + _tl131305131365_ + _e131310131368_ + _hd131309131371_ + _tl131308131373_ + _e131313131376_ + _hd131312131379_ + _tl131311131381_ + _e131316131384_ + _hd131315131387_ + _tl131314131389_ + _e131319131392_ + _hd131318131395_ + _tl131317131397_) (if (let () (declare (not safe)) - (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_) + (gx#stx-null? _tl131317131397_)) + (___match137207137208_ + _e131298131336_ + _hd131297131339_ + _tl131296131341_ + _e131301131344_ + _hd131300131347_ + _tl131299131349_ + _e131304131352_ + _hd131303131355_ + _tl131302131357_ + _e131307131360_ + _hd131306131363_ + _tl131305131365_ + _e131310131368_ + _hd131309131371_ + _tl131308131373_ + _e131313131376_ + _hd131312131379_ + _tl131311131381_ + _e131316131384_ + _hd131315131387_ + _tl131314131389_ + _e131319131392_ + _hd131318131395_ + _tl131317131397_) + (___kont136726136727_)))) + (___match137199137200_ + (lambda (_e131298131336_ + _hd131297131339_ + _tl131296131341_ + _e131301131344_ + _hd131300131347_ + _tl131299131349_ + _e131304131352_ + _hd131303131355_ + _tl131302131357_ + _e131307131360_ + _hd131306131363_ + _tl131305131365_ + _e131310131368_ + _hd131309131371_ + _tl131308131373_ + _e131313131376_ + _hd131312131379_ + _tl131311131381_ + _e131316131384_ + _hd131315131387_ + _tl131314131389_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131326131391_)) - (let ((_e131337131410_ + (gx#stx-pair? _tl131308131373_)) + (let ((_e131319131392_ (let () (declare (not safe)) - (gx#stx-e _tl131326131391_)))) - (let ((_tl131335131415_ + (gx#stx-e _tl131308131373_)))) + (let ((_tl131317131397_ (let () (declare (not safe)) - (##cdr _e131337131410_))) - (_hd131336131413_ + (##cdr _e131319131392_))) + (_hd131318131395_ (let () (declare (not safe)) - (##car _e131337131410_)))) + (##car _e131319131392_)))) (if (let () (declare (not safe)) - (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 + (gx#stx-null? _tl131317131397_)) + (___match137207137208_ + _e131298131336_ + _hd131297131339_ + _tl131296131341_ + _e131301131344_ + _hd131300131347_ + _tl131299131349_ + _e131304131352_ + _hd131303131355_ + _tl131302131357_ + _e131307131360_ + _hd131306131363_ + _tl131305131365_ + _e131310131368_ + _hd131309131371_ + _tl131308131373_ + _e131313131376_ + _hd131312131379_ + _tl131311131381_ + _e131316131384_ + _hd131315131387_ + _tl131314131389_ + _e131319131392_ + _hd131318131395_ + _tl131317131397_) + (___kont136726136727_)))) + (___kont136726136727_)))) + (___match137145137146_ + (lambda (_e131274131449_ + _hd131273131452_ + _tl131272131454_ + _e131277131457_ + _hd131276131460_ + _tl131275131462_ + _e131280131465_ + _hd131279131468_ + _tl131278131470_ + _e131283131473_ + _hd131282131476_ + _tl131281131478_ + _e131286131481_ + _hd131285131484_ + _tl131284131486_ + _e131289131489_ + _hd131288131492_ + _tl131287131494_ + _e131292131497_ + _hd131291131500_ + _tl131290131502_) + (let ((_L131505_ _hd131291131500_) + (_L131506_ _hd131282131476_)) + (if (and (let ((__tmp137619 (let () (declare (not safe)) (slot-ref__0 - _self131109_ + _self131091_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L131523_ - __tmp137637)) - (let ((__tmp137635 - (let ((__tmp137636 + _L131505_ + __tmp137619)) + (let ((__tmp137617 + (let ((__tmp137618 (let () (declare (not safe)) (gxc#identifier-symbol - _L131524_)))) + _L131506_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp137636)))) + __tmp137618)))) (declare (not safe)) (##structure-instance-of? - __tmp137635 + __tmp137617 'gxc#!accessor::t))) - (___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_) + (___kont136722136723_ _L131505_ _L131506_) + (___kont136726136727_))))) + (___match137143137144_ + (lambda (_e131274131449_ + _hd131273131452_ + _tl131272131454_ + _e131277131457_ + _hd131276131460_ + _tl131275131462_ + _e131280131465_ + _hd131279131468_ + _tl131278131470_ + _e131283131473_ + _hd131282131476_ + _tl131281131478_ + _e131286131481_ + _hd131285131484_ + _tl131284131486_ + _e131289131489_ + _hd131288131492_ + _tl131287131494_ + _e131292131497_ + _hd131291131500_ + _tl131290131502_) (if (let () (declare (not safe)) - (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_)) + (gx#stx-null? _tl131284131486_)) + (___match137145137146_ + _e131274131449_ + _hd131273131452_ + _tl131272131454_ + _e131277131457_ + _hd131276131460_ + _tl131275131462_ + _e131280131465_ + _hd131279131468_ + _tl131278131470_ + _e131283131473_ + _hd131282131476_ + _tl131281131478_ + _e131286131481_ + _hd131285131484_ + _tl131284131486_ + _e131289131489_ + _hd131288131492_ + _tl131287131494_ + _e131292131497_ + _hd131291131500_ + _tl131290131502_) + (___match137199137200_ + _e131274131449_ + _hd131273131452_ + _tl131272131454_ + _e131277131457_ + _hd131276131460_ + _tl131275131462_ + _e131280131465_ + _hd131279131468_ + _tl131278131470_ + _e131283131473_ + _hd131282131476_ + _tl131281131478_ + _e131286131481_ + _hd131285131484_ + _tl131284131486_ + _e131289131489_ + _hd131288131492_ + _tl131287131494_ + _e131292131497_ + _hd131291131500_ + _tl131290131502_)))) + (___match137089137090_ + (lambda (_e131239131545_ + _hd131238131548_ + _tl131237131550_ + _e131242131553_ + _hd131241131556_ + _tl131240131558_ + _e131245131561_ + _hd131244131564_ + _tl131243131566_ + _e131248131569_ + _hd131247131572_ + _tl131246131574_ + _e131251131577_ + _hd131250131580_ + _tl131249131582_ + _e131254131585_ + _hd131253131588_ + _tl131252131590_ + _e131257131593_ + _hd131256131596_ + _tl131255131598_ + _e131260131601_ + _hd131259131604_ + _tl131258131606_ + _e131263131609_ + _hd131262131612_ + _tl131261131614_ + _e131266131617_ + _hd131265131620_ + _tl131264131622_ + _e131269131625_ + _hd131268131628_ + _tl131267131630_) + (let ((_L131633_ _hd131268131628_) + (_L131634_ _hd131265131620_) + (_L131635_ _hd131256131596_) + (_L131636_ _hd131247131572_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131654_ + _L131636_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131654_ + _L131636_ 'unchecked-slot-set!))) - (let ((__tmp137638 + (let ((__tmp137620 (let () (declare (not safe)) (slot-ref__0 - _self131109_ + _self131091_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _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_) + _L131635_ + __tmp137620))) + (___kont136720136721_ + _L131633_ + _L131634_ + _L131635_ + _L131636_) + (___kont136726136727_))))) + (___match137081137082_ + (lambda (_e131239131545_ + _hd131238131548_ + _tl131237131550_ + _e131242131553_ + _hd131241131556_ + _tl131240131558_ + _e131245131561_ + _hd131244131564_ + _tl131243131566_ + _e131248131569_ + _hd131247131572_ + _tl131246131574_ + _e131251131577_ + _hd131250131580_ + _tl131249131582_ + _e131254131585_ + _hd131253131588_ + _tl131252131590_ + _e131257131593_ + _hd131256131596_ + _tl131255131598_ + _e131260131601_ + _hd131259131604_ + _tl131258131606_ + _e131263131609_ + _hd131262131612_ + _tl131261131614_ + _e131266131617_ + _hd131265131620_ + _tl131264131622_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131276131624_)) - (let ((_e131287131643_ + (gx#stx-pair? _tl131258131606_)) + (let ((_e131269131625_ (let () (declare (not safe)) - (gx#stx-e _tl131276131624_)))) - (let ((_tl131285131648_ + (gx#stx-e _tl131258131606_)))) + (let ((_tl131267131630_ (let () (declare (not safe)) - (##cdr _e131287131643_))) - (_hd131286131646_ + (##cdr _e131269131625_))) + (_hd131268131628_ (let () (declare (not safe)) - (##car _e131287131643_)))) + (##car _e131269131625_)))) (if (let () (declare (not safe)) - (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_)) + (gx#stx-null? _tl131267131630_)) + (___match137089137090_ + _e131239131545_ + _hd131238131548_ + _tl131237131550_ + _e131242131553_ + _hd131241131556_ + _tl131240131558_ + _e131245131561_ + _hd131244131564_ + _tl131243131566_ + _e131248131569_ + _hd131247131572_ + _tl131246131574_ + _e131251131577_ + _hd131250131580_ + _tl131249131582_ + _e131254131585_ + _hd131253131588_ + _tl131252131590_ + _e131257131593_ + _hd131256131596_ + _tl131255131598_ + _e131260131601_ + _hd131259131604_ + _tl131258131606_ + _e131263131609_ + _hd131262131612_ + _tl131261131614_ + _e131266131617_ + _hd131265131620_ + _tl131264131622_ + _e131269131625_ + _hd131268131628_ + _tl131267131630_) + (___kont136726136727_)))) + (___match137205137206_ + _e131239131545_ + _hd131238131548_ + _tl131237131550_ + _e131242131553_ + _hd131241131556_ + _tl131240131558_ + _e131245131561_ + _hd131244131564_ + _tl131243131566_ + _e131248131569_ + _hd131247131572_ + _tl131246131574_ + _e131251131577_ + _hd131250131580_ + _tl131249131582_ + _e131254131585_ + _hd131253131588_ + _tl131252131590_ + _e131257131593_ + _hd131256131596_ + _tl131255131598_ + _e131260131601_ + _hd131259131604_ + _tl131258131606_)))) + (___match137003137004_ + (lambda (_e131205131679_ + _hd131204131682_ + _tl131203131684_ + _e131208131687_ + _hd131207131690_ + _tl131206131692_ + _e131211131695_ + _hd131210131698_ + _tl131209131700_ + _e131214131703_ + _hd131213131706_ + _tl131212131708_ + _e131217131711_ + _hd131216131714_ + _tl131215131716_ + _e131220131719_ + _hd131219131722_ + _tl131218131724_ + _e131223131727_ + _hd131222131730_ + _tl131221131732_ + _e131226131735_ + _hd131225131738_ + _tl131224131740_ + _e131229131743_ + _hd131228131746_ + _tl131227131748_ + _e131232131751_ + _hd131231131754_ + _tl131230131756_) + (let ((_L131759_ _hd131231131754_) + (_L131760_ _hd131222131730_) + (_L131761_ _hd131213131706_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131779_ + _L131761_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131779_ + _L131761_ 'unchecked-slot-ref))) - (let ((__tmp137639 + (let ((__tmp137621 (let () (declare (not safe)) (slot-ref__0 - _self131109_ + _self131091_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _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_) + _L131760_ + __tmp137621))) + (___kont136718136719_ + _L131759_ + _L131760_ + _L131761_) + (___match137207137208_ + _e131205131679_ + _hd131204131682_ + _tl131203131684_ + _e131208131687_ + _hd131207131690_ + _tl131206131692_ + _e131211131695_ + _hd131210131698_ + _tl131209131700_ + _e131214131703_ + _hd131213131706_ + _tl131212131708_ + _e131217131711_ + _hd131216131714_ + _tl131215131716_ + _e131220131719_ + _hd131219131722_ + _tl131218131724_ + _e131223131727_ + _hd131222131730_ + _tl131221131732_ + _e131226131735_ + _hd131225131738_ + _tl131224131740_))))) + (___match137001137002_ + (lambda (_e131205131679_ + _hd131204131682_ + _tl131203131684_ + _e131208131687_ + _hd131207131690_ + _tl131206131692_ + _e131211131695_ + _hd131210131698_ + _tl131209131700_ + _e131214131703_ + _hd131213131706_ + _tl131212131708_ + _e131217131711_ + _hd131216131714_ + _tl131215131716_ + _e131220131719_ + _hd131219131722_ + _tl131218131724_ + _e131223131727_ + _hd131222131730_ + _tl131221131732_ + _e131226131735_ + _hd131225131738_ + _tl131224131740_ + _e131229131743_ + _hd131228131746_ + _tl131227131748_ + _e131232131751_ + _hd131231131754_ + _tl131230131756_) (if (let () (declare (not safe)) - (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_) + (gx#stx-null? _tl131224131740_)) + (___match137003137004_ + _e131205131679_ + _hd131204131682_ + _tl131203131684_ + _e131208131687_ + _hd131207131690_ + _tl131206131692_ + _e131211131695_ + _hd131210131698_ + _tl131209131700_ + _e131214131703_ + _hd131213131706_ + _tl131212131708_ + _e131217131711_ + _hd131216131714_ + _tl131215131716_ + _e131220131719_ + _hd131219131722_ + _tl131218131724_ + _e131223131727_ + _hd131222131730_ + _tl131221131732_ + _e131226131735_ + _hd131225131738_ + _tl131224131740_ + _e131229131743_ + _hd131228131746_ + _tl131227131748_ + _e131232131751_ + _hd131231131754_ + _tl131230131756_) + (___match137081137082_ + _e131205131679_ + _hd131204131682_ + _tl131203131684_ + _e131208131687_ + _hd131207131690_ + _tl131206131692_ + _e131211131695_ + _hd131210131698_ + _tl131209131700_ + _e131214131703_ + _hd131213131706_ + _tl131212131708_ + _e131217131711_ + _hd131216131714_ + _tl131215131716_ + _e131220131719_ + _hd131219131722_ + _tl131218131724_ + _e131223131727_ + _hd131222131730_ + _tl131221131732_ + _e131226131735_ + _hd131225131738_ + _tl131224131740_ + _e131229131743_ + _hd131228131746_ + _tl131227131748_ + _e131232131751_ + _hd131231131754_ + _tl131230131756_)))) + (___match136991136992_ + (lambda (_e131205131679_ + _hd131204131682_ + _tl131203131684_ + _e131208131687_ + _hd131207131690_ + _tl131206131692_ + _e131211131695_ + _hd131210131698_ + _tl131209131700_ + _e131214131703_ + _hd131213131706_ + _tl131212131708_ + _e131217131711_ + _hd131216131714_ + _tl131215131716_ + _e131220131719_ + _hd131219131722_ + _tl131218131724_ + _e131223131727_ + _hd131222131730_ + _tl131221131732_ + _e131226131735_ + _hd131225131738_ + _tl131224131740_ + _e131229131743_ + _hd131228131746_ + _tl131227131748_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd131246131764_)) + (gx#stx-eq? '%#quote _hd131228131746_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131245131766_)) - (let ((_e131250131769_ + (gx#stx-pair? _tl131227131748_)) + (let ((_e131232131751_ (let () (declare (not safe)) - (gx#stx-e _tl131245131766_)))) - (let ((_tl131248131774_ + (gx#stx-e _tl131227131748_)))) + (let ((_tl131230131756_ (let () (declare (not safe)) - (##cdr _e131250131769_))) - (_hd131249131772_ + (##cdr _e131232131751_))) + (_hd131231131754_ (let () (declare (not safe)) - (##car _e131250131769_)))) + (##car _e131232131751_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131248131774_)) + (gx#stx-null? _tl131230131756_)) (if (let () (declare (not safe)) - (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_) + (gx#stx-null? _tl131224131740_)) + (___match137003137004_ + _e131205131679_ + _hd131204131682_ + _tl131203131684_ + _e131208131687_ + _hd131207131690_ + _tl131206131692_ + _e131211131695_ + _hd131210131698_ + _tl131209131700_ + _e131214131703_ + _hd131213131706_ + _tl131212131708_ + _e131217131711_ + _hd131216131714_ + _tl131215131716_ + _e131220131719_ + _hd131219131722_ + _tl131218131724_ + _e131223131727_ + _hd131222131730_ + _tl131221131732_ + _e131226131735_ + _hd131225131738_ + _tl131224131740_ + _e131229131743_ + _hd131228131746_ + _tl131227131748_ + _e131232131751_ + _hd131231131754_ + _tl131230131756_) + (___match137081137082_ + _e131205131679_ + _hd131204131682_ + _tl131203131684_ + _e131208131687_ + _hd131207131690_ + _tl131206131692_ + _e131211131695_ + _hd131210131698_ + _tl131209131700_ + _e131214131703_ + _hd131213131706_ + _tl131212131708_ + _e131217131711_ + _hd131216131714_ + _tl131215131716_ + _e131220131719_ + _hd131219131722_ + _tl131218131724_ + _e131223131727_ + _hd131222131730_ + _tl131221131732_ + _e131226131735_ + _hd131225131738_ + _tl131224131740_ + _e131229131743_ + _hd131228131746_ + _tl131227131748_ + _e131232131751_ + _hd131231131754_ + _tl131230131756_)) + (___match137205137206_ + _e131205131679_ + _hd131204131682_ + _tl131203131684_ + _e131208131687_ + _hd131207131690_ + _tl131206131692_ + _e131211131695_ + _hd131210131698_ + _tl131209131700_ + _e131214131703_ + _hd131213131706_ + _tl131212131708_ + _e131217131711_ + _hd131216131714_ + _tl131215131716_ + _e131220131719_ + _hd131219131722_ + _tl131218131724_ + _e131223131727_ + _hd131222131730_ + _tl131221131732_ + _e131226131735_ + _hd131225131738_ + _tl131224131740_)))) + (___match137205137206_ + _e131205131679_ + _hd131204131682_ + _tl131203131684_ + _e131208131687_ + _hd131207131690_ + _tl131206131692_ + _e131211131695_ + _hd131210131698_ + _tl131209131700_ + _e131214131703_ + _hd131213131706_ + _tl131212131708_ + _e131217131711_ + _hd131216131714_ + _tl131215131716_ + _e131220131719_ + _hd131219131722_ + _tl131218131724_ + _e131223131727_ + _hd131222131730_ + _tl131221131732_ + _e131226131735_ + _hd131225131738_ + _tl131224131740_)) + (___match137205137206_ + _e131205131679_ + _hd131204131682_ + _tl131203131684_ + _e131208131687_ + _hd131207131690_ + _tl131206131692_ + _e131211131695_ + _hd131210131698_ + _tl131209131700_ + _e131214131703_ + _hd131213131706_ + _tl131212131708_ + _e131217131711_ + _hd131216131714_ + _tl131215131716_ + _e131220131719_ + _hd131219131722_ + _tl131218131724_ + _e131223131727_ + _hd131222131730_ + _tl131221131732_ + _e131226131735_ + _hd131225131738_ + _tl131224131740_)))) + (___match136923136924_ + (lambda (_e131154131800_ + _hd131153131803_ + _tl131152131805_ + _e131157131808_ + _hd131156131811_ + _tl131155131813_ + _e131160131816_ + _hd131159131819_ + _tl131158131821_ + _e131163131824_ + _hd131162131827_ + _tl131161131829_ + _e131166131832_ + _hd131165131835_ + _tl131164131837_ + _e131169131840_ + _hd131168131843_ + _tl131167131845_ + _e131172131848_ + _hd131171131851_ + _tl131170131853_ + _e131175131856_ + _hd131174131859_ + _tl131173131861_ + _e131178131864_ + _hd131177131867_ + _tl131176131869_ + _e131181131872_ + _hd131180131875_ + _tl131179131877_ + _e131184131880_ + _hd131183131883_ + _tl131182131885_ + _e131187131888_ + _hd131186131891_ + _tl131185131893_ + _e131190131896_ + _hd131189131899_ + _tl131188131901_ + ___splice136716136717_ + _target131191131904_ + _tl131193131906_) + (letrec ((_loop131194131909_ + (lambda (_hd131192131912_ _args131198131914_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131210131930_)) - (let ((_e131213131935_ + (gx#stx-pair? _hd131192131912_)) + (let ((_e131195131917_ (let () (declare (not safe)) - (gx#stx-e _hd131210131930_)))) - (let ((_lp-tl131215131940_ + (gx#stx-e _hd131192131912_)))) + (let ((_lp-tl131197131922_ (let () (declare (not safe)) - (##cdr _e131213131935_))) - (_lp-hd131214131938_ + (##cdr _e131195131917_))) + (_lp-hd131196131920_ (let () (declare (not safe)) - (##car _e131213131935_)))) - (let ((__tmp137641 + (##car _e131195131917_)))) + (let ((__tmp137623 (let () (declare (not safe)) - (cons _lp-hd131214131938_ - _args131216131932_)))) + (cons _lp-hd131196131920_ + _args131198131914_)))) (declare (not safe)) - (_loop131212131927_ - _lp-tl131215131940_ - __tmp137641)))) - (let ((_args131217131943_ - (reverse _args131216131932_))) - (let ((_L131946_ _args131217131943_) - (_L131947_ _hd131207131917_) - (_L131948_ _hd131198131893_) - (_L131949_ _hd131189131869_) - (_L131950_ _hd131180131845_)) + (_loop131194131909_ + _lp-tl131197131922_ + __tmp137623)))) + (let ((_args131199131925_ + (reverse _args131198131914_))) + (let ((_L131928_ _args131199131925_) + (_L131929_ _hd131189131899_) + (_L131930_ _hd131180131875_) + (_L131931_ _hd131171131851_) + (_L131932_ _hd131162131827_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131950_ + _L131932_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L131949_ + _L131931_ 'call-method)) - (let ((__tmp137640 + (let ((__tmp137622 (let () (declare (not safe)) (slot-ref__0 - _self131109_ + _self131091_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _L131948_ - __tmp137640))) - (___kont136732136733_ - _L131946_ - _L131947_ - _L131948_ - _L131949_ - _L131950_) - (___kont136744136745_)))))))) + _L131930_ + __tmp137622))) + (___kont136714136715_ + _L131928_ + _L131929_ + _L131930_ + _L131931_ + _L131932_) + (___kont136726136727_)))))))) (let () (declare (not safe)) - (_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_) + (_loop131194131909_ _target131191131904_ '()))))) + (___match136881136882_ + (lambda (_e131154131800_ + _hd131153131803_ + _tl131152131805_ + _e131157131808_ + _hd131156131811_ + _tl131155131813_ + _e131160131816_ + _hd131159131819_ + _tl131158131821_ + _e131163131824_ + _hd131162131827_ + _tl131161131829_ + _e131166131832_ + _hd131165131835_ + _tl131164131837_ + _e131169131840_ + _hd131168131843_ + _tl131167131845_ + _e131172131848_ + _hd131171131851_ + _tl131170131853_ + _e131175131856_ + _hd131174131859_ + _tl131173131861_ + _e131178131864_ + _hd131177131867_ + _tl131176131869_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd131195131885_)) + (gx#stx-eq? '%#ref _hd131177131867_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131194131887_)) - (let ((_e131199131890_ + (gx#stx-pair? _tl131176131869_)) + (let ((_e131181131872_ (let () (declare (not safe)) - (gx#stx-e _tl131194131887_)))) - (let ((_tl131197131895_ + (gx#stx-e _tl131176131869_)))) + (let ((_tl131179131877_ (let () (declare (not safe)) - (##cdr _e131199131890_))) - (_hd131198131893_ + (##cdr _e131181131872_))) + (_hd131180131875_ (let () (declare (not safe)) - (##car _e131199131890_)))) + (##car _e131181131872_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131197131895_)) + (gx#stx-null? _tl131179131877_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131191131879_)) - (let ((_e131202131898_ + (gx#stx-pair? _tl131173131861_)) + (let ((_e131184131880_ (let () (declare (not safe)) (gx#stx-e - _tl131191131879_)))) - (let ((_tl131200131903_ + _tl131173131861_)))) + (let ((_tl131182131885_ (let () (declare (not safe)) - (##cdr _e131202131898_))) - (_hd131201131901_ + (##cdr _e131184131880_))) + (_hd131183131883_ (let () (declare (not safe)) - (##car _e131202131898_)))) + (##car _e131184131880_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd131201131901_)) - (let ((_e131205131906_ + _hd131183131883_)) + (let ((_e131187131888_ (let () (declare (not safe)) (gx#stx-e - _hd131201131901_)))) - (let ((_tl131203131911_ + _hd131183131883_)))) + (let ((_tl131185131893_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e131205131906_))) - (_hd131204131909_ - (let () (declare (not safe)) (##car _e131205131906_)))) + (##cdr _e131187131888_))) + (_hd131186131891_ + (let () (declare (not safe)) (##car _e131187131888_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd131204131909_)) + (gx#identifier? _hd131186131891_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd131204131909_)) + (gx#stx-eq? '%#quote _hd131186131891_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131203131911_)) - (let ((_e131208131914_ + (gx#stx-pair? _tl131185131893_)) + (let ((_e131190131896_ (let () (declare (not safe)) - (gx#stx-e _tl131203131911_)))) - (let ((_tl131206131919_ + (gx#stx-e _tl131185131893_)))) + (let ((_tl131188131901_ (let () (declare (not safe)) - (##cdr _e131208131914_))) - (_hd131207131917_ + (##cdr _e131190131896_))) + (_hd131189131899_ (let () (declare (not safe)) - (##car _e131208131914_)))) + (##car _e131190131896_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131206131919_)) + (gx#stx-null? _tl131188131901_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl131200131903_)) - (let ((___splice136734136735_ + (gx#stx-pair/null? _tl131182131885_)) + (let ((___splice136716136717_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl131200131903_ + _tl131182131885_ '0)))) - (let ((_tl131211131924_ + (let ((_tl131193131906_ (let () (declare (not safe)) (##vector-ref - ___splice136734136735_ + ___splice136716136717_ '1))) - (_target131209131922_ + (_target131191131904_ (let () (declare (not safe)) (##vector-ref - ___splice136734136735_ + ___splice136716136717_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _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_)))) + _tl131193131906_)) + (___match136923136924_ + _e131154131800_ + _hd131153131803_ + _tl131152131805_ + _e131157131808_ + _hd131156131811_ + _tl131155131813_ + _e131160131816_ + _hd131159131819_ + _tl131158131821_ + _e131163131824_ + _hd131162131827_ + _tl131161131829_ + _e131166131832_ + _hd131165131835_ + _tl131164131837_ + _e131169131840_ + _hd131168131843_ + _tl131167131845_ + _e131172131848_ + _hd131171131851_ + _tl131170131853_ + _e131175131856_ + _hd131174131859_ + _tl131173131861_ + _e131178131864_ + _hd131177131867_ + _tl131176131869_ + _e131181131872_ + _hd131180131875_ + _tl131179131877_ + _e131184131880_ + _hd131183131883_ + _tl131182131885_ + _e131187131888_ + _hd131186131891_ + _tl131185131893_ + _e131190131896_ + _hd131189131899_ + _tl131188131901_ + ___splice136716136717_ + _target131191131904_ + _tl131193131906_) + (___kont136726136727_)))) + (___kont136726136727_)) + (___kont136726136727_)))) + (___kont136726136727_)) + (___kont136726136727_)) + (___kont136726136727_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_) + (___kont136726136727_)))) + (___match137205137206_ + _e131154131800_ + _hd131153131803_ + _tl131152131805_ + _e131157131808_ + _hd131156131811_ + _tl131155131813_ + _e131160131816_ + _hd131159131819_ + _tl131158131821_ + _e131163131824_ + _hd131162131827_ + _tl131161131829_ + _e131166131832_ + _hd131165131835_ + _tl131164131837_ + _e131169131840_ + _hd131168131843_ + _tl131167131845_ + _e131172131848_ + _hd131171131851_ + _tl131170131853_ + _e131175131856_ + _hd131174131859_ + _tl131173131861_)) + (___match137205137206_ + _e131154131800_ + _hd131153131803_ + _tl131152131805_ + _e131157131808_ + _hd131156131811_ + _tl131155131813_ + _e131160131816_ + _hd131159131819_ + _tl131158131821_ + _e131163131824_ + _hd131162131827_ + _tl131161131829_ + _e131166131832_ + _hd131165131835_ + _tl131164131837_ + _e131169131840_ + _hd131168131843_ + _tl131167131845_ + _e131172131848_ + _hd131171131851_ + _tl131170131853_ + _e131175131856_ + _hd131174131859_ + _tl131173131861_)))) + (___match137205137206_ + _e131154131800_ + _hd131153131803_ + _tl131152131805_ + _e131157131808_ + _hd131156131811_ + _tl131155131813_ + _e131160131816_ + _hd131159131819_ + _tl131158131821_ + _e131163131824_ + _hd131162131827_ + _tl131161131829_ + _e131166131832_ + _hd131165131835_ + _tl131164131837_ + _e131169131840_ + _hd131168131843_ + _tl131167131845_ + _e131172131848_ + _hd131171131851_ + _tl131170131853_ + _e131175131856_ + _hd131174131859_ + _tl131173131861_)) + (___match136991136992_ + _e131154131800_ + _hd131153131803_ + _tl131152131805_ + _e131157131808_ + _hd131156131811_ + _tl131155131813_ + _e131160131816_ + _hd131159131819_ + _tl131158131821_ + _e131163131824_ + _hd131162131827_ + _tl131161131829_ + _e131166131832_ + _hd131165131835_ + _tl131164131837_ + _e131169131840_ + _hd131168131843_ + _tl131167131845_ + _e131172131848_ + _hd131171131851_ + _tl131170131853_ + _e131175131856_ + _hd131174131859_ + _tl131173131861_ + _e131178131864_ + _hd131177131867_ + _tl131176131869_)))) + (___match136813136814_ + (lambda (_e131110131992_ + _hd131109131995_ + _tl131108131997_ + _e131113132000_ + _hd131112132003_ + _tl131111132005_ + _e131116132008_ + _hd131115132011_ + _tl131114132013_ + _e131119132016_ + _hd131118132019_ + _tl131117132021_ + _e131122132024_ + _hd131121132027_ + _tl131120132029_ + _e131125132032_ + _hd131124132035_ + _tl131123132037_ + _e131128132040_ + _hd131127132043_ + _tl131126132045_ + _e131131132048_ + _hd131130132051_ + _tl131129132053_ + _e131134132056_ + _hd131133132059_ + _tl131132132061_ + _e131137132064_ + _hd131136132067_ + _tl131135132069_ + ___splice136712136713_ + _target131138132072_ + _tl131140132074_) + (letrec ((_loop131141132077_ + (lambda (_hd131139132080_ _args131145132082_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131157132098_)) - (let ((_e131160132103_ + (gx#stx-pair? _hd131139132080_)) + (let ((_e131142132085_ (let () (declare (not safe)) - (gx#stx-e _hd131157132098_)))) - (let ((_lp-tl131162132108_ + (gx#stx-e _hd131139132080_)))) + (let ((_lp-tl131144132090_ (let () (declare (not safe)) - (##cdr _e131160132103_))) - (_lp-hd131161132106_ + (##cdr _e131142132085_))) + (_lp-hd131143132088_ (let () (declare (not safe)) - (##car _e131160132103_)))) - (let ((__tmp137643 + (##car _e131142132085_)))) + (let ((__tmp137625 (let () (declare (not safe)) - (cons _lp-hd131161132106_ - _args131163132100_)))) + (cons _lp-hd131143132088_ + _args131145132082_)))) (declare (not safe)) - (_loop131159132095_ - _lp-tl131162132108_ - __tmp137643)))) - (let ((_args131164132111_ - (reverse _args131163132100_))) - (let ((_L132114_ _args131164132111_) - (_L132115_ _hd131154132085_) - (_L132116_ _hd131145132061_) - (_L132117_ _hd131136132037_)) + (_loop131141132077_ + _lp-tl131144132090_ + __tmp137625)))) + (let ((_args131146132093_ + (reverse _args131145132082_))) + (let ((_L132096_ _args131146132093_) + (_L132097_ _hd131136132067_) + (_L132098_ _hd131127132043_) + (_L132099_ _hd131118132019_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L132117_ + _L132099_ 'call-method)) - (let ((__tmp137642 + (let ((__tmp137624 (let () (declare (not safe)) (slot-ref__0 - _self131109_ + _self131091_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _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_)))))))) + _L132098_ + __tmp137624))) + (___kont136710136711_ + _L132096_ + _L132097_ + _L132098_ + _L132099_) + (___match137001137002_ + _e131110131992_ + _hd131109131995_ + _tl131108131997_ + _e131113132000_ + _hd131112132003_ + _tl131111132005_ + _e131116132008_ + _hd131115132011_ + _tl131114132013_ + _e131119132016_ + _hd131118132019_ + _tl131117132021_ + _e131122132024_ + _hd131121132027_ + _tl131120132029_ + _e131125132032_ + _hd131124132035_ + _tl131123132037_ + _e131128132040_ + _hd131127132043_ + _tl131126132045_ + _e131131132048_ + _hd131130132051_ + _tl131129132053_ + _e131134132056_ + _hd131133132059_ + _tl131132132061_ + _e131137132064_ + _hd131136132067_ + _tl131135132069_)))))))) (let () (declare (not safe)) - (_loop131159132095_ _target131156132090_ '())))))) + (_loop131141132077_ _target131138132072_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx136726136727_)) - (let ((_e131128132010_ + (gx#stx-pair? ___stx136708136709_)) + (let ((_e131110131992_ (let () (declare (not safe)) - (gx#stx-e ___stx136726136727_)))) - (let ((_tl131126132015_ + (gx#stx-e ___stx136708136709_)))) + (let ((_tl131108131997_ (let () (declare (not safe)) - (##cdr _e131128132010_))) - (_hd131127132013_ + (##cdr _e131110131992_))) + (_hd131109131995_ (let () (declare (not safe)) - (##car _e131128132010_)))) + (##car _e131110131992_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131126132015_)) - (let ((_e131131132018_ + (gx#stx-pair? _tl131108131997_)) + (let ((_e131113132000_ (let () (declare (not safe)) - (gx#stx-e _tl131126132015_)))) - (let ((_tl131129132023_ + (gx#stx-e _tl131108131997_)))) + (let ((_tl131111132005_ (let () (declare (not safe)) - (##cdr _e131131132018_))) - (_hd131130132021_ + (##cdr _e131113132000_))) + (_hd131112132003_ (let () (declare (not safe)) - (##car _e131131132018_)))) + (##car _e131113132000_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131130132021_)) - (let ((_e131134132026_ + (gx#stx-pair? _hd131112132003_)) + (let ((_e131116132008_ (let () (declare (not safe)) - (gx#stx-e _hd131130132021_)))) - (let ((_tl131132132031_ + (gx#stx-e _hd131112132003_)))) + (let ((_tl131114132013_ (let () (declare (not safe)) - (##cdr _e131134132026_))) - (_hd131133132029_ + (##cdr _e131116132008_))) + (_hd131115132011_ (let () (declare (not safe)) - (##car _e131134132026_)))) + (##car _e131116132008_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd131133132029_)) + _hd131115132011_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd131133132029_)) + _hd131115132011_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl131132132031_)) - (let ((_e131137132034_ + _tl131114132013_)) + (let ((_e131119132016_ (let () (declare (not safe)) (gx#stx-e - _tl131132132031_)))) - (let ((_tl131135132039_ + _tl131114132013_)))) + (let ((_tl131117132021_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e131137132034_))) - (_hd131136132037_ - (let () (declare (not safe)) (##car _e131137132034_)))) + (##cdr _e131119132016_))) + (_hd131118132019_ + (let () (declare (not safe)) (##car _e131119132016_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl131135132039_)) + (gx#stx-null? _tl131117132021_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131129132023_)) - (let ((_e131140132042_ + (gx#stx-pair? _tl131111132005_)) + (let ((_e131122132024_ (let () (declare (not safe)) - (gx#stx-e _tl131129132023_)))) - (let ((_tl131138132047_ + (gx#stx-e _tl131111132005_)))) + (let ((_tl131120132029_ (let () (declare (not safe)) - (##cdr _e131140132042_))) - (_hd131139132045_ + (##cdr _e131122132024_))) + (_hd131121132027_ (let () (declare (not safe)) - (##car _e131140132042_)))) + (##car _e131122132024_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131139132045_)) - (let ((_e131143132050_ + (gx#stx-pair? _hd131121132027_)) + (let ((_e131125132032_ (let () (declare (not safe)) - (gx#stx-e _hd131139132045_)))) - (let ((_tl131141132055_ + (gx#stx-e _hd131121132027_)))) + (let ((_tl131123132037_ (let () (declare (not safe)) - (##cdr _e131143132050_))) - (_hd131142132053_ + (##cdr _e131125132032_))) + (_hd131124132035_ (let () (declare (not safe)) - (##car _e131143132050_)))) + (##car _e131125132032_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd131142132053_)) + (gx#identifier? _hd131124132035_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd131142132053_)) + _hd131124132035_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl131141132055_)) - (let ((_e131146132058_ + _tl131123132037_)) + (let ((_e131128132040_ (let () (declare (not safe)) (gx#stx-e - _tl131141132055_)))) - (let ((_tl131144132063_ + _tl131123132037_)))) + (let ((_tl131126132045_ (let () (declare (not safe)) - (##cdr _e131146132058_))) - (_hd131145132061_ + (##cdr _e131128132040_))) + (_hd131127132043_ (let () (declare (not safe)) - (##car _e131146132058_)))) + (##car _e131128132040_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl131144132063_)) + _tl131126132045_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl131138132047_)) - (let ((_e131149132066_ + _tl131120132029_)) + (let ((_e131131132048_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl131138132047_)))) - (let ((_tl131147132071_ + (gx#stx-e _tl131120132029_)))) + (let ((_tl131129132053_ (let () (declare (not safe)) - (##cdr _e131149132066_))) - (_hd131148132069_ + (##cdr _e131131132048_))) + (_hd131130132051_ (let () (declare (not safe)) - (##car _e131149132066_)))) + (##car _e131131132048_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd131148132069_)) - (let ((_e131152132074_ + (gx#stx-pair? _hd131130132051_)) + (let ((_e131134132056_ (let () (declare (not safe)) - (gx#stx-e _hd131148132069_)))) - (let ((_tl131150132079_ + (gx#stx-e _hd131130132051_)))) + (let ((_tl131132132061_ (let () (declare (not safe)) - (##cdr _e131152132074_))) - (_hd131151132077_ + (##cdr _e131134132056_))) + (_hd131133132059_ (let () (declare (not safe)) - (##car _e131152132074_)))) + (##car _e131134132056_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd131151132077_)) + (gx#identifier? _hd131133132059_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd131151132077_)) + _hd131133132059_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl131150132079_)) - (let ((_e131155132082_ + (gx#stx-pair? _tl131132132061_)) + (let ((_e131137132064_ (let () (declare (not safe)) (gx#stx-e - _tl131150132079_)))) - (let ((_tl131153132087_ + _tl131132132061_)))) + (let ((_tl131135132069_ (let () (declare (not safe)) - (##cdr _e131155132082_))) - (_hd131154132085_ + (##cdr _e131137132064_))) + (_hd131136132067_ (let () (declare (not safe)) - (##car _e131155132082_)))) + (##car _e131137132064_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl131153132087_)) + _tl131135132069_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl131147132071_)) - (let ((___splice136730136731_ + _tl131129132053_)) + (let ((___splice136712136713_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl131147132071_ '0)))) - (let ((_tl131158132092_ + (gx#syntax-split-splice _tl131129132053_ '0)))) + (let ((_tl131140132074_ (let () (declare (not safe)) - (##vector-ref ___splice136730136731_ '1))) - (_target131156132090_ + (##vector-ref ___splice136712136713_ '1))) + (_target131138132072_ (let () (declare (not safe)) - (##vector-ref ___splice136730136731_ '0)))) + (##vector-ref ___splice136712136713_ '0)))) (if (let () (declare (not safe)) - (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_)) + (gx#stx-null? _tl131140132074_)) + (___match136813136814_ + _e131110131992_ + _hd131109131995_ + _tl131108131997_ + _e131113132000_ + _hd131112132003_ + _tl131111132005_ + _e131116132008_ + _hd131115132011_ + _tl131114132013_ + _e131119132016_ + _hd131118132019_ + _tl131117132021_ + _e131122132024_ + _hd131121132027_ + _tl131120132029_ + _e131125132032_ + _hd131124132035_ + _tl131123132037_ + _e131128132040_ + _hd131127132043_ + _tl131126132045_ + _e131131132048_ + _hd131130132051_ + _tl131129132053_ + _e131134132056_ + _hd131133132059_ + _tl131132132061_ + _e131137132064_ + _hd131136132067_ + _tl131135132069_ + ___splice136712136713_ + _target131138132072_ + _tl131140132074_) + (___match137001137002_ + _e131110131992_ + _hd131109131995_ + _tl131108131997_ + _e131113132000_ + _hd131112132003_ + _tl131111132005_ + _e131116132008_ + _hd131115132011_ + _tl131114132013_ + _e131119132016_ + _hd131118132019_ + _tl131117132021_ + _e131122132024_ + _hd131121132027_ + _tl131120132029_ + _e131125132032_ + _hd131124132035_ + _tl131123132037_ + _e131128132040_ + _hd131127132043_ + _tl131126132045_ + _e131131132048_ + _hd131130132051_ + _tl131129132053_ + _e131134132056_ + _hd131133132059_ + _tl131132132061_ + _e131137132064_ + _hd131136132067_ + _tl131135132069_)))) + (___match137001137002_ + _e131110131992_ + _hd131109131995_ + _tl131108131997_ + _e131113132000_ + _hd131112132003_ + _tl131111132005_ + _e131116132008_ + _hd131115132011_ + _tl131114132013_ + _e131119132016_ + _hd131118132019_ + _tl131117132021_ + _e131122132024_ + _hd131121132027_ + _tl131120132029_ + _e131125132032_ + _hd131124132035_ + _tl131123132037_ + _e131128132040_ + _hd131127132043_ + _tl131126132045_ + _e131131132048_ + _hd131130132051_ + _tl131129132053_ + _e131134132056_ + _hd131133132059_ + _tl131132132061_ + _e131137132064_ + _hd131136132067_ + _tl131135132069_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___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_)))) + (___match137205137206_ + _e131110131992_ + _hd131109131995_ + _tl131108131997_ + _e131113132000_ + _hd131112132003_ + _tl131111132005_ + _e131116132008_ + _hd131115132011_ + _tl131114132013_ + _e131119132016_ + _hd131118132019_ + _tl131117132021_ + _e131122132024_ + _hd131121132027_ + _tl131120132029_ + _e131125132032_ + _hd131124132035_ + _tl131123132037_ + _e131128132040_ + _hd131127132043_ + _tl131126132045_ + _e131131132048_ + _hd131130132051_ + _tl131129132053_)))) + (___match137205137206_ + _e131110131992_ + _hd131109131995_ + _tl131108131997_ + _e131113132000_ + _hd131112132003_ + _tl131111132005_ + _e131116132008_ + _hd131115132011_ + _tl131114132013_ + _e131119132016_ + _hd131118132019_ + _tl131117132021_ + _e131122132024_ + _hd131121132027_ + _tl131120132029_ + _e131125132032_ + _hd131124132035_ + _tl131123132037_ + _e131128132040_ + _hd131127132043_ + _tl131126132045_ + _e131131132048_ + _hd131130132051_ + _tl131129132053_)) + (___match136881136882_ + _e131110131992_ + _hd131109131995_ + _tl131108131997_ + _e131113132000_ + _hd131112132003_ + _tl131111132005_ + _e131116132008_ + _hd131115132011_ + _tl131114132013_ + _e131119132016_ + _hd131118132019_ + _tl131117132021_ + _e131122132024_ + _hd131121132027_ + _tl131120132029_ + _e131125132032_ + _hd131124132035_ + _tl131123132037_ + _e131128132040_ + _hd131127132043_ + _tl131126132045_ + _e131131132048_ + _hd131130132051_ + _tl131129132053_ + _e131134132056_ + _hd131133132059_ + _tl131132132061_)) + (___match137205137206_ + _e131110131992_ + _hd131109131995_ + _tl131108131997_ + _e131113132000_ + _hd131112132003_ + _tl131111132005_ + _e131116132008_ + _hd131115132011_ + _tl131114132013_ + _e131119132016_ + _hd131118132019_ + _tl131117132021_ + _e131122132024_ + _hd131121132027_ + _tl131120132029_ + _e131125132032_ + _hd131124132035_ + _tl131123132037_ + _e131128132040_ + _hd131127132043_ + _tl131126132045_ + _e131131132048_ + _hd131130132051_ + _tl131129132053_)))) + (___match137205137206_ + _e131110131992_ + _hd131109131995_ + _tl131108131997_ + _e131113132000_ + _hd131112132003_ + _tl131111132005_ + _e131116132008_ + _hd131115132011_ + _tl131114132013_ + _e131119132016_ + _hd131118132019_ + _tl131117132021_ + _e131122132024_ + _hd131121132027_ + _tl131120132029_ + _e131125132032_ + _hd131124132035_ + _tl131123132037_ + _e131128132040_ + _hd131127132043_ + _tl131126132045_ + _e131131132048_ + _hd131130132051_ + _tl131129132053_)))) + (___match137143137144_ + _e131110131992_ + _hd131109131995_ + _tl131108131997_ + _e131113132000_ + _hd131112132003_ + _tl131111132005_ + _e131116132008_ + _hd131115132011_ + _tl131114132013_ + _e131119132016_ + _hd131118132019_ + _tl131117132021_ + _e131122132024_ + _hd131121132027_ + _tl131120132029_ + _e131125132032_ + _hd131124132035_ + _tl131123132037_ + _e131128132040_ + _hd131127132043_ + _tl131126132045_)) + (___kont136726136727_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136744136745_)) - (___kont136744136745_)) - (___kont136744136745_)))) - (___kont136744136745_)))) - (___kont136744136745_)) - (___kont136744136745_)))) + (___kont136726136727_)) + (___kont136726136727_)) + (___kont136726136727_)))) + (___kont136726136727_)))) + (___kont136726136727_)) + (___kont136726136727_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont136744136745_)) - (___kont136744136745_)) - (___kont136744136745_)))) - (___kont136744136745_)))) - (___kont136744136745_)))) - (___kont136744136745_)))))))))) + (___kont136726136727_)) + (___kont136726136727_)) + (___kont136726136727_)))) + (___kont136726136727_)))) + (___kont136726136727_)))) + (___kont136726136727_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm index c3fc6f5cd..56e50454f 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]#_g137646_| + (define |gxc[1]#_g137628_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137648_| + (define |gxc[1]#_g137630_| (##structure gx#syntax-quote::t '::generate-method-specializers::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137650_| + (define |gxc[1]#_g137632_| (##structure gx#syntax-quote::t 'make-::generate-method-specializers #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137652_| + (define |gxc[1]#_g137634_| (##structure gx#syntax-quote::t '::generate-method-specializers? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137655_| + (define |gxc[1]#_g137637_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137657_| + (define |gxc[1]#_g137639_| (##structure gx#syntax-quote::t '::collect-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137659_| + (define |gxc[1]#_g137641_| (##structure gx#syntax-quote::t 'make-::collect-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137661_| + (define |gxc[1]#_g137643_| (##structure gx#syntax-quote::t '::collect-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137667_| + (define |gxc[1]#_g137649_| (##structure gx#syntax-quote::t '::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137670_| + (define |gxc[1]#_g137652_| (##structure gx#syntax-quote::t '::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137673_| + (define |gxc[1]#_g137655_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137679_| + (define |gxc[1]#_g137661_| (##structure gx#syntax-quote::t '::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137682_| + (define |gxc[1]#_g137664_| (##structure gx#syntax-quote::t '::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137685_| + (define |gxc[1]#_g137667_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137691_| + (define |gxc[1]#_g137673_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137694_| + (define |gxc[1]#_g137676_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137697_| + (define |gxc[1]#_g137679_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137703_| + (define |gxc[1]#_g137685_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137706_| + (define |gxc[1]#_g137688_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137709_| + (define |gxc[1]#_g137691_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137712_| + (define |gxc[1]#_g137694_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137714_| + (define |gxc[1]#_g137696_| (##structure gx#syntax-quote::t '::subst-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137716_| + (define |gxc[1]#_g137698_| (##structure gx#syntax-quote::t 'make-::subst-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137718_| + (define |gxc[1]#_g137700_| (##structure gx#syntax-quote::t '::subst-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137725_| + (define |gxc[1]#_g137707_| (##structure gx#syntax-quote::t '::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137728_| + (define |gxc[1]#_g137710_| (##structure gx#syntax-quote::t '::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137731_| + (define |gxc[1]#_g137713_| (##structure gx#syntax-quote::t '::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137734_| + (define |gxc[1]#_g137716_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137741_| + (define |gxc[1]#_g137723_| (##structure gx#syntax-quote::t '::subst-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137744_| + (define |gxc[1]#_g137726_| (##structure gx#syntax-quote::t '::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137747_| + (define |gxc[1]#_g137729_| (##structure gx#syntax-quote::t '::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137750_| + (define |gxc[1]#_g137732_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137757_| + (define |gxc[1]#_g137739_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137760_| + (define |gxc[1]#_g137742_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137763_| + (define |gxc[1]#_g137745_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137766_| + (define |gxc[1]#_g137748_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137773_| + (define |gxc[1]#_g137755_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137776_| + (define |gxc[1]#_g137758_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137779_| + (define |gxc[1]#_g137761_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g137782_| + (define |gxc[1]#_g137764_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver-set! @@ -282,7 +282,7 @@ '())) (begin (define |gxc[:0:]#::generate-method-specializers| - (let ((__obj137227 + (let ((__obj137209 (let () (declare (not safe)) (##structure @@ -306,7 +306,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137209 '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! - __obj137227 + __obj137209 '::generate-method-specializers '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -322,26 +322,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137209 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137644 - (let ((__tmp137645 |gxc[1]#_g137646_|)) + (let ((__tmp137626 + (let ((__tmp137627 |gxc[1]#_g137628_|)) (declare (not safe)) - (cons __tmp137645 '())))) + (cons __tmp137627 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj137227 - __tmp137644 + __obj137209 + __tmp137626 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137209 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -349,7 +349,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137209 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -357,7 +357,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137209 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -365,39 +365,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137209 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137647 |gxc[1]#_g137648_|)) + (let ((__tmp137629 |gxc[1]#_g137630_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137227 - __tmp137647 + __obj137209 + __tmp137629 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137649 |gxc[1]#_g137650_|)) + (let ((__tmp137631 |gxc[1]#_g137632_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137227 - __tmp137649 + __obj137209 + __tmp137631 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137651 |gxc[1]#_g137652_|)) + (let ((__tmp137633 |gxc[1]#_g137634_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137227 - __tmp137651 + __obj137209 + __tmp137633 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137209 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -405,7 +405,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137209 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -413,7 +413,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137209 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -421,14 +421,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137227 + __obj137209 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj137227)) + __obj137209)) (define |gxc[:0:]#::collect-object-refs| - (let ((__obj137229 + (let ((__obj137211 (let () (declare (not safe)) (##structure @@ -452,7 +452,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137229 + __obj137211 '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! - __obj137229 + __obj137211 '::collect-object-refs '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -468,26 +468,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137229 + __obj137211 '(receiver methods slots) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137653 - (let ((__tmp137654 |gxc[1]#_g137655_|)) + (let ((__tmp137635 + (let ((__tmp137636 |gxc[1]#_g137637_|)) (declare (not safe)) - (cons __tmp137654 '())))) + (cons __tmp137636 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj137229 - __tmp137653 + __obj137211 + __tmp137635 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137229 + __obj137211 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -495,7 +495,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137229 + __obj137211 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -503,7 +503,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137229 + __obj137211 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -511,150 +511,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137229 + __obj137211 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137656 |gxc[1]#_g137657_|)) + (let ((__tmp137638 |gxc[1]#_g137639_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137229 - __tmp137656 + __obj137211 + __tmp137638 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137658 |gxc[1]#_g137659_|)) + (let ((__tmp137640 |gxc[1]#_g137641_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137229 - __tmp137658 + __obj137211 + __tmp137640 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137660 |gxc[1]#_g137661_|)) + (let ((__tmp137642 |gxc[1]#_g137643_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137229 - __tmp137660 + __obj137211 + __tmp137642 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137662 - (let ((__tmp137671 - (let ((__tmp137672 |gxc[1]#_g137673_|)) + (let ((__tmp137644 + (let ((__tmp137653 + (let ((__tmp137654 |gxc[1]#_g137655_|)) (declare (not safe)) - (cons 'receiver __tmp137672))) - (__tmp137663 - (let ((__tmp137668 - (let ((__tmp137669 |gxc[1]#_g137670_|)) + (cons 'receiver __tmp137654))) + (__tmp137645 + (let ((__tmp137650 + (let ((__tmp137651 |gxc[1]#_g137652_|)) (declare (not safe)) - (cons 'methods __tmp137669))) - (__tmp137664 - (let ((__tmp137665 - (let ((__tmp137666 |gxc[1]#_g137667_|)) + (cons 'methods __tmp137651))) + (__tmp137646 + (let ((__tmp137647 + (let ((__tmp137648 |gxc[1]#_g137649_|)) (declare (not safe)) - (cons 'slots __tmp137666)))) + (cons 'slots __tmp137648)))) (declare (not safe)) - (cons __tmp137665 '())))) + (cons __tmp137647 '())))) (declare (not safe)) - (cons __tmp137668 __tmp137664)))) + (cons __tmp137650 __tmp137646)))) (declare (not safe)) - (cons __tmp137671 __tmp137663)))) + (cons __tmp137653 __tmp137645)))) (declare (not safe)) (##unchecked-structure-set! - __obj137229 - __tmp137662 + __obj137211 + __tmp137644 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137674 - (let ((__tmp137683 - (let ((__tmp137684 |gxc[1]#_g137685_|)) + (let ((__tmp137656 + (let ((__tmp137665 + (let ((__tmp137666 |gxc[1]#_g137667_|)) (declare (not safe)) - (cons 'receiver __tmp137684))) - (__tmp137675 - (let ((__tmp137680 - (let ((__tmp137681 |gxc[1]#_g137682_|)) + (cons 'receiver __tmp137666))) + (__tmp137657 + (let ((__tmp137662 + (let ((__tmp137663 |gxc[1]#_g137664_|)) (declare (not safe)) - (cons 'methods __tmp137681))) - (__tmp137676 - (let ((__tmp137677 - (let ((__tmp137678 |gxc[1]#_g137679_|)) + (cons 'methods __tmp137663))) + (__tmp137658 + (let ((__tmp137659 + (let ((__tmp137660 |gxc[1]#_g137661_|)) (declare (not safe)) - (cons 'slots __tmp137678)))) + (cons 'slots __tmp137660)))) (declare (not safe)) - (cons __tmp137677 '())))) + (cons __tmp137659 '())))) (declare (not safe)) - (cons __tmp137680 __tmp137676)))) + (cons __tmp137662 __tmp137658)))) (declare (not safe)) - (cons __tmp137683 __tmp137675)))) + (cons __tmp137665 __tmp137657)))) (declare (not safe)) (##unchecked-structure-set! - __obj137229 - __tmp137674 + __obj137211 + __tmp137656 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137686 - (let ((__tmp137695 - (let ((__tmp137696 |gxc[1]#_g137697_|)) + (let ((__tmp137668 + (let ((__tmp137677 + (let ((__tmp137678 |gxc[1]#_g137679_|)) (declare (not safe)) - (cons 'receiver __tmp137696))) - (__tmp137687 - (let ((__tmp137692 - (let ((__tmp137693 |gxc[1]#_g137694_|)) + (cons 'receiver __tmp137678))) + (__tmp137669 + (let ((__tmp137674 + (let ((__tmp137675 |gxc[1]#_g137676_|)) (declare (not safe)) - (cons 'methods __tmp137693))) - (__tmp137688 - (let ((__tmp137689 - (let ((__tmp137690 |gxc[1]#_g137691_|)) + (cons 'methods __tmp137675))) + (__tmp137670 + (let ((__tmp137671 + (let ((__tmp137672 |gxc[1]#_g137673_|)) (declare (not safe)) - (cons 'slots __tmp137690)))) + (cons 'slots __tmp137672)))) (declare (not safe)) - (cons __tmp137689 '())))) + (cons __tmp137671 '())))) (declare (not safe)) - (cons __tmp137692 __tmp137688)))) + (cons __tmp137674 __tmp137670)))) (declare (not safe)) - (cons __tmp137695 __tmp137687)))) + (cons __tmp137677 __tmp137669)))) (declare (not safe)) (##unchecked-structure-set! - __obj137229 - __tmp137686 + __obj137211 + __tmp137668 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137698 - (let ((__tmp137707 - (let ((__tmp137708 |gxc[1]#_g137709_|)) + (let ((__tmp137680 + (let ((__tmp137689 + (let ((__tmp137690 |gxc[1]#_g137691_|)) (declare (not safe)) - (cons 'receiver __tmp137708))) - (__tmp137699 - (let ((__tmp137704 - (let ((__tmp137705 |gxc[1]#_g137706_|)) + (cons 'receiver __tmp137690))) + (__tmp137681 + (let ((__tmp137686 + (let ((__tmp137687 |gxc[1]#_g137688_|)) (declare (not safe)) - (cons 'methods __tmp137705))) - (__tmp137700 - (let ((__tmp137701 - (let ((__tmp137702 |gxc[1]#_g137703_|)) + (cons 'methods __tmp137687))) + (__tmp137682 + (let ((__tmp137683 + (let ((__tmp137684 |gxc[1]#_g137685_|)) (declare (not safe)) - (cons 'slots __tmp137702)))) + (cons 'slots __tmp137684)))) (declare (not safe)) - (cons __tmp137701 '())))) + (cons __tmp137683 '())))) (declare (not safe)) - (cons __tmp137704 __tmp137700)))) + (cons __tmp137686 __tmp137682)))) (declare (not safe)) - (cons __tmp137707 __tmp137699)))) + (cons __tmp137689 __tmp137681)))) (declare (not safe)) (##unchecked-structure-set! - __obj137229 - __tmp137698 + __obj137211 + __tmp137680 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj137229)) + __obj137211)) (define |gxc[:0:]#::subst-object-refs| - (let ((__obj137231 + (let ((__obj137213 (let () (declare (not safe)) (##structure @@ -678,7 +678,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137231 + __obj137213 '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! - __obj137231 + __obj137213 '::subst-object-refs '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -694,26 +694,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137231 + __obj137213 '(receiver klass methods slots) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137710 - (let ((__tmp137711 |gxc[1]#_g137712_|)) + (let ((__tmp137692 + (let ((__tmp137693 |gxc[1]#_g137694_|)) (declare (not safe)) - (cons __tmp137711 '())))) + (cons __tmp137693 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj137231 - __tmp137710 + __obj137213 + __tmp137692 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj137231 + __obj137213 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -721,7 +721,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137231 + __obj137213 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -729,7 +729,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137231 + __obj137213 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -737,177 +737,177 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137231 + __obj137213 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137713 |gxc[1]#_g137714_|)) + (let ((__tmp137695 |gxc[1]#_g137696_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137231 - __tmp137713 + __obj137213 + __tmp137695 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137715 |gxc[1]#_g137716_|)) + (let ((__tmp137697 |gxc[1]#_g137698_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137231 - __tmp137715 + __obj137213 + __tmp137697 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137717 |gxc[1]#_g137718_|)) + (let ((__tmp137699 |gxc[1]#_g137700_|)) (declare (not safe)) (##unchecked-structure-set! - __obj137231 - __tmp137717 + __obj137213 + __tmp137699 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137719 - (let ((__tmp137732 - (let ((__tmp137733 |gxc[1]#_g137734_|)) + (let ((__tmp137701 + (let ((__tmp137714 + (let ((__tmp137715 |gxc[1]#_g137716_|)) (declare (not safe)) - (cons 'receiver __tmp137733))) - (__tmp137720 - (let ((__tmp137729 - (let ((__tmp137730 |gxc[1]#_g137731_|)) + (cons 'receiver __tmp137715))) + (__tmp137702 + (let ((__tmp137711 + (let ((__tmp137712 |gxc[1]#_g137713_|)) (declare (not safe)) - (cons 'klass __tmp137730))) - (__tmp137721 - (let ((__tmp137726 - (let ((__tmp137727 |gxc[1]#_g137728_|)) + (cons 'klass __tmp137712))) + (__tmp137703 + (let ((__tmp137708 + (let ((__tmp137709 |gxc[1]#_g137710_|)) (declare (not safe)) - (cons 'methods __tmp137727))) - (__tmp137722 - (let ((__tmp137723 - (let ((__tmp137724 - |gxc[1]#_g137725_|)) + (cons 'methods __tmp137709))) + (__tmp137704 + (let ((__tmp137705 + (let ((__tmp137706 + |gxc[1]#_g137707_|)) (declare (not safe)) - (cons 'slots __tmp137724)))) + (cons 'slots __tmp137706)))) (declare (not safe)) - (cons __tmp137723 '())))) + (cons __tmp137705 '())))) (declare (not safe)) - (cons __tmp137726 __tmp137722)))) + (cons __tmp137708 __tmp137704)))) (declare (not safe)) - (cons __tmp137729 __tmp137721)))) + (cons __tmp137711 __tmp137703)))) (declare (not safe)) - (cons __tmp137732 __tmp137720)))) + (cons __tmp137714 __tmp137702)))) (declare (not safe)) (##unchecked-structure-set! - __obj137231 - __tmp137719 + __obj137213 + __tmp137701 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137735 - (let ((__tmp137748 - (let ((__tmp137749 |gxc[1]#_g137750_|)) + (let ((__tmp137717 + (let ((__tmp137730 + (let ((__tmp137731 |gxc[1]#_g137732_|)) (declare (not safe)) - (cons 'receiver __tmp137749))) - (__tmp137736 - (let ((__tmp137745 - (let ((__tmp137746 |gxc[1]#_g137747_|)) + (cons 'receiver __tmp137731))) + (__tmp137718 + (let ((__tmp137727 + (let ((__tmp137728 |gxc[1]#_g137729_|)) (declare (not safe)) - (cons 'klass __tmp137746))) - (__tmp137737 - (let ((__tmp137742 - (let ((__tmp137743 |gxc[1]#_g137744_|)) + (cons 'klass __tmp137728))) + (__tmp137719 + (let ((__tmp137724 + (let ((__tmp137725 |gxc[1]#_g137726_|)) (declare (not safe)) - (cons 'methods __tmp137743))) - (__tmp137738 - (let ((__tmp137739 - (let ((__tmp137740 - |gxc[1]#_g137741_|)) + (cons 'methods __tmp137725))) + (__tmp137720 + (let ((__tmp137721 + (let ((__tmp137722 + |gxc[1]#_g137723_|)) (declare (not safe)) - (cons 'slots __tmp137740)))) + (cons 'slots __tmp137722)))) (declare (not safe)) - (cons __tmp137739 '())))) + (cons __tmp137721 '())))) (declare (not safe)) - (cons __tmp137742 __tmp137738)))) + (cons __tmp137724 __tmp137720)))) (declare (not safe)) - (cons __tmp137745 __tmp137737)))) + (cons __tmp137727 __tmp137719)))) (declare (not safe)) - (cons __tmp137748 __tmp137736)))) + (cons __tmp137730 __tmp137718)))) (declare (not safe)) (##unchecked-structure-set! - __obj137231 - __tmp137735 + __obj137213 + __tmp137717 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137751 - (let ((__tmp137764 - (let ((__tmp137765 |gxc[1]#_g137766_|)) + (let ((__tmp137733 + (let ((__tmp137746 + (let ((__tmp137747 |gxc[1]#_g137748_|)) (declare (not safe)) - (cons 'receiver __tmp137765))) - (__tmp137752 - (let ((__tmp137761 - (let ((__tmp137762 |gxc[1]#_g137763_|)) + (cons 'receiver __tmp137747))) + (__tmp137734 + (let ((__tmp137743 + (let ((__tmp137744 |gxc[1]#_g137745_|)) (declare (not safe)) - (cons 'klass __tmp137762))) - (__tmp137753 - (let ((__tmp137758 - (let ((__tmp137759 |gxc[1]#_g137760_|)) + (cons 'klass __tmp137744))) + (__tmp137735 + (let ((__tmp137740 + (let ((__tmp137741 |gxc[1]#_g137742_|)) (declare (not safe)) - (cons 'methods __tmp137759))) - (__tmp137754 - (let ((__tmp137755 - (let ((__tmp137756 - |gxc[1]#_g137757_|)) + (cons 'methods __tmp137741))) + (__tmp137736 + (let ((__tmp137737 + (let ((__tmp137738 + |gxc[1]#_g137739_|)) (declare (not safe)) - (cons 'slots __tmp137756)))) + (cons 'slots __tmp137738)))) (declare (not safe)) - (cons __tmp137755 '())))) + (cons __tmp137737 '())))) (declare (not safe)) - (cons __tmp137758 __tmp137754)))) + (cons __tmp137740 __tmp137736)))) (declare (not safe)) - (cons __tmp137761 __tmp137753)))) + (cons __tmp137743 __tmp137735)))) (declare (not safe)) - (cons __tmp137764 __tmp137752)))) + (cons __tmp137746 __tmp137734)))) (declare (not safe)) (##unchecked-structure-set! - __obj137231 - __tmp137751 + __obj137213 + __tmp137733 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp137767 - (let ((__tmp137780 - (let ((__tmp137781 |gxc[1]#_g137782_|)) + (let ((__tmp137749 + (let ((__tmp137762 + (let ((__tmp137763 |gxc[1]#_g137764_|)) (declare (not safe)) - (cons 'receiver __tmp137781))) - (__tmp137768 - (let ((__tmp137777 - (let ((__tmp137778 |gxc[1]#_g137779_|)) + (cons 'receiver __tmp137763))) + (__tmp137750 + (let ((__tmp137759 + (let ((__tmp137760 |gxc[1]#_g137761_|)) (declare (not safe)) - (cons 'klass __tmp137778))) - (__tmp137769 - (let ((__tmp137774 - (let ((__tmp137775 |gxc[1]#_g137776_|)) + (cons 'klass __tmp137760))) + (__tmp137751 + (let ((__tmp137756 + (let ((__tmp137757 |gxc[1]#_g137758_|)) (declare (not safe)) - (cons 'methods __tmp137775))) - (__tmp137770 - (let ((__tmp137771 - (let ((__tmp137772 - |gxc[1]#_g137773_|)) + (cons 'methods __tmp137757))) + (__tmp137752 + (let ((__tmp137753 + (let ((__tmp137754 + |gxc[1]#_g137755_|)) (declare (not safe)) - (cons 'slots __tmp137772)))) + (cons 'slots __tmp137754)))) (declare (not safe)) - (cons __tmp137771 '())))) + (cons __tmp137753 '())))) (declare (not safe)) - (cons __tmp137774 __tmp137770)))) + (cons __tmp137756 __tmp137752)))) (declare (not safe)) - (cons __tmp137777 __tmp137769)))) + (cons __tmp137759 __tmp137751)))) (declare (not safe)) - (cons __tmp137780 __tmp137768)))) + (cons __tmp137762 __tmp137750)))) (declare (not safe)) (##unchecked-structure-set! - __obj137231 - __tmp137767 + __obj137213 + __tmp137749 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj137231)))) + __obj137213)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~0.scm b/src/bootstrap/gerbil/compiler/optimize-top~0.scm index 7017065f7..91f863cdc 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 1710833425) + (define gerbil/compiler/optimize-top::timestamp 1710943499) (begin (define gxc#::collect-top-level-type-info::t - (let ((__tmp130650 (list gxc#::void::t)) - (__tmp130648 - (let ((__tmp130649 + (let ((__tmp130632 (list gxc#::void::t)) + (__tmp130630 + (let ((__tmp130631 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp130649 '())))) + (cons __tmp130631 '())))) (declare (not safe)) (make-class-type 'gxc#::collect-top-level-type-info::t '::collect-top-level-type-info - __tmp130650 + __tmp130632 '() - __tmp130648 + __tmp130630 '#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 _$args128544_ + (lambda _$args128526_ (apply make-instance gxc#::collect-top-level-type-info::t - _$args128544_))) + _$args128526_))) (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 (_stx128536_) + (lambda (_stx128518_) (force gxc#::collect-top-level-type-info-bind-methods!) - (let* ((_self128539_ - (let ((__obj130631 + (let* ((_self128521_ + (let ((__obj130613 (let () (declare (not safe)) (##structure gxc#::collect-top-level-type-info::t)))) - __obj130631)) - (__tmp130651 + __obj130613)) + (__tmp130633 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self128539_ _stx128536_))))) + (gxc#compile-e__1 _self128521_ _stx128518_))))) (declare (not safe)) (call-with-parameters - __tmp130651 + __tmp130633 gxc#current-compile-method - _self128539_)))) + _self128521_)))) (define gxc#::basic-expression-top-level-type::t - (let ((__tmp130654 (list gxc#::false::t)) - (__tmp130652 - (let ((__tmp130653 + (let ((__tmp130636 (list gxc#::false::t)) + (__tmp130634 + (let ((__tmp130635 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp130653 '())))) + (cons __tmp130635 '())))) (declare (not safe)) (make-class-type 'gxc#::basic-expression-top-level-type::t '::basic-expression-top-level-type - __tmp130654 + __tmp130636 '() - __tmp130652 + __tmp130634 '#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 _$args128533_ + (lambda _$args128515_ (apply make-instance gxc#::basic-expression-top-level-type::t - _$args128533_))) + _$args128515_))) (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 (_stx128525_) + (lambda (_stx128507_) (force gxc#::basic-expression-top-level-type-bind-methods!) - (let* ((_self128528_ - (let ((__obj130633 + (let* ((_self128510_ + (let ((__obj130615 (let () (declare (not safe)) (##structure gxc#::basic-expression-top-level-type::t)))) - __obj130633)) - (__tmp130655 + __obj130615)) + (__tmp130637 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self128528_ _stx128525_))))) + (gxc#compile-e__1 _self128510_ _stx128507_))))) (declare (not safe)) (call-with-parameters - __tmp130655 + __tmp130637 gxc#current-compile-method - _self128528_)))) + _self128510_)))) (define gxc#::collect-type-info::t - (let ((__tmp130658 (list gxc#::void::t)) - (__tmp130656 - (let ((__tmp130657 + (let ((__tmp130640 (list gxc#::void::t)) + (__tmp130638 + (let ((__tmp130639 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp130657 '())))) + (cons __tmp130639 '())))) (declare (not safe)) (make-class-type 'gxc#::collect-type-info::t '::collect-type-info - __tmp130658 + __tmp130640 '() - __tmp130656 + __tmp130638 '#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 _$args128522_ - (apply make-instance gxc#::collect-type-info::t _$args128522_))) + (lambda _$args128504_ + (apply make-instance gxc#::collect-type-info::t _$args128504_))) (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 (_stx128514_) + (lambda (_stx128496_) (force gxc#::collect-type-info-bind-methods!) - (let* ((_self128517_ - (let ((__obj130635 + (let* ((_self128499_ + (let ((__obj130617 (let () (declare (not safe)) (##structure gxc#::collect-type-info::t)))) - __obj130635)) - (__tmp130659 + __obj130617)) + (__tmp130641 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self128517_ _stx128514_))))) + (gxc#compile-e__1 _self128499_ _stx128496_))))) (declare (not safe)) (call-with-parameters - __tmp130659 + __tmp130641 gxc#current-compile-method - _self128517_)))) + _self128499_)))) (define gxc#::basic-expression-type::t - (let ((__tmp130662 (list gxc#::false::t)) - (__tmp130660 - (let ((__tmp130661 + (let ((__tmp130644 (list gxc#::false::t)) + (__tmp130642 + (let ((__tmp130643 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp130661 '())))) + (cons __tmp130643 '())))) (declare (not safe)) (make-class-type 'gxc#::basic-expression-type::t '::basic-expression-type - __tmp130662 + __tmp130644 '() - __tmp130660 + __tmp130642 '#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 _$args128511_ - (apply make-instance gxc#::basic-expression-type::t _$args128511_))) + (lambda _$args128493_ + (apply make-instance gxc#::basic-expression-type::t _$args128493_))) (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 (_stx128503_) + (lambda (_stx128485_) (force gxc#::basic-expression-type-bind-methods!) - (let* ((_self128506_ - (let ((__obj130637 + (let* ((_self128488_ + (let ((__obj130619 (let () (declare (not safe)) (##structure gxc#::basic-expression-type::t)))) - __obj130637)) - (__tmp130663 + __obj130619)) + (__tmp130645 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self128506_ _stx128503_))))) + (gxc#compile-e__1 _self128488_ _stx128485_))))) (declare (not safe)) (call-with-parameters - __tmp130663 + __tmp130645 gxc#current-compile-method - _self128506_)))) + _self128488_)))) (define gxc#::lift-top-lambdas::t - (let ((__tmp130666 (list gxc#::basic-xform::t)) - (__tmp130664 - (let ((__tmp130665 + (let ((__tmp130648 (list gxc#::basic-xform::t)) + (__tmp130646 + (let ((__tmp130647 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp130665 '())))) + (cons __tmp130647 '())))) (declare (not safe)) (make-class-type 'gxc#::lift-top-lambdas::t '::lift-top-lambdas - __tmp130666 + __tmp130648 '() - __tmp130664 + __tmp130646 '#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 _$args128500_ - (apply make-instance gxc#::lift-top-lambdas::t _$args128500_))) + (lambda _$args128482_ + (apply make-instance gxc#::lift-top-lambdas::t _$args128482_))) (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 (_stx128492_) + (lambda (_stx128474_) (force gxc#::lift-top-lambdas-bind-methods!) - (let* ((_self128495_ - (let ((__obj130639 + (let* ((_self128477_ + (let ((__obj130621 (let () (declare (not safe)) (##structure gxc#::lift-top-lambdas::t)))) - __obj130639)) - (__tmp130667 + __obj130621)) + (__tmp130649 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self128495_ _stx128492_))))) + (gxc#compile-e__1 _self128477_ _stx128474_))))) (declare (not safe)) (call-with-parameters - __tmp130667 + __tmp130649 gxc#current-compile-method - _self128495_)))) + _self128477_)))) (define gxc#collect-top-level-type-define-values% - (lambda (_self128394_ _stx128395_) - (let* ((___stx128557128558_ _stx128395_) - (_g128398128418_ + (lambda (_self128376_ _stx128377_) + (let* ((___stx128539128540_ _stx128377_) + (_g128380128400_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128557128558_))))) - (let ((___kont128559128560_ - (lambda (_L128462_ _L128463_) - (let ((_sym128481_ + ___stx128539128540_))))) + (let ((___kont128541128542_ + (lambda (_L128444_ _L128445_) + (let ((_sym128463_ (let () (declare (not safe)) - (gxc#identifier-symbol _L128463_)))) - (if (let ((__tmp130668 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L128445_)))) + (if (let ((__tmp130650 (gxc#current-compile-mutators))) (declare (not safe)) - (hash-get __tmp130668 _sym128481_)) + (hash-get __tmp130650 _sym128463_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym128481_)) - (let ((_type128482128484_ + _sym128463_)) + (let ((_type128464128466_ (let () (declare (not safe)) (gxc#apply-basic-expression-top-level-type - _L128462_)))) - (if _type128482128484_ - (let ((_type128487_ _type128482128484_)) + _L128444_)))) + (if _type128464128466_ + (let ((_type128469_ _type128464128466_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym128481_ - _type128487_)) + _sym128463_ + _type128469_)) '#f)))))) - (___kont128561128562_ (lambda () '#!void))) - (let ((___match128590128591_ - (lambda (_e128404128430_ - _hd128403128433_ - _tl128402128435_ - _e128407128438_ - _hd128406128441_ - _tl128405128443_ - _e128410128446_ - _hd128409128449_ - _tl128408128451_ - _e128413128454_ - _hd128412128457_ - _tl128411128459_) - (let ((_L128462_ _hd128412128457_) - (_L128463_ _hd128409128449_)) + (___kont128543128544_ (lambda () '#!void))) + (let ((___match128572128573_ + (lambda (_e128386128412_ + _hd128385128415_ + _tl128384128417_ + _e128389128420_ + _hd128388128423_ + _tl128387128425_ + _e128392128428_ + _hd128391128431_ + _tl128390128433_ + _e128395128436_ + _hd128394128439_ + _tl128393128441_) + (let ((_L128444_ _hd128394128439_) + (_L128445_ _hd128391128431_)) (if (let () (declare (not safe)) - (gx#identifier? _L128463_)) - (___kont128559128560_ _L128462_ _L128463_) - (___kont128561128562_)))))) + (gx#identifier? _L128445_)) + (___kont128541128542_ _L128444_ _L128445_) + (___kont128543128544_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128557128558_)) - (let ((_e128404128430_ + (gx#stx-pair? ___stx128539128540_)) + (let ((_e128386128412_ (let () (declare (not safe)) - (gx#stx-e ___stx128557128558_)))) - (let ((_tl128402128435_ + (gx#stx-e ___stx128539128540_)))) + (let ((_tl128384128417_ (let () (declare (not safe)) - (##cdr _e128404128430_))) - (_hd128403128433_ + (##cdr _e128386128412_))) + (_hd128385128415_ (let () (declare (not safe)) - (##car _e128404128430_)))) + (##car _e128386128412_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl128402128435_)) - (let ((_e128407128438_ + (gx#stx-pair? _tl128384128417_)) + (let ((_e128389128420_ (let () (declare (not safe)) - (gx#stx-e _tl128402128435_)))) - (let ((_tl128405128443_ + (gx#stx-e _tl128384128417_)))) + (let ((_tl128387128425_ (let () (declare (not safe)) - (##cdr _e128407128438_))) - (_hd128406128441_ + (##cdr _e128389128420_))) + (_hd128388128423_ (let () (declare (not safe)) - (##car _e128407128438_)))) + (##car _e128389128420_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd128406128441_)) - (let ((_e128410128446_ + (gx#stx-pair? _hd128388128423_)) + (let ((_e128392128428_ (let () (declare (not safe)) - (gx#stx-e _hd128406128441_)))) - (let ((_tl128408128451_ + (gx#stx-e _hd128388128423_)))) + (let ((_tl128390128433_ (let () (declare (not safe)) - (##cdr _e128410128446_))) - (_hd128409128449_ + (##cdr _e128392128428_))) + (_hd128391128431_ (let () (declare (not safe)) - (##car _e128410128446_)))) + (##car _e128392128428_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl128408128451_)) + (gx#stx-null? _tl128390128433_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl128405128443_)) - (let ((_e128413128454_ + _tl128387128425_)) + (let ((_e128395128436_ (let () (declare (not safe)) (gx#stx-e - _tl128405128443_)))) - (let ((_tl128411128459_ + _tl128387128425_)))) + (let ((_tl128393128441_ (let () (declare (not safe)) - (##cdr _e128413128454_))) - (_hd128412128457_ + (##cdr _e128395128436_))) + (_hd128394128439_ (let () (declare (not safe)) - (##car _e128413128454_)))) + (##car _e128395128436_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl128411128459_)) - (___match128590128591_ - _e128404128430_ - _hd128403128433_ - _tl128402128435_ - _e128407128438_ - _hd128406128441_ - _tl128405128443_ - _e128410128446_ - _hd128409128449_ - _tl128408128451_ - _e128413128454_ - _hd128412128457_ - _tl128411128459_) - (___kont128561128562_)))) - (___kont128561128562_)) - (___kont128561128562_)))) - (___kont128561128562_)))) - (___kont128561128562_)))) - (___kont128561128562_))))))) + _tl128393128441_)) + (___match128572128573_ + _e128386128412_ + _hd128385128415_ + _tl128384128417_ + _e128389128420_ + _hd128388128423_ + _tl128387128425_ + _e128392128428_ + _hd128391128431_ + _tl128390128433_ + _e128395128436_ + _hd128394128439_ + _tl128393128441_) + (___kont128543128544_)))) + (___kont128543128544_)) + (___kont128543128544_)))) + (___kont128543128544_)))) + (___kont128543128544_)))) + (___kont128543128544_))))))) (define gxc#collect-type-define-values% - (lambda (_self128249_ _stx128250_) - (let* ((___stx128593128594_ _stx128250_) - (_g128253128284_ + (lambda (_self128231_ _stx128232_) + (let* ((___stx128575128576_ _stx128232_) + (_g128235128266_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128593128594_))))) - (let ((___kont128595128596_ - (lambda (_L128366_ _L128367_) - (let ((_sym128383_ + ___stx128575128576_))))) + (let ((___kont128577128578_ + (lambda (_L128348_ _L128349_) + (let ((_sym128365_ (let () (declare (not safe)) - (gxc#identifier-symbol _L128367_)))) - (if (let ((__tmp130669 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L128349_)))) + (if (let ((__tmp130651 (gxc#current-compile-mutators))) (declare (not safe)) - (hash-get __tmp130669 _sym128383_)) + (hash-get __tmp130651 _sym128365_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym128383_)) + _sym128365_)) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym128383_)) + (gxc#optimizer-lookup-type _sym128365_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for already declared type " - _sym128383_)) - (let ((_type128384128386_ + _sym128365_)) + (let ((_type128366128368_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _L128366_)))) - (if _type128384128386_ - (let ((_type128389_ _type128384128386_)) + _L128348_)))) + (if _type128366128368_ + (let ((_type128371_ _type128366128368_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym128383_ - _type128389_)) + _sym128365_ + _type128371_)) '#f)))) (let () (declare (not safe)) - (gxc#compile-e__1 _self128249_ _L128366_))))) - (___kont128597128598_ - (lambda (_L128313_ _L128314_) + (gxc#compile-e__1 _self128231_ _L128348_))))) + (___kont128579128580_ + (lambda (_L128295_ _L128296_) (let () (declare (not safe)) - (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_)) + (gxc#compile-e__1 _self128231_ _L128295_))))) + (let ((___match128608128609_ + (lambda (_e128241128316_ + _hd128240128319_ + _tl128239128321_ + _e128244128324_ + _hd128243128327_ + _tl128242128329_ + _e128247128332_ + _hd128246128335_ + _tl128245128337_ + _e128250128340_ + _hd128249128343_ + _tl128248128345_) + (let ((_L128348_ _hd128249128343_) + (_L128349_ _hd128246128335_)) (if (let () (declare (not safe)) - (gx#identifier? _L128367_)) - (___kont128595128596_ _L128366_ _L128367_) - (___kont128597128598_ - _hd128267128361_ - _hd128261128345_)))))) + (gx#identifier? _L128349_)) + (___kont128577128578_ _L128348_ _L128349_) + (___kont128579128580_ + _hd128249128343_ + _hd128243128327_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128593128594_)) - (let ((_e128259128334_ + (gx#stx-pair? ___stx128575128576_)) + (let ((_e128241128316_ (let () (declare (not safe)) - (gx#stx-e ___stx128593128594_)))) - (let ((_tl128257128339_ + (gx#stx-e ___stx128575128576_)))) + (let ((_tl128239128321_ (let () (declare (not safe)) - (##cdr _e128259128334_))) - (_hd128258128337_ + (##cdr _e128241128316_))) + (_hd128240128319_ (let () (declare (not safe)) - (##car _e128259128334_)))) + (##car _e128241128316_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl128257128339_)) - (let ((_e128262128342_ + (gx#stx-pair? _tl128239128321_)) + (let ((_e128244128324_ (let () (declare (not safe)) - (gx#stx-e _tl128257128339_)))) - (let ((_tl128260128347_ + (gx#stx-e _tl128239128321_)))) + (let ((_tl128242128329_ (let () (declare (not safe)) - (##cdr _e128262128342_))) - (_hd128261128345_ + (##cdr _e128244128324_))) + (_hd128243128327_ (let () (declare (not safe)) - (##car _e128262128342_)))) + (##car _e128244128324_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd128261128345_)) - (let ((_e128265128350_ + (gx#stx-pair? _hd128243128327_)) + (let ((_e128247128332_ (let () (declare (not safe)) - (gx#stx-e _hd128261128345_)))) - (let ((_tl128263128355_ + (gx#stx-e _hd128243128327_)))) + (let ((_tl128245128337_ (let () (declare (not safe)) - (##cdr _e128265128350_))) - (_hd128264128353_ + (##cdr _e128247128332_))) + (_hd128246128335_ (let () (declare (not safe)) - (##car _e128265128350_)))) + (##car _e128247128332_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl128263128355_)) + (gx#stx-null? _tl128245128337_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl128260128347_)) - (let ((_e128268128358_ + _tl128242128329_)) + (let ((_e128250128340_ (let () (declare (not safe)) (gx#stx-e - _tl128260128347_)))) - (let ((_tl128266128363_ + _tl128242128329_)))) + (let ((_tl128248128345_ (let () (declare (not safe)) - (##cdr _e128268128358_))) - (_hd128267128361_ + (##cdr _e128250128340_))) + (_hd128249128343_ (let () (declare (not safe)) - (##car _e128268128358_)))) + (##car _e128250128340_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl128266128363_)) - (___match128626128627_ - _e128259128334_ - _hd128258128337_ - _tl128257128339_ - _e128262128342_ - _hd128261128345_ - _tl128260128347_ - _e128265128350_ - _hd128264128353_ - _tl128263128355_ - _e128268128358_ - _hd128267128361_ - _tl128266128363_) + _tl128248128345_)) + (___match128608128609_ + _e128241128316_ + _hd128240128319_ + _tl128239128321_ + _e128244128324_ + _hd128243128327_ + _tl128242128329_ + _e128247128332_ + _hd128246128335_ + _tl128245128337_ + _e128250128340_ + _hd128249128343_ + _tl128248128345_) (let () (declare (not safe)) - (_g128253128284_))))) + (_g128235128266_))))) (let () (declare (not safe)) - (_g128253128284_))) + (_g128235128266_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl128260128347_)) - (let ((_e128279128305_ + _tl128242128329_)) + (let ((_e128261128287_ (let () (declare (not safe)) (gx#stx-e - _tl128260128347_)))) - (let ((_tl128277128310_ + _tl128242128329_)))) + (let ((_tl128259128292_ (let () (declare (not safe)) - (##cdr _e128279128305_))) - (_hd128278128308_ + (##cdr _e128261128287_))) + (_hd128260128290_ (let () (declare (not safe)) - (##car _e128279128305_)))) + (##car _e128261128287_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl128277128310_)) - (___kont128597128598_ - _hd128278128308_ - _hd128261128345_) + _tl128259128292_)) + (___kont128579128580_ + _hd128260128290_ + _hd128243128327_) (let () (declare (not safe)) - (_g128253128284_))))) + (_g128235128266_))))) (let () (declare (not safe)) - (_g128253128284_)))))) + (_g128235128266_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl128260128347_)) - (let ((_e128279128305_ + (gx#stx-pair? _tl128242128329_)) + (let ((_e128261128287_ (let () (declare (not safe)) - (gx#stx-e _tl128260128347_)))) - (let ((_tl128277128310_ + (gx#stx-e _tl128242128329_)))) + (let ((_tl128259128292_ (let () (declare (not safe)) - (##cdr _e128279128305_))) - (_hd128278128308_ + (##cdr _e128261128287_))) + (_hd128260128290_ (let () (declare (not safe)) - (##car _e128279128305_)))) + (##car _e128261128287_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl128277128310_)) - (___kont128597128598_ - _hd128278128308_ - _hd128261128345_) + _tl128259128292_)) + (___kont128579128580_ + _hd128260128290_ + _hd128243128327_) (let () (declare (not safe)) - (_g128253128284_))))) + (_g128235128266_))))) (let () (declare (not safe)) - (_g128253128284_)))))) - (let () (declare (not safe)) (_g128253128284_))))) - (let () (declare (not safe)) (_g128253128284_)))))))) + (_g128235128266_)))))) + (let () (declare (not safe)) (_g128235128266_))))) + (let () (declare (not safe)) (_g128235128266_)))))))) (define gxc#collect-type-let-values% - (lambda (_self128029_ _stx128030_) - (letrec ((_collect-e128032_ - (lambda (_hd128193_ _expr128194_) - (let* ((___stx128649128650_ _hd128193_) - (_g128197128207_ + (lambda (_self128011_ _stx128012_) + (letrec ((_collect-e128014_ + (lambda (_hd128175_ _expr128176_) + (let* ((___stx128631128632_ _hd128175_) + (_g128179128189_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128649128650_))))) - (let ((___kont128651128652_ - (lambda (_L128227_) - (let ((_sym128238_ + ___stx128631128632_))))) + (let ((___kont128633128634_ + (lambda (_L128209_) + (let ((_sym128220_ (let () (declare (not safe)) - (gxc#identifier-symbol _L128227_)))) - (if (let ((__tmp130670 + (gxc#identifier-symbol _L128209_)))) + (if (let ((__tmp130652 (gxc#current-compile-mutators))) (declare (not safe)) - (hash-get __tmp130670 _sym128238_)) + (hash-get __tmp130652 _sym128220_)) (let () (declare (not safe)) (gxc#verbose '"skipping type declaration for mutable binding " - _sym128238_)) - (let ((_type128239128241_ + _sym128220_)) + (let ((_type128221128223_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _expr128194_)))) - (if _type128239128241_ - (let ((_type128244_ - _type128239128241_)) + _expr128176_)))) + (if _type128221128223_ + (let ((_type128226_ + _type128221128223_)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym128238_ - _type128244_ + _sym128220_ + _type128226_ '#t)) '#f)))))) - (___kont128653128654_ (lambda () '#!void))) - (let ((___match128662128663_ - (lambda (_e128202128219_ - _hd128201128222_ - _tl128200128224_) - (let ((_L128227_ _hd128201128222_)) + (___kont128635128636_ (lambda () '#!void))) + (let ((___match128644128645_ + (lambda (_e128184128201_ + _hd128183128204_ + _tl128182128206_) + (let ((_L128209_ _hd128183128204_)) (if (let () (declare (not safe)) - (gx#identifier? _L128227_)) - (___kont128651128652_ _L128227_) - (___kont128653128654_)))))) + (gx#identifier? _L128209_)) + (___kont128633128634_ _L128209_) + (___kont128635128636_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128649128650_)) - (let ((_e128202128219_ + (gx#stx-pair? ___stx128631128632_)) + (let ((_e128184128201_ (let () (declare (not safe)) - (gx#stx-e ___stx128649128650_)))) - (let ((_tl128200128224_ + (gx#stx-e ___stx128631128632_)))) + (let ((_tl128182128206_ (let () (declare (not safe)) - (##cdr _e128202128219_))) - (_hd128201128222_ + (##cdr _e128184128201_))) + (_hd128183128204_ (let () (declare (not safe)) - (##car _e128202128219_)))) + (##car _e128184128201_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl128200128224_)) - (___match128662128663_ - _e128202128219_ - _hd128201128222_ - _tl128200128224_) - (___kont128653128654_)))) - (___kont128653128654_)))))))) - (let* ((_g128034128069_ - (lambda (_g128035128066_) + (gx#stx-null? _tl128182128206_)) + (___match128644128645_ + _e128184128201_ + _hd128183128204_ + _tl128182128206_) + (___kont128635128636_)))) + (___kont128635128636_)))))))) + (let* ((_g128016128051_ + (lambda (_g128017128048_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g128035128066_)))) - (_g128033128190_ - (lambda (_g128035128072_) + _g128017128048_)))) + (_g128015128172_ + (lambda (_g128017128054_) (if (let () (declare (not safe)) - (gx#stx-pair? _g128035128072_)) - (let ((_e128041128074_ + (gx#stx-pair? _g128017128054_)) + (let ((_e128023128056_ (let () (declare (not safe)) - (gx#stx-e _g128035128072_)))) - (let ((_hd128040128077_ + (gx#stx-e _g128017128054_)))) + (let ((_hd128022128059_ (let () (declare (not safe)) - (##car _e128041128074_))) - (_tl128039128079_ + (##car _e128023128056_))) + (_tl128021128061_ (let () (declare (not safe)) - (##cdr _e128041128074_)))) + (##cdr _e128023128056_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl128039128079_)) - (let ((_e128044128082_ + (gx#stx-pair? _tl128021128061_)) + (let ((_e128026128064_ (let () (declare (not safe)) - (gx#stx-e _tl128039128079_)))) - (let ((_hd128043128085_ + (gx#stx-e _tl128021128061_)))) + (let ((_hd128025128067_ (let () (declare (not safe)) - (##car _e128044128082_))) - (_tl128042128087_ + (##car _e128026128064_))) + (_tl128024128069_ (let () (declare (not safe)) - (##cdr _e128044128082_)))) + (##cdr _e128026128064_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd128043128085_)) - (let ((_g130671_ + (gx#stx-pair/null? _hd128025128067_)) + (let ((_g130653_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd128043128085_ + _hd128025128067_ '0)))) (begin - (let ((_g130672_ + (let ((_g130654_ (let () (declare (not safe)) - (if (##values? _g130671_) + (if (##values? _g130653_) (##vector-length - _g130671_) + _g130653_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g130672_ 2))) + (##fx= _g130654_ 2))) (error "Context expects 2 values" - _g130672_))) - (let ((_target128045128090_ + _g130654_))) + (let ((_target128027128072_ (let () (declare (not safe)) (##vector-ref - _g130671_ + _g130653_ 0))) - (_tl128047128092_ + (_tl128029128074_ (let () (declare (not safe)) (##vector-ref - _g130671_ + _g130653_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl128047128092_)) - (letrec ((_loop128048128095_ - (lambda (_hd128046128098_ + _tl128029128074_)) + (letrec ((_loop128030128077_ + (lambda (_hd128028128080_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr128052128100_ - _hd128053128102_) + _expr128034128082_ + _hd128035128084_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd128046128098_)) - (let ((_e128049128105_ + (gx#stx-pair? _hd128028128080_)) + (let ((_e128031128087_ (let () (declare (not safe)) - (gx#stx-e _hd128046128098_)))) - (let ((_lp-hd128050128108_ + (gx#stx-e _hd128028128080_)))) + (let ((_lp-hd128032128090_ (let () (declare (not safe)) - (##car _e128049128105_))) - (_lp-tl128051128110_ + (##car _e128031128087_))) + (_lp-tl128033128092_ (let () (declare (not safe)) - (##cdr _e128049128105_)))) + (##cdr _e128031128087_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd128050128108_)) - (let ((_e128058128113_ + (gx#stx-pair? _lp-hd128032128090_)) + (let ((_e128040128095_ (let () (declare (not safe)) - (gx#stx-e _lp-hd128050128108_)))) - (let ((_hd128057128116_ + (gx#stx-e _lp-hd128032128090_)))) + (let ((_hd128039128098_ (let () (declare (not safe)) - (##car _e128058128113_))) - (_tl128056128118_ + (##car _e128040128095_))) + (_tl128038128100_ (let () (declare (not safe)) - (##cdr _e128058128113_)))) + (##cdr _e128040128095_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl128056128118_)) - (let ((_e128061128121_ + (gx#stx-pair? _tl128038128100_)) + (let ((_e128043128103_ (let () (declare (not safe)) (gx#stx-e - _tl128056128118_)))) - (let ((_hd128060128124_ + _tl128038128100_)))) + (let ((_hd128042128106_ (let () (declare (not safe)) - (##car _e128061128121_))) - (_tl128059128126_ + (##car _e128043128103_))) + (_tl128041128108_ (let () (declare (not safe)) - (##cdr _e128061128121_)))) + (##cdr _e128043128103_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl128059128126_)) - (let ((__tmp130677 + _tl128041128108_)) + (let ((__tmp130659 (let () (declare (not safe)) - (cons _hd128060128124_ + (cons _hd128042128106_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr128052128100_))) - (__tmp130676 + _expr128034128082_))) + (__tmp130658 (let () (declare (not safe)) - (cons _hd128057128116_ _hd128053128102_)))) + (cons _hd128039128098_ _hd128035128084_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop128048128095_ - _lp-tl128051128110_ - __tmp130677 - __tmp130676)) + (_loop128030128077_ + _lp-tl128033128092_ + __tmp130659 + __tmp130658)) (let () (declare (not safe)) - (_g128034128069_ - _g128035128072_))))) + (_g128016128051_ + _g128017128054_))))) (let () (declare (not safe)) - (_g128034128069_ - _g128035128072_))))) + (_g128016128051_ + _g128017128054_))))) (let () (declare (not safe)) - (_g128034128069_ _g128035128072_))))) - (let ((_expr128054128129_ - (reverse _expr128052128100_)) - (_hd128055128131_ (reverse _hd128053128102_))) + (_g128016128051_ _g128017128054_))))) + (let ((_expr128036128111_ + (reverse _expr128034128082_)) + (_hd128037128113_ (reverse _hd128035128084_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl128042128087_)) - (let ((_e128064128134_ + (gx#stx-pair? _tl128024128069_)) + (let ((_e128046128116_ (let () (declare (not safe)) - (gx#stx-e _tl128042128087_)))) - (let ((_hd128063128137_ + (gx#stx-e _tl128024128069_)))) + (let ((_hd128045128119_ (let () (declare (not safe)) - (##car _e128064128134_))) - (_tl128062128139_ + (##car _e128046128116_))) + (_tl128044128121_ (let () (declare (not safe)) - (##cdr _e128064128134_)))) + (##cdr _e128046128116_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl128062128139_)) - ((lambda (_L128142_ - _L128143_ - _L128144_) + (gx#stx-null? _tl128044128121_)) + ((lambda (_L128124_ + _L128125_ + _L128126_) (for-each - _collect-e128032_ - (let ((__tmp130673 - (lambda (_g128164128167_ - _g128165128169_) + _collect-e128014_ + (let ((__tmp130655 + (lambda (_g128146128149_ + _g128147128151_) (let () (declare (not safe)) - (cons _g128164128167_ - _g128165128169_))))) + (cons _g128146128149_ + _g128147128151_))))) (declare (not safe)) - (foldr1 __tmp130673 + (foldr1 __tmp130655 '() - _L128144_)) - (let ((__tmp130674 - (lambda (_g128171128174_ - _g128172128176_) + _L128126_)) + (let ((__tmp130656 + (lambda (_g128153128156_ + _g128154128158_) (let () (declare (not safe)) - (cons _g128171128174_ - _g128172128176_))))) + (cons _g128153128156_ + _g128154128158_))))) (declare (not safe)) - (foldr1 __tmp130674 + (foldr1 __tmp130656 '() - _L128143_))) + _L128125_))) (for-each - (lambda (_g128178128180_) + (lambda (_g128160128162_) (let () (declare (not safe)) (gxc#compile-e__1 - _self128029_ - _g128178128180_))) - (let ((__tmp130675 - (lambda (_g128182128185_ - _g128183128187_) + _self128011_ + _g128160128162_))) + (let ((__tmp130657 + (lambda (_g128164128167_ + _g128165128169_) (let () (declare (not safe)) - (cons _g128182128185_ - _g128183128187_))))) + (cons _g128164128167_ + _g128165128169_))))) (declare (not safe)) - (foldr1 __tmp130675 + (foldr1 __tmp130657 '() - _L128143_))) + _L128125_))) (let () (declare (not safe)) (gxc#compile-e__1 - _self128029_ - _L128142_))) - _hd128063128137_ - _expr128054128129_ - _hd128055128131_) + _self128011_ + _L128124_))) + _hd128045128119_ + _expr128036128111_ + _hd128037128113_) (let () (declare (not safe)) - (_g128034128069_ _g128035128072_))))) + (_g128016128051_ _g128017128054_))))) (let () (declare (not safe)) - (_g128034128069_ _g128035128072_)))))))) + (_g128016128051_ _g128017128054_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop128048128095_ - _target128045128090_ + (_loop128030128077_ + _target128027128072_ '() '()))) (let () (declare (not safe)) - (_g128034128069_ - _g128035128072_)))))) + (_g128016128051_ + _g128017128054_)))))) (let () (declare (not safe)) - (_g128034128069_ _g128035128072_))))) + (_g128016128051_ _g128017128054_))))) (let () (declare (not safe)) - (_g128034128069_ _g128035128072_))))) + (_g128016128051_ _g128017128054_))))) (let () (declare (not safe)) - (_g128034128069_ _g128035128072_)))))) + (_g128016128051_ _g128017128054_)))))) (declare (not safe)) - (_g128033128190_ _stx128030_))))) + (_g128015128172_ _stx128012_))))) (define gxc#collect-type-call% - (lambda (_self127516_ _stx127517_) - (let* ((___stx128665128666_ _stx127517_) - (_g127521127636_ + (lambda (_self127498_ _stx127499_) + (let* ((___stx128647128648_ _stx127499_) + (_g127503127618_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128665128666_))))) - (let ((___kont128667128668_ - (lambda (_L127979_ _L127980_ _L127981_ _L127982_ _L127983_) - (let ((__tmp130681 + ___stx128647128648_))))) + (let ((___kont128649128650_ + (lambda (_L127961_ _L127962_ _L127963_ _L127964_ _L127965_) + (let ((__tmp130663 (let () (declare (not safe)) - (gxc#identifier-symbol _L127982_))) - (__tmp130680 - (let () (declare (not safe)) (gx#stx-e _L127981_))) - (__tmp130679 + (gxc#identifier-symbol _L127964_))) + (__tmp130662 + (let () (declare (not safe)) (gx#stx-e _L127963_))) + (__tmp130661 (let () (declare (not safe)) - (gxc#identifier-symbol _L127980_))) - (__tmp130678 - (let () (declare (not safe)) (gx#stx-e _L127979_)))) + (gxc#identifier-symbol _L127962_))) + (__tmp130660 + (let () (declare (not safe)) (gx#stx-e _L127961_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp130681 - __tmp130680 - __tmp130679 - __tmp130678)))) - (___kont128669128670_ - (lambda (_L127807_ _L127808_ _L127809_ _L127810_) - (let ((__tmp130684 + __tmp130663 + __tmp130662 + __tmp130661 + __tmp130660)))) + (___kont128651128652_ + (lambda (_L127789_ _L127790_ _L127791_ _L127792_) + (let ((__tmp130666 (let () (declare (not safe)) - (gxc#identifier-symbol _L127809_))) - (__tmp130683 - (let () (declare (not safe)) (gx#stx-e _L127808_))) - (__tmp130682 + (gxc#identifier-symbol _L127791_))) + (__tmp130665 + (let () (declare (not safe)) (gx#stx-e _L127790_))) + (__tmp130664 (let () (declare (not safe)) - (gxc#identifier-symbol _L127807_)))) + (gxc#identifier-symbol _L127789_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp130684 - __tmp130683 - __tmp130682 + __tmp130666 + __tmp130665 + __tmp130664 '#f)))) - (___kont128671128672_ - (lambda (_L127673_) + (___kont128653128654_ + (lambda (_L127655_) (for-each - (lambda (_g127686127688_) + (lambda (_g127668127670_) (let () (declare (not safe)) - (gxc#compile-e__1 _self127516_ _g127686127688_))) - (let ((__tmp130685 - (lambda (_g127690127693_ _g127691127695_) + (gxc#compile-e__1 _self127498_ _g127668127670_))) + (let ((__tmp130667 + (lambda (_g127672127675_ _g127673127677_) (let () (declare (not safe)) - (cons _g127690127693_ _g127691127695_))))) + (cons _g127672127675_ _g127673127677_))))) (declare (not safe)) - (foldr1 __tmp130685 '() _L127673_)))))) - (let* ((___match128922128923_ - (lambda (_e127622127641_ - _hd127621127644_ - _tl127620127646_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) - (letrec ((_loop127626127654_ - (lambda (_hd127624127657_ _expr127630127659_) + (foldr1 __tmp130667 '() _L127655_)))))) + (let* ((___match128904128905_ + (lambda (_e127604127623_ + _hd127603127626_ + _tl127602127628_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) + (letrec ((_loop127608127636_ + (lambda (_hd127606127639_ _expr127612127641_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd127624127657_)) - (let ((_e127627127662_ + (gx#stx-pair? _hd127606127639_)) + (let ((_e127609127644_ (let () (declare (not safe)) - (gx#stx-e _hd127624127657_)))) - (let ((_lp-tl127629127667_ + (gx#stx-e _hd127606127639_)))) + (let ((_lp-tl127611127649_ (let () (declare (not safe)) - (##cdr _e127627127662_))) - (_lp-hd127628127665_ + (##cdr _e127609127644_))) + (_lp-hd127610127647_ (let () (declare (not safe)) - (##car _e127627127662_)))) - (let ((__tmp130686 + (##car _e127609127644_)))) + (let ((__tmp130668 (let () (declare (not safe)) - (cons _lp-hd127628127665_ - _expr127630127659_)))) + (cons _lp-hd127610127647_ + _expr127612127641_)))) (declare (not safe)) - (_loop127626127654_ - _lp-tl127629127667_ - __tmp130686)))) - (let ((_expr127631127670_ - (reverse _expr127630127659_))) - (___kont128671128672_ - _expr127631127670_)))))) + (_loop127608127636_ + _lp-tl127611127649_ + __tmp130668)))) + (let ((_expr127613127652_ + (reverse _expr127612127641_))) + (___kont128653128654_ + _expr127613127652_)))))) (let () (declare (not safe)) - (_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_)) + (_loop127608127636_ _target127605127631_ '()))))) + (___match128784128785_ + (lambda (_e127512127833_ + _hd127511127836_ + _tl127510127838_ + _e127515127841_ + _hd127514127844_ + _tl127513127846_ + _e127518127849_ + _hd127517127852_ + _tl127516127854_ + _e127521127857_ + _hd127520127860_ + _tl127519127862_ + _e127524127865_ + _hd127523127868_ + _tl127522127870_ + _e127527127873_ + _hd127526127876_ + _tl127525127878_ + _e127530127881_ + _hd127529127884_ + _tl127528127886_ + _e127533127889_ + _hd127532127892_ + _tl127531127894_ + _e127536127897_ + _hd127535127900_ + _tl127534127902_ + _e127539127905_ + _hd127538127908_ + _tl127537127910_ + _e127542127913_ + _hd127541127916_ + _tl127540127918_ + _e127545127921_ + _hd127544127924_ + _tl127543127926_ + _e127548127929_ + _hd127547127932_ + _tl127546127934_ + _e127551127937_ + _hd127550127940_ + _tl127549127942_ + _e127554127945_ + _hd127553127948_ + _tl127552127950_ + _e127557127953_ + _hd127556127956_ + _tl127555127958_) + (let ((_L127961_ _hd127556127956_) + (_L127962_ _hd127547127932_) + (_L127963_ _hd127538127908_) + (_L127964_ _hd127529127884_) + (_L127965_ _hd127520127860_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L127983_ + _L127965_ 'bind-method!)) - (___kont128667128668_ - _L127979_ - _L127980_ - _L127981_ - _L127982_ - _L127983_) + (___kont128649128650_ + _L127961_ + _L127962_ + _L127963_ + _L127964_ + _L127965_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))))))) + (_g127503127618_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128665128666_)) - (let ((_e127530127851_ + (gx#stx-pair? ___stx128647128648_)) + (let ((_e127512127833_ (let () (declare (not safe)) - (gx#stx-e ___stx128665128666_)))) - (let ((_tl127528127856_ + (gx#stx-e ___stx128647128648_)))) + (let ((_tl127510127838_ (let () (declare (not safe)) - (##cdr _e127530127851_))) - (_hd127529127854_ + (##cdr _e127512127833_))) + (_hd127511127836_ (let () (declare (not safe)) - (##car _e127530127851_)))) + (##car _e127512127833_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127528127856_)) - (let ((_e127533127859_ + (gx#stx-pair? _tl127510127838_)) + (let ((_e127515127841_ (let () (declare (not safe)) - (gx#stx-e _tl127528127856_)))) - (let ((_tl127531127864_ + (gx#stx-e _tl127510127838_)))) + (let ((_tl127513127846_ (let () (declare (not safe)) - (##cdr _e127533127859_))) - (_hd127532127862_ + (##cdr _e127515127841_))) + (_hd127514127844_ (let () (declare (not safe)) - (##car _e127533127859_)))) + (##car _e127515127841_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd127532127862_)) - (let ((_e127536127867_ + (gx#stx-pair? _hd127514127844_)) + (let ((_e127518127849_ (let () (declare (not safe)) - (gx#stx-e _hd127532127862_)))) - (let ((_tl127534127872_ + (gx#stx-e _hd127514127844_)))) + (let ((_tl127516127854_ (let () (declare (not safe)) - (##cdr _e127536127867_))) - (_hd127535127870_ + (##cdr _e127518127849_))) + (_hd127517127852_ (let () (declare (not safe)) - (##car _e127536127867_)))) + (##car _e127518127849_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd127535127870_)) + (gx#identifier? _hd127517127852_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd127535127870_)) + _hd127517127852_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl127534127872_)) - (let ((_e127539127875_ + _tl127516127854_)) + (let ((_e127521127857_ (let () (declare (not safe)) (gx#stx-e - _tl127534127872_)))) - (let ((_tl127537127880_ + _tl127516127854_)))) + (let ((_tl127519127862_ (let () (declare (not safe)) - (##cdr _e127539127875_))) - (_hd127538127878_ + (##cdr _e127521127857_))) + (_hd127520127860_ (let () (declare (not safe)) - (##car _e127539127875_)))) + (##car _e127521127857_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127537127880_)) + _tl127519127862_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl127531127864_)) - (let ((_e127542127883_ + (gx#stx-pair? _tl127513127846_)) + (let ((_e127524127865_ (let () (declare (not safe)) - (gx#stx-e _tl127531127864_)))) - (let ((_tl127540127888_ + (gx#stx-e _tl127513127846_)))) + (let ((_tl127522127870_ (let () (declare (not safe)) - (##cdr _e127542127883_))) - (_hd127541127886_ + (##cdr _e127524127865_))) + (_hd127523127868_ (let () (declare (not safe)) - (##car _e127542127883_)))) + (##car _e127524127865_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd127541127886_)) - (let ((_e127545127891_ + (gx#stx-pair? _hd127523127868_)) + (let ((_e127527127873_ (let () (declare (not safe)) - (gx#stx-e _hd127541127886_)))) - (let ((_tl127543127896_ + (gx#stx-e _hd127523127868_)))) + (let ((_tl127525127878_ (let () (declare (not safe)) - (##cdr _e127545127891_))) - (_hd127544127894_ + (##cdr _e127527127873_))) + (_hd127526127876_ (let () (declare (not safe)) - (##car _e127545127891_)))) + (##car _e127527127873_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd127544127894_)) + (gx#identifier? _hd127526127876_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd127544127894_)) + _hd127526127876_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl127543127896_)) - (let ((_e127548127899_ + _tl127525127878_)) + (let ((_e127530127881_ (let () (declare (not safe)) (gx#stx-e - _tl127543127896_)))) - (let ((_tl127546127904_ + _tl127525127878_)))) + (let ((_tl127528127886_ (let () (declare (not safe)) - (##cdr _e127548127899_))) - (_hd127547127902_ + (##cdr _e127530127881_))) + (_hd127529127884_ (let () (declare (not safe)) - (##car _e127548127899_)))) + (##car _e127530127881_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127546127904_)) + _tl127528127886_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl127540127888_)) - (let ((_e127551127907_ + _tl127522127870_)) + (let ((_e127533127889_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl127540127888_)))) - (let ((_tl127549127912_ + (gx#stx-e _tl127522127870_)))) + (let ((_tl127531127894_ (let () (declare (not safe)) - (##cdr _e127551127907_))) - (_hd127550127910_ + (##cdr _e127533127889_))) + (_hd127532127892_ (let () (declare (not safe)) - (##car _e127551127907_)))) + (##car _e127533127889_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd127550127910_)) - (let ((_e127554127915_ + (gx#stx-pair? _hd127532127892_)) + (let ((_e127536127897_ (let () (declare (not safe)) - (gx#stx-e _hd127550127910_)))) - (let ((_tl127552127920_ + (gx#stx-e _hd127532127892_)))) + (let ((_tl127534127902_ (let () (declare (not safe)) - (##cdr _e127554127915_))) - (_hd127553127918_ + (##cdr _e127536127897_))) + (_hd127535127900_ (let () (declare (not safe)) - (##car _e127554127915_)))) + (##car _e127536127897_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd127553127918_)) + (gx#identifier? _hd127535127900_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd127553127918_)) + (gx#stx-eq? '%#quote _hd127535127900_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127552127920_)) - (let ((_e127557127923_ + (gx#stx-pair? _tl127534127902_)) + (let ((_e127539127905_ (let () (declare (not safe)) (gx#stx-e - _tl127552127920_)))) - (let ((_tl127555127928_ + _tl127534127902_)))) + (let ((_tl127537127910_ (let () (declare (not safe)) - (##cdr _e127557127923_))) - (_hd127556127926_ + (##cdr _e127539127905_))) + (_hd127538127908_ (let () (declare (not safe)) - (##car _e127557127923_)))) + (##car _e127539127905_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127555127928_)) + _tl127537127910_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl127549127912_)) - (let ((_e127560127931_ + _tl127531127894_)) + (let ((_e127542127913_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl127549127912_)))) - (let ((_tl127558127936_ - (let () (declare (not safe)) (##cdr _e127560127931_))) - (_hd127559127934_ - (let () (declare (not safe)) (##car _e127560127931_)))) + (gx#stx-e _tl127531127894_)))) + (let ((_tl127540127918_ + (let () (declare (not safe)) (##cdr _e127542127913_))) + (_hd127541127916_ + (let () (declare (not safe)) (##car _e127542127913_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd127559127934_)) - (let ((_e127563127939_ + (gx#stx-pair? _hd127541127916_)) + (let ((_e127545127921_ (let () (declare (not safe)) - (gx#stx-e _hd127559127934_)))) - (let ((_tl127561127944_ + (gx#stx-e _hd127541127916_)))) + (let ((_tl127543127926_ (let () (declare (not safe)) - (##cdr _e127563127939_))) - (_hd127562127942_ + (##cdr _e127545127921_))) + (_hd127544127924_ (let () (declare (not safe)) - (##car _e127563127939_)))) + (##car _e127545127921_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd127562127942_)) + (gx#identifier? _hd127544127924_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd127562127942_)) + (gx#stx-eq? '%#ref _hd127544127924_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127561127944_)) - (let ((_e127566127947_ + (gx#stx-pair? _tl127543127926_)) + (let ((_e127548127929_ (let () (declare (not safe)) - (gx#stx-e _tl127561127944_)))) - (let ((_tl127564127952_ + (gx#stx-e _tl127543127926_)))) + (let ((_tl127546127934_ (let () (declare (not safe)) - (##cdr _e127566127947_))) - (_hd127565127950_ + (##cdr _e127548127929_))) + (_hd127547127932_ (let () (declare (not safe)) - (##car _e127566127947_)))) + (##car _e127548127929_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127564127952_)) + _tl127546127934_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl127558127936_)) - (let ((_e127569127955_ + _tl127540127918_)) + (let ((_e127551127937_ (let () (declare (not safe)) (gx#stx-e - _tl127558127936_)))) - (let ((_tl127567127960_ + _tl127540127918_)))) + (let ((_tl127549127942_ (let () (declare (not safe)) - (##cdr _e127569127955_))) - (_hd127568127958_ + (##cdr _e127551127937_))) + (_hd127550127940_ (let () (declare (not safe)) - (##car _e127569127955_)))) + (##car _e127551127937_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd127568127958_)) - (let ((_e127572127963_ + _hd127550127940_)) + (let ((_e127554127945_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd127568127958_)))) - (let ((_tl127570127968_ + (gx#stx-e _hd127550127940_)))) + (let ((_tl127552127950_ (let () (declare (not safe)) - (##cdr _e127572127963_))) - (_hd127571127966_ + (##cdr _e127554127945_))) + (_hd127553127948_ (let () (declare (not safe)) - (##car _e127572127963_)))) + (##car _e127554127945_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd127571127966_)) + (gx#identifier? _hd127553127948_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd127571127966_)) + (gx#stx-eq? '%#quote _hd127553127948_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127570127968_)) - (let ((_e127575127971_ + (gx#stx-pair? _tl127552127950_)) + (let ((_e127557127953_ (let () (declare (not safe)) - (gx#stx-e _tl127570127968_)))) - (let ((_tl127573127976_ + (gx#stx-e _tl127552127950_)))) + (let ((_tl127555127958_ (let () (declare (not safe)) - (##cdr _e127575127971_))) - (_hd127574127974_ + (##cdr _e127557127953_))) + (_hd127556127956_ (let () (declare (not safe)) - (##car _e127575127971_)))) + (##car _e127557127953_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127573127976_)) + (gx#stx-null? _tl127555127958_)) (if (let () (declare (not safe)) (gx#stx-null? - _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_) + _tl127549127942_)) + (___match128784128785_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + _e127515127841_ + _hd127514127844_ + _tl127513127846_ + _e127518127849_ + _hd127517127852_ + _tl127516127854_ + _e127521127857_ + _hd127520127860_ + _tl127519127862_ + _e127524127865_ + _hd127523127868_ + _tl127522127870_ + _e127527127873_ + _hd127526127876_ + _tl127525127878_ + _e127530127881_ + _hd127529127884_ + _tl127528127886_ + _e127533127889_ + _hd127532127892_ + _tl127531127894_ + _e127536127897_ + _hd127535127900_ + _tl127534127902_ + _e127539127905_ + _hd127538127908_ + _tl127537127910_ + _e127542127913_ + _hd127541127916_ + _tl127540127918_ + _e127545127921_ + _hd127544127924_ + _tl127543127926_ + _e127548127929_ + _hd127547127932_ + _tl127546127934_ + _e127551127937_ + _hd127550127940_ + _tl127549127942_ + _e127554127945_ + _hd127553127948_ + _tl127552127950_ + _e127557127953_ + _hd127556127956_ + _tl127555127958_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127528127856_)) - (let ((___splice128673128674_ + _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))) + (_g127503127618_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127528127856_)) - (let ((___splice128673128674_ + _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))))) + (_g127503127618_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))) + (_g127503127618_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))) + (_g127503127618_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))))) + (_g127503127618_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl127528127856_ '0)))) - (let ((_tl127625127651_ + (gx#syntax-split-splice _tl127510127838_ '0)))) + (let ((_tl127607127633_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '1))) - (_target127623127649_ + (##vector-ref ___splice128655128656_ '1))) + (_target127605127631_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '0)))) + (##vector-ref ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) - (let () (declare (not safe)) (_g127521127636_)))))) + (_g127503127618_))))) + (let () (declare (not safe)) (_g127503127618_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl127558127936_)) - (if (let ((__tmp130687 + _tl127540127918_)) + (if (let ((__tmp130669 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp130687 'bind-method!)) - (let ((_L127807_ _hd127565127950_) - (_L127808_ _hd127556127926_) - (_L127809_ _hd127547127902_) - (_L127810_ _hd127538127878_)) - (___kont128669128670_ - _L127807_ - _L127808_ - _L127809_ - _L127810_)) + (gxc#runtime-identifier=? __tmp130669 'bind-method!)) + (let ((_L127789_ _hd127547127932_) + (_L127790_ _hd127538127908_) + (_L127791_ _hd127529127884_) + (_L127792_ _hd127520127860_)) + (___kont128651128652_ + _L127789_ + _L127790_ + _L127791_ + _L127792_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl127528127856_ '0)))) - (let ((_tl127625127651_ + (gx#syntax-split-splice _tl127510127838_ '0)))) + (let ((_tl127607127633_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '1))) - (_target127623127649_ + (##vector-ref ___splice128655128656_ '1))) + (_target127605127631_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '0)))) + (##vector-ref ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) - (let () (declare (not safe)) (_g127521127636_)))) + (_g127503127618_))))) + (let () (declare (not safe)) (_g127503127618_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl127528127856_ '0)))) - (let ((_tl127625127651_ + (gx#syntax-split-splice _tl127510127838_ '0)))) + (let ((_tl127607127633_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '1))) - (_target127623127649_ + (##vector-ref ___splice128655128656_ '1))) + (_target127605127631_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '0)))) + (##vector-ref ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) - (let () (declare (not safe)) (_g127521127636_))))) - (let () (declare (not safe)) (_g127521127636_))))) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) + (let () (declare (not safe)) (_g127503127618_))))) + (let () (declare (not safe)) (_g127503127618_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127528127856_)) - (let ((___splice128673128674_ + _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))))) + (_g127503127618_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127528127856_)) - (let ((___splice128673128674_ + _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))) + (_g127503127618_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))) + (_g127503127618_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))))) + (_g127503127618_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '1))) - (_target127623127649_ + (##vector-ref ___splice128655128656_ '1))) + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) - (let () (declare (not safe)) (_g127521127636_)))))) + (_g127503127618_))))) + (let () (declare (not safe)) (_g127503127618_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl127528127856_ '0)))) - (let ((_tl127625127651_ + (gx#syntax-split-splice _tl127510127838_ '0)))) + (let ((_tl127607127633_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '1))) - (_target127623127649_ + (##vector-ref ___splice128655128656_ '1))) + (_target127605127631_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '0)))) + (##vector-ref ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) - (let () (declare (not safe)) (_g127521127636_))))) - (let () (declare (not safe)) (_g127521127636_)))) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) + (let () (declare (not safe)) (_g127503127618_))))) + (let () (declare (not safe)) (_g127503127618_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127528127856_)) - (let ((___splice128673128674_ + _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl127528127856_ '0)))) - (let ((_tl127625127651_ + (gx#syntax-split-splice _tl127510127838_ '0)))) + (let ((_tl127607127633_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '1))) - (_target127623127649_ + (##vector-ref ___splice128655128656_ '1))) + (_target127605127631_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '0)))) + (##vector-ref ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) - (let () (declare (not safe)) (_g127521127636_))))) - (let () (declare (not safe)) (_g127521127636_)))))) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) + (let () (declare (not safe)) (_g127503127618_))))) + (let () (declare (not safe)) (_g127503127618_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127528127856_)) - (let ((___splice128673128674_ + _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))) + (_g127503127618_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127528127856_)) - (let ((___splice128673128674_ + _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))) + (_g127503127618_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))))) + (_g127503127618_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))))) + (_g127503127618_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl127528127856_ '0)))) - (let ((_tl127625127651_ + (gx#syntax-split-splice _tl127510127838_ '0)))) + (let ((_tl127607127633_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '1))) - (_target127623127649_ + (##vector-ref ___splice128655128656_ '1))) + (_target127605127631_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '0)))) + (##vector-ref ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) - (let () (declare (not safe)) (_g127521127636_)))) + (_g127503127618_))))) + (let () (declare (not safe)) (_g127503127618_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl127528127856_ '0)))) - (let ((_tl127625127651_ + (gx#syntax-split-splice _tl127510127838_ '0)))) + (let ((_tl127607127633_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '1))) - (_target127623127649_ + (##vector-ref ___splice128655128656_ '1))) + (_target127605127631_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '0)))) + (##vector-ref ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) - (let () (declare (not safe)) (_g127521127636_))))) - (let () (declare (not safe)) (_g127521127636_)))))) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) + (let () (declare (not safe)) (_g127503127618_))))) + (let () (declare (not safe)) (_g127503127618_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127528127856_)) - (let ((___splice128673128674_ + _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))) + (_g127503127618_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127528127856_)) - (let ((___splice128673128674_ + _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))) + (_g127503127618_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127528127856_)) - (let ((___splice128673128674_ + _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))))) + (_g127503127618_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))))) + (_g127503127618_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '1))) - (_target127623127649_ + (##vector-ref ___splice128655128656_ '1))) + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) - (let () (declare (not safe)) (_g127521127636_)))) + (_g127503127618_))))) + (let () (declare (not safe)) (_g127503127618_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl127528127856_ '0)))) - (let ((_tl127625127651_ + (gx#syntax-split-splice _tl127510127838_ '0)))) + (let ((_tl127607127633_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '1))) - (_target127623127649_ + (##vector-ref ___splice128655128656_ '1))) + (_target127605127631_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '0)))) + (##vector-ref ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) - (let () (declare (not safe)) (_g127521127636_)))))) + (_g127503127618_))))) + (let () (declare (not safe)) (_g127503127618_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127528127856_)) - (let ((___splice128673128674_ + _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl127528127856_ '0)))) - (let ((_tl127625127651_ + (gx#syntax-split-splice _tl127510127838_ '0)))) + (let ((_tl127607127633_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '1))) - (_target127623127649_ + (##vector-ref ___splice128655128656_ '1))) + (_target127605127631_ (let () (declare (not safe)) - (##vector-ref ___splice128673128674_ '0)))) + (##vector-ref ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) - (let () (declare (not safe)) (_g127521127636_))))) - (let () (declare (not safe)) (_g127521127636_)))) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) + (let () (declare (not safe)) (_g127503127618_))))) + (let () (declare (not safe)) (_g127503127618_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127528127856_)) - (let ((___splice128673128674_ + _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))) + (_g127503127618_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl127528127856_)) - (let ((___splice128673128674_ + _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))))) + (_g127503127618_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))))) + (_g127503127618_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl127528127856_)) - (let ((___splice128673128674_ + (gx#stx-pair/null? _tl127510127838_)) + (let ((___splice128655128656_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl127528127856_ + _tl127510127838_ '0)))) - (let ((_tl127625127651_ + (let ((_tl127607127633_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '1))) - (_target127623127649_ + (_target127605127631_ (let () (declare (not safe)) (##vector-ref - ___splice128673128674_ + ___splice128655128656_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127625127651_)) - (___match128922128923_ - _e127530127851_ - _hd127529127854_ - _tl127528127856_ - ___splice128673128674_ - _target127623127649_ - _tl127625127651_) + (gx#stx-null? _tl127607127633_)) + (___match128904128905_ + _e127512127833_ + _hd127511127836_ + _tl127510127838_ + ___splice128655128656_ + _target127605127631_ + _tl127607127633_) (let () (declare (not safe)) - (_g127521127636_))))) + (_g127503127618_))))) (let () (declare (not safe)) - (_g127521127636_)))))) - (let () (declare (not safe)) (_g127521127636_)))))))) + (_g127503127618_)))))) + (let () (declare (not safe)) (_g127503127618_)))))))) (define gxc#current-compile-type-closure (make-parameter '#f)) (define gxc#basic-expression-type-begin% - (lambda (_self127455_ _stx127456_) - (let* ((___stx128925128926_ _stx127456_) - (_g127459127472_ + (lambda (_self127437_ _stx127438_) + (let* ((___stx128907128908_ _stx127438_) + (_g127441127454_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128925128926_))))) - (let ((___kont128927128928_ - (lambda (_L127500_) + ___stx128907128908_))))) + (let ((___kont128909128910_ + (lambda (_L127482_) (let () (declare (not safe)) - (gxc#compile-e__1 _self127455_ _L127500_)))) - (___kont128929128930_ (lambda () '#f))) + (gxc#compile-e__1 _self127437_ _L127482_)))) + (___kont128911128912_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128925128926_)) - (let ((_e127464127484_ + (gx#stx-pair? ___stx128907128908_)) + (let ((_e127446127466_ (let () (declare (not safe)) - (gx#stx-e ___stx128925128926_)))) - (let ((_tl127462127489_ - (let () (declare (not safe)) (##cdr _e127464127484_))) - (_hd127463127487_ + (gx#stx-e ___stx128907128908_)))) + (let ((_tl127444127471_ + (let () (declare (not safe)) (##cdr _e127446127466_))) + (_hd127445127469_ (let () (declare (not safe)) - (##car _e127464127484_)))) + (##car _e127446127466_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127462127489_)) - (let ((_e127467127492_ + (gx#stx-pair? _tl127444127471_)) + (let ((_e127449127474_ (let () (declare (not safe)) - (gx#stx-e _tl127462127489_)))) - (let ((_tl127465127497_ + (gx#stx-e _tl127444127471_)))) + (let ((_tl127447127479_ (let () (declare (not safe)) - (##cdr _e127467127492_))) - (_hd127466127495_ + (##cdr _e127449127474_))) + (_hd127448127477_ (let () (declare (not safe)) - (##car _e127467127492_)))) + (##car _e127449127474_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127465127497_)) - (___kont128927128928_ _hd127466127495_) - (___kont128929128930_)))) - (___kont128929128930_)))) - (___kont128929128930_)))))) + (gx#stx-null? _tl127447127479_)) + (___kont128909128910_ _hd127448127477_) + (___kont128911128912_)))) + (___kont128911128912_)))) + (___kont128911128912_)))))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_self127334_ _stx127335_) - (let* ((_g127337127354_ - (lambda (_g127338127351_) + (lambda (_self127316_ _stx127317_) + (let* ((_g127319127336_ + (lambda (_g127320127333_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g127338127351_)))) - (_g127336127452_ - (lambda (_g127338127357_) + _g127320127333_)))) + (_g127318127434_ + (lambda (_g127320127339_) (if (let () (declare (not safe)) - (gx#stx-pair? _g127338127357_)) - (let ((_e127343127359_ + (gx#stx-pair? _g127320127339_)) + (let ((_e127325127341_ (let () (declare (not safe)) - (gx#stx-e _g127338127357_)))) - (let ((_hd127342127362_ + (gx#stx-e _g127320127339_)))) + (let ((_hd127324127344_ (let () (declare (not safe)) - (##car _e127343127359_))) - (_tl127341127364_ + (##car _e127325127341_))) + (_tl127323127346_ (let () (declare (not safe)) - (##cdr _e127343127359_)))) + (##cdr _e127325127341_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127341127364_)) - (let ((_e127346127367_ + (gx#stx-pair? _tl127323127346_)) + (let ((_e127328127349_ (let () (declare (not safe)) - (gx#stx-e _tl127341127364_)))) - (let ((_hd127345127370_ + (gx#stx-e _tl127323127346_)))) + (let ((_hd127327127352_ (let () (declare (not safe)) - (##car _e127346127367_))) - (_tl127344127372_ + (##car _e127328127349_))) + (_tl127326127354_ (let () (declare (not safe)) - (##cdr _e127346127367_)))) + (##cdr _e127328127349_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127344127372_)) - (let ((_e127349127375_ + (gx#stx-pair? _tl127326127354_)) + (let ((_e127331127357_ (let () (declare (not safe)) - (gx#stx-e _tl127344127372_)))) - (let ((_hd127348127378_ + (gx#stx-e _tl127326127354_)))) + (let ((_hd127330127360_ (let () (declare (not safe)) - (##car _e127349127375_))) - (_tl127347127380_ + (##car _e127331127357_))) + (_tl127329127362_ (let () (declare (not safe)) - (##cdr _e127349127375_)))) + (##cdr _e127331127357_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127347127380_)) - ((lambda (_L127383_ _L127384_) - (let* ((___stx128947128948_ - _L127384_) - (_g127400127411_ + _tl127329127362_)) + ((lambda (_L127365_ _L127366_) + (let* ((___stx128929128930_ + _L127366_) + (_g127382127393_ (lambda () (let () (declare @@ -3014,272 +3014,272 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128947128948_))))) - (let ((___kont128949128950_ - (lambda (_L127431_ + ___stx128929128930_))))) + (let ((___kont128931128932_ + (lambda (_L127413_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L127432_) - (let ((_$e127444_ - (let ((__tmp130688 + _L127414_) + (let ((_$e127426_ + (let ((__tmp130670 (let () (declare (not safe)) - (gx#stx-e _L127432_)))) + (gx#stx-e _L127414_)))) (declare (not safe)) (hash-get gxc#basic-expression-type-annotations - __tmp130688)))) - (if _$e127444_ - ((lambda (_type-e127447_) - (_type-e127447_ _stx127335_ _L127384_)) - _$e127444_) + __tmp130670)))) + (if _$e127426_ + ((lambda (_type-e127429_) + (_type-e127429_ _stx127317_ _L127366_)) + _$e127426_) (let () (declare (not safe)) - (gxc#compile-e__1 _self127334_ _L127383_)))))) - (___kont128951128952_ + (gxc#compile-e__1 _self127316_ _L127365_)))))) + (___kont128933128934_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self127334_ _L127383_))))) + (gxc#compile-e__1 _self127316_ _L127365_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match128958128959_ - (lambda (_e127406127423_ + (let ((___match128940128941_ + (lambda (_e127388127405_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd127405127426_ - _tl127404127428_) - (let ((_L127431_ _tl127404127428_) - (_L127432_ _hd127405127426_)) + _hd127387127408_ + _tl127386127410_) + (let ((_L127413_ _tl127386127410_) + (_L127414_ _hd127387127408_)) (if (let () (declare (not safe)) - (gx#identifier? _L127432_)) - (___kont128949128950_ _L127431_ _L127432_) - (___kont128951128952_)))))) + (gx#identifier? _L127414_)) + (___kont128931128932_ _L127413_ _L127414_) + (___kont128933128934_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128947128948_)) - (let ((_e127406127423_ + (gx#stx-pair? ___stx128929128930_)) + (let ((_e127388127405_ (let () (declare (not safe)) - (gx#stx-e ___stx128947128948_)))) - (let ((_tl127404127428_ + (gx#stx-e ___stx128929128930_)))) + (let ((_tl127386127410_ (let () (declare (not safe)) - (##cdr _e127406127423_))) - (_hd127405127426_ + (##cdr _e127388127405_))) + (_hd127387127408_ (let () (declare (not safe)) - (##car _e127406127423_)))) - (___match128958128959_ - _e127406127423_ - _hd127405127426_ - _tl127404127428_))) - (___kont128951128952_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd127348127378_ - _hd127345127370_) + (##car _e127388127405_)))) + (___match128940128941_ + _e127388127405_ + _hd127387127408_ + _tl127386127410_))) + (___kont128933128934_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd127330127360_ + _hd127327127352_) (let () (declare (not safe)) - (_g127337127354_ - _g127338127357_))))) + (_g127319127336_ + _g127320127339_))))) (let () (declare (not safe)) - (_g127337127354_ _g127338127357_))))) + (_g127319127336_ _g127320127339_))))) (let () (declare (not safe)) - (_g127337127354_ _g127338127357_))))) + (_g127319127336_ _g127320127339_))))) (let () (declare (not safe)) - (_g127337127354_ _g127338127357_)))))) + (_g127319127336_ _g127320127339_)))))) (declare (not safe)) - (_g127336127452_ _stx127335_)))) + (_g127318127434_ _stx127317_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_stx127178_ _ann127179_) - (let* ((_g127181127218_ - (lambda (_g127182127215_) + (lambda (_stx127160_ _ann127161_) + (let* ((_g127163127200_ + (lambda (_g127164127197_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g127182127215_)))) - (_g127180127331_ - (lambda (_g127182127221_) + _g127164127197_)))) + (_g127162127313_ + (lambda (_g127164127203_) (if (let () (declare (not safe)) - (gx#stx-pair? _g127182127221_)) - (let ((_e127192127223_ + (gx#stx-pair? _g127164127203_)) + (let ((_e127174127205_ (let () (declare (not safe)) - (gx#stx-e _g127182127221_)))) - (let ((_hd127191127226_ + (gx#stx-e _g127164127203_)))) + (let ((_hd127173127208_ (let () (declare (not safe)) - (##car _e127192127223_))) - (_tl127190127228_ + (##car _e127174127205_))) + (_tl127172127210_ (let () (declare (not safe)) - (##cdr _e127192127223_)))) + (##cdr _e127174127205_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127190127228_)) - (let ((_e127195127231_ + (gx#stx-pair? _tl127172127210_)) + (let ((_e127177127213_ (let () (declare (not safe)) - (gx#stx-e _tl127190127228_)))) - (let ((_hd127194127234_ + (gx#stx-e _tl127172127210_)))) + (let ((_hd127176127216_ (let () (declare (not safe)) - (##car _e127195127231_))) - (_tl127193127236_ + (##car _e127177127213_))) + (_tl127175127218_ (let () (declare (not safe)) - (##cdr _e127195127231_)))) + (##cdr _e127177127213_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127193127236_)) - (let ((_e127198127239_ + (gx#stx-pair? _tl127175127218_)) + (let ((_e127180127221_ (let () (declare (not safe)) - (gx#stx-e _tl127193127236_)))) - (let ((_hd127197127242_ + (gx#stx-e _tl127175127218_)))) + (let ((_hd127179127224_ (let () (declare (not safe)) - (##car _e127198127239_))) - (_tl127196127244_ + (##car _e127180127221_))) + (_tl127178127226_ (let () (declare (not safe)) - (##cdr _e127198127239_)))) + (##cdr _e127180127221_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl127196127244_)) - (let ((_e127201127247_ + _tl127178127226_)) + (let ((_e127183127229_ (let () (declare (not safe)) (gx#stx-e - _tl127196127244_)))) - (let ((_hd127200127250_ + _tl127178127226_)))) + (let ((_hd127182127232_ (let () (declare (not safe)) - (##car _e127201127247_))) - (_tl127199127252_ + (##car _e127183127229_))) + (_tl127181127234_ (let () (declare (not safe)) - (##cdr _e127201127247_)))) + (##cdr _e127183127229_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl127199127252_)) - (let ((_e127204127255_ + _tl127181127234_)) + (let ((_e127186127237_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl127199127252_)))) - (let ((_hd127203127258_ - (let () (declare (not safe)) (##car _e127204127255_))) - (_tl127202127260_ - (let () (declare (not safe)) (##cdr _e127204127255_)))) + (gx#stx-e _tl127181127234_)))) + (let ((_hd127185127240_ + (let () (declare (not safe)) (##car _e127186127237_))) + (_tl127184127242_ + (let () (declare (not safe)) (##cdr _e127186127237_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127202127260_)) - (let ((_e127207127263_ + (gx#stx-pair? _tl127184127242_)) + (let ((_e127189127245_ (let () (declare (not safe)) - (gx#stx-e _tl127202127260_)))) - (let ((_hd127206127266_ + (gx#stx-e _tl127184127242_)))) + (let ((_hd127188127248_ (let () (declare (not safe)) - (##car _e127207127263_))) - (_tl127205127268_ + (##car _e127189127245_))) + (_tl127187127250_ (let () (declare (not safe)) - (##cdr _e127207127263_)))) + (##cdr _e127189127245_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127205127268_)) - (let ((_e127210127271_ + (gx#stx-pair? _tl127187127250_)) + (let ((_e127192127253_ (let () (declare (not safe)) - (gx#stx-e _tl127205127268_)))) - (let ((_hd127209127274_ + (gx#stx-e _tl127187127250_)))) + (let ((_hd127191127256_ (let () (declare (not safe)) - (##car _e127210127271_))) - (_tl127208127276_ + (##car _e127192127253_))) + (_tl127190127258_ (let () (declare (not safe)) - (##cdr _e127210127271_)))) + (##cdr _e127192127253_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127208127276_)) - (let ((_e127213127279_ + (gx#stx-pair? _tl127190127258_)) + (let ((_e127195127261_ (let () (declare (not safe)) - (gx#stx-e _tl127208127276_)))) - (let ((_hd127212127282_ + (gx#stx-e _tl127190127258_)))) + (let ((_hd127194127264_ (let () (declare (not safe)) - (##car _e127213127279_))) - (_tl127211127284_ + (##car _e127195127261_))) + (_tl127193127266_ (let () (declare (not safe)) - (##cdr _e127213127279_)))) + (##cdr _e127195127261_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127211127284_)) - ((lambda (_L127287_ - _L127288_ - _L127289_ - _L127290_ - _L127291_ - _L127292_ - _L127293_) - (let ((_type-id127323_ + _tl127193127266_)) + ((lambda (_L127269_ + _L127270_ + _L127271_ + _L127272_ + _L127273_ + _L127274_ + _L127275_) + (let ((_type-id127305_ (let () (declare (not safe)) (gx#stx-e - _L127293_))) - (_super127324_ + _L127275_))) + (_super127306_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _L127292_))) - (_slots127325_ + _L127274_))) + (_slots127307_ (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _L127291_))) - (_ctor-method127326_ + _L127273_))) + (_ctor-method127308_ (let () (declare (not safe)) (gx#stx-e - _L127290_))) - (_struct?127327_ + _L127272_))) + (_struct?127309_ (let () (declare (not safe)) (gx#stx-e - _L127289_))) - (_final?127328_ + _L127271_))) + (_final?127310_ (let () (declare (not safe)) (gx#stx-e - _L127288_))) - (_metaclass127329_ + _L127270_))) + (_metaclass127311_ (if (let () (declare (not safe)) (gx#stx-e - _L127287_)) + _L127269_)) (let () (declare (not safe)) (gxc#identifier-symbol - _L127287_)) + _L127269_)) '#f))) - (let ((__obj130640 + (let ((__obj130622 (let () (declare (not safe)) @@ -3297,129 +3297,129 @@ '#f '#f)))) (gxc#!class:::init! - __obj130640 - _type-id127323_ - _super127324_ - _slots127325_ - _ctor-method127326_ - _struct?127327_ - _final?127328_ + __obj130622 + _type-id127305_ + _super127306_ + _slots127307_ + _ctor-method127308_ + _struct?127309_ + _final?127310_ '#f - _metaclass127329_) - __obj130640))) - _hd127212127282_ - _hd127209127274_ - _hd127206127266_ - _hd127203127258_ - _hd127200127250_ - _hd127197127242_ - _hd127194127234_) + _metaclass127311_) + __obj130622))) + _hd127194127264_ + _hd127191127256_ + _hd127188127248_ + _hd127185127240_ + _hd127182127232_ + _hd127179127224_ + _hd127176127216_) (let () (declare (not safe)) - (_g127181127218_ - _g127182127221_))))) + (_g127163127200_ + _g127164127203_))))) (let () (declare (not safe)) - (_g127181127218_ _g127182127221_))))) + (_g127163127200_ _g127164127203_))))) (let () (declare (not safe)) - (_g127181127218_ _g127182127221_))))) + (_g127163127200_ _g127164127203_))))) (let () (declare (not safe)) - (_g127181127218_ _g127182127221_))))) + (_g127163127200_ _g127164127203_))))) (let () (declare (not safe)) - (_g127181127218_ _g127182127221_))))) + (_g127163127200_ _g127164127203_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g127181127218_ - _g127182127221_))))) + (_g127163127200_ + _g127164127203_))))) (let () (declare (not safe)) - (_g127181127218_ _g127182127221_))))) + (_g127163127200_ _g127164127203_))))) (let () (declare (not safe)) - (_g127181127218_ _g127182127221_))))) + (_g127163127200_ _g127164127203_))))) (let () (declare (not safe)) - (_g127181127218_ _g127182127221_)))))) + (_g127163127200_ _g127164127203_)))))) (declare (not safe)) - (_g127180127331_ _ann127179_)))) + (_g127162127313_ _ann127161_)))) (define gxc#basic-expression-type-annotation-mop.system - (lambda (_stx127107_ _ann127108_) - (let* ((_g127110127127_ - (lambda (_g127111127124_) + (lambda (_stx127089_ _ann127090_) + (let* ((_g127092127109_ + (lambda (_g127093127106_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g127111127124_)))) - (_g127109127175_ - (lambda (_g127111127130_) + _g127093127106_)))) + (_g127091127157_ + (lambda (_g127093127112_) (if (let () (declare (not safe)) - (gx#stx-pair? _g127111127130_)) - (let ((_e127116127132_ + (gx#stx-pair? _g127093127112_)) + (let ((_e127098127114_ (let () (declare (not safe)) - (gx#stx-e _g127111127130_)))) - (let ((_hd127115127135_ + (gx#stx-e _g127093127112_)))) + (let ((_hd127097127117_ (let () (declare (not safe)) - (##car _e127116127132_))) - (_tl127114127137_ + (##car _e127098127114_))) + (_tl127096127119_ (let () (declare (not safe)) - (##cdr _e127116127132_)))) + (##cdr _e127098127114_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127114127137_)) - (let ((_e127119127140_ + (gx#stx-pair? _tl127096127119_)) + (let ((_e127101127122_ (let () (declare (not safe)) - (gx#stx-e _tl127114127137_)))) - (let ((_hd127118127143_ + (gx#stx-e _tl127096127119_)))) + (let ((_hd127100127125_ (let () (declare (not safe)) - (##car _e127119127140_))) - (_tl127117127145_ + (##car _e127101127122_))) + (_tl127099127127_ (let () (declare (not safe)) - (##cdr _e127119127140_)))) + (##cdr _e127101127122_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127117127145_)) - (let ((_e127122127148_ + (gx#stx-pair? _tl127099127127_)) + (let ((_e127104127130_ (let () (declare (not safe)) - (gx#stx-e _tl127117127145_)))) - (let ((_hd127121127151_ + (gx#stx-e _tl127099127127_)))) + (let ((_hd127103127133_ (let () (declare (not safe)) - (##car _e127122127148_))) - (_tl127120127153_ + (##car _e127104127130_))) + (_tl127102127135_ (let () (declare (not safe)) - (##cdr _e127122127148_)))) + (##cdr _e127104127130_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl127120127153_)) - ((lambda (_L127156_ _L127157_) - (let ((_type-id127172_ + _tl127102127135_)) + ((lambda (_L127138_ _L127139_) + (let ((_type-id127154_ (let () (declare (not safe)) (gx#stx-e - _L127157_))) - (_super127173_ + _L127139_))) + (_super127155_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _L127156_)))) - (let ((__obj130641 + _L127138_)))) + (let ((__obj130623 (let () (declare (not safe)) @@ -3437,403 +3437,403 @@ '#f '#f)))) (gxc#!class:::init! - __obj130641 - _type-id127172_ - _super127173_ + __obj130623 + _type-id127154_ + _super127155_ '() '#f '#f '#f '#t '#f) - __obj130641))) - _hd127121127151_ - _hd127118127143_) + __obj130623))) + _hd127103127133_ + _hd127100127125_) (let () (declare (not safe)) - (_g127110127127_ - _g127111127130_))))) + (_g127092127109_ + _g127093127112_))))) (let () (declare (not safe)) - (_g127110127127_ _g127111127130_))))) + (_g127092127109_ _g127093127112_))))) (let () (declare (not safe)) - (_g127110127127_ _g127111127130_))))) + (_g127092127109_ _g127093127112_))))) (let () (declare (not safe)) - (_g127110127127_ _g127111127130_)))))) + (_g127092127109_ _g127093127112_)))))) (declare (not safe)) - (_g127109127175_ _ann127108_)))) + (_g127091127157_ _ann127090_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_stx127055_ _ann127056_) - (let* ((_g127058127071_ - (lambda (_g127059127068_) + (lambda (_stx127037_ _ann127038_) + (let* ((_g127040127053_ + (lambda (_g127041127050_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g127059127068_)))) - (_g127057127104_ - (lambda (_g127059127074_) + _g127041127050_)))) + (_g127039127086_ + (lambda (_g127041127056_) (if (let () (declare (not safe)) - (gx#stx-pair? _g127059127074_)) - (let ((_e127063127076_ + (gx#stx-pair? _g127041127056_)) + (let ((_e127045127058_ (let () (declare (not safe)) - (gx#stx-e _g127059127074_)))) - (let ((_hd127062127079_ + (gx#stx-e _g127041127056_)))) + (let ((_hd127044127061_ (let () (declare (not safe)) - (##car _e127063127076_))) - (_tl127061127081_ + (##car _e127045127058_))) + (_tl127043127063_ (let () (declare (not safe)) - (##cdr _e127063127076_)))) + (##cdr _e127045127058_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127061127081_)) - (let ((_e127066127084_ + (gx#stx-pair? _tl127043127063_)) + (let ((_e127048127066_ (let () (declare (not safe)) - (gx#stx-e _tl127061127081_)))) - (let ((_hd127065127087_ + (gx#stx-e _tl127043127063_)))) + (let ((_hd127047127069_ (let () (declare (not safe)) - (##car _e127066127084_))) - (_tl127064127089_ + (##car _e127048127066_))) + (_tl127046127071_ (let () (declare (not safe)) - (##cdr _e127066127084_)))) + (##cdr _e127048127066_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127064127089_)) - ((lambda (_L127092_) - (let ((__tmp130689 + (gx#stx-null? _tl127046127071_)) + ((lambda (_L127074_) + (let ((__tmp130671 (let () (declare (not safe)) (gxc#identifier-symbol - _L127092_)))) + _L127074_)))) (declare (not safe)) (##structure gxc#!constructor::t - __tmp130689))) - _hd127065127087_) + __tmp130671))) + _hd127047127069_) (let () (declare (not safe)) - (_g127058127071_ _g127059127074_))))) + (_g127040127053_ _g127041127056_))))) (let () (declare (not safe)) - (_g127058127071_ _g127059127074_))))) + (_g127040127053_ _g127041127056_))))) (let () (declare (not safe)) - (_g127058127071_ _g127059127074_)))))) + (_g127040127053_ _g127041127056_)))))) (declare (not safe)) - (_g127057127104_ _ann127056_)))) + (_g127039127086_ _ann127038_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_stx127003_ _ann127004_) - (let* ((_g127006127019_ - (lambda (_g127007127016_) + (lambda (_stx126985_ _ann126986_) + (let* ((_g126988127001_ + (lambda (_g126989126998_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g127007127016_)))) - (_g127005127052_ - (lambda (_g127007127022_) + _g126989126998_)))) + (_g126987127034_ + (lambda (_g126989127004_) (if (let () (declare (not safe)) - (gx#stx-pair? _g127007127022_)) - (let ((_e127011127024_ + (gx#stx-pair? _g126989127004_)) + (let ((_e126993127006_ (let () (declare (not safe)) - (gx#stx-e _g127007127022_)))) - (let ((_hd127010127027_ + (gx#stx-e _g126989127004_)))) + (let ((_hd126992127009_ (let () (declare (not safe)) - (##car _e127011127024_))) - (_tl127009127029_ + (##car _e126993127006_))) + (_tl126991127011_ (let () (declare (not safe)) - (##cdr _e127011127024_)))) + (##cdr _e126993127006_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl127009127029_)) - (let ((_e127014127032_ + (gx#stx-pair? _tl126991127011_)) + (let ((_e126996127014_ (let () (declare (not safe)) - (gx#stx-e _tl127009127029_)))) - (let ((_hd127013127035_ + (gx#stx-e _tl126991127011_)))) + (let ((_hd126995127017_ (let () (declare (not safe)) - (##car _e127014127032_))) - (_tl127012127037_ + (##car _e126996127014_))) + (_tl126994127019_ (let () (declare (not safe)) - (##cdr _e127014127032_)))) + (##cdr _e126996127014_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl127012127037_)) - ((lambda (_L127040_) - (let ((__tmp130690 + (gx#stx-null? _tl126994127019_)) + ((lambda (_L127022_) + (let ((__tmp130672 (let () (declare (not safe)) (gxc#identifier-symbol - _L127040_)))) + _L127022_)))) (declare (not safe)) (##structure gxc#!predicate::t - __tmp130690))) - _hd127013127035_) + __tmp130672))) + _hd126995127017_) (let () (declare (not safe)) - (_g127006127019_ _g127007127022_))))) + (_g126988127001_ _g126989127004_))))) (let () (declare (not safe)) - (_g127006127019_ _g127007127022_))))) + (_g126988127001_ _g126989127004_))))) (let () (declare (not safe)) - (_g127006127019_ _g127007127022_)))))) + (_g126988127001_ _g126989127004_)))))) (declare (not safe)) - (_g127005127052_ _ann127004_)))) + (_g126987127034_ _ann126986_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_stx126919_ _ann126920_) - (let* ((_g126922126943_ - (lambda (_g126923126940_) + (lambda (_stx126901_ _ann126902_) + (let* ((_g126904126925_ + (lambda (_g126905126922_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g126923126940_)))) - (_g126921127000_ - (lambda (_g126923126946_) + _g126905126922_)))) + (_g126903126982_ + (lambda (_g126905126928_) (if (let () (declare (not safe)) - (gx#stx-pair? _g126923126946_)) - (let ((_e126929126948_ + (gx#stx-pair? _g126905126928_)) + (let ((_e126911126930_ (let () (declare (not safe)) - (gx#stx-e _g126923126946_)))) - (let ((_hd126928126951_ + (gx#stx-e _g126905126928_)))) + (let ((_hd126910126933_ (let () (declare (not safe)) - (##car _e126929126948_))) - (_tl126927126953_ + (##car _e126911126930_))) + (_tl126909126935_ (let () (declare (not safe)) - (##cdr _e126929126948_)))) + (##cdr _e126911126930_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126927126953_)) - (let ((_e126932126956_ + (gx#stx-pair? _tl126909126935_)) + (let ((_e126914126938_ (let () (declare (not safe)) - (gx#stx-e _tl126927126953_)))) - (let ((_hd126931126959_ + (gx#stx-e _tl126909126935_)))) + (let ((_hd126913126941_ (let () (declare (not safe)) - (##car _e126932126956_))) - (_tl126930126961_ + (##car _e126914126938_))) + (_tl126912126943_ (let () (declare (not safe)) - (##cdr _e126932126956_)))) + (##cdr _e126914126938_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126930126961_)) - (let ((_e126935126964_ + (gx#stx-pair? _tl126912126943_)) + (let ((_e126917126946_ (let () (declare (not safe)) - (gx#stx-e _tl126930126961_)))) - (let ((_hd126934126967_ + (gx#stx-e _tl126912126943_)))) + (let ((_hd126916126949_ (let () (declare (not safe)) - (##car _e126935126964_))) - (_tl126933126969_ + (##car _e126917126946_))) + (_tl126915126951_ (let () (declare (not safe)) - (##cdr _e126935126964_)))) + (##cdr _e126917126946_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126933126969_)) - (let ((_e126938126972_ + _tl126915126951_)) + (let ((_e126920126954_ (let () (declare (not safe)) (gx#stx-e - _tl126933126969_)))) - (let ((_hd126937126975_ + _tl126915126951_)))) + (let ((_hd126919126957_ (let () (declare (not safe)) - (##car _e126938126972_))) - (_tl126936126977_ + (##car _e126920126954_))) + (_tl126918126959_ (let () (declare (not safe)) - (##cdr _e126938126972_)))) + (##cdr _e126920126954_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126936126977_)) - ((lambda (_L126980_ - _L126981_ - _L126982_) - (let ((__tmp130693 + _tl126918126959_)) + ((lambda (_L126962_ + _L126963_ + _L126964_) + (let ((__tmp130675 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L126982_))) - (__tmp130692 - (let () (declare (not safe)) (gx#stx-e _L126981_))) - (__tmp130691 - (let () (declare (not safe)) (gx#stx-e _L126980_)))) + (gxc#identifier-symbol _L126964_))) + (__tmp130674 + (let () (declare (not safe)) (gx#stx-e _L126963_))) + (__tmp130673 + (let () (declare (not safe)) (gx#stx-e _L126962_)))) (declare (not safe)) (##structure gxc#!accessor::t - __tmp130693 - __tmp130692 - __tmp130691))) - _hd126937126975_ - _hd126934126967_ - _hd126931126959_) + __tmp130675 + __tmp130674 + __tmp130673))) + _hd126919126957_ + _hd126916126949_ + _hd126913126941_) (let () (declare (not safe)) - (_g126922126943_ _g126923126946_))))) + (_g126904126925_ _g126905126928_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g126922126943_ - _g126923126946_))))) + (_g126904126925_ + _g126905126928_))))) (let () (declare (not safe)) - (_g126922126943_ _g126923126946_))))) + (_g126904126925_ _g126905126928_))))) (let () (declare (not safe)) - (_g126922126943_ _g126923126946_))))) + (_g126904126925_ _g126905126928_))))) (let () (declare (not safe)) - (_g126922126943_ _g126923126946_)))))) + (_g126904126925_ _g126905126928_)))))) (declare (not safe)) - (_g126921127000_ _ann126920_)))) + (_g126903126982_ _ann126902_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_stx126835_ _ann126836_) - (let* ((_g126838126859_ - (lambda (_g126839126856_) + (lambda (_stx126817_ _ann126818_) + (let* ((_g126820126841_ + (lambda (_g126821126838_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g126839126856_)))) - (_g126837126916_ - (lambda (_g126839126862_) + _g126821126838_)))) + (_g126819126898_ + (lambda (_g126821126844_) (if (let () (declare (not safe)) - (gx#stx-pair? _g126839126862_)) - (let ((_e126845126864_ + (gx#stx-pair? _g126821126844_)) + (let ((_e126827126846_ (let () (declare (not safe)) - (gx#stx-e _g126839126862_)))) - (let ((_hd126844126867_ + (gx#stx-e _g126821126844_)))) + (let ((_hd126826126849_ (let () (declare (not safe)) - (##car _e126845126864_))) - (_tl126843126869_ + (##car _e126827126846_))) + (_tl126825126851_ (let () (declare (not safe)) - (##cdr _e126845126864_)))) + (##cdr _e126827126846_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126843126869_)) - (let ((_e126848126872_ + (gx#stx-pair? _tl126825126851_)) + (let ((_e126830126854_ (let () (declare (not safe)) - (gx#stx-e _tl126843126869_)))) - (let ((_hd126847126875_ + (gx#stx-e _tl126825126851_)))) + (let ((_hd126829126857_ (let () (declare (not safe)) - (##car _e126848126872_))) - (_tl126846126877_ + (##car _e126830126854_))) + (_tl126828126859_ (let () (declare (not safe)) - (##cdr _e126848126872_)))) + (##cdr _e126830126854_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126846126877_)) - (let ((_e126851126880_ + (gx#stx-pair? _tl126828126859_)) + (let ((_e126833126862_ (let () (declare (not safe)) - (gx#stx-e _tl126846126877_)))) - (let ((_hd126850126883_ + (gx#stx-e _tl126828126859_)))) + (let ((_hd126832126865_ (let () (declare (not safe)) - (##car _e126851126880_))) - (_tl126849126885_ + (##car _e126833126862_))) + (_tl126831126867_ (let () (declare (not safe)) - (##cdr _e126851126880_)))) + (##cdr _e126833126862_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126849126885_)) - (let ((_e126854126888_ + _tl126831126867_)) + (let ((_e126836126870_ (let () (declare (not safe)) (gx#stx-e - _tl126849126885_)))) - (let ((_hd126853126891_ + _tl126831126867_)))) + (let ((_hd126835126873_ (let () (declare (not safe)) - (##car _e126854126888_))) - (_tl126852126893_ + (##car _e126836126870_))) + (_tl126834126875_ (let () (declare (not safe)) - (##cdr _e126854126888_)))) + (##cdr _e126836126870_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126852126893_)) - ((lambda (_L126896_ - _L126897_ - _L126898_) - (let ((__tmp130696 + _tl126834126875_)) + ((lambda (_L126878_ + _L126879_ + _L126880_) + (let ((__tmp130678 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L126898_))) - (__tmp130695 - (let () (declare (not safe)) (gx#stx-e _L126897_))) - (__tmp130694 - (let () (declare (not safe)) (gx#stx-e _L126896_)))) + (gxc#identifier-symbol _L126880_))) + (__tmp130677 + (let () (declare (not safe)) (gx#stx-e _L126879_))) + (__tmp130676 + (let () (declare (not safe)) (gx#stx-e _L126878_)))) (declare (not safe)) (##structure gxc#!mutator::t - __tmp130696 - __tmp130695 - __tmp130694))) - _hd126853126891_ - _hd126850126883_ - _hd126847126875_) + __tmp130678 + __tmp130677 + __tmp130676))) + _hd126835126873_ + _hd126832126865_ + _hd126829126857_) (let () (declare (not safe)) - (_g126838126859_ _g126839126862_))))) + (_g126820126841_ _g126821126844_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g126838126859_ - _g126839126862_))))) + (_g126820126841_ + _g126821126844_))))) (let () (declare (not safe)) - (_g126838126859_ _g126839126862_))))) + (_g126820126841_ _g126821126844_))))) (let () (declare (not safe)) - (_g126838126859_ _g126839126862_))))) + (_g126820126841_ _g126821126844_))))) (let () (declare (not safe)) - (_g126838126859_ _g126839126862_)))))) + (_g126820126841_ _g126821126844_)))))) (declare (not safe)) - (_g126837126916_ _ann126836_)))) + (_g126819126898_ _ann126818_)))) (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 (_self125954_ _stx125955_) - (let* ((___stx128961128962_ _stx125955_) - (_g125961126157_ + (lambda (_self125936_ _stx125937_) + (let* ((___stx128943128944_ _stx125937_) + (_g125943126139_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx128961128962_))))) - (let ((___kont128963128964_ - (lambda (_L126823_) - (let ((__obj130642 + ___stx128943128944_))))) + (let ((___kont128945128946_ + (lambda (_L126805_) + (let ((__obj130624 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj130642 + __obj130624 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L126823_)) + (gxc#lambda-form-arity _L126805_)) '#f) - __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_)) + __obj130624))) + (___kont128947128948_ + (lambda (_L126732_ + _L126733_ + _L126734_ + _L126735_ + _L126736_ + _L126737_) + (let* ((_tab126787_ + (let () (declare (not safe)) (gx#stx-e _L126734_))) + (_keys126789_ + (if _tab126787_ + (filter values (vector->list _tab126787_)) '#f))) - (let ((__tmp130697 + (let ((__tmp130679 (let () (declare (not safe)) - (gxc#identifier-symbol _L126751_)))) + (gxc#identifier-symbol _L126733_)))) (declare (not safe)) (##structure gxc#!kw-lambda::t 'kw-lambda - _keys126807_ - __tmp130697))))) - (___kont128967128968_ - (lambda (_L126483_ - _L126484_ - _L126485_ - _L126486_ - _L126487_ - _L126488_ - _L126489_ - _L126490_ - _L126491_ - _L126492_) - (let ((__tmp130699 + _keys126789_ + __tmp130679))))) + (___kont128949128950_ + (lambda (_L126465_ + _L126466_ + _L126467_ + _L126468_ + _L126469_ + _L126470_ + _L126471_ + _L126472_ + _L126473_ + _L126474_) + (let ((__tmp130681 (map gx#stx-e - (let ((__tmp130700 - (lambda (_g126585126588_ _g126586126590_) + (let ((__tmp130682 + (lambda (_g126567126570_ _g126568126572_) (let () (declare (not safe)) - (cons _g126585126588_ - _g126586126590_))))) + (cons _g126567126570_ + _g126568126572_))))) (declare (not safe)) - (foldr1 __tmp130700 '() _L126485_)))) - (__tmp130698 + (foldr1 __tmp130682 '() _L126467_)))) + (__tmp130680 (let () (declare (not safe)) - (gxc#identifier-symbol _L126489_)))) + (gxc#identifier-symbol _L126471_)))) (declare (not safe)) (##structure gxc#!kw-lambda-primary::t 'kw-lambda-dispatch - __tmp130699 - __tmp130698)))) - (___kont128971128972_ - (lambda (_L126193_) - (let ((__obj130643 + __tmp130681 + __tmp130680)))) + (___kont128953128954_ + (lambda (_L126175_) + (let ((__obj130625 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj130643 + __obj130625 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L126193_)) + (gxc#lambda-form-arity _L126175_)) (let () (declare (not safe)) - (gxc#dispatch-lambda-form-delegate _L126193_))) - __obj130643))) - (___kont128973128974_ - (lambda (_L126170_) - (let ((__obj130644 + (gxc#dispatch-lambda-form-delegate _L126175_))) + __obj130625))) + (___kont128955128956_ + (lambda (_L126152_) + (let ((__obj130626 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj130644 + __obj130626 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L126170_)) + (gxc#lambda-form-arity _L126152_)) '#f) - __obj130644)))) - (let* ((___match129280129281_ - (lambda (_e126148126185_ _hd126147126188_ _tl126146126190_) - (let ((_L126193_ _tl126146126190_)) + __obj130626)))) + (let* ((___match129262129263_ + (lambda (_e126130126167_ _hd126129126170_ _tl126128126172_) + (let ((_L126175_ _tl126128126172_)) (if (let () (declare (not safe)) - (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_) + (gxc#dispatch-lambda-form? _L126175_)) + (___kont128953128954_ _L126175_) + (___kont128955128956_ _tl126128126172_))))) + (___match129256129257_ + (lambda (_e126024126189_ + _hd126023126192_ + _tl126022126194_ + _e126027126197_ + _hd126026126200_ + _tl126025126202_ + _e126030126205_ + _hd126029126208_ + _tl126028126210_ + _e126033126213_ + _hd126032126216_ + _tl126031126218_ + _e126036126221_ + _hd126035126224_ + _tl126034126226_ + _e126039126229_ + _hd126038126232_ + _tl126037126234_ + _e126042126237_ + _hd126041126240_ + _tl126040126242_ + _e126045126245_ + _hd126044126248_ + _tl126043126250_ + _e126048126253_ + _hd126047126256_ + _tl126046126258_ + _e126051126261_ + _hd126050126264_ + _tl126049126266_ + _e126054126269_ + _hd126053126272_ + _tl126052126274_ + _e126057126277_ + _hd126056126280_ + _tl126055126282_ + _e126060126285_ + _hd126059126288_ + _tl126058126290_ + _e126063126293_ + _hd126062126296_ + _tl126061126298_ + ___splice128951128952_ + _target126064126301_ + _tl126066126303_ + _e126081126306_ + _hd126080126309_ + _tl126079126311_ + _e126084126314_ + _hd126083126317_ + _tl126082126319_ + _e126087126322_ + _hd126086126325_ + _tl126085126327_) + (letrec ((_loop126067126330_ + (lambda (_hd126065126333_ + _-absent-value126071126335_ + _key126072126337_ + _-xkwvar126073126339_ + _-hash-ref126074126341_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126083126351_)) - (let ((_e126086126362_ + (gx#stx-pair? _hd126065126333_)) + (let ((_e126068126344_ (let () (declare (not safe)) - (gx#stx-e _hd126083126351_)))) - (let ((_lp-tl126088126367_ + (gx#stx-e _hd126065126333_)))) + (let ((_lp-tl126070126349_ (let () (declare (not safe)) - (##cdr _e126086126362_))) - (_lp-hd126087126365_ + (##cdr _e126068126344_))) + (_lp-hd126069126347_ (let () (declare (not safe)) - (##car _e126086126362_)))) + (##car _e126068126344_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd126087126365_)) - (let ((_e126108126370_ + _lp-hd126069126347_)) + (let ((_e126090126352_ (let () (declare (not safe)) (gx#stx-e - _lp-hd126087126365_)))) - (let ((_tl126106126375_ + _lp-hd126069126347_)))) + (let ((_tl126088126357_ (let () (declare (not safe)) - (##cdr _e126108126370_))) - (_hd126107126373_ + (##cdr _e126090126352_))) + (_hd126089126355_ (let () (declare (not safe)) - (##car _e126108126370_)))) + (##car _e126090126352_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd126107126373_)) + _hd126089126355_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd126107126373_)) + _hd126089126355_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl126106126375_)) - (let ((_e126111126378_ + (gx#stx-pair? _tl126088126357_)) + (let ((_e126093126360_ (let () (declare (not safe)) - (gx#stx-e _tl126106126375_)))) - (let ((_tl126109126383_ + (gx#stx-e _tl126088126357_)))) + (let ((_tl126091126365_ (let () (declare (not safe)) - (##cdr _e126111126378_))) - (_hd126110126381_ + (##cdr _e126093126360_))) + (_hd126092126363_ (let () (declare (not safe)) - (##car _e126111126378_)))) + (##car _e126093126360_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126110126381_)) - (let ((_e126114126386_ + (gx#stx-pair? _hd126092126363_)) + (let ((_e126096126368_ (let () (declare (not safe)) - (gx#stx-e _hd126110126381_)))) - (let ((_tl126112126391_ + (gx#stx-e _hd126092126363_)))) + (let ((_tl126094126373_ (let () (declare (not safe)) - (##cdr _e126114126386_))) - (_hd126113126389_ + (##cdr _e126096126368_))) + (_hd126095126371_ (let () (declare (not safe)) - (##car _e126114126386_)))) + (##car _e126096126368_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126113126389_)) + (gx#identifier? _hd126095126371_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd126113126389_)) + _hd126095126371_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126112126391_)) - (let ((_e126117126394_ + _tl126094126373_)) + (let ((_e126099126376_ (let () (declare (not safe)) (gx#stx-e - _tl126112126391_)))) - (let ((_tl126115126399_ + _tl126094126373_)))) + (let ((_tl126097126381_ (let () (declare (not safe)) - (##cdr _e126117126394_))) - (_hd126116126397_ + (##cdr _e126099126376_))) + (_hd126098126379_ (let () (declare (not safe)) - (##car _e126117126394_)))) + (##car _e126099126376_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126115126399_)) + _tl126097126381_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126109126383_)) - (let ((_e126120126402_ + _tl126091126365_)) + (let ((_e126102126384_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl126109126383_)))) - (let ((_tl126118126407_ + (gx#stx-e _tl126091126365_)))) + (let ((_tl126100126389_ (let () (declare (not safe)) - (##cdr _e126120126402_))) - (_hd126119126405_ + (##cdr _e126102126384_))) + (_hd126101126387_ (let () (declare (not safe)) - (##car _e126120126402_)))) + (##car _e126102126384_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126119126405_)) - (let ((_e126123126410_ + (gx#stx-pair? _hd126101126387_)) + (let ((_e126105126392_ (let () (declare (not safe)) - (gx#stx-e _hd126119126405_)))) - (let ((_tl126121126415_ + (gx#stx-e _hd126101126387_)))) + (let ((_tl126103126397_ (let () (declare (not safe)) - (##cdr _e126123126410_))) - (_hd126122126413_ + (##cdr _e126105126392_))) + (_hd126104126395_ (let () (declare (not safe)) - (##car _e126123126410_)))) + (##car _e126105126392_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126122126413_)) + (gx#identifier? _hd126104126395_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd126122126413_)) + (gx#stx-eq? '%#ref _hd126104126395_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126121126415_)) - (let ((_e126126126418_ + (gx#stx-pair? _tl126103126397_)) + (let ((_e126108126400_ (let () (declare (not safe)) (gx#stx-e - _tl126121126415_)))) - (let ((_tl126124126423_ + _tl126103126397_)))) + (let ((_tl126106126405_ (let () (declare (not safe)) - (##cdr _e126126126418_))) - (_hd126125126421_ + (##cdr _e126108126400_))) + (_hd126107126403_ (let () (declare (not safe)) - (##car _e126126126418_)))) + (##car _e126108126400_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126124126423_)) + _tl126106126405_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126118126407_)) - (let ((_e126129126426_ + _tl126100126389_)) + (let ((_e126111126408_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl126118126407_)))) - (let ((_tl126127126431_ - (let () (declare (not safe)) (##cdr _e126129126426_))) - (_hd126128126429_ - (let () (declare (not safe)) (##car _e126129126426_)))) + (gx#stx-e _tl126100126389_)))) + (let ((_tl126109126413_ + (let () (declare (not safe)) (##cdr _e126111126408_))) + (_hd126110126411_ + (let () (declare (not safe)) (##car _e126111126408_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126128126429_)) - (let ((_e126132126434_ + (gx#stx-pair? _hd126110126411_)) + (let ((_e126114126416_ (let () (declare (not safe)) - (gx#stx-e _hd126128126429_)))) - (let ((_tl126130126439_ + (gx#stx-e _hd126110126411_)))) + (let ((_tl126112126421_ (let () (declare (not safe)) - (##cdr _e126132126434_))) - (_hd126131126437_ + (##cdr _e126114126416_))) + (_hd126113126419_ (let () (declare (not safe)) - (##car _e126132126434_)))) + (##car _e126114126416_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126131126437_)) + (gx#identifier? _hd126113126419_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd126131126437_)) + (gx#stx-eq? '%#quote _hd126113126419_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126130126439_)) - (let ((_e126135126442_ + (gx#stx-pair? _tl126112126421_)) + (let ((_e126117126424_ (let () (declare (not safe)) - (gx#stx-e _tl126130126439_)))) - (let ((_tl126133126447_ + (gx#stx-e _tl126112126421_)))) + (let ((_tl126115126429_ (let () (declare (not safe)) - (##cdr _e126135126442_))) - (_hd126134126445_ + (##cdr _e126117126424_))) + (_hd126116126427_ (let () (declare (not safe)) - (##car _e126135126442_)))) + (##car _e126117126424_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126133126447_)) + _tl126115126429_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126127126431_)) - (let ((_e126138126450_ + _tl126109126413_)) + (let ((_e126120126432_ (let () (declare (not safe)) (gx#stx-e - _tl126127126431_)))) - (let ((_tl126136126455_ + _tl126109126413_)))) + (let ((_tl126118126437_ (let () (declare (not safe)) - (##cdr _e126138126450_))) - (_hd126137126453_ + (##cdr _e126120126432_))) + (_hd126119126435_ (let () (declare (not safe)) - (##car _e126138126450_)))) + (##car _e126120126432_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd126137126453_)) - (let ((_e126141126458_ + _hd126119126435_)) + (let ((_e126123126440_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd126137126453_)))) - (let ((_tl126139126463_ + (gx#stx-e _hd126119126435_)))) + (let ((_tl126121126445_ (let () (declare (not safe)) - (##cdr _e126141126458_))) - (_hd126140126461_ + (##cdr _e126123126440_))) + (_hd126122126443_ (let () (declare (not safe)) - (##car _e126141126458_)))) + (##car _e126123126440_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126140126461_)) + (gx#identifier? _hd126122126443_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd126140126461_)) + (gx#stx-eq? '%#ref _hd126122126443_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126139126463_)) - (let ((_e126144126466_ + (gx#stx-pair? _tl126121126445_)) + (let ((_e126126126448_ (let () (declare (not safe)) - (gx#stx-e _tl126139126463_)))) - (let ((_tl126142126471_ + (gx#stx-e _tl126121126445_)))) + (let ((_tl126124126453_ (let () (declare (not safe)) - (##cdr _e126144126466_))) - (_hd126143126469_ + (##cdr _e126126126448_))) + (_hd126125126451_ (let () (declare (not safe)) - (##car _e126144126466_)))) + (##car _e126126126448_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126142126471_)) + (gx#stx-null? _tl126124126453_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl126136126455_)) - (let ((__tmp130715 + _tl126118126437_)) + (let ((__tmp130697 (let () (declare (not safe)) - (cons _hd126143126469_ - _-absent-value126089126353_))) - (__tmp130714 + (cons _hd126125126451_ + _-absent-value126071126335_))) + (__tmp130696 (let () (declare (not safe)) - (cons _hd126134126445_ - _key126090126355_))) - (__tmp130713 + (cons _hd126116126427_ + _key126072126337_))) + (__tmp130695 (let () (declare (not safe)) - (cons _hd126125126421_ - _-xkwvar126091126357_))) - (__tmp130712 + (cons _hd126107126403_ + _-xkwvar126073126339_))) + (__tmp130694 (let () (declare (not safe)) - (cons _hd126116126397_ - _-hash-ref126092126359_)))) + (cons _hd126098126379_ + _-hash-ref126074126341_)))) (declare (not safe)) - (_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_))) + (_loop126067126330_ + _lp-tl126070126349_ + __tmp130697 + __tmp130696 + __tmp130695 + __tmp130694)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (let ((_-hash-ref126078126462_ + (reverse _-hash-ref126074126341_)) + (_-xkwvar126077126460_ + (reverse _-xkwvar126073126339_)) + (_key126076126458_ + (reverse _key126072126337_)) + (_-absent-value126075126456_ + (reverse _-absent-value126071126335_))) (if (let () (declare (not safe)) - (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_)) + (gx#stx-null? _tl126031126218_)) + (let ((_L126465_ _hd126086126325_) + (_L126466_ + _-absent-value126075126456_) + (_L126467_ _key126076126458_) + (_L126468_ + _-xkwvar126077126460_) + (_L126469_ + _-hash-ref126078126462_) + (_L126470_ _hd126062126296_) + (_L126471_ _hd126053126272_) + (_L126472_ _hd126044126248_) + (_L126473_ _tl126028126210_) + (_L126474_ _hd126029126208_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L126492_)) + _L126474_)) (let () (declare (not safe)) (gx#identifier? - _L126491_)) + _L126473_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L126490_ + _L126472_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L126492_ - _L126488_)) - (let ((__tmp130710 - (let ((__tmp130711 + _L126474_ + _L126470_)) + (let ((__tmp130692 + (let ((__tmp130693 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g126545126548_ _g126546126550_) + (lambda (_g126527126530_ _g126528126532_) (let () (declare (not safe)) - (cons _g126545126548_ _g126546126550_))))) + (cons _g126527126530_ _g126528126532_))))) (declare (not safe)) - (foldr1 __tmp130711 '() _L126485_)))) + (foldr1 __tmp130693 '() _L126467_)))) (declare (not safe)) - (andmap1 gx#stx-keyword? __tmp130710)) - (let ((__tmp130709 - (lambda (_g126552126554_) + (andmap1 gx#stx-keyword? __tmp130692)) + (let ((__tmp130691 + (lambda (_g126534126536_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g126552126554_ + _g126534126536_ 'hash-ref)))) - (__tmp130707 - (let ((__tmp130708 - (lambda (_g126556126559_ _g126557126561_) + (__tmp130689 + (let ((__tmp130690 + (lambda (_g126538126541_ _g126539126543_) (let () (declare (not safe)) - (cons _g126556126559_ _g126557126561_))))) + (cons _g126538126541_ _g126539126543_))))) (declare (not safe)) - (foldr1 __tmp130708 '() _L126487_)))) + (foldr1 __tmp130690 '() _L126469_)))) (declare (not safe)) - (andmap1 __tmp130709 __tmp130707)) - (let ((__tmp130706 - (lambda (_g126563126565_) + (andmap1 __tmp130691 __tmp130689)) + (let ((__tmp130688 + (lambda (_g126545126547_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g126563126565_ + _g126545126547_ 'absent-value)))) - (__tmp130704 - (let ((__tmp130705 - (lambda (_g126567126570_ _g126568126572_) + (__tmp130686 + (let ((__tmp130687 + (lambda (_g126549126552_ _g126550126554_) (let () (declare (not safe)) - (cons _g126567126570_ _g126568126572_))))) + (cons _g126549126552_ _g126550126554_))))) (declare (not safe)) - (foldr1 __tmp130705 '() _L126484_)))) + (foldr1 __tmp130687 '() _L126466_)))) (declare (not safe)) - (andmap1 __tmp130706 __tmp130704)) - (let ((__tmp130703 - (lambda (_g126574126576_) + (andmap1 __tmp130688 __tmp130686)) + (let ((__tmp130685 + (lambda (_g126556126558_) (let () (declare (not safe)) - (gx#free-identifier=? _g126574126576_ _L126492_)))) - (__tmp130701 - (let ((__tmp130702 - (lambda (_g126578126581_ _g126579126583_) + (gx#free-identifier=? _g126556126558_ _L126474_)))) + (__tmp130683 + (let ((__tmp130684 + (lambda (_g126560126563_ _g126561126565_) (let () (declare (not safe)) - (cons _g126578126581_ _g126579126583_))))) + (cons _g126560126563_ _g126561126565_))))) (declare (not safe)) - (foldr1 __tmp130702 '() _L126486_)))) + (foldr1 __tmp130684 '() _L126468_)))) (declare (not safe)) - (andmap1 __tmp130703 __tmp130701))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont128967128968_ - _L126483_ - _L126484_ - _L126485_ - _L126486_ - _L126487_ - _L126488_ - _L126489_ - _L126490_ - _L126491_ - _L126492_) - (___match129280129281_ - _e126042126207_ - _hd126041126210_ - _tl126040126212_))) - (___match129280129281_ - _e126042126207_ - _hd126041126210_ - _tl126040126212_))))))) + (andmap1 __tmp130685 __tmp130683))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont128949128950_ + _L126465_ + _L126466_ + _L126467_ + _L126468_ + _L126469_ + _L126470_ + _L126471_ + _L126472_ + _L126473_ + _L126474_) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_))))))) (let () (declare (not safe)) - (_loop126085126348_ - _target126082126319_ + (_loop126067126330_ + _target126064126301_ '() '() '() '()))))) - (___match129146129147_ - (lambda (_e126042126207_ - _hd126041126210_ - _tl126040126212_ - _e126045126215_ - _hd126044126218_ - _tl126043126220_) + (___match129128129129_ + (lambda (_e126024126189_ + _hd126023126192_ + _tl126022126194_ + _e126027126197_ + _hd126026126200_ + _tl126025126202_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126044126218_)) - (let ((_e126048126223_ + (gx#stx-pair? _hd126026126200_)) + (let ((_e126030126205_ (let () (declare (not safe)) - (gx#stx-e _hd126044126218_)))) - (let ((_tl126046126228_ + (gx#stx-e _hd126026126200_)))) + (let ((_tl126028126210_ (let () (declare (not safe)) - (##cdr _e126048126223_))) - (_hd126047126226_ + (##cdr _e126030126205_))) + (_hd126029126208_ (let () (declare (not safe)) - (##car _e126048126223_)))) + (##car _e126030126205_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126043126220_)) - (let ((_e126051126231_ + (gx#stx-pair? _tl126025126202_)) + (let ((_e126033126213_ (let () (declare (not safe)) - (gx#stx-e _tl126043126220_)))) - (let ((_tl126049126236_ + (gx#stx-e _tl126025126202_)))) + (let ((_tl126031126218_ (let () (declare (not safe)) - (##cdr _e126051126231_))) - (_hd126050126234_ + (##cdr _e126033126213_))) + (_hd126032126216_ (let () (declare (not safe)) - (##car _e126051126231_)))) + (##car _e126033126213_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126050126234_)) - (let ((_e126054126239_ + (gx#stx-pair? _hd126032126216_)) + (let ((_e126036126221_ (let () (declare (not safe)) (gx#stx-e - _hd126050126234_)))) - (let ((_tl126052126244_ + _hd126032126216_)))) + (let ((_tl126034126226_ (let () (declare (not safe)) - (##cdr _e126054126239_))) - (_hd126053126242_ + (##cdr _e126036126221_))) + (_hd126035126224_ (let () (declare (not safe)) - (##car _e126054126239_)))) + (##car _e126036126221_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd126053126242_)) + _hd126035126224_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd126053126242_)) + _hd126035126224_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126052126244_)) - (let ((_e126057126247_ + _tl126034126226_)) + (let ((_e126039126229_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl126052126244_)))) - (let ((_tl126055126252_ + (gx#stx-e _tl126034126226_)))) + (let ((_tl126037126234_ (let () (declare (not safe)) - (##cdr _e126057126247_))) - (_hd126056126250_ + (##cdr _e126039126229_))) + (_hd126038126232_ (let () (declare (not safe)) - (##car _e126057126247_)))) + (##car _e126039126229_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126056126250_)) - (let ((_e126060126255_ + (gx#stx-pair? _hd126038126232_)) + (let ((_e126042126237_ (let () (declare (not safe)) - (gx#stx-e _hd126056126250_)))) - (let ((_tl126058126260_ + (gx#stx-e _hd126038126232_)))) + (let ((_tl126040126242_ (let () (declare (not safe)) - (##cdr _e126060126255_))) - (_hd126059126258_ + (##cdr _e126042126237_))) + (_hd126041126240_ (let () (declare (not safe)) - (##car _e126060126255_)))) + (##car _e126042126237_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126059126258_)) + (gx#identifier? _hd126041126240_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd126059126258_)) + (gx#stx-eq? '%#ref _hd126041126240_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126058126260_)) - (let ((_e126063126263_ + (gx#stx-pair? _tl126040126242_)) + (let ((_e126045126245_ (let () (declare (not safe)) (gx#stx-e - _tl126058126260_)))) - (let ((_tl126061126268_ + _tl126040126242_)))) + (let ((_tl126043126250_ (let () (declare (not safe)) - (##cdr _e126063126263_))) - (_hd126062126266_ + (##cdr _e126045126245_))) + (_hd126044126248_ (let () (declare (not safe)) - (##car _e126063126263_)))) + (##car _e126045126245_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126061126268_)) + _tl126043126250_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126055126252_)) - (let ((_e126066126271_ + _tl126037126234_)) + (let ((_e126048126253_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl126055126252_)))) - (let ((_tl126064126276_ - (let () (declare (not safe)) (##cdr _e126066126271_))) - (_hd126065126274_ - (let () (declare (not safe)) (##car _e126066126271_)))) + (gx#stx-e _tl126037126234_)))) + (let ((_tl126046126258_ + (let () (declare (not safe)) (##cdr _e126048126253_))) + (_hd126047126256_ + (let () (declare (not safe)) (##car _e126048126253_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126065126274_)) - (let ((_e126069126279_ + (gx#stx-pair? _hd126047126256_)) + (let ((_e126051126261_ (let () (declare (not safe)) - (gx#stx-e _hd126065126274_)))) - (let ((_tl126067126284_ + (gx#stx-e _hd126047126256_)))) + (let ((_tl126049126266_ (let () (declare (not safe)) - (##cdr _e126069126279_))) - (_hd126068126282_ + (##cdr _e126051126261_))) + (_hd126050126264_ (let () (declare (not safe)) - (##car _e126069126279_)))) + (##car _e126051126261_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126068126282_)) + (gx#identifier? _hd126050126264_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd126068126282_)) + (gx#stx-eq? '%#ref _hd126050126264_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126067126284_)) - (let ((_e126072126287_ + (gx#stx-pair? _tl126049126266_)) + (let ((_e126054126269_ (let () (declare (not safe)) - (gx#stx-e _tl126067126284_)))) - (let ((_tl126070126292_ + (gx#stx-e _tl126049126266_)))) + (let ((_tl126052126274_ (let () (declare (not safe)) - (##cdr _e126072126287_))) - (_hd126071126290_ + (##cdr _e126054126269_))) + (_hd126053126272_ (let () (declare (not safe)) - (##car _e126072126287_)))) + (##car _e126054126269_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126070126292_)) + _tl126052126274_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126064126276_)) - (let ((_e126075126295_ + _tl126046126258_)) + (let ((_e126057126277_ (let () (declare (not safe)) (gx#stx-e - _tl126064126276_)))) - (let ((_tl126073126300_ + _tl126046126258_)))) + (let ((_tl126055126282_ (let () (declare (not safe)) - (##cdr _e126075126295_))) - (_hd126074126298_ + (##cdr _e126057126277_))) + (_hd126056126280_ (let () (declare (not safe)) - (##car _e126075126295_)))) + (##car _e126057126277_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd126074126298_)) - (let ((_e126078126303_ + _hd126056126280_)) + (let ((_e126060126285_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd126074126298_)))) - (let ((_tl126076126308_ + (gx#stx-e _hd126056126280_)))) + (let ((_tl126058126290_ (let () (declare (not safe)) - (##cdr _e126078126303_))) - (_hd126077126306_ + (##cdr _e126060126285_))) + (_hd126059126288_ (let () (declare (not safe)) - (##car _e126078126303_)))) + (##car _e126060126285_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126077126306_)) + (gx#identifier? _hd126059126288_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd126077126306_)) + (gx#stx-eq? '%#ref _hd126059126288_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126076126308_)) - (let ((_e126081126311_ + (gx#stx-pair? _tl126058126290_)) + (let ((_e126063126293_ (let () (declare (not safe)) - (gx#stx-e _tl126076126308_)))) - (let ((_tl126079126316_ + (gx#stx-e _tl126058126290_)))) + (let ((_tl126061126298_ (let () (declare (not safe)) - (##cdr _e126081126311_))) - (_hd126080126314_ + (##cdr _e126063126293_))) + (_hd126062126296_ (let () (declare (not safe)) - (##car _e126081126311_)))) + (##car _e126063126293_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126079126316_)) + (gx#stx-null? _tl126061126298_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl126073126300_)) + _tl126055126282_)) (if (fx>= (let () (declare (not safe)) (gx#stx-length - _tl126073126300_)) + _tl126055126282_)) '1) - (let ((___splice128969128970_ + (let ((___splice128951128952_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl126073126300_ + _tl126055126282_ '1)))) - (let ((_tl126084126321_ + (let ((_tl126066126303_ (let () (declare (not safe)) (##vector-ref - ___splice128969128970_ + ___splice128951128952_ '1))) - (_target126082126319_ + (_target126064126301_ (let () (declare (not safe)) (##vector-ref - ___splice128969128970_ + ___splice128951128952_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126084126321_)) - (let ((_e126099126324_ + _tl126066126303_)) + (let ((_e126081126306_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl126084126321_)))) - (let ((_tl126097126329_ + (gx#stx-e _tl126066126303_)))) + (let ((_tl126079126311_ (let () (declare (not safe)) - (##cdr _e126099126324_))) - (_hd126098126327_ + (##cdr _e126081126306_))) + (_hd126080126309_ (let () (declare (not safe)) - (##car _e126099126324_)))) + (##car _e126081126306_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd126098126327_)) - (let ((_e126102126332_ + (gx#stx-pair? _hd126080126309_)) + (let ((_e126084126314_ (let () (declare (not safe)) - (gx#stx-e _hd126098126327_)))) - (let ((_tl126100126337_ + (gx#stx-e _hd126080126309_)))) + (let ((_tl126082126319_ (let () (declare (not safe)) - (##cdr _e126102126332_))) - (_hd126101126335_ + (##cdr _e126084126314_))) + (_hd126083126317_ (let () (declare (not safe)) - (##car _e126102126332_)))) + (##car _e126084126314_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126101126335_)) + (gx#identifier? _hd126083126317_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd126101126335_)) + (gx#stx-eq? '%#ref _hd126083126317_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126100126337_)) - (let ((_e126105126340_ + (gx#stx-pair? _tl126082126319_)) + (let ((_e126087126322_ (let () (declare (not safe)) (gx#stx-e - _tl126100126337_)))) - (let ((_tl126103126345_ + _tl126082126319_)))) + (let ((_tl126085126327_ (let () (declare (not safe)) - (##cdr _e126105126340_))) - (_hd126104126343_ + (##cdr _e126087126322_))) + (_hd126086126325_ (let () (declare (not safe)) - (##car _e126105126340_)))) + (##car _e126087126322_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126103126345_)) + _tl126085126327_)) (if (let () (declare (not safe)) (gx#stx-null? - _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_)) + _tl126079126311_)) + (___match129256129257_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_ + _e126027126197_ + _hd126026126200_ + _tl126025126202_ + _e126030126205_ + _hd126029126208_ + _tl126028126210_ + _e126033126213_ + _hd126032126216_ + _tl126031126218_ + _e126036126221_ + _hd126035126224_ + _tl126034126226_ + _e126039126229_ + _hd126038126232_ + _tl126037126234_ + _e126042126237_ + _hd126041126240_ + _tl126040126242_ + _e126045126245_ + _hd126044126248_ + _tl126043126250_ + _e126048126253_ + _hd126047126256_ + _tl126046126258_ + _e126051126261_ + _hd126050126264_ + _tl126049126266_ + _e126054126269_ + _hd126053126272_ + _tl126052126274_ + _e126057126277_ + _hd126056126280_ + _tl126055126282_ + _e126060126285_ + _hd126059126288_ + _tl126058126290_ + _e126063126293_ + _hd126062126296_ + _tl126061126298_ + ___splice128951128952_ + _target126064126301_ + _tl126066126303_ + _e126081126306_ + _hd126080126309_ + _tl126079126311_ + _e126084126314_ + _hd126083126317_ + _tl126082126319_ + _e126087126322_ + _hd126086126325_ + _tl126085126327_) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129262129263_ + _e126024126189_ + _hd126023126192_ + _tl126022126194_)))) + (___match129116129117_ + (lambda (_e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_ + _e125963126596_ + _hd125962126599_ + _tl125961126601_ + _e125966126604_ + _hd125965126607_ + _tl125964126609_ + _e125969126612_ + _hd125968126615_ + _tl125967126617_ + _e125972126620_ + _hd125971126623_ + _tl125970126625_ + _e125975126628_ + _hd125974126631_ + _tl125973126633_ + _e125978126636_ + _hd125977126639_ + _tl125976126641_ + _e125981126644_ + _hd125980126647_ + _tl125979126649_ + _e125984126652_ + _hd125983126655_ + _tl125982126657_ + _e125987126660_ + _hd125986126663_ + _tl125985126665_ + _e125990126668_ + _hd125989126671_ + _tl125988126673_ + _e125993126676_ + _hd125992126679_ + _tl125991126681_ + _e125996126684_ + _hd125995126687_ + _tl125994126689_ + _e125999126692_ + _hd125998126695_ + _tl125997126697_ + _e126002126700_ + _hd126001126703_ + _tl126000126705_ + _e126005126708_ + _hd126004126711_ + _tl126003126713_ + _e126008126716_ + _hd126007126719_ + _tl126006126721_ + _e126011126724_ + _hd126010126727_ + _tl126009126729_) + (let ((_L126732_ _hd126010126727_) + (_L126733_ _hd126001126703_) + (_L126734_ _hd125992126679_) + (_L126735_ _hd125983126655_) + (_L126736_ _hd125974126631_) + (_L126737_ _hd125959126591_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L126755_)) + (gx#identifier? _L126737_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L126754_ 'apply)) + (gxc#runtime-identifier=? _L126736_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L126753_ + _L126735_ 'keyword-dispatch)) (let () (declare (not safe)) - (gx#free-identifier=? _L126755_ _L126750_))) - (___kont128965128966_ - _L126750_ - _L126751_ - _L126752_ - _L126753_ - _L126754_ - _L126755_) - (___match129146129147_ - _e125975126598_ - _hd125974126601_ - _tl125973126603_ - _e125978126606_ - _hd125977126609_ - _tl125976126611_))))) - (___match128988128989_ - (lambda (_e125975126598_ _hd125974126601_ _tl125973126603_) + (gx#free-identifier=? _L126737_ _L126732_))) + (___kont128947128948_ + _L126732_ + _L126733_ + _L126734_ + _L126735_ + _L126736_ + _L126737_) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_))))) + (___match128970128971_ + (lambda (_e125957126580_ _hd125956126583_ _tl125955126585_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125973126603_)) - (let ((_e125978126606_ + (gx#stx-pair? _tl125955126585_)) + (let ((_e125960126588_ (let () (declare (not safe)) - (gx#stx-e _tl125973126603_)))) - (let ((_tl125976126611_ + (gx#stx-e _tl125955126585_)))) + (let ((_tl125958126593_ (let () (declare (not safe)) - (##cdr _e125978126606_))) - (_hd125977126609_ + (##cdr _e125960126588_))) + (_hd125959126591_ (let () (declare (not safe)) - (##car _e125978126606_)))) + (##car _e125960126588_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125976126611_)) - (let ((_e125981126614_ + (gx#stx-pair? _tl125958126593_)) + (let ((_e125963126596_ (let () (declare (not safe)) - (gx#stx-e _tl125976126611_)))) - (let ((_tl125979126619_ + (gx#stx-e _tl125958126593_)))) + (let ((_tl125961126601_ (let () (declare (not safe)) - (##cdr _e125981126614_))) - (_hd125980126617_ + (##cdr _e125963126596_))) + (_hd125962126599_ (let () (declare (not safe)) - (##car _e125981126614_)))) + (##car _e125963126596_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125980126617_)) - (let ((_e125984126622_ + (gx#stx-pair? _hd125962126599_)) + (let ((_e125966126604_ (let () (declare (not safe)) (gx#stx-e - _hd125980126617_)))) - (let ((_tl125982126627_ + _hd125962126599_)))) + (let ((_tl125964126609_ (let () (declare (not safe)) - (##cdr _e125984126622_))) - (_hd125983126625_ + (##cdr _e125966126604_))) + (_hd125965126607_ (let () (declare (not safe)) - (##car _e125984126622_)))) + (##car _e125966126604_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd125983126625_)) + _hd125965126607_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd125983126625_)) + _hd125965126607_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125982126627_)) - (let ((_e125987126630_ + _tl125964126609_)) + (let ((_e125969126612_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl125982126627_)))) - (let ((_tl125985126635_ + (gx#stx-e _tl125964126609_)))) + (let ((_tl125967126617_ (let () (declare (not safe)) - (##cdr _e125987126630_))) - (_hd125986126633_ + (##cdr _e125969126612_))) + (_hd125968126615_ (let () (declare (not safe)) - (##car _e125987126630_)))) + (##car _e125969126612_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125986126633_)) - (let ((_e125990126638_ + (gx#stx-pair? _hd125968126615_)) + (let ((_e125972126620_ (let () (declare (not safe)) - (gx#stx-e _hd125986126633_)))) - (let ((_tl125988126643_ + (gx#stx-e _hd125968126615_)))) + (let ((_tl125970126625_ (let () (declare (not safe)) - (##cdr _e125990126638_))) - (_hd125989126641_ + (##cdr _e125972126620_))) + (_hd125971126623_ (let () (declare (not safe)) - (##car _e125990126638_)))) + (##car _e125972126620_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125989126641_)) + (gx#identifier? _hd125971126623_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd125989126641_)) + (gx#stx-eq? '%#ref _hd125971126623_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125988126643_)) - (let ((_e125993126646_ + (gx#stx-pair? _tl125970126625_)) + (let ((_e125975126628_ (let () (declare (not safe)) (gx#stx-e - _tl125988126643_)))) - (let ((_tl125991126651_ + _tl125970126625_)))) + (let ((_tl125973126633_ (let () (declare (not safe)) - (##cdr _e125993126646_))) - (_hd125992126649_ + (##cdr _e125975126628_))) + (_hd125974126631_ (let () (declare (not safe)) - (##car _e125993126646_)))) + (##car _e125975126628_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125991126651_)) + _tl125973126633_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125985126635_)) - (let ((_e125996126654_ + _tl125967126617_)) + (let ((_e125978126636_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl125985126635_)))) - (let ((_tl125994126659_ - (let () (declare (not safe)) (##cdr _e125996126654_))) - (_hd125995126657_ - (let () (declare (not safe)) (##car _e125996126654_)))) + (gx#stx-e _tl125967126617_)))) + (let ((_tl125976126641_ + (let () (declare (not safe)) (##cdr _e125978126636_))) + (_hd125977126639_ + (let () (declare (not safe)) (##car _e125978126636_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125995126657_)) - (let ((_e125999126662_ + (gx#stx-pair? _hd125977126639_)) + (let ((_e125981126644_ (let () (declare (not safe)) - (gx#stx-e _hd125995126657_)))) - (let ((_tl125997126667_ + (gx#stx-e _hd125977126639_)))) + (let ((_tl125979126649_ (let () (declare (not safe)) - (##cdr _e125999126662_))) - (_hd125998126665_ + (##cdr _e125981126644_))) + (_hd125980126647_ (let () (declare (not safe)) - (##car _e125999126662_)))) + (##car _e125981126644_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125998126665_)) + (gx#identifier? _hd125980126647_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd125998126665_)) + (gx#stx-eq? '%#ref _hd125980126647_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125997126667_)) - (let ((_e126002126670_ + (gx#stx-pair? _tl125979126649_)) + (let ((_e125984126652_ (let () (declare (not safe)) - (gx#stx-e _tl125997126667_)))) - (let ((_tl126000126675_ + (gx#stx-e _tl125979126649_)))) + (let ((_tl125982126657_ (let () (declare (not safe)) - (##cdr _e126002126670_))) - (_hd126001126673_ + (##cdr _e125984126652_))) + (_hd125983126655_ (let () (declare (not safe)) - (##car _e126002126670_)))) + (##car _e125984126652_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl126000126675_)) + _tl125982126657_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125994126659_)) - (let ((_e126005126678_ + _tl125976126641_)) + (let ((_e125987126660_ (let () (declare (not safe)) (gx#stx-e - _tl125994126659_)))) - (let ((_tl126003126683_ + _tl125976126641_)))) + (let ((_tl125985126665_ (let () (declare (not safe)) - (##cdr _e126005126678_))) - (_hd126004126681_ + (##cdr _e125987126660_))) + (_hd125986126663_ (let () (declare (not safe)) - (##car _e126005126678_)))) + (##car _e125987126660_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd126004126681_)) - (let ((_e126008126686_ + _hd125986126663_)) + (let ((_e125990126668_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd126004126681_)))) - (let ((_tl126006126691_ + (gx#stx-e _hd125986126663_)))) + (let ((_tl125988126673_ (let () (declare (not safe)) - (##cdr _e126008126686_))) - (_hd126007126689_ + (##cdr _e125990126668_))) + (_hd125989126671_ (let () (declare (not safe)) - (##car _e126008126686_)))) + (##car _e125990126668_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126007126689_)) + (gx#identifier? _hd125989126671_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd126007126689_)) + (gx#stx-eq? '%#quote _hd125989126671_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126006126691_)) - (let ((_e126011126694_ + (gx#stx-pair? _tl125988126673_)) + (let ((_e125993126676_ (let () (declare (not safe)) - (gx#stx-e _tl126006126691_)))) - (let ((_tl126009126699_ + (gx#stx-e _tl125988126673_)))) + (let ((_tl125991126681_ (let () (declare (not safe)) - (##cdr _e126011126694_))) - (_hd126010126697_ + (##cdr _e125993126676_))) + (_hd125992126679_ (let () (declare (not safe)) - (##car _e126011126694_)))) + (##car _e125993126676_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126009126699_)) + (gx#stx-null? _tl125991126681_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl126003126683_)) - (let ((_e126014126702_ + _tl125985126665_)) + (let ((_e125996126684_ (let () (declare (not safe)) (gx#stx-e - _tl126003126683_)))) - (let ((_tl126012126707_ + _tl125985126665_)))) + (let ((_tl125994126689_ (let () (declare (not safe)) - (##cdr _e126014126702_))) - (_hd126013126705_ + (##cdr _e125996126684_))) + (_hd125995126687_ (let () (declare (not safe)) - (##car _e126014126702_)))) + (##car _e125996126684_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd126013126705_)) - (let ((_e126017126710_ + _hd125995126687_)) + (let ((_e125999126692_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd126013126705_)))) - (let ((_tl126015126715_ - (let () (declare (not safe)) (##cdr _e126017126710_))) - (_hd126016126713_ - (let () (declare (not safe)) (##car _e126017126710_)))) + (gx#stx-e _hd125995126687_)))) + (let ((_tl125997126697_ + (let () (declare (not safe)) (##cdr _e125999126692_))) + (_hd125998126695_ + (let () (declare (not safe)) (##car _e125999126692_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd126016126713_)) + (gx#identifier? _hd125998126695_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd126016126713_)) + (gx#stx-eq? '%#ref _hd125998126695_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126015126715_)) - (let ((_e126020126718_ + (gx#stx-pair? _tl125997126697_)) + (let ((_e126002126700_ (let () (declare (not safe)) - (gx#stx-e _tl126015126715_)))) - (let ((_tl126018126723_ + (gx#stx-e _tl125997126697_)))) + (let ((_tl126000126705_ (let () (declare (not safe)) - (##cdr _e126020126718_))) - (_hd126019126721_ + (##cdr _e126002126700_))) + (_hd126001126703_ (let () (declare (not safe)) - (##car _e126020126718_)))) + (##car _e126002126700_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126018126723_)) + (gx#stx-null? _tl126000126705_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126012126707_)) - (let ((_e126023126726_ + (gx#stx-pair? _tl125994126689_)) + (let ((_e126005126708_ (let () (declare (not safe)) (gx#stx-e - _tl126012126707_)))) - (let ((_tl126021126731_ + _tl125994126689_)))) + (let ((_tl126003126713_ (let () (declare (not safe)) - (##cdr _e126023126726_))) - (_hd126022126729_ + (##cdr _e126005126708_))) + (_hd126004126711_ (let () (declare (not safe)) - (##car _e126023126726_)))) + (##car _e126005126708_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd126022126729_)) - (let ((_e126026126734_ + _hd126004126711_)) + (let ((_e126008126716_ (let () (declare (not safe)) (gx#stx-e - _hd126022126729_)))) - (let ((_tl126024126739_ + _hd126004126711_)))) + (let ((_tl126006126721_ (let () (declare (not safe)) - (##cdr _e126026126734_))) - (_hd126025126737_ + (##cdr _e126008126716_))) + (_hd126007126719_ (let () (declare (not safe)) - (##car _e126026126734_)))) + (##car _e126008126716_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd126025126737_)) + _hd126007126719_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd126025126737_)) + (gx#stx-eq? '%#ref _hd126007126719_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl126024126739_)) - (let ((_e126029126742_ + (gx#stx-pair? _tl126006126721_)) + (let ((_e126011126724_ (let () (declare (not safe)) - (gx#stx-e _tl126024126739_)))) - (let ((_tl126027126747_ + (gx#stx-e _tl126006126721_)))) + (let ((_tl126009126729_ (let () (declare (not safe)) - (##cdr _e126029126742_))) - (_hd126028126745_ + (##cdr _e126011126724_))) + (_hd126010126727_ (let () (declare (not safe)) - (##car _e126029126742_)))) + (##car _e126011126724_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl126027126747_)) + (gx#stx-null? _tl126009126729_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl126021126731_)) + (gx#stx-null? _tl126003126713_)) (if (let () (declare (not safe)) - (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_))))) + (gx#stx-null? _tl125961126601_)) + (___match129116129117_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_ + _e125963126596_ + _hd125962126599_ + _tl125961126601_ + _e125966126604_ + _hd125965126607_ + _tl125964126609_ + _e125969126612_ + _hd125968126615_ + _tl125967126617_ + _e125972126620_ + _hd125971126623_ + _tl125970126625_ + _e125975126628_ + _hd125974126631_ + _tl125973126633_ + _e125978126636_ + _hd125977126639_ + _tl125976126641_ + _e125981126644_ + _hd125980126647_ + _tl125979126649_ + _e125984126652_ + _hd125983126655_ + _tl125982126657_ + _e125987126660_ + _hd125986126663_ + _tl125985126665_ + _e125990126668_ + _hd125989126671_ + _tl125988126673_ + _e125993126676_ + _hd125992126679_ + _tl125991126681_ + _e125996126684_ + _hd125995126687_ + _tl125994126689_ + _e125999126692_ + _hd125998126695_ + _tl125997126697_ + _e126002126700_ + _hd126001126703_ + _tl126000126705_ + _e126005126708_ + _hd126004126711_ + _tl126003126713_ + _e126008126716_ + _hd126007126719_ + _tl126006126721_ + _e126011126724_ + _hd126010126727_ + _tl126009126729_) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) + (___match129128129129_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_ + _e125960126588_ + _hd125959126591_ + _tl125958126593_)))) + (___match129262129263_ + _e125957126580_ + _hd125956126583_ + _tl125955126585_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx128961128962_)) - (let ((_e125966126815_ + (gx#stx-pair? ___stx128943128944_)) + (let ((_e125948126797_ (let () (declare (not safe)) - (gx#stx-e ___stx128961128962_)))) - (let ((_tl125964126820_ + (gx#stx-e ___stx128943128944_)))) + (let ((_tl125946126802_ (let () (declare (not safe)) - (##cdr _e125966126815_))) - (_hd125965126818_ + (##cdr _e125948126797_))) + (_hd125947126800_ (let () (declare (not safe)) - (##car _e125966126815_)))) + (##car _e125948126797_)))) (if (gxc#current-compile-type-closure) - (let ((_L126823_ _tl125964126820_)) - (___kont128963128964_ _L126823_)) - (___match128988128989_ - _e125966126815_ - _hd125965126818_ - _tl125964126820_)))) - (let () (declare (not safe)) (_g125961126157_)))))))) + (let ((_L126805_ _tl125946126802_)) + (___kont128945128946_ _L126805_)) + (___match128970128971_ + _e125948126797_ + _hd125947126800_ + _tl125946126802_)))) + (let () (declare (not safe)) (_g125943126139_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_self125908_ _stx125909_) - (letrec ((_clause-e125911_ - (lambda (_form125952_) - (let ((__obj130645 + (lambda (_self125890_ _stx125891_) + (letrec ((_clause-e125893_ + (lambda (_form125934_) + (let ((__obj130627 (let () (declare (not safe)) (##structure @@ -5921,4954 +5921,4954 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj130645 + __obj130627 'case-lambda-clause (let () (declare (not safe)) - (gxc#lambda-form-arity _form125952_)) - (if (let ((__tmp130716 + (gxc#lambda-form-arity _form125934_)) + (if (let ((__tmp130698 (gxc#current-compile-type-closure))) (declare (not safe)) - (not __tmp130716)) + (not __tmp130698)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _form125952_)) + (gxc#dispatch-lambda-form? _form125934_)) (let () (declare (not safe)) (gxc#dispatch-lambda-form-delegate - _form125952_)) + _form125934_)) '#f) '#f)) - __obj130645)))) - (let* ((_g125913125923_ - (lambda (_g125914125920_) + __obj130627)))) + (let* ((_g125895125905_ + (lambda (_g125896125902_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125914125920_)))) - (_g125912125949_ - (lambda (_g125914125926_) + _g125896125902_)))) + (_g125894125931_ + (lambda (_g125896125908_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125914125926_)) - (let ((_e125918125928_ + (gx#stx-pair? _g125896125908_)) + (let ((_e125900125910_ (let () (declare (not safe)) - (gx#stx-e _g125914125926_)))) - (let ((_hd125917125931_ + (gx#stx-e _g125896125908_)))) + (let ((_hd125899125913_ (let () (declare (not safe)) - (##car _e125918125928_))) - (_tl125916125933_ + (##car _e125900125910_))) + (_tl125898125915_ (let () (declare (not safe)) - (##cdr _e125918125928_)))) - ((lambda (_L125936_) - (let ((_clauses125947_ - (map _clause-e125911_ _L125936_))) + (##cdr _e125900125910_)))) + ((lambda (_L125918_) + (let ((_clauses125929_ + (map _clause-e125893_ _L125918_))) (declare (not safe)) (##structure gxc#!case-lambda::t 'case-lambda - _clauses125947_))) - _tl125916125933_))) + _clauses125929_))) + _tl125898125915_))) (let () (declare (not safe)) - (_g125913125923_ _g125914125926_)))))) + (_g125895125905_ _g125896125908_)))))) (declare (not safe)) - (_g125912125949_ _stx125909_))))) + (_g125894125931_ _stx125891_))))) (define gxc#basic-expression-type-let-values% - (lambda (_self125839_ _stx125840_) - (let* ((_g125842125859_ - (lambda (_g125843125856_) + (lambda (_self125821_ _stx125822_) + (let* ((_g125824125841_ + (lambda (_g125825125838_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125843125856_)))) - (_g125841125905_ - (lambda (_g125843125862_) + _g125825125838_)))) + (_g125823125887_ + (lambda (_g125825125844_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125843125862_)) - (let ((_e125848125864_ + (gx#stx-pair? _g125825125844_)) + (let ((_e125830125846_ (let () (declare (not safe)) - (gx#stx-e _g125843125862_)))) - (let ((_hd125847125867_ + (gx#stx-e _g125825125844_)))) + (let ((_hd125829125849_ (let () (declare (not safe)) - (##car _e125848125864_))) - (_tl125846125869_ + (##car _e125830125846_))) + (_tl125828125851_ (let () (declare (not safe)) - (##cdr _e125848125864_)))) + (##cdr _e125830125846_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125846125869_)) - (let ((_e125851125872_ + (gx#stx-pair? _tl125828125851_)) + (let ((_e125833125854_ (let () (declare (not safe)) - (gx#stx-e _tl125846125869_)))) - (let ((_hd125850125875_ + (gx#stx-e _tl125828125851_)))) + (let ((_hd125832125857_ (let () (declare (not safe)) - (##car _e125851125872_))) - (_tl125849125877_ + (##car _e125833125854_))) + (_tl125831125859_ (let () (declare (not safe)) - (##cdr _e125851125872_)))) + (##cdr _e125833125854_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125849125877_)) - (let ((_e125854125880_ + (gx#stx-pair? _tl125831125859_)) + (let ((_e125836125862_ (let () (declare (not safe)) - (gx#stx-e _tl125849125877_)))) - (let ((_hd125853125883_ + (gx#stx-e _tl125831125859_)))) + (let ((_hd125835125865_ (let () (declare (not safe)) - (##car _e125854125880_))) - (_tl125852125885_ + (##car _e125836125862_))) + (_tl125834125867_ (let () (declare (not safe)) - (##cdr _e125854125880_)))) + (##cdr _e125836125862_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125852125885_)) - ((lambda (_L125888_ _L125889_) - (let ((__tmp130717 + _tl125834125867_)) + ((lambda (_L125870_ _L125871_) + (let ((__tmp130699 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _self125839_ - _L125888_))))) + _self125821_ + _L125870_))))) (declare (not safe)) (call-with-parameters - __tmp130717 + __tmp130699 gxc#current-compile-type-closure '#t))) - _hd125853125883_ - _hd125850125875_) + _hd125835125865_ + _hd125832125857_) (let () (declare (not safe)) - (_g125842125859_ - _g125843125862_))))) + (_g125824125841_ + _g125825125844_))))) (let () (declare (not safe)) - (_g125842125859_ _g125843125862_))))) + (_g125824125841_ _g125825125844_))))) (let () (declare (not safe)) - (_g125842125859_ _g125843125862_))))) + (_g125824125841_ _g125825125844_))))) (let () (declare (not safe)) - (_g125842125859_ _g125843125862_)))))) + (_g125824125841_ _g125825125844_)))))) (declare (not safe)) - (_g125841125905_ _stx125840_)))) + (_g125823125887_ _stx125822_)))) (define gxc#basic-expression-type-builtin (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-call% - (lambda (_self125743_ _stx125744_) - (let* ((___stx129289129290_ _stx125744_) - (_g125747125767_ + (lambda (_self125725_ _stx125726_) + (let* ((___stx129271129272_ _stx125726_) + (_g125729125749_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129289129290_))))) - (let ((___kont129291129292_ - (lambda (_L125811_ _L125812_) - (let ((_type-e125829125831_ - (let ((__tmp130718 + ___stx129271129272_))))) + (let ((___kont129273129274_ + (lambda (_L125793_ _L125794_) + (let ((_type-e125811125813_ + (let ((__tmp130700 (let () (declare (not safe)) - (gxc#identifier-symbol _L125812_)))) + (gxc#identifier-symbol _L125794_)))) (declare (not safe)) (hash-get gxc#basic-expression-type-builtin - __tmp130718)))) - (if _type-e125829125831_ - (let ((_type-e125834_ _type-e125829125831_)) - (_type-e125834_ _stx125744_ _L125811_)) + __tmp130700)))) + (if _type-e125811125813_ + (let ((_type-e125816_ _type-e125811125813_)) + (_type-e125816_ _stx125726_ _L125793_)) '#f)))) - (___kont129293129294_ (lambda () '#f))) + (___kont129275129276_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx129289129290_)) - (let ((_e125753125779_ + (gx#stx-pair? ___stx129271129272_)) + (let ((_e125735125761_ (let () (declare (not safe)) - (gx#stx-e ___stx129289129290_)))) - (let ((_tl125751125784_ - (let () (declare (not safe)) (##cdr _e125753125779_))) - (_hd125752125782_ + (gx#stx-e ___stx129271129272_)))) + (let ((_tl125733125766_ + (let () (declare (not safe)) (##cdr _e125735125761_))) + (_hd125734125764_ (let () (declare (not safe)) - (##car _e125753125779_)))) + (##car _e125735125761_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125751125784_)) - (let ((_e125756125787_ + (gx#stx-pair? _tl125733125766_)) + (let ((_e125738125769_ (let () (declare (not safe)) - (gx#stx-e _tl125751125784_)))) - (let ((_tl125754125792_ + (gx#stx-e _tl125733125766_)))) + (let ((_tl125736125774_ (let () (declare (not safe)) - (##cdr _e125756125787_))) - (_hd125755125790_ + (##cdr _e125738125769_))) + (_hd125737125772_ (let () (declare (not safe)) - (##car _e125756125787_)))) + (##car _e125738125769_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125755125790_)) - (let ((_e125759125795_ + (gx#stx-pair? _hd125737125772_)) + (let ((_e125741125777_ (let () (declare (not safe)) - (gx#stx-e _hd125755125790_)))) - (let ((_tl125757125800_ + (gx#stx-e _hd125737125772_)))) + (let ((_tl125739125782_ (let () (declare (not safe)) - (##cdr _e125759125795_))) - (_hd125758125798_ + (##cdr _e125741125777_))) + (_hd125740125780_ (let () (declare (not safe)) - (##car _e125759125795_)))) + (##car _e125741125777_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125758125798_)) + (gx#identifier? _hd125740125780_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125758125798_)) + _hd125740125780_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125757125800_)) - (let ((_e125762125803_ + _tl125739125782_)) + (let ((_e125744125785_ (let () (declare (not safe)) (gx#stx-e - _tl125757125800_)))) - (let ((_tl125760125808_ + _tl125739125782_)))) + (let ((_tl125742125790_ (let () (declare (not safe)) - (##cdr _e125762125803_))) - (_hd125761125806_ + (##cdr _e125744125785_))) + (_hd125743125788_ (let () (declare (not safe)) - (##car _e125762125803_)))) + (##car _e125744125785_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125760125808_)) - (___kont129291129292_ - _tl125754125792_ - _hd125761125806_) - (___kont129293129294_)))) - (___kont129293129294_)) - (___kont129293129294_)) - (___kont129293129294_)))) - (___kont129293129294_)))) - (___kont129293129294_)))) - (___kont129293129294_)))))) + _tl125742125790_)) + (___kont129273129274_ + _tl125736125774_ + _hd125743125788_) + (___kont129275129276_)))) + (___kont129275129276_)) + (___kont129275129276_)) + (___kont129275129276_)))) + (___kont129275129276_)))) + (___kont129275129276_)))) + (___kont129275129276_)))))) (define gxc#basic-expression-type-ref% - (lambda (_self125691_ _stx125692_) - (let* ((_g125694125707_ - (lambda (_g125695125704_) + (lambda (_self125673_ _stx125674_) + (let* ((_g125676125689_ + (lambda (_g125677125686_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g125695125704_)))) - (_g125693125740_ - (lambda (_g125695125710_) + _g125677125686_)))) + (_g125675125722_ + (lambda (_g125677125692_) (if (let () (declare (not safe)) - (gx#stx-pair? _g125695125710_)) - (let ((_e125699125712_ + (gx#stx-pair? _g125677125692_)) + (let ((_e125681125694_ (let () (declare (not safe)) - (gx#stx-e _g125695125710_)))) - (let ((_hd125698125715_ + (gx#stx-e _g125677125692_)))) + (let ((_hd125680125697_ (let () (declare (not safe)) - (##car _e125699125712_))) - (_tl125697125717_ + (##car _e125681125694_))) + (_tl125679125699_ (let () (declare (not safe)) - (##cdr _e125699125712_)))) + (##cdr _e125681125694_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125697125717_)) - (let ((_e125702125720_ + (gx#stx-pair? _tl125679125699_)) + (let ((_e125684125702_ (let () (declare (not safe)) - (gx#stx-e _tl125697125717_)))) - (let ((_hd125701125723_ + (gx#stx-e _tl125679125699_)))) + (let ((_hd125683125705_ (let () (declare (not safe)) - (##car _e125702125720_))) - (_tl125700125725_ + (##car _e125684125702_))) + (_tl125682125707_ (let () (declare (not safe)) - (##cdr _e125702125720_)))) + (##cdr _e125684125702_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125700125725_)) - ((lambda (_L125728_) - (let ((__tmp130719 + (gx#stx-null? _tl125682125707_)) + ((lambda (_L125710_) + (let ((__tmp130701 (let () (declare (not safe)) (gxc#identifier-symbol - _L125728_)))) + _L125710_)))) (declare (not safe)) (gxc#optimizer-lookup-type - __tmp130719))) - _hd125701125723_) + __tmp130701))) + _hd125683125705_) (let () (declare (not safe)) - (_g125694125707_ _g125695125710_))))) + (_g125676125689_ _g125677125692_))))) (let () (declare (not safe)) - (_g125694125707_ _g125695125710_))))) + (_g125676125689_ _g125677125692_))))) (let () (declare (not safe)) - (_g125694125707_ _g125695125710_)))))) + (_g125676125689_ _g125677125692_)))))) (declare (not safe)) - (_g125693125740_ _stx125692_)))) + (_g125675125722_ _stx125674_)))) (define gxc#dispatch-lambda-form? - (lambda (_form124925_) - (let* ((___stx129327129328_ _form124925_) - (_g124930125087_ + (lambda (_form124907_) + (let* ((___stx129309129310_ _form124907_) + (_g124912125069_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129327129328_))))) - (let ((___kont129329129330_ - (lambda (_L125611_ _L125612_ _L125613_) '#t)) - (___kont129335129336_ - (lambda (_L125399_ - _L125400_ - _L125401_ - _L125402_ - _L125403_ - _L125404_) + ___stx129309129310_))))) + (let ((___kont129311129312_ + (lambda (_L125593_ _L125594_ _L125595_) '#t)) + (___kont129317129318_ + (lambda (_L125381_ + _L125382_ + _L125383_ + _L125384_ + _L125385_ + _L125386_) '#t)) - (___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_)) + (___kont129323129324_ + (lambda (_L125177_ _L125178_ _L125179_ _L125180_) '#t)) + (___kont129325129326_ (lambda () '#f))) + (let* ((___match129450129451_ + (lambda (_e125031125081_ + _hd125030125084_ + _tl125029125086_ + _e125034125089_ + _hd125033125092_ + _tl125032125094_ + _e125037125097_ + _hd125036125100_ + _tl125035125102_ + _e125040125105_ + _hd125039125108_ + _tl125038125110_ + _e125043125113_ + _hd125042125116_ + _tl125041125118_ + _e125046125121_ + _hd125045125124_ + _tl125044125126_ + _e125049125129_ + _hd125048125132_ + _tl125047125134_ + _e125052125137_ + _hd125051125140_ + _tl125050125142_ + _e125055125145_ + _hd125054125148_ + _tl125053125150_ + _e125058125153_ + _hd125057125156_ + _tl125056125158_ + _e125061125161_ + _hd125060125164_ + _tl125059125166_ + _e125064125169_ + _hd125063125172_ + _tl125062125174_) + (let ((_L125177_ _hd125063125172_) + (_L125178_ _hd125054125148_) + (_L125179_ _hd125045125124_) + (_L125180_ _hd125030125084_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L125198_)) + (gx#identifier? _L125180_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L125197_ 'apply)) + (gxc#runtime-identifier=? _L125179_ 'apply)) (let () (declare (not safe)) - (gx#free-identifier=? _L125198_ _L125195_)) - (let ((__tmp130720 + (gx#free-identifier=? _L125180_ _L125177_)) + (let ((__tmp130702 (let () (declare (not safe)) (gx#free-identifier=? - _L125196_ - _L125198_)))) + _L125178_ + _L125180_)))) (declare (not safe)) - (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_) + (not __tmp130702))) + (___kont129323129324_ + _L125177_ + _L125178_ + _L125179_ + _L125180_) + (___kont129325129326_))))) + (___match129422129423_ + (lambda (_e125031125081_ + _hd125030125084_ + _tl125029125086_ + _e125034125089_ + _hd125033125092_ + _tl125032125094_ + _e125037125097_ + _hd125036125100_ + _tl125035125102_ + _e125040125105_ + _hd125039125108_ + _tl125038125110_ + _e125043125113_ + _hd125042125116_ + _tl125041125118_ + _e125046125121_ + _hd125045125124_ + _tl125044125126_ + _e125049125129_ + _hd125048125132_ + _tl125047125134_ + _e125052125137_ + _hd125051125140_ + _tl125050125142_ + _e125055125145_ + _hd125054125148_ + _tl125053125150_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125065125152_)) - (let ((_e125076125171_ + (gx#stx-pair? _tl125047125134_)) + (let ((_e125058125153_ (let () (declare (not safe)) - (gx#stx-e _tl125065125152_)))) - (let ((_tl125074125176_ + (gx#stx-e _tl125047125134_)))) + (let ((_tl125056125158_ (let () (declare (not safe)) - (##cdr _e125076125171_))) - (_hd125075125174_ + (##cdr _e125058125153_))) + (_hd125057125156_ (let () (declare (not safe)) - (##car _e125076125171_)))) + (##car _e125058125153_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125075125174_)) - (let ((_e125079125179_ + (gx#stx-pair? _hd125057125156_)) + (let ((_e125061125161_ (let () (declare (not safe)) - (gx#stx-e _hd125075125174_)))) - (let ((_tl125077125184_ + (gx#stx-e _hd125057125156_)))) + (let ((_tl125059125166_ (let () (declare (not safe)) - (##cdr _e125079125179_))) - (_hd125078125182_ + (##cdr _e125061125161_))) + (_hd125060125164_ (let () (declare (not safe)) - (##car _e125079125179_)))) + (##car _e125061125161_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125078125182_)) + (gx#identifier? _hd125060125164_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125078125182_)) + _hd125060125164_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125077125184_)) - (let ((_e125082125187_ + _tl125059125166_)) + (let ((_e125064125169_ (let () (declare (not safe)) (gx#stx-e - _tl125077125184_)))) - (let ((_tl125080125192_ + _tl125059125166_)))) + (let ((_tl125062125174_ (let () (declare (not safe)) - (##cdr _e125082125187_))) - (_hd125081125190_ + (##cdr _e125064125169_))) + (_hd125063125172_ (let () (declare (not safe)) - (##car _e125082125187_)))) + (##car _e125064125169_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125080125192_)) + _tl125062125174_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl125074125176_)) + (gx#stx-null? _tl125056125158_)) (if (let () (declare (not safe)) - (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_) + (gx#stx-null? _tl125032125094_)) + (___match129450129451_ + _e125031125081_ + _hd125030125084_ + _tl125029125086_ + _e125034125089_ + _hd125033125092_ + _tl125032125094_ + _e125037125097_ + _hd125036125100_ + _tl125035125102_ + _e125040125105_ + _hd125039125108_ + _tl125038125110_ + _e125043125113_ + _hd125042125116_ + _tl125041125118_ + _e125046125121_ + _hd125045125124_ + _tl125044125126_ + _e125049125129_ + _hd125048125132_ + _tl125047125134_ + _e125052125137_ + _hd125051125140_ + _tl125050125142_ + _e125055125145_ + _hd125054125148_ + _tl125053125150_ + _e125058125153_ + _hd125057125156_ + _tl125056125158_ + _e125061125161_ + _hd125060125164_ + _tl125059125166_ + _e125064125169_ + _hd125063125172_ + _tl125062125174_) + (___kont129325129326_)) + (___kont129325129326_)) + (___kont129325129326_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129325129326_)) + (___kont129325129326_)) + (___kont129325129326_)))) + (___kont129325129326_)))) + (___kont129325129326_)))) + (___match129352129353_ + (lambda (_e124967125221_ + _hd124966125224_ + _tl124965125226_ + ___splice129319129320_ + _target124968125229_ + _tl124970125231_) + (letrec ((_loop124971125234_ + (lambda (_hd124969125237_ _arg124975125239_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124987125255_)) - (let ((_e124990125260_ + (gx#stx-pair? _hd124969125237_)) + (let ((_e124972125242_ (let () (declare (not safe)) - (gx#stx-e _hd124987125255_)))) - (let ((_lp-tl124992125265_ + (gx#stx-e _hd124969125237_)))) + (let ((_lp-tl124974125247_ (let () (declare (not safe)) - (##cdr _e124990125260_))) - (_lp-hd124991125263_ + (##cdr _e124972125242_))) + (_lp-hd124973125245_ (let () (declare (not safe)) - (##car _e124990125260_)))) - (let ((__tmp130735 + (##car _e124972125242_)))) + (let ((__tmp130717 (let () (declare (not safe)) - (cons _lp-hd124991125263_ - _arg124993125257_)))) + (cons _lp-hd124973125245_ + _arg124975125239_)))) (declare (not safe)) - (_loop124989125252_ - _lp-tl124992125265_ - __tmp130735)))) - (let ((_arg124994125268_ - (reverse _arg124993125257_))) + (_loop124971125234_ + _lp-tl124974125247_ + __tmp130717)))) + (let ((_arg124976125250_ + (reverse _arg124975125239_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124983125244_)) - (let ((_e124997125271_ + (gx#stx-pair? _tl124965125226_)) + (let ((_e124979125253_ (let () (declare (not safe)) (gx#stx-e - _tl124983125244_)))) - (let ((_tl124995125276_ + _tl124965125226_)))) + (let ((_tl124977125258_ (let () (declare (not safe)) - (##cdr _e124997125271_))) - (_hd124996125274_ + (##cdr _e124979125253_))) + (_hd124978125256_ (let () (declare (not safe)) - (##car _e124997125271_)))) + (##car _e124979125253_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124996125274_)) - (let ((_e125000125279_ + _hd124978125256_)) + (let ((_e124982125261_ (let () (declare (not safe)) (gx#stx-e - _hd124996125274_)))) - (let ((_tl124998125284_ + _hd124978125256_)))) + (let ((_tl124980125266_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e125000125279_))) - (_hd124999125282_ - (let () (declare (not safe)) (##car _e125000125279_)))) + (##cdr _e124982125261_))) + (_hd124981125264_ + (let () (declare (not safe)) (##car _e124982125261_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124999125282_)) + (gx#identifier? _hd124981125264_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd124999125282_)) + (gx#stx-eq? '%#call _hd124981125264_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124998125284_)) - (let ((_e125003125287_ + (gx#stx-pair? _tl124980125266_)) + (let ((_e124985125269_ (let () (declare (not safe)) - (gx#stx-e _tl124998125284_)))) - (let ((_tl125001125292_ + (gx#stx-e _tl124980125266_)))) + (let ((_tl124983125274_ (let () (declare (not safe)) - (##cdr _e125003125287_))) - (_hd125002125290_ + (##cdr _e124985125269_))) + (_hd124984125272_ (let () (declare (not safe)) - (##car _e125003125287_)))) + (##car _e124985125269_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125002125290_)) - (let ((_e125006125295_ + (gx#stx-pair? _hd124984125272_)) + (let ((_e124988125277_ (let () (declare (not safe)) - (gx#stx-e _hd125002125290_)))) - (let ((_tl125004125300_ + (gx#stx-e _hd124984125272_)))) + (let ((_tl124986125282_ (let () (declare (not safe)) - (##cdr _e125006125295_))) - (_hd125005125298_ + (##cdr _e124988125277_))) + (_hd124987125280_ (let () (declare (not safe)) - (##car _e125006125295_)))) + (##car _e124988125277_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd125005125298_)) + _hd124987125280_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125005125298_)) + _hd124987125280_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125004125300_)) - (let ((_e125009125303_ + _tl124986125282_)) + (let ((_e124991125285_ (let () (declare (not safe)) (gx#stx-e - _tl125004125300_)))) - (let ((_tl125007125308_ + _tl124986125282_)))) + (let ((_tl124989125290_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e125009125303_))) - (_hd125008125306_ - (let () (declare (not safe)) (##car _e125009125303_)))) + (##cdr _e124991125285_))) + (_hd124990125288_ + (let () (declare (not safe)) (##car _e124991125285_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125007125308_)) + (gx#stx-null? _tl124989125290_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125001125292_)) - (let ((_e125012125311_ + (gx#stx-pair? _tl124983125274_)) + (let ((_e124994125293_ (let () (declare (not safe)) - (gx#stx-e _tl125001125292_)))) - (let ((_tl125010125316_ + (gx#stx-e _tl124983125274_)))) + (let ((_tl124992125298_ (let () (declare (not safe)) - (##cdr _e125012125311_))) - (_hd125011125314_ + (##cdr _e124994125293_))) + (_hd124993125296_ (let () (declare (not safe)) - (##car _e125012125311_)))) + (##car _e124994125293_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125011125314_)) - (let ((_e125015125319_ + (gx#stx-pair? _hd124993125296_)) + (let ((_e124997125301_ (let () (declare (not safe)) - (gx#stx-e _hd125011125314_)))) - (let ((_tl125013125324_ + (gx#stx-e _hd124993125296_)))) + (let ((_tl124995125306_ (let () (declare (not safe)) - (##cdr _e125015125319_))) - (_hd125014125322_ + (##cdr _e124997125301_))) + (_hd124996125304_ (let () (declare (not safe)) - (##car _e125015125319_)))) + (##car _e124997125301_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125014125322_)) + (gx#identifier? _hd124996125304_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125014125322_)) + _hd124996125304_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125013125324_)) - (let ((_e125018125327_ + _tl124995125306_)) + (let ((_e125000125309_ (let () (declare (not safe)) (gx#stx-e - _tl125013125324_)))) - (let ((_tl125016125332_ + _tl124995125306_)))) + (let ((_tl124998125314_ (let () (declare (not safe)) - (##cdr _e125018125327_))) - (_hd125017125330_ + (##cdr _e125000125309_))) + (_hd124999125312_ (let () (declare (not safe)) - (##car _e125018125327_)))) + (##car _e125000125309_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125016125332_)) + _tl124998125314_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl125010125316_)) + _tl124992125298_)) (if (fx>= (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-length _tl125010125316_)) + (gx#stx-length _tl124992125298_)) '1) - (let ((___splice129339129340_ + (let ((___splice129321129322_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl125010125316_ + _tl124992125298_ '1)))) - (let ((_tl125021125337_ + (let ((_tl125003125319_ (let () (declare (not safe)) - (##vector-ref ___splice129339129340_ '1))) - (_target125019125335_ + (##vector-ref ___splice129321129322_ '1))) + (_target125001125317_ (let () (declare (not safe)) - (##vector-ref ___splice129339129340_ '0)))) + (##vector-ref ___splice129321129322_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125021125337_)) - (let ((_e125030125340_ + (gx#stx-pair? _tl125003125319_)) + (let ((_e125012125322_ (let () (declare (not safe)) - (gx#stx-e _tl125021125337_)))) - (let ((_tl125028125345_ + (gx#stx-e _tl125003125319_)))) + (let ((_tl125010125327_ (let () (declare (not safe)) - (##cdr _e125030125340_))) - (_hd125029125343_ + (##cdr _e125012125322_))) + (_hd125011125325_ (let () (declare (not safe)) - (##car _e125030125340_)))) + (##car _e125012125322_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125029125343_)) - (let ((_e125033125348_ + (gx#stx-pair? _hd125011125325_)) + (let ((_e125015125330_ (let () (declare (not safe)) - (gx#stx-e _hd125029125343_)))) - (let ((_tl125031125353_ + (gx#stx-e _hd125011125325_)))) + (let ((_tl125013125335_ (let () (declare (not safe)) - (##cdr _e125033125348_))) - (_hd125032125351_ + (##cdr _e125015125330_))) + (_hd125014125333_ (let () (declare (not safe)) - (##car _e125033125348_)))) + (##car _e125015125330_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd125032125351_)) + _hd125014125333_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd125032125351_)) + _hd125014125333_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125031125353_)) - (let ((_e125036125356_ + _tl125013125335_)) + (let ((_e125018125338_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl125031125353_)))) - (let ((_tl125034125361_ - (let () (declare (not safe)) (##cdr _e125036125356_))) - (_hd125035125359_ + (gx#stx-e _tl125013125335_)))) + (let ((_tl125016125343_ + (let () (declare (not safe)) (##cdr _e125018125338_))) + (_hd125017125341_ (let () (declare (not safe)) - (##car _e125036125356_)))) + (##car _e125018125338_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125034125361_)) + (gx#stx-null? _tl125016125343_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl125028125345_)) - (letrec ((_loop125022125364_ - (lambda (_hd125020125367_ - _xarg125026125369_) + (gx#stx-null? _tl125010125327_)) + (letrec ((_loop125004125346_ + (lambda (_hd125002125349_ + _xarg125008125351_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125020125367_)) - (let ((_e125023125372_ + (gx#stx-pair? _hd125002125349_)) + (let ((_e125005125354_ (let () (declare (not safe)) (gx#stx-e - _hd125020125367_)))) - (let ((_lp-tl125025125377_ + _hd125002125349_)))) + (let ((_lp-tl125007125359_ (let () (declare (not safe)) - (##cdr _e125023125372_))) - (_lp-hd125024125375_ + (##cdr _e125005125354_))) + (_lp-hd125006125357_ (let () (declare (not safe)) - (##car _e125023125372_)))) + (##car _e125005125354_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd125024125375_)) - (let ((_e125039125380_ + _lp-hd125006125357_)) + (let ((_e125021125362_ (let () (declare (not safe)) (gx#stx-e - _lp-hd125024125375_)))) - (let ((_tl125037125385_ + _lp-hd125006125357_)))) + (let ((_tl125019125367_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e125039125380_))) - (_hd125038125383_ - (let () (declare (not safe)) (##car _e125039125380_)))) + (##cdr _e125021125362_))) + (_hd125020125365_ + (let () (declare (not safe)) (##car _e125021125362_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125038125383_)) + (gx#identifier? _hd125020125365_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd125038125383_)) + (gx#stx-eq? '%#ref _hd125020125365_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125037125385_)) - (let ((_e125042125388_ + (gx#stx-pair? _tl125019125367_)) + (let ((_e125024125370_ (let () (declare (not safe)) - (gx#stx-e _tl125037125385_)))) - (let ((_tl125040125393_ + (gx#stx-e _tl125019125367_)))) + (let ((_tl125022125375_ (let () (declare (not safe)) - (##cdr _e125042125388_))) - (_hd125041125391_ + (##cdr _e125024125370_))) + (_hd125023125373_ (let () (declare (not safe)) - (##car _e125042125388_)))) + (##car _e125024125370_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125040125393_)) - (let ((__tmp130734 + (gx#stx-null? _tl125022125375_)) + (let ((__tmp130716 (let () (declare (not safe)) - (cons _hd125041125391_ - _xarg125026125369_)))) + (cons _hd125023125373_ + _xarg125008125351_)))) (declare (not safe)) - (_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_))) + (_loop125004125346_ + _lp-tl125007125359_ + __tmp130716)) + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_)))) + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_)) + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_)) + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_)))) + (let ((_xarg125009125378_ + (reverse _xarg125008125351_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124995125276_)) - (let ((_L125399_ - _hd125035125359_) - (_L125400_ - _xarg125027125396_) - (_L125401_ - _hd125017125330_) - (_L125402_ - _hd125008125306_) - (_L125403_ - _tl124988125249_) - (_L125404_ - _arg124994125268_)) - (if (and (let ((__tmp130732 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130733 - (lambda (_g125447125450_ _g125448125452_) + _tl124977125258_)) + (let ((_L125381_ + _hd125017125341_) + (_L125382_ + _xarg125009125378_) + (_L125383_ + _hd124999125312_) + (_L125384_ + _hd124990125288_) + (_L125385_ + _tl124970125231_) + (_L125386_ + _arg124976125250_)) + (if (and (let ((__tmp130714 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp130715 + (lambda (_g125429125432_ _g125430125434_) (let () (declare (not safe)) - (cons _g125447125450_ - _g125448125452_))))) + (cons _g125429125432_ + _g125430125434_))))) (declare (not safe)) - (foldr1 __tmp130733 '() _L125404_)))) + (foldr1 __tmp130715 '() _L125386_)))) (declare (not safe)) - (gx#identifier-list? __tmp130732)) - (let () (declare (not safe)) (gx#identifier? _L125403_)) + (gx#identifier-list? __tmp130714)) + (let () (declare (not safe)) (gx#identifier? _L125385_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L125402_ 'apply)) - (fx= (length (let ((__tmp130730 - (lambda (_g125454125457_ - _g125455125459_) + (gxc#runtime-identifier=? _L125384_ 'apply)) + (fx= (length (let ((__tmp130712 + (lambda (_g125436125439_ + _g125437125441_) (let () (declare (not safe)) - (cons _g125454125457_ - _g125455125459_))))) + (cons _g125436125439_ + _g125437125441_))))) (declare (not safe)) - (foldr1 __tmp130730 '() _L125404_))) - (length (let ((__tmp130731 - (lambda (_g125461125464_ - _g125462125466_) + (foldr1 __tmp130712 '() _L125386_))) + (length (let ((__tmp130713 + (lambda (_g125443125446_ + _g125444125448_) (let () (declare (not safe)) - (cons _g125461125464_ - _g125462125466_))))) + (cons _g125443125446_ + _g125444125448_))))) (declare (not safe)) - (foldr1 __tmp130731 '() _L125400_)))) - (let ((__tmp130728 - (let ((__tmp130729 - (lambda (_g125468125471_ _g125469125473_) + (foldr1 __tmp130713 '() _L125382_)))) + (let ((__tmp130710 + (let ((__tmp130711 + (lambda (_g125450125453_ _g125451125455_) (let () (declare (not safe)) - (cons _g125468125471_ - _g125469125473_))))) + (cons _g125450125453_ + _g125451125455_))))) (declare (not safe)) - (foldr1 __tmp130729 '() _L125404_))) - (__tmp130726 - (let ((__tmp130727 - (lambda (_g125475125478_ _g125476125480_) + (foldr1 __tmp130711 '() _L125386_))) + (__tmp130708 + (let ((__tmp130709 + (lambda (_g125457125460_ _g125458125462_) (let () (declare (not safe)) - (cons _g125475125478_ - _g125476125480_))))) + (cons _g125457125460_ + _g125458125462_))))) (declare (not safe)) - (foldr1 __tmp130727 '() _L125400_)))) + (foldr1 __tmp130709 '() _L125382_)))) (declare (not safe)) - (andmap2 gx#free-identifier=? __tmp130728 __tmp130726)) + (andmap2 gx#free-identifier=? __tmp130710 __tmp130708)) (let () (declare (not safe)) - (gx#free-identifier=? _L125403_ _L125399_)) - (let ((__tmp130721 - (let ((__tmp130725 - (lambda (_g125482125484_) + (gx#free-identifier=? _L125385_ _L125381_)) + (let ((__tmp130703 + (let ((__tmp130707 + (lambda (_g125464125466_) (let () (declare (not safe)) (gx#free-identifier=? - _g125482125484_ - _L125401_)))) - (__tmp130722 - (let ((__tmp130724 - (lambda (_g125486125489_ - _g125487125491_) + _g125464125466_ + _L125383_)))) + (__tmp130704 + (let ((__tmp130706 + (lambda (_g125468125471_ + _g125469125473_) (let () (declare (not safe)) - (cons _g125486125489_ - _g125487125491_)))) - (__tmp130723 + (cons _g125468125471_ + _g125469125473_)))) + (__tmp130705 (let () (declare (not safe)) - (cons _L125403_ '())))) + (cons _L125385_ '())))) (declare (not safe)) - (foldr1 __tmp130724 - __tmp130723 - _L125404_)))) + (foldr1 __tmp130706 + __tmp130705 + _L125386_)))) (declare (not safe)) - (find __tmp130725 __tmp130722)))) + (find __tmp130707 __tmp130704)))) (declare (not safe)) - (not __tmp130721))) - (___kont129335129336_ - _L125399_ - _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_))))))) + (not __tmp130703))) + (___kont129317129318_ + _L125381_ + _L125382_ + _L125383_ + _L125384_ + _L125385_ + _L125386_) + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_))))))) (let () (declare (not safe)) - (_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_))))))) + (_loop125004125346_ _target125001125317_ '()))) + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_)) + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_)))) + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_)) + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_)))) + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_)))) + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_)))) + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_)) + (___match129422129423_ + _e124967125221_ + _hd124966125224_ + _tl124965125226_ + _e124979125253_ + _hd124978125256_ + _tl124977125258_ + _e124982125261_ + _hd124981125264_ + _tl124980125266_ + _e124985125269_ + _hd124984125272_ + _tl124983125274_ + _e124988125277_ + _hd124987125280_ + _tl124986125282_ + _e124991125285_ + _hd124990125288_ + _tl124989125290_ + _e124994125293_ + _hd124993125296_ + _tl124992125298_ + _e124997125301_ + _hd124996125304_ + _tl124995125306_ + _e125000125309_ + _hd124999125312_ + _tl124998125314_)) + (___kont129325129326_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129325129326_)) + (___kont129325129326_)) + (___kont129325129326_)))) + (___kont129325129326_)))) + (___kont129325129326_)) + (___kont129325129326_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129325129326_)) + (___kont129325129326_)) + (___kont129325129326_)))) + (___kont129325129326_)))) + (___kont129325129326_)) + (___kont129325129326_)) + (___kont129325129326_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129325129326_)))) + (___kont129325129326_))))))) (let () (declare (not safe)) - (_loop124989125252_ _target124986125247_ '()))))) - (___match129358129359_ - (lambda (_e124937125499_ - _hd124936125502_ - _tl124935125504_ - ___splice129331129332_ - _target124938125507_ - _tl124940125509_) - (letrec ((_loop124941125512_ - (lambda (_hd124939125515_ _arg124945125517_) + (_loop124971125234_ _target124968125229_ '()))))) + (___match129340129341_ + (lambda (_e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_) + (letrec ((_loop124923125494_ + (lambda (_hd124921125497_ _arg124927125499_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124939125515_)) - (let ((_e124942125520_ + (gx#stx-pair? _hd124921125497_)) + (let ((_e124924125502_ (let () (declare (not safe)) - (gx#stx-e _hd124939125515_)))) - (let ((_lp-tl124944125525_ + (gx#stx-e _hd124921125497_)))) + (let ((_lp-tl124926125507_ (let () (declare (not safe)) - (##cdr _e124942125520_))) - (_lp-hd124943125523_ + (##cdr _e124924125502_))) + (_lp-hd124925125505_ (let () (declare (not safe)) - (##car _e124942125520_)))) - (let ((__tmp130749 + (##car _e124924125502_)))) + (let ((__tmp130731 (let () (declare (not safe)) - (cons _lp-hd124943125523_ - _arg124945125517_)))) + (cons _lp-hd124925125505_ + _arg124927125499_)))) (declare (not safe)) - (_loop124941125512_ - _lp-tl124944125525_ - __tmp130749)))) - (let ((_arg124946125528_ - (reverse _arg124945125517_))) + (_loop124923125494_ + _lp-tl124926125507_ + __tmp130731)))) + (let ((_arg124928125510_ + (reverse _arg124927125499_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124935125504_)) - (let ((_e124949125531_ + (gx#stx-pair? _tl124917125486_)) + (let ((_e124931125513_ (let () (declare (not safe)) (gx#stx-e - _tl124935125504_)))) - (let ((_tl124947125536_ + _tl124917125486_)))) + (let ((_tl124929125518_ (let () (declare (not safe)) - (##cdr _e124949125531_))) - (_hd124948125534_ + (##cdr _e124931125513_))) + (_hd124930125516_ (let () (declare (not safe)) - (##car _e124949125531_)))) + (##car _e124931125513_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124948125534_)) - (let ((_e124952125539_ + _hd124930125516_)) + (let ((_e124934125521_ (let () (declare (not safe)) (gx#stx-e - _hd124948125534_)))) - (let ((_tl124950125544_ + _hd124930125516_)))) + (let ((_tl124932125526_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e124952125539_))) - (_hd124951125542_ - (let () (declare (not safe)) (##car _e124952125539_)))) + (##cdr _e124934125521_))) + (_hd124933125524_ + (let () (declare (not safe)) (##car _e124934125521_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124951125542_)) + (gx#identifier? _hd124933125524_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd124951125542_)) + (gx#stx-eq? '%#call _hd124933125524_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124950125544_)) - (let ((_e124955125547_ + (gx#stx-pair? _tl124932125526_)) + (let ((_e124937125529_ (let () (declare (not safe)) - (gx#stx-e _tl124950125544_)))) - (let ((_tl124953125552_ + (gx#stx-e _tl124932125526_)))) + (let ((_tl124935125534_ (let () (declare (not safe)) - (##cdr _e124955125547_))) - (_hd124954125550_ + (##cdr _e124937125529_))) + (_hd124936125532_ (let () (declare (not safe)) - (##car _e124955125547_)))) + (##car _e124937125529_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124954125550_)) - (let ((_e124958125555_ + (gx#stx-pair? _hd124936125532_)) + (let ((_e124940125537_ (let () (declare (not safe)) - (gx#stx-e _hd124954125550_)))) - (let ((_tl124956125560_ + (gx#stx-e _hd124936125532_)))) + (let ((_tl124938125542_ (let () (declare (not safe)) - (##cdr _e124958125555_))) - (_hd124957125558_ + (##cdr _e124940125537_))) + (_hd124939125540_ (let () (declare (not safe)) - (##car _e124958125555_)))) + (##car _e124940125537_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124957125558_)) + _hd124939125540_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd124957125558_)) + _hd124939125540_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124956125560_)) - (let ((_e124961125563_ + _tl124938125542_)) + (let ((_e124943125545_ (let () (declare (not safe)) (gx#stx-e - _tl124956125560_)))) - (let ((_tl124959125568_ + _tl124938125542_)))) + (let ((_tl124941125550_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e124961125563_))) - (_hd124960125566_ - (let () (declare (not safe)) (##car _e124961125563_)))) + (##cdr _e124943125545_))) + (_hd124942125548_ + (let () (declare (not safe)) (##car _e124943125545_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124959125568_)) + (gx#stx-null? _tl124941125550_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl124953125552_)) - (let ((___splice129333129334_ + (gx#stx-pair/null? _tl124935125534_)) + (let ((___splice129315129316_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl124953125552_ + _tl124935125534_ '0)))) - (let ((_tl124964125573_ + (let ((_tl124946125555_ (let () (declare (not safe)) - (##vector-ref ___splice129333129334_ '1))) - (_target124962125571_ + (##vector-ref ___splice129315129316_ '1))) + (_target124944125553_ (let () (declare (not safe)) - (##vector-ref ___splice129333129334_ '0)))) + (##vector-ref ___splice129315129316_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124964125573_)) - (letrec ((_loop124965125576_ - (lambda (_hd124963125579_ - _xarg124969125581_) + (gx#stx-null? _tl124946125555_)) + (letrec ((_loop124947125558_ + (lambda (_hd124945125561_ + _xarg124951125563_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124963125579_)) - (let ((_e124966125584_ + _hd124945125561_)) + (let ((_e124948125566_ (let () (declare (not safe)) (gx#stx-e - _hd124963125579_)))) - (let ((_lp-tl124968125589_ + _hd124945125561_)))) + (let ((_lp-tl124950125571_ (let () (declare (not safe)) - (##cdr _e124966125584_))) - (_lp-hd124967125587_ + (##cdr _e124948125566_))) + (_lp-hd124949125569_ (let () (declare (not safe)) - (##car _e124966125584_)))) + (##car _e124948125566_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd124967125587_)) - (let ((_e124973125592_ + _lp-hd124949125569_)) + (let ((_e124955125574_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd124967125587_)))) - (let ((_tl124971125597_ - (let () (declare (not safe)) (##cdr _e124973125592_))) - (_hd124972125595_ + (gx#stx-e _lp-hd124949125569_)))) + (let ((_tl124953125579_ + (let () (declare (not safe)) (##cdr _e124955125574_))) + (_hd124954125577_ (let () (declare (not safe)) - (##car _e124973125592_)))) + (##car _e124955125574_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124972125595_)) + (gx#identifier? _hd124954125577_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124972125595_)) + (gx#stx-eq? '%#ref _hd124954125577_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124971125597_)) - (let ((_e124976125600_ + (gx#stx-pair? _tl124953125579_)) + (let ((_e124958125582_ (let () (declare (not safe)) - (gx#stx-e _tl124971125597_)))) - (let ((_tl124974125605_ + (gx#stx-e _tl124953125579_)))) + (let ((_tl124956125587_ (let () (declare (not safe)) - (##cdr _e124976125600_))) - (_hd124975125603_ + (##cdr _e124958125582_))) + (_hd124957125585_ (let () (declare (not safe)) - (##car _e124976125600_)))) + (##car _e124958125582_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124974125605_)) - (let ((__tmp130748 + (gx#stx-null? _tl124956125587_)) + (let ((__tmp130730 (let () (declare (not safe)) - (cons _hd124975125603_ - _xarg124969125581_)))) + (cons _hd124957125585_ + _xarg124951125563_)))) (declare (not safe)) - (_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_))) + (_loop124947125558_ + _lp-tl124950125571_ + __tmp130730)) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)))) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)))) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg124952125590_ + (reverse _xarg124951125563_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124947125536_)) - (let ((_L125611_ - _xarg124970125608_) - (_L125612_ - _hd124960125566_) - (_L125613_ - _arg124946125528_)) - (if (and (let ((__tmp130746 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130747 - (lambda (_g125641125644_ - _g125642125646_) + _tl124929125518_)) + (let ((_L125593_ + _xarg124952125590_) + (_L125594_ + _hd124942125548_) + (_L125595_ + _arg124928125510_)) + (if (and (let ((__tmp130728 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp130729 + (lambda (_g125623125626_ + _g125624125628_) (let () (declare (not safe)) - (cons _g125641125644_ - _g125642125646_))))) + (cons _g125623125626_ + _g125624125628_))))) (declare (not safe)) - (foldr1 __tmp130747 '() _L125613_)))) + (foldr1 __tmp130729 '() _L125595_)))) (declare (not safe)) - (gx#identifier-list? __tmp130746)) - (fx= (length (let ((__tmp130744 - (lambda (_g125648125651_ - _g125649125653_) + (gx#identifier-list? __tmp130728)) + (fx= (length (let ((__tmp130726 + (lambda (_g125630125633_ + _g125631125635_) (let () (declare (not safe)) - (cons _g125648125651_ - _g125649125653_))))) + (cons _g125630125633_ + _g125631125635_))))) (declare (not safe)) - (foldr1 __tmp130744 '() _L125613_))) - (length (let ((__tmp130745 - (lambda (_g125655125658_ - _g125656125660_) + (foldr1 __tmp130726 '() _L125595_))) + (length (let ((__tmp130727 + (lambda (_g125637125640_ + _g125638125642_) (let () (declare (not safe)) - (cons _g125655125658_ - _g125656125660_))))) + (cons _g125637125640_ + _g125638125642_))))) (declare (not safe)) - (foldr1 __tmp130745 '() _L125611_)))) - (let ((__tmp130742 - (let ((__tmp130743 - (lambda (_g125662125665_ - _g125663125667_) + (foldr1 __tmp130727 '() _L125593_)))) + (let ((__tmp130724 + (let ((__tmp130725 + (lambda (_g125644125647_ + _g125645125649_) (let () (declare (not safe)) - (cons _g125662125665_ - _g125663125667_))))) + (cons _g125644125647_ + _g125645125649_))))) (declare (not safe)) - (foldr1 __tmp130743 '() _L125613_))) - (__tmp130740 - (let ((__tmp130741 - (lambda (_g125669125672_ - _g125670125674_) + (foldr1 __tmp130725 '() _L125595_))) + (__tmp130722 + (let ((__tmp130723 + (lambda (_g125651125654_ + _g125652125656_) (let () (declare (not safe)) - (cons _g125669125672_ - _g125670125674_))))) + (cons _g125651125654_ + _g125652125656_))))) (declare (not safe)) - (foldr1 __tmp130741 '() _L125611_)))) + (foldr1 __tmp130723 '() _L125593_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp130742 - __tmp130740)) - (let ((__tmp130736 - (let ((__tmp130739 - (lambda (_g125676125678_) + __tmp130724 + __tmp130722)) + (let ((__tmp130718 + (let ((__tmp130721 + (lambda (_g125658125660_) (let () (declare (not safe)) (gx#free-identifier=? - _g125676125678_ - _L125612_)))) - (__tmp130737 - (let ((__tmp130738 - (lambda (_g125680125683_ - _g125681125685_) + _g125658125660_ + _L125594_)))) + (__tmp130719 + (let ((__tmp130720 + (lambda (_g125662125665_ + _g125663125667_) (let () (declare (not safe)) - (cons _g125680125683_ - _g125681125685_))))) + (cons _g125662125665_ + _g125663125667_))))) (declare (not safe)) - (foldr1 __tmp130738 '() _L125613_)))) + (foldr1 __tmp130720 '() _L125595_)))) (declare (not safe)) - (find __tmp130739 __tmp130737)))) + (find __tmp130721 __tmp130719)))) (declare (not safe)) - (not __tmp130736))) - (___kont129329129330_ _L125611_ _L125612_ _L125613_) - (___match129370129371_ - _e124937125499_ - _hd124936125502_ - _tl124935125504_ - ___splice129331129332_ - _target124938125507_ - _tl124940125509_))) - (___match129370129371_ - _e124937125499_ - _hd124936125502_ - _tl124935125504_ - ___splice129331129332_ - _target124938125507_ - _tl124940125509_))))))) + (not __tmp130718))) + (___kont129311129312_ _L125593_ _L125594_ _L125595_) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_))) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop124965125576_ - _target124962125571_ + (_loop124947125558_ + _target124944125553_ '()))) - (___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_))))))) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)))) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)))) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)))) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)))) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_))))))) (let () (declare (not safe)) - (_loop124941125512_ _target124938125507_ '())))))) + (_loop124923125494_ _target124920125489_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx129327129328_)) - (let ((_e124937125499_ + (gx#stx-pair? ___stx129309129310_)) + (let ((_e124919125481_ (let () (declare (not safe)) - (gx#stx-e ___stx129327129328_)))) - (let ((_tl124935125504_ + (gx#stx-e ___stx129309129310_)))) + (let ((_tl124917125486_ (let () (declare (not safe)) - (##cdr _e124937125499_))) - (_hd124936125502_ + (##cdr _e124919125481_))) + (_hd124918125484_ (let () (declare (not safe)) - (##car _e124937125499_)))) + (##car _e124919125481_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd124936125502_)) - (let ((___splice129331129332_ + (gx#stx-pair/null? _hd124918125484_)) + (let ((___splice129313129314_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd124936125502_ + _hd124918125484_ '0)))) - (let ((_tl124940125509_ + (let ((_tl124922125491_ (let () (declare (not safe)) - (##vector-ref ___splice129331129332_ '1))) - (_target124938125507_ + (##vector-ref ___splice129313129314_ '1))) + (_target124920125489_ (let () (declare (not safe)) (##vector-ref - ___splice129331129332_ + ___splice129313129314_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124940125509_)) - (___match129358129359_ - _e124937125499_ - _hd124936125502_ - _tl124935125504_ - ___splice129331129332_ - _target124938125507_ - _tl124940125509_) - (___match129370129371_ - _e124937125499_ - _hd124936125502_ - _tl124935125504_ - ___splice129331129332_ - _target124938125507_ - _tl124940125509_)))) + (gx#stx-null? _tl124922125491_)) + (___match129340129341_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_) + (___match129352129353_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + ___splice129313129314_ + _target124920125489_ + _tl124922125491_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124935125504_)) - (let ((_e125052125107_ + (gx#stx-pair? _tl124917125486_)) + (let ((_e125034125089_ (let () (declare (not safe)) - (gx#stx-e _tl124935125504_)))) - (let ((_tl125050125112_ + (gx#stx-e _tl124917125486_)))) + (let ((_tl125032125094_ (let () (declare (not safe)) - (##cdr _e125052125107_))) - (_hd125051125110_ + (##cdr _e125034125089_))) + (_hd125033125092_ (let () (declare (not safe)) - (##car _e125052125107_)))) + (##car _e125034125089_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125051125110_)) - (let ((_e125055125115_ + (gx#stx-pair? _hd125033125092_)) + (let ((_e125037125097_ (let () (declare (not safe)) - (gx#stx-e _hd125051125110_)))) - (let ((_tl125053125120_ + (gx#stx-e _hd125033125092_)))) + (let ((_tl125035125102_ (let () (declare (not safe)) - (##cdr _e125055125115_))) - (_hd125054125118_ + (##cdr _e125037125097_))) + (_hd125036125100_ (let () (declare (not safe)) - (##car _e125055125115_)))) + (##car _e125037125097_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd125054125118_)) + _hd125036125100_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd125054125118_)) + _hd125036125100_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125053125120_)) - (let ((_e125058125123_ + _tl125035125102_)) + (let ((_e125040125105_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl125053125120_)))) - (let ((_tl125056125128_ - (let () (declare (not safe)) (##cdr _e125058125123_))) - (_hd125057125126_ - (let () (declare (not safe)) (##car _e125058125123_)))) + (gx#stx-e _tl125035125102_)))) + (let ((_tl125038125110_ + (let () (declare (not safe)) (##cdr _e125040125105_))) + (_hd125039125108_ + (let () (declare (not safe)) (##car _e125040125105_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd125057125126_)) - (let ((_e125061125131_ + (gx#stx-pair? _hd125039125108_)) + (let ((_e125043125113_ (let () (declare (not safe)) - (gx#stx-e _hd125057125126_)))) - (let ((_tl125059125136_ + (gx#stx-e _hd125039125108_)))) + (let ((_tl125041125118_ (let () (declare (not safe)) - (##cdr _e125061125131_))) - (_hd125060125134_ + (##cdr _e125043125113_))) + (_hd125042125116_ (let () (declare (not safe)) - (##car _e125061125131_)))) + (##car _e125043125113_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125060125134_)) + (gx#identifier? _hd125042125116_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd125060125134_)) + (gx#stx-eq? '%#ref _hd125042125116_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125059125136_)) - (let ((_e125064125139_ + (gx#stx-pair? _tl125041125118_)) + (let ((_e125046125121_ (let () (declare (not safe)) - (gx#stx-e _tl125059125136_)))) - (let ((_tl125062125144_ + (gx#stx-e _tl125041125118_)))) + (let ((_tl125044125126_ (let () (declare (not safe)) - (##cdr _e125064125139_))) - (_hd125063125142_ + (##cdr _e125046125121_))) + (_hd125045125124_ (let () (declare (not safe)) - (##car _e125064125139_)))) + (##car _e125046125121_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl125062125144_)) + _tl125044125126_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125056125128_)) - (let ((_e125067125147_ + _tl125038125110_)) + (let ((_e125049125129_ (let () (declare (not safe)) (gx#stx-e - _tl125056125128_)))) - (let ((_tl125065125152_ + _tl125038125110_)))) + (let ((_tl125047125134_ (let () (declare (not safe)) - (##cdr _e125067125147_))) - (_hd125066125150_ + (##cdr _e125049125129_))) + (_hd125048125132_ (let () (declare (not safe)) - (##car _e125067125147_)))) + (##car _e125049125129_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd125066125150_)) - (let ((_e125070125155_ + _hd125048125132_)) + (let ((_e125052125137_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd125066125150_)))) - (let ((_tl125068125160_ + (gx#stx-e _hd125048125132_)))) + (let ((_tl125050125142_ (let () (declare (not safe)) - (##cdr _e125070125155_))) - (_hd125069125158_ + (##cdr _e125052125137_))) + (_hd125051125140_ (let () (declare (not safe)) - (##car _e125070125155_)))) + (##car _e125052125137_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125069125158_)) + (gx#identifier? _hd125051125140_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd125069125158_)) + (gx#stx-eq? '%#ref _hd125051125140_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125068125160_)) - (let ((_e125073125163_ + (gx#stx-pair? _tl125050125142_)) + (let ((_e125055125145_ (let () (declare (not safe)) - (gx#stx-e _tl125068125160_)))) - (let ((_tl125071125168_ + (gx#stx-e _tl125050125142_)))) + (let ((_tl125053125150_ (let () (declare (not safe)) - (##cdr _e125073125163_))) - (_hd125072125166_ + (##cdr _e125055125145_))) + (_hd125054125148_ (let () (declare (not safe)) - (##car _e125073125163_)))) + (##car _e125055125145_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125071125168_)) + (gx#stx-null? _tl125053125150_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl125065125152_)) - (let ((_e125076125171_ + _tl125047125134_)) + (let ((_e125058125153_ (let () (declare (not safe)) (gx#stx-e - _tl125065125152_)))) - (let ((_tl125074125176_ + _tl125047125134_)))) + (let ((_tl125056125158_ (let () (declare (not safe)) - (##cdr _e125076125171_))) - (_hd125075125174_ + (##cdr _e125058125153_))) + (_hd125057125156_ (let () (declare (not safe)) - (##car _e125076125171_)))) + (##car _e125058125153_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd125075125174_)) - (let ((_e125079125179_ + _hd125057125156_)) + (let ((_e125061125161_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd125075125174_)))) - (let ((_tl125077125184_ - (let () (declare (not safe)) (##cdr _e125079125179_))) - (_hd125078125182_ - (let () (declare (not safe)) (##car _e125079125179_)))) + (gx#stx-e _hd125057125156_)))) + (let ((_tl125059125166_ + (let () (declare (not safe)) (##cdr _e125061125161_))) + (_hd125060125164_ + (let () (declare (not safe)) (##car _e125061125161_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd125078125182_)) + (gx#identifier? _hd125060125164_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd125078125182_)) + (gx#stx-eq? '%#ref _hd125060125164_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl125077125184_)) - (let ((_e125082125187_ + (gx#stx-pair? _tl125059125166_)) + (let ((_e125064125169_ (let () (declare (not safe)) - (gx#stx-e _tl125077125184_)))) - (let ((_tl125080125192_ + (gx#stx-e _tl125059125166_)))) + (let ((_tl125062125174_ (let () (declare (not safe)) - (##cdr _e125082125187_))) - (_hd125081125190_ + (##cdr _e125064125169_))) + (_hd125063125172_ (let () (declare (not safe)) - (##car _e125082125187_)))) + (##car _e125064125169_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl125080125192_)) + (gx#stx-null? _tl125062125174_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl125074125176_)) + (gx#stx-null? _tl125056125158_)) (if (let () (declare (not safe)) (gx#stx-null? - _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_))))))) + _tl125032125094_)) + (___match129450129451_ + _e124919125481_ + _hd124918125484_ + _tl124917125486_ + _e125034125089_ + _hd125033125092_ + _tl125032125094_ + _e125037125097_ + _hd125036125100_ + _tl125035125102_ + _e125040125105_ + _hd125039125108_ + _tl125038125110_ + _e125043125113_ + _hd125042125116_ + _tl125041125118_ + _e125046125121_ + _hd125045125124_ + _tl125044125126_ + _e125049125129_ + _hd125048125132_ + _tl125047125134_ + _e125052125137_ + _hd125051125140_ + _tl125050125142_ + _e125055125145_ + _hd125054125148_ + _tl125053125150_ + _e125058125153_ + _hd125057125156_ + _tl125056125158_ + _e125061125161_ + _hd125060125164_ + _tl125059125166_ + _e125064125169_ + _hd125063125172_ + _tl125062125174_) + (___kont129325129326_)) + (___kont129325129326_)) + (___kont129325129326_)))) + (___kont129325129326_)) + (___kont129325129326_)) + (___kont129325129326_)))) + (___kont129325129326_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129325129326_)) + (___kont129325129326_)))) + (___kont129325129326_)) + (___kont129325129326_)) + (___kont129325129326_)))) + (___kont129325129326_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129325129326_)) + (___kont129325129326_)))) + (___kont129325129326_)) + (___kont129325129326_)) + (___kont129325129326_)))) + (___kont129325129326_)))) + (___kont129325129326_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129325129326_)) + (___kont129325129326_)))) + (___kont129325129326_)))) + (___kont129325129326_))))) + (___kont129325129326_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_form124393_) - (let* ((___stx129471129472_ _form124393_) - (_g124397124521_ + (lambda (_form124375_) + (let* ((___stx129453129454_ _form124375_) + (_g124379124503_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129471129472_))))) - (let ((___kont129473129474_ - (lambda (_L124891_ _L124892_ _L124893_) + ___stx129453129454_))))) + (let ((___kont129455129456_ + (lambda (_L124873_ _L124874_ _L124875_) (let () (declare (not safe)) - (gxc#identifier-symbol _L124892_)))) - (___kont129479129480_ - (lambda (_L124739_ _L124740_ _L124741_ _L124742_) + (gxc#identifier-symbol _L124874_)))) + (___kont129461129462_ + (lambda (_L124721_ _L124722_ _L124723_ _L124724_) (let () (declare (not safe)) - (gxc#identifier-symbol _L124739_)))) - (___kont129483129484_ - (lambda (_L124606_ _L124607_ _L124608_) + (gxc#identifier-symbol _L124721_)))) + (___kont129465129466_ + (lambda (_L124588_ _L124589_ _L124590_) (let () (declare (not safe)) - (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_) + (gxc#identifier-symbol _L124588_))))) + (let* ((___match129562129563_ + (lambda (_e124471124508_ + _hd124470124511_ + _tl124469124513_ + _e124474124516_ + _hd124473124519_ + _tl124472124521_ + _e124477124524_ + _hd124476124527_ + _tl124475124529_ + _e124480124532_ + _hd124479124535_ + _tl124478124537_ + _e124483124540_ + _hd124482124543_ + _tl124481124545_ + _e124486124548_ + _hd124485124551_ + _tl124484124553_ + _e124489124556_ + _hd124488124559_ + _tl124487124561_ + _e124492124564_ + _hd124491124567_ + _tl124490124569_ + _e124495124572_ + _hd124494124575_ + _tl124493124577_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124505124579_)) - (let ((_e124516124598_ + (gx#stx-pair? _tl124487124561_)) + (let ((_e124498124580_ (let () (declare (not safe)) - (gx#stx-e _tl124505124579_)))) - (let ((_tl124514124603_ + (gx#stx-e _tl124487124561_)))) + (let ((_tl124496124585_ (let () (declare (not safe)) - (##cdr _e124516124598_))) - (_hd124515124601_ + (##cdr _e124498124580_))) + (_hd124497124583_ (let () (declare (not safe)) - (##car _e124516124598_)))) + (##car _e124498124580_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124514124603_)) + (gx#stx-null? _tl124496124585_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl124490124539_)) - (___kont129483129484_ - _hd124512124593_ - _hd124503124569_ - _hd124488124529_) + (gx#stx-null? _tl124472124521_)) + (___kont129465129466_ + _hd124494124575_ + _hd124485124551_ + _hd124470124511_) (let () (declare (not safe)) - (_g124397124521_))) + (_g124379124503_))) (let () (declare (not safe)) - (_g124397124521_))))) - (let () (declare (not safe)) (_g124397124521_))))) - (___match129510129511_ - (lambda (_e124450124643_ - _hd124449124646_ - _tl124448124648_ - ___splice129481129482_ - _target124451124651_ - _tl124453124653_) - (letrec ((_loop124454124656_ - (lambda (_hd124452124659_ _arg124458124661_) + (_g124379124503_))))) + (let () (declare (not safe)) (_g124379124503_))))) + (___match129492129493_ + (lambda (_e124432124625_ + _hd124431124628_ + _tl124430124630_ + ___splice129463129464_ + _target124433124633_ + _tl124435124635_) + (letrec ((_loop124436124638_ + (lambda (_hd124434124641_ _arg124440124643_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124452124659_)) - (let ((_e124455124664_ + (gx#stx-pair? _hd124434124641_)) + (let ((_e124437124646_ (let () (declare (not safe)) - (gx#stx-e _hd124452124659_)))) - (let ((_lp-tl124457124669_ + (gx#stx-e _hd124434124641_)))) + (let ((_lp-tl124439124651_ (let () (declare (not safe)) - (##cdr _e124455124664_))) - (_lp-hd124456124667_ + (##cdr _e124437124646_))) + (_lp-hd124438124649_ (let () (declare (not safe)) - (##car _e124455124664_)))) - (let ((__tmp130750 + (##car _e124437124646_)))) + (let ((__tmp130732 (let () (declare (not safe)) - (cons _lp-hd124456124667_ - _arg124458124661_)))) + (cons _lp-hd124438124649_ + _arg124440124643_)))) (declare (not safe)) - (_loop124454124656_ - _lp-tl124457124669_ - __tmp130750)))) - (let ((_arg124459124672_ - (reverse _arg124458124661_))) + (_loop124436124638_ + _lp-tl124439124651_ + __tmp130732)))) + (let ((_arg124441124654_ + (reverse _arg124440124643_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124448124648_)) - (let ((_e124462124675_ + (gx#stx-pair? _tl124430124630_)) + (let ((_e124444124657_ (let () (declare (not safe)) (gx#stx-e - _tl124448124648_)))) - (let ((_tl124460124680_ + _tl124430124630_)))) + (let ((_tl124442124662_ (let () (declare (not safe)) - (##cdr _e124462124675_))) - (_hd124461124678_ + (##cdr _e124444124657_))) + (_hd124443124660_ (let () (declare (not safe)) - (##car _e124462124675_)))) + (##car _e124444124657_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124461124678_)) - (let ((_e124465124683_ + _hd124443124660_)) + (let ((_e124447124665_ (let () (declare (not safe)) (gx#stx-e - _hd124461124678_)))) - (let ((_tl124463124688_ + _hd124443124660_)))) + (let ((_tl124445124670_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e124465124683_))) - (_hd124464124686_ - (let () (declare (not safe)) (##car _e124465124683_)))) + (##cdr _e124447124665_))) + (_hd124446124668_ + (let () (declare (not safe)) (##car _e124447124665_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124464124686_)) + (gx#identifier? _hd124446124668_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd124464124686_)) + (gx#stx-eq? '%#call _hd124446124668_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124463124688_)) - (let ((_e124468124691_ + (gx#stx-pair? _tl124445124670_)) + (let ((_e124450124673_ (let () (declare (not safe)) - (gx#stx-e _tl124463124688_)))) - (let ((_tl124466124696_ + (gx#stx-e _tl124445124670_)))) + (let ((_tl124448124678_ (let () (declare (not safe)) - (##cdr _e124468124691_))) - (_hd124467124694_ + (##cdr _e124450124673_))) + (_hd124449124676_ (let () (declare (not safe)) - (##car _e124468124691_)))) + (##car _e124450124673_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124467124694_)) - (let ((_e124471124699_ + (gx#stx-pair? _hd124449124676_)) + (let ((_e124453124681_ (let () (declare (not safe)) - (gx#stx-e _hd124467124694_)))) - (let ((_tl124469124704_ + (gx#stx-e _hd124449124676_)))) + (let ((_tl124451124686_ (let () (declare (not safe)) - (##cdr _e124471124699_))) - (_hd124470124702_ + (##cdr _e124453124681_))) + (_hd124452124684_ (let () (declare (not safe)) - (##car _e124471124699_)))) + (##car _e124453124681_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124470124702_)) + _hd124452124684_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd124470124702_)) + _hd124452124684_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124469124704_)) - (let ((_e124474124707_ + _tl124451124686_)) + (let ((_e124456124689_ (let () (declare (not safe)) (gx#stx-e - _tl124469124704_)))) - (let ((_tl124472124712_ + _tl124451124686_)))) + (let ((_tl124454124694_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e124474124707_))) - (_hd124473124710_ - (let () (declare (not safe)) (##car _e124474124707_)))) + (##cdr _e124456124689_))) + (_hd124455124692_ + (let () (declare (not safe)) (##car _e124456124689_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124472124712_)) + (gx#stx-null? _tl124454124694_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124466124696_)) - (let ((_e124477124715_ + (gx#stx-pair? _tl124448124678_)) + (let ((_e124459124697_ (let () (declare (not safe)) - (gx#stx-e _tl124466124696_)))) - (let ((_tl124475124720_ + (gx#stx-e _tl124448124678_)))) + (let ((_tl124457124702_ (let () (declare (not safe)) - (##cdr _e124477124715_))) - (_hd124476124718_ + (##cdr _e124459124697_))) + (_hd124458124700_ (let () (declare (not safe)) - (##car _e124477124715_)))) + (##car _e124459124697_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124476124718_)) - (let ((_e124480124723_ + (gx#stx-pair? _hd124458124700_)) + (let ((_e124462124705_ (let () (declare (not safe)) - (gx#stx-e _hd124476124718_)))) - (let ((_tl124478124728_ + (gx#stx-e _hd124458124700_)))) + (let ((_tl124460124710_ (let () (declare (not safe)) - (##cdr _e124480124723_))) - (_hd124479124726_ + (##cdr _e124462124705_))) + (_hd124461124708_ (let () (declare (not safe)) - (##car _e124480124723_)))) + (##car _e124462124705_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124479124726_)) + (gx#identifier? _hd124461124708_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd124479124726_)) + _hd124461124708_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124478124728_)) - (let ((_e124483124731_ + _tl124460124710_)) + (let ((_e124465124713_ (let () (declare (not safe)) (gx#stx-e - _tl124478124728_)))) - (let ((_tl124481124736_ + _tl124460124710_)))) + (let ((_tl124463124718_ (let () (declare (not safe)) - (##cdr _e124483124731_))) - (_hd124482124734_ + (##cdr _e124465124713_))) + (_hd124464124716_ (let () (declare (not safe)) - (##car _e124483124731_)))) + (##car _e124465124713_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124481124736_)) + _tl124463124718_)) (if (let () (declare (not safe)) (gx#stx-null? - _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_)) + _tl124442124662_)) + (___kont129461129462_ + _hd124464124716_ + _hd124455124692_ + _tl124435124635_ + _arg124441124654_) + (___match129562129563_ + _e124432124625_ + _hd124431124628_ + _tl124430124630_ + _e124444124657_ + _hd124443124660_ + _tl124442124662_ + _e124447124665_ + _hd124446124668_ + _tl124445124670_ + _e124450124673_ + _hd124449124676_ + _tl124448124678_ + _e124453124681_ + _hd124452124684_ + _tl124451124686_ + _e124456124689_ + _hd124455124692_ + _tl124454124694_ + _e124459124697_ + _hd124458124700_ + _tl124457124702_ + _e124462124705_ + _hd124461124708_ + _tl124460124710_ + _e124465124713_ + _hd124464124716_ + _tl124463124718_)) (let () (declare (not safe)) - (_g124397124521_))))) + (_g124379124503_))))) (let () (declare (not safe)) - (_g124397124521_))) + (_g124379124503_))) (let () (declare (not safe)) - (_g124397124521_))) + (_g124379124503_))) (let () (declare (not safe)) - (_g124397124521_))))) + (_g124379124503_))))) (let () (declare (not safe)) - (_g124397124521_))))) - (let () (declare (not safe)) (_g124397124521_))) - (let () (declare (not safe)) (_g124397124521_))))) + (_g124379124503_))))) + (let () (declare (not safe)) (_g124379124503_))) + (let () (declare (not safe)) (_g124379124503_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g124397124521_))) + (_g124379124503_))) (let () (declare (not safe)) - (_g124397124521_))) + (_g124379124503_))) (let () (declare (not safe)) - (_g124397124521_))))) + (_g124379124503_))))) (let () (declare (not safe)) - (_g124397124521_))))) - (let () (declare (not safe)) (_g124397124521_))) - (let () (declare (not safe)) (_g124397124521_))) - (let () (declare (not safe)) (_g124397124521_))))) + (_g124379124503_))))) + (let () (declare (not safe)) (_g124379124503_))) + (let () (declare (not safe)) (_g124379124503_))) + (let () (declare (not safe)) (_g124379124503_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g124397124521_))))) + (_g124379124503_))))) (let () (declare (not safe)) - (_g124397124521_)))))))) + (_g124379124503_)))))))) (let () (declare (not safe)) - (_loop124454124656_ _target124451124651_ '()))))) - (___match129498129499_ - (lambda (_e124404124779_ - _hd124403124782_ - _tl124402124784_ - ___splice129475129476_ - _target124405124787_ - _tl124407124789_) - (letrec ((_loop124408124792_ - (lambda (_hd124406124795_ _arg124412124797_) + (_loop124436124638_ _target124433124633_ '()))))) + (___match129480129481_ + (lambda (_e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_) + (letrec ((_loop124390124774_ + (lambda (_hd124388124777_ _arg124394124779_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124406124795_)) - (let ((_e124409124800_ + (gx#stx-pair? _hd124388124777_)) + (let ((_e124391124782_ (let () (declare (not safe)) - (gx#stx-e _hd124406124795_)))) - (let ((_lp-tl124411124805_ + (gx#stx-e _hd124388124777_)))) + (let ((_lp-tl124393124787_ (let () (declare (not safe)) - (##cdr _e124409124800_))) - (_lp-hd124410124803_ + (##cdr _e124391124782_))) + (_lp-hd124392124785_ (let () (declare (not safe)) - (##car _e124409124800_)))) - (let ((__tmp130752 + (##car _e124391124782_)))) + (let ((__tmp130734 (let () (declare (not safe)) - (cons _lp-hd124410124803_ - _arg124412124797_)))) + (cons _lp-hd124392124785_ + _arg124394124779_)))) (declare (not safe)) - (_loop124408124792_ - _lp-tl124411124805_ - __tmp130752)))) - (let ((_arg124413124808_ - (reverse _arg124412124797_))) + (_loop124390124774_ + _lp-tl124393124787_ + __tmp130734)))) + (let ((_arg124395124790_ + (reverse _arg124394124779_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124402124784_)) - (let ((_e124416124811_ + (gx#stx-pair? _tl124384124766_)) + (let ((_e124398124793_ (let () (declare (not safe)) (gx#stx-e - _tl124402124784_)))) - (let ((_tl124414124816_ + _tl124384124766_)))) + (let ((_tl124396124798_ (let () (declare (not safe)) - (##cdr _e124416124811_))) - (_hd124415124814_ + (##cdr _e124398124793_))) + (_hd124397124796_ (let () (declare (not safe)) - (##car _e124416124811_)))) + (##car _e124398124793_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124415124814_)) - (let ((_e124419124819_ + _hd124397124796_)) + (let ((_e124401124801_ (let () (declare (not safe)) (gx#stx-e - _hd124415124814_)))) - (let ((_tl124417124824_ + _hd124397124796_)))) + (let ((_tl124399124806_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e124419124819_))) - (_hd124418124822_ - (let () (declare (not safe)) (##car _e124419124819_)))) + (##cdr _e124401124801_))) + (_hd124400124804_ + (let () (declare (not safe)) (##car _e124401124801_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124418124822_)) + (gx#identifier? _hd124400124804_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd124418124822_)) + (gx#stx-eq? '%#call _hd124400124804_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124417124824_)) - (let ((_e124422124827_ + (gx#stx-pair? _tl124399124806_)) + (let ((_e124404124809_ (let () (declare (not safe)) - (gx#stx-e _tl124417124824_)))) - (let ((_tl124420124832_ + (gx#stx-e _tl124399124806_)))) + (let ((_tl124402124814_ (let () (declare (not safe)) - (##cdr _e124422124827_))) - (_hd124421124830_ + (##cdr _e124404124809_))) + (_hd124403124812_ (let () (declare (not safe)) - (##car _e124422124827_)))) + (##car _e124404124809_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124421124830_)) - (let ((_e124425124835_ + (gx#stx-pair? _hd124403124812_)) + (let ((_e124407124817_ (let () (declare (not safe)) - (gx#stx-e _hd124421124830_)))) - (let ((_tl124423124840_ + (gx#stx-e _hd124403124812_)))) + (let ((_tl124405124822_ (let () (declare (not safe)) - (##cdr _e124425124835_))) - (_hd124424124838_ + (##cdr _e124407124817_))) + (_hd124406124820_ (let () (declare (not safe)) - (##car _e124425124835_)))) + (##car _e124407124817_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124424124838_)) + _hd124406124820_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd124424124838_)) + _hd124406124820_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124423124840_)) - (let ((_e124428124843_ + _tl124405124822_)) + (let ((_e124410124825_ (let () (declare (not safe)) (gx#stx-e - _tl124423124840_)))) - (let ((_tl124426124848_ + _tl124405124822_)))) + (let ((_tl124408124830_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e124428124843_))) - (_hd124427124846_ - (let () (declare (not safe)) (##car _e124428124843_)))) + (##cdr _e124410124825_))) + (_hd124409124828_ + (let () (declare (not safe)) (##car _e124410124825_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124426124848_)) + (gx#stx-null? _tl124408124830_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl124420124832_)) - (let ((___splice129477129478_ + (gx#stx-pair/null? _tl124402124814_)) + (let ((___splice129459129460_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl124420124832_ + _tl124402124814_ '0)))) - (let ((_tl124431124853_ + (let ((_tl124413124835_ (let () (declare (not safe)) - (##vector-ref ___splice129477129478_ '1))) - (_target124429124851_ + (##vector-ref ___splice129459129460_ '1))) + (_target124411124833_ (let () (declare (not safe)) - (##vector-ref ___splice129477129478_ '0)))) + (##vector-ref ___splice129459129460_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124431124853_)) - (letrec ((_loop124432124856_ - (lambda (_hd124430124859_ - _xarg124436124861_) + (gx#stx-null? _tl124413124835_)) + (letrec ((_loop124414124838_ + (lambda (_hd124412124841_ + _xarg124418124843_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124430124859_)) - (let ((_e124433124864_ + _hd124412124841_)) + (let ((_e124415124846_ (let () (declare (not safe)) (gx#stx-e - _hd124430124859_)))) - (let ((_lp-tl124435124869_ + _hd124412124841_)))) + (let ((_lp-tl124417124851_ (let () (declare (not safe)) - (##cdr _e124433124864_))) - (_lp-hd124434124867_ + (##cdr _e124415124846_))) + (_lp-hd124416124849_ (let () (declare (not safe)) - (##car _e124433124864_)))) + (##car _e124415124846_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd124434124867_)) - (let ((_e124440124872_ + _lp-hd124416124849_)) + (let ((_e124422124854_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd124434124867_)))) - (let ((_tl124438124877_ - (let () (declare (not safe)) (##cdr _e124440124872_))) - (_hd124439124875_ + (gx#stx-e _lp-hd124416124849_)))) + (let ((_tl124420124859_ + (let () (declare (not safe)) (##cdr _e124422124854_))) + (_hd124421124857_ (let () (declare (not safe)) - (##car _e124440124872_)))) + (##car _e124422124854_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124439124875_)) + (gx#identifier? _hd124421124857_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124439124875_)) + (gx#stx-eq? '%#ref _hd124421124857_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124438124877_)) - (let ((_e124443124880_ + (gx#stx-pair? _tl124420124859_)) + (let ((_e124425124862_ (let () (declare (not safe)) - (gx#stx-e _tl124438124877_)))) - (let ((_tl124441124885_ + (gx#stx-e _tl124420124859_)))) + (let ((_tl124423124867_ (let () (declare (not safe)) - (##cdr _e124443124880_))) - (_hd124442124883_ + (##cdr _e124425124862_))) + (_hd124424124865_ (let () (declare (not safe)) - (##car _e124443124880_)))) + (##car _e124425124862_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124441124885_)) - (let ((__tmp130751 + (gx#stx-null? _tl124423124867_)) + (let ((__tmp130733 (let () (declare (not safe)) - (cons _hd124442124883_ - _xarg124436124861_)))) + (cons _hd124424124865_ + _xarg124418124843_)))) (declare (not safe)) - (_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_))) + (_loop124414124838_ + _lp-tl124417124851_ + __tmp130733)) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)))) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)))) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg124419124870_ + (reverse _xarg124418124843_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124414124816_)) - (___kont129473129474_ - _xarg124437124888_ - _hd124427124846_ - _arg124413124808_) - (___match129510129511_ - _e124404124779_ - _hd124403124782_ - _tl124402124784_ - ___splice129475129476_ - _target124405124787_ - _tl124407124789_))))))) + _tl124396124798_)) + (___kont129455129456_ + _xarg124419124870_ + _hd124409124828_ + _arg124395124790_) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_))))))) (let () (declare (not safe)) - (_loop124432124856_ - _target124429124851_ + (_loop124414124838_ + _target124411124833_ '()))) - (___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_))))))) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)))) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)))) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)))) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)))) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_))))))) (let () (declare (not safe)) - (_loop124408124792_ _target124405124787_ '())))))) + (_loop124390124774_ _target124387124769_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx129471129472_)) - (let ((_e124404124779_ + (gx#stx-pair? ___stx129453129454_)) + (let ((_e124386124761_ (let () (declare (not safe)) - (gx#stx-e ___stx129471129472_)))) - (let ((_tl124402124784_ + (gx#stx-e ___stx129453129454_)))) + (let ((_tl124384124766_ (let () (declare (not safe)) - (##cdr _e124404124779_))) - (_hd124403124782_ + (##cdr _e124386124761_))) + (_hd124385124764_ (let () (declare (not safe)) - (##car _e124404124779_)))) + (##car _e124386124761_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd124403124782_)) - (let ((___splice129475129476_ + (gx#stx-pair/null? _hd124385124764_)) + (let ((___splice129457129458_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd124403124782_ + _hd124385124764_ '0)))) - (let ((_tl124407124789_ + (let ((_tl124389124771_ (let () (declare (not safe)) - (##vector-ref ___splice129475129476_ '1))) - (_target124405124787_ + (##vector-ref ___splice129457129458_ '1))) + (_target124387124769_ (let () (declare (not safe)) (##vector-ref - ___splice129475129476_ + ___splice129457129458_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124407124789_)) - (___match129498129499_ - _e124404124779_ - _hd124403124782_ - _tl124402124784_ - ___splice129475129476_ - _target124405124787_ - _tl124407124789_) - (___match129510129511_ - _e124404124779_ - _hd124403124782_ - _tl124402124784_ - ___splice129475129476_ - _target124405124787_ - _tl124407124789_)))) + (gx#stx-null? _tl124389124771_)) + (___match129480129481_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_) + (___match129492129493_ + _e124386124761_ + _hd124385124764_ + _tl124384124766_ + ___splice129457129458_ + _target124387124769_ + _tl124389124771_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124402124784_)) - (let ((_e124492124534_ + (gx#stx-pair? _tl124384124766_)) + (let ((_e124474124516_ (let () (declare (not safe)) - (gx#stx-e _tl124402124784_)))) - (let ((_tl124490124539_ + (gx#stx-e _tl124384124766_)))) + (let ((_tl124472124521_ (let () (declare (not safe)) - (##cdr _e124492124534_))) - (_hd124491124537_ + (##cdr _e124474124516_))) + (_hd124473124519_ (let () (declare (not safe)) - (##car _e124492124534_)))) + (##car _e124474124516_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124491124537_)) - (let ((_e124495124542_ + (gx#stx-pair? _hd124473124519_)) + (let ((_e124477124524_ (let () (declare (not safe)) - (gx#stx-e _hd124491124537_)))) - (let ((_tl124493124547_ + (gx#stx-e _hd124473124519_)))) + (let ((_tl124475124529_ (let () (declare (not safe)) - (##cdr _e124495124542_))) - (_hd124494124545_ + (##cdr _e124477124524_))) + (_hd124476124527_ (let () (declare (not safe)) - (##car _e124495124542_)))) + (##car _e124477124524_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd124494124545_)) + _hd124476124527_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd124494124545_)) + _hd124476124527_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124493124547_)) - (let ((_e124498124550_ + _tl124475124529_)) + (let ((_e124480124532_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl124493124547_)))) - (let ((_tl124496124555_ - (let () (declare (not safe)) (##cdr _e124498124550_))) - (_hd124497124553_ - (let () (declare (not safe)) (##car _e124498124550_)))) + (gx#stx-e _tl124475124529_)))) + (let ((_tl124478124537_ + (let () (declare (not safe)) (##cdr _e124480124532_))) + (_hd124479124535_ + (let () (declare (not safe)) (##car _e124480124532_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124497124553_)) - (let ((_e124501124558_ + (gx#stx-pair? _hd124479124535_)) + (let ((_e124483124540_ (let () (declare (not safe)) - (gx#stx-e _hd124497124553_)))) - (let ((_tl124499124563_ + (gx#stx-e _hd124479124535_)))) + (let ((_tl124481124545_ (let () (declare (not safe)) - (##cdr _e124501124558_))) - (_hd124500124561_ + (##cdr _e124483124540_))) + (_hd124482124543_ (let () (declare (not safe)) - (##car _e124501124558_)))) + (##car _e124483124540_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124500124561_)) + (gx#identifier? _hd124482124543_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124500124561_)) + (gx#stx-eq? '%#ref _hd124482124543_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124499124563_)) - (let ((_e124504124566_ + (gx#stx-pair? _tl124481124545_)) + (let ((_e124486124548_ (let () (declare (not safe)) - (gx#stx-e _tl124499124563_)))) - (let ((_tl124502124571_ + (gx#stx-e _tl124481124545_)))) + (let ((_tl124484124553_ (let () (declare (not safe)) - (##cdr _e124504124566_))) - (_hd124503124569_ + (##cdr _e124486124548_))) + (_hd124485124551_ (let () (declare (not safe)) - (##car _e124504124566_)))) + (##car _e124486124548_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124502124571_)) + _tl124484124553_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124496124555_)) - (let ((_e124507124574_ + _tl124478124537_)) + (let ((_e124489124556_ (let () (declare (not safe)) (gx#stx-e - _tl124496124555_)))) - (let ((_tl124505124579_ + _tl124478124537_)))) + (let ((_tl124487124561_ (let () (declare (not safe)) - (##cdr _e124507124574_))) - (_hd124506124577_ + (##cdr _e124489124556_))) + (_hd124488124559_ (let () (declare (not safe)) - (##car _e124507124574_)))) + (##car _e124489124556_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd124506124577_)) - (let ((_e124510124582_ + _hd124488124559_)) + (let ((_e124492124564_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd124506124577_)))) - (let ((_tl124508124587_ + (gx#stx-e _hd124488124559_)))) + (let ((_tl124490124569_ (let () (declare (not safe)) - (##cdr _e124510124582_))) - (_hd124509124585_ + (##cdr _e124492124564_))) + (_hd124491124567_ (let () (declare (not safe)) - (##car _e124510124582_)))) + (##car _e124492124564_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124509124585_)) + (gx#identifier? _hd124491124567_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd124509124585_)) + (gx#stx-eq? '%#ref _hd124491124567_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124508124587_)) - (let ((_e124513124590_ + (gx#stx-pair? _tl124490124569_)) + (let ((_e124495124572_ (let () (declare (not safe)) - (gx#stx-e _tl124508124587_)))) - (let ((_tl124511124595_ + (gx#stx-e _tl124490124569_)))) + (let ((_tl124493124577_ (let () (declare (not safe)) - (##cdr _e124513124590_))) - (_hd124512124593_ + (##cdr _e124495124572_))) + (_hd124494124575_ (let () (declare (not safe)) - (##car _e124513124590_)))) + (##car _e124495124572_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124511124595_)) + (gx#stx-null? _tl124493124577_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl124505124579_)) - (let ((_e124516124598_ + _tl124487124561_)) + (let ((_e124498124580_ (let () (declare (not safe)) (gx#stx-e - _tl124505124579_)))) - (let ((_tl124514124603_ + _tl124487124561_)))) + (let ((_tl124496124585_ (let () (declare (not safe)) - (##cdr _e124516124598_))) - (_hd124515124601_ + (##cdr _e124498124580_))) + (_hd124497124583_ (let () (declare (not safe)) - (##car _e124516124598_)))) + (##car _e124498124580_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124514124603_)) + _tl124496124585_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl124490124539_)) - (___kont129483129484_ - _hd124512124593_ - _hd124503124569_ - _hd124403124782_) + _tl124472124521_)) + (___kont129465129466_ + _hd124494124575_ + _hd124485124551_ + _hd124385124764_) (let () (declare (not safe)) - (_g124397124521_))) + (_g124379124503_))) (let () (declare (not safe)) - (_g124397124521_))))) + (_g124379124503_))))) (let () (declare (not safe)) - (_g124397124521_))) + (_g124379124503_))) (let () (declare (not safe)) - (_g124397124521_))))) + (_g124379124503_))))) (let () (declare (not safe)) - (_g124397124521_))) - (let () (declare (not safe)) (_g124397124521_))) - (let () (declare (not safe)) (_g124397124521_))))) - (let () (declare (not safe)) (_g124397124521_))))) + (_g124379124503_))) + (let () (declare (not safe)) (_g124379124503_))) + (let () (declare (not safe)) (_g124379124503_))))) + (let () (declare (not safe)) (_g124379124503_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g124397124521_))) + (_g124379124503_))) (let () (declare (not safe)) - (_g124397124521_))))) + (_g124379124503_))))) (let () (declare (not safe)) - (_g124397124521_))) + (_g124379124503_))) (let () (declare (not safe)) - (_g124397124521_))) + (_g124379124503_))) (let () (declare (not safe)) - (_g124397124521_))))) - (let () (declare (not safe)) (_g124397124521_))))) - (let () (declare (not safe)) (_g124397124521_))) + (_g124379124503_))))) + (let () (declare (not safe)) (_g124379124503_))))) + (let () (declare (not safe)) (_g124379124503_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g124397124521_))) + (_g124379124503_))) (let () (declare (not safe)) - (_g124397124521_))))) + (_g124379124503_))))) (let () (declare (not safe)) - (_g124397124521_))))) + (_g124379124503_))))) (let () (declare (not safe)) - (_g124397124521_)))))) - (let () (declare (not safe)) (_g124397124521_)))))))) + (_g124379124503_)))))) + (let () (declare (not safe)) (_g124379124503_)))))))) (define gxc#lambda-form-arity - (lambda (_form124197_) - (let* ((_g124199124213_ - (lambda (_g124200124210_) + (lambda (_form124179_) + (let* ((_g124181124195_ + (lambda (_g124182124192_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g124200124210_)))) - (_g124198124390_ - (lambda (_g124200124216_) + _g124182124192_)))) + (_g124180124372_ + (lambda (_g124182124198_) (if (let () (declare (not safe)) - (gx#stx-pair? _g124200124216_)) - (let ((_e124205124218_ + (gx#stx-pair? _g124182124198_)) + (let ((_e124187124200_ (let () (declare (not safe)) - (gx#stx-e _g124200124216_)))) - (let ((_hd124204124221_ + (gx#stx-e _g124182124198_)))) + (let ((_hd124186124203_ (let () (declare (not safe)) - (##car _e124205124218_))) - (_tl124203124223_ + (##car _e124187124200_))) + (_tl124185124205_ (let () (declare (not safe)) - (##cdr _e124205124218_)))) + (##cdr _e124187124200_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl124203124223_)) - (let ((_e124208124226_ + (gx#stx-pair? _tl124185124205_)) + (let ((_e124190124208_ (let () (declare (not safe)) - (gx#stx-e _tl124203124223_)))) - (let ((_hd124207124229_ + (gx#stx-e _tl124185124205_)))) + (let ((_hd124189124211_ (let () (declare (not safe)) - (##car _e124208124226_))) - (_tl124206124231_ + (##car _e124190124208_))) + (_tl124188124213_ (let () (declare (not safe)) - (##cdr _e124208124226_)))) + (##cdr _e124190124208_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl124206124231_)) - ((lambda (_L124234_ _L124235_) - (let* ((___stx129593129594_ _L124235_) - (_g124250124278_ + (gx#stx-null? _tl124188124213_)) + ((lambda (_L124216_ _L124217_) + (let* ((___stx129575129576_ _L124217_) + (_g124232124260_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129593129594_))))) - (let ((___kont129595129596_ - (lambda (_L124369_) - (length (let ((__tmp130753 + ___stx129575129576_))))) + (let ((___kont129577129578_ + (lambda (_L124351_) + (length (let ((__tmp130735 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g124379124382_ _g124380124384_) + (lambda (_g124361124364_ _g124362124366_) (let () (declare (not safe)) - (cons _g124379124382_ _g124380124384_))))) + (cons _g124361124364_ _g124362124366_))))) (declare (not safe)) - (foldr1 __tmp130753 '() _L124369_))))) + (foldr1 __tmp130735 '() _L124351_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129599129600_ - (lambda (_L124320_ _L124321_) - (let ((__tmp130754 - (length (let ((__tmp130755 + (___kont129581129582_ + (lambda (_L124302_ _L124303_) + (let ((__tmp130736 + (length (let ((__tmp130737 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g124332124335_ _g124333124337_) + (lambda (_g124314124317_ _g124315124319_) (let () (declare (not safe)) - (cons _g124332124335_ - _g124333124337_))))) + (cons _g124314124317_ + _g124315124319_))))) (declare (not safe)) - (foldr1 __tmp130755 '() _L124321_))))) + (foldr1 __tmp130737 '() _L124303_))))) (declare (not safe)) - (cons __tmp130754 '())))) + (cons __tmp130736 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129603129604_ - (lambda (_L124283_) + (___kont129585129586_ + (lambda (_L124265_) (let () (declare (not safe)) (cons '0 '()))))) - (let* ((___match129618129619_ - (lambda (___splice129601129602_ - _target124264124296_ - _tl124266124298_) - (letrec ((_loop124267124301_ + (let* ((___match129600129601_ + (lambda (___splice129583129584_ + _target124246124278_ + _tl124248124280_) + (letrec ((_loop124249124283_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd124265124304_ _arg124271124306_) + (lambda (_hd124247124286_ _arg124253124288_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124265124304_)) - (let ((_e124268124309_ + (gx#stx-pair? _hd124247124286_)) + (let ((_e124250124291_ (let () (declare (not safe)) - (gx#stx-e _hd124265124304_)))) - (let ((_lp-tl124270124314_ + (gx#stx-e _hd124247124286_)))) + (let ((_lp-tl124252124296_ (let () (declare (not safe)) - (##cdr _e124268124309_))) - (_lp-hd124269124312_ + (##cdr _e124250124291_))) + (_lp-hd124251124294_ (let () (declare (not safe)) - (##car _e124268124309_)))) - (let ((__tmp130756 + (##car _e124250124291_)))) + (let ((__tmp130738 (let () (declare (not safe)) - (cons _lp-hd124269124312_ - _arg124271124306_)))) + (cons _lp-hd124251124294_ + _arg124253124288_)))) (declare (not safe)) - (_loop124267124301_ - _lp-tl124270124314_ - __tmp130756)))) - (let ((_arg124272124317_ - (reverse _arg124271124306_))) - (___kont129599129600_ - _tl124266124298_ - _arg124272124317_)))))) + (_loop124249124283_ + _lp-tl124252124296_ + __tmp130738)))) + (let ((_arg124254124299_ + (reverse _arg124253124288_))) + (___kont129581129582_ + _tl124248124280_ + _arg124254124299_)))))) (let () (declare (not safe)) - (_loop124267124301_ _target124264124296_ '()))))) + (_loop124249124283_ _target124246124278_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match129612129613_ - (lambda (___splice129597129598_ - _target124253124345_ - _tl124255124347_) - (letrec ((_loop124256124350_ + (___match129594129595_ + (lambda (___splice129579129580_ + _target124235124327_ + _tl124237124329_) + (letrec ((_loop124238124332_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd124254124353_ _arg124260124355_) + (lambda (_hd124236124335_ _arg124242124337_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd124254124353_)) - (let ((_e124257124358_ + (gx#stx-pair? _hd124236124335_)) + (let ((_e124239124340_ (let () (declare (not safe)) - (gx#stx-e _hd124254124353_)))) - (let ((_lp-tl124259124363_ + (gx#stx-e _hd124236124335_)))) + (let ((_lp-tl124241124345_ (let () (declare (not safe)) - (##cdr _e124257124358_))) - (_lp-hd124258124361_ + (##cdr _e124239124340_))) + (_lp-hd124240124343_ (let () (declare (not safe)) - (##car _e124257124358_)))) - (let ((__tmp130757 + (##car _e124239124340_)))) + (let ((__tmp130739 (let () (declare (not safe)) - (cons _lp-hd124258124361_ - _arg124260124355_)))) + (cons _lp-hd124240124343_ + _arg124242124337_)))) (declare (not safe)) - (_loop124256124350_ - _lp-tl124259124363_ - __tmp130757)))) - (let ((_arg124261124366_ - (reverse _arg124260124355_))) - (___kont129595129596_ _arg124261124366_)))))) + (_loop124238124332_ + _lp-tl124241124345_ + __tmp130739)))) + (let ((_arg124243124348_ + (reverse _arg124242124337_))) + (___kont129577129578_ _arg124243124348_)))))) (let () (declare (not safe)) - (_loop124256124350_ _target124253124345_ '())))))) + (_loop124238124332_ _target124235124327_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - ___stx129593129594_)) - (let ((___splice129597129598_ + ___stx129575129576_)) + (let ((___splice129579129580_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx129593129594_ + ___stx129575129576_ '0)))) - (let ((_tl124255124347_ + (let ((_tl124237124329_ (let () (declare (not safe)) (##vector-ref - ___splice129597129598_ + ___splice129579129580_ '1))) - (_target124253124345_ + (_target124235124327_ (let () (declare (not safe)) (##vector-ref - ___splice129597129598_ + ___splice129579129580_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl124255124347_)) - (___match129612129613_ - ___splice129597129598_ - _target124253124345_ - _tl124255124347_) - (___match129618129619_ - ___splice129597129598_ - _target124253124345_ - _tl124255124347_)))) - (___kont129603129604_ - ___stx129593129594_)))))) - _hd124207124229_ - _hd124204124221_) + _tl124237124329_)) + (___match129594129595_ + ___splice129579129580_ + _target124235124327_ + _tl124237124329_) + (___match129600129601_ + ___splice129579129580_ + _target124235124327_ + _tl124237124329_)))) + (___kont129585129586_ + ___stx129575129576_)))))) + _hd124189124211_ + _hd124186124203_) (let () (declare (not safe)) - (_g124199124213_ _g124200124216_))))) + (_g124181124195_ _g124182124198_))))) (let () (declare (not safe)) - (_g124199124213_ _g124200124216_))))) + (_g124181124195_ _g124182124198_))))) (let () (declare (not safe)) - (_g124199124213_ _g124200124216_)))))) + (_g124181124195_ _g124182124198_)))))) (declare (not safe)) - (_g124198124390_ _form124197_)))) + (_g124180124372_ _form124179_)))) (define gxc#lambda-expr? - (lambda (_expr124150_) - (let* ((___stx129621129622_ _expr124150_) - (_g124153124163_ + (lambda (_expr124132_) + (let* ((___stx129603129604_ _expr124132_) + (_g124135124145_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129621129622_))))) - (let ((___kont129623129624_ (lambda (_L124183_) '#t)) - (___kont129625129626_ (lambda () '#f))) + ___stx129603129604_))))) + (let ((___kont129605129606_ (lambda (_L124165_) '#t)) + (___kont129607129608_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx129621129622_)) - (let ((_e124158124175_ + (gx#stx-pair? ___stx129603129604_)) + (let ((_e124140124157_ (let () (declare (not safe)) - (gx#stx-e ___stx129621129622_)))) - (let ((_tl124156124180_ - (let () (declare (not safe)) (##cdr _e124158124175_))) - (_hd124157124178_ + (gx#stx-e ___stx129603129604_)))) + (let ((_tl124138124162_ + (let () (declare (not safe)) (##cdr _e124140124157_))) + (_hd124139124160_ (let () (declare (not safe)) - (##car _e124158124175_)))) + (##car _e124140124157_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124157124178_)) + (gx#identifier? _hd124139124160_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd124157124178_)) - (___kont129623129624_ _tl124156124180_) - (___kont129625129626_)) - (___kont129625129626_)))) - (___kont129625129626_)))))) + (gx#stx-eq? '%#lambda _hd124139124160_)) + (___kont129605129606_ _tl124138124162_) + (___kont129607129608_)) + (___kont129607129608_)))) + (___kont129607129608_)))))) (define gxc#case-lambda-expr? - (lambda (_expr124103_) - (let* ((___stx129639129640_ _expr124103_) - (_g124106124116_ + (lambda (_expr124085_) + (let* ((___stx129621129622_ _expr124085_) + (_g124088124098_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129639129640_))))) - (let ((___kont129641129642_ (lambda (_L124136_) '#t)) - (___kont129643129644_ (lambda () '#f))) + ___stx129621129622_))))) + (let ((___kont129623129624_ (lambda (_L124118_) '#t)) + (___kont129625129626_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx129639129640_)) - (let ((_e124111124128_ + (gx#stx-pair? ___stx129621129622_)) + (let ((_e124093124110_ (let () (declare (not safe)) - (gx#stx-e ___stx129639129640_)))) - (let ((_tl124109124133_ - (let () (declare (not safe)) (##cdr _e124111124128_))) - (_hd124110124131_ + (gx#stx-e ___stx129621129622_)))) + (let ((_tl124091124115_ + (let () (declare (not safe)) (##cdr _e124093124110_))) + (_hd124092124113_ (let () (declare (not safe)) - (##car _e124111124128_)))) + (##car _e124093124110_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd124110124131_)) + (gx#identifier? _hd124092124113_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _hd124110124131_)) - (___kont129641129642_ _tl124109124133_) - (___kont129643129644_)) - (___kont129643129644_)))) - (___kont129643129644_)))))) + (gx#stx-eq? '%#case-lambda _hd124092124113_)) + (___kont129623129624_ _tl124091124115_) + (___kont129625129626_)) + (___kont129625129626_)))) + (___kont129625129626_)))))) (define gxc#opt-lambda-expr? - (lambda (_expr123972_) - (let* ((___stx129657129658_ _expr123972_) - (_g123975124005_ + (lambda (_expr123954_) + (let* ((___stx129639129640_ _expr123954_) + (_g123957123987_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129657129658_))))) - (let ((___kont129659129660_ - (lambda (_L124073_ _L124074_ _L124075_) - (if (let () (declare (not safe)) (gx#identifier? _L124075_)) + ___stx129639129640_))))) + (let ((___kont129641129642_ + (lambda (_L124055_ _L124056_ _L124057_) + (if (let () (declare (not safe)) (gx#identifier? _L124057_)) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L124074_)) + (gxc#lambda-expr? _L124056_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L124073_)) + (gxc#case-lambda-expr? _L124055_)) '#f) '#f))) - (___kont129661129662_ (lambda () '#f))) + (___kont129643129644_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx129657129658_)) - (let ((_e123982124017_ + (gx#stx-pair? ___stx129639129640_)) + (let ((_e123964123999_ (let () (declare (not safe)) - (gx#stx-e ___stx129657129658_)))) - (let ((_tl123980124022_ - (let () (declare (not safe)) (##cdr _e123982124017_))) - (_hd123981124020_ + (gx#stx-e ___stx129639129640_)))) + (let ((_tl123962124004_ + (let () (declare (not safe)) (##cdr _e123964123999_))) + (_hd123963124002_ (let () (declare (not safe)) - (##car _e123982124017_)))) + (##car _e123964123999_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123981124020_)) + (gx#identifier? _hd123963124002_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd123981124020_)) + (gx#stx-eq? '%#let-values _hd123963124002_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123980124022_)) - (let ((_e123985124025_ + (gx#stx-pair? _tl123962124004_)) + (let ((_e123967124007_ (let () (declare (not safe)) - (gx#stx-e _tl123980124022_)))) - (let ((_tl123983124030_ + (gx#stx-e _tl123962124004_)))) + (let ((_tl123965124012_ (let () (declare (not safe)) - (##cdr _e123985124025_))) - (_hd123984124028_ + (##cdr _e123967124007_))) + (_hd123966124010_ (let () (declare (not safe)) - (##car _e123985124025_)))) + (##car _e123967124007_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123984124028_)) - (let ((_e123988124033_ + (gx#stx-pair? _hd123966124010_)) + (let ((_e123970124015_ (let () (declare (not safe)) - (gx#stx-e _hd123984124028_)))) - (let ((_tl123986124038_ + (gx#stx-e _hd123966124010_)))) + (let ((_tl123968124020_ (let () (declare (not safe)) - (##cdr _e123988124033_))) - (_hd123987124036_ + (##cdr _e123970124015_))) + (_hd123969124018_ (let () (declare (not safe)) - (##car _e123988124033_)))) + (##car _e123970124015_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123987124036_)) - (let ((_e123991124041_ + _hd123969124018_)) + (let ((_e123973124023_ (let () (declare (not safe)) (gx#stx-e - _hd123987124036_)))) - (let ((_tl123989124046_ + _hd123969124018_)))) + (let ((_tl123971124028_ (let () (declare (not safe)) - (##cdr _e123991124041_))) - (_hd123990124044_ + (##cdr _e123973124023_))) + (_hd123972124026_ (let () (declare (not safe)) - (##car _e123991124041_)))) + (##car _e123973124023_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123990124044_)) - (let ((_e123994124049_ + _hd123972124026_)) + (let ((_e123976124031_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd123990124044_)))) - (let ((_tl123992124054_ - (let () (declare (not safe)) (##cdr _e123994124049_))) - (_hd123993124052_ + (gx#stx-e _hd123972124026_)))) + (let ((_tl123974124036_ + (let () (declare (not safe)) (##cdr _e123976124031_))) + (_hd123975124034_ (let () (declare (not safe)) - (##car _e123994124049_)))) + (##car _e123976124031_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123992124054_)) + (gx#stx-null? _tl123974124036_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123989124046_)) - (let ((_e123997124057_ + (gx#stx-pair? _tl123971124028_)) + (let ((_e123979124039_ (let () (declare (not safe)) - (gx#stx-e _tl123989124046_)))) - (let ((_tl123995124062_ + (gx#stx-e _tl123971124028_)))) + (let ((_tl123977124044_ (let () (declare (not safe)) - (##cdr _e123997124057_))) - (_hd123996124060_ + (##cdr _e123979124039_))) + (_hd123978124042_ (let () (declare (not safe)) - (##car _e123997124057_)))) + (##car _e123979124039_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123995124062_)) + (gx#stx-null? _tl123977124044_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123986124038_)) + (gx#stx-null? _tl123968124020_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123983124030_)) - (let ((_e124000124065_ + (gx#stx-pair? _tl123965124012_)) + (let ((_e123982124047_ (let () (declare (not safe)) (gx#stx-e - _tl123983124030_)))) - (let ((_tl123998124070_ + _tl123965124012_)))) + (let ((_tl123980124052_ (let () (declare (not safe)) - (##cdr _e124000124065_))) - (_hd123999124068_ + (##cdr _e123982124047_))) + (_hd123981124050_ (let () (declare (not safe)) - (##car _e124000124065_)))) + (##car _e123982124047_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123998124070_)) - (___kont129659129660_ - _hd123999124068_ - _hd123996124060_ - _hd123993124052_) - (___kont129661129662_)))) - (___kont129661129662_)) - (___kont129661129662_)) - (___kont129661129662_)))) - (___kont129661129662_)) - (___kont129661129662_)))) - (___kont129661129662_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont129661129662_)))) - (___kont129661129662_)))) - (___kont129661129662_)) - (___kont129661129662_)) - (___kont129661129662_)))) - (___kont129661129662_)))))) + _tl123980124052_)) + (___kont129641129642_ + _hd123981124050_ + _hd123978124042_ + _hd123975124034_) + (___kont129643129644_)))) + (___kont129643129644_)) + (___kont129643129644_)) + (___kont129643129644_)))) + (___kont129643129644_)) + (___kont129643129644_)))) + (___kont129643129644_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129643129644_)))) + (___kont129643129644_)))) + (___kont129643129644_)) + (___kont129643129644_)) + (___kont129643129644_)))) + (___kont129643129644_)))))) (define gxc#kw-lambda-expr? - (lambda (_expr123297_) - (let* ((___stx129719129720_ _expr123297_) - (_g123300123458_ + (lambda (_expr123279_) + (let* ((___stx129701129702_ _expr123279_) + (_g123282123440_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx129719129720_))))) - (let ((___kont129721129722_ - (lambda (_L123846_ - _L123847_ - _L123848_ - _L123849_ - _L123850_ - _L123851_ - _L123852_ - _L123853_ - _L123854_ - _L123855_ - _L123856_) + ___stx129701129702_))))) + (let ((___kont129703129704_ + (lambda (_L123828_ + _L123829_ + _L123830_ + _L123831_ + _L123832_ + _L123833_ + _L123834_ + _L123835_ + _L123836_ + _L123837_ + _L123838_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L123853_ 'apply)) + (gxc#runtime-identifier=? _L123835_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L123849_ 'apply)) + (gxc#runtime-identifier=? _L123831_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L123848_ + _L123830_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L123856_ - _L123847_)) + _L123838_ + _L123829_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L123855_ - _L123852_)) + _L123837_ + _L123834_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L123850_ - _L123846_)) + _L123832_ + _L123828_)) (let () (declare (not safe)) (gx#free-identifier=? - _L123854_ - _L123851_)) + _L123836_ + _L123833_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (___kont129723129724_ (lambda () '#f))) + (___kont129705129706_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx129719129720_)) - (let ((_e123315123470_ + (gx#stx-pair? ___stx129701129702_)) + (let ((_e123297123452_ (let () (declare (not safe)) - (gx#stx-e ___stx129719129720_)))) - (let ((_tl123313123475_ - (let () (declare (not safe)) (##cdr _e123315123470_))) - (_hd123314123473_ + (gx#stx-e ___stx129701129702_)))) + (let ((_tl123295123457_ + (let () (declare (not safe)) (##cdr _e123297123452_))) + (_hd123296123455_ (let () (declare (not safe)) - (##car _e123315123470_)))) + (##car _e123297123452_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123314123473_)) + (gx#identifier? _hd123296123455_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd123314123473_)) + (gx#stx-eq? '%#let-values _hd123296123455_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123313123475_)) - (let ((_e123318123478_ + (gx#stx-pair? _tl123295123457_)) + (let ((_e123300123460_ (let () (declare (not safe)) - (gx#stx-e _tl123313123475_)))) - (let ((_tl123316123483_ + (gx#stx-e _tl123295123457_)))) + (let ((_tl123298123465_ (let () (declare (not safe)) - (##cdr _e123318123478_))) - (_hd123317123481_ + (##cdr _e123300123460_))) + (_hd123299123463_ (let () (declare (not safe)) - (##car _e123318123478_)))) + (##car _e123300123460_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123317123481_)) - (let ((_e123321123486_ + (gx#stx-pair? _hd123299123463_)) + (let ((_e123303123468_ (let () (declare (not safe)) - (gx#stx-e _hd123317123481_)))) - (let ((_tl123319123491_ + (gx#stx-e _hd123299123463_)))) + (let ((_tl123301123473_ (let () (declare (not safe)) - (##cdr _e123321123486_))) - (_hd123320123489_ + (##cdr _e123303123468_))) + (_hd123302123471_ (let () (declare (not safe)) - (##car _e123321123486_)))) + (##car _e123303123468_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123320123489_)) - (let ((_e123324123494_ + _hd123302123471_)) + (let ((_e123306123476_ (let () (declare (not safe)) (gx#stx-e - _hd123320123489_)))) - (let ((_tl123322123499_ + _hd123302123471_)))) + (let ((_tl123304123481_ (let () (declare (not safe)) - (##cdr _e123324123494_))) - (_hd123323123497_ + (##cdr _e123306123476_))) + (_hd123305123479_ (let () (declare (not safe)) - (##car _e123324123494_)))) + (##car _e123306123476_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123323123497_)) - (let ((_e123327123502_ + _hd123305123479_)) + (let ((_e123309123484_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd123323123497_)))) - (let ((_tl123325123507_ - (let () (declare (not safe)) (##cdr _e123327123502_))) - (_hd123326123505_ + (gx#stx-e _hd123305123479_)))) + (let ((_tl123307123489_ + (let () (declare (not safe)) (##cdr _e123309123484_))) + (_hd123308123487_ (let () (declare (not safe)) - (##car _e123327123502_)))) + (##car _e123309123484_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123325123507_)) + (gx#stx-null? _tl123307123489_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123322123499_)) - (let ((_e123330123510_ + (gx#stx-pair? _tl123304123481_)) + (let ((_e123312123492_ (let () (declare (not safe)) - (gx#stx-e _tl123322123499_)))) - (let ((_tl123328123515_ + (gx#stx-e _tl123304123481_)))) + (let ((_tl123310123497_ (let () (declare (not safe)) - (##cdr _e123330123510_))) - (_hd123329123513_ + (##cdr _e123312123492_))) + (_hd123311123495_ (let () (declare (not safe)) - (##car _e123330123510_)))) + (##car _e123312123492_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123329123513_)) - (let ((_e123333123518_ + (gx#stx-pair? _hd123311123495_)) + (let ((_e123315123500_ (let () (declare (not safe)) - (gx#stx-e _hd123329123513_)))) - (let ((_tl123331123523_ + (gx#stx-e _hd123311123495_)))) + (let ((_tl123313123505_ (let () (declare (not safe)) - (##cdr _e123333123518_))) - (_hd123332123521_ + (##cdr _e123315123500_))) + (_hd123314123503_ (let () (declare (not safe)) - (##car _e123333123518_)))) + (##car _e123315123500_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123332123521_)) + _hd123314123503_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd123332123521_)) + _hd123314123503_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123331123523_)) - (let ((_e123336123526_ + _tl123313123505_)) + (let ((_e123318123508_ (let () (declare (not safe)) (gx#stx-e - _tl123331123523_)))) - (let ((_tl123334123531_ + _tl123313123505_)))) + (let ((_tl123316123513_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123336123526_))) - (_hd123335123529_ - (let () (declare (not safe)) (##car _e123336123526_)))) + (##cdr _e123318123508_))) + (_hd123317123511_ + (let () (declare (not safe)) (##car _e123318123508_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123335123529_)) - (let ((_e123339123534_ + (gx#stx-pair? _hd123317123511_)) + (let ((_e123321123516_ (let () (declare (not safe)) - (gx#stx-e _hd123335123529_)))) - (let ((_tl123337123539_ + (gx#stx-e _hd123317123511_)))) + (let ((_tl123319123521_ (let () (declare (not safe)) - (##cdr _e123339123534_))) - (_hd123338123537_ + (##cdr _e123321123516_))) + (_hd123320123519_ (let () (declare (not safe)) - (##car _e123339123534_)))) + (##car _e123321123516_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123338123537_)) - (let ((_e123342123542_ + (gx#stx-pair? _hd123320123519_)) + (let ((_e123324123524_ (let () (declare (not safe)) - (gx#stx-e _hd123338123537_)))) - (let ((_tl123340123547_ + (gx#stx-e _hd123320123519_)))) + (let ((_tl123322123529_ (let () (declare (not safe)) - (##cdr _e123342123542_))) - (_hd123341123545_ + (##cdr _e123324123524_))) + (_hd123323123527_ (let () (declare (not safe)) - (##car _e123342123542_)))) + (##car _e123324123524_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123341123545_)) - (let ((_e123345123550_ + (gx#stx-pair? _hd123323123527_)) + (let ((_e123327123532_ (let () (declare (not safe)) - (gx#stx-e _hd123341123545_)))) - (let ((_tl123343123555_ + (gx#stx-e _hd123323123527_)))) + (let ((_tl123325123537_ (let () (declare (not safe)) - (##cdr _e123345123550_))) - (_hd123344123553_ + (##cdr _e123327123532_))) + (_hd123326123535_ (let () (declare (not safe)) - (##car _e123345123550_)))) + (##car _e123327123532_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123343123555_)) + (gx#stx-null? _tl123325123537_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123340123547_)) - (let ((_e123348123558_ + _tl123322123529_)) + (let ((_e123330123540_ (let () (declare (not safe)) (gx#stx-e - _tl123340123547_)))) - (let ((_tl123346123563_ + _tl123322123529_)))) + (let ((_tl123328123545_ (let () (declare (not safe)) - (##cdr _e123348123558_))) - (_hd123347123561_ + (##cdr _e123330123540_))) + (_hd123329123543_ (let () (declare (not safe)) - (##car _e123348123558_)))) + (##car _e123330123540_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123346123563_)) + _tl123328123545_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl123337123539_)) + _tl123319123521_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl123334123531_)) - (let ((_e123351123566_ + (gx#stx-pair? _tl123316123513_)) + (let ((_e123333123548_ (let () (declare (not safe)) - (gx#stx-e _tl123334123531_)))) - (let ((_tl123349123571_ + (gx#stx-e _tl123316123513_)))) + (let ((_tl123331123553_ (let () (declare (not safe)) - (##cdr _e123351123566_))) - (_hd123350123569_ + (##cdr _e123333123548_))) + (_hd123332123551_ (let () (declare (not safe)) - (##car _e123351123566_)))) + (##car _e123333123548_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123350123569_)) - (let ((_e123354123574_ + (gx#stx-pair? _hd123332123551_)) + (let ((_e123336123556_ (let () (declare (not safe)) - (gx#stx-e _hd123350123569_)))) - (let ((_tl123352123579_ + (gx#stx-e _hd123332123551_)))) + (let ((_tl123334123561_ (let () (declare (not safe)) - (##cdr _e123354123574_))) - (_hd123353123577_ + (##cdr _e123336123556_))) + (_hd123335123559_ (let () (declare (not safe)) - (##car _e123354123574_)))) + (##car _e123336123556_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123353123577_)) + (gx#identifier? _hd123335123559_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd123353123577_)) + _hd123335123559_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123352123579_)) - (let ((_e123357123582_ + _tl123334123561_)) + (let ((_e123339123564_ (let () (declare (not safe)) (gx#stx-e - _tl123352123579_)))) - (let ((_tl123355123587_ + _tl123334123561_)))) + (let ((_tl123337123569_ (let () (declare (not safe)) - (##cdr _e123357123582_))) - (_hd123356123585_ + (##cdr _e123339123564_))) + (_hd123338123567_ (let () (declare (not safe)) - (##car _e123357123582_)))) + (##car _e123339123564_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123356123585_)) - (let ((_e123360123590_ + _hd123338123567_)) + (let ((_e123342123572_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd123356123585_)))) - (let ((_tl123358123595_ - (let () (declare (not safe)) (##cdr _e123360123590_))) - (_hd123359123593_ + (gx#stx-e _hd123338123567_)))) + (let ((_tl123340123577_ + (let () (declare (not safe)) (##cdr _e123342123572_))) + (_hd123341123575_ (let () (declare (not safe)) - (##car _e123360123590_)))) + (##car _e123342123572_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123355123587_)) - (let ((_e123363123598_ + (gx#stx-pair? _tl123337123569_)) + (let ((_e123345123580_ (let () (declare (not safe)) - (gx#stx-e _tl123355123587_)))) - (let ((_tl123361123603_ + (gx#stx-e _tl123337123569_)))) + (let ((_tl123343123585_ (let () (declare (not safe)) - (##cdr _e123363123598_))) - (_hd123362123601_ + (##cdr _e123345123580_))) + (_hd123344123583_ (let () (declare (not safe)) - (##car _e123363123598_)))) + (##car _e123345123580_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123362123601_)) - (let ((_e123366123606_ + (gx#stx-pair? _hd123344123583_)) + (let ((_e123348123588_ (let () (declare (not safe)) - (gx#stx-e _hd123362123601_)))) - (let ((_tl123364123611_ + (gx#stx-e _hd123344123583_)))) + (let ((_tl123346123593_ (let () (declare (not safe)) - (##cdr _e123366123606_))) - (_hd123365123609_ + (##cdr _e123348123588_))) + (_hd123347123591_ (let () (declare (not safe)) - (##car _e123366123606_)))) + (##car _e123348123588_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123365123609_)) + (gx#identifier? _hd123347123591_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd123365123609_)) + _hd123347123591_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123364123611_)) - (let ((_e123369123614_ + _tl123346123593_)) + (let ((_e123351123596_ (let () (declare (not safe)) (gx#stx-e - _tl123364123611_)))) - (let ((_tl123367123619_ + _tl123346123593_)))) + (let ((_tl123349123601_ (let () (declare (not safe)) - (##cdr _e123369123614_))) - (_hd123368123617_ + (##cdr _e123351123596_))) + (_hd123350123599_ (let () (declare (not safe)) - (##car _e123369123614_)))) + (##car _e123351123596_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123368123617_)) - (let ((_e123372123622_ + _hd123350123599_)) + (let ((_e123354123604_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd123368123617_)))) - (let ((_tl123370123627_ - (let () (declare (not safe)) (##cdr _e123372123622_))) - (_hd123371123625_ + (gx#stx-e _hd123350123599_)))) + (let ((_tl123352123609_ + (let () (declare (not safe)) (##cdr _e123354123604_))) + (_hd123353123607_ (let () (declare (not safe)) - (##car _e123372123622_)))) + (##car _e123354123604_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123371123625_)) + (gx#identifier? _hd123353123607_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123371123625_)) + (gx#stx-eq? '%#ref _hd123353123607_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123370123627_)) - (let ((_e123375123630_ + (gx#stx-pair? _tl123352123609_)) + (let ((_e123357123612_ (let () (declare (not safe)) - (gx#stx-e _tl123370123627_)))) - (let ((_tl123373123635_ + (gx#stx-e _tl123352123609_)))) + (let ((_tl123355123617_ (let () (declare (not safe)) - (##cdr _e123375123630_))) - (_hd123374123633_ + (##cdr _e123357123612_))) + (_hd123356123615_ (let () (declare (not safe)) - (##car _e123375123630_)))) + (##car _e123357123612_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123373123635_)) + (gx#stx-null? _tl123355123617_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123367123619_)) - (let ((_e123378123638_ + (gx#stx-pair? _tl123349123601_)) + (let ((_e123360123620_ (let () (declare (not safe)) (gx#stx-e - _tl123367123619_)))) - (let ((_tl123376123643_ + _tl123349123601_)))) + (let ((_tl123358123625_ (let () (declare (not safe)) - (##cdr _e123378123638_))) - (_hd123377123641_ + (##cdr _e123360123620_))) + (_hd123359123623_ (let () (declare (not safe)) - (##car _e123378123638_)))) + (##car _e123360123620_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123377123641_)) - (let ((_e123381123646_ + _hd123359123623_)) + (let ((_e123363123628_ (let () (declare (not safe)) (gx#stx-e - _hd123377123641_)))) - (let ((_tl123379123651_ + _hd123359123623_)))) + (let ((_tl123361123633_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123381123646_))) - (_hd123380123649_ - (let () (declare (not safe)) (##car _e123381123646_)))) + (##cdr _e123363123628_))) + (_hd123362123631_ + (let () (declare (not safe)) (##car _e123363123628_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123380123649_)) + (gx#identifier? _hd123362123631_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123380123649_)) + (gx#stx-eq? '%#ref _hd123362123631_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123379123651_)) - (let ((_e123384123654_ + (gx#stx-pair? _tl123361123633_)) + (let ((_e123366123636_ (let () (declare (not safe)) - (gx#stx-e _tl123379123651_)))) - (let ((_tl123382123659_ + (gx#stx-e _tl123361123633_)))) + (let ((_tl123364123641_ (let () (declare (not safe)) - (##cdr _e123384123654_))) - (_hd123383123657_ + (##cdr _e123366123636_))) + (_hd123365123639_ (let () (declare (not safe)) - (##car _e123384123654_)))) + (##car _e123366123636_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123382123659_)) + (gx#stx-null? _tl123364123641_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123376123643_)) - (let ((_e123387123662_ + (gx#stx-pair? _tl123358123625_)) + (let ((_e123369123644_ (let () (declare (not safe)) - (gx#stx-e _tl123376123643_)))) - (let ((_tl123385123667_ + (gx#stx-e _tl123358123625_)))) + (let ((_tl123367123649_ (let () (declare (not safe)) - (##cdr _e123387123662_))) - (_hd123386123665_ + (##cdr _e123369123644_))) + (_hd123368123647_ (let () (declare (not safe)) - (##car _e123387123662_)))) + (##car _e123369123644_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123386123665_)) - (let ((_e123390123670_ + _hd123368123647_)) + (let ((_e123372123652_ (let () (declare (not safe)) (gx#stx-e - _hd123386123665_)))) - (let ((_tl123388123675_ + _hd123368123647_)))) + (let ((_tl123370123657_ (let () (declare (not safe)) - (##cdr _e123390123670_))) - (_hd123389123673_ + (##cdr _e123372123652_))) + (_hd123371123655_ (let () (declare (not safe)) - (##car _e123390123670_)))) + (##car _e123372123652_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123389123673_)) + _hd123371123655_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123389123673_)) + _hd123371123655_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl123388123675_)) - (let ((_e123393123678_ + (gx#stx-pair? _tl123370123657_)) + (let ((_e123375123660_ (let () (declare (not safe)) - (gx#stx-e _tl123388123675_)))) - (let ((_tl123391123683_ + (gx#stx-e _tl123370123657_)))) + (let ((_tl123373123665_ (let () (declare (not safe)) - (##cdr _e123393123678_))) - (_hd123392123681_ + (##cdr _e123375123660_))) + (_hd123374123663_ (let () (declare (not safe)) - (##car _e123393123678_)))) + (##car _e123375123660_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123391123683_)) + (gx#stx-null? _tl123373123665_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123361123603_)) + (gx#stx-null? _tl123343123585_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123349123571_)) + (gx#stx-null? _tl123331123553_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl123328123515_)) + (gx#stx-null? _tl123310123497_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl123319123491_)) + _tl123301123473_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123316123483_)) - (let ((_e123396123686_ + _tl123298123465_)) + (let ((_e123378123668_ (let () (declare (not safe)) (gx#stx-e - _tl123316123483_)))) - (let ((_tl123394123691_ + _tl123298123465_)))) + (let ((_tl123376123673_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123396123686_))) - (_hd123395123689_ - (let () (declare (not safe)) (##car _e123396123686_)))) + (##cdr _e123378123668_))) + (_hd123377123671_ + (let () (declare (not safe)) (##car _e123378123668_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123395123689_)) - (let ((_e123399123694_ + (gx#stx-pair? _hd123377123671_)) + (let ((_e123381123676_ (let () (declare (not safe)) - (gx#stx-e _hd123395123689_)))) - (let ((_tl123397123699_ + (gx#stx-e _hd123377123671_)))) + (let ((_tl123379123681_ (let () (declare (not safe)) - (##cdr _e123399123694_))) - (_hd123398123697_ + (##cdr _e123381123676_))) + (_hd123380123679_ (let () (declare (not safe)) - (##car _e123399123694_)))) + (##car _e123381123676_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123398123697_)) + (gx#identifier? _hd123380123679_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd123398123697_)) + (gx#stx-eq? '%#lambda _hd123380123679_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123397123699_)) - (let ((_e123402123702_ + (gx#stx-pair? _tl123379123681_)) + (let ((_e123384123684_ (let () (declare (not safe)) - (gx#stx-e _tl123397123699_)))) - (let ((_tl123400123707_ + (gx#stx-e _tl123379123681_)))) + (let ((_tl123382123689_ (let () (declare (not safe)) - (##cdr _e123402123702_))) - (_hd123401123705_ + (##cdr _e123384123684_))) + (_hd123383123687_ (let () (declare (not safe)) - (##car _e123402123702_)))) + (##car _e123384123684_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123400123707_)) - (let ((_e123405123710_ + (gx#stx-pair? _tl123382123689_)) + (let ((_e123387123692_ (let () (declare (not safe)) (gx#stx-e - _tl123400123707_)))) - (let ((_tl123403123715_ + _tl123382123689_)))) + (let ((_tl123385123697_ (let () (declare (not safe)) - (##cdr _e123405123710_))) - (_hd123404123713_ + (##cdr _e123387123692_))) + (_hd123386123695_ (let () (declare (not safe)) - (##car _e123405123710_)))) + (##car _e123387123692_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd123404123713_)) - (let ((_e123408123718_ + _hd123386123695_)) + (let ((_e123390123700_ (let () (declare (not safe)) (gx#stx-e - _hd123404123713_)))) - (let ((_tl123406123723_ + _hd123386123695_)))) + (let ((_tl123388123705_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123408123718_))) - (_hd123407123721_ - (let () (declare (not safe)) (##car _e123408123718_)))) + (##cdr _e123390123700_))) + (_hd123389123703_ + (let () (declare (not safe)) (##car _e123390123700_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123407123721_)) + (gx#identifier? _hd123389123703_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd123407123721_)) + (gx#stx-eq? '%#call _hd123389123703_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123406123723_)) - (let ((_e123411123726_ + (gx#stx-pair? _tl123388123705_)) + (let ((_e123393123708_ (let () (declare (not safe)) - (gx#stx-e _tl123406123723_)))) - (let ((_tl123409123731_ + (gx#stx-e _tl123388123705_)))) + (let ((_tl123391123713_ (let () (declare (not safe)) - (##cdr _e123411123726_))) - (_hd123410123729_ + (##cdr _e123393123708_))) + (_hd123392123711_ (let () (declare (not safe)) - (##car _e123411123726_)))) + (##car _e123393123708_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123410123729_)) - (let ((_e123414123734_ + (gx#stx-pair? _hd123392123711_)) + (let ((_e123396123716_ (let () (declare (not safe)) - (gx#stx-e _hd123410123729_)))) - (let ((_tl123412123739_ + (gx#stx-e _hd123392123711_)))) + (let ((_tl123394123721_ (let () (declare (not safe)) - (##cdr _e123414123734_))) - (_hd123413123737_ + (##cdr _e123396123716_))) + (_hd123395123719_ (let () (declare (not safe)) - (##car _e123414123734_)))) + (##car _e123396123716_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd123413123737_)) + _hd123395123719_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123413123737_)) + _hd123395123719_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123412123739_)) - (let ((_e123417123742_ + _tl123394123721_)) + (let ((_e123399123724_ (let () (declare (not safe)) (gx#stx-e - _tl123412123739_)))) - (let ((_tl123415123747_ + _tl123394123721_)))) + (let ((_tl123397123729_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123417123742_))) - (_hd123416123745_ - (let () (declare (not safe)) (##car _e123417123742_)))) + (##cdr _e123399123724_))) + (_hd123398123727_ + (let () (declare (not safe)) (##car _e123399123724_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123415123747_)) + (gx#stx-null? _tl123397123729_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123409123731_)) - (let ((_e123420123750_ + (gx#stx-pair? _tl123391123713_)) + (let ((_e123402123732_ (let () (declare (not safe)) - (gx#stx-e _tl123409123731_)))) - (let ((_tl123418123755_ + (gx#stx-e _tl123391123713_)))) + (let ((_tl123400123737_ (let () (declare (not safe)) - (##cdr _e123420123750_))) - (_hd123419123753_ + (##cdr _e123402123732_))) + (_hd123401123735_ (let () (declare (not safe)) - (##car _e123420123750_)))) + (##car _e123402123732_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123419123753_)) - (let ((_e123423123758_ + (gx#stx-pair? _hd123401123735_)) + (let ((_e123405123740_ (let () (declare (not safe)) - (gx#stx-e _hd123419123753_)))) - (let ((_tl123421123763_ + (gx#stx-e _hd123401123735_)))) + (let ((_tl123403123745_ (let () (declare (not safe)) - (##cdr _e123423123758_))) - (_hd123422123761_ + (##cdr _e123405123740_))) + (_hd123404123743_ (let () (declare (not safe)) - (##car _e123423123758_)))) + (##car _e123405123740_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123422123761_)) + (gx#identifier? _hd123404123743_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd123422123761_)) + _hd123404123743_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123421123763_)) - (let ((_e123426123766_ + _tl123403123745_)) + (let ((_e123408123748_ (let () (declare (not safe)) (gx#stx-e - _tl123421123763_)))) - (let ((_tl123424123771_ + _tl123403123745_)))) + (let ((_tl123406123753_ (let () (declare (not safe)) - (##cdr _e123426123766_))) - (_hd123425123769_ + (##cdr _e123408123748_))) + (_hd123407123751_ (let () (declare (not safe)) - (##car _e123426123766_)))) + (##car _e123408123748_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123424123771_)) + _tl123406123753_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123418123755_)) - (let ((_e123429123774_ + _tl123400123737_)) + (let ((_e123411123756_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl123418123755_)))) - (let ((_tl123427123779_ + (gx#stx-e _tl123400123737_)))) + (let ((_tl123409123761_ (let () (declare (not safe)) - (##cdr _e123429123774_))) - (_hd123428123777_ + (##cdr _e123411123756_))) + (_hd123410123759_ (let () (declare (not safe)) - (##car _e123429123774_)))) + (##car _e123411123756_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123428123777_)) - (let ((_e123432123782_ + (gx#stx-pair? _hd123410123759_)) + (let ((_e123414123764_ (let () (declare (not safe)) - (gx#stx-e _hd123428123777_)))) - (let ((_tl123430123787_ + (gx#stx-e _hd123410123759_)))) + (let ((_tl123412123769_ (let () (declare (not safe)) - (##cdr _e123432123782_))) - (_hd123431123785_ + (##cdr _e123414123764_))) + (_hd123413123767_ (let () (declare (not safe)) - (##car _e123432123782_)))) + (##car _e123414123764_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123431123785_)) + (gx#identifier? _hd123413123767_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd123431123785_)) + _hd123413123767_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123430123787_)) - (let ((_e123435123790_ + (gx#stx-pair? _tl123412123769_)) + (let ((_e123417123772_ (let () (declare (not safe)) (gx#stx-e - _tl123430123787_)))) - (let ((_tl123433123795_ + _tl123412123769_)))) + (let ((_tl123415123777_ (let () (declare (not safe)) - (##cdr _e123435123790_))) - (_hd123434123793_ + (##cdr _e123417123772_))) + (_hd123416123775_ (let () (declare (not safe)) - (##car _e123435123790_)))) + (##car _e123417123772_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123433123795_)) + _tl123415123777_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123427123779_)) - (let ((_e123438123798_ + _tl123409123761_)) + (let ((_e123420123780_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl123427123779_)))) - (let ((_tl123436123803_ - (let () (declare (not safe)) (##cdr _e123438123798_))) - (_hd123437123801_ + (gx#stx-e _tl123409123761_)))) + (let ((_tl123418123785_ + (let () (declare (not safe)) (##cdr _e123420123780_))) + (_hd123419123783_ (let () (declare (not safe)) - (##car _e123438123798_)))) + (##car _e123420123780_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123437123801_)) - (let ((_e123441123806_ + (gx#stx-pair? _hd123419123783_)) + (let ((_e123423123788_ (let () (declare (not safe)) - (gx#stx-e _hd123437123801_)))) - (let ((_tl123439123811_ + (gx#stx-e _hd123419123783_)))) + (let ((_tl123421123793_ (let () (declare (not safe)) - (##cdr _e123441123806_))) - (_hd123440123809_ + (##cdr _e123423123788_))) + (_hd123422123791_ (let () (declare (not safe)) - (##car _e123441123806_)))) + (##car _e123423123788_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123440123809_)) + (gx#identifier? _hd123422123791_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123440123809_)) + (gx#stx-eq? '%#ref _hd123422123791_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123439123811_)) - (let ((_e123444123814_ + (gx#stx-pair? _tl123421123793_)) + (let ((_e123426123796_ (let () (declare (not safe)) - (gx#stx-e _tl123439123811_)))) - (let ((_tl123442123819_ + (gx#stx-e _tl123421123793_)))) + (let ((_tl123424123801_ (let () (declare (not safe)) - (##cdr _e123444123814_))) - (_hd123443123817_ + (##cdr _e123426123796_))) + (_hd123425123799_ (let () (declare (not safe)) - (##car _e123444123814_)))) + (##car _e123426123796_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl123442123819_)) + _tl123424123801_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl123436123803_)) - (let ((_e123447123822_ + _tl123418123785_)) + (let ((_e123429123804_ (let () (declare (not safe)) (gx#stx-e - _tl123436123803_)))) - (let ((_tl123445123827_ + _tl123418123785_)))) + (let ((_tl123427123809_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e123447123822_))) - (_hd123446123825_ - (let () (declare (not safe)) (##car _e123447123822_)))) + (##cdr _e123429123804_))) + (_hd123428123807_ + (let () (declare (not safe)) (##car _e123429123804_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123446123825_)) - (let ((_e123450123830_ + (gx#stx-pair? _hd123428123807_)) + (let ((_e123432123812_ (let () (declare (not safe)) - (gx#stx-e _hd123446123825_)))) - (let ((_tl123448123835_ + (gx#stx-e _hd123428123807_)))) + (let ((_tl123430123817_ (let () (declare (not safe)) - (##cdr _e123450123830_))) - (_hd123449123833_ + (##cdr _e123432123812_))) + (_hd123431123815_ (let () (declare (not safe)) - (##car _e123450123830_)))) + (##car _e123432123812_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd123449123833_)) + (gx#identifier? _hd123431123815_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd123449123833_)) + (gx#stx-eq? '%#ref _hd123431123815_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl123448123835_)) - (let ((_e123453123838_ + (gx#stx-pair? _tl123430123817_)) + (let ((_e123435123820_ (let () (declare (not safe)) - (gx#stx-e _tl123448123835_)))) - (let ((_tl123451123843_ + (gx#stx-e _tl123430123817_)))) + (let ((_tl123433123825_ (let () (declare (not safe)) - (##cdr _e123453123838_))) - (_hd123452123841_ + (##cdr _e123435123820_))) + (_hd123434123823_ (let () (declare (not safe)) - (##car _e123453123838_)))) + (##car _e123435123820_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123451123843_)) + (gx#stx-null? _tl123433123825_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl123445123827_)) + _tl123427123809_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl123403123715_)) + _tl123385123697_)) (if (let () (declare (not safe)) (gx#stx-null? - _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_)))))) + _tl123376123673_)) + (___kont129703129704_ + _hd123434123823_ + _hd123425123799_ + _hd123407123751_ + _hd123398123727_ + _hd123383123687_ + _hd123374123663_ + _hd123365123639_ + _hd123356123615_ + _hd123341123575_ + _hd123326123535_ + _hd123308123487_) + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)))) + (___kont129705129706_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129705129706_)))) + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)))) + (___kont129705129706_)) + (___kont129705129706_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)))) + (___kont129705129706_)) + (___kont129705129706_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)))) + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129705129706_)))) + (___kont129705129706_)))) + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129705129706_)))) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129705129706_)))) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)))) + (___kont129705129706_)))) + (___kont129705129706_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)))) + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)))) + (___kont129705129706_)))) + (___kont129705129706_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)))) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont129705129706_)))) + (___kont129705129706_)))) + (___kont129705129706_)) + (___kont129705129706_)) + (___kont129705129706_)))) + (___kont129705129706_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_stx123039_ _id123040_ _clauses123041_ _gensym?123042_) - (let _lp123044_ ((_rest123046_ _clauses123041_) - (_ids123047_ '()) - (_impls123048_ '()) - (_clauses123049_ '())) - (let* ((_rest123050123058_ _rest123046_) - (_else123052123066_ + (lambda (_stx123021_ _id123022_ _clauses123023_ _gensym?123024_) + (let _lp123026_ ((_rest123028_ _clauses123023_) + (_ids123029_ '()) + (_impls123030_ '()) + (_clauses123031_ '())) + (let* ((_rest123032123040_ _rest123028_) + (_else123034123048_ (lambda () - (values (reverse _ids123047_) - (reverse _impls123048_) - (reverse _clauses123049_)))) - (_K123054123271_ - (lambda (_rest123069_ _clause123070_) + (values (reverse _ids123029_) + (reverse _impls123030_) + (reverse _clauses123031_)))) + (_K123036123253_ + (lambda (_rest123051_ _clause123052_) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _clause123070_)) - (let ((__tmp130813 + (gxc#dispatch-lambda-form? _clause123052_)) + (let ((__tmp130795 (let () (declare (not safe)) - (cons _clause123070_ _clauses123049_)))) + (cons _clause123052_ _clauses123031_)))) (declare (not safe)) - (_lp123044_ - _rest123069_ - _ids123047_ - _impls123048_ - __tmp130813)) - (let* ((_g123072123083_ - (lambda (_g123073123080_) + (_lp123026_ + _rest123051_ + _ids123029_ + _impls123030_ + __tmp130795)) + (let* ((_g123054123065_ + (lambda (_g123055123062_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g123073123080_)))) - (_g123071123268_ - (lambda (_g123073123086_) + _g123055123062_)))) + (_g123053123250_ + (lambda (_g123055123068_) (if (let () (declare (not safe)) - (gx#stx-pair? _g123073123086_)) - (let ((_e123078123088_ + (gx#stx-pair? _g123055123068_)) + (let ((_e123060123070_ (let () (declare (not safe)) - (gx#stx-e _g123073123086_)))) - (let ((_hd123077123091_ + (gx#stx-e _g123055123068_)))) + (let ((_hd123059123073_ (let () (declare (not safe)) - (##car _e123078123088_))) - (_tl123076123093_ + (##car _e123060123070_))) + (_tl123058123075_ (let () (declare (not safe)) - (##cdr _e123078123088_)))) - ((lambda (_L123096_ _L123097_) - (let* ((_id123114_ - (let ((__tmp130760 + (##cdr _e123060123070_)))) + ((lambda (_L123078_ _L123079_) + (let* ((_id123096_ + (let ((__tmp130742 (let () (declare (not safe)) (gx#stx-e - _id123040_))) - (__tmp130759 - (length _clauses123049_)) - (__tmp130758 - (if _gensym?123042_ + _id123022_))) + (__tmp130741 + (length _clauses123031_)) + (__tmp130740 + (if _gensym?123024_ (gensym '__) '""))) (declare (not safe)) (make-symbol__1 - __tmp130760 + __tmp130742 '"__" - __tmp130759 - __tmp130758))) - (_id123116_ - (let ((__tmp130761 + __tmp130741 + __tmp130740))) + (_id123098_ + (let ((__tmp130743 (let () (declare (not safe)) (gx#stx-source - _stx123039_)))) + _stx123021_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id123114_ - __tmp130761))) - (_impl123118_ - (let ((__tmp130762 - (let ((__tmp130764 + _id123096_ + __tmp130743))) + (_impl123100_ + (let ((__tmp130744 + (let ((__tmp130746 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp130763 + (__tmp130745 (let () (declare (not safe)) - (cons _L123097_ _L123096_)))) + (cons _L123079_ _L123078_)))) (declare (not safe)) - (cons __tmp130764 __tmp130763)))) + (cons __tmp130746 __tmp130745)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130762 _stx123039_))) + (gxc#xform-wrap-source __tmp130744 _stx123021_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_clause123265_ - (let* ((___stx130103130104_ - _L123097_) - (_g123122123150_ + (_clause123247_ + (let* ((___stx130085130086_ + _L123079_) + (_g123104123132_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -10876,1828 +10876,1828 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130103130104_))))) - (let ((___kont130105130106_ - (lambda (_L123244_) - (let ((__tmp130765 - (let ((__tmp130766 - (let ((__tmp130767 - (let ((__tmp130768 - (let ((__tmp130774 - (let ((__tmp130775 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id123116_ '())))) + ___stx130085130086_))))) + (let ((___kont130087130088_ + (lambda (_L123226_) + (let ((__tmp130747 + (let ((__tmp130748 + (let ((__tmp130749 + (let ((__tmp130750 + (let ((__tmp130756 + (let ((__tmp130757 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _id123098_ '())))) (declare (not safe)) - (cons '%#ref __tmp130775))) - (__tmp130769 - (let ((__tmp130770 - (lambda (_g123254123257_ _g123255123259_) - (let ((__tmp130771 - (let ((__tmp130773 + (cons '%#ref __tmp130757))) + (__tmp130751 + (let ((__tmp130752 + (lambda (_g123236123239_ _g123237123241_) + (let ((__tmp130753 + (let ((__tmp130755 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp130772 + (__tmp130754 (let () (declare (not safe)) - (cons _g123254123257_ '())))) + (cons _g123236123239_ '())))) (declare (not safe)) - (cons __tmp130773 __tmp130772)))) + (cons __tmp130755 __tmp130754)))) (declare (not safe)) - (cons __tmp130771 _g123255123259_))))) + (cons __tmp130753 _g123237123241_))))) (declare (not safe)) - (foldr1 __tmp130770 '() _L123244_)))) + (foldr1 __tmp130752 '() _L123226_)))) (declare (not safe)) - (cons __tmp130774 __tmp130769)))) + (cons __tmp130756 __tmp130751)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp130768)))) + (cons '%#call __tmp130750)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130767 - _stx123039_)))) + __tmp130749 + _stx123021_)))) (declare (not safe)) - (cons __tmp130766 '())))) + (cons __tmp130748 '())))) (declare (not safe)) - (cons _L123097_ __tmp130765)))) - (___kont130109130110_ - (lambda (_L123195_ _L123196_) - (let ((__tmp130776 - (let ((__tmp130777 - (let ((__tmp130778 - (let ((__tmp130779 - (let ((__tmp130793 - (let ((__tmp130794 + (cons _L123079_ __tmp130747)))) + (___kont130091130092_ + (lambda (_L123177_ _L123178_) + (let ((__tmp130758 + (let ((__tmp130759 + (let ((__tmp130760 + (let ((__tmp130761 + (let ((__tmp130775 + (let ((__tmp130776 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp130794))) - (__tmp130780 - (let ((__tmp130791 - (let ((__tmp130792 + (cons '%#ref __tmp130776))) + (__tmp130762 + (let ((__tmp130773 + (let ((__tmp130774 (let () (declare (not safe)) - (cons _id123116_ '())))) + (cons _id123098_ '())))) (declare (not safe)) - (cons '%#ref __tmp130792))) - (__tmp130781 - (let ((__tmp130787 - (let ((__tmp130788 - (let ((__tmp130790 + (cons '%#ref __tmp130774))) + (__tmp130763 + (let ((__tmp130769 + (let ((__tmp130770 + (let ((__tmp130772 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp130789 + (__tmp130771 (let () (declare (not safe)) - (cons _L123195_ '())))) + (cons _L123177_ '())))) (declare (not safe)) - (cons __tmp130790 __tmp130789)))) + (cons __tmp130772 __tmp130771)))) (declare (not safe)) - (cons __tmp130788 '()))) - (__tmp130782 - (let ((__tmp130783 - (lambda (_g123207123210_ - _g123208123212_) - (let ((__tmp130784 - (let ((__tmp130786 + (cons __tmp130770 '()))) + (__tmp130764 + (let ((__tmp130765 + (lambda (_g123189123192_ + _g123190123194_) + (let ((__tmp130766 + (let ((__tmp130768 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp130785 + (__tmp130767 (let () (declare (not safe)) - (cons _g123207123210_ + (cons _g123189123192_ '())))) (declare (not safe)) - (cons __tmp130786 - __tmp130785)))) + (cons __tmp130768 + __tmp130767)))) (declare (not safe)) - (cons __tmp130784 - _g123208123212_))))) + (cons __tmp130766 + _g123190123194_))))) (declare (not safe)) - (foldr1 __tmp130783 '() _L123196_)))) + (foldr1 __tmp130765 '() _L123178_)))) (declare (not safe)) - (foldr1 cons __tmp130787 __tmp130782)))) + (foldr1 cons __tmp130769 __tmp130764)))) (declare (not safe)) - (cons __tmp130791 __tmp130781)))) + (cons __tmp130773 __tmp130763)))) (declare (not safe)) - (cons __tmp130793 __tmp130780)))) + (cons __tmp130775 __tmp130762)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp130779)))) + (cons '%#call __tmp130761)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130778 - _stx123039_)))) + __tmp130760 + _stx123021_)))) (declare (not safe)) - (cons __tmp130777 '())))) + (cons __tmp130759 '())))) (declare (not safe)) - (cons _L123097_ __tmp130776)))) - (___kont130113130114_ - (lambda (_L123155_) - (let ((__tmp130795 - (let ((__tmp130796 - (let ((__tmp130797 - (let ((__tmp130798 - (let ((__tmp130806 - (let ((__tmp130807 + (cons _L123079_ __tmp130758)))) + (___kont130095130096_ + (lambda (_L123137_) + (let ((__tmp130777 + (let ((__tmp130778 + (let ((__tmp130779 + (let ((__tmp130780 + (let ((__tmp130788 + (let ((__tmp130789 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp130807))) - (__tmp130799 - (let ((__tmp130804 - (let ((__tmp130805 + (cons '%#ref __tmp130789))) + (__tmp130781 + (let ((__tmp130786 + (let ((__tmp130787 (let () (declare (not safe)) - (cons _id123116_ '())))) + (cons _id123098_ '())))) (declare (not safe)) - (cons '%#ref __tmp130805))) - (__tmp130800 - (let ((__tmp130801 - (let ((__tmp130803 + (cons '%#ref __tmp130787))) + (__tmp130782 + (let ((__tmp130783 + (let ((__tmp130785 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp130802 + (__tmp130784 (let () (declare (not safe)) - (cons _L123155_ '())))) + (cons _L123137_ '())))) (declare (not safe)) - (cons __tmp130803 __tmp130802)))) + (cons __tmp130785 __tmp130784)))) (declare (not safe)) - (cons __tmp130801 '())))) + (cons __tmp130783 '())))) (declare (not safe)) - (cons __tmp130804 __tmp130800)))) + (cons __tmp130786 __tmp130782)))) (declare (not safe)) - (cons __tmp130806 __tmp130799)))) + (cons __tmp130788 __tmp130781)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp130798)))) + (cons '%#call __tmp130780)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130797 - _stx123039_)))) + __tmp130779 + _stx123021_)))) (declare (not safe)) - (cons __tmp130796 '())))) + (cons __tmp130778 '())))) (declare (not safe)) - (cons _L123097_ __tmp130795))))) - (let* ((___match130128130129_ - (lambda (___splice130111130112_ - _target123136123171_ - _tl123138123173_) - (letrec ((_loop123139123176_ - (lambda (_hd123137123179_ - _arg123143123181_) + (cons _L123079_ __tmp130777))))) + (let* ((___match130110130111_ + (lambda (___splice130093130094_ + _target123118123153_ + _tl123120123155_) + (letrec ((_loop123121123158_ + (lambda (_hd123119123161_ + _arg123125123163_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123137123179_)) - (let ((_e123140123184_ + (gx#stx-pair? _hd123119123161_)) + (let ((_e123122123166_ (let () (declare (not safe)) (gx#stx-e - _hd123137123179_)))) - (let ((_lp-tl123142123189_ + _hd123119123161_)))) + (let ((_lp-tl123124123171_ (let () (declare (not safe)) - (##cdr _e123140123184_))) - (_lp-hd123141123187_ + (##cdr _e123122123166_))) + (_lp-hd123123123169_ (let () (declare (not safe)) - (##car _e123140123184_)))) - (let ((__tmp130808 + (##car _e123122123166_)))) + (let ((__tmp130790 (let () (declare (not safe)) - (cons _lp-hd123141123187_ - _arg123143123181_)))) + (cons _lp-hd123123123169_ + _arg123125123163_)))) (declare (not safe)) - (_loop123139123176_ - _lp-tl123142123189_ - __tmp130808)))) - (let ((_arg123144123192_ - (reverse _arg123143123181_))) - (___kont130109130110_ - _tl123138123173_ - _arg123144123192_)))))) + (_loop123121123158_ + _lp-tl123124123171_ + __tmp130790)))) + (let ((_arg123126123174_ + (reverse _arg123125123163_))) + (___kont130091130092_ + _tl123120123155_ + _arg123126123174_)))))) (let () (declare (not safe)) - (_loop123139123176_ - _target123136123171_ + (_loop123121123158_ + _target123118123153_ '()))))) - (___match130122130123_ - (lambda (___splice130107130108_ - _target123125123220_ - _tl123127123222_) - (letrec ((_loop123128123225_ - (lambda (_hd123126123228_ - _arg123132123230_) + (___match130104130105_ + (lambda (___splice130089130090_ + _target123107123202_ + _tl123109123204_) + (letrec ((_loop123110123207_ + (lambda (_hd123108123210_ + _arg123114123212_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd123126123228_)) - (let ((_e123129123233_ + (gx#stx-pair? _hd123108123210_)) + (let ((_e123111123215_ (let () (declare (not safe)) (gx#stx-e - _hd123126123228_)))) - (let ((_lp-tl123131123238_ + _hd123108123210_)))) + (let ((_lp-tl123113123220_ (let () (declare (not safe)) - (##cdr _e123129123233_))) - (_lp-hd123130123236_ + (##cdr _e123111123215_))) + (_lp-hd123112123218_ (let () (declare (not safe)) - (##car _e123129123233_)))) - (let ((__tmp130809 + (##car _e123111123215_)))) + (let ((__tmp130791 (let () (declare (not safe)) - (cons _lp-hd123130123236_ - _arg123132123230_)))) + (cons _lp-hd123112123218_ + _arg123114123212_)))) (declare (not safe)) - (_loop123128123225_ - _lp-tl123131123238_ - __tmp130809)))) - (let ((_arg123133123241_ - (reverse _arg123132123230_))) - (___kont130105130106_ - _arg123133123241_)))))) + (_loop123110123207_ + _lp-tl123113123220_ + __tmp130791)))) + (let ((_arg123115123223_ + (reverse _arg123114123212_))) + (___kont130087130088_ + _arg123115123223_)))))) (let () (declare (not safe)) - (_loop123128123225_ - _target123125123220_ + (_loop123110123207_ + _target123107123202_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? ___stx130103130104_)) - (let ((___splice130107130108_ + (gx#stx-pair/null? ___stx130085130086_)) + (let ((___splice130089130090_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx130103130104_ + ___stx130085130086_ '0)))) - (let ((_tl123127123222_ + (let ((_tl123109123204_ (let () (declare (not safe)) - (##vector-ref ___splice130107130108_ '1))) - (_target123125123220_ + (##vector-ref ___splice130089130090_ '1))) + (_target123107123202_ (let () (declare (not safe)) - (##vector-ref ___splice130107130108_ '0)))) + (##vector-ref ___splice130089130090_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl123127123222_)) - (___match130122130123_ - ___splice130107130108_ - _target123125123220_ - _tl123127123222_) - (___match130128130129_ - ___splice130107130108_ - _target123125123220_ - _tl123127123222_)))) - (___kont130113130114_ ___stx130103130104_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp130812 + (gx#stx-null? _tl123109123204_)) + (___match130104130105_ + ___splice130089130090_ + _target123107123202_ + _tl123109123204_) + (___match130110130111_ + ___splice130089130090_ + _target123107123202_ + _tl123109123204_)))) + (___kont130095130096_ ___stx130085130086_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp130794 (let () (declare (not safe)) - (cons _id123116_ - _ids123047_))) - (__tmp130811 + (cons _id123098_ + _ids123029_))) + (__tmp130793 (let () (declare (not safe)) - (cons _impl123118_ - _impls123048_))) - (__tmp130810 + (cons _impl123100_ + _impls123030_))) + (__tmp130792 (let () (declare (not safe)) - (cons _clause123265_ - _clauses123049_)))) + (cons _clause123247_ + _clauses123031_)))) (declare (not safe)) - (_lp123044_ - _rest123069_ - __tmp130812 - __tmp130811 - __tmp130810)))) - _tl123076123093_ - _hd123077123091_))) + (_lp123026_ + _rest123051_ + __tmp130794 + __tmp130793 + __tmp130792)))) + _tl123058123075_ + _hd123059123073_))) (let () (declare (not safe)) - (_g123072123083_ _g123073123086_)))))) + (_g123054123065_ _g123055123068_)))))) (declare (not safe)) - (_g123071123268_ _clause123070_)))))) - (if (let () (declare (not safe)) (##pair? _rest123050123058_)) - (let ((_hd123055123274_ + (_g123053123250_ _clause123052_)))))) + (if (let () (declare (not safe)) (##pair? _rest123032123040_)) + (let ((_hd123037123256_ (let () (declare (not safe)) - (##car _rest123050123058_))) - (_tl123056123276_ + (##car _rest123032123040_))) + (_tl123038123258_ (let () (declare (not safe)) - (##cdr _rest123050123058_)))) - (let* ((_clause123279_ _hd123055123274_) - (_rest123281_ _tl123056123276_)) + (##cdr _rest123032123040_)))) + (let* ((_clause123261_ _hd123037123256_) + (_rest123263_ _tl123038123258_)) (declare (not safe)) - (_K123054123271_ _rest123281_ _clause123279_))) - (let () (declare (not safe)) (_else123052123066_))))))) + (_K123036123253_ _rest123263_ _clause123261_))) + (let () (declare (not safe)) (_else123034123048_))))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_stx123286_ _id123287_ _clauses123288_) - (let ((_gensym?123290_ '#f)) + (lambda (_stx123268_ _id123269_ _clauses123270_) + (let ((_gensym?123272_ '#f)) (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx123286_ - _id123287_ - _clauses123288_ - _gensym?123290_)))) + _stx123268_ + _id123269_ + _clauses123270_ + _gensym?123272_)))) (define gxc#lift-case-lambda-clauses - (lambda _g130815_ - (let ((_g130814_ (let () (declare (not safe)) (##length _g130815_)))) - (cond ((let () (declare (not safe)) (##fx= _g130814_ 3)) - (apply (lambda (_stx123286_ _id123287_ _clauses123288_) + (lambda _g130797_ + (let ((_g130796_ (let () (declare (not safe)) (##length _g130797_)))) + (cond ((let () (declare (not safe)) (##fx= _g130796_ 3)) + (apply (lambda (_stx123268_ _id123269_ _clauses123270_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx123286_ - _id123287_ - _clauses123288_))) - _g130815_)) - ((let () (declare (not safe)) (##fx= _g130814_ 4)) - (apply (lambda (_stx123292_ - _id123293_ - _clauses123294_ - _gensym?123295_) + _stx123268_ + _id123269_ + _clauses123270_))) + _g130797_)) + ((let () (declare (not safe)) (##fx= _g130796_ 4)) + (apply (lambda (_stx123274_ + _id123275_ + _clauses123276_ + _gensym?123277_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx123292_ - _id123293_ - _clauses123294_ - _gensym?123295_))) - _g130815_)) + _stx123274_ + _id123275_ + _clauses123276_ + _gensym?123277_))) + _g130797_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g130815_)))))) + _g130797_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_self122315_ _stx122316_) - (letrec ((_case-lambda-clause-def122318_ - (lambda (_id123035_ _impl123036_) - (let ((__tmp130816 - (let ((__tmp130817 - (let ((__tmp130820 + (lambda (_self122297_ _stx122298_) + (letrec ((_case-lambda-clause-def122300_ + (lambda (_id123017_ _impl123018_) + (let ((__tmp130798 + (let ((__tmp130799 + (let ((__tmp130802 (let () (declare (not safe)) - (cons _id123035_ '()))) - (__tmp130818 - (let ((__tmp130819 + (cons _id123017_ '()))) + (__tmp130800 + (let ((__tmp130801 (let () (declare (not safe)) (gxc#compile-e__1 - _self122315_ - _impl123036_)))) + _self122297_ + _impl123018_)))) (declare (not safe)) - (cons __tmp130819 '())))) + (cons __tmp130801 '())))) (declare (not safe)) - (cons __tmp130820 __tmp130818)))) + (cons __tmp130802 __tmp130800)))) (declare (not safe)) - (cons '%#define-values __tmp130817)))) + (cons '%#define-values __tmp130799)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130816 _stx122316_)))) - (_opt-lambda-dispatch-name122319_ - (lambda (_id123031_) - (if (uninterned-symbol? _id123031_) - (let ((_str123033_ (symbol->string _id123031_))) + (gxc#xform-wrap-source __tmp130798 _stx122298_)))) + (_opt-lambda-dispatch-name122301_ + (lambda (_id123013_) + (if (uninterned-symbol? _id123013_) + (let ((_str123015_ (symbol->string _id123013_))) (if (let () (declare (not safe)) - (string-prefix? '"opt-lambda" _str123033_)) + (string-prefix? '"opt-lambda" _str123015_)) '"%" - _id123031_)) - _id123031_))) - (_kw-lambda-dispatch-name122320_ - (lambda (_id123026_ _name123027_) - (if (uninterned-symbol? _id123026_) - (let ((_str123029_ (symbol->string _id123026_))) + _id123013_)) + _id123013_))) + (_kw-lambda-dispatch-name122302_ + (lambda (_id123008_ _name123009_) + (if (uninterned-symbol? _id123008_) + (let ((_str123011_ (symbol->string _id123008_))) (if (let () (declare (not safe)) - (string-prefix? '"kw-lambda" _str123029_)) - _name123027_ - _id123026_)) - _id123026_)))) - (let* ((___stx130151130152_ _stx122316_) - (_g122325122384_ + (string-prefix? '"kw-lambda" _str123011_)) + _name123009_ + _id123008_)) + _id123008_)))) + (let* ((___stx130133130134_ _stx122298_) + (_g122307122366_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130151130152_))))) - (let ((___kont130153130154_ - (lambda (_L122935_ _L122936_) - (let* ((___stx130131130132_ _L122935_) - (_g122953122967_ + ___stx130133130134_))))) + (let ((___kont130135130136_ + (lambda (_L122917_ _L122918_) + (let* ((___stx130113130114_ _L122917_) + (_g122935122949_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130131130132_))))) - (let ((___kont130133130134_ - (lambda (_L123011_) _stx122316_)) - (___kont130135130136_ - (lambda (_L122980_) - (let ((_g130821_ + ___stx130113130114_))))) + (let ((___kont130115130116_ + (lambda (_L122993_) _stx122298_)) + (___kont130117130118_ + (lambda (_L122962_) + (let ((_g130803_ (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx122316_ - _L122936_ - _L122980_)))) + _stx122298_ + _L122918_ + _L122962_)))) (begin - (let ((_g130822_ + (let ((_g130804_ (let () (declare (not safe)) - (if (##values? _g130821_) - (##vector-length _g130821_) + (if (##values? _g130803_) + (##vector-length _g130803_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g130822_ 3))) + (##fx= _g130804_ 3))) (error "Context expects 3 values" - _g130822_))) - (let ((_ids122990_ + _g130804_))) + (let ((_ids122972_ (let () (declare (not safe)) - (##vector-ref _g130821_ 0))) - (_impls122991_ + (##vector-ref _g130803_ 0))) + (_impls122973_ (let () (declare (not safe)) - (##vector-ref _g130821_ 1))) - (_clauses122992_ + (##vector-ref _g130803_ 1))) + (_clauses122974_ (let () (declare (not safe)) - (##vector-ref _g130821_ 2)))) - (let* ((_g130823_ + (##vector-ref _g130803_ 2)))) + (let* ((_g130805_ (for-each gx#core-bind-runtime! - _ids122990_)) - (_defs122995_ - (map _case-lambda-clause-def122318_ - _ids122990_ - _impls122991_))) - (let ((__tmp130825 + _ids122972_)) + (_defs122977_ + (map _case-lambda-clause-def122300_ + _ids122972_ + _impls122973_))) + (let ((__tmp130807 (let () (declare (not safe)) (gxc#identifier-symbol - _L122936_))) - (__tmp130824 + _L122918_))) + (__tmp130806 (map gxc#identifier-symbol - _ids122990_))) + _ids122972_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp130825 + __tmp130807 '" => " - __tmp130824)) - (let ((__tmp130826 - (let ((__tmp130827 - (let ((__tmp130828 - (let ((__tmp130829 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130830 - (let ((__tmp130831 - (let ((__tmp130836 + __tmp130806)) + (let ((__tmp130808 + (let ((__tmp130809 + (let ((__tmp130810 + (let ((__tmp130811 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp130812 + (let ((__tmp130813 + (let ((__tmp130818 (let () (declare (not safe)) - (cons _L122936_ '()))) - (__tmp130832 - (let ((__tmp130833 - (let ((__tmp130835 + (cons _L122918_ '()))) + (__tmp130814 + (let ((__tmp130815 + (let ((__tmp130817 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons '%#case-lambda _clauses122992_))) - (__tmp130834 + (cons '%#case-lambda _clauses122974_))) + (__tmp130816 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda-expr)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130835 __tmp130834)))) + (gxc#xform-wrap-source __tmp130817 __tmp130816)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130833 '())))) + (cons __tmp130815 '())))) (declare (not safe)) - (cons __tmp130836 __tmp130832)))) + (cons __tmp130818 __tmp130814)))) (declare (not safe)) - (cons '%#define-values __tmp130831)))) + (cons '%#define-values __tmp130813)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130830 - _stx122316_)))) + __tmp130812 + _stx122298_)))) (declare (not safe)) - (cons __tmp130829 '())))) + (cons __tmp130811 '())))) (declare (not safe)) - (foldr1 cons __tmp130828 _defs122995_)))) + (foldr1 cons __tmp130810 _defs122977_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#begin __tmp130827)))) + (cons '%#begin __tmp130809)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130826 - _stx122316_))))))))) - (let ((___match130142130143_ - (lambda (_e122958123003_ - _hd122957123006_ - _tl122956123008_) - (let ((_L123011_ _tl122956123008_)) + __tmp130808 + _stx122298_))))))))) + (let ((___match130124130125_ + (lambda (_e122940122985_ + _hd122939122988_ + _tl122938122990_) + (let ((_L122993_ _tl122938122990_)) (if (let () (declare (not safe)) (andmap1 gxc#dispatch-lambda-form? - _L123011_)) - (___kont130133130134_ _L123011_) - (___kont130135130136_ - _tl122956123008_)))))) + _L122993_)) + (___kont130115130116_ _L122993_) + (___kont130117130118_ + _tl122938122990_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx130131130132_)) - (let ((_e122958123003_ + (gx#stx-pair? ___stx130113130114_)) + (let ((_e122940122985_ (let () (declare (not safe)) - (gx#stx-e ___stx130131130132_)))) - (let ((_tl122956123008_ + (gx#stx-e ___stx130113130114_)))) + (let ((_tl122938122990_ (let () (declare (not safe)) - (##cdr _e122958123003_))) - (_hd122957123006_ + (##cdr _e122940122985_))) + (_hd122939122988_ (let () (declare (not safe)) - (##car _e122958123003_)))) - (___match130142130143_ - _e122958123003_ - _hd122957123006_ - _tl122956123008_))) + (##car _e122940122985_)))) + (___match130124130125_ + _e122940122985_ + _hd122939122988_ + _tl122938122990_))) (let () (declare (not safe)) - (_g122953122967_)))))))) - (___kont130155130156_ - (lambda (_L122753_ _L122754_) - (let* ((_g122770122800_ - (lambda (_g122771122797_) + (_g122935122949_)))))))) + (___kont130137130138_ + (lambda (_L122735_ _L122736_) + (let* ((_g122752122782_ + (lambda (_g122753122779_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g122771122797_)))) - (_g122769122895_ - (lambda (_g122771122803_) + _g122753122779_)))) + (_g122751122877_ + (lambda (_g122753122785_) (if (let () (declare (not safe)) - (gx#stx-pair? _g122771122803_)) - (let ((_e122777122805_ + (gx#stx-pair? _g122753122785_)) + (let ((_e122759122787_ (let () (declare (not safe)) - (gx#stx-e _g122771122803_)))) - (let ((_hd122776122808_ + (gx#stx-e _g122753122785_)))) + (let ((_hd122758122790_ (let () (declare (not safe)) - (##car _e122777122805_))) - (_tl122775122810_ + (##car _e122759122787_))) + (_tl122757122792_ (let () (declare (not safe)) - (##cdr _e122777122805_)))) + (##cdr _e122759122787_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122775122810_)) - (let ((_e122780122813_ + (gx#stx-pair? _tl122757122792_)) + (let ((_e122762122795_ (let () (declare (not safe)) (gx#stx-e - _tl122775122810_)))) - (let ((_hd122779122816_ + _tl122757122792_)))) + (let ((_hd122761122798_ (let () (declare (not safe)) - (##car _e122780122813_))) - (_tl122778122818_ + (##car _e122762122795_))) + (_tl122760122800_ (let () (declare (not safe)) - (##cdr _e122780122813_)))) + (##cdr _e122762122795_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122779122816_)) - (let ((_e122783122821_ + _hd122761122798_)) + (let ((_e122765122803_ (let () (declare (not safe)) (gx#stx-e - _hd122779122816_)))) - (let ((_hd122782122824_ + _hd122761122798_)))) + (let ((_hd122764122806_ (let () (declare (not safe)) - (##car _e122783122821_))) - (_tl122781122826_ + (##car _e122765122803_))) + (_tl122763122808_ (let () (declare (not safe)) - (##cdr _e122783122821_)))) + (##cdr _e122765122803_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122782122824_)) - (let ((_e122786122829_ + _hd122764122806_)) + (let ((_e122768122811_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd122782122824_)))) - (let ((_hd122785122832_ + (gx#stx-e _hd122764122806_)))) + (let ((_hd122767122814_ (let () (declare (not safe)) - (##car _e122786122829_))) - (_tl122784122834_ + (##car _e122768122811_))) + (_tl122766122816_ (let () (declare (not safe)) - (##cdr _e122786122829_)))) + (##cdr _e122768122811_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122785122832_)) - (let ((_e122789122837_ + (gx#stx-pair? _hd122767122814_)) + (let ((_e122771122819_ (let () (declare (not safe)) - (gx#stx-e _hd122785122832_)))) - (let ((_hd122788122840_ + (gx#stx-e _hd122767122814_)))) + (let ((_hd122770122822_ (let () (declare (not safe)) - (##car _e122789122837_))) - (_tl122787122842_ + (##car _e122771122819_))) + (_tl122769122824_ (let () (declare (not safe)) - (##cdr _e122789122837_)))) + (##cdr _e122771122819_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122787122842_)) + (gx#stx-null? _tl122769122824_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122784122834_)) - (let ((_e122792122845_ + (gx#stx-pair? _tl122766122816_)) + (let ((_e122774122827_ (let () (declare (not safe)) - (gx#stx-e _tl122784122834_)))) - (let ((_hd122791122848_ + (gx#stx-e _tl122766122816_)))) + (let ((_hd122773122830_ (let () (declare (not safe)) - (##car _e122792122845_))) - (_tl122790122850_ + (##car _e122774122827_))) + (_tl122772122832_ (let () (declare (not safe)) - (##cdr _e122792122845_)))) + (##cdr _e122774122827_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122790122850_)) + _tl122772122832_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl122781122826_)) + _tl122763122808_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122778122818_)) - (let ((_e122795122853_ + _tl122760122800_)) + (let ((_e122777122835_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl122778122818_)))) - (let ((_hd122794122856_ - (let () (declare (not safe)) (##car _e122795122853_))) - (_tl122793122858_ - (let () (declare (not safe)) (##cdr _e122795122853_)))) + (gx#stx-e _tl122760122800_)))) + (let ((_hd122776122838_ + (let () (declare (not safe)) (##car _e122777122835_))) + (_tl122775122840_ + (let () (declare (not safe)) (##cdr _e122777122835_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122793122858_)) - ((lambda (_L122861_ _L122862_ _L122863_) - (let* ((_lambda-id122887_ - (let ((__tmp130839 + (gx#stx-null? _tl122775122840_)) + ((lambda (_L122843_ _L122844_ _L122845_) + (let* ((_lambda-id122869_ + (let ((__tmp130821 (let () (declare (not safe)) - (gx#stx-e _L122754_))) - (__tmp130837 - (let ((__tmp130838 + (gx#stx-e _L122736_))) + (__tmp130819 + (let ((__tmp130820 (let () (declare (not safe)) - (gx#stx-e _L122863_)))) + (gx#stx-e _L122845_)))) (declare (not safe)) - (_opt-lambda-dispatch-name122319_ - __tmp130838)))) + (_opt-lambda-dispatch-name122301_ + __tmp130820)))) (declare (not safe)) (make-symbol__1 - __tmp130839 + __tmp130821 '"__" - __tmp130837))) - (_lambda-id122889_ - (let ((__tmp130840 + __tmp130819))) + (_lambda-id122871_ + (let ((__tmp130822 (let () (declare (not safe)) - (gx#stx-source _stx122316_)))) + (gx#stx-source _stx122298_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _lambda-id122887_ - __tmp130840))) - (_g130841_ + _lambda-id122869_ + __tmp130822))) + (_g130823_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lambda-id122889_))) - (_new-case-lambda-expr122892_ + _lambda-id122871_))) + (_new-case-lambda-expr122874_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L122861_ + _L122843_ 'id: - _L122863_ + _L122845_ 'new-id: - _lambda-id122889_)))) - (let ((__tmp130843 + _lambda-id122871_)))) + (let ((__tmp130825 (let () (declare (not safe)) - (gxc#identifier-symbol _L122754_))) - (__tmp130842 + (gxc#identifier-symbol _L122736_))) + (__tmp130824 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id122889_)))) + _lambda-id122871_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp130843 + __tmp130825 '" => " - __tmp130842)) - (let ((__tmp130844 - (let ((__tmp130845 - (let ((__tmp130853 - (let ((__tmp130854 - (let ((__tmp130855 - (let ((__tmp130858 + __tmp130824)) + (let ((__tmp130826 + (let ((__tmp130827 + (let ((__tmp130835 + (let ((__tmp130836 + (let ((__tmp130837 + (let ((__tmp130840 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _lambda-id122889_ '()))) - (__tmp130856 - (let ((__tmp130857 + (cons _lambda-id122871_ '()))) + (__tmp130838 + (let ((__tmp130839 (let () (declare (not safe)) (gxc#compile-e__1 - _self122315_ - _L122862_)))) + _self122297_ + _L122844_)))) (declare (not safe)) - (cons __tmp130857 '())))) + (cons __tmp130839 '())))) (declare (not safe)) - (cons __tmp130858 __tmp130856)))) + (cons __tmp130840 __tmp130838)))) (declare (not safe)) - (cons '%#define-values __tmp130855)))) + (cons '%#define-values __tmp130837)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp130854 - _stx122316_))) - (__tmp130846 - (let ((__tmp130847 - (let ((__tmp130848 - (let ((__tmp130849 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130850 - (let ((__tmp130852 + __tmp130836 + _stx122298_))) + (__tmp130828 + (let ((__tmp130829 + (let ((__tmp130830 + (let ((__tmp130831 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp130832 + (let ((__tmp130834 (let () (declare (not safe)) - (cons _L122754_ '()))) - (__tmp130851 + (cons _L122736_ '()))) + (__tmp130833 (let () (declare (not safe)) - (cons _new-case-lambda-expr122892_ + (cons _new-case-lambda-expr122874_ '())))) (declare (not safe)) - (cons __tmp130852 __tmp130851)))) + (cons __tmp130834 __tmp130833)))) (declare (not safe)) - (cons '%#define-values __tmp130850)))) + (cons '%#define-values __tmp130832)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130849 _stx122316_)))) + (gxc#xform-wrap-source __tmp130831 _stx122298_)))) (declare (not safe)) (gxc#lift-top-lambda-define-values% - _self122315_ - __tmp130848)))) + _self122297_ + __tmp130830)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130847 '())))) + (cons __tmp130829 '())))) (declare (not safe)) - (cons __tmp130853 __tmp130846)))) + (cons __tmp130835 __tmp130828)))) (declare (not safe)) - (cons '%#begin __tmp130845)))) + (cons '%#begin __tmp130827)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130844 - _stx122316_)))) - _hd122794122856_ - _hd122791122848_ - _hd122788122840_) + __tmp130826 + _stx122298_)))) + _hd122776122838_ + _hd122773122830_ + _hd122770122822_) (let () (declare (not safe)) - (_g122770122800_ _g122771122803_))))) - (let () (declare (not safe)) (_g122770122800_ _g122771122803_))) + (_g122752122782_ _g122753122785_))))) + (let () (declare (not safe)) (_g122752122782_ _g122753122785_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122770122800_ - _g122771122803_))) + (_g122752122782_ + _g122753122785_))) (let () (declare (not safe)) - (_g122770122800_ - _g122771122803_))))) + (_g122752122782_ + _g122753122785_))))) (let () (declare (not safe)) - (_g122770122800_ _g122771122803_))) + (_g122752122782_ _g122753122785_))) (let () (declare (not safe)) - (_g122770122800_ _g122771122803_))))) + (_g122752122782_ _g122753122785_))))) (let () (declare (not safe)) - (_g122770122800_ _g122771122803_))))) + (_g122752122782_ _g122753122785_))))) (let () (declare (not safe)) - (_g122770122800_ _g122771122803_))))) + (_g122752122782_ _g122753122785_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122770122800_ - _g122771122803_))))) + (_g122752122782_ + _g122753122785_))))) (let () (declare (not safe)) - (_g122770122800_ - _g122771122803_))))) + (_g122752122782_ + _g122753122785_))))) (let () (declare (not safe)) - (_g122770122800_ _g122771122803_)))))) + (_g122752122782_ _g122753122785_)))))) (declare (not safe)) - (_g122769122895_ _L122753_)))) - (___kont130157130158_ - (lambda (_L122467_ _L122468_) - (let* ((_g122484122537_ - (lambda (_g122485122534_) + (_g122751122877_ _L122735_)))) + (___kont130139130140_ + (lambda (_L122449_ _L122450_) + (let* ((_g122466122519_ + (lambda (_g122467122516_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g122485122534_)))) - (_g122483122713_ - (lambda (_g122485122540_) + _g122467122516_)))) + (_g122465122695_ + (lambda (_g122467122522_) (if (let () (declare (not safe)) - (gx#stx-pair? _g122485122540_)) - (let ((_e122493122542_ + (gx#stx-pair? _g122467122522_)) + (let ((_e122475122524_ (let () (declare (not safe)) - (gx#stx-e _g122485122540_)))) - (let ((_hd122492122545_ + (gx#stx-e _g122467122522_)))) + (let ((_hd122474122527_ (let () (declare (not safe)) - (##car _e122493122542_))) - (_tl122491122547_ + (##car _e122475122524_))) + (_tl122473122529_ (let () (declare (not safe)) - (##cdr _e122493122542_)))) + (##cdr _e122475122524_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122491122547_)) - (let ((_e122496122550_ + (gx#stx-pair? _tl122473122529_)) + (let ((_e122478122532_ (let () (declare (not safe)) (gx#stx-e - _tl122491122547_)))) - (let ((_hd122495122553_ + _tl122473122529_)))) + (let ((_hd122477122535_ (let () (declare (not safe)) - (##car _e122496122550_))) - (_tl122494122555_ + (##car _e122478122532_))) + (_tl122476122537_ (let () (declare (not safe)) - (##cdr _e122496122550_)))) + (##cdr _e122478122532_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122495122553_)) - (let ((_e122499122558_ + _hd122477122535_)) + (let ((_e122481122540_ (let () (declare (not safe)) (gx#stx-e - _hd122495122553_)))) - (let ((_hd122498122561_ + _hd122477122535_)))) + (let ((_hd122480122543_ (let () (declare (not safe)) - (##car _e122499122558_))) - (_tl122497122563_ + (##car _e122481122540_))) + (_tl122479122545_ (let () (declare (not safe)) - (##cdr _e122499122558_)))) + (##cdr _e122481122540_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122498122561_)) - (let ((_e122502122566_ + _hd122480122543_)) + (let ((_e122484122548_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd122498122561_)))) - (let ((_hd122501122569_ + (gx#stx-e _hd122480122543_)))) + (let ((_hd122483122551_ (let () (declare (not safe)) - (##car _e122502122566_))) - (_tl122500122571_ + (##car _e122484122548_))) + (_tl122482122553_ (let () (declare (not safe)) - (##cdr _e122502122566_)))) + (##cdr _e122484122548_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122501122569_)) - (let ((_e122505122574_ + (gx#stx-pair? _hd122483122551_)) + (let ((_e122487122556_ (let () (declare (not safe)) - (gx#stx-e _hd122501122569_)))) - (let ((_hd122504122577_ + (gx#stx-e _hd122483122551_)))) + (let ((_hd122486122559_ (let () (declare (not safe)) - (##car _e122505122574_))) - (_tl122503122579_ + (##car _e122487122556_))) + (_tl122485122561_ (let () (declare (not safe)) - (##cdr _e122505122574_)))) + (##cdr _e122487122556_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122503122579_)) + (gx#stx-null? _tl122485122561_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122500122571_)) - (let ((_e122508122582_ + (gx#stx-pair? _tl122482122553_)) + (let ((_e122490122564_ (let () (declare (not safe)) - (gx#stx-e _tl122500122571_)))) - (let ((_hd122507122585_ + (gx#stx-e _tl122482122553_)))) + (let ((_hd122489122567_ (let () (declare (not safe)) - (##car _e122508122582_))) - (_tl122506122587_ + (##car _e122490122564_))) + (_tl122488122569_ (let () (declare (not safe)) - (##cdr _e122508122582_)))) + (##cdr _e122490122564_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122507122585_)) - (let ((_e122511122590_ + _hd122489122567_)) + (let ((_e122493122572_ (let () (declare (not safe)) (gx#stx-e - _hd122507122585_)))) - (let ((_hd122510122593_ + _hd122489122567_)))) + (let ((_hd122492122575_ (let () (declare (not safe)) - (##car _e122511122590_))) - (_tl122509122595_ + (##car _e122493122572_))) + (_tl122491122577_ (let () (declare (not safe)) - (##cdr _e122511122590_)))) + (##cdr _e122493122572_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122509122595_)) - (let ((_e122514122598_ + _tl122491122577_)) + (let ((_e122496122580_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl122509122595_)))) - (let ((_hd122513122601_ - (let () (declare (not safe)) (##car _e122514122598_))) - (_tl122512122603_ - (let () (declare (not safe)) (##cdr _e122514122598_)))) + (gx#stx-e _tl122491122577_)))) + (let ((_hd122495122583_ + (let () (declare (not safe)) (##car _e122496122580_))) + (_tl122494122585_ + (let () (declare (not safe)) (##cdr _e122496122580_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122513122601_)) - (let ((_e122517122606_ + (gx#stx-pair? _hd122495122583_)) + (let ((_e122499122588_ (let () (declare (not safe)) - (gx#stx-e _hd122513122601_)))) - (let ((_hd122516122609_ + (gx#stx-e _hd122495122583_)))) + (let ((_hd122498122591_ (let () (declare (not safe)) - (##car _e122517122606_))) - (_tl122515122611_ + (##car _e122499122588_))) + (_tl122497122593_ (let () (declare (not safe)) - (##cdr _e122517122606_)))) + (##cdr _e122499122588_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122516122609_)) - (let ((_e122520122614_ + (gx#stx-pair? _hd122498122591_)) + (let ((_e122502122596_ (let () (declare (not safe)) - (gx#stx-e _hd122516122609_)))) - (let ((_hd122519122617_ + (gx#stx-e _hd122498122591_)))) + (let ((_hd122501122599_ (let () (declare (not safe)) - (##car _e122520122614_))) - (_tl122518122619_ + (##car _e122502122596_))) + (_tl122500122601_ (let () (declare (not safe)) - (##cdr _e122520122614_)))) + (##cdr _e122502122596_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122519122617_)) - (let ((_e122523122622_ + (gx#stx-pair? _hd122501122599_)) + (let ((_e122505122604_ (let () (declare (not safe)) - (gx#stx-e _hd122519122617_)))) - (let ((_hd122522122625_ + (gx#stx-e _hd122501122599_)))) + (let ((_hd122504122607_ (let () (declare (not safe)) - (##car _e122523122622_))) - (_tl122521122627_ + (##car _e122505122604_))) + (_tl122503122609_ (let () (declare (not safe)) - (##cdr _e122523122622_)))) + (##cdr _e122505122604_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122521122627_)) + _tl122503122609_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122518122619_)) - (let ((_e122526122630_ + _tl122500122601_)) + (let ((_e122508122612_ (let () (declare (not safe)) (gx#stx-e - _tl122518122619_)))) - (let ((_hd122525122633_ + _tl122500122601_)))) + (let ((_hd122507122615_ (let () (declare (not safe)) - (##car _e122526122630_))) - (_tl122524122635_ + (##car _e122508122612_))) + (_tl122506122617_ (let () (declare (not safe)) - (##cdr _e122526122630_)))) + (##cdr _e122508122612_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122524122635_)) + _tl122506122617_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _tl122515122611_)) + (gx#stx-null? _tl122497122593_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122512122603_)) - (let ((_e122529122638_ + (gx#stx-pair? _tl122494122585_)) + (let ((_e122511122620_ (let () (declare (not safe)) - (gx#stx-e _tl122512122603_)))) - (let ((_hd122528122641_ + (gx#stx-e _tl122494122585_)))) + (let ((_hd122510122623_ (let () (declare (not safe)) - (##car _e122529122638_))) - (_tl122527122643_ + (##car _e122511122620_))) + (_tl122509122625_ (let () (declare (not safe)) - (##cdr _e122529122638_)))) + (##cdr _e122511122620_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122527122643_)) + (gx#stx-null? _tl122509122625_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl122506122587_)) + (gx#stx-null? _tl122488122569_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl122497122563_)) + (gx#stx-null? _tl122479122545_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122494122555_)) - (let ((_e122532122646_ + _tl122476122537_)) + (let ((_e122514122628_ (let () (declare (not safe)) (gx#stx-e - _tl122494122555_)))) - (let ((_hd122531122649_ + _tl122476122537_)))) + (let ((_hd122513122631_ (let () (declare (not safe)) - (##car _e122532122646_))) - (_tl122530122651_ + (##car _e122514122628_))) + (_tl122512122633_ (let () (declare (not safe)) - (##cdr _e122532122646_)))) + (##cdr _e122514122628_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122530122651_)) - ((lambda (_L122654_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L122655_ - _L122656_ - _L122657_ - _L122658_) - (let* ((_get-kws-id122698_ - (let ((__tmp130861 + _tl122512122633_)) + ((lambda (_L122636_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L122637_ + _L122638_ + _L122639_ + _L122640_) + (let* ((_get-kws-id122680_ + (let ((__tmp130843 (let () (declare (not safe)) - (gx#stx-e _L122468_))) - (__tmp130859 - (let ((__tmp130860 + (gx#stx-e _L122450_))) + (__tmp130841 + (let ((__tmp130842 (let () (declare (not safe)) - (gx#stx-e _L122658_)))) + (gx#stx-e _L122640_)))) (declare (not safe)) - (_kw-lambda-dispatch-name122320_ - __tmp130860 + (_kw-lambda-dispatch-name122302_ + __tmp130842 '"@")))) (declare (not safe)) - (make-symbol__1 __tmp130861 '"__" __tmp130859))) - (_get-kws-id122700_ - (let ((__tmp130862 + (make-symbol__1 __tmp130843 '"__" __tmp130841))) + (_get-kws-id122682_ + (let ((__tmp130844 (let () (declare (not safe)) - (gx#stx-source _stx122316_)))) + (gx#stx-source _stx122298_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id122698_ - __tmp130862))) - (_main-id122702_ - (let ((__tmp130865 + _get-kws-id122680_ + __tmp130844))) + (_main-id122684_ + (let ((__tmp130847 (let () (declare (not safe)) - (gx#stx-e _L122468_))) - (__tmp130863 - (let ((__tmp130864 + (gx#stx-e _L122450_))) + (__tmp130845 + (let ((__tmp130846 (let () (declare (not safe)) - (gx#stx-e _L122657_)))) + (gx#stx-e _L122639_)))) (declare (not safe)) - (_kw-lambda-dispatch-name122320_ - __tmp130864 + (_kw-lambda-dispatch-name122302_ + __tmp130846 '"%")))) (declare (not safe)) - (make-symbol__1 __tmp130865 '"__" __tmp130863))) - (_main-id122704_ - (let ((__tmp130866 + (make-symbol__1 __tmp130847 '"__" __tmp130845))) + (_main-id122686_ + (let ((__tmp130848 (let () (declare (not safe)) - (gx#stx-source _stx122316_)))) + (gx#stx-source _stx122298_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id122702_ - __tmp130866))) - (_g130867_ + _main-id122684_ + __tmp130848))) + (_g130849_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _get-kws-id122700_))) - (_g130868_ + (gx#core-bind-runtime!__0 _get-kws-id122682_))) + (_g130850_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _main-id122704_))) - (_new-kw-dispatch122708_ + (gx#core-bind-runtime!__0 _main-id122686_))) + (_new-kw-dispatch122690_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L122654_ + _L122636_ 'id: - _L122658_ + _L122640_ 'new-id: - _get-kws-id122700_))) - (_new-get-kws122710_ + _get-kws-id122682_))) + (_new-get-kws122692_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L122655_ + _L122637_ 'id: - _L122657_ + _L122639_ 'new-id: - _main-id122704_)))) - (let ((__tmp130871 + _main-id122686_)))) + (let ((__tmp130853 (let () (declare (not safe)) - (gxc#identifier-symbol _L122468_))) - (__tmp130870 + (gxc#identifier-symbol _L122450_))) + (__tmp130852 (let () (declare (not safe)) - (gxc#identifier-symbol _get-kws-id122700_))) - (__tmp130869 + (gxc#identifier-symbol _get-kws-id122682_))) + (__tmp130851 (let () (declare (not safe)) - (gxc#identifier-symbol _main-id122704_)))) + (gxc#identifier-symbol _main-id122686_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp130871 + __tmp130853 '" => " - __tmp130870 + __tmp130852 '" => " - __tmp130869)) - (let ((__tmp130872 - (let ((__tmp130873 - (let ((__tmp130886 - (let ((__tmp130887 - (let ((__tmp130888 - (let ((__tmp130889 - (let ((__tmp130891 + __tmp130851)) + (let ((__tmp130854 + (let ((__tmp130855 + (let ((__tmp130868 + (let ((__tmp130869 + (let ((__tmp130870 + (let ((__tmp130871 + (let ((__tmp130873 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main-id122704_ '()))) - (__tmp130890 + (cons _main-id122686_ '()))) + (__tmp130872 (let () (declare (not safe)) - (cons _L122656_ '())))) + (cons _L122638_ '())))) (declare (not safe)) - (cons __tmp130891 __tmp130890)))) + (cons __tmp130873 __tmp130872)))) (declare (not safe)) - (cons '%#define-values __tmp130889)))) + (cons '%#define-values __tmp130871)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp130888 - _stx122316_)))) + __tmp130870 + _stx122298_)))) (declare (not safe)) (gxc#lift-top-lambda-define-values% - _self122315_ - __tmp130887))) - (__tmp130874 - (let ((__tmp130881 - (let ((__tmp130882 - (let ((__tmp130883 - (let ((__tmp130885 + _self122297_ + __tmp130869))) + (__tmp130856 + (let ((__tmp130863 + (let ((__tmp130864 + (let ((__tmp130865 + (let ((__tmp130867 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _get-kws-id122700_ '()))) - (__tmp130884 + (cons _get-kws-id122682_ '()))) + (__tmp130866 (let () (declare (not safe)) - (cons _new-get-kws122710_ '())))) + (cons _new-get-kws122692_ '())))) (declare (not safe)) - (cons __tmp130885 __tmp130884)))) + (cons __tmp130867 __tmp130866)))) (declare (not safe)) - (cons '%#define-values __tmp130883)))) + (cons '%#define-values __tmp130865)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp130882 - _stx122316_))) - (__tmp130875 - (let ((__tmp130876 - (let ((__tmp130877 - (let ((__tmp130878 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130880 + __tmp130864 + _stx122298_))) + (__tmp130857 + (let ((__tmp130858 + (let ((__tmp130859 + (let ((__tmp130860 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp130862 (let () (declare (not safe)) - (cons _L122468_ '()))) - (__tmp130879 + (cons _L122450_ '()))) + (__tmp130861 (let () (declare (not safe)) - (cons _new-kw-dispatch122708_ '())))) + (cons _new-kw-dispatch122690_ '())))) (declare (not safe)) - (cons __tmp130880 __tmp130879)))) + (cons __tmp130862 __tmp130861)))) (declare (not safe)) - (cons '%#define-values __tmp130878)))) + (cons '%#define-values __tmp130860)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130877 _stx122316_)))) + (gxc#xform-wrap-source __tmp130859 _stx122298_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130876 '())))) + (cons __tmp130858 '())))) (declare (not safe)) - (cons __tmp130881 __tmp130875)))) + (cons __tmp130863 __tmp130857)))) (declare (not safe)) - (cons __tmp130886 __tmp130874)))) + (cons __tmp130868 __tmp130856)))) (declare (not safe)) - (cons '%#begin __tmp130873)))) + (cons '%#begin __tmp130855)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130872 _stx122316_)))) - _hd122531122649_ - _hd122528122641_ - _hd122525122633_ - _hd122522122625_ - _hd122504122577_) + (gxc#xform-wrap-source __tmp130854 _stx122298_)))) + _hd122513122631_ + _hd122510122623_ + _hd122507122615_ + _hd122504122607_ + _hd122486122559_) (let () (declare (not safe)) - (_g122484122537_ _g122485122540_))))) + (_g122466122519_ _g122467122522_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122484122537_ - _g122485122540_))) + (_g122466122519_ + _g122467122522_))) (let () (declare (not safe)) - (_g122484122537_ - _g122485122540_))) + (_g122466122519_ + _g122467122522_))) (let () (declare (not safe)) - (_g122484122537_ _g122485122540_))) + (_g122466122519_ _g122467122522_))) (let () (declare (not safe)) - (_g122484122537_ _g122485122540_))))) + (_g122466122519_ _g122467122522_))))) (let () (declare (not safe)) - (_g122484122537_ _g122485122540_))) + (_g122466122519_ _g122467122522_))) (let () (declare (not safe)) - (_g122484122537_ _g122485122540_))) + (_g122466122519_ _g122467122522_))) (let () (declare (not safe)) - (_g122484122537_ _g122485122540_))))) + (_g122466122519_ _g122467122522_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122484122537_ - _g122485122540_))) + (_g122466122519_ + _g122467122522_))) (let () (declare (not safe)) - (_g122484122537_ - _g122485122540_))))) + (_g122466122519_ + _g122467122522_))))) (let () (declare (not safe)) - (_g122484122537_ _g122485122540_))))) + (_g122466122519_ _g122467122522_))))) (let () (declare (not safe)) - (_g122484122537_ _g122485122540_))))) + (_g122466122519_ _g122467122522_))))) (let () (declare (not safe)) - (_g122484122537_ _g122485122540_))))) + (_g122466122519_ _g122467122522_))))) (let () (declare (not safe)) - (_g122484122537_ _g122485122540_))))) + (_g122466122519_ _g122467122522_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122484122537_ - _g122485122540_))))) + (_g122466122519_ + _g122467122522_))))) (let () (declare (not safe)) - (_g122484122537_ _g122485122540_))) + (_g122466122519_ _g122467122522_))) (let () (declare (not safe)) - (_g122484122537_ _g122485122540_))))) + (_g122466122519_ _g122467122522_))))) (let () (declare (not safe)) - (_g122484122537_ _g122485122540_))))) + (_g122466122519_ _g122467122522_))))) (let () (declare (not safe)) - (_g122484122537_ _g122485122540_))))) + (_g122466122519_ _g122467122522_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122484122537_ - _g122485122540_))))) + (_g122466122519_ + _g122467122522_))))) (let () (declare (not safe)) - (_g122484122537_ - _g122485122540_))))) + (_g122466122519_ + _g122467122522_))))) (let () (declare (not safe)) - (_g122484122537_ _g122485122540_)))))) + (_g122466122519_ _g122467122522_)))))) (declare (not safe)) - (_g122483122713_ _L122467_)))) - (___kont130159130160_ - (lambda (_L122413_ _L122414_) - (let ((__tmp130892 - (let ((__tmp130893 - (let ((__tmp130894 - (let ((__tmp130895 + (_g122465122695_ _L122449_)))) + (___kont130141130142_ + (lambda (_L122395_ _L122396_) + (let ((__tmp130874 + (let ((__tmp130875 + (let ((__tmp130876 + (let ((__tmp130877 (let () (declare (not safe)) (gxc#compile-e__1 - _self122315_ - _L122413_)))) + _self122297_ + _L122395_)))) (declare (not safe)) - (cons __tmp130895 '())))) + (cons __tmp130877 '())))) (declare (not safe)) - (cons _L122414_ __tmp130894)))) + (cons _L122396_ __tmp130876)))) (declare (not safe)) - (cons '%#define-values __tmp130893)))) + (cons '%#define-values __tmp130875)))) (declare (not safe)) - (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_)) + (gxc#xform-wrap-source __tmp130874 _stx122298_))))) + (let* ((___match130226130227_ + (lambda (_e122341122417_ + _hd122340122420_ + _tl122339122422_ + _e122344122425_ + _hd122343122428_ + _tl122342122430_ + _e122347122433_ + _hd122346122436_ + _tl122345122438_ + _e122350122441_ + _hd122349122444_ + _tl122348122446_) + (let ((_L122449_ _hd122349122444_) + (_L122450_ _hd122346122436_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L122468_)) + (gx#identifier? _L122450_)) (let () (declare (not safe)) - (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_)) + (gxc#kw-lambda-expr? _L122449_))) + (___kont130139130140_ _L122449_ _L122450_) + (___kont130141130142_ + _hd122349122444_ + _hd122343122428_))))) + (___match130198130199_ + (lambda (_e122327122703_ + _hd122326122706_ + _tl122325122708_ + _e122330122711_ + _hd122329122714_ + _tl122328122716_ + _e122333122719_ + _hd122332122722_ + _tl122331122724_ + _e122336122727_ + _hd122335122730_ + _tl122334122732_) + (let ((_L122735_ _hd122335122730_) + (_L122736_ _hd122332122722_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L122754_)) + (gx#identifier? _L122736_)) (let () (declare (not safe)) - (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_)) + (gxc#opt-lambda-expr? _L122735_))) + (___kont130137130138_ _L122735_ _L122736_) + (___match130226130227_ + _e122327122703_ + _hd122326122706_ + _tl122325122708_ + _e122330122711_ + _hd122329122714_ + _tl122328122716_ + _e122333122719_ + _hd122332122722_ + _tl122331122724_ + _e122336122727_ + _hd122335122730_ + _tl122334122732_))))) + (___match130170130171_ + (lambda (_e122313122885_ + _hd122312122888_ + _tl122311122890_ + _e122316122893_ + _hd122315122896_ + _tl122314122898_ + _e122319122901_ + _hd122318122904_ + _tl122317122906_ + _e122322122909_ + _hd122321122912_ + _tl122320122914_) + (let ((_L122917_ _hd122321122912_) + (_L122918_ _hd122318122904_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L122936_)) + (gx#identifier? _L122918_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L122935_))) - (___kont130153130154_ _L122935_ _L122936_) - (___match130216130217_ - _e122331122903_ - _hd122330122906_ - _tl122329122908_ - _e122334122911_ - _hd122333122914_ - _tl122332122916_ - _e122337122919_ - _hd122336122922_ - _tl122335122924_ - _e122340122927_ - _hd122339122930_ - _tl122338122932_)))))) + (gxc#case-lambda-expr? _L122917_))) + (___kont130135130136_ _L122917_ _L122918_) + (___match130198130199_ + _e122313122885_ + _hd122312122888_ + _tl122311122890_ + _e122316122893_ + _hd122315122896_ + _tl122314122898_ + _e122319122901_ + _hd122318122904_ + _tl122317122906_ + _e122322122909_ + _hd122321122912_ + _tl122320122914_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx130151130152_)) - (let ((_e122331122903_ + (gx#stx-pair? ___stx130133130134_)) + (let ((_e122313122885_ (let () (declare (not safe)) - (gx#stx-e ___stx130151130152_)))) - (let ((_tl122329122908_ + (gx#stx-e ___stx130133130134_)))) + (let ((_tl122311122890_ (let () (declare (not safe)) - (##cdr _e122331122903_))) - (_hd122330122906_ + (##cdr _e122313122885_))) + (_hd122312122888_ (let () (declare (not safe)) - (##car _e122331122903_)))) + (##car _e122313122885_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122329122908_)) - (let ((_e122334122911_ + (gx#stx-pair? _tl122311122890_)) + (let ((_e122316122893_ (let () (declare (not safe)) - (gx#stx-e _tl122329122908_)))) - (let ((_tl122332122916_ + (gx#stx-e _tl122311122890_)))) + (let ((_tl122314122898_ (let () (declare (not safe)) - (##cdr _e122334122911_))) - (_hd122333122914_ + (##cdr _e122316122893_))) + (_hd122315122896_ (let () (declare (not safe)) - (##car _e122334122911_)))) + (##car _e122316122893_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122333122914_)) - (let ((_e122337122919_ + (gx#stx-pair? _hd122315122896_)) + (let ((_e122319122901_ (let () (declare (not safe)) - (gx#stx-e _hd122333122914_)))) - (let ((_tl122335122924_ + (gx#stx-e _hd122315122896_)))) + (let ((_tl122317122906_ (let () (declare (not safe)) - (##cdr _e122337122919_))) - (_hd122336122922_ + (##cdr _e122319122901_))) + (_hd122318122904_ (let () (declare (not safe)) - (##car _e122337122919_)))) + (##car _e122319122901_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122335122924_)) + (gx#stx-null? _tl122317122906_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122332122916_)) - (let ((_e122340122927_ + _tl122314122898_)) + (let ((_e122322122909_ (let () (declare (not safe)) (gx#stx-e - _tl122332122916_)))) - (let ((_tl122338122932_ + _tl122314122898_)))) + (let ((_tl122320122914_ (let () (declare (not safe)) - (##cdr _e122340122927_))) - (_hd122339122930_ + (##cdr _e122322122909_))) + (_hd122321122912_ (let () (declare (not safe)) - (##car _e122340122927_)))) + (##car _e122322122909_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122338122932_)) - (___match130188130189_ - _e122331122903_ - _hd122330122906_ - _tl122329122908_ - _e122334122911_ - _hd122333122914_ - _tl122332122916_ - _e122337122919_ - _hd122336122922_ - _tl122335122924_ - _e122340122927_ - _hd122339122930_ - _tl122338122932_) + _tl122320122914_)) + (___match130170130171_ + _e122313122885_ + _hd122312122888_ + _tl122311122890_ + _e122316122893_ + _hd122315122896_ + _tl122314122898_ + _e122319122901_ + _hd122318122904_ + _tl122317122906_ + _e122322122909_ + _hd122321122912_ + _tl122320122914_) (let () (declare (not safe)) - (_g122325122384_))))) + (_g122307122366_))))) (let () (declare (not safe)) - (_g122325122384_))) + (_g122307122366_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl122332122916_)) - (let ((_e122379122405_ + _tl122314122898_)) + (let ((_e122361122387_ (let () (declare (not safe)) (gx#stx-e - _tl122332122916_)))) - (let ((_tl122377122410_ + _tl122314122898_)))) + (let ((_tl122359122392_ (let () (declare (not safe)) - (##cdr _e122379122405_))) - (_hd122378122408_ + (##cdr _e122361122387_))) + (_hd122360122390_ (let () (declare (not safe)) - (##car _e122379122405_)))) + (##car _e122361122387_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122377122410_)) - (___kont130159130160_ - _hd122378122408_ - _hd122333122914_) + _tl122359122392_)) + (___kont130141130142_ + _hd122360122390_ + _hd122315122896_) (let () (declare (not safe)) - (_g122325122384_))))) + (_g122307122366_))))) (let () (declare (not safe)) - (_g122325122384_)))))) + (_g122307122366_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122332122916_)) - (let ((_e122379122405_ + (gx#stx-pair? _tl122314122898_)) + (let ((_e122361122387_ (let () (declare (not safe)) - (gx#stx-e _tl122332122916_)))) - (let ((_tl122377122410_ + (gx#stx-e _tl122314122898_)))) + (let ((_tl122359122392_ (let () (declare (not safe)) - (##cdr _e122379122405_))) - (_hd122378122408_ + (##cdr _e122361122387_))) + (_hd122360122390_ (let () (declare (not safe)) - (##car _e122379122405_)))) + (##car _e122361122387_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122377122410_)) - (___kont130159130160_ - _hd122378122408_ - _hd122333122914_) + _tl122359122392_)) + (___kont130141130142_ + _hd122360122390_ + _hd122315122896_) (let () (declare (not safe)) - (_g122325122384_))))) + (_g122307122366_))))) (let () (declare (not safe)) - (_g122325122384_)))))) - (let () (declare (not safe)) (_g122325122384_))))) - (let () (declare (not safe)) (_g122325122384_))))))))) + (_g122307122366_)))))) + (let () (declare (not safe)) (_g122307122366_))))) + (let () (declare (not safe)) (_g122307122366_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_self121246_ _stx121247_) - (letrec* ((_bind-e__128547128548_ - (lambda (_id122299_ _expr122300_ _compile?122301_) - (let ((__tmp130898 + (lambda (_self121228_ _stx121229_) + (letrec* ((_bind-e__128529128530_ + (lambda (_id122281_ _expr122282_ _compile?122283_) + (let ((__tmp130880 (let () (declare (not safe)) - (cons _id122299_ '()))) - (__tmp130896 - (let ((__tmp130897 - (if _compile?122301_ + (cons _id122281_ '()))) + (__tmp130878 + (let ((__tmp130879 + (if _compile?122283_ (let () (declare (not safe)) (gxc#compile-e__1 - _self121246_ - _expr122300_)) - _expr122300_))) + _self121228_ + _expr122282_)) + _expr122282_))) (declare (not safe)) - (cons __tmp130897 '())))) + (cons __tmp130879 '())))) (declare (not safe)) - (cons __tmp130898 __tmp130896)))) - (_bind-e__0__128549128550_ - (lambda (_id122306_ _expr122307_) - (let ((_compile?122309_ '#t)) + (cons __tmp130880 __tmp130878)))) + (_bind-e__0__128531128532_ + (lambda (_id122288_ _expr122289_) + (let ((_compile?122291_ '#t)) (declare (not safe)) - (_bind-e__128547128548_ - _id122306_ - _expr122307_ - _compile?122309_)))) - (_bind-e121249_ - (lambda _g130900_ - (let ((_g130899_ + (_bind-e__128529128530_ + _id122288_ + _expr122289_ + _compile?122291_)))) + (_bind-e121231_ + (lambda _g130882_ + (let ((_g130881_ (let () (declare (not safe)) - (##length _g130900_)))) - (cond ((let () (declare (not safe)) (##fx= _g130899_ 2)) - (apply (lambda (_id122306_ _expr122307_) + (##length _g130882_)))) + (cond ((let () (declare (not safe)) (##fx= _g130881_ 2)) + (apply (lambda (_id122288_ _expr122289_) (let () (declare (not safe)) - (_bind-e__0__128549128550_ - _id122306_ - _expr122307_))) - _g130900_)) - ((let () (declare (not safe)) (##fx= _g130899_ 3)) - (apply (lambda (_id122311_ - _expr122312_ - _compile?122313_) + (_bind-e__0__128531128532_ + _id122288_ + _expr122289_))) + _g130882_)) + ((let () (declare (not safe)) (##fx= _g130881_ 3)) + (apply (lambda (_id122293_ + _expr122294_ + _compile?122295_) (let () (declare (not safe)) - (_bind-e__128547128548_ - _id122311_ - _expr122312_ - _compile?122313_))) - _g130900_)) + (_bind-e__128529128530_ + _id122293_ + _expr122294_ + _compile?122295_))) + _g130882_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g130900_)))))) - (_compile-bindings121250_ - (lambda (_bindings121883_) - (let _lp121885_ ((_rest121887_ _bindings121883_) - (_lift1121888_ '()) - (_lift2121889_ '()) - (_bind121890_ '())) - (let* ((_rest121891121899_ _rest121887_) - (_else121893121907_ + _g130882_)))))) + (_compile-bindings121232_ + (lambda (_bindings121865_) + (let _lp121867_ ((_rest121869_ _bindings121865_) + (_lift1121870_ '()) + (_lift2121871_ '()) + (_bind121872_ '())) + (let* ((_rest121873121881_ _rest121869_) + (_else121875121889_ (lambda () - (values (reverse _lift1121888_) - (reverse _lift2121889_) - (reverse _bind121890_)))) - (_K121895122286_ - (lambda (_rest121910_ _hd121911_) - (let* ((___stx130287130288_ _hd121911_) - (_g121915121951_ + (values (reverse _lift1121870_) + (reverse _lift2121871_) + (reverse _bind121872_)))) + (_K121877122268_ + (lambda (_rest121892_ _hd121893_) + (let* ((___stx130269130270_ _hd121893_) + (_g121897121933_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130287130288_))))) - (let ((___kont130289130290_ - (lambda (_L122193_ _L122194_) - (let* ((___stx130267130268_ - _L122193_) - (_g122209122223_ + ___stx130269130270_))))) + (let ((___kont130271130272_ + (lambda (_L122175_ _L122176_) + (let* ((___stx130249130250_ + _L122175_) + (_g122191122205_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130267130268_))))) - (let ((___kont130269130270_ - (lambda (_L122271_) - (let ((__tmp130901 - (let ((__tmp130902 + ___stx130249130250_))))) + (let ((___kont130251130252_ + (lambda (_L122253_) + (let ((__tmp130883 + (let ((__tmp130884 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__128547128548_ - _L122194_ - _L122193_ + (_bind-e__128529128530_ + _L122176_ + _L122175_ '#f)))) (declare (not safe)) - (cons __tmp130902 _bind121890_)))) + (cons __tmp130884 _bind121872_)))) (declare (not safe)) - (_lp121885_ - _rest121910_ - _lift1121888_ - _lift2121889_ - __tmp130901)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont130271130272_ - (lambda (_L122236_) - (let ((_g130903_ + (_lp121867_ + _rest121892_ + _lift1121870_ + _lift2121871_ + __tmp130883)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont130253130254_ + (lambda (_L122218_) + (let ((_g130885_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx121247_ - _L122194_ - _L122236_ + _stx121229_ + _L122176_ + _L122218_ '#t)))) (begin - (let ((_g130904_ + (let ((_g130886_ (let () (declare (not safe)) - (if (##values? _g130903_) - (##vector-length _g130903_) + (if (##values? _g130885_) + (##vector-length _g130885_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g130904_ 3))) - (error "Context expects 3 values" _g130904_))) - (let ((_ids122246_ + (##fx= _g130886_ 3))) + (error "Context expects 3 values" _g130886_))) + (let ((_ids122228_ (let () (declare (not safe)) - (##vector-ref _g130903_ 0))) - (_impls122247_ + (##vector-ref _g130885_ 0))) + (_impls122229_ (let () (declare (not safe)) - (##vector-ref _g130903_ 1))) - (_clauses122248_ + (##vector-ref _g130885_ 1))) + (_clauses122230_ (let () (declare (not safe)) - (##vector-ref _g130903_ 2)))) - (let* ((_g130905_ - (for-each gx#core-bind-runtime! _ids122246_)) - (_xbind122251_ - (map _bind-e121249_ _ids122246_ _impls122247_)) - (_expr*122253_ - (let ((__tmp130907 + (##vector-ref _g130885_ 2)))) + (let* ((_g130887_ + (for-each gx#core-bind-runtime! _ids122228_)) + (_xbind122233_ + (map _bind-e121231_ _ids122228_ _impls122229_)) + (_expr*122235_ + (let ((__tmp130889 (let () (declare (not safe)) - (cons '%#case-lambda _clauses122248_))) - (__tmp130906 + (cons '%#case-lambda _clauses122230_))) + (__tmp130888 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -12705,1592 +12705,1592 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130907 - __tmp130906))) - (_bind*122255_ + __tmp130889 + __tmp130888))) + (_bind*122237_ (let () (declare (not safe)) - (_bind-e__128547128548_ - _L122194_ - _expr*122253_ + (_bind-e__128529128530_ + _L122176_ + _expr*122235_ '#f)))) - (let ((__tmp130909 + (let ((__tmp130891 (let () (declare (not safe)) - (gxc#identifier-symbol _L122194_))) - (__tmp130908 - (map gxc#identifier-symbol _ids122246_))) + (gxc#identifier-symbol _L122176_))) + (__tmp130890 + (map gxc#identifier-symbol _ids122228_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp130909 + __tmp130891 '" => " - __tmp130908)) - (let ((__tmp130911 + __tmp130890)) + (let ((__tmp130893 (let () (declare (not safe)) - (foldl1 cons _lift2121889_ _xbind122251_))) - (__tmp130910 + (foldl1 cons _lift2121871_ _xbind122233_))) + (__tmp130892 (let () (declare (not safe)) - (cons _bind*122255_ _bind121890_)))) + (cons _bind*122237_ _bind121872_)))) (declare (not safe)) - (_lp121885_ - _rest121910_ - _lift1121888_ - __tmp130911 - __tmp130910))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match130278130279_ - (lambda (_e122214122263_ - _hd122213122266_ - _tl122212122268_) - (let ((_L122271_ - _tl122212122268_)) + (_lp121867_ + _rest121892_ + _lift1121870_ + __tmp130893 + __tmp130892))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match130260130261_ + (lambda (_e122196122245_ + _hd122195122248_ + _tl122194122250_) + (let ((_L122253_ + _tl122194122250_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L122271_)) - (___kont130269130270_ _L122271_) - (___kont130271130272_ _tl122212122268_)))))) + (andmap1 gxc#dispatch-lambda-form? _L122253_)) + (___kont130251130252_ _L122253_) + (___kont130253130254_ _tl122194122250_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx130267130268_)) - (let ((_e122214122263_ + ___stx130249130250_)) + (let ((_e122196122245_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (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_) + (gx#stx-e ___stx130249130250_)))) + (let ((_tl122194122250_ + (let () (declare (not safe)) (##cdr _e122196122245_))) + (_hd122195122248_ + (let () (declare (not safe)) (##car _e122196122245_)))) + (___match130260130261_ + _e122196122245_ + _hd122195122248_ + _tl122194122250_))) + (let () (declare (not safe)) (_g122191122205_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont130273130274_ + (lambda (_L122003_ _L122004_) + (let* ((_g122018122048_ + (lambda (_g122019122045_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g122037122063_)))) - (_g122035122161_ - (lambda (_g122037122069_) + _g122019122045_)))) + (_g122017122143_ + (lambda (_g122019122051_) (if (let () (declare (not safe)) (gx#stx-pair? - _g122037122069_)) - (let ((_e122043122071_ + _g122019122051_)) + (let ((_e122025122053_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g122037122069_)))) - (let ((_hd122042122074_ + (gx#stx-e _g122019122051_)))) + (let ((_hd122024122056_ (let () (declare (not safe)) - (##car _e122043122071_))) - (_tl122041122076_ + (##car _e122025122053_))) + (_tl122023122058_ (let () (declare (not safe)) - (##cdr _e122043122071_)))) + (##cdr _e122025122053_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122041122076_)) - (let ((_e122046122079_ + (gx#stx-pair? _tl122023122058_)) + (let ((_e122028122061_ (let () (declare (not safe)) - (gx#stx-e _tl122041122076_)))) - (let ((_hd122045122082_ + (gx#stx-e _tl122023122058_)))) + (let ((_hd122027122064_ (let () (declare (not safe)) - (##car _e122046122079_))) - (_tl122044122084_ + (##car _e122028122061_))) + (_tl122026122066_ (let () (declare (not safe)) - (##cdr _e122046122079_)))) + (##cdr _e122028122061_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122045122082_)) - (let ((_e122049122087_ + (gx#stx-pair? _hd122027122064_)) + (let ((_e122031122069_ (let () (declare (not safe)) - (gx#stx-e _hd122045122082_)))) - (let ((_hd122048122090_ + (gx#stx-e _hd122027122064_)))) + (let ((_hd122030122072_ (let () (declare (not safe)) - (##car _e122049122087_))) - (_tl122047122092_ + (##car _e122031122069_))) + (_tl122029122074_ (let () (declare (not safe)) - (##cdr _e122049122087_)))) + (##cdr _e122031122069_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd122048122090_)) - (let ((_e122052122095_ + (gx#stx-pair? _hd122030122072_)) + (let ((_e122034122077_ (let () (declare (not safe)) (gx#stx-e - _hd122048122090_)))) - (let ((_hd122051122098_ + _hd122030122072_)))) + (let ((_hd122033122080_ (let () (declare (not safe)) - (##car _e122052122095_))) - (_tl122050122100_ + (##car _e122034122077_))) + (_tl122032122082_ (let () (declare (not safe)) - (##cdr _e122052122095_)))) + (##cdr _e122034122077_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd122051122098_)) - (let ((_e122055122103_ + _hd122033122080_)) + (let ((_e122037122085_ (let () (declare (not safe)) (gx#stx-e - _hd122051122098_)))) - (let ((_hd122054122106_ + _hd122033122080_)))) + (let ((_hd122036122088_ (let () (declare (not safe)) - (##car _e122055122103_))) - (_tl122053122108_ + (##car _e122037122085_))) + (_tl122035122090_ (let () (declare (not safe)) - (##cdr _e122055122103_)))) + (##cdr _e122037122085_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122053122108_)) + _tl122035122090_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl122050122100_)) - (let ((_e122058122111_ + (gx#stx-pair? _tl122032122082_)) + (let ((_e122040122093_ (let () (declare (not safe)) - (gx#stx-e _tl122050122100_)))) - (let ((_hd122057122114_ + (gx#stx-e _tl122032122082_)))) + (let ((_hd122039122096_ (let () (declare (not safe)) - (##car _e122058122111_))) - (_tl122056122116_ + (##car _e122040122093_))) + (_tl122038122098_ (let () (declare (not safe)) - (##cdr _e122058122111_)))) + (##cdr _e122040122093_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl122056122116_)) + (gx#stx-null? _tl122038122098_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl122047122092_)) + (gx#stx-null? _tl122029122074_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl122044122084_)) - (let ((_e122061122119_ + (gx#stx-pair? _tl122026122066_)) + (let ((_e122043122101_ (let () (declare (not safe)) - (gx#stx-e _tl122044122084_)))) - (let ((_hd122060122122_ + (gx#stx-e _tl122026122066_)))) + (let ((_hd122042122104_ (let () (declare (not safe)) - (##car _e122061122119_))) - (_tl122059122124_ + (##car _e122043122101_))) + (_tl122041122106_ (let () (declare (not safe)) - (##cdr _e122061122119_)))) + (##cdr _e122043122101_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl122059122124_)) - ((lambda (_L122127_ - _L122128_ - _L122129_) - (let* ((_lambda-id122153_ - (let ((__tmp130913 + _tl122041122106_)) + ((lambda (_L122109_ + _L122110_ + _L122111_) + (let* ((_lambda-id122135_ + (let ((__tmp130895 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L122022_))) - (__tmp130912 (gensym '__))) + (gx#stx-e _L122004_))) + (__tmp130894 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp130913 __tmp130912))) - (_lambda-id122155_ - (let ((__tmp130914 + (make-symbol__1 __tmp130895 __tmp130894))) + (_lambda-id122137_ + (let ((__tmp130896 (let () (declare (not safe)) - (gx#stx-source _stx121247_)))) + (gx#stx-source _stx121229_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id122153_ __tmp130914))) - (_g130915_ + (gx#core-quote-syntax__1 _lambda-id122135_ __tmp130896))) + (_g130897_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id122155_))) - (_new-case-lambda-expr122158_ + (gx#core-bind-runtime!__0 _lambda-id122137_))) + (_new-case-lambda-expr122140_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L122127_ + _L122109_ 'id: - _L122129_ + _L122111_ 'new-id: - _lambda-id122155_)))) + _lambda-id122137_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp130917 + (let ((__tmp130899 (let () (declare (not safe)) (gxc#identifier-symbol - _L122022_))) - (__tmp130916 + _L122004_))) + (__tmp130898 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id122155_)))) + _lambda-id122137_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp130917 + __tmp130899 '" => " - __tmp130916)) - (let ((__tmp130920 - (let ((__tmp130921 + __tmp130898)) + (let ((__tmp130902 + (let ((__tmp130903 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__128547128548_ - _L122022_ - _new-case-lambda-expr122158_ + (_bind-e__128529128530_ + _L122004_ + _new-case-lambda-expr122140_ '#f)))) (declare (not safe)) - (cons __tmp130921 _rest121910_))) - (__tmp130918 - (let ((__tmp130919 + (cons __tmp130903 _rest121892_))) + (__tmp130900 + (let ((__tmp130901 (let () (declare (not safe)) - (_bind-e__0__128549128550_ - _lambda-id122155_ - _L122128_)))) + (_bind-e__0__128531128532_ + _lambda-id122137_ + _L122110_)))) (declare (not safe)) - (cons __tmp130919 _lift1121888_)))) + (cons __tmp130901 _lift1121870_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp121885_ - __tmp130920 - __tmp130918 - _lift2121889_ - _bind121890_)))) - _hd122060122122_ - _hd122057122114_ - _hd122054122106_) + (_lp121867_ + __tmp130902 + __tmp130900 + _lift2121871_ + _bind121872_)))) + _hd122042122104_ + _hd122039122096_ + _hd122036122088_) (let () (declare (not safe)) - (_g122036122066_ - _g122037122069_))))) + (_g122018122048_ + _g122019122051_))))) (let () (declare (not safe)) - (_g122036122066_ _g122037122069_))) + (_g122018122048_ _g122019122051_))) (let () (declare (not safe)) - (_g122036122066_ _g122037122069_))) + (_g122018122048_ _g122019122051_))) (let () (declare (not safe)) - (_g122036122066_ _g122037122069_))))) + (_g122018122048_ _g122019122051_))))) (let () (declare (not safe)) - (_g122036122066_ _g122037122069_))) + (_g122018122048_ _g122019122051_))) (let () (declare (not safe)) - (_g122036122066_ _g122037122069_))))) + (_g122018122048_ _g122019122051_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g122036122066_ - _g122037122069_))))) + (_g122018122048_ + _g122019122051_))))) (let () (declare (not safe)) - (_g122036122066_ - _g122037122069_))))) + (_g122018122048_ + _g122019122051_))))) (let () (declare (not safe)) - (_g122036122066_ _g122037122069_))))) + (_g122018122048_ _g122019122051_))))) (let () (declare (not safe)) - (_g122036122066_ _g122037122069_))))) + (_g122018122048_ _g122019122051_))))) (let () (declare (not safe)) - (_g122036122066_ _g122037122069_)))))) + (_g122018122048_ _g122019122051_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g122035122161_ _L122021_)))) - (___kont130293130294_ - (lambda (_L121972_ _L121973_) - (let ((__tmp130922 - (let ((__tmp130923 - (let ((__tmp130924 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130925 + (_g122017122143_ _L122003_)))) + (___kont130275130276_ + (lambda (_L121954_ _L121955_) + (let ((__tmp130904 + (let ((__tmp130905 + (let ((__tmp130906 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp130907 (let () (declare (not safe)) - (gxc#compile-e__1 _self121246_ _L121972_)))) + (gxc#compile-e__1 _self121228_ _L121954_)))) (declare (not safe)) - (cons __tmp130925 '())))) + (cons __tmp130907 '())))) (declare (not safe)) - (cons _L121973_ __tmp130924)))) + (cons _L121955_ __tmp130906)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130923 - _bind121890_)))) + (cons __tmp130905 + _bind121872_)))) (declare (not safe)) - (_lp121885_ - _rest121910_ - _lift1121888_ - _lift2121889_ - __tmp130922))))) - (let* ((___match130338130339_ - (lambda (_e121932121997_ - _hd121931122000_ - _tl121930122002_ - _e121935122005_ - _hd121934122008_ - _tl121933122010_ - _e121938122013_ - _hd121937122016_ - _tl121936122018_) - (let ((_L122021_ - _hd121937122016_) - (_L122022_ - _hd121934122008_)) + (_lp121867_ + _rest121892_ + _lift1121870_ + _lift2121871_ + __tmp130904))))) + (let* ((___match130320130321_ + (lambda (_e121914121979_ + _hd121913121982_ + _tl121912121984_ + _e121917121987_ + _hd121916121990_ + _tl121915121992_ + _e121920121995_ + _hd121919121998_ + _tl121918122000_) + (let ((_L122003_ + _hd121919121998_) + (_L122004_ + _hd121916121990_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L122022_)) + _L122004_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L122021_))) - (___kont130291130292_ - _L122021_ - _L122022_) - (___kont130293130294_ - _hd121937122016_ - _hd121931122000_))))) - (___match130316130317_ - (lambda (_e121921122169_ - _hd121920122172_ - _tl121919122174_ - _e121924122177_ - _hd121923122180_ - _tl121922122182_ - _e121927122185_ - _hd121926122188_ - _tl121925122190_) - (let ((_L122193_ - _hd121926122188_) - (_L122194_ - _hd121923122180_)) + _L122003_))) + (___kont130273130274_ + _L122003_ + _L122004_) + (___kont130275130276_ + _hd121919121998_ + _hd121913121982_))))) + (___match130298130299_ + (lambda (_e121903122151_ + _hd121902122154_ + _tl121901122156_ + _e121906122159_ + _hd121905122162_ + _tl121904122164_ + _e121909122167_ + _hd121908122170_ + _tl121907122172_) + (let ((_L122175_ + _hd121908122170_) + (_L122176_ + _hd121905122162_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L122194_)) + _L122176_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L122193_))) - (___kont130289130290_ - _L122193_ - _L122194_) - (___match130338130339_ - _e121921122169_ - _hd121920122172_ - _tl121919122174_ - _e121924122177_ - _hd121923122180_ - _tl121922122182_ - _e121927122185_ - _hd121926122188_ - _tl121925122190_)))))) + _L122175_))) + (___kont130271130272_ + _L122175_ + _L122176_) + (___match130320130321_ + _e121903122151_ + _hd121902122154_ + _tl121901122156_ + _e121906122159_ + _hd121905122162_ + _tl121904122164_ + _e121909122167_ + _hd121908122170_ + _tl121907122172_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx130287130288_)) - (let ((_e121921122169_ + ___stx130269130270_)) + (let ((_e121903122151_ (let () (declare (not safe)) (gx#stx-e - ___stx130287130288_)))) - (let ((_tl121919122174_ + ___stx130269130270_)))) + (let ((_tl121901122156_ (let () (declare (not safe)) - (##cdr _e121921122169_))) - (_hd121920122172_ + (##cdr _e121903122151_))) + (_hd121902122154_ (let () (declare (not safe)) - (##car _e121921122169_)))) + (##car _e121903122151_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121920122172_)) - (let ((_e121924122177_ + _hd121902122154_)) + (let ((_e121906122159_ (let () (declare (not safe)) (gx#stx-e - _hd121920122172_)))) - (let ((_tl121922122182_ + _hd121902122154_)))) + (let ((_tl121904122164_ (let () (declare (not safe)) - (##cdr _e121924122177_))) - (_hd121923122180_ + (##cdr _e121906122159_))) + (_hd121905122162_ (let () (declare (not safe)) - (##car _e121924122177_)))) + (##car _e121906122159_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121922122182_)) + _tl121904122164_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl121919122174_)) - (let ((_e121927122185_ + (gx#stx-pair? _tl121901122156_)) + (let ((_e121909122167_ (let () (declare (not safe)) - (gx#stx-e _tl121919122174_)))) - (let ((_tl121925122190_ + (gx#stx-e _tl121901122156_)))) + (let ((_tl121907122172_ (let () (declare (not safe)) - (##cdr _e121927122185_))) - (_hd121926122188_ + (##cdr _e121909122167_))) + (_hd121908122170_ (let () (declare (not safe)) - (##car _e121927122185_)))) + (##car _e121909122167_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121925122190_)) - (___match130316130317_ - _e121921122169_ - _hd121920122172_ - _tl121919122174_ - _e121924122177_ - _hd121923122180_ - _tl121922122182_ - _e121927122185_ - _hd121926122188_ - _tl121925122190_) + (gx#stx-null? _tl121907122172_)) + (___match130298130299_ + _e121903122151_ + _hd121902122154_ + _tl121901122156_ + _e121906122159_ + _hd121905122162_ + _tl121904122164_ + _e121909122167_ + _hd121908122170_ + _tl121907122172_) (let () (declare (not safe)) - (_g121915121951_))))) - (let () (declare (not safe)) (_g121915121951_))) + (_g121897121933_))))) + (let () (declare (not safe)) (_g121897121933_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121919122174_)) - (let ((_e121946121964_ + (gx#stx-pair? _tl121901122156_)) + (let ((_e121928121946_ (let () (declare (not safe)) - (gx#stx-e _tl121919122174_)))) - (let ((_tl121944121969_ + (gx#stx-e _tl121901122156_)))) + (let ((_tl121926121951_ (let () (declare (not safe)) - (##cdr _e121946121964_))) - (_hd121945121967_ + (##cdr _e121928121946_))) + (_hd121927121949_ (let () (declare (not safe)) - (##car _e121946121964_)))) + (##car _e121928121946_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121944121969_)) - (___kont130293130294_ - _hd121945121967_ - _hd121920122172_) + (gx#stx-null? _tl121926121951_)) + (___kont130275130276_ + _hd121927121949_ + _hd121902122154_) (let () (declare (not safe)) - (_g121915121951_))))) - (let () (declare (not safe)) (_g121915121951_)))))) + (_g121897121933_))))) + (let () (declare (not safe)) (_g121897121933_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl121919122174_)) - (let ((_e121946121964_ + _tl121901122156_)) + (let ((_e121928121946_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl121919122174_)))) - (let ((_tl121944121969_ - (let () (declare (not safe)) (##cdr _e121946121964_))) - (_hd121945121967_ - (let () (declare (not safe)) (##car _e121946121964_)))) + (gx#stx-e _tl121901122156_)))) + (let ((_tl121926121951_ + (let () (declare (not safe)) (##cdr _e121928121946_))) + (_hd121927121949_ + (let () (declare (not safe)) (##car _e121928121946_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121944121969_)) - (___kont130293130294_ _hd121945121967_ _hd121920122172_) - (let () (declare (not safe)) (_g121915121951_))))) - (let () (declare (not safe)) (_g121915121951_)))))) + (gx#stx-null? _tl121926121951_)) + (___kont130275130276_ _hd121927121949_ _hd121902122154_) + (let () (declare (not safe)) (_g121897121933_))))) + (let () (declare (not safe)) (_g121897121933_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g121915121951_))))))))) + (_g121897121933_))))))))) (if (let () (declare (not safe)) - (##pair? _rest121891121899_)) - (let ((_hd121896122289_ + (##pair? _rest121873121881_)) + (let ((_hd121878122271_ (let () (declare (not safe)) - (##car _rest121891121899_))) - (_tl121897122291_ + (##car _rest121873121881_))) + (_tl121879122273_ (let () (declare (not safe)) - (##cdr _rest121891121899_)))) - (let* ((_hd122294_ _hd121896122289_) - (_rest122296_ _tl121897122291_)) + (##cdr _rest121873121881_)))) + (let* ((_hd122276_ _hd121878122271_) + (_rest122278_ _tl121879122273_)) (declare (not safe)) - (_K121895122286_ _rest122296_ _hd122294_))) + (_K121877122268_ _rest122278_ _hd122276_))) (let () (declare (not safe)) - (_else121893121907_))))))) - (_lift-kw-lambda?121251_ - (lambda (_bind121807_) - (let* ((___stx130355130356_ _bind121807_) - (_g121810121827_ + (_else121875121889_))))))) + (_lift-kw-lambda?121233_ + (lambda (_bind121789_) + (let* ((___stx130337130338_ _bind121789_) + (_g121792121809_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130355130356_))))) - (let ((___kont130357130358_ - (lambda (_L121863_ _L121864_) + ___stx130337130338_))))) + (let ((___kont130339130340_ + (lambda (_L121845_ _L121846_) (if (let () (declare (not safe)) - (gx#identifier? _L121864_)) + (gx#identifier? _L121846_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L121863_)) + (gxc#kw-lambda-expr? _L121845_)) '#f))) - (___kont130359130360_ (lambda () '#f))) + (___kont130341130342_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx130355130356_)) - (let ((_e121816121839_ + (gx#stx-pair? ___stx130337130338_)) + (let ((_e121798121821_ (let () (declare (not safe)) - (gx#stx-e ___stx130355130356_)))) - (let ((_tl121814121844_ + (gx#stx-e ___stx130337130338_)))) + (let ((_tl121796121826_ (let () (declare (not safe)) - (##cdr _e121816121839_))) - (_hd121815121842_ + (##cdr _e121798121821_))) + (_hd121797121824_ (let () (declare (not safe)) - (##car _e121816121839_)))) + (##car _e121798121821_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121815121842_)) - (let ((_e121819121847_ + (gx#stx-pair? _hd121797121824_)) + (let ((_e121801121829_ (let () (declare (not safe)) - (gx#stx-e _hd121815121842_)))) - (let ((_tl121817121852_ + (gx#stx-e _hd121797121824_)))) + (let ((_tl121799121834_ (let () (declare (not safe)) - (##cdr _e121819121847_))) - (_hd121818121850_ + (##cdr _e121801121829_))) + (_hd121800121832_ (let () (declare (not safe)) - (##car _e121819121847_)))) + (##car _e121801121829_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121817121852_)) + (gx#stx-null? _tl121799121834_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121814121844_)) - (let ((_e121822121855_ + _tl121796121826_)) + (let ((_e121804121837_ (let () (declare (not safe)) (gx#stx-e - _tl121814121844_)))) - (let ((_tl121820121860_ + _tl121796121826_)))) + (let ((_tl121802121842_ (let () (declare (not safe)) - (##cdr _e121822121855_))) - (_hd121821121858_ + (##cdr _e121804121837_))) + (_hd121803121840_ (let () (declare (not safe)) - (##car _e121822121855_)))) + (##car _e121804121837_)))) (if (let () (declare (not safe)) (gx#stx-null? - _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_ + _tl121802121842_)) + (___kont130339130340_ + _hd121803121840_ + _hd121800121832_) + (___kont130341130342_)))) + (___kont130341130342_)) + (___kont130341130342_)))) + (___kont130341130342_)))) + (___kont130341130342_)))))) + (_lift-kw-lambda-bindings121234_ + (lambda (_bindings121401_) + (let _lp121403_ ((_rest121405_ _bindings121401_) + (_lift1121406_ '()) + (_lift2121407_ '()) + (_bind121408_ '())) + (let* ((_rest121409121417_ _rest121405_) + (_else121411121425_ (lambda () - (values (reverse _lift1121424_) - (reverse _lift2121425_) - (reverse _bind121426_)))) - (_K121431121795_ - (lambda (_rest121446_ _hd121447_) - (let* ((___stx130385130386_ _hd121447_) - (_g121450121475_ + (values (reverse _lift1121406_) + (reverse _lift2121407_) + (reverse _bind121408_)))) + (_K121413121777_ + (lambda (_rest121428_ _hd121429_) + (let* ((___stx130367130368_ _hd121429_) + (_g121432121457_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130385130386_))))) - (let ((___kont130387130388_ - (lambda (_L121545_ _L121546_) - (let* ((_g121560121613_ - (lambda (_g121561121610_) + ___stx130367130368_))))) + (let ((___kont130369130370_ + (lambda (_L121527_ _L121528_) + (let* ((_g121542121595_ + (lambda (_g121543121592_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g121561121610_)))) - (_g121559121789_ - (lambda (_g121561121616_) + _g121543121592_)))) + (_g121541121771_ + (lambda (_g121543121598_) (if (let () (declare (not safe)) (gx#stx-pair? - _g121561121616_)) - (let ((_e121569121618_ + _g121543121598_)) + (let ((_e121551121600_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g121561121616_)))) - (let ((_hd121568121621_ + (gx#stx-e _g121543121598_)))) + (let ((_hd121550121603_ (let () (declare (not safe)) - (##car _e121569121618_))) - (_tl121567121623_ + (##car _e121551121600_))) + (_tl121549121605_ (let () (declare (not safe)) - (##cdr _e121569121618_)))) + (##cdr _e121551121600_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121567121623_)) - (let ((_e121572121626_ + (gx#stx-pair? _tl121549121605_)) + (let ((_e121554121608_ (let () (declare (not safe)) - (gx#stx-e _tl121567121623_)))) - (let ((_hd121571121629_ + (gx#stx-e _tl121549121605_)))) + (let ((_hd121553121611_ (let () (declare (not safe)) - (##car _e121572121626_))) - (_tl121570121631_ + (##car _e121554121608_))) + (_tl121552121613_ (let () (declare (not safe)) - (##cdr _e121572121626_)))) + (##cdr _e121554121608_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121571121629_)) - (let ((_e121575121634_ + (gx#stx-pair? _hd121553121611_)) + (let ((_e121557121616_ (let () (declare (not safe)) - (gx#stx-e _hd121571121629_)))) - (let ((_hd121574121637_ + (gx#stx-e _hd121553121611_)))) + (let ((_hd121556121619_ (let () (declare (not safe)) - (##car _e121575121634_))) - (_tl121573121639_ + (##car _e121557121616_))) + (_tl121555121621_ (let () (declare (not safe)) - (##cdr _e121575121634_)))) + (##cdr _e121557121616_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121574121637_)) - (let ((_e121578121642_ + (gx#stx-pair? _hd121556121619_)) + (let ((_e121560121624_ (let () (declare (not safe)) (gx#stx-e - _hd121574121637_)))) - (let ((_hd121577121645_ + _hd121556121619_)))) + (let ((_hd121559121627_ (let () (declare (not safe)) - (##car _e121578121642_))) - (_tl121576121647_ + (##car _e121560121624_))) + (_tl121558121629_ (let () (declare (not safe)) - (##cdr _e121578121642_)))) + (##cdr _e121560121624_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121577121645_)) - (let ((_e121581121650_ + _hd121559121627_)) + (let ((_e121563121632_ (let () (declare (not safe)) (gx#stx-e - _hd121577121645_)))) - (let ((_hd121580121653_ + _hd121559121627_)))) + (let ((_hd121562121635_ (let () (declare (not safe)) - (##car _e121581121650_))) - (_tl121579121655_ + (##car _e121563121632_))) + (_tl121561121637_ (let () (declare (not safe)) - (##cdr _e121581121650_)))) + (##cdr _e121563121632_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121579121655_)) + _tl121561121637_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl121576121647_)) - (let ((_e121584121658_ + (gx#stx-pair? _tl121558121629_)) + (let ((_e121566121640_ (let () (declare (not safe)) - (gx#stx-e _tl121576121647_)))) - (let ((_hd121583121661_ + (gx#stx-e _tl121558121629_)))) + (let ((_hd121565121643_ (let () (declare (not safe)) - (##car _e121584121658_))) - (_tl121582121663_ + (##car _e121566121640_))) + (_tl121564121645_ (let () (declare (not safe)) - (##cdr _e121584121658_)))) + (##cdr _e121566121640_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121583121661_)) - (let ((_e121587121666_ + (gx#stx-pair? _hd121565121643_)) + (let ((_e121569121648_ (let () (declare (not safe)) - (gx#stx-e _hd121583121661_)))) - (let ((_hd121586121669_ + (gx#stx-e _hd121565121643_)))) + (let ((_hd121568121651_ (let () (declare (not safe)) - (##car _e121587121666_))) - (_tl121585121671_ + (##car _e121569121648_))) + (_tl121567121653_ (let () (declare (not safe)) - (##cdr _e121587121666_)))) + (##cdr _e121569121648_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121585121671_)) - (let ((_e121590121674_ + (gx#stx-pair? _tl121567121653_)) + (let ((_e121572121656_ (let () (declare (not safe)) - (gx#stx-e _tl121585121671_)))) - (let ((_hd121589121677_ + (gx#stx-e _tl121567121653_)))) + (let ((_hd121571121659_ (let () (declare (not safe)) - (##car _e121590121674_))) - (_tl121588121679_ + (##car _e121572121656_))) + (_tl121570121661_ (let () (declare (not safe)) - (##cdr _e121590121674_)))) + (##cdr _e121572121656_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121589121677_)) - (let ((_e121593121682_ + _hd121571121659_)) + (let ((_e121575121664_ (let () (declare (not safe)) (gx#stx-e - _hd121589121677_)))) - (let ((_hd121592121685_ + _hd121571121659_)))) + (let ((_hd121574121667_ (let () (declare (not safe)) - (##car _e121593121682_))) - (_tl121591121687_ + (##car _e121575121664_))) + (_tl121573121669_ (let () (declare (not safe)) - (##cdr _e121593121682_)))) + (##cdr _e121575121664_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121592121685_)) - (let ((_e121596121690_ + _hd121574121667_)) + (let ((_e121578121672_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd121592121685_)))) - (let ((_hd121595121693_ - (let () (declare (not safe)) (##car _e121596121690_))) - (_tl121594121695_ - (let () (declare (not safe)) (##cdr _e121596121690_)))) + (gx#stx-e _hd121574121667_)))) + (let ((_hd121577121675_ + (let () (declare (not safe)) (##car _e121578121672_))) + (_tl121576121677_ + (let () (declare (not safe)) (##cdr _e121578121672_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121595121693_)) - (let ((_e121599121698_ + (gx#stx-pair? _hd121577121675_)) + (let ((_e121581121680_ (let () (declare (not safe)) - (gx#stx-e _hd121595121693_)))) - (let ((_hd121598121701_ + (gx#stx-e _hd121577121675_)))) + (let ((_hd121580121683_ (let () (declare (not safe)) - (##car _e121599121698_))) - (_tl121597121703_ + (##car _e121581121680_))) + (_tl121579121685_ (let () (declare (not safe)) - (##cdr _e121599121698_)))) + (##cdr _e121581121680_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121597121703_)) + (gx#stx-null? _tl121579121685_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121594121695_)) - (let ((_e121602121706_ + (gx#stx-pair? _tl121576121677_)) + (let ((_e121584121688_ (let () (declare (not safe)) - (gx#stx-e _tl121594121695_)))) - (let ((_hd121601121709_ + (gx#stx-e _tl121576121677_)))) + (let ((_hd121583121691_ (let () (declare (not safe)) - (##car _e121602121706_))) - (_tl121600121711_ + (##car _e121584121688_))) + (_tl121582121693_ (let () (declare (not safe)) - (##cdr _e121602121706_)))) + (##cdr _e121584121688_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121600121711_)) + (gx#stx-null? _tl121582121693_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl121591121687_)) + _tl121573121669_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl121588121679_)) - (let ((_e121605121714_ + _tl121570121661_)) + (let ((_e121587121696_ (let () (declare (not safe)) (gx#stx-e - _tl121588121679_)))) - (let ((_hd121604121717_ + _tl121570121661_)))) + (let ((_hd121586121699_ (let () (declare (not safe)) - (##car _e121605121714_))) - (_tl121603121719_ + (##car _e121587121696_))) + (_tl121585121701_ (let () (declare (not safe)) - (##cdr _e121605121714_)))) + (##cdr _e121587121696_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121603121719_)) + _tl121585121701_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl121582121663_)) + (gx#stx-null? _tl121564121645_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl121573121639_)) + (gx#stx-null? _tl121555121621_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121570121631_)) - (let ((_e121608121722_ + (gx#stx-pair? _tl121552121613_)) + (let ((_e121590121704_ (let () (declare (not safe)) - (gx#stx-e _tl121570121631_)))) - (let ((_hd121607121725_ + (gx#stx-e _tl121552121613_)))) + (let ((_hd121589121707_ (let () (declare (not safe)) - (##car _e121608121722_))) - (_tl121606121727_ + (##car _e121590121704_))) + (_tl121588121709_ (let () (declare (not safe)) - (##cdr _e121608121722_)))) + (##cdr _e121590121704_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121606121727_)) - ((lambda (_L121730_ - _L121731_ - _L121732_ - _L121733_ - _L121734_) - (let* ((_get-kws-id121774_ - (let ((__tmp130927 + (gx#stx-null? _tl121588121709_)) + ((lambda (_L121712_ + _L121713_ + _L121714_ + _L121715_ + _L121716_) + (let* ((_get-kws-id121756_ + (let ((__tmp130909 (let () (declare (not safe)) (gx#stx-e - _L121546_))) - (__tmp130926 + _L121528_))) + (__tmp130908 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp130927 - __tmp130926))) - (_get-kws-id121776_ - (let ((__tmp130928 + __tmp130909 + __tmp130908))) + (_get-kws-id121758_ + (let ((__tmp130910 (let () (declare (not safe)) (gx#stx-source - _stx121247_)))) + _stx121229_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id121774_ - __tmp130928))) - (_main-id121778_ - (let ((__tmp130930 + _get-kws-id121756_ + __tmp130910))) + (_main-id121760_ + (let ((__tmp130912 (let () (declare (not safe)) (gx#stx-e - _L121546_))) - (__tmp130929 + _L121528_))) + (__tmp130911 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp130930 - __tmp130929))) - (_main-id121780_ - (let ((__tmp130931 + __tmp130912 + __tmp130911))) + (_main-id121762_ + (let ((__tmp130913 (let () (declare (not safe)) (gx#stx-source - _stx121247_)))) + _stx121229_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id121778_ - __tmp130931))) - (_g130932_ + _main-id121760_ + __tmp130913))) + (_g130914_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id121776_))) - (_g130933_ + _get-kws-id121758_))) + (_g130915_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id121780_))) - (_new-kw-dispatch121784_ + _main-id121762_))) + (_new-kw-dispatch121766_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L121730_ + _L121712_ 'id: - _L121734_ + _L121716_ 'new-id: - _get-kws-id121776_))) - (_new-get-kws121786_ + _get-kws-id121758_))) + (_new-get-kws121768_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L121731_ + _L121713_ 'id: - _L121733_ + _L121715_ 'new-id: - _main-id121780_)))) - (let ((__tmp130936 + _main-id121762_)))) + (let ((__tmp130918 (let () (declare (not safe)) (gxc#identifier-symbol - _L121546_))) - (__tmp130935 + _L121528_))) + (__tmp130917 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id121776_))) - (__tmp130934 + _get-kws-id121758_))) + (__tmp130916 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id121780_)))) + _main-id121762_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp130936 + __tmp130918 '" => " - __tmp130935 + __tmp130917 '" => " - __tmp130934)) - (let ((__tmp130941 - (let ((__tmp130942 + __tmp130916)) + (let ((__tmp130923 + (let ((__tmp130924 (let () (declare (not safe)) - (_bind-e__128547128548_ - _main-id121780_ - _L121732_ + (_bind-e__128529128530_ + _main-id121762_ + _L121714_ '#f)))) (declare (not safe)) - (cons __tmp130942 - _lift1121424_))) - (__tmp130939 - (let ((__tmp130940 + (cons __tmp130924 + _lift1121406_))) + (__tmp130921 + (let ((__tmp130922 (let () (declare (not safe)) - (_bind-e__128547128548_ - _get-kws-id121776_ - _new-get-kws121786_ + (_bind-e__128529128530_ + _get-kws-id121758_ + _new-get-kws121768_ '#f)))) (declare (not safe)) - (cons __tmp130940 - _lift2121425_))) - (__tmp130937 - (let ((__tmp130938 + (cons __tmp130922 + _lift2121407_))) + (__tmp130919 + (let ((__tmp130920 (let () (declare (not safe)) - (_bind-e__128547128548_ - _L121546_ - _new-kw-dispatch121784_ + (_bind-e__128529128530_ + _L121528_ + _new-kw-dispatch121766_ '#f)))) (declare (not safe)) - (cons __tmp130938 - _bind121426_)))) + (cons __tmp130920 + _bind121408_)))) (declare (not safe)) - (_lp121421_ - _rest121446_ - __tmp130941 - __tmp130939 - __tmp130937)))) - _hd121607121725_ - _hd121604121717_ - _hd121601121709_ - _hd121598121701_ - _hd121580121653_) + (_lp121403_ + _rest121428_ + __tmp130923 + __tmp130921 + __tmp130919)))) + _hd121589121707_ + _hd121586121699_ + _hd121583121691_ + _hd121580121683_ + _hd121562121635_) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_))))) + (_g121542121595_ _g121543121598_))))) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_))) + (_g121542121595_ _g121543121598_))) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_))) + (_g121542121595_ _g121543121598_))) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_))) + (_g121542121595_ _g121543121598_))) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_))))) + (_g121542121595_ _g121543121598_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g121560121613_ - _g121561121616_))) + (_g121542121595_ + _g121543121598_))) (let () (declare (not safe)) - (_g121560121613_ - _g121561121616_))) + (_g121542121595_ + _g121543121598_))) (let () (declare (not safe)) - (_g121560121613_ - _g121561121616_))))) + (_g121542121595_ + _g121543121598_))))) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_))) + (_g121542121595_ _g121543121598_))) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_))))) + (_g121542121595_ _g121543121598_))))) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_))))) + (_g121542121595_ _g121543121598_))))) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_))))) + (_g121542121595_ _g121543121598_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g121560121613_ - _g121561121616_))))) + (_g121542121595_ + _g121543121598_))))) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_))))) + (_g121542121595_ _g121543121598_))))) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_))))) + (_g121542121595_ _g121543121598_))))) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_))) + (_g121542121595_ _g121543121598_))) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_))))) + (_g121542121595_ _g121543121598_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g121560121613_ - _g121561121616_))))) + (_g121542121595_ + _g121543121598_))))) (let () (declare (not safe)) - (_g121560121613_ - _g121561121616_))))) + (_g121542121595_ + _g121543121598_))))) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_))))) + (_g121542121595_ _g121543121598_))))) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_))))) + (_g121542121595_ _g121543121598_))))) (let () (declare (not safe)) - (_g121560121613_ _g121561121616_)))))) + (_g121542121595_ _g121543121598_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g121559121789_ _L121545_)))) - (___kont130389130390_ - (lambda (_L121496_ _L121497_) - (let ((__tmp130943 - (let ((__tmp130944 - (let ((__tmp130945 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L121496_ '())))) + (_g121541121771_ _L121527_)))) + (___kont130371130372_ + (lambda (_L121478_ _L121479_) + (let ((__tmp130925 + (let ((__tmp130926 + (let ((__tmp130927 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _L121478_ '())))) (declare (not safe)) - (cons _L121497_ __tmp130945)))) + (cons _L121479_ __tmp130927)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp130944 - _bind121426_)))) + (cons __tmp130926 + _bind121408_)))) (declare (not safe)) - (_lp121421_ - _rest121446_ - _lift1121424_ - _lift2121425_ - __tmp130943))))) - (let ((___match130412130413_ - (lambda (_e121456121521_ - _hd121455121524_ - _tl121454121526_ - _e121459121529_ - _hd121458121532_ - _tl121457121534_ - _e121462121537_ - _hd121461121540_ - _tl121460121542_) - (let ((_L121545_ - _hd121461121540_) - (_L121546_ - _hd121458121532_)) + (_lp121403_ + _rest121428_ + _lift1121406_ + _lift2121407_ + __tmp130925))))) + (let ((___match130394130395_ + (lambda (_e121438121503_ + _hd121437121506_ + _tl121436121508_ + _e121441121511_ + _hd121440121514_ + _tl121439121516_ + _e121444121519_ + _hd121443121522_ + _tl121442121524_) + (let ((_L121527_ + _hd121443121522_) + (_L121528_ + _hd121440121514_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L121546_)) + _L121528_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L121545_))) - (___kont130387130388_ - _L121545_ - _L121546_) - (___kont130389130390_ - _hd121461121540_ - _hd121455121524_)))))) + _L121527_))) + (___kont130369130370_ + _L121527_ + _L121528_) + (___kont130371130372_ + _hd121443121522_ + _hd121437121506_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx130385130386_)) - (let ((_e121456121521_ + ___stx130367130368_)) + (let ((_e121438121503_ (let () (declare (not safe)) (gx#stx-e - ___stx130385130386_)))) - (let ((_tl121454121526_ + ___stx130367130368_)))) + (let ((_tl121436121508_ (let () (declare (not safe)) - (##cdr _e121456121521_))) - (_hd121455121524_ + (##cdr _e121438121503_))) + (_hd121437121506_ (let () (declare (not safe)) - (##car _e121456121521_)))) + (##car _e121438121503_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd121455121524_)) - (let ((_e121459121529_ + _hd121437121506_)) + (let ((_e121441121511_ (let () (declare (not safe)) (gx#stx-e - _hd121455121524_)))) - (let ((_tl121457121534_ + _hd121437121506_)))) + (let ((_tl121439121516_ (let () (declare (not safe)) - (##cdr _e121459121529_))) - (_hd121458121532_ + (##cdr _e121441121511_))) + (_hd121440121514_ (let () (declare (not safe)) - (##car _e121459121529_)))) + (##car _e121441121511_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121457121534_)) + _tl121439121516_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl121454121526_)) - (let ((_e121462121537_ + (gx#stx-pair? _tl121436121508_)) + (let ((_e121444121519_ (let () (declare (not safe)) - (gx#stx-e _tl121454121526_)))) - (let ((_tl121460121542_ + (gx#stx-e _tl121436121508_)))) + (let ((_tl121442121524_ (let () (declare (not safe)) - (##cdr _e121462121537_))) - (_hd121461121540_ + (##cdr _e121444121519_))) + (_hd121443121522_ (let () (declare (not safe)) - (##car _e121462121537_)))) + (##car _e121444121519_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121460121542_)) - (___match130412130413_ - _e121456121521_ - _hd121455121524_ - _tl121454121526_ - _e121459121529_ - _hd121458121532_ - _tl121457121534_ - _e121462121537_ - _hd121461121540_ - _tl121460121542_) + (gx#stx-null? _tl121442121524_)) + (___match130394130395_ + _e121438121503_ + _hd121437121506_ + _tl121436121508_ + _e121441121511_ + _hd121440121514_ + _tl121439121516_ + _e121444121519_ + _hd121443121522_ + _tl121442121524_) (let () (declare (not safe)) - (_g121450121475_))))) - (let () (declare (not safe)) (_g121450121475_))) + (_g121432121457_))))) + (let () (declare (not safe)) (_g121432121457_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121454121526_)) - (let ((_e121470121488_ + (gx#stx-pair? _tl121436121508_)) + (let ((_e121452121470_ (let () (declare (not safe)) - (gx#stx-e _tl121454121526_)))) - (let ((_tl121468121493_ + (gx#stx-e _tl121436121508_)))) + (let ((_tl121450121475_ (let () (declare (not safe)) - (##cdr _e121470121488_))) - (_hd121469121491_ + (##cdr _e121452121470_))) + (_hd121451121473_ (let () (declare (not safe)) - (##car _e121470121488_)))) + (##car _e121452121470_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121468121493_)) - (___kont130389130390_ - _hd121469121491_ - _hd121455121524_) + (gx#stx-null? _tl121450121475_)) + (___kont130371130372_ + _hd121451121473_ + _hd121437121506_) (let () (declare (not safe)) - (_g121450121475_))))) - (let () (declare (not safe)) (_g121450121475_)))))) + (_g121432121457_))))) + (let () (declare (not safe)) (_g121432121457_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl121454121526_)) - (let ((_e121470121488_ + _tl121436121508_)) + (let ((_e121452121470_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl121454121526_)))) - (let ((_tl121468121493_ - (let () (declare (not safe)) (##cdr _e121470121488_))) - (_hd121469121491_ - (let () (declare (not safe)) (##car _e121470121488_)))) + (gx#stx-e _tl121436121508_)))) + (let ((_tl121450121475_ + (let () (declare (not safe)) (##cdr _e121452121470_))) + (_hd121451121473_ + (let () (declare (not safe)) (##car _e121452121470_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121468121493_)) - (___kont130389130390_ _hd121469121491_ _hd121455121524_) - (let () (declare (not safe)) (_g121450121475_))))) - (let () (declare (not safe)) (_g121450121475_)))))) + (gx#stx-null? _tl121450121475_)) + (___kont130371130372_ _hd121451121473_ _hd121437121506_) + (let () (declare (not safe)) (_g121432121457_))))) + (let () (declare (not safe)) (_g121432121457_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g121450121475_))))))))) + (_g121432121457_))))))))) (if (let () (declare (not safe)) - (##pair? _rest121427121435_)) - (let ((_hd121432121798_ + (##pair? _rest121409121417_)) + (let ((_hd121414121780_ (let () (declare (not safe)) - (##car _rest121427121435_))) - (_tl121433121800_ + (##car _rest121409121417_))) + (_tl121415121782_ (let () (declare (not safe)) - (##cdr _rest121427121435_)))) - (let* ((_hd121803_ _hd121432121798_) - (_rest121805_ _tl121433121800_)) + (##cdr _rest121409121417_)))) + (let* ((_hd121785_ _hd121414121780_) + (_rest121787_ _tl121415121782_)) (declare (not safe)) - (_K121431121795_ _rest121805_ _hd121803_))) + (_K121413121777_ _rest121787_ _hd121785_))) (let () (declare (not safe)) - (_else121429121443_)))))))) - (let* ((___stx130429130430_ _stx121247_) - (_g121255121281_ + (_else121411121425_)))))))) + (let* ((___stx130411130412_ _stx121229_) + (_g121237121263_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130429130430_))))) - (let ((___kont130431130432_ - (lambda (_L121341_ _L121342_) - (let ((__tmp130947 + ___stx130411130412_))))) + (let ((___kont130413130414_ + (lambda (_L121323_ _L121324_) + (let ((__tmp130929 (lambda () - (if (let ((__tmp130974 - (let ((__tmp130975 - (lambda (_g121370121373_ - _g121371121375_) + (if (let ((__tmp130956 + (let ((__tmp130957 + (lambda (_g121352121355_ + _g121353121357_) (let () (declare (not safe)) - (cons _g121370121373_ - _g121371121375_))))) + (cons _g121352121355_ + _g121353121357_))))) (declare (not safe)) - (foldr1 __tmp130975 + (foldr1 __tmp130957 '() - _L121342_)))) + _L121324_)))) (declare (not safe)) - (ormap1 _lift-kw-lambda?121251_ - __tmp130974)) - (let ((_g130961_ - (let ((__tmp130963 - (let ((__tmp130964 - (lambda (_g121377121380_ - _g121378121382_) + (ormap1 _lift-kw-lambda?121233_ + __tmp130956)) + (let ((_g130943_ + (let ((__tmp130945 + (let ((__tmp130946 + (lambda (_g121359121362_ + _g121360121364_) (let () (declare (not safe)) - (cons _g121377121380_ + (cons _g121359121362_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g121378121382_))))) + _g121360121364_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp130964 + (foldr1 __tmp130946 '() - _L121342_)))) + _L121324_)))) (declare (not safe)) - (_lift-kw-lambda-bindings121252_ - __tmp130963)))) + (_lift-kw-lambda-bindings121234_ + __tmp130945)))) (begin - (let ((_g130962_ + (let ((_g130944_ (let () (declare (not safe)) - (if (##values? _g130961_) - (##vector-length _g130961_) + (if (##values? _g130943_) + (##vector-length _g130943_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g130962_ 3))) + (##fx= _g130944_ 3))) (error "Context expects 3 values" - _g130962_))) - (let ((_lift1121385_ + _g130944_))) + (let ((_lift1121367_ (let () (declare (not safe)) - (##vector-ref _g130961_ 0))) - (_lift2121386_ + (##vector-ref _g130943_ 0))) + (_lift2121368_ (let () (declare (not safe)) - (##vector-ref _g130961_ 1))) - (_hd121387_ + (##vector-ref _g130943_ 1))) + (_hd121369_ (let () (declare (not safe)) - (##vector-ref _g130961_ 2)))) - (let* ((_expr121389_ - (let ((__tmp130965 - (let ((__tmp130966 - (let ((__tmp130967 + (##vector-ref _g130943_ 2)))) + (let* ((_expr121371_ + (let ((__tmp130947 + (let ((__tmp130948 + (let ((__tmp130949 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L121341_ '())))) + (cons _L121323_ '())))) (declare (not safe)) - (cons _hd121387_ __tmp130967)))) + (cons _hd121369_ __tmp130949)))) (declare (not safe)) - (cons '%#let-values __tmp130966)))) + (cons '%#let-values __tmp130948)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp130965 - _stx121247_))) - (_expr121391_ - (let ((__tmp130968 - (let ((__tmp130969 - (let ((__tmp130970 + __tmp130947 + _stx121229_))) + (_expr121373_ + (let ((__tmp130950 + (let ((__tmp130951 + (let ((__tmp130952 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr121389_ '())))) + (cons _expr121371_ '())))) (declare (not safe)) - (cons _lift2121386_ __tmp130970)))) + (cons _lift2121368_ __tmp130952)))) (declare (not safe)) - (cons '%#let-values __tmp130969)))) + (cons '%#let-values __tmp130951)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp130968 - _stx121247_))) - (_expr121393_ - (let ((__tmp130971 - (let ((__tmp130972 - (let ((__tmp130973 + __tmp130950 + _stx121229_))) + (_expr121375_ + (let ((__tmp130953 + (let ((__tmp130954 + (let ((__tmp130955 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr121391_ '())))) + (cons _expr121373_ '())))) (declare (not safe)) - (cons _lift1121385_ __tmp130973)))) + (cons _lift1121367_ __tmp130955)))) (declare (not safe)) - (cons '%#let-values __tmp130972)))) + (cons '%#let-values __tmp130954)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp130971 - _stx121247_)))) + __tmp130953 + _stx121229_)))) (let () (declare (not safe)) (gxc#lift-top-lambda-let-values% - _self121246_ - _expr121393_)))))) - (let ((_g130948_ - (let ((__tmp130950 - (let ((__tmp130951 - (lambda (_g121395121398_ - _g121396121400_) + _self121228_ + _expr121375_)))))) + (let ((_g130930_ + (let ((__tmp130932 + (let ((__tmp130933 + (lambda (_g121377121380_ + _g121378121382_) (let () (declare (not safe)) - (cons _g121395121398_ + (cons _g121377121380_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g121396121400_))))) + _g121378121382_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp130951 + (foldr1 __tmp130933 '() - _L121342_)))) + _L121324_)))) (declare (not safe)) - (_compile-bindings121250_ - __tmp130950)))) + (_compile-bindings121232_ + __tmp130932)))) (begin - (let ((_g130949_ + (let ((_g130931_ (let () (declare (not safe)) - (if (##values? _g130948_) - (##vector-length _g130948_) + (if (##values? _g130930_) + (##vector-length _g130930_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g130949_ 3))) + (##fx= _g130931_ 3))) (error "Context expects 3 values" - _g130949_))) - (let ((_lift1121403_ + _g130931_))) + (let ((_lift1121385_ (let () (declare (not safe)) - (##vector-ref _g130948_ 0))) - (_lift2121404_ + (##vector-ref _g130930_ 0))) + (_lift2121386_ (let () (declare (not safe)) - (##vector-ref _g130948_ 1))) - (_hd121405_ + (##vector-ref _g130930_ 1))) + (_hd121387_ (let () (declare (not safe)) - (##vector-ref _g130948_ 2)))) - (let* ((_body121407_ + (##vector-ref _g130930_ 2)))) + (let* ((_body121389_ (let () (declare (not safe)) (gxc#compile-e__1 - _self121246_ - _L121341_))) - (_expr121409_ - (let ((__tmp130952 - (let ((__tmp130953 - (let ((__tmp130954 + _self121228_ + _L121323_))) + (_expr121391_ + (let ((__tmp130934 + (let ((__tmp130935 + (let ((__tmp130936 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _body121407_ '())))) + (cons _body121389_ '())))) (declare (not safe)) - (cons _hd121405_ __tmp130954)))) + (cons _hd121387_ __tmp130936)))) (declare (not safe)) - (cons '%#let-values __tmp130953)))) + (cons '%#let-values __tmp130935)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp130952 - _stx121247_))) - (_expr121411_ + __tmp130934 + _stx121229_))) + (_expr121393_ (if (let () (declare (not safe)) - (null? _lift2121404_)) - _expr121409_ - (let ((__tmp130955 - (let ((__tmp130956 + (null? _lift2121386_)) + _expr121391_ + (let ((__tmp130937 + (let ((__tmp130938 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130957 + (let ((__tmp130939 (let () (declare (not safe)) - (cons _expr121409_ '())))) + (cons _expr121391_ '())))) (declare (not safe)) - (cons _lift2121404_ __tmp130957)))) + (cons _lift2121386_ __tmp130939)))) (declare (not safe)) - (cons '%#let-values __tmp130956)))) + (cons '%#let-values __tmp130938)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130955 _stx121247_)))) + (gxc#xform-wrap-source __tmp130937 _stx121229_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_expr121413_ + (_expr121395_ (if (let () (declare (not safe)) - (null? _lift1121403_)) - _expr121411_ - (let ((__tmp130958 - (let ((__tmp130959 + (null? _lift1121385_)) + _expr121393_ + (let ((__tmp130940 + (let ((__tmp130941 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130960 + (let ((__tmp130942 (let () (declare (not safe)) - (cons _expr121411_ '())))) + (cons _expr121393_ '())))) (declare (not safe)) - (cons _lift1121403_ __tmp130960)))) + (cons _lift1121385_ __tmp130942)))) (declare (not safe)) - (cons '%#let-values __tmp130959)))) + (cons '%#let-values __tmp130941)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp130958 _stx121247_))))) + (gxc#xform-wrap-source __tmp130940 _stx121229_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _expr121413_))))))) - (__tmp130946 - (let ((__obj130646 + _expr121395_))))))) + (__tmp130928 + (let ((__obj130628 (let () (declare (not safe)) (##structure @@ -14300,316 +14300,316 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj130646) - __obj130646))) + (gx#local-context:::init! __obj130628) + __obj130628))) (declare (not safe)) (call-with-parameters - __tmp130947 + __tmp130929 gx#current-expander-context - __tmp130946)))) - (___kont130435130436_ + __tmp130928)))) + (___kont130417130418_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _self121246_ _stx121247_))))) - (let ((___match130456130457_ - (lambda (_e121261121293_ - _hd121260121296_ - _tl121259121298_ - _e121264121301_ - _hd121263121304_ - _tl121262121306_ - ___splice130433130434_ - _target121265121309_ - _tl121267121311_) - (letrec ((_loop121268121314_ - (lambda (_hd121266121317_ _bind121272121319_) + (gxc#xform-let-values% _self121228_ _stx121229_))))) + (let ((___match130438130439_ + (lambda (_e121243121275_ + _hd121242121278_ + _tl121241121280_ + _e121246121283_ + _hd121245121286_ + _tl121244121288_ + ___splice130415130416_ + _target121247121291_ + _tl121249121293_) + (letrec ((_loop121250121296_ + (lambda (_hd121248121299_ _bind121254121301_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd121266121317_)) - (let ((_e121269121322_ + (gx#stx-pair? _hd121248121299_)) + (let ((_e121251121304_ (let () (declare (not safe)) - (gx#stx-e _hd121266121317_)))) - (let ((_lp-tl121271121327_ + (gx#stx-e _hd121248121299_)))) + (let ((_lp-tl121253121309_ (let () (declare (not safe)) - (##cdr _e121269121322_))) - (_lp-hd121270121325_ + (##cdr _e121251121304_))) + (_lp-hd121252121307_ (let () (declare (not safe)) - (##car _e121269121322_)))) - (let ((__tmp130978 + (##car _e121251121304_)))) + (let ((__tmp130960 (let () (declare (not safe)) - (cons _lp-hd121270121325_ - _bind121272121319_)))) + (cons _lp-hd121252121307_ + _bind121254121301_)))) (declare (not safe)) - (_loop121268121314_ - _lp-tl121271121327_ - __tmp130978)))) - (let ((_bind121273121330_ - (reverse _bind121272121319_))) + (_loop121250121296_ + _lp-tl121253121309_ + __tmp130960)))) + (let ((_bind121255121312_ + (reverse _bind121254121301_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121262121306_)) - (let ((_e121276121333_ + (gx#stx-pair? _tl121244121288_)) + (let ((_e121258121315_ (let () (declare (not safe)) (gx#stx-e - _tl121262121306_)))) - (let ((_tl121274121338_ + _tl121244121288_)))) + (let ((_tl121256121320_ (let () (declare (not safe)) - (##cdr _e121276121333_))) - (_hd121275121336_ + (##cdr _e121258121315_))) + (_hd121257121318_ (let () (declare (not safe)) - (##car _e121276121333_)))) + (##car _e121258121315_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl121274121338_)) - (let ((_L121341_ - _hd121275121336_) - (_L121342_ - _bind121273121330_)) - (if (let ((__tmp130976 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp130977 - (lambda (_g121362121365_ _g121363121367_) + _tl121256121320_)) + (let ((_L121323_ + _hd121257121318_) + (_L121324_ + _bind121255121312_)) + (if (let ((__tmp130958 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp130959 + (lambda (_g121344121347_ _g121345121349_) (let () (declare (not safe)) - (cons _g121362121365_ _g121363121367_))))) + (cons _g121344121347_ _g121345121349_))))) (declare (not safe)) - (foldr1 __tmp130977 '() _L121342_)))) + (foldr1 __tmp130959 '() _L121324_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp130976)) - (___kont130431130432_ _L121341_ _L121342_) - (___kont130435130436_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp130958)) + (___kont130413130414_ _L121323_ _L121324_) + (___kont130417130418_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont130435130436_)))) - (___kont130435130436_))))))) + (___kont130417130418_)))) + (___kont130417130418_))))))) (let () (declare (not safe)) - (_loop121268121314_ _target121265121309_ '())))))) + (_loop121250121296_ _target121247121291_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx130429130430_)) - (let ((_e121261121293_ + (gx#stx-pair? ___stx130411130412_)) + (let ((_e121243121275_ (let () (declare (not safe)) - (gx#stx-e ___stx130429130430_)))) - (let ((_tl121259121298_ + (gx#stx-e ___stx130411130412_)))) + (let ((_tl121241121280_ (let () (declare (not safe)) - (##cdr _e121261121293_))) - (_hd121260121296_ + (##cdr _e121243121275_))) + (_hd121242121278_ (let () (declare (not safe)) - (##car _e121261121293_)))) + (##car _e121243121275_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl121259121298_)) - (let ((_e121264121301_ + (gx#stx-pair? _tl121241121280_)) + (let ((_e121246121283_ (let () (declare (not safe)) - (gx#stx-e _tl121259121298_)))) - (let ((_tl121262121306_ + (gx#stx-e _tl121241121280_)))) + (let ((_tl121244121288_ (let () (declare (not safe)) - (##cdr _e121264121301_))) - (_hd121263121304_ + (##cdr _e121246121283_))) + (_hd121245121286_ (let () (declare (not safe)) - (##car _e121264121301_)))) + (##car _e121246121283_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd121263121304_)) - (let ((___splice130433130434_ + (gx#stx-pair/null? _hd121245121286_)) + (let ((___splice130415130416_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd121263121304_ + _hd121245121286_ '0)))) - (let ((_tl121267121311_ + (let ((_tl121249121293_ (let () (declare (not safe)) (##vector-ref - ___splice130433130434_ + ___splice130415130416_ '1))) - (_target121265121309_ + (_target121247121291_ (let () (declare (not safe)) (##vector-ref - ___splice130433130434_ + ___splice130415130416_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl121267121311_)) - (___match130456130457_ - _e121261121293_ - _hd121260121296_ - _tl121259121298_ - _e121264121301_ - _hd121263121304_ - _tl121262121306_ - ___splice130433130434_ - _target121265121309_ - _tl121267121311_) - (___kont130435130436_)))) - (___kont130435130436_)))) - (___kont130435130436_)))) - (___kont130435130436_)))))))) + (gx#stx-null? _tl121249121293_)) + (___match130438130439_ + _e121243121275_ + _hd121242121278_ + _tl121241121280_ + _e121246121283_ + _hd121245121286_ + _tl121244121288_ + ___splice130415130416_ + _target121247121291_ + _tl121249121293_) + (___kont130417130418_)))) + (___kont130417130418_)))) + (___kont130417130418_)))) + (___kont130417130418_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_self120389_ _stx120390_) - (letrec* ((_bind-e__128552128553_ - (lambda (_id121230_ _expr121231_ _compile?121232_) - (let ((__tmp130981 + (lambda (_self120371_ _stx120372_) + (letrec* ((_bind-e__128534128535_ + (lambda (_id121212_ _expr121213_ _compile?121214_) + (let ((__tmp130963 (let () (declare (not safe)) - (cons _id121230_ '()))) - (__tmp130979 - (let ((__tmp130980 - (if _compile?121232_ + (cons _id121212_ '()))) + (__tmp130961 + (let ((__tmp130962 + (if _compile?121214_ (let () (declare (not safe)) (gxc#compile-e__1 - _self120389_ - _expr121231_)) - _expr121231_))) + _self120371_ + _expr121213_)) + _expr121213_))) (declare (not safe)) - (cons __tmp130980 '())))) + (cons __tmp130962 '())))) (declare (not safe)) - (cons __tmp130981 __tmp130979)))) - (_bind-e__0__128554128555_ - (lambda (_id121237_ _expr121238_) - (let ((_compile?121240_ '#t)) + (cons __tmp130963 __tmp130961)))) + (_bind-e__0__128536128537_ + (lambda (_id121219_ _expr121220_) + (let ((_compile?121222_ '#t)) (declare (not safe)) - (_bind-e__128552128553_ - _id121237_ - _expr121238_ - _compile?121240_)))) - (_bind-e120392_ - (lambda _g130983_ - (let ((_g130982_ + (_bind-e__128534128535_ + _id121219_ + _expr121220_ + _compile?121222_)))) + (_bind-e120374_ + (lambda _g130965_ + (let ((_g130964_ (let () (declare (not safe)) - (##length _g130983_)))) - (cond ((let () (declare (not safe)) (##fx= _g130982_ 2)) - (apply (lambda (_id121237_ _expr121238_) + (##length _g130965_)))) + (cond ((let () (declare (not safe)) (##fx= _g130964_ 2)) + (apply (lambda (_id121219_ _expr121220_) (let () (declare (not safe)) - (_bind-e__0__128554128555_ - _id121237_ - _expr121238_))) - _g130983_)) - ((let () (declare (not safe)) (##fx= _g130982_ 3)) - (apply (lambda (_id121242_ - _expr121243_ - _compile?121244_) + (_bind-e__0__128536128537_ + _id121219_ + _expr121220_))) + _g130965_)) + ((let () (declare (not safe)) (##fx= _g130964_ 3)) + (apply (lambda (_id121224_ + _expr121225_ + _compile?121226_) (let () (declare (not safe)) - (_bind-e__128552128553_ - _id121242_ - _expr121243_ - _compile?121244_))) - _g130983_)) + (_bind-e__128534128535_ + _id121224_ + _expr121225_ + _compile?121226_))) + _g130965_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _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_ + _g130965_)))))) + (_compile-bindings120375_ + (lambda (_rest120510_) + (let _lp120512_ ((_rest120514_ _rest120510_) + (_bind120515_ '())) + (let* ((_rest120516120524_ _rest120514_) + (_else120518120532_ + (lambda () (reverse _bind120515_))) + (_K120520121199_ + (lambda (_rest120535_ _hd120536_) + (let* ((___stx130461130462_ _hd120536_) + (_g120541120588_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130479130480_))))) - (let ((___kont130481130482_ - (lambda (_L121124_ _L121125_) - (let* ((___stx130459130460_ - _L121124_) - (_g121140121154_ + ___stx130461130462_))))) + (let ((___kont130463130464_ + (lambda (_L121106_ _L121107_) + (let* ((___stx130441130442_ + _L121106_) + (_g121122121136_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130459130460_))))) - (let ((___kont130461130462_ - (lambda (_L121202_) - (let ((__tmp130984 - (let ((__tmp130985 + ___stx130441130442_))))) + (let ((___kont130443130444_ + (lambda (_L121184_) + (let ((__tmp130966 + (let ((__tmp130967 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__128552128553_ - _L121125_ - _L121124_ + (_bind-e__128534128535_ + _L121107_ + _L121106_ '#f)))) (declare (not safe)) - (cons __tmp130985 _bind120533_)))) + (cons __tmp130967 _bind120515_)))) (declare (not safe)) - (_lp120530_ _rest120553_ __tmp130984)))) + (_lp120512_ _rest120535_ __tmp130966)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont130463130464_ - (lambda (_L121167_) - (let ((_g130986_ + (___kont130445130446_ + (lambda (_L121149_) + (let ((_g130968_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx120390_ - _L121125_ - _L121167_ + _stx120372_ + _L121107_ + _L121149_ '#t)))) (begin - (let ((_g130987_ + (let ((_g130969_ (let () (declare (not safe)) - (if (##values? _g130986_) - (##vector-length _g130986_) + (if (##values? _g130968_) + (##vector-length _g130968_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g130987_ 3))) - (error "Context expects 3 values" _g130987_))) - (let ((_ids121177_ + (##fx= _g130969_ 3))) + (error "Context expects 3 values" _g130969_))) + (let ((_ids121159_ (let () (declare (not safe)) - (##vector-ref _g130986_ 0))) - (_impls121178_ + (##vector-ref _g130968_ 0))) + (_impls121160_ (let () (declare (not safe)) - (##vector-ref _g130986_ 1))) - (_clauses121179_ + (##vector-ref _g130968_ 1))) + (_clauses121161_ (let () (declare (not safe)) - (##vector-ref _g130986_ 2)))) - (let* ((_g130988_ - (for-each gx#core-bind-runtime! _ids121177_)) - (_xbind121182_ - (map _bind-e120392_ _ids121177_ _impls121178_)) - (_expr*121184_ - (let ((__tmp130990 + (##vector-ref _g130968_ 2)))) + (let* ((_g130970_ + (for-each gx#core-bind-runtime! _ids121159_)) + (_xbind121164_ + (map _bind-e120374_ _ids121159_ _impls121160_)) + (_expr*121166_ + (let ((__tmp130972 (let () (declare (not safe)) - (cons '%#case-lambda _clauses121179_))) - (__tmp130989 + (cons '%#case-lambda _clauses121161_))) + (__tmp130971 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -14617,1142 +14617,1142 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp130990 - __tmp130989))) - (_bind*121186_ + __tmp130972 + __tmp130971))) + (_bind*121168_ (let () (declare (not safe)) - (_bind-e__128552128553_ - _L121125_ - _expr*121184_ + (_bind-e__128534128535_ + _L121107_ + _expr*121166_ '#f)))) - (let ((__tmp130992 + (let ((__tmp130974 (let () (declare (not safe)) - (gxc#identifier-symbol _L121125_))) - (__tmp130991 - (map gxc#identifier-symbol _ids121177_))) + (gxc#identifier-symbol _L121107_))) + (__tmp130973 + (map gxc#identifier-symbol _ids121159_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp130992 + __tmp130974 '" => " - __tmp130991)) - (let ((__tmp130993 - (let ((__tmp130994 + __tmp130973)) + (let ((__tmp130975 + (let ((__tmp130976 (let () (declare (not safe)) (foldl1 cons - _bind120533_ - _xbind121182_)))) + _bind120515_ + _xbind121164_)))) (declare (not safe)) - (cons _bind*121186_ __tmp130994)))) + (cons _bind*121168_ __tmp130976)))) (declare (not safe)) - (_lp120530_ _rest120553_ __tmp130993))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match130470130471_ - (lambda (_e121145121194_ - _hd121144121197_ - _tl121143121199_) - (let ((_L121202_ - _tl121143121199_)) + (_lp120512_ _rest120535_ __tmp130975))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match130452130453_ + (lambda (_e121127121176_ + _hd121126121179_ + _tl121125121181_) + (let ((_L121184_ + _tl121125121181_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L121202_)) - (___kont130461130462_ _L121202_) - (___kont130463130464_ _tl121143121199_)))))) + (andmap1 gxc#dispatch-lambda-form? _L121184_)) + (___kont130443130444_ _L121184_) + (___kont130445130446_ _tl121125121181_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx130459130460_)) - (let ((_e121145121194_ + ___stx130441130442_)) + (let ((_e121127121176_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (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_) + (gx#stx-e ___stx130441130442_)))) + (let ((_tl121125121181_ + (let () (declare (not safe)) (##cdr _e121127121176_))) + (_hd121126121179_ + (let () (declare (not safe)) (##car _e121127121176_)))) + (___match130452130453_ + _e121127121176_ + _hd121126121179_ + _tl121125121181_))) + (let () (declare (not safe)) (_g121122121136_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont130465130466_ + (lambda (_L120934_ _L120935_) + (let* ((_g120949120979_ + (lambda (_g120950120976_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120968120994_)))) - (_g120966121092_ - (lambda (_g120968121000_) + _g120950120976_)))) + (_g120948121074_ + (lambda (_g120950120982_) (if (let () (declare (not safe)) (gx#stx-pair? - _g120968121000_)) - (let ((_e120974121002_ + _g120950120982_)) + (let ((_e120956120984_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g120968121000_)))) - (let ((_hd120973121005_ + (gx#stx-e _g120950120982_)))) + (let ((_hd120955120987_ (let () (declare (not safe)) - (##car _e120974121002_))) - (_tl120972121007_ + (##car _e120956120984_))) + (_tl120954120989_ (let () (declare (not safe)) - (##cdr _e120974121002_)))) + (##cdr _e120956120984_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120972121007_)) - (let ((_e120977121010_ + (gx#stx-pair? _tl120954120989_)) + (let ((_e120959120992_ (let () (declare (not safe)) - (gx#stx-e _tl120972121007_)))) - (let ((_hd120976121013_ + (gx#stx-e _tl120954120989_)))) + (let ((_hd120958120995_ (let () (declare (not safe)) - (##car _e120977121010_))) - (_tl120975121015_ + (##car _e120959120992_))) + (_tl120957120997_ (let () (declare (not safe)) - (##cdr _e120977121010_)))) + (##cdr _e120959120992_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120976121013_)) - (let ((_e120980121018_ + (gx#stx-pair? _hd120958120995_)) + (let ((_e120962121000_ (let () (declare (not safe)) - (gx#stx-e _hd120976121013_)))) - (let ((_hd120979121021_ + (gx#stx-e _hd120958120995_)))) + (let ((_hd120961121003_ (let () (declare (not safe)) - (##car _e120980121018_))) - (_tl120978121023_ + (##car _e120962121000_))) + (_tl120960121005_ (let () (declare (not safe)) - (##cdr _e120980121018_)))) + (##cdr _e120962121000_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120979121021_)) - (let ((_e120983121026_ + (gx#stx-pair? _hd120961121003_)) + (let ((_e120965121008_ (let () (declare (not safe)) (gx#stx-e - _hd120979121021_)))) - (let ((_hd120982121029_ + _hd120961121003_)))) + (let ((_hd120964121011_ (let () (declare (not safe)) - (##car _e120983121026_))) - (_tl120981121031_ + (##car _e120965121008_))) + (_tl120963121013_ (let () (declare (not safe)) - (##cdr _e120983121026_)))) + (##cdr _e120965121008_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120982121029_)) - (let ((_e120986121034_ + _hd120964121011_)) + (let ((_e120968121016_ (let () (declare (not safe)) (gx#stx-e - _hd120982121029_)))) - (let ((_hd120985121037_ + _hd120964121011_)))) + (let ((_hd120967121019_ (let () (declare (not safe)) - (##car _e120986121034_))) - (_tl120984121039_ + (##car _e120968121016_))) + (_tl120966121021_ (let () (declare (not safe)) - (##cdr _e120986121034_)))) + (##cdr _e120968121016_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120984121039_)) + _tl120966121021_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl120981121031_)) - (let ((_e120989121042_ + (gx#stx-pair? _tl120963121013_)) + (let ((_e120971121024_ (let () (declare (not safe)) - (gx#stx-e _tl120981121031_)))) - (let ((_hd120988121045_ + (gx#stx-e _tl120963121013_)))) + (let ((_hd120970121027_ (let () (declare (not safe)) - (##car _e120989121042_))) - (_tl120987121047_ + (##car _e120971121024_))) + (_tl120969121029_ (let () (declare (not safe)) - (##cdr _e120989121042_)))) + (##cdr _e120971121024_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120987121047_)) + (gx#stx-null? _tl120969121029_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl120978121023_)) + (gx#stx-null? _tl120960121005_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120975121015_)) - (let ((_e120992121050_ + (gx#stx-pair? _tl120957120997_)) + (let ((_e120974121032_ (let () (declare (not safe)) - (gx#stx-e _tl120975121015_)))) - (let ((_hd120991121053_ + (gx#stx-e _tl120957120997_)))) + (let ((_hd120973121035_ (let () (declare (not safe)) - (##car _e120992121050_))) - (_tl120990121055_ + (##car _e120974121032_))) + (_tl120972121037_ (let () (declare (not safe)) - (##cdr _e120992121050_)))) + (##cdr _e120974121032_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120990121055_)) - ((lambda (_L121058_ - _L121059_ - _L121060_) - (let* ((_lambda-id121084_ - (let ((__tmp130996 + _tl120972121037_)) + ((lambda (_L121040_ + _L121041_ + _L121042_) + (let* ((_lambda-id121066_ + (let ((__tmp130978 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L120953_))) - (__tmp130995 (gensym '__))) + (gx#stx-e _L120935_))) + (__tmp130977 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp130996 __tmp130995))) - (_lambda-id121086_ - (let ((__tmp130997 + (make-symbol__1 __tmp130978 __tmp130977))) + (_lambda-id121068_ + (let ((__tmp130979 (let () (declare (not safe)) - (gx#stx-source _stx120390_)))) + (gx#stx-source _stx120372_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id121084_ __tmp130997))) - (_g130998_ + (gx#core-quote-syntax__1 _lambda-id121066_ __tmp130979))) + (_g130980_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id121086_))) - (_new-case-lambda-expr121089_ + (gx#core-bind-runtime!__0 _lambda-id121068_))) + (_new-case-lambda-expr121071_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L121058_ + _L121040_ 'id: - _L121060_ + _L121042_ 'new-id: - _lambda-id121086_)))) + _lambda-id121068_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp131000 + (let ((__tmp130982 (let () (declare (not safe)) (gxc#identifier-symbol - _L120953_))) - (__tmp130999 + _L120935_))) + (__tmp130981 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id121086_)))) + _lambda-id121068_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp131000 + __tmp130982 '" => " - __tmp130999)) - (let ((__tmp131003 - (let ((__tmp131004 + __tmp130981)) + (let ((__tmp130985 + (let ((__tmp130986 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__128552128553_ - _L120953_ - _new-case-lambda-expr121089_ + (_bind-e__128534128535_ + _L120935_ + _new-case-lambda-expr121071_ '#f)))) (declare (not safe)) - (cons __tmp131004 _rest120553_))) - (__tmp131001 - (let ((__tmp131002 + (cons __tmp130986 _rest120535_))) + (__tmp130983 + (let ((__tmp130984 (let () (declare (not safe)) - (_bind-e__0__128554128555_ - _lambda-id121086_ - _L121059_)))) + (_bind-e__0__128536128537_ + _lambda-id121068_ + _L121041_)))) (declare (not safe)) - (cons __tmp131002 _bind120533_)))) + (cons __tmp130984 _bind120515_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp120530_ - __tmp131003 - __tmp131001)))) - _hd120991121053_ - _hd120988121045_ - _hd120985121037_) + (_lp120512_ + __tmp130985 + __tmp130983)))) + _hd120973121035_ + _hd120970121027_ + _hd120967121019_) (let () (declare (not safe)) - (_g120967120997_ - _g120968121000_))))) + (_g120949120979_ + _g120950120982_))))) (let () (declare (not safe)) - (_g120967120997_ _g120968121000_))) + (_g120949120979_ _g120950120982_))) (let () (declare (not safe)) - (_g120967120997_ _g120968121000_))) + (_g120949120979_ _g120950120982_))) (let () (declare (not safe)) - (_g120967120997_ _g120968121000_))))) + (_g120949120979_ _g120950120982_))))) (let () (declare (not safe)) - (_g120967120997_ _g120968121000_))) + (_g120949120979_ _g120950120982_))) (let () (declare (not safe)) - (_g120967120997_ _g120968121000_))))) + (_g120949120979_ _g120950120982_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120967120997_ - _g120968121000_))))) + (_g120949120979_ + _g120950120982_))))) (let () (declare (not safe)) - (_g120967120997_ - _g120968121000_))))) + (_g120949120979_ + _g120950120982_))))) (let () (declare (not safe)) - (_g120967120997_ _g120968121000_))))) + (_g120949120979_ _g120950120982_))))) (let () (declare (not safe)) - (_g120967120997_ _g120968121000_))))) + (_g120949120979_ _g120950120982_))))) (let () (declare (not safe)) - (_g120967120997_ _g120968121000_)))))) + (_g120949120979_ _g120950120982_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g120966121092_ _L120952_)))) - (___kont130485130486_ - (lambda (_L120676_ _L120677_) - (let* ((_g120691120744_ - (lambda (_g120692120741_) + (_g120948121074_ _L120934_)))) + (___kont130467130468_ + (lambda (_L120658_ _L120659_) + (let* ((_g120673120726_ + (lambda (_g120674120723_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120692120741_)))) - (_g120690120920_ - (lambda (_g120692120747_) + _g120674120723_)))) + (_g120672120902_ + (lambda (_g120674120729_) (if (let () (declare (not safe)) (gx#stx-pair? - _g120692120747_)) - (let ((_e120700120749_ + _g120674120729_)) + (let ((_e120682120731_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g120692120747_)))) - (let ((_hd120699120752_ + (gx#stx-e _g120674120729_)))) + (let ((_hd120681120734_ (let () (declare (not safe)) - (##car _e120700120749_))) - (_tl120698120754_ + (##car _e120682120731_))) + (_tl120680120736_ (let () (declare (not safe)) - (##cdr _e120700120749_)))) + (##cdr _e120682120731_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120698120754_)) - (let ((_e120703120757_ + (gx#stx-pair? _tl120680120736_)) + (let ((_e120685120739_ (let () (declare (not safe)) - (gx#stx-e _tl120698120754_)))) - (let ((_hd120702120760_ + (gx#stx-e _tl120680120736_)))) + (let ((_hd120684120742_ (let () (declare (not safe)) - (##car _e120703120757_))) - (_tl120701120762_ + (##car _e120685120739_))) + (_tl120683120744_ (let () (declare (not safe)) - (##cdr _e120703120757_)))) + (##cdr _e120685120739_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120702120760_)) - (let ((_e120706120765_ + (gx#stx-pair? _hd120684120742_)) + (let ((_e120688120747_ (let () (declare (not safe)) - (gx#stx-e _hd120702120760_)))) - (let ((_hd120705120768_ + (gx#stx-e _hd120684120742_)))) + (let ((_hd120687120750_ (let () (declare (not safe)) - (##car _e120706120765_))) - (_tl120704120770_ + (##car _e120688120747_))) + (_tl120686120752_ (let () (declare (not safe)) - (##cdr _e120706120765_)))) + (##cdr _e120688120747_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120705120768_)) - (let ((_e120709120773_ + (gx#stx-pair? _hd120687120750_)) + (let ((_e120691120755_ (let () (declare (not safe)) (gx#stx-e - _hd120705120768_)))) - (let ((_hd120708120776_ + _hd120687120750_)))) + (let ((_hd120690120758_ (let () (declare (not safe)) - (##car _e120709120773_))) - (_tl120707120778_ + (##car _e120691120755_))) + (_tl120689120760_ (let () (declare (not safe)) - (##cdr _e120709120773_)))) + (##cdr _e120691120755_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120708120776_)) - (let ((_e120712120781_ + _hd120690120758_)) + (let ((_e120694120763_ (let () (declare (not safe)) (gx#stx-e - _hd120708120776_)))) - (let ((_hd120711120784_ + _hd120690120758_)))) + (let ((_hd120693120766_ (let () (declare (not safe)) - (##car _e120712120781_))) - (_tl120710120786_ + (##car _e120694120763_))) + (_tl120692120768_ (let () (declare (not safe)) - (##cdr _e120712120781_)))) + (##cdr _e120694120763_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120710120786_)) + _tl120692120768_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl120707120778_)) - (let ((_e120715120789_ + (gx#stx-pair? _tl120689120760_)) + (let ((_e120697120771_ (let () (declare (not safe)) - (gx#stx-e _tl120707120778_)))) - (let ((_hd120714120792_ + (gx#stx-e _tl120689120760_)))) + (let ((_hd120696120774_ (let () (declare (not safe)) - (##car _e120715120789_))) - (_tl120713120794_ + (##car _e120697120771_))) + (_tl120695120776_ (let () (declare (not safe)) - (##cdr _e120715120789_)))) + (##cdr _e120697120771_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120714120792_)) - (let ((_e120718120797_ + (gx#stx-pair? _hd120696120774_)) + (let ((_e120700120779_ (let () (declare (not safe)) - (gx#stx-e _hd120714120792_)))) - (let ((_hd120717120800_ + (gx#stx-e _hd120696120774_)))) + (let ((_hd120699120782_ (let () (declare (not safe)) - (##car _e120718120797_))) - (_tl120716120802_ + (##car _e120700120779_))) + (_tl120698120784_ (let () (declare (not safe)) - (##cdr _e120718120797_)))) + (##cdr _e120700120779_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120716120802_)) - (let ((_e120721120805_ + (gx#stx-pair? _tl120698120784_)) + (let ((_e120703120787_ (let () (declare (not safe)) - (gx#stx-e _tl120716120802_)))) - (let ((_hd120720120808_ + (gx#stx-e _tl120698120784_)))) + (let ((_hd120702120790_ (let () (declare (not safe)) - (##car _e120721120805_))) - (_tl120719120810_ + (##car _e120703120787_))) + (_tl120701120792_ (let () (declare (not safe)) - (##cdr _e120721120805_)))) + (##cdr _e120703120787_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120720120808_)) - (let ((_e120724120813_ + _hd120702120790_)) + (let ((_e120706120795_ (let () (declare (not safe)) (gx#stx-e - _hd120720120808_)))) - (let ((_hd120723120816_ + _hd120702120790_)))) + (let ((_hd120705120798_ (let () (declare (not safe)) - (##car _e120724120813_))) - (_tl120722120818_ + (##car _e120706120795_))) + (_tl120704120800_ (let () (declare (not safe)) - (##cdr _e120724120813_)))) + (##cdr _e120706120795_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120723120816_)) - (let ((_e120727120821_ + _hd120705120798_)) + (let ((_e120709120803_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd120723120816_)))) - (let ((_hd120726120824_ - (let () (declare (not safe)) (##car _e120727120821_))) - (_tl120725120826_ - (let () (declare (not safe)) (##cdr _e120727120821_)))) + (gx#stx-e _hd120705120798_)))) + (let ((_hd120708120806_ + (let () (declare (not safe)) (##car _e120709120803_))) + (_tl120707120808_ + (let () (declare (not safe)) (##cdr _e120709120803_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120726120824_)) - (let ((_e120730120829_ + (gx#stx-pair? _hd120708120806_)) + (let ((_e120712120811_ (let () (declare (not safe)) - (gx#stx-e _hd120726120824_)))) - (let ((_hd120729120832_ + (gx#stx-e _hd120708120806_)))) + (let ((_hd120711120814_ (let () (declare (not safe)) - (##car _e120730120829_))) - (_tl120728120834_ + (##car _e120712120811_))) + (_tl120710120816_ (let () (declare (not safe)) - (##cdr _e120730120829_)))) + (##cdr _e120712120811_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120728120834_)) + (gx#stx-null? _tl120710120816_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120725120826_)) - (let ((_e120733120837_ + (gx#stx-pair? _tl120707120808_)) + (let ((_e120715120819_ (let () (declare (not safe)) - (gx#stx-e _tl120725120826_)))) - (let ((_hd120732120840_ + (gx#stx-e _tl120707120808_)))) + (let ((_hd120714120822_ (let () (declare (not safe)) - (##car _e120733120837_))) - (_tl120731120842_ + (##car _e120715120819_))) + (_tl120713120824_ (let () (declare (not safe)) - (##cdr _e120733120837_)))) + (##cdr _e120715120819_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120731120842_)) + (gx#stx-null? _tl120713120824_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl120722120818_)) + _tl120704120800_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl120719120810_)) - (let ((_e120736120845_ + _tl120701120792_)) + (let ((_e120718120827_ (let () (declare (not safe)) (gx#stx-e - _tl120719120810_)))) - (let ((_hd120735120848_ + _tl120701120792_)))) + (let ((_hd120717120830_ (let () (declare (not safe)) - (##car _e120736120845_))) - (_tl120734120850_ + (##car _e120718120827_))) + (_tl120716120832_ (let () (declare (not safe)) - (##cdr _e120736120845_)))) + (##cdr _e120718120827_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120734120850_)) + _tl120716120832_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl120713120794_)) + (gx#stx-null? _tl120695120776_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl120704120770_)) + (gx#stx-null? _tl120686120752_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120701120762_)) - (let ((_e120739120853_ + (gx#stx-pair? _tl120683120744_)) + (let ((_e120721120835_ (let () (declare (not safe)) - (gx#stx-e _tl120701120762_)))) - (let ((_hd120738120856_ + (gx#stx-e _tl120683120744_)))) + (let ((_hd120720120838_ (let () (declare (not safe)) - (##car _e120739120853_))) - (_tl120737120858_ + (##car _e120721120835_))) + (_tl120719120840_ (let () (declare (not safe)) - (##cdr _e120739120853_)))) + (##cdr _e120721120835_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120737120858_)) - ((lambda (_L120861_ - _L120862_ - _L120863_ - _L120864_ - _L120865_) - (let* ((_get-kws-id120905_ - (let ((__tmp131006 + (gx#stx-null? _tl120719120840_)) + ((lambda (_L120843_ + _L120844_ + _L120845_ + _L120846_ + _L120847_) + (let* ((_get-kws-id120887_ + (let ((__tmp130988 (let () (declare (not safe)) (gx#stx-e - _L120677_))) - (__tmp131005 + _L120659_))) + (__tmp130987 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp131006 - __tmp131005))) - (_get-kws-id120907_ - (let ((__tmp131007 + __tmp130988 + __tmp130987))) + (_get-kws-id120889_ + (let ((__tmp130989 (let () (declare (not safe)) (gx#stx-source - _stx120390_)))) + _stx120372_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id120905_ - __tmp131007))) - (_main-id120909_ - (let ((__tmp131009 + _get-kws-id120887_ + __tmp130989))) + (_main-id120891_ + (let ((__tmp130991 (let () (declare (not safe)) (gx#stx-e - _L120677_))) - (__tmp131008 + _L120659_))) + (__tmp130990 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp131009 - __tmp131008))) - (_main-id120911_ - (let ((__tmp131010 + __tmp130991 + __tmp130990))) + (_main-id120893_ + (let ((__tmp130992 (let () (declare (not safe)) (gx#stx-source - _stx120390_)))) + _stx120372_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id120909_ - __tmp131010))) - (_g131011_ + _main-id120891_ + __tmp130992))) + (_g130993_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id120907_))) - (_g131012_ + _get-kws-id120889_))) + (_g130994_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id120911_))) - (_new-kw-dispatch120915_ + _main-id120893_))) + (_new-kw-dispatch120897_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L120861_ + _L120843_ 'id: - _L120865_ + _L120847_ 'new-id: - _get-kws-id120907_))) - (_new-get-kws120917_ + _get-kws-id120889_))) + (_new-get-kws120899_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L120862_ + _L120844_ 'id: - _L120864_ + _L120846_ 'new-id: - _main-id120911_)))) - (let ((__tmp131015 + _main-id120893_)))) + (let ((__tmp130997 (let () (declare (not safe)) (gxc#identifier-symbol - _L120677_))) - (__tmp131014 + _L120659_))) + (__tmp130996 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id120907_))) - (__tmp131013 + _get-kws-id120889_))) + (__tmp130995 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id120911_)))) + _main-id120893_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp131015 + __tmp130997 '" => " - __tmp131014 + __tmp130996 '" => " - __tmp131013)) - (let ((__tmp131016 - (let ((__tmp131021 + __tmp130995)) + (let ((__tmp130998 + (let ((__tmp131003 (let () (declare (not safe)) - (_bind-e__128552128553_ - _main-id120911_ - _L120863_ + (_bind-e__128534128535_ + _main-id120893_ + _L120845_ '#f))) - (__tmp131017 - (let ((__tmp131020 + (__tmp130999 + (let ((__tmp131002 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_bind-e__128552128553_ - _get-kws-id120907_ - _new-get-kws120917_ + (_bind-e__128534128535_ + _get-kws-id120889_ + _new-get-kws120899_ '#f))) - (__tmp131018 - (let ((__tmp131019 + (__tmp131000 + (let ((__tmp131001 (let () (declare (not safe)) - (_bind-e__128552128553_ - _L120677_ - _new-kw-dispatch120915_ + (_bind-e__128534128535_ + _L120659_ + _new-kw-dispatch120897_ '#f)))) (declare (not safe)) - (cons __tmp131019 _rest120553_)))) + (cons __tmp131001 _rest120535_)))) (declare (not safe)) - (cons __tmp131020 __tmp131018)))) + (cons __tmp131002 __tmp131000)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp131021 - __tmp131017)))) + (cons __tmp131003 + __tmp130999)))) (declare (not safe)) - (_lp120530_ - __tmp131016 - _bind120533_)))) - _hd120738120856_ - _hd120735120848_ - _hd120732120840_ - _hd120729120832_ - _hd120711120784_) + (_lp120512_ + __tmp130998 + _bind120515_)))) + _hd120720120838_ + _hd120717120830_ + _hd120714120822_ + _hd120711120814_ + _hd120693120766_) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_))))) + (_g120673120726_ _g120674120729_))))) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_))) + (_g120673120726_ _g120674120729_))) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_))) + (_g120673120726_ _g120674120729_))) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_))) + (_g120673120726_ _g120674120729_))) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_))))) + (_g120673120726_ _g120674120729_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120691120744_ - _g120692120747_))) + (_g120673120726_ + _g120674120729_))) (let () (declare (not safe)) - (_g120691120744_ - _g120692120747_))) + (_g120673120726_ + _g120674120729_))) (let () (declare (not safe)) - (_g120691120744_ - _g120692120747_))))) + (_g120673120726_ + _g120674120729_))))) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_))) + (_g120673120726_ _g120674120729_))) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_))))) + (_g120673120726_ _g120674120729_))))) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_))))) + (_g120673120726_ _g120674120729_))))) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_))))) + (_g120673120726_ _g120674120729_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120691120744_ - _g120692120747_))))) + (_g120673120726_ + _g120674120729_))))) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_))))) + (_g120673120726_ _g120674120729_))))) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_))))) + (_g120673120726_ _g120674120729_))))) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_))) + (_g120673120726_ _g120674120729_))) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_))))) + (_g120673120726_ _g120674120729_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120691120744_ - _g120692120747_))))) + (_g120673120726_ + _g120674120729_))))) (let () (declare (not safe)) - (_g120691120744_ - _g120692120747_))))) + (_g120673120726_ + _g120674120729_))))) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_))))) + (_g120673120726_ _g120674120729_))))) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_))))) + (_g120673120726_ _g120674120729_))))) (let () (declare (not safe)) - (_g120691120744_ _g120692120747_)))))) + (_g120673120726_ _g120674120729_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g120690120920_ _L120676_)))) - (___kont130487130488_ - (lambda (_L120627_ _L120628_) - (let ((__tmp131022 - (let ((__tmp131023 - (let ((__tmp131024 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp131025 + (_g120672120902_ _L120658_)))) + (___kont130469130470_ + (lambda (_L120609_ _L120610_) + (let ((__tmp131004 + (let ((__tmp131005 + (let ((__tmp131006 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp131007 (let () (declare (not safe)) - (gxc#compile-e__1 _self120389_ _L120627_)))) + (gxc#compile-e__1 _self120371_ _L120609_)))) (declare (not safe)) - (cons __tmp131025 '())))) + (cons __tmp131007 '())))) (declare (not safe)) - (cons _L120628_ __tmp131024)))) + (cons _L120610_ __tmp131006)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp131023 - _bind120533_)))) + (cons __tmp131005 + _bind120515_)))) (declare (not safe)) - (_lp120530_ - _rest120553_ - __tmp131022))))) - (let* ((___match130554130555_ - (lambda (_e120587120652_ - _hd120586120655_ - _tl120585120657_ - _e120590120660_ - _hd120589120663_ - _tl120588120665_ - _e120593120668_ - _hd120592120671_ - _tl120591120673_) - (let ((_L120676_ - _hd120592120671_) - (_L120677_ - _hd120589120663_)) + (_lp120512_ + _rest120535_ + __tmp131004))))) + (let* ((___match130536130537_ + (lambda (_e120569120634_ + _hd120568120637_ + _tl120567120639_ + _e120572120642_ + _hd120571120645_ + _tl120570120647_ + _e120575120650_ + _hd120574120653_ + _tl120573120655_) + (let ((_L120658_ + _hd120574120653_) + (_L120659_ + _hd120571120645_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L120677_)) + _L120659_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L120676_))) - (___kont130485130486_ - _L120676_ - _L120677_) - (___kont130487130488_ - _hd120592120671_ - _hd120586120655_))))) - (___match130532130533_ - (lambda (_e120576120928_ - _hd120575120931_ - _tl120574120933_ - _e120579120936_ - _hd120578120939_ - _tl120577120941_ - _e120582120944_ - _hd120581120947_ - _tl120580120949_) - (let ((_L120952_ - _hd120581120947_) - (_L120953_ - _hd120578120939_)) + _L120658_))) + (___kont130467130468_ + _L120658_ + _L120659_) + (___kont130469130470_ + _hd120574120653_ + _hd120568120637_))))) + (___match130514130515_ + (lambda (_e120558120910_ + _hd120557120913_ + _tl120556120915_ + _e120561120918_ + _hd120560120921_ + _tl120559120923_ + _e120564120926_ + _hd120563120929_ + _tl120562120931_) + (let ((_L120934_ + _hd120563120929_) + (_L120935_ + _hd120560120921_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L120953_)) + _L120935_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _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_)) + _L120934_))) + (___kont130465130466_ + _L120934_ + _L120935_) + (___match130536130537_ + _e120558120910_ + _hd120557120913_ + _tl120556120915_ + _e120561120918_ + _hd120560120921_ + _tl120559120923_ + _e120564120926_ + _hd120563120929_ + _tl120562120931_))))) + (___match130492130493_ + (lambda (_e120547121082_ + _hd120546121085_ + _tl120545121087_ + _e120550121090_ + _hd120549121093_ + _tl120548121095_ + _e120553121098_ + _hd120552121101_ + _tl120551121103_) + (let ((_L121106_ + _hd120552121101_) + (_L121107_ + _hd120549121093_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L121125_)) + _L121107_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L121124_))) - (___kont130481130482_ - _L121124_ - _L121125_) - (___match130532130533_ - _e120565121100_ - _hd120564121103_ - _tl120563121105_ - _e120568121108_ - _hd120567121111_ - _tl120566121113_ - _e120571121116_ - _hd120570121119_ - _tl120569121121_)))))) + _L121106_))) + (___kont130463130464_ + _L121106_ + _L121107_) + (___match130514130515_ + _e120547121082_ + _hd120546121085_ + _tl120545121087_ + _e120550121090_ + _hd120549121093_ + _tl120548121095_ + _e120553121098_ + _hd120552121101_ + _tl120551121103_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx130479130480_)) - (let ((_e120565121100_ + ___stx130461130462_)) + (let ((_e120547121082_ (let () (declare (not safe)) (gx#stx-e - ___stx130479130480_)))) - (let ((_tl120563121105_ + ___stx130461130462_)))) + (let ((_tl120545121087_ (let () (declare (not safe)) - (##cdr _e120565121100_))) - (_hd120564121103_ + (##cdr _e120547121082_))) + (_hd120546121085_ (let () (declare (not safe)) - (##car _e120565121100_)))) + (##car _e120547121082_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120564121103_)) - (let ((_e120568121108_ + _hd120546121085_)) + (let ((_e120550121090_ (let () (declare (not safe)) (gx#stx-e - _hd120564121103_)))) - (let ((_tl120566121113_ + _hd120546121085_)))) + (let ((_tl120548121095_ (let () (declare (not safe)) - (##cdr _e120568121108_))) - (_hd120567121111_ + (##cdr _e120550121090_))) + (_hd120549121093_ (let () (declare (not safe)) - (##car _e120568121108_)))) + (##car _e120550121090_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120566121113_)) + _tl120548121095_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl120563121105_)) - (let ((_e120571121116_ + (gx#stx-pair? _tl120545121087_)) + (let ((_e120553121098_ (let () (declare (not safe)) - (gx#stx-e _tl120563121105_)))) - (let ((_tl120569121121_ + (gx#stx-e _tl120545121087_)))) + (let ((_tl120551121103_ (let () (declare (not safe)) - (##cdr _e120571121116_))) - (_hd120570121119_ + (##cdr _e120553121098_))) + (_hd120552121101_ (let () (declare (not safe)) - (##car _e120571121116_)))) + (##car _e120553121098_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120569121121_)) - (___match130510130511_ - _e120565121100_ - _hd120564121103_ - _tl120563121105_ - _e120568121108_ - _hd120567121111_ - _tl120566121113_ - _e120571121116_ - _hd120570121119_ - _tl120569121121_) + (gx#stx-null? _tl120551121103_)) + (___match130492130493_ + _e120547121082_ + _hd120546121085_ + _tl120545121087_ + _e120550121090_ + _hd120549121093_ + _tl120548121095_ + _e120553121098_ + _hd120552121101_ + _tl120551121103_) (let () (declare (not safe)) - (_g120559120606_))))) - (let () (declare (not safe)) (_g120559120606_))) + (_g120541120588_))))) + (let () (declare (not safe)) (_g120541120588_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120563121105_)) - (let ((_e120601120619_ + (gx#stx-pair? _tl120545121087_)) + (let ((_e120583120601_ (let () (declare (not safe)) - (gx#stx-e _tl120563121105_)))) - (let ((_tl120599120624_ + (gx#stx-e _tl120545121087_)))) + (let ((_tl120581120606_ (let () (declare (not safe)) - (##cdr _e120601120619_))) - (_hd120600120622_ + (##cdr _e120583120601_))) + (_hd120582120604_ (let () (declare (not safe)) - (##car _e120601120619_)))) + (##car _e120583120601_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120599120624_)) - (___kont130487130488_ - _hd120600120622_ - _hd120564121103_) + (gx#stx-null? _tl120581120606_)) + (___kont130469130470_ + _hd120582120604_ + _hd120546121085_) (let () (declare (not safe)) - (_g120559120606_))))) - (let () (declare (not safe)) (_g120559120606_)))))) + (_g120541120588_))))) + (let () (declare (not safe)) (_g120541120588_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl120563121105_)) - (let ((_e120601120619_ + _tl120545121087_)) + (let ((_e120583120601_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl120563121105_)))) - (let ((_tl120599120624_ - (let () (declare (not safe)) (##cdr _e120601120619_))) - (_hd120600120622_ - (let () (declare (not safe)) (##car _e120601120619_)))) + (gx#stx-e _tl120545121087_)))) + (let ((_tl120581120606_ + (let () (declare (not safe)) (##cdr _e120583120601_))) + (_hd120582120604_ + (let () (declare (not safe)) (##car _e120583120601_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120599120624_)) - (___kont130487130488_ _hd120600120622_ _hd120564121103_) - (let () (declare (not safe)) (_g120559120606_))))) - (let () (declare (not safe)) (_g120559120606_)))))) + (gx#stx-null? _tl120581120606_)) + (___kont130469130470_ _hd120582120604_ _hd120546121085_) + (let () (declare (not safe)) (_g120541120588_))))) + (let () (declare (not safe)) (_g120541120588_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g120559120606_))))))))) + (_g120541120588_))))))))) (if (let () (declare (not safe)) - (##pair? _rest120534120542_)) - (let ((_hd120539121220_ + (##pair? _rest120516120524_)) + (let ((_hd120521121202_ (let () (declare (not safe)) - (##car _rest120534120542_))) - (_tl120540121222_ + (##car _rest120516120524_))) + (_tl120522121204_ (let () (declare (not safe)) - (##cdr _rest120534120542_)))) - (let* ((_hd121225_ _hd120539121220_) - (_rest121227_ _tl120540121222_)) + (##cdr _rest120516120524_)))) + (let* ((_hd121207_ _hd120521121202_) + (_rest121209_ _tl120522121204_)) (declare (not safe)) - (_K120538121217_ _rest121227_ _hd121225_))) + (_K120520121199_ _rest121209_ _hd121207_))) (let () (declare (not safe)) - (_else120536120550_)))))))) - (let* ((___stx130571130572_ _stx120390_) - (_g120396120423_ + (_else120518120532_)))))))) + (let* ((___stx130553130554_ _stx120372_) + (_g120378120405_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130571130572_))))) - (let ((___kont130573130574_ - (lambda (_L120483_ _L120484_ _L120485_) - (let ((__tmp131027 + ___stx130553130554_))))) + (let ((___kont130555130556_ + (lambda (_L120465_ _L120466_ _L120467_) + (let ((__tmp131009 (lambda () - (let ((_hd120522_ - (let ((__tmp131028 - (let ((__tmp131029 - (lambda (_g120514120517_ - _g120515120519_) + (let ((_hd120504_ + (let ((__tmp131010 + (let ((__tmp131011 + (lambda (_g120496120499_ + _g120497120501_) (let () (declare (not safe)) - (cons _g120514120517_ - _g120515120519_))))) + (cons _g120496120499_ + _g120497120501_))))) (declare (not safe)) - (foldr1 __tmp131029 + (foldr1 __tmp131011 '() - _L120484_)))) + _L120466_)))) (declare (not safe)) - (_compile-bindings120393_ __tmp131028))) - (_body120523_ + (_compile-bindings120375_ __tmp131010))) + (_body120505_ (let () (declare (not safe)) (gxc#compile-e__1 - _self120389_ - _L120483_)))) - (let ((__tmp131030 - (let ((__tmp131031 - (let ((__tmp131032 + _self120371_ + _L120465_)))) + (let ((__tmp131012 + (let ((__tmp131013 + (let ((__tmp131014 (let () (declare (not safe)) - (cons _body120523_ + (cons _body120505_ '())))) (declare (not safe)) - (cons _hd120522_ - __tmp131032)))) + (cons _hd120504_ + __tmp131014)))) (declare (not safe)) - (cons _L120485_ __tmp131031)))) + (cons _L120467_ __tmp131013)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp131030 - _stx120390_))))) - (__tmp131026 - (let ((__obj130647 + __tmp131012 + _stx120372_))))) + (__tmp131008 + (let ((__obj130629 (let () (declare (not safe)) (##structure @@ -15762,254 +15762,254 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj130647) - __obj130647))) + (gx#local-context:::init! __obj130629) + __obj130629))) (declare (not safe)) (call-with-parameters - __tmp131027 + __tmp131009 gx#current-expander-context - __tmp131026)))) - (___kont130577130578_ + __tmp131008)))) + (___kont130559130560_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _self120389_ _stx120390_))))) - (let ((___match130598130599_ - (lambda (_e120403120435_ - _hd120402120438_ - _tl120401120440_ - _e120406120443_ - _hd120405120446_ - _tl120404120448_ - ___splice130575130576_ - _target120407120451_ - _tl120409120453_) - (letrec ((_loop120410120456_ - (lambda (_hd120408120459_ _bind120414120461_) + (gxc#xform-let-values% _self120371_ _stx120372_))))) + (let ((___match130580130581_ + (lambda (_e120385120417_ + _hd120384120420_ + _tl120383120422_ + _e120388120425_ + _hd120387120428_ + _tl120386120430_ + ___splice130557130558_ + _target120389120433_ + _tl120391120435_) + (letrec ((_loop120392120438_ + (lambda (_hd120390120441_ _bind120396120443_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120408120459_)) - (let ((_e120411120464_ + (gx#stx-pair? _hd120390120441_)) + (let ((_e120393120446_ (let () (declare (not safe)) - (gx#stx-e _hd120408120459_)))) - (let ((_lp-tl120413120469_ + (gx#stx-e _hd120390120441_)))) + (let ((_lp-tl120395120451_ (let () (declare (not safe)) - (##cdr _e120411120464_))) - (_lp-hd120412120467_ + (##cdr _e120393120446_))) + (_lp-hd120394120449_ (let () (declare (not safe)) - (##car _e120411120464_)))) - (let ((__tmp131035 + (##car _e120393120446_)))) + (let ((__tmp131017 (let () (declare (not safe)) - (cons _lp-hd120412120467_ - _bind120414120461_)))) + (cons _lp-hd120394120449_ + _bind120396120443_)))) (declare (not safe)) - (_loop120410120456_ - _lp-tl120413120469_ - __tmp131035)))) - (let ((_bind120415120472_ - (reverse _bind120414120461_))) + (_loop120392120438_ + _lp-tl120395120451_ + __tmp131017)))) + (let ((_bind120397120454_ + (reverse _bind120396120443_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120404120448_)) - (let ((_e120418120475_ + (gx#stx-pair? _tl120386120430_)) + (let ((_e120400120457_ (let () (declare (not safe)) (gx#stx-e - _tl120404120448_)))) - (let ((_tl120416120480_ + _tl120386120430_)))) + (let ((_tl120398120462_ (let () (declare (not safe)) - (##cdr _e120418120475_))) - (_hd120417120478_ + (##cdr _e120400120457_))) + (_hd120399120460_ (let () (declare (not safe)) - (##car _e120418120475_)))) + (##car _e120400120457_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl120416120480_)) - (let ((_L120483_ - _hd120417120478_) - (_L120484_ - _bind120415120472_) - (_L120485_ - _hd120402120438_)) - (if (let ((__tmp131033 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp131034 - (lambda (_g120506120509_ _g120507120511_) + _tl120398120462_)) + (let ((_L120465_ + _hd120399120460_) + (_L120466_ + _bind120397120454_) + (_L120467_ + _hd120384120420_)) + (if (let ((__tmp131015 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp131016 + (lambda (_g120488120491_ _g120489120493_) (let () (declare (not safe)) - (cons _g120506120509_ _g120507120511_))))) + (cons _g120488120491_ _g120489120493_))))) (declare (not safe)) - (foldr1 __tmp131034 '() _L120484_)))) + (foldr1 __tmp131016 '() _L120466_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp131033)) - (___kont130573130574_ _L120483_ _L120484_ _L120485_) - (___kont130577130578_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp131015)) + (___kont130555130556_ _L120465_ _L120466_ _L120467_) + (___kont130559130560_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont130577130578_)))) - (___kont130577130578_))))))) + (___kont130559130560_)))) + (___kont130559130560_))))))) (let () (declare (not safe)) - (_loop120410120456_ _target120407120451_ '())))))) + (_loop120392120438_ _target120389120433_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx130571130572_)) - (let ((_e120403120435_ + (gx#stx-pair? ___stx130553130554_)) + (let ((_e120385120417_ (let () (declare (not safe)) - (gx#stx-e ___stx130571130572_)))) - (let ((_tl120401120440_ + (gx#stx-e ___stx130553130554_)))) + (let ((_tl120383120422_ (let () (declare (not safe)) - (##cdr _e120403120435_))) - (_hd120402120438_ + (##cdr _e120385120417_))) + (_hd120384120420_ (let () (declare (not safe)) - (##car _e120403120435_)))) + (##car _e120385120417_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120401120440_)) - (let ((_e120406120443_ + (gx#stx-pair? _tl120383120422_)) + (let ((_e120388120425_ (let () (declare (not safe)) - (gx#stx-e _tl120401120440_)))) - (let ((_tl120404120448_ + (gx#stx-e _tl120383120422_)))) + (let ((_tl120386120430_ (let () (declare (not safe)) - (##cdr _e120406120443_))) - (_hd120405120446_ + (##cdr _e120388120425_))) + (_hd120387120428_ (let () (declare (not safe)) - (##car _e120406120443_)))) + (##car _e120388120425_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd120405120446_)) - (let ((___splice130575130576_ + (gx#stx-pair/null? _hd120387120428_)) + (let ((___splice130557130558_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd120405120446_ + _hd120387120428_ '0)))) - (let ((_tl120409120453_ + (let ((_tl120391120435_ (let () (declare (not safe)) (##vector-ref - ___splice130575130576_ + ___splice130557130558_ '1))) - (_target120407120451_ + (_target120389120433_ (let () (declare (not safe)) (##vector-ref - ___splice130575130576_ + ___splice130557130558_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120409120453_)) - (___match130598130599_ - _e120403120435_ - _hd120402120438_ - _tl120401120440_ - _e120406120443_ - _hd120405120446_ - _tl120404120448_ - ___splice130575130576_ - _target120407120451_ - _tl120409120453_) - (___kont130577130578_)))) - (___kont130577130578_)))) - (___kont130577130578_)))) - (___kont130577130578_)))))))) + (gx#stx-null? _tl120391120435_)) + (___match130580130581_ + _e120385120417_ + _hd120384120420_ + _tl120383120422_ + _e120388120425_ + _hd120387120428_ + _tl120386120430_ + ___splice130557130558_ + _target120389120433_ + _tl120391120435_) + (___kont130559130560_)))) + (___kont130559130560_)))) + (___kont130559130560_)))) + (___kont130559130560_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_bind120307_) - (let* ((___stx130601130602_ _bind120307_) - (_g120310120327_ + (lambda (_bind120289_) + (let* ((___stx130583130584_ _bind120289_) + (_g120292120309_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx130601130602_))))) - (let ((___kont130603130604_ - (lambda (_L120363_ _L120364_) - (if (let () (declare (not safe)) (gx#identifier? _L120364_)) - (let ((_$e120380_ + ___stx130583130584_))))) + (let ((___kont130585130586_ + (lambda (_L120345_ _L120346_) + (if (let () (declare (not safe)) (gx#identifier? _L120346_)) + (let ((_$e120362_ (let () (declare (not safe)) - (gxc#case-lambda-expr? _L120363_)))) - (if _$e120380_ - _$e120380_ - (let ((_$e120383_ + (gxc#case-lambda-expr? _L120345_)))) + (if _$e120362_ + _$e120362_ + (let ((_$e120365_ (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L120363_)))) - (if _$e120383_ - _$e120383_ + (gxc#opt-lambda-expr? _L120345_)))) + (if _$e120365_ + _$e120365_ (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L120363_)))))) + (gxc#kw-lambda-expr? _L120345_)))))) '#f))) - (___kont130605130606_ (lambda () '#f))) + (___kont130587130588_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx130601130602_)) - (let ((_e120316120339_ + (gx#stx-pair? ___stx130583130584_)) + (let ((_e120298120321_ (let () (declare (not safe)) - (gx#stx-e ___stx130601130602_)))) - (let ((_tl120314120344_ - (let () (declare (not safe)) (##cdr _e120316120339_))) - (_hd120315120342_ + (gx#stx-e ___stx130583130584_)))) + (let ((_tl120296120326_ + (let () (declare (not safe)) (##cdr _e120298120321_))) + (_hd120297120324_ (let () (declare (not safe)) - (##car _e120316120339_)))) + (##car _e120298120321_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd120315120342_)) - (let ((_e120319120347_ + (gx#stx-pair? _hd120297120324_)) + (let ((_e120301120329_ (let () (declare (not safe)) - (gx#stx-e _hd120315120342_)))) - (let ((_tl120317120352_ + (gx#stx-e _hd120297120324_)))) + (let ((_tl120299120334_ (let () (declare (not safe)) - (##cdr _e120319120347_))) - (_hd120318120350_ + (##cdr _e120301120329_))) + (_hd120300120332_ (let () (declare (not safe)) - (##car _e120319120347_)))) + (##car _e120301120329_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120317120352_)) + (gx#stx-null? _tl120299120334_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120314120344_)) - (let ((_e120322120355_ + (gx#stx-pair? _tl120296120326_)) + (let ((_e120304120337_ (let () (declare (not safe)) - (gx#stx-e _tl120314120344_)))) - (let ((_tl120320120360_ + (gx#stx-e _tl120296120326_)))) + (let ((_tl120302120342_ (let () (declare (not safe)) - (##cdr _e120322120355_))) - (_hd120321120358_ + (##cdr _e120304120337_))) + (_hd120303120340_ (let () (declare (not safe)) - (##car _e120322120355_)))) + (##car _e120304120337_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120320120360_)) - (___kont130603130604_ - _hd120321120358_ - _hd120318120350_) - (___kont130605130606_)))) - (___kont130605130606_)) - (___kont130605130606_)))) - (___kont130605130606_)))) - (___kont130605130606_)))))))) + (gx#stx-null? _tl120302120342_)) + (___kont130585130586_ + _hd120303120340_ + _hd120300120332_) + (___kont130587130588_)))) + (___kont130587130588_)) + (___kont130587130588_)))) + (___kont130587130588_)))) + (___kont130587130588_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~1.scm b/src/bootstrap/gerbil/compiler/optimize-top~1.scm index 5e62edbd4..bd9cc541a 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]#_g131038_| + (define |gxc[1]#_g131020_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131040_| + (define |gxc[1]#_g131022_| (##structure gx#syntax-quote::t '::collect-top-level-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131042_| + (define |gxc[1]#_g131024_| (##structure gx#syntax-quote::t 'make-::collect-top-level-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131044_| + (define |gxc[1]#_g131026_| (##structure gx#syntax-quote::t '::collect-top-level-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131047_| + (define |gxc[1]#_g131029_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131049_| + (define |gxc[1]#_g131031_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131051_| + (define |gxc[1]#_g131033_| (##structure gx#syntax-quote::t 'make-::basic-expression-top-level-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131053_| + (define |gxc[1]#_g131035_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131057_| + (define |gxc[1]#_g131039_| (##structure gx#syntax-quote::t '::collect-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131059_| + (define |gxc[1]#_g131041_| (##structure gx#syntax-quote::t 'make-::collect-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131061_| + (define |gxc[1]#_g131043_| (##structure gx#syntax-quote::t '::collect-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131065_| + (define |gxc[1]#_g131047_| (##structure gx#syntax-quote::t '::basic-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131067_| + (define |gxc[1]#_g131049_| (##structure gx#syntax-quote::t 'make-::basic-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131069_| + (define |gxc[1]#_g131051_| (##structure gx#syntax-quote::t '::basic-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131072_| + (define |gxc[1]#_g131054_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131074_| + (define |gxc[1]#_g131056_| (##structure gx#syntax-quote::t '::lift-top-lambdas::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131076_| + (define |gxc[1]#_g131058_| (##structure gx#syntax-quote::t 'make-::lift-top-lambdas #f (gx#current-expander-context) '())) - (define |gxc[1]#_g131078_| + (define |gxc[1]#_g131060_| (##structure gx#syntax-quote::t '::lift-top-lambdas? @@ -128,7 +128,7 @@ '())) (begin (define |gxc[:0:]#::collect-top-level-type-info| - (let ((__obj130630 + (let ((__obj130612 (let () (declare (not safe)) (##structure @@ -152,7 +152,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130612 '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! - __obj130630 + __obj130612 '::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! - __obj130630 + __obj130612 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131036 - (let ((__tmp131037 |gxc[1]#_g131038_|)) + (let ((__tmp131018 + (let ((__tmp131019 |gxc[1]#_g131020_|)) (declare (not safe)) - (cons __tmp131037 '())))) + (cons __tmp131019 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj130630 - __tmp131036 + __obj130612 + __tmp131018 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130612 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -195,7 +195,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130612 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -203,7 +203,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130612 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -211,39 +211,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130612 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131039 |gxc[1]#_g131040_|)) + (let ((__tmp131021 |gxc[1]#_g131022_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130630 - __tmp131039 + __obj130612 + __tmp131021 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131041 |gxc[1]#_g131042_|)) + (let ((__tmp131023 |gxc[1]#_g131024_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130630 - __tmp131041 + __obj130612 + __tmp131023 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131043 |gxc[1]#_g131044_|)) + (let ((__tmp131025 |gxc[1]#_g131026_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130630 - __tmp131043 + __obj130612 + __tmp131025 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130612 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -251,7 +251,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130612 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -259,7 +259,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130612 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -267,14 +267,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130630 + __obj130612 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj130630)) + __obj130612)) (define |gxc[:0:]#::basic-expression-top-level-type| - (let ((__obj130632 + (let ((__obj130614 (let () (declare (not safe)) (##structure @@ -298,7 +298,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130614 '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! - __obj130632 + __obj130614 '::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! - __obj130632 + __obj130614 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131045 - (let ((__tmp131046 |gxc[1]#_g131047_|)) + (let ((__tmp131027 + (let ((__tmp131028 |gxc[1]#_g131029_|)) (declare (not safe)) - (cons __tmp131046 '())))) + (cons __tmp131028 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj130632 - __tmp131045 + __obj130614 + __tmp131027 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130614 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -341,7 +341,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130614 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -349,7 +349,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130614 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -357,39 +357,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130614 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131048 |gxc[1]#_g131049_|)) + (let ((__tmp131030 |gxc[1]#_g131031_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130632 - __tmp131048 + __obj130614 + __tmp131030 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131050 |gxc[1]#_g131051_|)) + (let ((__tmp131032 |gxc[1]#_g131033_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130632 - __tmp131050 + __obj130614 + __tmp131032 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131052 |gxc[1]#_g131053_|)) + (let ((__tmp131034 |gxc[1]#_g131035_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130632 - __tmp131052 + __obj130614 + __tmp131034 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130614 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -397,7 +397,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130614 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -405,7 +405,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130614 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -413,14 +413,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130632 + __obj130614 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj130632)) + __obj130614)) (define |gxc[:0:]#::collect-type-info| - (let ((__obj130634 + (let ((__obj130616 (let () (declare (not safe)) (##structure @@ -444,7 +444,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130616 '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! - __obj130634 + __obj130616 '::collect-type-info '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -460,26 +460,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130616 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131054 - (let ((__tmp131055 |gxc[1]#_g131038_|)) + (let ((__tmp131036 + (let ((__tmp131037 |gxc[1]#_g131020_|)) (declare (not safe)) - (cons __tmp131055 '())))) + (cons __tmp131037 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj130634 - __tmp131054 + __obj130616 + __tmp131036 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130616 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -487,7 +487,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130616 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -495,7 +495,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130616 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -503,39 +503,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130616 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131056 |gxc[1]#_g131057_|)) + (let ((__tmp131038 |gxc[1]#_g131039_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130634 - __tmp131056 + __obj130616 + __tmp131038 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131058 |gxc[1]#_g131059_|)) + (let ((__tmp131040 |gxc[1]#_g131041_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130634 - __tmp131058 + __obj130616 + __tmp131040 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131060 |gxc[1]#_g131061_|)) + (let ((__tmp131042 |gxc[1]#_g131043_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130634 - __tmp131060 + __obj130616 + __tmp131042 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130616 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -543,7 +543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130616 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -551,7 +551,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130616 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -559,14 +559,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130634 + __obj130616 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj130634)) + __obj130616)) (define |gxc[:0:]#::basic-expression-type| - (let ((__obj130636 + (let ((__obj130618 (let () (declare (not safe)) (##structure @@ -590,7 +590,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130636 + __obj130618 '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! - __obj130636 + __obj130618 '::basic-expression-type '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -606,26 +606,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130636 + __obj130618 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131062 - (let ((__tmp131063 |gxc[1]#_g131047_|)) + (let ((__tmp131044 + (let ((__tmp131045 |gxc[1]#_g131029_|)) (declare (not safe)) - (cons __tmp131063 '())))) + (cons __tmp131045 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj130636 - __tmp131062 + __obj130618 + __tmp131044 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130636 + __obj130618 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -633,7 +633,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130636 + __obj130618 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -641,7 +641,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130636 + __obj130618 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -649,39 +649,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130636 + __obj130618 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131064 |gxc[1]#_g131065_|)) + (let ((__tmp131046 |gxc[1]#_g131047_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130636 - __tmp131064 + __obj130618 + __tmp131046 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131066 |gxc[1]#_g131067_|)) + (let ((__tmp131048 |gxc[1]#_g131049_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130636 - __tmp131066 + __obj130618 + __tmp131048 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131068 |gxc[1]#_g131069_|)) + (let ((__tmp131050 |gxc[1]#_g131051_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130636 - __tmp131068 + __obj130618 + __tmp131050 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130636 + __obj130618 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -689,7 +689,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130636 + __obj130618 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -697,7 +697,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130636 + __obj130618 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -705,14 +705,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130636 + __obj130618 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj130636)) + __obj130618)) (define |gxc[:0:]#::lift-top-lambdas| - (let ((__obj130638 + (let ((__obj130620 (let () (declare (not safe)) (##structure @@ -736,7 +736,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130638 + __obj130620 '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! - __obj130638 + __obj130620 '::lift-top-lambdas '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -752,26 +752,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130638 + __obj130620 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131070 - (let ((__tmp131071 |gxc[1]#_g131072_|)) + (let ((__tmp131052 + (let ((__tmp131053 |gxc[1]#_g131054_|)) (declare (not safe)) - (cons __tmp131071 '())))) + (cons __tmp131053 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj130638 - __tmp131070 + __obj130620 + __tmp131052 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130638 + __obj130620 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -779,7 +779,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130638 + __obj130620 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -787,7 +787,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130638 + __obj130620 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -795,39 +795,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130638 + __obj130620 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131073 |gxc[1]#_g131074_|)) + (let ((__tmp131055 |gxc[1]#_g131056_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130638 - __tmp131073 + __obj130620 + __tmp131055 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131075 |gxc[1]#_g131076_|)) + (let ((__tmp131057 |gxc[1]#_g131058_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130638 - __tmp131075 + __obj130620 + __tmp131057 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp131077 |gxc[1]#_g131078_|)) + (let ((__tmp131059 |gxc[1]#_g131060_|)) (declare (not safe)) (##unchecked-structure-set! - __obj130638 - __tmp131077 + __obj130620 + __tmp131059 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj130638 + __obj130620 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -835,7 +835,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130638 + __obj130620 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -843,7 +843,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130638 + __obj130620 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -851,413 +851,413 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj130638 + __obj130620 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj130638)) + __obj130620)) (define |gxc[:0:]#defbasic-expression-type-annotations| - (lambda (_$stx120030_) - (let* ((_g120034120063_ - (lambda (_g120035120059_) + (lambda (_$stx120012_) + (let* ((_g120016120045_ + (lambda (_g120017120041_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120035120059_)))) - (_g120033120164_ - (lambda (_g120035120067_) + _g120017120041_)))) + (_g120015120146_ + (lambda (_g120017120049_) (if (let () (declare (not safe)) - (gx#stx-pair? _g120035120067_)) - (let ((_e120040120070_ + (gx#stx-pair? _g120017120049_)) + (let ((_e120022120052_ (let () (declare (not safe)) - (gx#syntax-e _g120035120067_)))) - (let ((_hd120039120074_ + (gx#syntax-e _g120017120049_)))) + (let ((_hd120021120056_ (let () (declare (not safe)) - (##car _e120040120070_))) - (_tl120038120077_ + (##car _e120022120052_))) + (_tl120020120059_ (let () (declare (not safe)) - (##cdr _e120040120070_)))) + (##cdr _e120022120052_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl120038120077_)) - (let ((_g131079_ + (gx#stx-pair/null? _tl120020120059_)) + (let ((_g131061_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl120038120077_ + _tl120020120059_ '0)))) (begin - (let ((_g131080_ + (let ((_g131062_ (let () (declare (not safe)) - (if (##values? _g131079_) - (##vector-length _g131079_) + (if (##values? _g131061_) + (##vector-length _g131061_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131080_ 2))) + (##fx= _g131062_ 2))) (error "Context expects 2 values" - _g131080_))) - (let ((_target120041120080_ + _g131062_))) + (let ((_target120023120062_ (let () (declare (not safe)) - (##vector-ref _g131079_ 0))) - (_tl120043120083_ + (##vector-ref _g131061_ 0))) + (_tl120025120065_ (let () (declare (not safe)) - (##vector-ref _g131079_ 1)))) + (##vector-ref _g131061_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120043120083_)) - (letrec ((_loop120044120086_ - (lambda (_hd120042120090_ - _type-e120048120093_ - _id120049120095_) + (gx#stx-null? _tl120025120065_)) + (letrec ((_loop120026120068_ + (lambda (_hd120024120072_ + _type-e120030120075_ + _id120031120077_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120042120090_)) - (let ((_e120045120098_ + _hd120024120072_)) + (let ((_e120027120080_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd120042120090_)))) - (let ((_lp-hd120046120102_ - (let () (declare (not safe)) (##car _e120045120098_))) - (_lp-tl120047120105_ + (gx#syntax-e _hd120024120072_)))) + (let ((_lp-hd120028120084_ + (let () (declare (not safe)) (##car _e120027120080_))) + (_lp-tl120029120087_ (let () (declare (not safe)) - (##cdr _e120045120098_)))) + (##cdr _e120027120080_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd120046120102_)) - (let ((_e120054120108_ + (gx#stx-pair? _lp-hd120028120084_)) + (let ((_e120036120090_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd120046120102_)))) - (let ((_hd120053120112_ + (gx#syntax-e _lp-hd120028120084_)))) + (let ((_hd120035120094_ (let () (declare (not safe)) - (##car _e120054120108_))) - (_tl120052120115_ + (##car _e120036120090_))) + (_tl120034120097_ (let () (declare (not safe)) - (##cdr _e120054120108_)))) + (##cdr _e120036120090_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120052120115_)) - (let ((_e120057120118_ + (gx#stx-pair? _tl120034120097_)) + (let ((_e120039120100_ (let () (declare (not safe)) - (gx#syntax-e _tl120052120115_)))) - (let ((_hd120056120122_ + (gx#syntax-e _tl120034120097_)))) + (let ((_hd120038120104_ (let () (declare (not safe)) - (##car _e120057120118_))) - (_tl120055120125_ + (##car _e120039120100_))) + (_tl120037120107_ (let () (declare (not safe)) - (##cdr _e120057120118_)))) + (##cdr _e120039120100_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120055120125_)) - (_loop120044120086_ - _lp-tl120047120105_ + (gx#stx-null? _tl120037120107_)) + (_loop120026120068_ + _lp-tl120029120087_ (let () (declare (not safe)) - (cons _hd120056120122_ - _type-e120048120093_)) + (cons _hd120038120104_ + _type-e120030120075_)) (let () (declare (not safe)) - (cons _hd120053120112_ - _id120049120095_))) - (_g120034120063_ _g120035120067_)))) - (_g120034120063_ _g120035120067_)))) - (_g120034120063_ _g120035120067_)))) - (let ((_type-e120050120128_ (reverse _type-e120048120093_)) - (_id120051120131_ (reverse _id120049120095_))) - ((lambda (_L120134_ _L120136_) - (let ((__tmp131092 + (cons _hd120035120094_ + _id120031120077_))) + (_g120016120045_ _g120017120049_)))) + (_g120016120045_ _g120017120049_)))) + (_g120016120045_ _g120017120049_)))) + (let ((_type-e120032120110_ (reverse _type-e120030120075_)) + (_id120033120113_ (reverse _id120031120077_))) + ((lambda (_L120116_ _L120118_) + (let ((__tmp131074 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp131081 + (__tmp131063 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L120134_ - _L120136_)) - (let ((__tmp131082 - (lambda (_g120152120156_ - _g120153120159_ - _g120154120161_) - (let ((__tmp131083 - (let ((__tmp131091 + _L120116_ + _L120118_)) + (let ((__tmp131064 + (lambda (_g120134120138_ + _g120135120141_ + _g120136120143_) + (let ((__tmp131065 + (let ((__tmp131073 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp131084 - (let ((__tmp131090 + (__tmp131066 + (let ((__tmp131072 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-annotations))) - (__tmp131085 - (let ((__tmp131087 + (__tmp131067 + (let ((__tmp131069 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp131089 + (let ((__tmp131071 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp131088 + (__tmp131070 (let () (declare (not safe)) - (cons _g120153120159_ '())))) + (cons _g120135120141_ '())))) (declare (not safe)) - (cons __tmp131089 __tmp131088))) - (__tmp131086 + (cons __tmp131071 __tmp131070))) + (__tmp131068 (let () (declare (not safe)) - (cons _g120152120156_ '())))) + (cons _g120134120138_ '())))) (declare (not safe)) - (cons __tmp131087 __tmp131086)))) + (cons __tmp131069 __tmp131068)))) (declare (not safe)) - (cons __tmp131090 __tmp131085)))) + (cons __tmp131072 __tmp131067)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp131091 - __tmp131084)))) + (cons __tmp131073 + __tmp131066)))) (declare (not safe)) - (cons __tmp131083 _g120154120161_))))) + (cons __tmp131065 _g120136120143_))))) (declare (not safe)) - (foldr2 __tmp131082 + (foldr2 __tmp131064 '() - _L120134_ - _L120136_))))) + _L120116_ + _L120118_))))) (declare (not safe)) - (cons __tmp131092 __tmp131081))) - _type-e120050120128_ - _id120051120131_)))))) + (cons __tmp131074 __tmp131063))) + _type-e120032120110_ + _id120033120113_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop120044120086_ - _target120041120080_ + (_loop120026120068_ + _target120023120062_ '() '())) - (_g120034120063_ _g120035120067_))))) - (_g120034120063_ _g120035120067_)))) - (_g120034120063_ _g120035120067_))))) - (_g120033120164_ _$stx120030_)))) + (_g120016120045_ _g120017120049_))))) + (_g120016120045_ _g120017120049_)))) + (_g120016120045_ _g120017120049_))))) + (_g120015120146_ _$stx120012_)))) (define |gxc[:0:]#defbasic-expression-type-builtin| - (lambda (_$stx120169_) - (let* ((_g120173120202_ - (lambda (_g120174120198_) + (lambda (_$stx120151_) + (let* ((_g120155120184_ + (lambda (_g120156120180_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g120174120198_)))) - (_g120172120302_ - (lambda (_g120174120206_) + _g120156120180_)))) + (_g120154120284_ + (lambda (_g120156120188_) (if (let () (declare (not safe)) - (gx#stx-pair? _g120174120206_)) - (let ((_e120179120209_ + (gx#stx-pair? _g120156120188_)) + (let ((_e120161120191_ (let () (declare (not safe)) - (gx#syntax-e _g120174120206_)))) - (let ((_hd120178120213_ + (gx#syntax-e _g120156120188_)))) + (let ((_hd120160120195_ (let () (declare (not safe)) - (##car _e120179120209_))) - (_tl120177120216_ + (##car _e120161120191_))) + (_tl120159120198_ (let () (declare (not safe)) - (##cdr _e120179120209_)))) + (##cdr _e120161120191_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl120177120216_)) - (let ((_g131093_ + (gx#stx-pair/null? _tl120159120198_)) + (let ((_g131075_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl120177120216_ + _tl120159120198_ '0)))) (begin - (let ((_g131094_ + (let ((_g131076_ (let () (declare (not safe)) - (if (##values? _g131093_) - (##vector-length _g131093_) + (if (##values? _g131075_) + (##vector-length _g131075_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g131094_ 2))) + (##fx= _g131076_ 2))) (error "Context expects 2 values" - _g131094_))) - (let ((_target120180120219_ + _g131076_))) + (let ((_target120162120201_ (let () (declare (not safe)) - (##vector-ref _g131093_ 0))) - (_tl120182120222_ + (##vector-ref _g131075_ 0))) + (_tl120164120204_ (let () (declare (not safe)) - (##vector-ref _g131093_ 1)))) + (##vector-ref _g131075_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120182120222_)) - (letrec ((_loop120183120225_ - (lambda (_hd120181120229_ - _type-e120187120232_ - _id120188120234_) + (gx#stx-null? _tl120164120204_)) + (letrec ((_loop120165120207_ + (lambda (_hd120163120211_ + _type-e120169120214_ + _id120170120216_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd120181120229_)) - (let ((_e120184120237_ + _hd120163120211_)) + (let ((_e120166120219_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd120181120229_)))) - (let ((_lp-hd120185120241_ - (let () (declare (not safe)) (##car _e120184120237_))) - (_lp-tl120186120244_ + (gx#syntax-e _hd120163120211_)))) + (let ((_lp-hd120167120223_ + (let () (declare (not safe)) (##car _e120166120219_))) + (_lp-tl120168120226_ (let () (declare (not safe)) - (##cdr _e120184120237_)))) + (##cdr _e120166120219_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd120185120241_)) - (let ((_e120193120247_ + (gx#stx-pair? _lp-hd120167120223_)) + (let ((_e120175120229_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd120185120241_)))) - (let ((_hd120192120251_ + (gx#syntax-e _lp-hd120167120223_)))) + (let ((_hd120174120233_ (let () (declare (not safe)) - (##car _e120193120247_))) - (_tl120191120254_ + (##car _e120175120229_))) + (_tl120173120236_ (let () (declare (not safe)) - (##cdr _e120193120247_)))) + (##cdr _e120175120229_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl120191120254_)) - (let ((_e120196120257_ + (gx#stx-pair? _tl120173120236_)) + (let ((_e120178120239_ (let () (declare (not safe)) - (gx#syntax-e _tl120191120254_)))) - (let ((_hd120195120261_ + (gx#syntax-e _tl120173120236_)))) + (let ((_hd120177120243_ (let () (declare (not safe)) - (##car _e120196120257_))) - (_tl120194120264_ + (##car _e120178120239_))) + (_tl120176120246_ (let () (declare (not safe)) - (##cdr _e120196120257_)))) + (##cdr _e120178120239_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl120194120264_)) - (_loop120183120225_ - _lp-tl120186120244_ + (gx#stx-null? _tl120176120246_)) + (_loop120165120207_ + _lp-tl120168120226_ (let () (declare (not safe)) - (cons _hd120195120261_ - _type-e120187120232_)) + (cons _hd120177120243_ + _type-e120169120214_)) (let () (declare (not safe)) - (cons _hd120192120251_ - _id120188120234_))) - (_g120173120202_ _g120174120206_)))) - (_g120173120202_ _g120174120206_)))) - (_g120173120202_ _g120174120206_)))) - (let ((_type-e120189120267_ (reverse _type-e120187120232_)) - (_id120190120270_ (reverse _id120188120234_))) - ((lambda (_L120273_ _L120275_) - (let ((__tmp131106 + (cons _hd120174120233_ + _id120170120216_))) + (_g120155120184_ _g120156120188_)))) + (_g120155120184_ _g120156120188_)))) + (_g120155120184_ _g120156120188_)))) + (let ((_type-e120171120249_ (reverse _type-e120169120214_)) + (_id120172120252_ (reverse _id120170120216_))) + ((lambda (_L120255_ _L120257_) + (let ((__tmp131088 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp131095 + (__tmp131077 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L120273_ - _L120275_)) - (let ((__tmp131096 - (lambda (_g120290120294_ - _g120291120297_ - _g120292120299_) - (let ((__tmp131097 - (let ((__tmp131105 + _L120255_ + _L120257_)) + (let ((__tmp131078 + (lambda (_g120272120276_ + _g120273120279_ + _g120274120281_) + (let ((__tmp131079 + (let ((__tmp131087 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp131098 - (let ((__tmp131104 + (__tmp131080 + (let ((__tmp131086 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-builtin))) - (__tmp131099 - (let ((__tmp131101 + (__tmp131081 + (let ((__tmp131083 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp131103 + (let ((__tmp131085 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp131102 + (__tmp131084 (let () (declare (not safe)) - (cons _g120291120297_ '())))) + (cons _g120273120279_ '())))) (declare (not safe)) - (cons __tmp131103 __tmp131102))) - (__tmp131100 + (cons __tmp131085 __tmp131084))) + (__tmp131082 (let () (declare (not safe)) - (cons _g120290120294_ '())))) + (cons _g120272120276_ '())))) (declare (not safe)) - (cons __tmp131101 __tmp131100)))) + (cons __tmp131083 __tmp131082)))) (declare (not safe)) - (cons __tmp131104 __tmp131099)))) + (cons __tmp131086 __tmp131081)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp131105 - __tmp131098)))) + (cons __tmp131087 + __tmp131080)))) (declare (not safe)) - (cons __tmp131097 _g120292120299_))))) + (cons __tmp131079 _g120274120281_))))) (declare (not safe)) - (foldr2 __tmp131096 + (foldr2 __tmp131078 '() - _L120273_ - _L120275_))))) + _L120255_ + _L120257_))))) (declare (not safe)) - (cons __tmp131106 __tmp131095))) - _type-e120189120267_ - _id120190120270_)))))) + (cons __tmp131088 __tmp131077))) + _type-e120171120249_ + _id120172120252_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop120183120225_ - _target120180120219_ + (_loop120165120207_ + _target120162120201_ '() '())) - (_g120173120202_ _g120174120206_))))) - (_g120173120202_ _g120174120206_)))) - (_g120173120202_ _g120174120206_))))) - (_g120172120302_ _$stx120169_)))))) + (_g120155120184_ _g120156120188_))))) + (_g120155120184_ _g120156120188_)))) + (_g120155120184_ _g120156120188_))))) + (_g120154120284_ _$stx120151_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~0.scm b/src/bootstrap/gerbil/compiler/optimize-xform~0.scm index 0e9d4a0f1..eb579b2af 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 1710833425) + (define gerbil/compiler/optimize-xform::timestamp 1710943499) (begin (define gxc#::collect-mutators::t - (let ((__tmp119817 (list gxc#::void::t)) - (__tmp119815 - (let ((__tmp119816 + (let ((__tmp119799 (list gxc#::void::t)) + (__tmp119797 + (let ((__tmp119798 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp119816 '())))) + (cons __tmp119798 '())))) (declare (not safe)) (make-class-type 'gxc#::collect-mutators::t '::collect-mutators - __tmp119817 + __tmp119799 '() - __tmp119815 + __tmp119797 '#f))) (define gxc#::collect-mutators? (let () (declare (not safe)) (make-class-predicate gxc#::collect-mutators::t))) (define gxc#make-::collect-mutators - (lambda _$args119556_ - (apply make-instance gxc#::collect-mutators::t _$args119556_))) + (lambda _$args119538_ + (apply make-instance gxc#::collect-mutators::t _$args119538_))) (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 (_stx119548_) + (lambda (_stx119530_) (force gxc#::collect-mutators-bind-methods!) - (let* ((_self119551_ - (let ((__obj119803 + (let* ((_self119533_ + (let ((__obj119785 (let () (declare (not safe)) (##structure gxc#::collect-mutators::t)))) - __obj119803)) - (__tmp119818 + __obj119785)) + (__tmp119800 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self119551_ _stx119548_))))) + (gxc#compile-e__1 _self119533_ _stx119530_))))) (declare (not safe)) (call-with-parameters - __tmp119818 + __tmp119800 gxc#current-compile-method - _self119551_)))) + _self119533_)))) (define gxc#::collect-methods::t - (let ((__tmp119821 (list gxc#::void::t)) - (__tmp119819 - (let ((__tmp119820 + (let ((__tmp119803 (list gxc#::void::t)) + (__tmp119801 + (let ((__tmp119802 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp119820 '())))) + (cons __tmp119802 '())))) (declare (not safe)) (make-class-type 'gxc#::collect-methods::t '::collect-methods - __tmp119821 + __tmp119803 '() - __tmp119819 + __tmp119801 '#f))) (define gxc#::collect-methods? (let () (declare (not safe)) (make-class-predicate gxc#::collect-methods::t))) (define gxc#make-::collect-methods - (lambda _$args119545_ - (apply make-instance gxc#::collect-methods::t _$args119545_))) + (lambda _$args119527_ + (apply make-instance gxc#::collect-methods::t _$args119527_))) (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 (_stx119537_) + (lambda (_stx119519_) (force gxc#::collect-methods-bind-methods!) - (let* ((_self119540_ - (let ((__obj119805 + (let* ((_self119522_ + (let ((__obj119787 (let () (declare (not safe)) (##structure gxc#::collect-methods::t)))) - __obj119805)) - (__tmp119822 + __obj119787)) + (__tmp119804 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self119540_ _stx119537_))))) + (gxc#compile-e__1 _self119522_ _stx119519_))))) (declare (not safe)) (call-with-parameters - __tmp119822 + __tmp119804 gxc#current-compile-method - _self119540_)))) + _self119522_)))) (define gxc#::expression-subst::t - (let ((__tmp119825 (list gxc#::basic-xform-expression::t)) - (__tmp119823 - (let ((__tmp119824 + (let ((__tmp119807 (list gxc#::basic-xform-expression::t)) + (__tmp119805 + (let ((__tmp119806 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp119824 '())))) + (cons __tmp119806 '())))) (declare (not safe)) (make-class-type 'gxc#::expression-subst::t '::expression-subst - __tmp119825 + __tmp119807 '(id new-id) - __tmp119823 + __tmp119805 '#f))) (define gxc#::expression-subst? (let () (declare (not safe)) (make-class-predicate gxc#::expression-subst::t))) (define gxc#make-::expression-subst - (lambda _$args119534_ - (apply make-instance gxc#::expression-subst::t _$args119534_))) + (lambda _$args119516_ + (apply make-instance gxc#::expression-subst::t _$args119516_))) (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 (_g119826_ _id119500119504_ _new-id119501119506_ _stx119508_) - (let* ((_id119511_ + (lambda (_g119808_ _id119482119486_ _new-id119483119488_ _stx119490_) + (let* ((_id119493_ (if (let () (declare (not safe)) - (eq? _id119500119504_ absent-value)) + (eq? _id119482119486_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'id:)) - _id119500119504_)) - (_new-id119513_ + _id119482119486_)) + (_new-id119495_ (if (let () (declare (not safe)) - (eq? _new-id119501119506_ absent-value)) + (eq? _new-id119483119488_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'new-id:)) - _new-id119501119506_))) + _new-id119483119488_))) (force gxc#::expression-subst-bind-methods!) - (let* ((_self119515_ - (let ((__obj119807 + (let* ((_self119497_ + (let ((__obj119789 (let () (declare (not safe)) (##structure gxc#::expression-subst::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119807 - _id119511_ + __obj119789 + _id119493_ '1 gxc#::expression-subst::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119807 - _new-id119513_ + __obj119789 + _new-id119495_ '2 gxc#::expression-subst::t '#f)) - __obj119807)) - (__tmp119827 + __obj119789)) + (__tmp119809 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self119515_ _stx119508_))))) + (gxc#compile-e__1 _self119497_ _stx119490_))))) (declare (not safe)) (call-with-parameters - __tmp119827 + __tmp119809 gxc#current-compile-method - _self119515_))))) + _self119497_))))) (define gxc#apply-expression-subst__@ - (lambda (_keys119499119522_ . _args119524_) + (lambda (_keys119481119504_ . _args119506_) (apply gxc#apply-expression-subst__% - _keys119499119522_ + _keys119481119504_ (let () (declare (not safe)) - (symbolic-table-ref _keys119499119522_ 'id: absent-value)) + (symbolic-table-ref _keys119481119504_ 'id: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys119499119522_ 'new-id: absent-value)) - _args119524_))) + (symbolic-table-ref _keys119481119504_ 'new-id: absent-value)) + _args119506_))) (define gxc#apply-expression-subst - (lambda _args119502119530_ + (lambda _args119484119512_ (apply keyword-dispatch '#(id: new-id:) gxc#apply-expression-subst__@ - _args119502119530_))) + _args119484119512_))) (define gxc#::expression-subst*::t - (let ((__tmp119830 (list gxc#::basic-xform-expression::t)) - (__tmp119828 - (let ((__tmp119829 + (let ((__tmp119812 (list gxc#::basic-xform-expression::t)) + (__tmp119810 + (let ((__tmp119811 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp119829 '())))) + (cons __tmp119811 '())))) (declare (not safe)) (make-class-type 'gxc#::expression-subst*::t '::expression-subst* - __tmp119830 + __tmp119812 '(subst) - __tmp119828 + __tmp119810 '#f))) (define gxc#::expression-subst*? (let () (declare (not safe)) (make-class-predicate gxc#::expression-subst*::t))) (define gxc#make-::expression-subst* - (lambda _$args119495_ - (apply make-instance gxc#::expression-subst*::t _$args119495_))) + (lambda _$args119477_ + (apply make-instance gxc#::expression-subst*::t _$args119477_))) (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 (_g119831_ _subst119466119469_ _stx119471_) - (let ((_subst119474_ + (lambda (_g119813_ _subst119448119451_ _stx119453_) + (let ((_subst119456_ (if (let () (declare (not safe)) - (eq? _subst119466119469_ absent-value)) + (eq? _subst119448119451_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'subst:)) - _subst119466119469_))) + _subst119448119451_))) (force gxc#::expression-subst*-bind-methods!) - (let* ((_self119476_ - (let ((__obj119809 + (let* ((_self119458_ + (let ((__obj119791 (let () (declare (not safe)) (##structure gxc#::expression-subst*::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119809 - _subst119474_ + __obj119791 + _subst119456_ '1 gxc#::expression-subst*::t '#f)) - __obj119809)) - (__tmp119832 + __obj119791)) + (__tmp119814 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self119476_ _stx119471_))))) + (gxc#compile-e__1 _self119458_ _stx119453_))))) (declare (not safe)) (call-with-parameters - __tmp119832 + __tmp119814 gxc#current-compile-method - _self119476_))))) + _self119458_))))) (define gxc#apply-expression-subst*__@ - (lambda (_keys119465119483_ . _args119485_) + (lambda (_keys119447119465_ . _args119467_) (apply gxc#apply-expression-subst*__% - _keys119465119483_ + _keys119447119465_ (let () (declare (not safe)) - (symbolic-table-ref _keys119465119483_ 'subst: absent-value)) - _args119485_))) + (symbolic-table-ref _keys119447119465_ 'subst: absent-value)) + _args119467_))) (define gxc#apply-expression-subst* - (lambda _args119467119491_ + (lambda _args119449119473_ (apply keyword-dispatch '#(subst:) gxc#apply-expression-subst*__@ - _args119467119491_))) + _args119449119473_))) (define gxc#::find-expression::t - (let ((__tmp119833 (list gxc#::false-expression::t))) + (let ((__tmp119815 (list gxc#::false-expression::t))) (declare (not safe)) (make-class-type 'gxc#::find-expression::t '::find-expression - __tmp119833 + __tmp119815 '() '() '#f))) @@ -544,8 +544,8 @@ (declare (not safe)) (make-class-predicate gxc#::find-expression::t))) (define gxc#make-::find-expression - (lambda _$args119461_ - (apply make-instance gxc#::find-expression::t _$args119461_))) + (lambda _$args119443_ + (apply make-instance gxc#::find-expression::t _$args119443_))) (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 ((__tmp119836 (list gxc#::find-expression::t)) - (__tmp119834 - (let ((__tmp119835 + (let ((__tmp119818 (list gxc#::find-expression::t)) + (__tmp119816 + (let ((__tmp119817 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp119835 '())))) + (cons __tmp119817 '())))) (declare (not safe)) (make-class-type 'gxc#::find-var-refs::t '::find-var-refs - __tmp119836 + __tmp119818 '(ids) - __tmp119834 + __tmp119816 '#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 _$args119457_ - (apply make-instance gxc#::find-var-refs::t _$args119457_))) + (lambda _$args119439_ + (apply make-instance gxc#::find-var-refs::t _$args119439_))) (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 (_g119837_ _ids119428119431_ _stx119433_) - (let ((_ids119436_ + (lambda (_g119819_ _ids119410119413_ _stx119415_) + (let ((_ids119418_ (if (let () (declare (not safe)) - (eq? _ids119428119431_ absent-value)) + (eq? _ids119410119413_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'ids:)) - _ids119428119431_))) + _ids119410119413_))) (force gxc#::find-var-refs-bind-methods!) - (let* ((_self119438_ - (let ((__obj119812 + (let* ((_self119420_ + (let ((__obj119794 (let () (declare (not safe)) (##structure gxc#::find-var-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119812 - _ids119436_ + __obj119794 + _ids119418_ '1 gxc#::find-var-refs::t '#f)) - __obj119812)) - (__tmp119838 + __obj119794)) + (__tmp119820 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self119438_ _stx119433_))))) + (gxc#compile-e__1 _self119420_ _stx119415_))))) (declare (not safe)) (call-with-parameters - __tmp119838 + __tmp119820 gxc#current-compile-method - _self119438_))))) + _self119420_))))) (define gxc#apply-find-var-refs__@ - (lambda (_keys119427119445_ . _args119447_) + (lambda (_keys119409119427_ . _args119429_) (apply gxc#apply-find-var-refs__% - _keys119427119445_ + _keys119409119427_ (let () (declare (not safe)) - (symbolic-table-ref _keys119427119445_ 'ids: absent-value)) - _args119447_))) + (symbolic-table-ref _keys119409119427_ 'ids: absent-value)) + _args119429_))) (define gxc#apply-find-var-refs - (lambda _args119429119453_ + (lambda _args119411119435_ (apply keyword-dispatch '#(ids:) gxc#apply-find-var-refs__@ - _args119429119453_))) + _args119411119435_))) (define gxc#::collect-runtime-refs::t - (let ((__tmp119841 (list gxc#::collect-expression-refs::t)) - (__tmp119839 - (let ((__tmp119840 + (let ((__tmp119823 (list gxc#::collect-expression-refs::t)) + (__tmp119821 + (let ((__tmp119822 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp119840 '())))) + (cons __tmp119822 '())))) (declare (not safe)) (make-class-type 'gxc#::collect-runtime-refs::t '::collect-runtime-refs - __tmp119841 + __tmp119823 '() - __tmp119839 + __tmp119821 '#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 _$args119423_ - (apply make-instance gxc#::collect-runtime-refs::t _$args119423_))) + (lambda _$args119405_ + (apply make-instance gxc#::collect-runtime-refs::t _$args119405_))) (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 (_g119842_ _table119394119397_ _stx119399_) - (let ((_table119402_ + (lambda (_g119824_ _table119376119379_ _stx119381_) + (let ((_table119384_ (if (let () (declare (not safe)) - (eq? _table119394119397_ absent-value)) + (eq? _table119376119379_ absent-value)) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _table119394119397_))) + _table119376119379_))) (force gxc#::collect-runtime-refs-bind-methods!) - (let* ((_self119404_ - (let ((__obj119814 + (let* ((_self119386_ + (let ((__obj119796 (let () (declare (not safe)) (##structure gxc#::collect-runtime-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119814 - _table119402_ + __obj119796 + _table119384_ '1 gxc#::collect-runtime-refs::t '#f)) - __obj119814)) - (__tmp119843 + __obj119796)) + (__tmp119825 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self119404_ _stx119399_))))) + (gxc#compile-e__1 _self119386_ _stx119381_))))) (declare (not safe)) (call-with-parameters - __tmp119843 + __tmp119825 gxc#current-compile-method - _self119404_))))) + _self119386_))))) (define gxc#apply-collect-runtime-refs__@ - (lambda (_keys119393119411_ . _args119413_) + (lambda (_keys119375119393_ . _args119395_) (apply gxc#apply-collect-runtime-refs__% - _keys119393119411_ + _keys119375119393_ (let () (declare (not safe)) - (symbolic-table-ref _keys119393119411_ 'table: absent-value)) - _args119413_))) + (symbolic-table-ref _keys119375119393_ 'table: absent-value)) + _args119395_))) (define gxc#apply-collect-runtime-refs - (lambda _args119395119419_ + (lambda _args119377119401_ (apply keyword-dispatch '#(table:) gxc#apply-collect-runtime-refs__@ - _args119395119419_))) + _args119377119401_))) (define gxc#collect-mutators-setq% - (lambda (_self119322_ _stx119323_) - (let* ((_g119325119342_ - (lambda (_g119326119339_) + (lambda (_self119304_ _stx119305_) + (let* ((_g119307119324_ + (lambda (_g119308119321_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g119326119339_)))) - (_g119324119389_ - (lambda (_g119326119345_) + _g119308119321_)))) + (_g119306119371_ + (lambda (_g119308119327_) (if (let () (declare (not safe)) - (gx#stx-pair? _g119326119345_)) - (let ((_e119331119347_ + (gx#stx-pair? _g119308119327_)) + (let ((_e119313119329_ (let () (declare (not safe)) - (gx#stx-e _g119326119345_)))) - (let ((_hd119330119350_ + (gx#stx-e _g119308119327_)))) + (let ((_hd119312119332_ (let () (declare (not safe)) - (##car _e119331119347_))) - (_tl119329119352_ + (##car _e119313119329_))) + (_tl119311119334_ (let () (declare (not safe)) - (##cdr _e119331119347_)))) + (##cdr _e119313119329_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119329119352_)) - (let ((_e119334119355_ + (gx#stx-pair? _tl119311119334_)) + (let ((_e119316119337_ (let () (declare (not safe)) - (gx#stx-e _tl119329119352_)))) - (let ((_hd119333119358_ + (gx#stx-e _tl119311119334_)))) + (let ((_hd119315119340_ (let () (declare (not safe)) - (##car _e119334119355_))) - (_tl119332119360_ + (##car _e119316119337_))) + (_tl119314119342_ (let () (declare (not safe)) - (##cdr _e119334119355_)))) + (##cdr _e119316119337_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl119332119360_)) - (let ((_e119337119363_ + (gx#stx-pair? _tl119314119342_)) + (let ((_e119319119345_ (let () (declare (not safe)) - (gx#stx-e _tl119332119360_)))) - (let ((_hd119336119366_ + (gx#stx-e _tl119314119342_)))) + (let ((_hd119318119348_ (let () (declare (not safe)) - (##car _e119337119363_))) - (_tl119335119368_ + (##car _e119319119345_))) + (_tl119317119350_ (let () (declare (not safe)) - (##cdr _e119337119363_)))) + (##cdr _e119319119345_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl119335119368_)) - ((lambda (_L119371_ _L119372_) - (let ((_sym119387_ + _tl119317119350_)) + ((lambda (_L119353_ _L119354_) + (let ((_sym119369_ (let () (declare (not safe)) (gxc#identifier-symbol - _L119372_)))) + _L119354_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _sym119387_)) - (let ((__tmp119844 + _sym119369_)) + (let ((__tmp119826 (gxc#current-compile-mutators))) (declare (not safe)) (hash-put! - __tmp119844 - _sym119387_ + __tmp119826 + _sym119369_ '#t)) (let () (declare (not safe)) (gxc#compile-e__1 - _self119322_ - _L119371_)))) - _hd119336119366_ - _hd119333119358_) + _self119304_ + _L119353_)))) + _hd119318119348_ + _hd119315119340_) (let () (declare (not safe)) - (_g119325119342_ - _g119326119345_))))) + (_g119307119324_ + _g119308119327_))))) (let () (declare (not safe)) - (_g119325119342_ _g119326119345_))))) + (_g119307119324_ _g119308119327_))))) (let () (declare (not safe)) - (_g119325119342_ _g119326119345_))))) + (_g119307119324_ _g119308119327_))))) (let () (declare (not safe)) - (_g119325119342_ _g119326119345_)))))) + (_g119307119324_ _g119308119327_)))))) (declare (not safe)) - (_g119324119389_ _stx119323_)))) + (_g119306119371_ _stx119305_)))) (define gxc#collect-methods-call% - (lambda (_self118875_ _stx118876_) - (let* ((___stx119559119560_ _stx118876_) - (_g118880118982_ + (lambda (_self118857_ _stx118858_) + (let* ((___stx119541119542_ _stx118858_) + (_g118862118964_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx119559119560_))))) - (let ((___kont119561119562_ - (lambda (_L119272_ _L119273_ _L119274_ _L119275_ _L119276_) - (let ((__tmp119845 + ___stx119541119542_))))) + (let ((___kont119543119544_ + (lambda (_L119254_ _L119255_ _L119256_ _L119257_ _L119258_) + (let ((__tmp119827 (let () (declare (not safe)) - (gxc#identifier-symbol _L119273_)))) + (gxc#identifier-symbol _L119255_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp119845)))) - (___kont119563119564_ - (lambda (_L119098_ _L119099_ _L119100_ _L119101_) - (let ((__tmp119846 + (gxc#optimizer-top-level-method! __tmp119827)))) + (___kont119545119546_ + (lambda (_L119080_ _L119081_ _L119082_ _L119083_) + (let ((__tmp119828 (let () (declare (not safe)) - (gxc#identifier-symbol _L119098_)))) + (gxc#identifier-symbol _L119080_)))) (declare (not safe)) - (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_)) + (gxc#optimizer-top-level-method! __tmp119828)))) + (___kont119547119548_ (lambda () '#!void))) + (let ((___match119676119677_ + (lambda (_e118871119126_ + _hd118870119129_ + _tl118869119131_ + _e118874119134_ + _hd118873119137_ + _tl118872119139_ + _e118877119142_ + _hd118876119145_ + _tl118875119147_ + _e118880119150_ + _hd118879119153_ + _tl118878119155_ + _e118883119158_ + _hd118882119161_ + _tl118881119163_ + _e118886119166_ + _hd118885119169_ + _tl118884119171_ + _e118889119174_ + _hd118888119177_ + _tl118887119179_ + _e118892119182_ + _hd118891119185_ + _tl118890119187_ + _e118895119190_ + _hd118894119193_ + _tl118893119195_ + _e118898119198_ + _hd118897119201_ + _tl118896119203_ + _e118901119206_ + _hd118900119209_ + _tl118899119211_ + _e118904119214_ + _hd118903119217_ + _tl118902119219_ + _e118907119222_ + _hd118906119225_ + _tl118905119227_ + _e118910119230_ + _hd118909119233_ + _tl118908119235_ + _e118913119238_ + _hd118912119241_ + _tl118911119243_ + _e118916119246_ + _hd118915119249_ + _tl118914119251_) + (let ((_L119254_ _hd118915119249_) + (_L119255_ _hd118906119225_) + (_L119256_ _hd118897119201_) + (_L119257_ _hd118888119177_) + (_L119258_ _hd118879119153_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L119276_ + _L119258_ 'bind-method!)) - (___kont119561119562_ - _L119272_ - _L119273_ - _L119274_ - _L119275_ - _L119276_) - (___kont119565119566_)))))) + (___kont119543119544_ + _L119254_ + _L119255_ + _L119256_ + _L119257_ + _L119258_) + (___kont119547119548_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx119559119560_)) - (let ((_e118889119144_ + (gx#stx-pair? ___stx119541119542_)) + (let ((_e118871119126_ (let () (declare (not safe)) - (gx#stx-e ___stx119559119560_)))) - (let ((_tl118887119149_ + (gx#stx-e ___stx119541119542_)))) + (let ((_tl118869119131_ (let () (declare (not safe)) - (##cdr _e118889119144_))) - (_hd118888119147_ + (##cdr _e118871119126_))) + (_hd118870119129_ (let () (declare (not safe)) - (##car _e118889119144_)))) + (##car _e118871119126_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118887119149_)) - (let ((_e118892119152_ + (gx#stx-pair? _tl118869119131_)) + (let ((_e118874119134_ (let () (declare (not safe)) - (gx#stx-e _tl118887119149_)))) - (let ((_tl118890119157_ + (gx#stx-e _tl118869119131_)))) + (let ((_tl118872119139_ (let () (declare (not safe)) - (##cdr _e118892119152_))) - (_hd118891119155_ + (##cdr _e118874119134_))) + (_hd118873119137_ (let () (declare (not safe)) - (##car _e118892119152_)))) + (##car _e118874119134_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118891119155_)) - (let ((_e118895119160_ + (gx#stx-pair? _hd118873119137_)) + (let ((_e118877119142_ (let () (declare (not safe)) - (gx#stx-e _hd118891119155_)))) - (let ((_tl118893119165_ + (gx#stx-e _hd118873119137_)))) + (let ((_tl118875119147_ (let () (declare (not safe)) - (##cdr _e118895119160_))) - (_hd118894119163_ + (##cdr _e118877119142_))) + (_hd118876119145_ (let () (declare (not safe)) - (##car _e118895119160_)))) + (##car _e118877119142_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd118894119163_)) + (gx#identifier? _hd118876119145_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd118894119163_)) + _hd118876119145_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl118893119165_)) - (let ((_e118898119168_ + _tl118875119147_)) + (let ((_e118880119150_ (let () (declare (not safe)) (gx#stx-e - _tl118893119165_)))) - (let ((_tl118896119173_ + _tl118875119147_)))) + (let ((_tl118878119155_ (let () (declare (not safe)) - (##cdr _e118898119168_))) - (_hd118897119171_ + (##cdr _e118880119150_))) + (_hd118879119153_ (let () (declare (not safe)) - (##car _e118898119168_)))) + (##car _e118880119150_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118896119173_)) + _tl118878119155_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl118890119157_)) - (let ((_e118901119176_ + (gx#stx-pair? _tl118872119139_)) + (let ((_e118883119158_ (let () (declare (not safe)) - (gx#stx-e _tl118890119157_)))) - (let ((_tl118899119181_ + (gx#stx-e _tl118872119139_)))) + (let ((_tl118881119163_ (let () (declare (not safe)) - (##cdr _e118901119176_))) - (_hd118900119179_ + (##cdr _e118883119158_))) + (_hd118882119161_ (let () (declare (not safe)) - (##car _e118901119176_)))) + (##car _e118883119158_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118900119179_)) - (let ((_e118904119184_ + (gx#stx-pair? _hd118882119161_)) + (let ((_e118886119166_ (let () (declare (not safe)) - (gx#stx-e _hd118900119179_)))) - (let ((_tl118902119189_ + (gx#stx-e _hd118882119161_)))) + (let ((_tl118884119171_ (let () (declare (not safe)) - (##cdr _e118904119184_))) - (_hd118903119187_ + (##cdr _e118886119166_))) + (_hd118885119169_ (let () (declare (not safe)) - (##car _e118904119184_)))) + (##car _e118886119166_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd118903119187_)) + (gx#identifier? _hd118885119169_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd118903119187_)) + _hd118885119169_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl118902119189_)) - (let ((_e118907119192_ + _tl118884119171_)) + (let ((_e118889119174_ (let () (declare (not safe)) (gx#stx-e - _tl118902119189_)))) - (let ((_tl118905119197_ + _tl118884119171_)))) + (let ((_tl118887119179_ (let () (declare (not safe)) - (##cdr _e118907119192_))) - (_hd118906119195_ + (##cdr _e118889119174_))) + (_hd118888119177_ (let () (declare (not safe)) - (##car _e118907119192_)))) + (##car _e118889119174_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118905119197_)) + _tl118887119179_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl118899119181_)) - (let ((_e118910119200_ + _tl118881119163_)) + (let ((_e118892119182_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl118899119181_)))) - (let ((_tl118908119205_ + (gx#stx-e _tl118881119163_)))) + (let ((_tl118890119187_ (let () (declare (not safe)) - (##cdr _e118910119200_))) - (_hd118909119203_ + (##cdr _e118892119182_))) + (_hd118891119185_ (let () (declare (not safe)) - (##car _e118910119200_)))) + (##car _e118892119182_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118909119203_)) - (let ((_e118913119208_ + (gx#stx-pair? _hd118891119185_)) + (let ((_e118895119190_ (let () (declare (not safe)) - (gx#stx-e _hd118909119203_)))) - (let ((_tl118911119213_ + (gx#stx-e _hd118891119185_)))) + (let ((_tl118893119195_ (let () (declare (not safe)) - (##cdr _e118913119208_))) - (_hd118912119211_ + (##cdr _e118895119190_))) + (_hd118894119193_ (let () (declare (not safe)) - (##car _e118913119208_)))) + (##car _e118895119190_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd118912119211_)) + (gx#identifier? _hd118894119193_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd118912119211_)) + (gx#stx-eq? '%#quote _hd118894119193_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118911119213_)) - (let ((_e118916119216_ + (gx#stx-pair? _tl118893119195_)) + (let ((_e118898119198_ (let () (declare (not safe)) (gx#stx-e - _tl118911119213_)))) - (let ((_tl118914119221_ + _tl118893119195_)))) + (let ((_tl118896119203_ (let () (declare (not safe)) - (##cdr _e118916119216_))) - (_hd118915119219_ + (##cdr _e118898119198_))) + (_hd118897119201_ (let () (declare (not safe)) - (##car _e118916119216_)))) + (##car _e118898119198_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118914119221_)) + _tl118896119203_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl118908119205_)) - (let ((_e118919119224_ + _tl118890119187_)) + (let ((_e118901119206_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl118908119205_)))) - (let ((_tl118917119229_ - (let () (declare (not safe)) (##cdr _e118919119224_))) - (_hd118918119227_ - (let () (declare (not safe)) (##car _e118919119224_)))) + (gx#stx-e _tl118890119187_)))) + (let ((_tl118899119211_ + (let () (declare (not safe)) (##cdr _e118901119206_))) + (_hd118900119209_ + (let () (declare (not safe)) (##car _e118901119206_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118918119227_)) - (let ((_e118922119232_ + (gx#stx-pair? _hd118900119209_)) + (let ((_e118904119214_ (let () (declare (not safe)) - (gx#stx-e _hd118918119227_)))) - (let ((_tl118920119237_ + (gx#stx-e _hd118900119209_)))) + (let ((_tl118902119219_ (let () (declare (not safe)) - (##cdr _e118922119232_))) - (_hd118921119235_ + (##cdr _e118904119214_))) + (_hd118903119217_ (let () (declare (not safe)) - (##car _e118922119232_)))) + (##car _e118904119214_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd118921119235_)) + (gx#identifier? _hd118903119217_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd118921119235_)) + (gx#stx-eq? '%#ref _hd118903119217_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118920119237_)) - (let ((_e118925119240_ + (gx#stx-pair? _tl118902119219_)) + (let ((_e118907119222_ (let () (declare (not safe)) - (gx#stx-e _tl118920119237_)))) - (let ((_tl118923119245_ + (gx#stx-e _tl118902119219_)))) + (let ((_tl118905119227_ (let () (declare (not safe)) - (##cdr _e118925119240_))) - (_hd118924119243_ + (##cdr _e118907119222_))) + (_hd118906119225_ (let () (declare (not safe)) - (##car _e118925119240_)))) + (##car _e118907119222_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118923119245_)) + _tl118905119227_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl118917119229_)) - (let ((_e118928119248_ + _tl118899119211_)) + (let ((_e118910119230_ (let () (declare (not safe)) (gx#stx-e - _tl118917119229_)))) - (let ((_tl118926119253_ + _tl118899119211_)))) + (let ((_tl118908119235_ (let () (declare (not safe)) - (##cdr _e118928119248_))) - (_hd118927119251_ + (##cdr _e118910119230_))) + (_hd118909119233_ (let () (declare (not safe)) - (##car _e118928119248_)))) + (##car _e118910119230_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118927119251_)) - (let ((_e118931119256_ + _hd118909119233_)) + (let ((_e118913119238_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd118927119251_)))) - (let ((_tl118929119261_ + (gx#stx-e _hd118909119233_)))) + (let ((_tl118911119243_ (let () (declare (not safe)) - (##cdr _e118931119256_))) - (_hd118930119259_ + (##cdr _e118913119238_))) + (_hd118912119241_ (let () (declare (not safe)) - (##car _e118931119256_)))) + (##car _e118913119238_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd118930119259_)) + (gx#identifier? _hd118912119241_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd118930119259_)) + (gx#stx-eq? '%#quote _hd118912119241_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118929119261_)) - (let ((_e118934119264_ + (gx#stx-pair? _tl118911119243_)) + (let ((_e118916119246_ (let () (declare (not safe)) - (gx#stx-e _tl118929119261_)))) - (let ((_tl118932119269_ + (gx#stx-e _tl118911119243_)))) + (let ((_tl118914119251_ (let () (declare (not safe)) - (##cdr _e118934119264_))) - (_hd118933119267_ + (##cdr _e118916119246_))) + (_hd118915119249_ (let () (declare (not safe)) - (##car _e118934119264_)))) + (##car _e118916119246_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118932119269_)) + (gx#stx-null? _tl118914119251_)) (if (let () (declare (not safe)) (gx#stx-null? - _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_)))) + _tl118908119235_)) + (___match119676119677_ + _e118871119126_ + _hd118870119129_ + _tl118869119131_ + _e118874119134_ + _hd118873119137_ + _tl118872119139_ + _e118877119142_ + _hd118876119145_ + _tl118875119147_ + _e118880119150_ + _hd118879119153_ + _tl118878119155_ + _e118883119158_ + _hd118882119161_ + _tl118881119163_ + _e118886119166_ + _hd118885119169_ + _tl118884119171_ + _e118889119174_ + _hd118888119177_ + _tl118887119179_ + _e118892119182_ + _hd118891119185_ + _tl118890119187_ + _e118895119190_ + _hd118894119193_ + _tl118893119195_ + _e118898119198_ + _hd118897119201_ + _tl118896119203_ + _e118901119206_ + _hd118900119209_ + _tl118899119211_ + _e118904119214_ + _hd118903119217_ + _tl118902119219_ + _e118907119222_ + _hd118906119225_ + _tl118905119227_ + _e118910119230_ + _hd118909119233_ + _tl118908119235_ + _e118913119238_ + _hd118912119241_ + _tl118911119243_ + _e118916119246_ + _hd118915119249_ + _tl118914119251_) + (___kont119547119548_)) + (___kont119547119548_)))) + (___kont119547119548_)) + (___kont119547119548_)) + (___kont119547119548_)))) + (___kont119547119548_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl118917119229_)) - (if (let ((__tmp119847 + _tl118899119211_)) + (if (let ((__tmp119829 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp119847 'bind-method!)) - (let ((_L119098_ _hd118924119243_) - (_L119099_ _hd118915119219_) - (_L119100_ _hd118906119195_) - (_L119101_ _hd118897119171_)) - (___kont119563119564_ - _L119098_ - _L119099_ - _L119100_ - _L119101_)) - (___kont119565119566_)) - (___kont119565119566_))) + (gxc#runtime-identifier=? __tmp119829 'bind-method!)) + (let ((_L119080_ _hd118906119225_) + (_L119081_ _hd118897119201_) + (_L119082_ _hd118888119177_) + (_L119083_ _hd118879119153_)) + (___kont119545119546_ + _L119080_ + _L119081_ + _L119082_ + _L119083_)) + (___kont119547119548_)) + (___kont119547119548_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont119565119566_)))) - (___kont119565119566_)) - (___kont119565119566_)) - (___kont119565119566_)))) - (___kont119565119566_)))) - (___kont119565119566_)) + (___kont119547119548_)))) + (___kont119547119548_)) + (___kont119547119548_)) + (___kont119547119548_)))) + (___kont119547119548_)))) + (___kont119547119548_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont119565119566_)))) - (___kont119565119566_)) - (___kont119565119566_)) - (___kont119565119566_)))) - (___kont119565119566_)))) - (___kont119565119566_)) - (___kont119565119566_)))) + (___kont119547119548_)))) + (___kont119547119548_)) + (___kont119547119548_)) + (___kont119547119548_)))) + (___kont119547119548_)))) + (___kont119547119548_)) + (___kont119547119548_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont119565119566_)) - (___kont119565119566_)) - (___kont119565119566_)))) - (___kont119565119566_)))) - (___kont119565119566_)) - (___kont119565119566_)))) + (___kont119547119548_)) + (___kont119547119548_)) + (___kont119547119548_)))) + (___kont119547119548_)))) + (___kont119547119548_)) + (___kont119547119548_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont119565119566_)) - (___kont119565119566_)) - (___kont119565119566_)))) - (___kont119565119566_)))) - (___kont119565119566_)))) - (___kont119565119566_))))))) + (___kont119547119548_)) + (___kont119547119548_)) + (___kont119547119548_)))) + (___kont119547119548_)))) + (___kont119547119548_)))) + (___kont119547119548_))))))) (define gxc#expression-subst-ref% - (lambda (_self118823_ _stx118824_) - (let* ((_g118826118839_ - (lambda (_g118827118836_) + (lambda (_self118805_ _stx118806_) + (let* ((_g118808118821_ + (lambda (_g118809118818_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118827118836_)))) - (_g118825118872_ - (lambda (_g118827118842_) + _g118809118818_)))) + (_g118807118854_ + (lambda (_g118809118824_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118827118842_)) - (let ((_e118831118844_ + (gx#stx-pair? _g118809118824_)) + (let ((_e118813118826_ (let () (declare (not safe)) - (gx#stx-e _g118827118842_)))) - (let ((_hd118830118847_ + (gx#stx-e _g118809118824_)))) + (let ((_hd118812118829_ (let () (declare (not safe)) - (##car _e118831118844_))) - (_tl118829118849_ + (##car _e118813118826_))) + (_tl118811118831_ (let () (declare (not safe)) - (##cdr _e118831118844_)))) + (##cdr _e118813118826_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118829118849_)) - (let ((_e118834118852_ + (gx#stx-pair? _tl118811118831_)) + (let ((_e118816118834_ (let () (declare (not safe)) - (gx#stx-e _tl118829118849_)))) - (let ((_hd118833118855_ + (gx#stx-e _tl118811118831_)))) + (let ((_hd118815118837_ (let () (declare (not safe)) - (##car _e118834118852_))) - (_tl118832118857_ + (##car _e118816118834_))) + (_tl118814118839_ (let () (declare (not safe)) - (##cdr _e118834118852_)))) + (##cdr _e118816118834_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118832118857_)) - ((lambda (_L118860_) - (if (let ((__tmp119851 + (gx#stx-null? _tl118814118839_)) + ((lambda (_L118842_) + (if (let ((__tmp119833 (let () (declare (not safe)) (slot-ref__0 - _self118823_ + _self118805_ 'id)))) (declare (not safe)) (gx#free-identifier=? - _L118860_ - __tmp119851)) - (let ((__tmp119848 - (let ((__tmp119849 - (let ((__tmp119850 + _L118842_ + __tmp119833)) + (let ((__tmp119830 + (let ((__tmp119831 + (let ((__tmp119832 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _self118823_ 'new-id)))) + (slot-ref__0 _self118805_ 'new-id)))) (declare (not safe)) - (cons __tmp119850 '())))) + (cons __tmp119832 '())))) (declare (not safe)) - (cons '%#ref __tmp119849)))) + (cons '%#ref __tmp119831)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp119848 - _stx118824_)) - _stx118824_)) - _hd118833118855_) + __tmp119830 + _stx118806_)) + _stx118806_)) + _hd118815118837_) (let () (declare (not safe)) - (_g118826118839_ _g118827118842_))))) + (_g118808118821_ _g118809118824_))))) (let () (declare (not safe)) - (_g118826118839_ _g118827118842_))))) + (_g118808118821_ _g118809118824_))))) (let () (declare (not safe)) - (_g118826118839_ _g118827118842_)))))) + (_g118808118821_ _g118809118824_)))))) (declare (not safe)) - (_g118825118872_ _stx118824_)))) + (_g118807118854_ _stx118806_)))) (define gxc#expression-subst*-ref% - (lambda (_self118764_ _stx118765_) - (let* ((_g118767118780_ - (lambda (_g118768118777_) + (lambda (_self118746_ _stx118747_) + (let* ((_g118749118762_ + (lambda (_g118750118759_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118768118777_)))) - (_g118766118820_ - (lambda (_g118768118783_) + _g118750118759_)))) + (_g118748118802_ + (lambda (_g118750118765_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118768118783_)) - (let ((_e118772118785_ + (gx#stx-pair? _g118750118765_)) + (let ((_e118754118767_ (let () (declare (not safe)) - (gx#stx-e _g118768118783_)))) - (let ((_hd118771118788_ + (gx#stx-e _g118750118765_)))) + (let ((_hd118753118770_ (let () (declare (not safe)) - (##car _e118772118785_))) - (_tl118770118790_ + (##car _e118754118767_))) + (_tl118752118772_ (let () (declare (not safe)) - (##cdr _e118772118785_)))) + (##cdr _e118754118767_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118770118790_)) - (let ((_e118775118793_ + (gx#stx-pair? _tl118752118772_)) + (let ((_e118757118775_ (let () (declare (not safe)) - (gx#stx-e _tl118770118790_)))) - (let ((_hd118774118796_ + (gx#stx-e _tl118752118772_)))) + (let ((_hd118756118778_ (let () (declare (not safe)) - (##car _e118775118793_))) - (_tl118773118798_ + (##car _e118757118775_))) + (_tl118755118780_ (let () (declare (not safe)) - (##cdr _e118775118793_)))) + (##cdr _e118757118775_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118773118798_)) - ((lambda (_L118801_) - (let ((_$e118815_ - (let ((__tmp119853 - (lambda (_sub118813_) - (let ((__tmp119854 - (car _sub118813_))) + (gx#stx-null? _tl118755118780_)) + ((lambda (_L118783_) + (let ((_$e118797_ + (let ((__tmp119835 + (lambda (_sub118795_) + (let ((__tmp119836 + (car _sub118795_))) (declare (not safe)) (gx#free-identifier=? - _L118801_ - __tmp119854)))) - (__tmp119852 + _L118783_ + __tmp119836)))) + (__tmp119834 (let () (declare (not safe)) (slot-ref__0 - _self118764_ + _self118746_ 'subst)))) (declare (not safe)) - (find __tmp119853 - __tmp119852)))) - (if _$e118815_ - ((lambda (_sub118818_) - (let ((__tmp119855 - (let ((__tmp119856 - (let ((__tmp119857 + (find __tmp119835 + __tmp119834)))) + (if _$e118797_ + ((lambda (_sub118800_) + (let ((__tmp119837 + (let ((__tmp119838 + (let ((__tmp119839 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _sub118818_))) + (cdr _sub118800_))) (declare (not safe)) - (cons __tmp119857 '())))) + (cons __tmp119839 '())))) (declare (not safe)) - (cons '%#ref __tmp119856)))) + (cons '%#ref __tmp119838)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp119855 - _stx118765_))) - _$e118815_) - _stx118765_))) - _hd118774118796_) + __tmp119837 + _stx118747_))) + _$e118797_) + _stx118747_))) + _hd118756118778_) (let () (declare (not safe)) - (_g118767118780_ _g118768118783_))))) + (_g118749118762_ _g118750118765_))))) (let () (declare (not safe)) - (_g118767118780_ _g118768118783_))))) + (_g118749118762_ _g118750118765_))))) (let () (declare (not safe)) - (_g118767118780_ _g118768118783_)))))) + (_g118749118762_ _g118750118765_)))))) (declare (not safe)) - (_g118766118820_ _stx118765_)))) + (_g118748118802_ _stx118747_)))) (define gxc#expression-subst-setq% - (lambda (_self118693_ _stx118694_) - (let* ((_g118696118713_ - (lambda (_g118697118710_) + (lambda (_self118675_ _stx118676_) + (let* ((_g118678118695_ + (lambda (_g118679118692_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118697118710_)))) - (_g118695118761_ - (lambda (_g118697118716_) + _g118679118692_)))) + (_g118677118743_ + (lambda (_g118679118698_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118697118716_)) - (let ((_e118702118718_ + (gx#stx-pair? _g118679118698_)) + (let ((_e118684118700_ (let () (declare (not safe)) - (gx#stx-e _g118697118716_)))) - (let ((_hd118701118721_ + (gx#stx-e _g118679118698_)))) + (let ((_hd118683118703_ (let () (declare (not safe)) - (##car _e118702118718_))) - (_tl118700118723_ + (##car _e118684118700_))) + (_tl118682118705_ (let () (declare (not safe)) - (##cdr _e118702118718_)))) + (##cdr _e118684118700_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118700118723_)) - (let ((_e118705118726_ + (gx#stx-pair? _tl118682118705_)) + (let ((_e118687118708_ (let () (declare (not safe)) - (gx#stx-e _tl118700118723_)))) - (let ((_hd118704118729_ + (gx#stx-e _tl118682118705_)))) + (let ((_hd118686118711_ (let () (declare (not safe)) - (##car _e118705118726_))) - (_tl118703118731_ + (##car _e118687118708_))) + (_tl118685118713_ (let () (declare (not safe)) - (##cdr _e118705118726_)))) + (##cdr _e118687118708_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118703118731_)) - (let ((_e118708118734_ + (gx#stx-pair? _tl118685118713_)) + (let ((_e118690118716_ (let () (declare (not safe)) - (gx#stx-e _tl118703118731_)))) - (let ((_hd118707118737_ + (gx#stx-e _tl118685118713_)))) + (let ((_hd118689118719_ (let () (declare (not safe)) - (##car _e118708118734_))) - (_tl118706118739_ + (##car _e118690118716_))) + (_tl118688118721_ (let () (declare (not safe)) - (##cdr _e118708118734_)))) + (##cdr _e118690118716_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118706118739_)) - ((lambda (_L118742_ _L118743_) - (let ((_new-expr118758_ + _tl118688118721_)) + ((lambda (_L118724_ _L118725_) + (let ((_new-expr118740_ (let () (declare (not safe)) (gxc#compile-e__1 - _self118693_ - _L118742_))) - (_new-xid118759_ - (if (let ((__tmp119858 + _self118675_ + _L118724_))) + (_new-xid118741_ + (if (let ((__tmp119840 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _self118693_ 'id)))) + (slot-ref__0 _self118675_ 'id)))) (declare (not safe)) - (gx#free-identifier=? _L118743_ __tmp119858)) + (gx#free-identifier=? _L118725_ __tmp119840)) (let () (declare (not safe)) - (slot-ref__0 _self118693_ 'new-id)) - _L118743_))) + (slot-ref__0 _self118675_ 'new-id)) + _L118725_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp119859 - (let ((__tmp119860 + (let ((__tmp119841 + (let ((__tmp119842 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp119861 + (let ((__tmp119843 (let () (declare (not safe)) - (cons _new-expr118758_ '())))) + (cons _new-expr118740_ '())))) (declare (not safe)) - (cons _new-xid118759_ __tmp119861)))) + (cons _new-xid118741_ __tmp119843)))) (declare (not safe)) - (cons '%#set! __tmp119860)))) + (cons '%#set! __tmp119842)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp119859 - _stx118694_)))) - _hd118707118737_ - _hd118704118729_) + __tmp119841 + _stx118676_)))) + _hd118689118719_ + _hd118686118711_) (let () (declare (not safe)) - (_g118696118713_ - _g118697118716_))))) + (_g118678118695_ + _g118679118698_))))) (let () (declare (not safe)) - (_g118696118713_ _g118697118716_))))) + (_g118678118695_ _g118679118698_))))) (let () (declare (not safe)) - (_g118696118713_ _g118697118716_))))) + (_g118678118695_ _g118679118698_))))) (let () (declare (not safe)) - (_g118696118713_ _g118697118716_)))))) + (_g118678118695_ _g118679118698_)))))) (declare (not safe)) - (_g118695118761_ _stx118694_)))) + (_g118677118743_ _stx118676_)))) (define gxc#expression-subst*-setq% - (lambda (_self118617_ _stx118618_) - (let* ((_g118620118637_ - (lambda (_g118621118634_) + (lambda (_self118599_ _stx118600_) + (let* ((_g118602118619_ + (lambda (_g118603118616_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118621118634_)))) - (_g118619118690_ - (lambda (_g118621118640_) + _g118603118616_)))) + (_g118601118672_ + (lambda (_g118603118622_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118621118640_)) - (let ((_e118626118642_ + (gx#stx-pair? _g118603118622_)) + (let ((_e118608118624_ (let () (declare (not safe)) - (gx#stx-e _g118621118640_)))) - (let ((_hd118625118645_ + (gx#stx-e _g118603118622_)))) + (let ((_hd118607118627_ (let () (declare (not safe)) - (##car _e118626118642_))) - (_tl118624118647_ + (##car _e118608118624_))) + (_tl118606118629_ (let () (declare (not safe)) - (##cdr _e118626118642_)))) + (##cdr _e118608118624_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118624118647_)) - (let ((_e118629118650_ + (gx#stx-pair? _tl118606118629_)) + (let ((_e118611118632_ (let () (declare (not safe)) - (gx#stx-e _tl118624118647_)))) - (let ((_hd118628118653_ + (gx#stx-e _tl118606118629_)))) + (let ((_hd118610118635_ (let () (declare (not safe)) - (##car _e118629118650_))) - (_tl118627118655_ + (##car _e118611118632_))) + (_tl118609118637_ (let () (declare (not safe)) - (##cdr _e118629118650_)))) + (##cdr _e118611118632_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118627118655_)) - (let ((_e118632118658_ + (gx#stx-pair? _tl118609118637_)) + (let ((_e118614118640_ (let () (declare (not safe)) - (gx#stx-e _tl118627118655_)))) - (let ((_hd118631118661_ + (gx#stx-e _tl118609118637_)))) + (let ((_hd118613118643_ (let () (declare (not safe)) - (##car _e118632118658_))) - (_tl118630118663_ + (##car _e118614118640_))) + (_tl118612118645_ (let () (declare (not safe)) - (##cdr _e118632118658_)))) + (##cdr _e118614118640_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118630118663_)) - ((lambda (_L118666_ _L118667_) - (let ((_new-expr118687_ + _tl118612118645_)) + ((lambda (_L118648_ _L118649_) + (let ((_new-expr118669_ (let () (declare (not safe)) (gxc#compile-e__1 - _self118617_ - _L118666_))) - (_new-xid118688_ - (let ((_$e118684_ - (let ((__tmp119863 + _self118599_ + _L118648_))) + (_new-xid118670_ + (let ((_$e118666_ + (let ((__tmp119845 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_sub118682_) - (let ((__tmp119864 (car _sub118682_))) + (lambda (_sub118664_) + (let ((__tmp119846 (car _sub118664_))) (declare (not safe)) (gx#free-identifier=? - _L118667_ - __tmp119864)))) - (__tmp119862 + _L118649_ + __tmp119846)))) + (__tmp119844 (let () (declare (not safe)) - (slot-ref__0 _self118617_ 'subst)))) + (slot-ref__0 _self118599_ 'subst)))) (declare (not safe)) - (find __tmp119863 __tmp119862)))) - (if _$e118684_ (cdr _$e118684_) _L118667_)))) + (find __tmp119845 __tmp119844)))) + (if _$e118666_ (cdr _$e118666_) _L118649_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp119865 - (let ((__tmp119866 + (let ((__tmp119847 + (let ((__tmp119848 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp119867 + (let ((__tmp119849 (let () (declare (not safe)) - (cons _new-expr118687_ '())))) + (cons _new-expr118669_ '())))) (declare (not safe)) - (cons _new-xid118688_ __tmp119867)))) + (cons _new-xid118670_ __tmp119849)))) (declare (not safe)) - (cons '%#set! __tmp119866)))) + (cons '%#set! __tmp119848)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp119865 - _stx118618_)))) - _hd118631118661_ - _hd118628118653_) + __tmp119847 + _stx118600_)))) + _hd118613118643_ + _hd118610118635_) (let () (declare (not safe)) - (_g118620118637_ - _g118621118640_))))) + (_g118602118619_ + _g118603118622_))))) (let () (declare (not safe)) - (_g118620118637_ _g118621118640_))))) + (_g118602118619_ _g118603118622_))))) (let () (declare (not safe)) - (_g118620118637_ _g118621118640_))))) + (_g118602118619_ _g118603118622_))))) (let () (declare (not safe)) - (_g118620118637_ _g118621118640_)))))) + (_g118602118619_ _g118603118622_)))))) (declare (not safe)) - (_g118619118690_ _stx118618_)))) + (_g118601118672_ _stx118600_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_self118563_ _stx118564_) - (let* ((_g118566118579_ - (lambda (_g118567118576_) + (lambda (_self118545_ _stx118546_) + (let* ((_g118548118561_ + (lambda (_g118549118558_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118567118576_)))) - (_g118565118614_ - (lambda (_g118567118582_) + _g118549118558_)))) + (_g118547118596_ + (lambda (_g118549118564_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118567118582_)) - (let ((_e118571118584_ + (gx#stx-pair? _g118549118564_)) + (let ((_e118553118566_ (let () (declare (not safe)) - (gx#stx-e _g118567118582_)))) - (let ((_hd118570118587_ + (gx#stx-e _g118549118564_)))) + (let ((_hd118552118569_ (let () (declare (not safe)) - (##car _e118571118584_))) - (_tl118569118589_ + (##car _e118553118566_))) + (_tl118551118571_ (let () (declare (not safe)) - (##cdr _e118571118584_)))) + (##cdr _e118553118566_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118569118589_)) - (let ((_e118574118592_ + (gx#stx-pair? _tl118551118571_)) + (let ((_e118556118574_ (let () (declare (not safe)) - (gx#stx-e _tl118569118589_)))) - (let ((_hd118573118595_ + (gx#stx-e _tl118551118571_)))) + (let ((_hd118555118577_ (let () (declare (not safe)) - (##car _e118574118592_))) - (_tl118572118597_ + (##car _e118556118574_))) + (_tl118554118579_ (let () (declare (not safe)) - (##cdr _e118574118592_)))) + (##cdr _e118556118574_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118572118597_)) - ((lambda (_L118600_) - (let* ((_eid118612_ + (gx#stx-null? _tl118554118579_)) + ((lambda (_L118582_) + (let* ((_eid118594_ (let () (declare (not safe)) (gxc#identifier-symbol - _L118600_))) - (__tmp119868 + _L118582_))) + (__tmp119850 (let () (declare (not safe)) (slot-ref__0 - _self118563_ + _self118545_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp119868 - _eid118612_ + __tmp119850 + _eid118594_ 1+ '0))) - _hd118573118595_) + _hd118555118577_) (let () (declare (not safe)) - (_g118566118579_ _g118567118582_))))) + (_g118548118561_ _g118549118564_))))) (let () (declare (not safe)) - (_g118566118579_ _g118567118582_))))) + (_g118548118561_ _g118549118564_))))) (let () (declare (not safe)) - (_g118566118579_ _g118567118582_)))))) + (_g118548118561_ _g118549118564_)))))) (declare (not safe)) - (_g118565118614_ _stx118564_)))) + (_g118547118596_ _stx118546_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_self118493_ _stx118494_) - (let* ((_g118496118513_ - (lambda (_g118497118510_) + (lambda (_self118475_ _stx118476_) + (let* ((_g118478118495_ + (lambda (_g118479118492_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118497118510_)))) - (_g118495118560_ - (lambda (_g118497118516_) + _g118479118492_)))) + (_g118477118542_ + (lambda (_g118479118498_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118497118516_)) - (let ((_e118502118518_ + (gx#stx-pair? _g118479118498_)) + (let ((_e118484118500_ (let () (declare (not safe)) - (gx#stx-e _g118497118516_)))) - (let ((_hd118501118521_ + (gx#stx-e _g118479118498_)))) + (let ((_hd118483118503_ (let () (declare (not safe)) - (##car _e118502118518_))) - (_tl118500118523_ + (##car _e118484118500_))) + (_tl118482118505_ (let () (declare (not safe)) - (##cdr _e118502118518_)))) + (##cdr _e118484118500_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118500118523_)) - (let ((_e118505118526_ + (gx#stx-pair? _tl118482118505_)) + (let ((_e118487118508_ (let () (declare (not safe)) - (gx#stx-e _tl118500118523_)))) - (let ((_hd118504118529_ + (gx#stx-e _tl118482118505_)))) + (let ((_hd118486118511_ (let () (declare (not safe)) - (##car _e118505118526_))) - (_tl118503118531_ + (##car _e118487118508_))) + (_tl118485118513_ (let () (declare (not safe)) - (##cdr _e118505118526_)))) + (##cdr _e118487118508_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118503118531_)) - (let ((_e118508118534_ + (gx#stx-pair? _tl118485118513_)) + (let ((_e118490118516_ (let () (declare (not safe)) - (gx#stx-e _tl118503118531_)))) - (let ((_hd118507118537_ + (gx#stx-e _tl118485118513_)))) + (let ((_hd118489118519_ (let () (declare (not safe)) - (##car _e118508118534_))) - (_tl118506118539_ + (##car _e118490118516_))) + (_tl118488118521_ (let () (declare (not safe)) - (##cdr _e118508118534_)))) + (##cdr _e118490118516_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118506118539_)) - ((lambda (_L118542_ _L118543_) - (let ((_eid118558_ + _tl118488118521_)) + ((lambda (_L118524_ _L118525_) + (let ((_eid118540_ (let () (declare (not safe)) (gxc#identifier-symbol - _L118543_)))) - (let ((__tmp119869 + _L118525_)))) + (let ((__tmp119851 (let () (declare (not safe)) (slot-ref__0 - _self118493_ + _self118475_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp119869 - _eid118558_ + __tmp119851 + _eid118540_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _self118493_ - _L118542_)))) - _hd118507118537_ - _hd118504118529_) + _self118475_ + _L118524_)))) + _hd118489118519_ + _hd118486118511_) (let () (declare (not safe)) - (_g118496118513_ - _g118497118516_))))) + (_g118478118495_ + _g118479118498_))))) (let () (declare (not safe)) - (_g118496118513_ _g118497118516_))))) + (_g118478118495_ _g118479118498_))))) (let () (declare (not safe)) - (_g118496118513_ _g118497118516_))))) + (_g118478118495_ _g118479118498_))))) (let () (declare (not safe)) - (_g118496118513_ _g118497118516_)))))) + (_g118478118495_ _g118479118498_)))))) (declare (not safe)) - (_g118495118560_ _stx118494_)))) + (_g118477118542_ _stx118476_)))) (define gxc#find-body% - (lambda (_self118406_ _stx118407_) - (let* ((_g118409118428_ - (lambda (_g118410118425_) + (lambda (_self118388_ _stx118389_) + (let* ((_g118391118410_ + (lambda (_g118392118407_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118410118425_)))) - (_g118408118490_ - (lambda (_g118410118431_) + _g118392118407_)))) + (_g118390118472_ + (lambda (_g118392118413_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118410118431_)) - (let ((_e118414118433_ + (gx#stx-pair? _g118392118413_)) + (let ((_e118396118415_ (let () (declare (not safe)) - (gx#stx-e _g118410118431_)))) - (let ((_hd118413118436_ + (gx#stx-e _g118392118413_)))) + (let ((_hd118395118418_ (let () (declare (not safe)) - (##car _e118414118433_))) - (_tl118412118438_ + (##car _e118396118415_))) + (_tl118394118420_ (let () (declare (not safe)) - (##cdr _e118414118433_)))) + (##cdr _e118396118415_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl118412118438_)) - (let ((_g119870_ + (gx#stx-pair/null? _tl118394118420_)) + (let ((_g119852_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl118412118438_ + _tl118394118420_ '0)))) (begin - (let ((_g119871_ + (let ((_g119853_ (let () (declare (not safe)) - (if (##values? _g119870_) - (##vector-length _g119870_) + (if (##values? _g119852_) + (##vector-length _g119852_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g119871_ 2))) + (##fx= _g119853_ 2))) (error "Context expects 2 values" - _g119871_))) - (let ((_target118415118441_ + _g119853_))) + (let ((_target118397118423_ (let () (declare (not safe)) - (##vector-ref _g119870_ 0))) - (_tl118417118443_ + (##vector-ref _g119852_ 0))) + (_tl118399118425_ (let () (declare (not safe)) - (##vector-ref _g119870_ 1)))) + (##vector-ref _g119852_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118417118443_)) - (letrec ((_loop118418118446_ - (lambda (_hd118416118449_ - _expr118422118451_) + (gx#stx-null? _tl118399118425_)) + (letrec ((_loop118400118428_ + (lambda (_hd118398118431_ + _expr118404118433_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd118416118449_)) - (let ((_e118419118454_ + _hd118398118431_)) + (let ((_e118401118436_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd118416118449_)))) - (let ((_lp-hd118420118457_ - (let () (declare (not safe)) (##car _e118419118454_))) - (_lp-tl118421118459_ + (gx#stx-e _hd118398118431_)))) + (let ((_lp-hd118402118439_ + (let () (declare (not safe)) (##car _e118401118436_))) + (_lp-tl118403118441_ (let () (declare (not safe)) - (##cdr _e118419118454_)))) - (let ((__tmp119875 + (##cdr _e118401118436_)))) + (let ((__tmp119857 (let () (declare (not safe)) - (cons _lp-hd118420118457_ _expr118422118451_)))) + (cons _lp-hd118402118439_ _expr118404118433_)))) (declare (not safe)) - (_loop118418118446_ _lp-tl118421118459_ __tmp119875)))) - (let ((_expr118423118462_ (reverse _expr118422118451_))) - ((lambda (_L118465_) - (let ((__tmp119874 - (lambda (_g118478118480_) + (_loop118400118428_ _lp-tl118403118441_ __tmp119857)))) + (let ((_expr118405118444_ (reverse _expr118404118433_))) + ((lambda (_L118447_) + (let ((__tmp119856 + (lambda (_g118460118462_) (let () (declare (not safe)) (gxc#compile-e__1 - _self118406_ - _g118478118480_)))) - (__tmp119872 - (let ((__tmp119873 - (lambda (_g118482118485_ _g118483118487_) + _self118388_ + _g118460118462_)))) + (__tmp119854 + (let ((__tmp119855 + (lambda (_g118464118467_ _g118465118469_) (let () (declare (not safe)) - (cons _g118482118485_ - _g118483118487_))))) + (cons _g118464118467_ + _g118465118469_))))) (declare (not safe)) - (foldr1 __tmp119873 '() _L118465_)))) + (foldr1 __tmp119855 '() _L118447_)))) (declare (not safe)) - (ormap1 __tmp119874 __tmp119872))) - _expr118423118462_)))))) + (ormap1 __tmp119856 __tmp119854))) + _expr118405118444_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop118418118446_ - _target118415118441_ + (_loop118400118428_ + _target118397118423_ '()))) (let () (declare (not safe)) - (_g118409118428_ - _g118410118431_)))))) + (_g118391118410_ + _g118392118413_)))))) (let () (declare (not safe)) - (_g118409118428_ _g118410118431_))))) + (_g118391118410_ _g118392118413_))))) (let () (declare (not safe)) - (_g118409118428_ _g118410118431_)))))) + (_g118391118410_ _g118392118413_)))))) (declare (not safe)) - (_g118408118490_ _stx118407_)))) + (_g118390118472_ _stx118389_)))) (define gxc#find-let-values% - (lambda (_self118256_ _stx118257_) - (let* ((_g118259118294_ - (lambda (_g118260118291_) + (lambda (_self118238_ _stx118239_) + (let* ((_g118241118276_ + (lambda (_g118242118273_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118260118291_)))) - (_g118258118403_ - (lambda (_g118260118297_) + _g118242118273_)))) + (_g118240118385_ + (lambda (_g118242118279_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118260118297_)) - (let ((_e118266118299_ + (gx#stx-pair? _g118242118279_)) + (let ((_e118248118281_ (let () (declare (not safe)) - (gx#stx-e _g118260118297_)))) - (let ((_hd118265118302_ + (gx#stx-e _g118242118279_)))) + (let ((_hd118247118284_ (let () (declare (not safe)) - (##car _e118266118299_))) - (_tl118264118304_ + (##car _e118248118281_))) + (_tl118246118286_ (let () (declare (not safe)) - (##cdr _e118266118299_)))) + (##cdr _e118248118281_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118264118304_)) - (let ((_e118269118307_ + (gx#stx-pair? _tl118246118286_)) + (let ((_e118251118289_ (let () (declare (not safe)) - (gx#stx-e _tl118264118304_)))) - (let ((_hd118268118310_ + (gx#stx-e _tl118246118286_)))) + (let ((_hd118250118292_ (let () (declare (not safe)) - (##car _e118269118307_))) - (_tl118267118312_ + (##car _e118251118289_))) + (_tl118249118294_ (let () (declare (not safe)) - (##cdr _e118269118307_)))) + (##cdr _e118251118289_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd118268118310_)) - (let ((_g119876_ + (gx#stx-pair/null? _hd118250118292_)) + (let ((_g119858_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd118268118310_ + _hd118250118292_ '0)))) (begin - (let ((_g119877_ + (let ((_g119859_ (let () (declare (not safe)) - (if (##values? _g119876_) + (if (##values? _g119858_) (##vector-length - _g119876_) + _g119858_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g119877_ 2))) + (##fx= _g119859_ 2))) (error "Context expects 2 values" - _g119877_))) - (let ((_target118270118315_ + _g119859_))) + (let ((_target118252118297_ (let () (declare (not safe)) - (##vector-ref _g119876_ 0))) - (_tl118272118317_ + (##vector-ref _g119858_ 0))) + (_tl118254118299_ (let () (declare (not safe)) (##vector-ref - _g119876_ + _g119858_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118272118317_)) - (letrec ((_loop118273118320_ - (lambda (_hd118271118323_ + _tl118254118299_)) + (letrec ((_loop118255118302_ + (lambda (_hd118253118305_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr118277118325_ - _bind118278118327_) + _expr118259118307_ + _bind118260118309_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd118271118323_)) - (let ((_e118274118330_ + (gx#stx-pair? _hd118253118305_)) + (let ((_e118256118312_ (let () (declare (not safe)) - (gx#stx-e _hd118271118323_)))) - (let ((_lp-hd118275118333_ + (gx#stx-e _hd118253118305_)))) + (let ((_lp-hd118257118315_ (let () (declare (not safe)) - (##car _e118274118330_))) - (_lp-tl118276118335_ + (##car _e118256118312_))) + (_lp-tl118258118317_ (let () (declare (not safe)) - (##cdr _e118274118330_)))) + (##cdr _e118256118312_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd118275118333_)) - (let ((_e118283118338_ + (gx#stx-pair? _lp-hd118257118315_)) + (let ((_e118265118320_ (let () (declare (not safe)) - (gx#stx-e _lp-hd118275118333_)))) - (let ((_hd118282118341_ + (gx#stx-e _lp-hd118257118315_)))) + (let ((_hd118264118323_ (let () (declare (not safe)) - (##car _e118283118338_))) - (_tl118281118343_ + (##car _e118265118320_))) + (_tl118263118325_ (let () (declare (not safe)) - (##cdr _e118283118338_)))) + (##cdr _e118265118320_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118281118343_)) - (let ((_e118286118346_ + (gx#stx-pair? _tl118263118325_)) + (let ((_e118268118328_ (let () (declare (not safe)) - (gx#stx-e _tl118281118343_)))) - (let ((_hd118285118349_ + (gx#stx-e _tl118263118325_)))) + (let ((_hd118267118331_ (let () (declare (not safe)) - (##car _e118286118346_))) - (_tl118284118351_ + (##car _e118268118328_))) + (_tl118266118333_ (let () (declare (not safe)) - (##cdr _e118286118346_)))) + (##cdr _e118268118328_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118284118351_)) - (let ((__tmp119882 + _tl118266118333_)) + (let ((__tmp119864 (let () (declare (not safe)) - (cons _hd118285118349_ - _expr118277118325_))) - (__tmp119881 + (cons _hd118267118331_ + _expr118259118307_))) + (__tmp119863 (let () (declare (not safe)) - (cons _hd118282118341_ - _bind118278118327_)))) + (cons _hd118264118323_ + _bind118260118309_)))) (declare (not safe)) - (_loop118273118320_ - _lp-tl118276118335_ - __tmp119882 - __tmp119881)) + (_loop118255118302_ + _lp-tl118258118317_ + __tmp119864 + __tmp119863)) (let () (declare (not safe)) - (_g118259118294_ - _g118260118297_))))) + (_g118241118276_ + _g118242118279_))))) (let () (declare (not safe)) - (_g118259118294_ _g118260118297_))))) + (_g118241118276_ _g118242118279_))))) (let () (declare (not safe)) - (_g118259118294_ _g118260118297_))))) - (let ((_expr118279118354_ (reverse _expr118277118325_)) - (_bind118280118356_ - (reverse _bind118278118327_))) + (_g118241118276_ _g118242118279_))))) + (let ((_expr118261118336_ (reverse _expr118259118307_)) + (_bind118262118338_ + (reverse _bind118260118309_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118267118312_)) - (let ((_e118289118359_ + (gx#stx-pair? _tl118249118294_)) + (let ((_e118271118341_ (let () (declare (not safe)) - (gx#stx-e _tl118267118312_)))) - (let ((_hd118288118362_ + (gx#stx-e _tl118249118294_)))) + (let ((_hd118270118344_ (let () (declare (not safe)) - (##car _e118289118359_))) - (_tl118287118364_ + (##car _e118271118341_))) + (_tl118269118346_ (let () (declare (not safe)) - (##cdr _e118289118359_)))) + (##cdr _e118271118341_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118287118364_)) - ((lambda (_L118367_ _L118368_ _L118369_) - (let ((_$e118400_ - (let ((__tmp119880 - (lambda (_g118388118390_) + (gx#stx-null? _tl118269118346_)) + ((lambda (_L118349_ _L118350_ _L118351_) + (let ((_$e118382_ + (let ((__tmp119862 + (lambda (_g118370118372_) (let () (declare (not safe)) (gxc#compile-e__1 - _self118256_ - _g118388118390_)))) - (__tmp119878 - (let ((__tmp119879 - (lambda (_g118392118395_ + _self118238_ + _g118370118372_)))) + (__tmp119860 + (let ((__tmp119861 + (lambda (_g118374118377_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g118393118397_) + _g118375118379_) (let () (declare (not safe)) - (cons _g118392118395_ _g118393118397_))))) + (cons _g118374118377_ _g118375118379_))))) (declare (not safe)) - (foldr1 __tmp119879 '() _L118368_)))) + (foldr1 __tmp119861 '() _L118350_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (ormap1 __tmp119880 - __tmp119878)))) - (if _$e118400_ - _$e118400_ + (ormap1 __tmp119862 + __tmp119860)))) + (if _$e118382_ + _$e118382_ (let () (declare (not safe)) (gxc#compile-e__1 - _self118256_ - _L118367_))))) - _hd118288118362_ - _expr118279118354_ - _bind118280118356_) + _self118238_ + _L118349_))))) + _hd118270118344_ + _expr118261118336_ + _bind118262118338_) (let () (declare (not safe)) - (_g118259118294_ _g118260118297_))))) + (_g118241118276_ _g118242118279_))))) (let () (declare (not safe)) - (_g118259118294_ _g118260118297_)))))))) + (_g118241118276_ _g118242118279_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop118273118320_ - _target118270118315_ + (_loop118255118302_ + _target118252118297_ '() '()))) (let () (declare (not safe)) - (_g118259118294_ - _g118260118297_)))))) + (_g118241118276_ + _g118242118279_)))))) (let () (declare (not safe)) - (_g118259118294_ _g118260118297_))))) + (_g118241118276_ _g118242118279_))))) (let () (declare (not safe)) - (_g118259118294_ _g118260118297_))))) + (_g118241118276_ _g118242118279_))))) (let () (declare (not safe)) - (_g118259118294_ _g118260118297_)))))) + (_g118241118276_ _g118242118279_)))))) (declare (not safe)) - (_g118258118403_ _stx118257_)))) + (_g118240118385_ _stx118239_)))) (define gxc#find-var-refs-ref% - (lambda (_self118200_ _stx118201_) - (let* ((_g118203118216_ - (lambda (_g118204118213_) + (lambda (_self118182_ _stx118183_) + (let* ((_g118185118198_ + (lambda (_g118186118195_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118204118213_)))) - (_g118202118253_ - (lambda (_g118204118219_) + _g118186118195_)))) + (_g118184118235_ + (lambda (_g118186118201_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118204118219_)) - (let ((_e118208118221_ + (gx#stx-pair? _g118186118201_)) + (let ((_e118190118203_ (let () (declare (not safe)) - (gx#stx-e _g118204118219_)))) - (let ((_hd118207118224_ + (gx#stx-e _g118186118201_)))) + (let ((_hd118189118206_ (let () (declare (not safe)) - (##car _e118208118221_))) - (_tl118206118226_ + (##car _e118190118203_))) + (_tl118188118208_ (let () (declare (not safe)) - (##cdr _e118208118221_)))) + (##cdr _e118190118203_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118206118226_)) - (let ((_e118211118229_ + (gx#stx-pair? _tl118188118208_)) + (let ((_e118193118211_ (let () (declare (not safe)) - (gx#stx-e _tl118206118226_)))) - (let ((_hd118210118232_ + (gx#stx-e _tl118188118208_)))) + (let ((_hd118192118214_ (let () (declare (not safe)) - (##car _e118211118229_))) - (_tl118209118234_ + (##car _e118193118211_))) + (_tl118191118216_ (let () (declare (not safe)) - (##cdr _e118211118229_)))) + (##cdr _e118193118211_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl118209118234_)) - ((lambda (_L118237_) - (let ((__tmp119884 - (lambda (_g118248118250_) + (gx#stx-null? _tl118191118216_)) + ((lambda (_L118219_) + (let ((__tmp119866 + (lambda (_g118230118232_) (let () (declare (not safe)) (gx#free-identifier=? - _L118237_ - _g118248118250_)))) - (__tmp119883 + _L118219_ + _g118230118232_)))) + (__tmp119865 (let () (declare (not safe)) (slot-ref__0 - _self118200_ + _self118182_ 'ids)))) (declare (not safe)) - (find __tmp119884 __tmp119883))) - _hd118210118232_) + (find __tmp119866 __tmp119865))) + _hd118192118214_) (let () (declare (not safe)) - (_g118203118216_ _g118204118219_))))) + (_g118185118198_ _g118186118201_))))) (let () (declare (not safe)) - (_g118203118216_ _g118204118219_))))) + (_g118185118198_ _g118186118201_))))) (let () (declare (not safe)) - (_g118203118216_ _g118204118219_)))))) + (_g118185118198_ _g118186118201_)))))) (declare (not safe)) - (_g118202118253_ _stx118201_)))) + (_g118184118235_ _stx118183_)))) (define gxc#find-var-refs-setq% - (lambda (_self118125_ _stx118126_) - (let* ((_g118128118145_ - (lambda (_g118129118142_) + (lambda (_self118107_ _stx118108_) + (let* ((_g118110118127_ + (lambda (_g118111118124_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g118129118142_)))) - (_g118127118197_ - (lambda (_g118129118148_) + _g118111118124_)))) + (_g118109118179_ + (lambda (_g118111118130_) (if (let () (declare (not safe)) - (gx#stx-pair? _g118129118148_)) - (let ((_e118134118150_ + (gx#stx-pair? _g118111118130_)) + (let ((_e118116118132_ (let () (declare (not safe)) - (gx#stx-e _g118129118148_)))) - (let ((_hd118133118153_ + (gx#stx-e _g118111118130_)))) + (let ((_hd118115118135_ (let () (declare (not safe)) - (##car _e118134118150_))) - (_tl118132118155_ + (##car _e118116118132_))) + (_tl118114118137_ (let () (declare (not safe)) - (##cdr _e118134118150_)))) + (##cdr _e118116118132_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118132118155_)) - (let ((_e118137118158_ + (gx#stx-pair? _tl118114118137_)) + (let ((_e118119118140_ (let () (declare (not safe)) - (gx#stx-e _tl118132118155_)))) - (let ((_hd118136118161_ + (gx#stx-e _tl118114118137_)))) + (let ((_hd118118118143_ (let () (declare (not safe)) - (##car _e118137118158_))) - (_tl118135118163_ + (##car _e118119118140_))) + (_tl118117118145_ (let () (declare (not safe)) - (##cdr _e118137118158_)))) + (##cdr _e118119118140_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl118135118163_)) - (let ((_e118140118166_ + (gx#stx-pair? _tl118117118145_)) + (let ((_e118122118148_ (let () (declare (not safe)) - (gx#stx-e _tl118135118163_)))) - (let ((_hd118139118169_ + (gx#stx-e _tl118117118145_)))) + (let ((_hd118121118151_ (let () (declare (not safe)) - (##car _e118140118166_))) - (_tl118138118171_ + (##car _e118122118148_))) + (_tl118120118153_ (let () (declare (not safe)) - (##cdr _e118140118166_)))) + (##cdr _e118122118148_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl118138118171_)) - ((lambda (_L118174_ _L118175_) - (let ((_$e118194_ - (let ((__tmp119886 - (lambda (_g118189118191_) + _tl118120118153_)) + ((lambda (_L118156_ _L118157_) + (let ((_$e118176_ + (let ((__tmp119868 + (lambda (_g118171118173_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#free-identifier=? _L118175_ _g118189118191_)))) - (__tmp119885 + (gx#free-identifier=? _L118157_ _g118171118173_)))) + (__tmp119867 (let () (declare (not safe)) - (slot-ref__0 _self118125_ 'ids)))) + (slot-ref__0 _self118107_ 'ids)))) (declare (not safe)) - (find __tmp119886 __tmp119885)))) + (find __tmp119868 __tmp119867)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e118194_ - _$e118194_ + (if _$e118176_ + _$e118176_ (let () (declare (not safe)) (gxc#compile-e__1 - _self118125_ - _L118174_))))) - _hd118139118169_ - _hd118136118161_) + _self118107_ + _L118156_))))) + _hd118121118151_ + _hd118118118143_) (let () (declare (not safe)) - (_g118128118145_ - _g118129118148_))))) + (_g118110118127_ + _g118111118130_))))) (let () (declare (not safe)) - (_g118128118145_ _g118129118148_))))) + (_g118110118127_ _g118111118130_))))) (let () (declare (not safe)) - (_g118128118145_ _g118129118148_))))) + (_g118110118127_ _g118111118130_))))) (let () (declare (not safe)) - (_g118128118145_ _g118129118148_)))))) + (_g118110118127_ _g118111118130_)))))) (declare (not safe)) - (_g118127118197_ _stx118126_)))))) + (_g118109118179_ _stx118108_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm index ab3c42920..1edf82c76 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]#_g119889_| + (define |gxc[1]#_g119871_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119891_| + (define |gxc[1]#_g119873_| (##structure gx#syntax-quote::t '::collect-mutators::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119893_| + (define |gxc[1]#_g119875_| (##structure gx#syntax-quote::t 'make-::collect-mutators #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119895_| + (define |gxc[1]#_g119877_| (##structure gx#syntax-quote::t '::collect-mutators? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119899_| + (define |gxc[1]#_g119881_| (##structure gx#syntax-quote::t '::collect-methods::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119901_| + (define |gxc[1]#_g119883_| (##structure gx#syntax-quote::t 'make-::collect-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119903_| + (define |gxc[1]#_g119885_| (##structure gx#syntax-quote::t '::collect-methods? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119906_| + (define |gxc[1]#_g119888_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119908_| + (define |gxc[1]#_g119890_| (##structure gx#syntax-quote::t '::expression-subst::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119910_| + (define |gxc[1]#_g119892_| (##structure gx#syntax-quote::t 'make-::expression-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119912_| + (define |gxc[1]#_g119894_| (##structure gx#syntax-quote::t '::expression-subst? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119917_| + (define |gxc[1]#_g119899_| (##structure gx#syntax-quote::t '::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119920_| + (define |gxc[1]#_g119902_| (##structure gx#syntax-quote::t '::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119925_| + (define |gxc[1]#_g119907_| (##structure gx#syntax-quote::t '::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119928_| + (define |gxc[1]#_g119910_| (##structure gx#syntax-quote::t '::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119933_| + (define |gxc[1]#_g119915_| (##structure gx#syntax-quote::t '&::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119936_| + (define |gxc[1]#_g119918_| (##structure gx#syntax-quote::t '&::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119941_| + (define |gxc[1]#_g119923_| (##structure gx#syntax-quote::t '&::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119944_| + (define |gxc[1]#_g119926_| (##structure gx#syntax-quote::t '&::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119948_| + (define |gxc[1]#_g119930_| (##structure gx#syntax-quote::t '::expression-subst*::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119950_| + (define |gxc[1]#_g119932_| (##structure gx#syntax-quote::t 'make-::expression-subst* #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119952_| + (define |gxc[1]#_g119934_| (##structure gx#syntax-quote::t '::expression-subst*? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119956_| + (define |gxc[1]#_g119938_| (##structure gx#syntax-quote::t '::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119960_| + (define |gxc[1]#_g119942_| (##structure gx#syntax-quote::t '::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119964_| + (define |gxc[1]#_g119946_| (##structure gx#syntax-quote::t '&::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119968_| + (define |gxc[1]#_g119950_| (##structure gx#syntax-quote::t '&::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119971_| + (define |gxc[1]#_g119953_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119973_| + (define |gxc[1]#_g119955_| (##structure gx#syntax-quote::t '::find-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119975_| + (define |gxc[1]#_g119957_| (##structure gx#syntax-quote::t 'make-::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119977_| + (define |gxc[1]#_g119959_| (##structure gx#syntax-quote::t '::find-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119980_| + (define |gxc[1]#_g119962_| (##structure gx#syntax-quote::t '::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119982_| + (define |gxc[1]#_g119964_| (##structure gx#syntax-quote::t '::find-var-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119984_| + (define |gxc[1]#_g119966_| (##structure gx#syntax-quote::t 'make-::find-var-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119986_| + (define |gxc[1]#_g119968_| (##structure gx#syntax-quote::t '::find-var-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119990_| + (define |gxc[1]#_g119972_| (##structure gx#syntax-quote::t '::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119994_| + (define |gxc[1]#_g119976_| (##structure gx#syntax-quote::t '::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g119998_| + (define |gxc[1]#_g119980_| (##structure gx#syntax-quote::t '&::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120002_| + (define |gxc[1]#_g119984_| (##structure gx#syntax-quote::t '&::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120005_| + (define |gxc[1]#_g119987_| (##structure gx#syntax-quote::t '::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120007_| + (define |gxc[1]#_g119989_| (##structure gx#syntax-quote::t '::collect-runtime-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120009_| + (define |gxc[1]#_g119991_| (##structure gx#syntax-quote::t 'make-::collect-runtime-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120011_| + (define |gxc[1]#_g119993_| (##structure gx#syntax-quote::t '::collect-runtime-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120015_| + (define |gxc[1]#_g119997_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120019_| + (define |gxc[1]#_g120001_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120023_| + (define |gxc[1]#_g120005_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g120027_| + (define |gxc[1]#_g120009_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table-set! @@ -324,7 +324,7 @@ '())) (begin (define |gxc[:0:]#::collect-mutators| - (let ((__obj119802 + (let ((__obj119784 (let () (declare (not safe)) (##structure @@ -348,7 +348,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119784 '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! - __obj119802 + __obj119784 '::collect-mutators '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -364,26 +364,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119784 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119887 - (let ((__tmp119888 |gxc[1]#_g119889_|)) + (let ((__tmp119869 + (let ((__tmp119870 |gxc[1]#_g119871_|)) (declare (not safe)) - (cons __tmp119888 '())))) + (cons __tmp119870 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119802 - __tmp119887 + __obj119784 + __tmp119869 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119784 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -391,7 +391,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119784 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -399,7 +399,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119784 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -407,39 +407,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119784 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119890 |gxc[1]#_g119891_|)) + (let ((__tmp119872 |gxc[1]#_g119873_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119802 - __tmp119890 + __obj119784 + __tmp119872 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119892 |gxc[1]#_g119893_|)) + (let ((__tmp119874 |gxc[1]#_g119875_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119802 - __tmp119892 + __obj119784 + __tmp119874 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119894 |gxc[1]#_g119895_|)) + (let ((__tmp119876 |gxc[1]#_g119877_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119802 - __tmp119894 + __obj119784 + __tmp119876 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119784 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -447,7 +447,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119784 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -455,7 +455,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119784 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -463,14 +463,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119802 + __obj119784 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj119802)) + __obj119784)) (define |gxc[:0:]#::collect-methods| - (let ((__obj119804 + (let ((__obj119786 (let () (declare (not safe)) (##structure @@ -494,7 +494,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119786 '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! - __obj119804 + __obj119786 '::collect-methods '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -510,26 +510,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119786 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119896 - (let ((__tmp119897 |gxc[1]#_g119889_|)) + (let ((__tmp119878 + (let ((__tmp119879 |gxc[1]#_g119871_|)) (declare (not safe)) - (cons __tmp119897 '())))) + (cons __tmp119879 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119804 - __tmp119896 + __obj119786 + __tmp119878 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119786 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -537,7 +537,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119786 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -545,7 +545,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119786 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -553,39 +553,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119786 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119898 |gxc[1]#_g119899_|)) + (let ((__tmp119880 |gxc[1]#_g119881_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119804 - __tmp119898 + __obj119786 + __tmp119880 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119900 |gxc[1]#_g119901_|)) + (let ((__tmp119882 |gxc[1]#_g119883_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119804 - __tmp119900 + __obj119786 + __tmp119882 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119902 |gxc[1]#_g119903_|)) + (let ((__tmp119884 |gxc[1]#_g119885_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119804 - __tmp119902 + __obj119786 + __tmp119884 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119786 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -593,7 +593,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119786 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -601,7 +601,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119786 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -609,14 +609,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119804 + __obj119786 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj119804)) + __obj119786)) (define |gxc[:0:]#::expression-subst| - (let ((__obj119806 + (let ((__obj119788 (let () (declare (not safe)) (##structure @@ -640,7 +640,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119788 '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! - __obj119806 + __obj119788 '::expression-subst '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -656,26 +656,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119788 '(id new-id) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119904 - (let ((__tmp119905 |gxc[1]#_g119906_|)) + (let ((__tmp119886 + (let ((__tmp119887 |gxc[1]#_g119888_|)) (declare (not safe)) - (cons __tmp119905 '())))) + (cons __tmp119887 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119806 - __tmp119904 + __obj119788 + __tmp119886 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119788 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -683,7 +683,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119788 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -691,7 +691,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119788 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -699,122 +699,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119806 + __obj119788 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119907 |gxc[1]#_g119908_|)) + (let ((__tmp119889 |gxc[1]#_g119890_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119806 - __tmp119907 + __obj119788 + __tmp119889 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119909 |gxc[1]#_g119910_|)) + (let ((__tmp119891 |gxc[1]#_g119892_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119806 - __tmp119909 + __obj119788 + __tmp119891 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119911 |gxc[1]#_g119912_|)) + (let ((__tmp119893 |gxc[1]#_g119894_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119806 - __tmp119911 + __obj119788 + __tmp119893 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119913 - (let ((__tmp119918 - (let ((__tmp119919 |gxc[1]#_g119920_|)) + (let ((__tmp119895 + (let ((__tmp119900 + (let ((__tmp119901 |gxc[1]#_g119902_|)) (declare (not safe)) - (cons 'id __tmp119919))) - (__tmp119914 - (let ((__tmp119915 - (let ((__tmp119916 |gxc[1]#_g119917_|)) + (cons 'id __tmp119901))) + (__tmp119896 + (let ((__tmp119897 + (let ((__tmp119898 |gxc[1]#_g119899_|)) (declare (not safe)) - (cons 'new-id __tmp119916)))) + (cons 'new-id __tmp119898)))) (declare (not safe)) - (cons __tmp119915 '())))) + (cons __tmp119897 '())))) (declare (not safe)) - (cons __tmp119918 __tmp119914)))) + (cons __tmp119900 __tmp119896)))) (declare (not safe)) (##unchecked-structure-set! - __obj119806 - __tmp119913 + __obj119788 + __tmp119895 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119921 - (let ((__tmp119926 - (let ((__tmp119927 |gxc[1]#_g119928_|)) + (let ((__tmp119903 + (let ((__tmp119908 + (let ((__tmp119909 |gxc[1]#_g119910_|)) (declare (not safe)) - (cons 'id __tmp119927))) - (__tmp119922 - (let ((__tmp119923 - (let ((__tmp119924 |gxc[1]#_g119925_|)) + (cons 'id __tmp119909))) + (__tmp119904 + (let ((__tmp119905 + (let ((__tmp119906 |gxc[1]#_g119907_|)) (declare (not safe)) - (cons 'new-id __tmp119924)))) + (cons 'new-id __tmp119906)))) (declare (not safe)) - (cons __tmp119923 '())))) + (cons __tmp119905 '())))) (declare (not safe)) - (cons __tmp119926 __tmp119922)))) + (cons __tmp119908 __tmp119904)))) (declare (not safe)) (##unchecked-structure-set! - __obj119806 - __tmp119921 + __obj119788 + __tmp119903 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119929 - (let ((__tmp119934 - (let ((__tmp119935 |gxc[1]#_g119936_|)) + (let ((__tmp119911 + (let ((__tmp119916 + (let ((__tmp119917 |gxc[1]#_g119918_|)) (declare (not safe)) - (cons 'id __tmp119935))) - (__tmp119930 - (let ((__tmp119931 - (let ((__tmp119932 |gxc[1]#_g119933_|)) + (cons 'id __tmp119917))) + (__tmp119912 + (let ((__tmp119913 + (let ((__tmp119914 |gxc[1]#_g119915_|)) (declare (not safe)) - (cons 'new-id __tmp119932)))) + (cons 'new-id __tmp119914)))) (declare (not safe)) - (cons __tmp119931 '())))) + (cons __tmp119913 '())))) (declare (not safe)) - (cons __tmp119934 __tmp119930)))) + (cons __tmp119916 __tmp119912)))) (declare (not safe)) (##unchecked-structure-set! - __obj119806 - __tmp119929 + __obj119788 + __tmp119911 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119937 - (let ((__tmp119942 - (let ((__tmp119943 |gxc[1]#_g119944_|)) + (let ((__tmp119919 + (let ((__tmp119924 + (let ((__tmp119925 |gxc[1]#_g119926_|)) (declare (not safe)) - (cons 'id __tmp119943))) - (__tmp119938 - (let ((__tmp119939 - (let ((__tmp119940 |gxc[1]#_g119941_|)) + (cons 'id __tmp119925))) + (__tmp119920 + (let ((__tmp119921 + (let ((__tmp119922 |gxc[1]#_g119923_|)) (declare (not safe)) - (cons 'new-id __tmp119940)))) + (cons 'new-id __tmp119922)))) (declare (not safe)) - (cons __tmp119939 '())))) + (cons __tmp119921 '())))) (declare (not safe)) - (cons __tmp119942 __tmp119938)))) + (cons __tmp119924 __tmp119920)))) (declare (not safe)) (##unchecked-structure-set! - __obj119806 - __tmp119937 + __obj119788 + __tmp119919 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj119806)) + __obj119788)) (define |gxc[:0:]#::expression-subst*| - (let ((__obj119808 + (let ((__obj119790 (let () (declare (not safe)) (##structure @@ -838,7 +838,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119808 + __obj119790 '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! - __obj119808 + __obj119790 '::expression-subst* '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -854,26 +854,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119808 + __obj119790 '(subst) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119945 - (let ((__tmp119946 |gxc[1]#_g119906_|)) + (let ((__tmp119927 + (let ((__tmp119928 |gxc[1]#_g119888_|)) (declare (not safe)) - (cons __tmp119946 '())))) + (cons __tmp119928 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119808 - __tmp119945 + __obj119790 + __tmp119927 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119808 + __obj119790 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -881,7 +881,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119808 + __obj119790 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -889,7 +889,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119808 + __obj119790 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -897,94 +897,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119808 + __obj119790 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119947 |gxc[1]#_g119948_|)) + (let ((__tmp119929 |gxc[1]#_g119930_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119808 - __tmp119947 + __obj119790 + __tmp119929 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119949 |gxc[1]#_g119950_|)) + (let ((__tmp119931 |gxc[1]#_g119932_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119808 - __tmp119949 + __obj119790 + __tmp119931 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119951 |gxc[1]#_g119952_|)) + (let ((__tmp119933 |gxc[1]#_g119934_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119808 - __tmp119951 + __obj119790 + __tmp119933 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119953 - (let ((__tmp119954 - (let ((__tmp119955 |gxc[1]#_g119956_|)) + (let ((__tmp119935 + (let ((__tmp119936 + (let ((__tmp119937 |gxc[1]#_g119938_|)) (declare (not safe)) - (cons 'subst __tmp119955)))) + (cons 'subst __tmp119937)))) (declare (not safe)) - (cons __tmp119954 '())))) + (cons __tmp119936 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119808 - __tmp119953 + __obj119790 + __tmp119935 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119957 - (let ((__tmp119958 - (let ((__tmp119959 |gxc[1]#_g119960_|)) + (let ((__tmp119939 + (let ((__tmp119940 + (let ((__tmp119941 |gxc[1]#_g119942_|)) (declare (not safe)) - (cons 'subst __tmp119959)))) + (cons 'subst __tmp119941)))) (declare (not safe)) - (cons __tmp119958 '())))) + (cons __tmp119940 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119808 - __tmp119957 + __obj119790 + __tmp119939 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119961 - (let ((__tmp119962 - (let ((__tmp119963 |gxc[1]#_g119964_|)) + (let ((__tmp119943 + (let ((__tmp119944 + (let ((__tmp119945 |gxc[1]#_g119946_|)) (declare (not safe)) - (cons 'subst __tmp119963)))) + (cons 'subst __tmp119945)))) (declare (not safe)) - (cons __tmp119962 '())))) + (cons __tmp119944 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119808 - __tmp119961 + __obj119790 + __tmp119943 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119965 - (let ((__tmp119966 - (let ((__tmp119967 |gxc[1]#_g119968_|)) + (let ((__tmp119947 + (let ((__tmp119948 + (let ((__tmp119949 |gxc[1]#_g119950_|)) (declare (not safe)) - (cons 'subst __tmp119967)))) + (cons 'subst __tmp119949)))) (declare (not safe)) - (cons __tmp119966 '())))) + (cons __tmp119948 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119808 - __tmp119965 + __obj119790 + __tmp119947 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj119808)) + __obj119790)) (define |gxc[:0:]#::find-expression| - (let ((__obj119810 + (let ((__obj119792 (let () (declare (not safe)) (##structure @@ -1008,7 +1008,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119810 + __obj119792 '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! - __obj119810 + __obj119792 '::find-expression '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1024,26 +1024,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119810 + __obj119792 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119969 - (let ((__tmp119970 |gxc[1]#_g119971_|)) + (let ((__tmp119951 + (let ((__tmp119952 |gxc[1]#_g119953_|)) (declare (not safe)) - (cons __tmp119970 '())))) + (cons __tmp119952 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119810 - __tmp119969 + __obj119792 + __tmp119951 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119810 + __obj119792 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1051,7 +1051,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119810 + __obj119792 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1059,7 +1059,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119810 + __obj119792 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1067,39 +1067,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119810 + __obj119792 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119972 |gxc[1]#_g119973_|)) + (let ((__tmp119954 |gxc[1]#_g119955_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119810 - __tmp119972 + __obj119792 + __tmp119954 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119974 |gxc[1]#_g119975_|)) + (let ((__tmp119956 |gxc[1]#_g119957_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119810 - __tmp119974 + __obj119792 + __tmp119956 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119976 |gxc[1]#_g119977_|)) + (let ((__tmp119958 |gxc[1]#_g119959_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119810 - __tmp119976 + __obj119792 + __tmp119958 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119810 + __obj119792 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -1107,7 +1107,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119810 + __obj119792 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -1115,7 +1115,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119810 + __obj119792 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -1123,14 +1123,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119810 + __obj119792 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj119810)) + __obj119792)) (define |gxc[:0:]#::find-var-refs| - (let ((__obj119811 + (let ((__obj119793 (let () (declare (not safe)) (##structure @@ -1154,7 +1154,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119811 + __obj119793 '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! - __obj119811 + __obj119793 '::find-var-refs '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1170,26 +1170,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119811 + __obj119793 '(ids) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119978 - (let ((__tmp119979 |gxc[1]#_g119980_|)) + (let ((__tmp119960 + (let ((__tmp119961 |gxc[1]#_g119962_|)) (declare (not safe)) - (cons __tmp119979 '())))) + (cons __tmp119961 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119811 - __tmp119978 + __obj119793 + __tmp119960 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119811 + __obj119793 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1197,7 +1197,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119811 + __obj119793 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1205,7 +1205,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119811 + __obj119793 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1213,94 +1213,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119811 + __obj119793 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119981 |gxc[1]#_g119982_|)) + (let ((__tmp119963 |gxc[1]#_g119964_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119811 - __tmp119981 + __obj119793 + __tmp119963 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119983 |gxc[1]#_g119984_|)) + (let ((__tmp119965 |gxc[1]#_g119966_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119811 - __tmp119983 + __obj119793 + __tmp119965 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119985 |gxc[1]#_g119986_|)) + (let ((__tmp119967 |gxc[1]#_g119968_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119811 - __tmp119985 + __obj119793 + __tmp119967 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119987 - (let ((__tmp119988 - (let ((__tmp119989 |gxc[1]#_g119990_|)) + (let ((__tmp119969 + (let ((__tmp119970 + (let ((__tmp119971 |gxc[1]#_g119972_|)) (declare (not safe)) - (cons 'ids __tmp119989)))) + (cons 'ids __tmp119971)))) (declare (not safe)) - (cons __tmp119988 '())))) + (cons __tmp119970 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119811 - __tmp119987 + __obj119793 + __tmp119969 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119991 - (let ((__tmp119992 - (let ((__tmp119993 |gxc[1]#_g119994_|)) + (let ((__tmp119973 + (let ((__tmp119974 + (let ((__tmp119975 |gxc[1]#_g119976_|)) (declare (not safe)) - (cons 'ids __tmp119993)))) + (cons 'ids __tmp119975)))) (declare (not safe)) - (cons __tmp119992 '())))) + (cons __tmp119974 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119811 - __tmp119991 + __obj119793 + __tmp119973 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119995 - (let ((__tmp119996 - (let ((__tmp119997 |gxc[1]#_g119998_|)) + (let ((__tmp119977 + (let ((__tmp119978 + (let ((__tmp119979 |gxc[1]#_g119980_|)) (declare (not safe)) - (cons 'ids __tmp119997)))) + (cons 'ids __tmp119979)))) (declare (not safe)) - (cons __tmp119996 '())))) + (cons __tmp119978 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119811 - __tmp119995 + __obj119793 + __tmp119977 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp119999 - (let ((__tmp120000 - (let ((__tmp120001 |gxc[1]#_g120002_|)) + (let ((__tmp119981 + (let ((__tmp119982 + (let ((__tmp119983 |gxc[1]#_g119984_|)) (declare (not safe)) - (cons 'ids __tmp120001)))) + (cons 'ids __tmp119983)))) (declare (not safe)) - (cons __tmp120000 '())))) + (cons __tmp119982 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119811 - __tmp119999 + __obj119793 + __tmp119981 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj119811)) + __obj119793)) (define |gxc[:0:]#::collect-runtime-refs| - (let ((__obj119813 + (let ((__obj119795 (let () (declare (not safe)) (##structure @@ -1324,7 +1324,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119813 + __obj119795 '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! - __obj119813 + __obj119795 '::collect-runtime-refs '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1340,26 +1340,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119813 + __obj119795 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp120003 - (let ((__tmp120004 |gxc[1]#_g120005_|)) + (let ((__tmp119985 + (let ((__tmp119986 |gxc[1]#_g119987_|)) (declare (not safe)) - (cons __tmp120004 '())))) + (cons __tmp119986 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119813 - __tmp120003 + __obj119795 + __tmp119985 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj119813 + __obj119795 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1367,7 +1367,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119813 + __obj119795 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1375,7 +1375,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119813 + __obj119795 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1383,89 +1383,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj119813 + __obj119795 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp120006 |gxc[1]#_g120007_|)) + (let ((__tmp119988 |gxc[1]#_g119989_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119813 - __tmp120006 + __obj119795 + __tmp119988 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp120008 |gxc[1]#_g120009_|)) + (let ((__tmp119990 |gxc[1]#_g119991_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119813 - __tmp120008 + __obj119795 + __tmp119990 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp120010 |gxc[1]#_g120011_|)) + (let ((__tmp119992 |gxc[1]#_g119993_|)) (declare (not safe)) (##unchecked-structure-set! - __obj119813 - __tmp120010 + __obj119795 + __tmp119992 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp120012 - (let ((__tmp120013 - (let ((__tmp120014 |gxc[1]#_g120015_|)) + (let ((__tmp119994 + (let ((__tmp119995 + (let ((__tmp119996 |gxc[1]#_g119997_|)) (declare (not safe)) - (cons 'table __tmp120014)))) + (cons 'table __tmp119996)))) (declare (not safe)) - (cons __tmp120013 '())))) + (cons __tmp119995 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119813 - __tmp120012 + __obj119795 + __tmp119994 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp120016 - (let ((__tmp120017 - (let ((__tmp120018 |gxc[1]#_g120019_|)) + (let ((__tmp119998 + (let ((__tmp119999 + (let ((__tmp120000 |gxc[1]#_g120001_|)) (declare (not safe)) - (cons 'table __tmp120018)))) + (cons 'table __tmp120000)))) (declare (not safe)) - (cons __tmp120017 '())))) + (cons __tmp119999 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119813 - __tmp120016 + __obj119795 + __tmp119998 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp120020 - (let ((__tmp120021 - (let ((__tmp120022 |gxc[1]#_g120023_|)) + (let ((__tmp120002 + (let ((__tmp120003 + (let ((__tmp120004 |gxc[1]#_g120005_|)) (declare (not safe)) - (cons 'table __tmp120022)))) + (cons 'table __tmp120004)))) (declare (not safe)) - (cons __tmp120021 '())))) + (cons __tmp120003 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119813 - __tmp120020 + __obj119795 + __tmp120002 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp120024 - (let ((__tmp120025 - (let ((__tmp120026 |gxc[1]#_g120027_|)) + (let ((__tmp120006 + (let ((__tmp120007 + (let ((__tmp120008 |gxc[1]#_g120009_|)) (declare (not safe)) - (cons 'table __tmp120026)))) + (cons 'table __tmp120008)))) (declare (not safe)) - (cons __tmp120025 '())))) + (cons __tmp120007 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj119813 - __tmp120024 + __obj119795 + __tmp120006 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj119813)))) + __obj119795)))) diff --git a/src/bootstrap/gerbil/compiler/optimize~0.scm b/src/bootstrap/gerbil/compiler/optimize~0.scm index c455d5d88..954cbb37a 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 1710833429) + (define gerbil/compiler/optimize::timestamp 1710943503) (begin (define gxc#optimizer-info-init! (lambda () (if (gxc#current-compile-optimizer-info) '#!void (gxc#current-compile-optimizer-info - (let ((__obj158758 + (let ((__obj158740 (let () (declare (not safe)) (##structure gxc#optimizer-info::t '#f '#f '#f)))) - (gxc#optimizer-info:::init! __obj158758) - __obj158758))))) + (gxc#optimizer-info:::init! __obj158740) + __obj158740))))) (define gxc#optimize! - (lambda (_ctx158451_) - (let ((__tmp158764 + (lambda (_ctx158433_) + (let ((__tmp158746 (lambda () (let () (declare (not safe)) - (gxc#optimizer-load-ssxi-deps _ctx158451_)) + (gxc#optimizer-load-ssxi-deps _ctx158433_)) (let () (declare (not safe)) - (gxc#optimizer-load-builtin-ssxi _ctx158451_)) - (let ((__tmp158766 + (gxc#optimizer-load-builtin-ssxi _ctx158433_)) + (let ((__tmp158748 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp158765 + (__tmp158747 (##structure-ref - _ctx158451_ + _ctx158433_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-put! __tmp158766 __tmp158765 '#t)) - (let ((_code158454_ - (let ((__tmp158767 + (hash-put! __tmp158748 __tmp158747 '#t)) + (let ((_code158436_ + (let ((__tmp158749 (##structure-ref - _ctx158451_ + _ctx158433_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#optimize-source __tmp158767)))) + (gxc#optimize-source __tmp158749)))) (##structure-set! - _ctx158451_ - _code158454_ + _ctx158433_ + _code158436_ '11 gx#module-context::t '#f)))) - (__tmp158763 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp158762 (let () (declare (not safe)) (make-hash-table-eq)))) + (__tmp158745 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp158744 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (call-with-parameters - __tmp158764 + __tmp158746 gxc#current-compile-mutators - __tmp158763 + __tmp158745 gxc#current-compile-local-type - __tmp158762)))) + __tmp158744)))) (define gxc#optimizer-load-builtin-ssxi - (lambda (_ctx158440_) - (letrec ((_load-it!158442_ - (lambda (_id158449_) - (if (let ((__tmp158769 + (lambda (_ctx158422_) + (letrec ((_load-it!158424_ + (lambda (_id158431_) + (if (let ((__tmp158751 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp158769 _id158449_)) + (hash-get __tmp158751 _id158431_)) '#!void (begin (let () (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id _id158449_)) - (let ((__tmp158768 + (gxc#optimizer-import-ssxi-by-id _id158431_)) + (let ((__tmp158750 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp158768 _id158449_ '#t))))))) - (let* ((_modid158444_ - (##structure-ref _ctx158440_ '1 gx#expander-context::t '#f)) - (_modid-str158446_ (symbol->string _modid158444_))) + (hash-put! __tmp158750 _id158431_ '#t))))))) + (let* ((_modid158426_ + (##structure-ref _ctx158422_ '1 gx#expander-context::t '#f)) + (_modid-str158428_ (symbol->string _modid158426_))) (for-each - _load-it!158442_ + _load-it!158424_ '(gerbil/runtime/gambit gerbil/runtime/util gerbil/runtime/table @@ -111,344 +111,344 @@ gerbil/runtime gerbil/builtin)))))) (define gxc#optimizer-load-ssxi-deps - (lambda (_ctx158385_) - (letrec* ((_deps158387_ - (let* ((_imports158431_ + (lambda (_ctx158367_) + (letrec* ((_deps158369_ + (let* ((_imports158413_ (##structure-ref - _ctx158385_ + _ctx158367_ '8 gx#module-context::t '#f)) - (_$e158433_ + (_$e158415_ (let () (declare (not safe)) - (gx#core-context-prelude__% _ctx158385_)))) - (if _$e158433_ - ((lambda (_g158435158437_) + (gx#core-context-prelude__% _ctx158367_)))) + (if _$e158415_ + ((lambda (_g158417158419_) (let () (declare (not safe)) - (cons _g158435158437_ _imports158431_))) - _$e158433_) - _imports158431_)))) - (let _lp158389_ ((_rest158391_ _deps158387_)) - (let* ((_rest158392158400_ _rest158391_) - (_else158394158408_ (lambda () '#!void)) - (_K158396158419_ - (lambda (_rest158411_ _hd158412_) + (cons _g158417158419_ _imports158413_))) + _$e158415_) + _imports158413_)))) + (let _lp158371_ ((_rest158373_ _deps158369_)) + (let* ((_rest158374158382_ _rest158373_) + (_else158376158390_ (lambda () '#!void)) + (_K158378158401_ + (lambda (_rest158393_ _hd158394_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd158412_ + _hd158394_ 'gx#module-context::t)) (begin - (if (let ((__tmp158783 + (if (let ((__tmp158765 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp158782 + (__tmp158764 (##structure-ref - _hd158412_ + _hd158394_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-get __tmp158783 __tmp158782)) + (hash-get __tmp158765 __tmp158764)) '#!void (begin - (let ((_$e158414_ + (let ((_$e158396_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd158412_)))) - (if _$e158414_ - ((lambda (_pre158417_) - (let ((__tmp158780 - (let ((__tmp158781 + _hd158394_)))) + (if _$e158396_ + ((lambda (_pre158399_) + (let ((__tmp158762 + (let ((__tmp158763 (##structure-ref - _hd158412_ + _hd158394_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre158417_ - __tmp158781)))) + (cons _pre158399_ + __tmp158763)))) (declare (not safe)) - (_lp158389_ __tmp158780))) - _$e158414_) - (let ((__tmp158779 + (_lp158371_ __tmp158762))) + _$e158396_) + (let ((__tmp158761 (##structure-ref - _hd158412_ + _hd158394_ '8 gx#module-context::t '#f))) (declare (not safe)) - (_lp158389_ __tmp158779)))) + (_lp158371_ __tmp158761)))) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd158412_)))) + (gxc#optimizer-load-ssxi _hd158394_)))) (let () (declare (not safe)) - (_lp158389_ _rest158411_))) + (_lp158371_ _rest158393_))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd158412_ + _hd158394_ 'gx#prelude-context::t)) (begin - (if (let ((__tmp158778 + (if (let ((__tmp158760 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp158777 + (__tmp158759 (##structure-ref - _hd158412_ + _hd158394_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-get __tmp158778 __tmp158777)) + (hash-get __tmp158760 __tmp158759)) '#!void (begin - (let ((__tmp158776 + (let ((__tmp158758 (##structure-ref - _hd158412_ + _hd158394_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_lp158389_ __tmp158776)) + (_lp158371_ __tmp158758)) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd158412_)))) + (gxc#optimizer-load-ssxi _hd158394_)))) (let () (declare (not safe)) - (_lp158389_ _rest158411_))) + (_lp158371_ _rest158393_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd158412_ + _hd158394_ 'gx#module-import::t)) - (let ((__tmp158774 - (let ((__tmp158775 + (let ((__tmp158756 + (let ((__tmp158757 (##direct-structure-ref - _hd158412_ + _hd158394_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp158775 _rest158411_)))) + (cons __tmp158757 _rest158393_)))) (declare (not safe)) - (_lp158389_ __tmp158774)) + (_lp158371_ __tmp158756)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd158412_ + _hd158394_ 'gx#module-export::t)) - (let ((__tmp158772 - (let ((__tmp158773 + (let ((__tmp158754 + (let ((__tmp158755 (##direct-structure-ref - _hd158412_ + _hd158394_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp158773 - _rest158411_)))) + (cons __tmp158755 + _rest158393_)))) (declare (not safe)) - (_lp158389_ __tmp158772)) + (_lp158371_ __tmp158754)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd158412_ + _hd158394_ 'gx#import-set::t)) - (let ((__tmp158770 - (let ((__tmp158771 + (let ((__tmp158752 + (let ((__tmp158753 (##direct-structure-ref - _hd158412_ + _hd158394_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp158771 - _rest158411_)))) + (cons __tmp158753 + _rest158393_)))) (declare (not safe)) - (_lp158389_ __tmp158770)) + (_lp158371_ __tmp158752)) (let () (declare (not safe)) (error '"Unexpected module import" - _hd158412_)))))))))) - (if (let () (declare (not safe)) (##pair? _rest158392158400_)) - (let ((_hd158397158422_ + _hd158394_)))))))))) + (if (let () (declare (not safe)) (##pair? _rest158374158382_)) + (let ((_hd158379158404_ (let () (declare (not safe)) - (##car _rest158392158400_))) - (_tl158398158424_ + (##car _rest158374158382_))) + (_tl158380158406_ (let () (declare (not safe)) - (##cdr _rest158392158400_)))) - (let* ((_hd158427_ _hd158397158422_) - (_rest158429_ _tl158398158424_)) + (##cdr _rest158374158382_)))) + (let* ((_hd158409_ _hd158379158404_) + (_rest158411_ _tl158380158406_)) (declare (not safe)) - (_K158396158419_ _rest158429_ _hd158427_))) + (_K158378158401_ _rest158411_ _hd158409_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_ctx158365_) + (lambda (_ctx158347_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _ctx158365_ + _ctx158347_ 'gx#module-context::t)) - (let ((__tmp158784 + (let ((__tmp158766 (##structure-ref - _ctx158365_ + _ctx158347_ '7 gx#module-context::t '#f))) (declare (not safe)) - (list? __tmp158784))) + (list? __tmp158766))) '#!void - (let* ((_ht158367_ + (let* ((_ht158349_ (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (_id158369_ + (_id158351_ (##structure-ref - _ctx158365_ + _ctx158347_ '1 gx#expander-context::t '#f)) - (_mod158371_ + (_mod158353_ (let () (declare (not safe)) - (hash-get _ht158367_ _id158369_)))) - (let ((_$e158374_ _mod158371_)) - (if _$e158374_ - _$e158374_ - (let* ((_mod158377_ + (hash-get _ht158349_ _id158351_)))) + (let ((_$e158356_ _mod158353_)) + (if _$e158356_ + _$e158356_ + (let* ((_mod158359_ (let () (declare (not safe)) - (gxc#optimizer-import-ssxi _ctx158365_))) - (_val158382_ - (let ((_$e158379_ _mod158377_)) - (if _$e158379_ _$e158379_ '#!void)))) + (gxc#optimizer-import-ssxi _ctx158347_))) + (_val158364_ + (let ((_$e158361_ _mod158359_)) + (if _$e158361_ _$e158361_ '#!void)))) (let () (declare (not safe)) - (hash-put! _ht158367_ _id158369_ _val158382_)) - _val158382_))))))) + (hash-put! _ht158349_ _id158351_ _val158364_)) + _val158364_))))))) (define gxc#optimizer-import-ssxi - (lambda (_ctx158363_) - (if (##structure-ref _ctx158363_ '1 gx#expander-context::t '#f) - (let ((__tmp158785 + (lambda (_ctx158345_) + (if (##structure-ref _ctx158345_ '1 gx#expander-context::t '#f) + (let ((__tmp158767 (##structure-ref - _ctx158363_ + _ctx158345_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id __tmp158785)) + (gxc#optimizer-import-ssxi-by-id __tmp158767)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_id158340_) - (letrec ((_catch-e158342_ - (lambda (_exn158361_) + (lambda (_id158322_) + (letrec ((_catch-e158324_ + (lambda (_exn158343_) (if (gxc#current-compile-verbose) (begin (let () (declare (not safe)) (displayln '"Failed to load ssxi module for " - _id158340_)) - (display-exception _exn158361_)) + _id158322_)) + (display-exception _exn158343_)) '#!void) '#f)) - (_import-e158343_ + (_import-e158325_ (lambda () - (let* ((_str-id158346_ + (let* ((_str-id158328_ (string-append (let () (declare (not safe)) - (gxc#module-id->path-string _id158340_)) + (gxc#module-id->path-string _id158322_)) '".ssxi")) - (_artefact-path158354_ - (let ((_odir158347158349_ + (_artefact-path158336_ + (let ((_odir158329158331_ (gxc#current-compile-output-dir))) - (if _odir158347158349_ - (let ((_odir158352_ _odir158347158349_)) + (if _odir158329158331_ + (let ((_odir158334_ _odir158329158331_)) (path-expand - (string-append _str-id158346_ '".ss") - _odir158352_)) + (string-append _str-id158328_ '".ss") + _odir158334_)) '#f))) - (_library-path158356_ + (_library-path158338_ (string->symbol - (string-append '":" _str-id158346_ '".ss"))) - (_ssxi-path158358_ - (if (and _artefact-path158354_ - (file-exists? _artefact-path158354_)) - _artefact-path158354_ - _library-path158356_))) + (string-append '":" _str-id158328_ '".ss"))) + (_ssxi-path158340_ + (if (and _artefact-path158336_ + (file-exists? _artefact-path158336_)) + _artefact-path158336_ + _library-path158338_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _ssxi-path158358_)) + _ssxi-path158340_)) (let () (declare (not safe)) - (gx#import-module__% _ssxi-path158358_ '#t '#t)))))) + (gx#import-module__% _ssxi-path158340_ '#t '#t)))))) (let () (declare (not safe)) - (with-catch _catch-e158342_ _import-e158343_))))) + (with-catch _catch-e158324_ _import-e158325_))))) (define gxc#optimize-source - (lambda (_stx158331_) - (let () (declare (not safe)) (gxc#apply-collect-mutators _stx158331_)) - (let () (declare (not safe)) (gxc#apply-collect-methods _stx158331_)) + (lambda (_stx158313_) + (let () (declare (not safe)) (gxc#apply-collect-mutators _stx158313_)) + (let () (declare (not safe)) (gxc#apply-collect-methods _stx158313_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _stx158331_)) - (let* ((_stx158333_ + (gxc#apply-collect-top-level-type-info _stx158313_)) + (let* ((_stx158315_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _stx158331_))) - (_stx158335_ + (gxc#apply-generate-method-specializers _stx158313_))) + (_stx158317_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _stx158333_)))) + (gxc#apply-lift-top-lambdas _stx158315_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _stx158335_)) - (let ((_stx158338_ + (gxc#apply-collect-type-info _stx158317_)) + (let ((_stx158320_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _stx158335_)))) + (gxc#apply-optimize-annotated _stx158317_)))) (declare (not safe)) - (gxc#apply-optimize-call _stx158338_))))) + (gxc#apply-optimize-call _stx158320_))))) (define gxc#::generate-ssxi::t - (let ((__tmp158788 (list gxc#::generate-runtime-empty::t)) - (__tmp158786 - (let ((__tmp158787 + (let ((__tmp158770 (list gxc#::generate-runtime-empty::t)) + (__tmp158768 + (let ((__tmp158769 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp158787 '())))) + (cons __tmp158769 '())))) (declare (not safe)) (make-class-type 'gxc#::generate-ssxi::t '::generate-ssxi - __tmp158788 + __tmp158770 '() - __tmp158786 + __tmp158768 '#f))) (define gxc#::generate-ssxi? (let () (declare (not safe)) (make-class-predicate gxc#::generate-ssxi::t))) (define gxc#make-::generate-ssxi - (lambda _$args158328_ - (apply make-instance gxc#::generate-ssxi::t _$args158328_))) + (lambda _$args158310_ + (apply make-instance gxc#::generate-ssxi::t _$args158310_))) (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 (_stx158320_) + (lambda (_stx158302_) (force gxc#::generate-ssxi-bind-methods!) - (let* ((_self158323_ - (let ((__obj158760 + (let* ((_self158305_ + (let ((__obj158742 (let () (declare (not safe)) (##structure gxc#::generate-ssxi::t)))) - __obj158760)) - (__tmp158789 + __obj158742)) + (__tmp158771 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _self158323_ _stx158320_))))) + (gxc#compile-e__1 _self158305_ _stx158302_))))) (declare (not safe)) (call-with-parameters - __tmp158789 + __tmp158771 gxc#current-compile-method - _self158323_)))) + _self158305_)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_self158280_ _stx158281_) - (let* ((_g158283158293_ - (lambda (_g158284158290_) + (lambda (_self158262_ _stx158263_) + (let* ((_g158265158275_ + (lambda (_g158266158272_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158284158290_)))) - (_g158282158317_ - (lambda (_g158284158296_) + _g158266158272_)))) + (_g158264158299_ + (lambda (_g158266158278_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158284158296_)) - (let ((_e158288158298_ + (gx#stx-pair? _g158266158278_)) + (let ((_e158270158280_ (let () (declare (not safe)) - (gx#stx-e _g158284158296_)))) - (let ((_hd158287158301_ + (gx#stx-e _g158266158278_)))) + (let ((_hd158269158283_ (let () (declare (not safe)) - (##car _e158288158298_))) - (_tl158286158303_ + (##car _e158270158280_))) + (_tl158268158285_ (let () (declare (not safe)) - (##cdr _e158288158298_)))) - ((lambda (_L158306_) - (let ((__tmp158792 + (##cdr _e158270158280_)))) + ((lambda (_L158288_) + (let ((__tmp158774 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _self158280_ - _stx158281_)))) - (__tmp158790 - (let ((__tmp158791 + _self158262_ + _stx158263_)))) + (__tmp158772 + (let ((__tmp158773 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp158791 '1)))) + (fx+ __tmp158773 '1)))) (declare (not safe)) (call-with-parameters - __tmp158792 + __tmp158774 gx#current-expander-phi - __tmp158790))) - _tl158286158303_))) + __tmp158772))) + _tl158268158285_))) (let () (declare (not safe)) - (_g158283158293_ _g158284158296_)))))) + (_g158265158275_ _g158266158278_)))))) (declare (not safe)) - (_g158282158317_ _stx158281_)))) + (_g158264158299_ _stx158263_)))) (define gxc#generate-ssxi-module% - (lambda (_self158219_ _stx158220_) - (let* ((_g158222158236_ - (lambda (_g158223158233_) + (lambda (_self158201_ _stx158202_) + (let* ((_g158204158218_ + (lambda (_g158205158215_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g158223158233_)))) - (_g158221158277_ - (lambda (_g158223158239_) + _g158205158215_)))) + (_g158203158259_ + (lambda (_g158205158221_) (if (let () (declare (not safe)) - (gx#stx-pair? _g158223158239_)) - (let ((_e158228158241_ + (gx#stx-pair? _g158205158221_)) + (let ((_e158210158223_ (let () (declare (not safe)) - (gx#stx-e _g158223158239_)))) - (let ((_hd158227158244_ + (gx#stx-e _g158205158221_)))) + (let ((_hd158209158226_ (let () (declare (not safe)) - (##car _e158228158241_))) - (_tl158226158246_ + (##car _e158210158223_))) + (_tl158208158228_ (let () (declare (not safe)) - (##cdr _e158228158241_)))) + (##cdr _e158210158223_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158226158246_)) - (let ((_e158231158249_ + (gx#stx-pair? _tl158208158228_)) + (let ((_e158213158231_ (let () (declare (not safe)) - (gx#stx-e _tl158226158246_)))) - (let ((_hd158230158252_ + (gx#stx-e _tl158208158228_)))) + (let ((_hd158212158234_ (let () (declare (not safe)) - (##car _e158231158249_))) - (_tl158229158254_ + (##car _e158213158231_))) + (_tl158211158236_ (let () (declare (not safe)) - (##cdr _e158231158249_)))) - ((lambda (_L158257_ _L158258_) - (let* ((_ctx158271_ + (##cdr _e158213158231_)))) + ((lambda (_L158239_ _L158240_) + (let* ((_ctx158253_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L158258_))) - (_code158273_ + _L158240_))) + (_code158255_ (##structure-ref - _ctx158271_ + _ctx158253_ '11 gx#module-context::t '#f))) - (let ((__tmp158793 + (let ((__tmp158775 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _self158219_ - _code158273_))))) + _self158201_ + _code158255_))))) (declare (not safe)) (call-with-parameters - __tmp158793 + __tmp158775 gx#current-expander-context - _ctx158271_)))) - _tl158229158254_ - _hd158230158252_))) + _ctx158253_)))) + _tl158211158236_ + _hd158212158234_))) (let () (declare (not safe)) - (_g158222158236_ _g158223158239_))))) + (_g158204158218_ _g158205158221_))))) (let () (declare (not safe)) - (_g158222158236_ _g158223158239_)))))) + (_g158204158218_ _g158205158221_)))))) (declare (not safe)) - (_g158221158277_ _stx158220_)))) + (_g158203158259_ _stx158202_)))) (define gxc#generate-ssxi-define-values% - (lambda (_self158028_ _stx158029_) - (letrec ((_generate-e158031_ - (lambda (_id158208_) - (let* ((_sym158210_ - (if (let ((__tmp158794 + (lambda (_self158010_ _stx158011_) + (letrec ((_generate-e158013_ + (lambda (_id158190_) + (let* ((_sym158192_ + (if (let ((__tmp158776 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp158794)) + (gx#identifier? __tmp158776)) (let () (declare (not safe)) - (gxc#identifier-symbol _id158208_)) + (gxc#identifier-symbol _id158190_)) '#f)) - (_$e158212_ - (if _sym158210_ + (_$e158194_ + (if _sym158192_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym158210_)) + (gxc#optimizer-lookup-type _sym158192_)) '#f))) - (if _$e158212_ - ((lambda (_type158215_) + (if _$e158194_ + ((lambda (_type158197_) (let () (declare (not safe)) - (gxc#verbose '"generate typedecl " _sym158210_)) - (let* ((_typedecl158217_ - (let ((__method158761 + (gxc#verbose '"generate typedecl " _sym158192_)) + (let* ((_typedecl158199_ + (let ((__method158743 (let () (declare (not safe)) (method-ref - _type158215_ + _type158197_ 'typedecl)))) - (if __method158761 - (__method158761 _type158215_) + (if __method158743 + (__method158743 _type158197_) (let () (declare (not safe)) (error '"Missing method" - _type158215_ + _type158197_ 'typedecl))))) - (__tmp158795 - (let ((__tmp158796 + (__tmp158777 + (let ((__tmp158778 (let () (declare (not safe)) - (cons _typedecl158217_ '())))) + (cons _typedecl158199_ '())))) (declare (not safe)) - (cons _sym158210_ __tmp158796)))) + (cons _sym158192_ __tmp158778)))) (declare (not safe)) - (cons 'declare-type __tmp158795))) - _$e158212_) + (cons 'declare-type __tmp158777))) + _$e158194_) '(begin)))))) - (let* ((___stx158457158458_ _stx158029_) - (_g158034158072_ + (let* ((___stx158439158440_ _stx158011_) + (_g158016158054_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx158457158458_))))) - (let ((___kont158459158460_ - (lambda (_L158190_) + ___stx158439158440_))))) + (let ((___kont158441158442_ + (lambda (_L158172_) (let () (declare (not safe)) - (_generate-e158031_ _L158190_)))) - (___kont158461158462_ - (lambda (_L158125_) - (let ((_types158151_ - (map _generate-e158031_ - (let ((__tmp158797 - (lambda (_g158143158146_ - _g158144158148_) + (_generate-e158013_ _L158172_)))) + (___kont158443158444_ + (lambda (_L158107_) + (let ((_types158133_ + (map _generate-e158013_ + (let ((__tmp158779 + (lambda (_g158125158128_ + _g158126158130_) (let () (declare (not safe)) - (cons _g158143158146_ - _g158144158148_))))) + (cons _g158125158128_ + _g158126158130_))))) (declare (not safe)) - (foldr1 __tmp158797 '() _L158125_))))) + (foldr1 __tmp158779 '() _L158107_))))) (declare (not safe)) - (cons 'begin _types158151_))))) - (let ((___match158512158513_ - (lambda (_e158052158077_ - _hd158051158080_ - _tl158050158082_ - _e158055158085_ - _hd158054158088_ - _tl158053158090_ - ___splice158463158464_ - _target158056158093_ - _tl158058158095_) - (letrec ((_loop158059158098_ - (lambda (_hd158057158101_ _id158063158103_) + (cons 'begin _types158133_))))) + (let ((___match158494158495_ + (lambda (_e158034158059_ + _hd158033158062_ + _tl158032158064_ + _e158037158067_ + _hd158036158070_ + _tl158035158072_ + ___splice158445158446_ + _target158038158075_ + _tl158040158077_) + (letrec ((_loop158041158080_ + (lambda (_hd158039158083_ _id158045158085_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd158057158101_)) - (let ((_e158060158106_ + (gx#stx-pair? _hd158039158083_)) + (let ((_e158042158088_ (let () (declare (not safe)) - (gx#stx-e _hd158057158101_)))) - (let ((_lp-tl158062158111_ + (gx#stx-e _hd158039158083_)))) + (let ((_lp-tl158044158093_ (let () (declare (not safe)) - (##cdr _e158060158106_))) - (_lp-hd158061158109_ + (##cdr _e158042158088_))) + (_lp-hd158043158091_ (let () (declare (not safe)) - (##car _e158060158106_)))) - (let ((__tmp158798 + (##car _e158042158088_)))) + (let ((__tmp158780 (let () (declare (not safe)) - (cons _lp-hd158061158109_ - _id158063158103_)))) + (cons _lp-hd158043158091_ + _id158045158085_)))) (declare (not safe)) - (_loop158059158098_ - _lp-tl158062158111_ - __tmp158798)))) - (let ((_id158064158114_ - (reverse _id158063158103_))) + (_loop158041158080_ + _lp-tl158044158093_ + __tmp158780)))) + (let ((_id158046158096_ + (reverse _id158045158085_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158053158090_)) - (let ((_e158067158117_ + (gx#stx-pair? _tl158035158072_)) + (let ((_e158049158099_ (let () (declare (not safe)) (gx#stx-e - _tl158053158090_)))) - (let ((_tl158065158122_ + _tl158035158072_)))) + (let ((_tl158047158104_ (let () (declare (not safe)) - (##cdr _e158067158117_))) - (_hd158066158120_ + (##cdr _e158049158099_))) + (_hd158048158102_ (let () (declare (not safe)) - (##car _e158067158117_)))) + (##car _e158049158099_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158065158122_)) - (___kont158461158462_ - _id158064158114_) + _tl158047158104_)) + (___kont158443158444_ + _id158046158096_) (let () (declare (not safe)) - (_g158034158072_))))) + (_g158016158054_))))) (let () (declare (not safe)) - (_g158034158072_)))))))) + (_g158016158054_)))))))) (let () (declare (not safe)) - (_loop158059158098_ _target158056158093_ '())))))) + (_loop158041158080_ _target158038158075_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx158457158458_)) - (let ((_e158039158158_ + (gx#stx-pair? ___stx158439158440_)) + (let ((_e158021158140_ (let () (declare (not safe)) - (gx#stx-e ___stx158457158458_)))) - (let ((_tl158037158163_ + (gx#stx-e ___stx158439158440_)))) + (let ((_tl158019158145_ (let () (declare (not safe)) - (##cdr _e158039158158_))) - (_hd158038158161_ + (##cdr _e158021158140_))) + (_hd158020158143_ (let () (declare (not safe)) - (##car _e158039158158_)))) + (##car _e158021158140_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl158037158163_)) - (let ((_e158042158166_ + (gx#stx-pair? _tl158019158145_)) + (let ((_e158024158148_ (let () (declare (not safe)) - (gx#stx-e _tl158037158163_)))) - (let ((_tl158040158171_ + (gx#stx-e _tl158019158145_)))) + (let ((_tl158022158153_ (let () (declare (not safe)) - (##cdr _e158042158166_))) - (_hd158041158169_ + (##cdr _e158024158148_))) + (_hd158023158151_ (let () (declare (not safe)) - (##car _e158042158166_)))) + (##car _e158024158148_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd158041158169_)) - (let ((_e158045158174_ + (gx#stx-pair? _hd158023158151_)) + (let ((_e158027158156_ (let () (declare (not safe)) - (gx#stx-e _hd158041158169_)))) - (let ((_tl158043158179_ + (gx#stx-e _hd158023158151_)))) + (let ((_tl158025158161_ (let () (declare (not safe)) - (##cdr _e158045158174_))) - (_hd158044158177_ + (##cdr _e158027158156_))) + (_hd158026158159_ (let () (declare (not safe)) - (##car _e158045158174_)))) + (##car _e158027158156_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158043158179_)) + (gx#stx-null? _tl158025158161_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl158040158171_)) - (let ((_e158048158182_ + _tl158022158153_)) + (let ((_e158030158164_ (let () (declare (not safe)) (gx#stx-e - _tl158040158171_)))) - (let ((_tl158046158187_ + _tl158022158153_)))) + (let ((_tl158028158169_ (let () (declare (not safe)) - (##cdr _e158048158182_))) - (_hd158047158185_ + (##cdr _e158030158164_))) + (_hd158029158167_ (let () (declare (not safe)) - (##car _e158048158182_)))) + (##car _e158030158164_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158046158187_)) - (___kont158459158460_ - _hd158044158177_) + _tl158028158169_)) + (___kont158441158442_ + _hd158026158159_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd158041158169_)) - (let ((___splice158463158464_ + _hd158023158151_)) + (let ((___splice158445158446_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd158041158169_ '0)))) - (let ((_tl158058158095_ + (gx#syntax-split-splice _hd158023158151_ '0)))) + (let ((_tl158040158077_ (let () (declare (not safe)) - (##vector-ref ___splice158463158464_ '1))) - (_target158056158093_ + (##vector-ref ___splice158445158446_ '1))) + (_target158038158075_ (let () (declare (not safe)) - (##vector-ref ___splice158463158464_ '0)))) + (##vector-ref ___splice158445158446_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158058158095_)) - (___match158512158513_ - _e158039158158_ - _hd158038158161_ - _tl158037158163_ - _e158042158166_ - _hd158041158169_ - _tl158040158171_ - ___splice158463158464_ - _target158056158093_ - _tl158058158095_) - (let () (declare (not safe)) (_g158034158072_))))) - (let () (declare (not safe)) (_g158034158072_)))))) + (gx#stx-null? _tl158040158077_)) + (___match158494158495_ + _e158021158140_ + _hd158020158143_ + _tl158019158145_ + _e158024158148_ + _hd158023158151_ + _tl158022158153_ + ___splice158445158446_ + _target158038158075_ + _tl158040158077_) + (let () (declare (not safe)) (_g158016158054_))))) + (let () (declare (not safe)) (_g158016158054_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd158041158169_)) - (let ((___splice158463158464_ + _hd158023158151_)) + (let ((___splice158445158446_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd158041158169_ + _hd158023158151_ '0)))) - (let ((_tl158058158095_ + (let ((_tl158040158077_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice158463158464_ '1))) - (_target158056158093_ + (##vector-ref ___splice158445158446_ '1))) + (_target158038158075_ (let () (declare (not safe)) - (##vector-ref ___splice158463158464_ '0)))) + (##vector-ref ___splice158445158446_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl158058158095_)) - (___match158512158513_ - _e158039158158_ - _hd158038158161_ - _tl158037158163_ - _e158042158166_ - _hd158041158169_ - _tl158040158171_ - ___splice158463158464_ - _target158056158093_ - _tl158058158095_) - (let () (declare (not safe)) (_g158034158072_))))) + (gx#stx-null? _tl158040158077_)) + (___match158494158495_ + _e158021158140_ + _hd158020158143_ + _tl158019158145_ + _e158024158148_ + _hd158023158151_ + _tl158022158153_ + ___splice158445158446_ + _target158038158075_ + _tl158040158077_) + (let () (declare (not safe)) (_g158016158054_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g158034158072_)))) + (_g158016158054_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd158041158169_)) - (let ((___splice158463158464_ + _hd158023158151_)) + (let ((___splice158445158446_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd158041158169_ + _hd158023158151_ '0)))) - (let ((_tl158058158095_ + (let ((_tl158040158077_ (let () (declare (not safe)) (##vector-ref - ___splice158463158464_ + ___splice158445158446_ '1))) - (_target158056158093_ + (_target158038158075_ (let () (declare (not safe)) (##vector-ref - ___splice158463158464_ + ___splice158445158446_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158058158095_)) - (___match158512158513_ - _e158039158158_ - _hd158038158161_ - _tl158037158163_ - _e158042158166_ - _hd158041158169_ - _tl158040158171_ - ___splice158463158464_ - _target158056158093_ - _tl158058158095_) + _tl158040158077_)) + (___match158494158495_ + _e158021158140_ + _hd158020158143_ + _tl158019158145_ + _e158024158148_ + _hd158023158151_ + _tl158022158153_ + ___splice158445158446_ + _target158038158075_ + _tl158040158077_) (let () (declare (not safe)) - (_g158034158072_))))) + (_g158016158054_))))) (let () (declare (not safe)) - (_g158034158072_)))))) + (_g158016158054_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd158041158169_)) - (let ((___splice158463158464_ + (gx#stx-pair/null? _hd158023158151_)) + (let ((___splice158445158446_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd158041158169_ + _hd158023158151_ '0)))) - (let ((_tl158058158095_ + (let ((_tl158040158077_ (let () (declare (not safe)) (##vector-ref - ___splice158463158464_ + ___splice158445158446_ '1))) - (_target158056158093_ + (_target158038158075_ (let () (declare (not safe)) (##vector-ref - ___splice158463158464_ + ___splice158445158446_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl158058158095_)) - (___match158512158513_ - _e158039158158_ - _hd158038158161_ - _tl158037158163_ - _e158042158166_ - _hd158041158169_ - _tl158040158171_ - ___splice158463158464_ - _target158056158093_ - _tl158058158095_) + _tl158040158077_)) + (___match158494158495_ + _e158021158140_ + _hd158020158143_ + _tl158019158145_ + _e158024158148_ + _hd158023158151_ + _tl158022158153_ + ___splice158445158446_ + _target158038158075_ + _tl158040158077_) (let () (declare (not safe)) - (_g158034158072_))))) + (_g158016158054_))))) (let () (declare (not safe)) - (_g158034158072_)))))) - (let () (declare (not safe)) (_g158034158072_))))) - (let () (declare (not safe)) (_g158034158072_))))))))) + (_g158016158054_)))))) + (let () (declare (not safe)) (_g158016158054_))))) + (let () (declare (not safe)) (_g158016158054_))))))))) (define gxc#generate-ssxi-call% - (lambda (_self157581_ _stx157582_) - (let* ((___stx158515158516_ _stx157582_) - (_g157586157688_ + (lambda (_self157563_ _stx157564_) + (let* ((___stx158497158498_ _stx157564_) + (_g157568157670_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx158515158516_))))) - (let ((___kont158517158518_ - (lambda (_L157978_ _L157979_ _L157980_ _L157981_ _L157982_) - (let ((__tmp158799 - (let ((__tmp158806 + ___stx158497158498_))))) + (let ((___kont158499158500_ + (lambda (_L157960_ _L157961_ _L157962_ _L157963_ _L157964_) + (let ((__tmp158781 + (let ((__tmp158788 (let () (declare (not safe)) - (gxc#identifier-symbol _L157981_))) - (__tmp158800 - (let ((__tmp158805 + (gxc#identifier-symbol _L157963_))) + (__tmp158782 + (let ((__tmp158787 (let () (declare (not safe)) - (gx#stx-e _L157980_))) - (__tmp158801 - (let ((__tmp158804 + (gx#stx-e _L157962_))) + (__tmp158783 + (let ((__tmp158786 (let () (declare (not safe)) (gxc#identifier-symbol - _L157979_))) - (__tmp158802 - (let ((__tmp158803 + _L157961_))) + (__tmp158784 + (let ((__tmp158785 (let () (declare (not safe)) - (gx#stx-e _L157978_)))) + (gx#stx-e _L157960_)))) (declare (not safe)) - (cons __tmp158803 '())))) + (cons __tmp158785 '())))) (declare (not safe)) - (cons __tmp158804 __tmp158802)))) + (cons __tmp158786 __tmp158784)))) (declare (not safe)) - (cons __tmp158805 __tmp158801)))) + (cons __tmp158787 __tmp158783)))) (declare (not safe)) - (cons __tmp158806 __tmp158800)))) + (cons __tmp158788 __tmp158782)))) (declare (not safe)) - (cons 'declare-method __tmp158799)))) - (___kont158519158520_ - (lambda (_L157804_ _L157805_ _L157806_ _L157807_) - (let ((__tmp158807 - (let ((__tmp158813 + (cons 'declare-method __tmp158781)))) + (___kont158501158502_ + (lambda (_L157786_ _L157787_ _L157788_ _L157789_) + (let ((__tmp158789 + (let ((__tmp158795 (let () (declare (not safe)) - (gxc#identifier-symbol _L157806_))) - (__tmp158808 - (let ((__tmp158812 + (gxc#identifier-symbol _L157788_))) + (__tmp158790 + (let ((__tmp158794 (let () (declare (not safe)) - (gx#stx-e _L157805_))) - (__tmp158809 - (let ((__tmp158811 + (gx#stx-e _L157787_))) + (__tmp158791 + (let ((__tmp158793 (let () (declare (not safe)) (gxc#identifier-symbol - _L157804_))) - (__tmp158810 + _L157786_))) + (__tmp158792 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp158811 __tmp158810)))) + (cons __tmp158793 __tmp158792)))) (declare (not safe)) - (cons __tmp158812 __tmp158809)))) + (cons __tmp158794 __tmp158791)))) (declare (not safe)) - (cons __tmp158813 __tmp158808)))) + (cons __tmp158795 __tmp158790)))) (declare (not safe)) - (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_)) + (cons 'declare-method __tmp158789)))) + (___kont158503158504_ (lambda () '(begin)))) + (let ((___match158632158633_ + (lambda (_e157577157832_ + _hd157576157835_ + _tl157575157837_ + _e157580157840_ + _hd157579157843_ + _tl157578157845_ + _e157583157848_ + _hd157582157851_ + _tl157581157853_ + _e157586157856_ + _hd157585157859_ + _tl157584157861_ + _e157589157864_ + _hd157588157867_ + _tl157587157869_ + _e157592157872_ + _hd157591157875_ + _tl157590157877_ + _e157595157880_ + _hd157594157883_ + _tl157593157885_ + _e157598157888_ + _hd157597157891_ + _tl157596157893_ + _e157601157896_ + _hd157600157899_ + _tl157599157901_ + _e157604157904_ + _hd157603157907_ + _tl157602157909_ + _e157607157912_ + _hd157606157915_ + _tl157605157917_ + _e157610157920_ + _hd157609157923_ + _tl157608157925_ + _e157613157928_ + _hd157612157931_ + _tl157611157933_ + _e157616157936_ + _hd157615157939_ + _tl157614157941_ + _e157619157944_ + _hd157618157947_ + _tl157617157949_ + _e157622157952_ + _hd157621157955_ + _tl157620157957_) + (let ((_L157960_ _hd157621157955_) + (_L157961_ _hd157612157931_) + (_L157962_ _hd157603157907_) + (_L157963_ _hd157594157883_) + (_L157964_ _hd157585157859_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L157982_ + _L157964_ 'bind-method!)) - (___kont158517158518_ - _L157978_ - _L157979_ - _L157980_ - _L157981_ - _L157982_) - (___kont158521158522_)))))) + (___kont158499158500_ + _L157960_ + _L157961_ + _L157962_ + _L157963_ + _L157964_) + (___kont158503158504_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx158515158516_)) - (let ((_e157595157850_ + (gx#stx-pair? ___stx158497158498_)) + (let ((_e157577157832_ (let () (declare (not safe)) - (gx#stx-e ___stx158515158516_)))) - (let ((_tl157593157855_ + (gx#stx-e ___stx158497158498_)))) + (let ((_tl157575157837_ (let () (declare (not safe)) - (##cdr _e157595157850_))) - (_hd157594157853_ + (##cdr _e157577157832_))) + (_hd157576157835_ (let () (declare (not safe)) - (##car _e157595157850_)))) + (##car _e157577157832_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl157593157855_)) - (let ((_e157598157858_ + (gx#stx-pair? _tl157575157837_)) + (let ((_e157580157840_ (let () (declare (not safe)) - (gx#stx-e _tl157593157855_)))) - (let ((_tl157596157863_ + (gx#stx-e _tl157575157837_)))) + (let ((_tl157578157845_ (let () (declare (not safe)) - (##cdr _e157598157858_))) - (_hd157597157861_ + (##cdr _e157580157840_))) + (_hd157579157843_ (let () (declare (not safe)) - (##car _e157598157858_)))) + (##car _e157580157840_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd157597157861_)) - (let ((_e157601157866_ + (gx#stx-pair? _hd157579157843_)) + (let ((_e157583157848_ (let () (declare (not safe)) - (gx#stx-e _hd157597157861_)))) - (let ((_tl157599157871_ + (gx#stx-e _hd157579157843_)))) + (let ((_tl157581157853_ (let () (declare (not safe)) - (##cdr _e157601157866_))) - (_hd157600157869_ + (##cdr _e157583157848_))) + (_hd157582157851_ (let () (declare (not safe)) - (##car _e157601157866_)))) + (##car _e157583157848_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd157600157869_)) + (gx#identifier? _hd157582157851_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd157600157869_)) + _hd157582157851_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl157599157871_)) - (let ((_e157604157874_ + _tl157581157853_)) + (let ((_e157586157856_ (let () (declare (not safe)) (gx#stx-e - _tl157599157871_)))) - (let ((_tl157602157879_ + _tl157581157853_)))) + (let ((_tl157584157861_ (let () (declare (not safe)) - (##cdr _e157604157874_))) - (_hd157603157877_ + (##cdr _e157586157856_))) + (_hd157585157859_ (let () (declare (not safe)) - (##car _e157604157874_)))) + (##car _e157586157856_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl157602157879_)) + _tl157584157861_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl157596157863_)) - (let ((_e157607157882_ + (gx#stx-pair? _tl157578157845_)) + (let ((_e157589157864_ (let () (declare (not safe)) - (gx#stx-e _tl157596157863_)))) - (let ((_tl157605157887_ + (gx#stx-e _tl157578157845_)))) + (let ((_tl157587157869_ (let () (declare (not safe)) - (##cdr _e157607157882_))) - (_hd157606157885_ + (##cdr _e157589157864_))) + (_hd157588157867_ (let () (declare (not safe)) - (##car _e157607157882_)))) + (##car _e157589157864_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd157606157885_)) - (let ((_e157610157890_ + (gx#stx-pair? _hd157588157867_)) + (let ((_e157592157872_ (let () (declare (not safe)) - (gx#stx-e _hd157606157885_)))) - (let ((_tl157608157895_ + (gx#stx-e _hd157588157867_)))) + (let ((_tl157590157877_ (let () (declare (not safe)) - (##cdr _e157610157890_))) - (_hd157609157893_ + (##cdr _e157592157872_))) + (_hd157591157875_ (let () (declare (not safe)) - (##car _e157610157890_)))) + (##car _e157592157872_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd157609157893_)) + (gx#identifier? _hd157591157875_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd157609157893_)) + _hd157591157875_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl157608157895_)) - (let ((_e157613157898_ + _tl157590157877_)) + (let ((_e157595157880_ (let () (declare (not safe)) (gx#stx-e - _tl157608157895_)))) - (let ((_tl157611157903_ + _tl157590157877_)))) + (let ((_tl157593157885_ (let () (declare (not safe)) - (##cdr _e157613157898_))) - (_hd157612157901_ + (##cdr _e157595157880_))) + (_hd157594157883_ (let () (declare (not safe)) - (##car _e157613157898_)))) + (##car _e157595157880_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl157611157903_)) + _tl157593157885_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl157605157887_)) - (let ((_e157616157906_ + _tl157587157869_)) + (let ((_e157598157888_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl157605157887_)))) - (let ((_tl157614157911_ + (gx#stx-e _tl157587157869_)))) + (let ((_tl157596157893_ (let () (declare (not safe)) - (##cdr _e157616157906_))) - (_hd157615157909_ + (##cdr _e157598157888_))) + (_hd157597157891_ (let () (declare (not safe)) - (##car _e157616157906_)))) + (##car _e157598157888_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd157615157909_)) - (let ((_e157619157914_ + (gx#stx-pair? _hd157597157891_)) + (let ((_e157601157896_ (let () (declare (not safe)) - (gx#stx-e _hd157615157909_)))) - (let ((_tl157617157919_ + (gx#stx-e _hd157597157891_)))) + (let ((_tl157599157901_ (let () (declare (not safe)) - (##cdr _e157619157914_))) - (_hd157618157917_ + (##cdr _e157601157896_))) + (_hd157600157899_ (let () (declare (not safe)) - (##car _e157619157914_)))) + (##car _e157601157896_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd157618157917_)) + (gx#identifier? _hd157600157899_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd157618157917_)) + (gx#stx-eq? '%#quote _hd157600157899_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl157617157919_)) - (let ((_e157622157922_ + (gx#stx-pair? _tl157599157901_)) + (let ((_e157604157904_ (let () (declare (not safe)) (gx#stx-e - _tl157617157919_)))) - (let ((_tl157620157927_ + _tl157599157901_)))) + (let ((_tl157602157909_ (let () (declare (not safe)) - (##cdr _e157622157922_))) - (_hd157621157925_ + (##cdr _e157604157904_))) + (_hd157603157907_ (let () (declare (not safe)) - (##car _e157622157922_)))) + (##car _e157604157904_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl157620157927_)) + _tl157602157909_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl157614157911_)) - (let ((_e157625157930_ + _tl157596157893_)) + (let ((_e157607157912_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl157614157911_)))) - (let ((_tl157623157935_ - (let () (declare (not safe)) (##cdr _e157625157930_))) - (_hd157624157933_ - (let () (declare (not safe)) (##car _e157625157930_)))) + (gx#stx-e _tl157596157893_)))) + (let ((_tl157605157917_ + (let () (declare (not safe)) (##cdr _e157607157912_))) + (_hd157606157915_ + (let () (declare (not safe)) (##car _e157607157912_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd157624157933_)) - (let ((_e157628157938_ + (gx#stx-pair? _hd157606157915_)) + (let ((_e157610157920_ (let () (declare (not safe)) - (gx#stx-e _hd157624157933_)))) - (let ((_tl157626157943_ + (gx#stx-e _hd157606157915_)))) + (let ((_tl157608157925_ (let () (declare (not safe)) - (##cdr _e157628157938_))) - (_hd157627157941_ + (##cdr _e157610157920_))) + (_hd157609157923_ (let () (declare (not safe)) - (##car _e157628157938_)))) + (##car _e157610157920_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd157627157941_)) + (gx#identifier? _hd157609157923_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd157627157941_)) + (gx#stx-eq? '%#ref _hd157609157923_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl157626157943_)) - (let ((_e157631157946_ + (gx#stx-pair? _tl157608157925_)) + (let ((_e157613157928_ (let () (declare (not safe)) - (gx#stx-e _tl157626157943_)))) - (let ((_tl157629157951_ + (gx#stx-e _tl157608157925_)))) + (let ((_tl157611157933_ (let () (declare (not safe)) - (##cdr _e157631157946_))) - (_hd157630157949_ + (##cdr _e157613157928_))) + (_hd157612157931_ (let () (declare (not safe)) - (##car _e157631157946_)))) + (##car _e157613157928_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl157629157951_)) + _tl157611157933_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl157623157935_)) - (let ((_e157634157954_ + _tl157605157917_)) + (let ((_e157616157936_ (let () (declare (not safe)) (gx#stx-e - _tl157623157935_)))) - (let ((_tl157632157959_ + _tl157605157917_)))) + (let ((_tl157614157941_ (let () (declare (not safe)) - (##cdr _e157634157954_))) - (_hd157633157957_ + (##cdr _e157616157936_))) + (_hd157615157939_ (let () (declare (not safe)) - (##car _e157634157954_)))) + (##car _e157616157936_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd157633157957_)) - (let ((_e157637157962_ + _hd157615157939_)) + (let ((_e157619157944_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd157633157957_)))) - (let ((_tl157635157967_ + (gx#stx-e _hd157615157939_)))) + (let ((_tl157617157949_ (let () (declare (not safe)) - (##cdr _e157637157962_))) - (_hd157636157965_ + (##cdr _e157619157944_))) + (_hd157618157947_ (let () (declare (not safe)) - (##car _e157637157962_)))) + (##car _e157619157944_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd157636157965_)) + (gx#identifier? _hd157618157947_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd157636157965_)) + (gx#stx-eq? '%#quote _hd157618157947_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl157635157967_)) - (let ((_e157640157970_ + (gx#stx-pair? _tl157617157949_)) + (let ((_e157622157952_ (let () (declare (not safe)) - (gx#stx-e _tl157635157967_)))) - (let ((_tl157638157975_ + (gx#stx-e _tl157617157949_)))) + (let ((_tl157620157957_ (let () (declare (not safe)) - (##cdr _e157640157970_))) - (_hd157639157973_ + (##cdr _e157622157952_))) + (_hd157621157955_ (let () (declare (not safe)) - (##car _e157640157970_)))) + (##car _e157622157952_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl157638157975_)) + (gx#stx-null? _tl157620157957_)) (if (let () (declare (not safe)) (gx#stx-null? - _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_)))) + _tl157614157941_)) + (___match158632158633_ + _e157577157832_ + _hd157576157835_ + _tl157575157837_ + _e157580157840_ + _hd157579157843_ + _tl157578157845_ + _e157583157848_ + _hd157582157851_ + _tl157581157853_ + _e157586157856_ + _hd157585157859_ + _tl157584157861_ + _e157589157864_ + _hd157588157867_ + _tl157587157869_ + _e157592157872_ + _hd157591157875_ + _tl157590157877_ + _e157595157880_ + _hd157594157883_ + _tl157593157885_ + _e157598157888_ + _hd157597157891_ + _tl157596157893_ + _e157601157896_ + _hd157600157899_ + _tl157599157901_ + _e157604157904_ + _hd157603157907_ + _tl157602157909_ + _e157607157912_ + _hd157606157915_ + _tl157605157917_ + _e157610157920_ + _hd157609157923_ + _tl157608157925_ + _e157613157928_ + _hd157612157931_ + _tl157611157933_ + _e157616157936_ + _hd157615157939_ + _tl157614157941_ + _e157619157944_ + _hd157618157947_ + _tl157617157949_ + _e157622157952_ + _hd157621157955_ + _tl157620157957_) + (___kont158503158504_)) + (___kont158503158504_)))) + (___kont158503158504_)) + (___kont158503158504_)) + (___kont158503158504_)))) + (___kont158503158504_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl157623157935_)) - (if (let ((__tmp158814 + _tl157605157917_)) + (if (let ((__tmp158796 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp158814 'bind-method!)) - (let ((_L157804_ _hd157630157949_) - (_L157805_ _hd157621157925_) - (_L157806_ _hd157612157901_) - (_L157807_ _hd157603157877_)) - (___kont158519158520_ - _L157804_ - _L157805_ - _L157806_ - _L157807_)) - (___kont158521158522_)) - (___kont158521158522_))) + (gxc#runtime-identifier=? __tmp158796 'bind-method!)) + (let ((_L157786_ _hd157612157931_) + (_L157787_ _hd157603157907_) + (_L157788_ _hd157594157883_) + (_L157789_ _hd157585157859_)) + (___kont158501158502_ + _L157786_ + _L157787_ + _L157788_ + _L157789_)) + (___kont158503158504_)) + (___kont158503158504_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont158521158522_)))) - (___kont158521158522_)) - (___kont158521158522_)) - (___kont158521158522_)))) - (___kont158521158522_)))) - (___kont158521158522_)) + (___kont158503158504_)))) + (___kont158503158504_)) + (___kont158503158504_)) + (___kont158503158504_)))) + (___kont158503158504_)))) + (___kont158503158504_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont158521158522_)))) - (___kont158521158522_)) - (___kont158521158522_)) - (___kont158521158522_)))) - (___kont158521158522_)))) - (___kont158521158522_)) - (___kont158521158522_)))) + (___kont158503158504_)))) + (___kont158503158504_)) + (___kont158503158504_)) + (___kont158503158504_)))) + (___kont158503158504_)))) + (___kont158503158504_)) + (___kont158503158504_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont158521158522_)) - (___kont158521158522_)) - (___kont158521158522_)))) - (___kont158521158522_)))) - (___kont158521158522_)) - (___kont158521158522_)))) + (___kont158503158504_)) + (___kont158503158504_)) + (___kont158503158504_)))) + (___kont158503158504_)))) + (___kont158503158504_)) + (___kont158503158504_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont158521158522_)) - (___kont158521158522_)) - (___kont158521158522_)))) - (___kont158521158522_)))) - (___kont158521158522_)))) - (___kont158521158522_))))))) + (___kont158503158504_)) + (___kont158503158504_)) + (___kont158503158504_)))) + (___kont158503158504_)))) + (___kont158503158504_)))) + (___kont158503158504_))))))) (define gxc#!alias::typedecl - (lambda (_self157557_) - (let* ((_self157558157564_ _self157557_) - (_E157560157568_ + (lambda (_self157539_) + (let* ((_self157540157546_ _self157539_) + (_E157542157550_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self157558157564_)))) - (_K157561157573_ - (lambda (_alias-id157571_) - (let ((__tmp158815 + (error '"No clause matching" _self157540157546_)))) + (_K157543157555_ + (lambda (_alias-id157553_) + (let ((__tmp158797 (let () (declare (not safe)) - (cons _alias-id157571_ '())))) + (cons _alias-id157553_ '())))) (declare (not safe)) - (cons '@alias __tmp158815))))) + (cons '@alias __tmp158797))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self157558157564_ 'gxc#!alias::t)) - (let* ((_e157562157576_ + (##structure-instance-of? _self157540157546_ 'gxc#!alias::t)) + (let* ((_e157544157558_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157558157564_ + _self157540157546_ '1 gxc#!type::t '#f))) - (_alias-id157579_ _e157562157576_)) + (_alias-id157561_ _e157544157558_)) (declare (not safe)) - (_K157561157573_ _alias-id157579_)) - (let () (declare (not safe)) (_E157560157568_)))))) + (_K157543157555_ _alias-id157561_)) + (let () (declare (not safe)) (_E157542157550_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_self157341_) - (let* ((_self157342157358_ _self157341_) - (_E157344157362_ + (lambda (_self157323_) + (let* ((_self157324157340_ _self157323_) + (_E157326157344_ (lambda () (let () (declare (not safe)) - (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 + (error '"No clause matching" _self157324157340_)))) + (_K157327157359_ + (lambda (_methods157347_ + _metaclass157348_ + _system?157349_ + _final?157350_ + _struct?157351_ + _constructor157352_ + _fields157353_ + _slots157354_ + _precendence-list157355_ + _super157356_ + _id157357_) + (let ((__tmp158798 + (let ((__tmp158799 + (let ((__tmp158800 + (let ((__tmp158801 + (let ((__tmp158802 + (let ((__tmp158803 + (let ((__tmp158804 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp158823 - (let ((__tmp158824 - (let ((__tmp158825 - (let ((__tmp158826 - (let ((__tmp158827 - (if _methods157365_ + (let ((__tmp158805 + (let ((__tmp158806 + (let ((__tmp158807 + (let ((__tmp158808 + (let ((__tmp158809 + (if _methods157347_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (hash->list _methods157365_)) + (hash->list _methods157347_)) '#f))) (declare (not safe)) - (cons __tmp158827 '())))) + (cons __tmp158809 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _metaclass157366_ - __tmp158826)))) + (cons _metaclass157348_ + __tmp158808)))) (declare (not safe)) - (cons _system?157367_ - __tmp158825)))) + (cons _system?157349_ + __tmp158807)))) (declare (not safe)) - (cons _final?157368_ __tmp158824)))) + (cons _final?157350_ __tmp158806)))) (declare (not safe)) - (cons _struct?157369_ __tmp158823)))) + (cons _struct?157351_ __tmp158805)))) (declare (not safe)) - (cons _constructor157370_ __tmp158822)))) + (cons _constructor157352_ __tmp158804)))) (declare (not safe)) - (cons _fields157371_ __tmp158821)))) + (cons _fields157353_ __tmp158803)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _slots157372_ - __tmp158820)))) + (cons _slots157354_ + __tmp158802)))) (declare (not safe)) - (cons _precendence-list157373_ - __tmp158819)))) + (cons _precendence-list157355_ + __tmp158801)))) (declare (not safe)) - (cons _super157374_ __tmp158818)))) + (cons _super157356_ __tmp158800)))) (declare (not safe)) - (cons _id157375_ __tmp158817)))) + (cons _id157357_ __tmp158799)))) (declare (not safe)) - (cons '@class __tmp158816))))) + (cons '@class __tmp158798))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self157342157358_ 'gxc#!class::t)) - (let* ((_e157346157380_ + (##structure-instance-of? _self157324157340_ 'gxc#!class::t)) + (let* ((_e157328157362_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157342157358_ + _self157324157340_ '1 gxc#!type::t '#f))) - (_id157383_ _e157346157380_) - (_e157347157385_ + (_id157365_ _e157328157362_) + (_e157329157367_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157342157358_ + _self157324157340_ '2 gxc#!class::t '#f))) - (_super157388_ _e157347157385_) - (_e157348157390_ + (_super157370_ _e157329157367_) + (_e157330157372_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157342157358_ + _self157324157340_ '3 gxc#!class::t '#f))) - (_precendence-list157393_ _e157348157390_) - (_e157349157395_ + (_precendence-list157375_ _e157330157372_) + (_e157331157377_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157342157358_ + _self157324157340_ '4 gxc#!class::t '#f))) - (_slots157398_ _e157349157395_) - (_e157350157400_ + (_slots157380_ _e157331157377_) + (_e157332157382_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157342157358_ + _self157324157340_ '5 gxc#!class::t '#f))) - (_fields157403_ _e157350157400_) - (_e157351157405_ + (_fields157385_ _e157332157382_) + (_e157333157387_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157342157358_ + _self157324157340_ '6 gxc#!class::t '#f))) - (_constructor157408_ _e157351157405_) - (_e157352157410_ + (_constructor157390_ _e157333157387_) + (_e157334157392_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157342157358_ + _self157324157340_ '7 gxc#!class::t '#f))) - (_struct?157413_ _e157352157410_) - (_e157353157415_ + (_struct?157395_ _e157334157392_) + (_e157335157397_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157342157358_ + _self157324157340_ '8 gxc#!class::t '#f))) - (_final?157418_ _e157353157415_) - (_e157354157420_ + (_final?157400_ _e157335157397_) + (_e157336157402_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157342157358_ + _self157324157340_ '9 gxc#!class::t '#f))) - (_system?157423_ _e157354157420_) - (_e157355157425_ + (_system?157405_ _e157336157402_) + (_e157337157407_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157342157358_ + _self157324157340_ '10 gxc#!class::t '#f))) - (_metaclass157428_ _e157355157425_) - (_e157356157430_ + (_metaclass157410_ _e157337157407_) + (_e157338157412_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157342157358_ + _self157324157340_ '11 gxc#!class::t '#f))) - (_methods157433_ _e157356157430_)) + (_methods157415_ _e157338157412_)) (declare (not safe)) - (_K157345157377_ - _methods157433_ - _metaclass157428_ - _system?157423_ - _final?157418_ - _struct?157413_ - _constructor157408_ - _fields157403_ - _slots157398_ - _precendence-list157393_ - _super157388_ - _id157383_)) - (let () (declare (not safe)) (_E157344157362_)))))) + (_K157327157359_ + _methods157415_ + _metaclass157410_ + _system?157405_ + _final?157400_ + _struct?157395_ + _constructor157390_ + _fields157385_ + _slots157380_ + _precendence-list157375_ + _super157370_ + _id157365_)) + (let () (declare (not safe)) (_E157326157344_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_self157195_) - (let* ((_self157196157202_ _self157195_) - (_E157198157206_ + (lambda (_self157177_) + (let* ((_self157178157184_ _self157177_) + (_E157180157188_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self157196157202_)))) - (_K157199157211_ - (lambda (_klass-id157209_) - (let ((__tmp158828 + (error '"No clause matching" _self157178157184_)))) + (_K157181157193_ + (lambda (_klass-id157191_) + (let ((__tmp158810 (let () (declare (not safe)) - (cons _klass-id157209_ '())))) + (cons _klass-id157191_ '())))) (declare (not safe)) - (cons '@predicate __tmp158828))))) + (cons '@predicate __tmp158810))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self157196157202_ + _self157178157184_ 'gxc#!predicate::t)) - (let* ((_e157200157214_ + (let* ((_e157182157196_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157196157202_ + _self157178157184_ '1 gxc#!type::t '#f))) - (_klass-id157217_ _e157200157214_)) + (_klass-id157199_ _e157182157196_)) (declare (not safe)) - (_K157199157211_ _klass-id157217_)) - (let () (declare (not safe)) (_E157198157206_)))))) + (_K157181157193_ _klass-id157199_)) + (let () (declare (not safe)) (_E157180157188_)))))) (let () (declare (not safe)) (bind-method!__% @@ -1835,38 +1835,38 @@ gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_self157049_) - (let* ((_self157050157056_ _self157049_) - (_E157052157060_ + (lambda (_self157031_) + (let* ((_self157032157038_ _self157031_) + (_E157034157042_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self157050157056_)))) - (_K157053157065_ - (lambda (_klass-id157063_) - (let ((__tmp158829 + (error '"No clause matching" _self157032157038_)))) + (_K157035157047_ + (lambda (_klass-id157045_) + (let ((__tmp158811 (let () (declare (not safe)) - (cons _klass-id157063_ '())))) + (cons _klass-id157045_ '())))) (declare (not safe)) - (cons '@constructor __tmp158829))))) + (cons '@constructor __tmp158811))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self157050157056_ + _self157032157038_ 'gxc#!constructor::t)) - (let* ((_e157054157068_ + (let* ((_e157036157050_ (let () (declare (not safe)) (##unchecked-structure-ref - _self157050157056_ + _self157032157038_ '1 gxc#!type::t '#f))) - (_klass-id157071_ _e157054157068_)) + (_klass-id157053_ _e157036157050_)) (declare (not safe)) - (_K157053157065_ _klass-id157071_)) - (let () (declare (not safe)) (_E157052157060_)))))) + (_K157035157047_ _klass-id157053_)) + (let () (declare (not safe)) (_E157034157042_)))))) (let () (declare (not safe)) (bind-method!__% @@ -1875,305 +1875,305 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_self156889_) - (let* ((_self156890156898_ _self156889_) - (_E156892156902_ + (lambda (_self156871_) + (let* ((_self156872156880_ _self156871_) + (_E156874156884_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self156890156898_)))) - (_K156893156909_ - (lambda (_checked?156905_ _slot156906_ _klass-id156907_) - (let ((__tmp158830 - (let ((__tmp158831 - (let ((__tmp158832 + (error '"No clause matching" _self156872156880_)))) + (_K156875156891_ + (lambda (_checked?156887_ _slot156888_ _klass-id156889_) + (let ((__tmp158812 + (let ((__tmp158813 + (let ((__tmp158814 (let () (declare (not safe)) - (cons _checked?156905_ '())))) + (cons _checked?156887_ '())))) (declare (not safe)) - (cons _slot156906_ __tmp158832)))) + (cons _slot156888_ __tmp158814)))) (declare (not safe)) - (cons _klass-id156907_ __tmp158831)))) + (cons _klass-id156889_ __tmp158813)))) (declare (not safe)) - (cons '@accessor __tmp158830))))) + (cons '@accessor __tmp158812))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self156890156898_ + _self156872156880_ 'gxc#!accessor::t)) - (let* ((_e156894156912_ + (let* ((_e156876156894_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156890156898_ + _self156872156880_ '1 gxc#!type::t '#f))) - (_klass-id156915_ _e156894156912_) - (_e156895156917_ + (_klass-id156897_ _e156876156894_) + (_e156877156899_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156890156898_ + _self156872156880_ '2 gxc#!accessor::t '#f))) - (_slot156920_ _e156895156917_) - (_e156896156922_ + (_slot156902_ _e156877156899_) + (_e156878156904_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156890156898_ + _self156872156880_ '3 gxc#!accessor::t '#f))) - (_checked?156925_ _e156896156922_)) + (_checked?156907_ _e156878156904_)) (declare (not safe)) - (_K156893156909_ - _checked?156925_ - _slot156920_ - _klass-id156915_)) - (let () (declare (not safe)) (_E156892156902_)))))) + (_K156875156891_ + _checked?156907_ + _slot156902_ + _klass-id156897_)) + (let () (declare (not safe)) (_E156874156884_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!accessor::t 'typedecl gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_self156729_) - (let* ((_self156730156738_ _self156729_) - (_E156732156742_ + (lambda (_self156711_) + (let* ((_self156712156720_ _self156711_) + (_E156714156724_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self156730156738_)))) - (_K156733156749_ - (lambda (_checked?156745_ _slot156746_ _klass-id156747_) - (let ((__tmp158833 - (let ((__tmp158834 - (let ((__tmp158835 + (error '"No clause matching" _self156712156720_)))) + (_K156715156731_ + (lambda (_checked?156727_ _slot156728_ _klass-id156729_) + (let ((__tmp158815 + (let ((__tmp158816 + (let ((__tmp158817 (let () (declare (not safe)) - (cons _checked?156745_ '())))) + (cons _checked?156727_ '())))) (declare (not safe)) - (cons _slot156746_ __tmp158835)))) + (cons _slot156728_ __tmp158817)))) (declare (not safe)) - (cons _klass-id156747_ __tmp158834)))) + (cons _klass-id156729_ __tmp158816)))) (declare (not safe)) - (cons '@mutator __tmp158833))))) + (cons '@mutator __tmp158815))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self156730156738_ 'gxc#!mutator::t)) - (let* ((_e156734156752_ + (##structure-instance-of? _self156712156720_ 'gxc#!mutator::t)) + (let* ((_e156716156734_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156730156738_ + _self156712156720_ '1 gxc#!type::t '#f))) - (_klass-id156755_ _e156734156752_) - (_e156735156757_ + (_klass-id156737_ _e156716156734_) + (_e156717156739_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156730156738_ + _self156712156720_ '2 gxc#!mutator::t '#f))) - (_slot156760_ _e156735156757_) - (_e156736156762_ + (_slot156742_ _e156717156739_) + (_e156718156744_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156730156738_ + _self156712156720_ '3 gxc#!mutator::t '#f))) - (_checked?156765_ _e156736156762_)) + (_checked?156747_ _e156718156744_)) (declare (not safe)) - (_K156733156749_ - _checked?156765_ - _slot156760_ - _klass-id156755_)) - (let () (declare (not safe)) (_E156732156742_)))))) + (_K156715156731_ + _checked?156747_ + _slot156742_ + _klass-id156737_)) + (let () (declare (not safe)) (_E156714156724_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!mutator::t 'typedecl gxc#!mutator::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_self156555_) - (let* ((_self156556156566_ _self156555_) - (_E156558156570_ + (lambda (_self156537_) + (let* ((_self156538156548_ _self156537_) + (_E156540156552_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self156556156566_)))) - (_K156559156581_ - (lambda (_typedecl156573_ - _inline156574_ - _dispatch156575_ - _arity156576_) - (if _inline156574_ - (let ((_$e156578_ _typedecl156573_)) - (if _$e156578_ - _$e156578_ + (error '"No clause matching" _self156538156548_)))) + (_K156541156563_ + (lambda (_typedecl156555_ + _inline156556_ + _dispatch156557_ + _arity156558_) + (if _inline156556_ + (let ((_$e156560_ _typedecl156555_)) + (if _$e156560_ + _$e156560_ (let () (declare (not safe)) (error '"Cannot generate typedecl for inline rules")))) - (let ((__tmp158836 - (let ((__tmp158837 + (let ((__tmp158818 + (let ((__tmp158819 (let () (declare (not safe)) - (cons _dispatch156575_ '())))) + (cons _dispatch156557_ '())))) (declare (not safe)) - (cons _arity156576_ __tmp158837)))) + (cons _arity156558_ __tmp158819)))) (declare (not safe)) - (cons '@lambda __tmp158836)))))) + (cons '@lambda __tmp158818)))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self156556156566_ 'gxc#!lambda::t)) - (let* ((_e156560156584_ + (##structure-instance-of? _self156538156548_ 'gxc#!lambda::t)) + (let* ((_e156542156566_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156556156566_ + _self156538156548_ '1 gxc#!type::t '#f))) - (_e156561156587_ + (_e156543156569_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156556156566_ + _self156538156548_ '2 gxc#!lambda::t '#f))) - (_arity156590_ _e156561156587_) - (_e156562156592_ + (_arity156572_ _e156543156569_) + (_e156544156574_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156556156566_ + _self156538156548_ '3 gxc#!lambda::t '#f))) - (_dispatch156595_ _e156562156592_) - (_e156563156597_ + (_dispatch156577_ _e156544156574_) + (_e156545156579_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156556156566_ + _self156538156548_ '4 gxc#!lambda::t '#f))) - (_inline156600_ _e156563156597_) - (_e156564156602_ + (_inline156582_ _e156545156579_) + (_e156546156584_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156556156566_ + _self156538156548_ '5 gxc#!lambda::t '#f))) - (_typedecl156605_ _e156564156602_)) + (_typedecl156587_ _e156546156584_)) (declare (not safe)) - (_K156559156581_ - _typedecl156605_ - _inline156600_ - _dispatch156595_ - _arity156590_)) - (let () (declare (not safe)) (_E156558156570_)))))) + (_K156541156563_ + _typedecl156587_ + _inline156582_ + _dispatch156577_ + _arity156572_)) + (let () (declare (not safe)) (_E156540156552_)))))) (let () (declare (not safe)) (bind-method!__% gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_self156366_) - (letrec ((_clause-e156368_ - (lambda (_clause156398_) - (let* ((_clause156399156407_ _clause156398_) - (_E156401156411_ + (lambda (_self156348_) + (letrec ((_clause-e156350_ + (lambda (_clause156380_) + (let* ((_clause156381156389_ _clause156380_) + (_E156383156393_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _clause156399156407_)))) - (_K156402156417_ - (lambda (_dispatch156414_ _arity156415_) - (let ((__tmp158838 + _clause156381156389_)))) + (_K156384156399_ + (lambda (_dispatch156396_ _arity156397_) + (let ((__tmp158820 (let () (declare (not safe)) - (cons _dispatch156414_ '())))) + (cons _dispatch156396_ '())))) (declare (not safe)) - (cons _arity156415_ __tmp158838))))) + (cons _arity156397_ __tmp158820))))) (if (let () (declare (not safe)) (##structure-instance-of? - _clause156399156407_ + _clause156381156389_ 'gxc#!lambda::t)) - (let* ((_e156403156420_ + (let* ((_e156385156402_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause156399156407_ + _clause156381156389_ '1 gxc#!type::t '#f))) - (_e156404156423_ + (_e156386156405_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause156399156407_ + _clause156381156389_ '2 gxc#!lambda::t '#f))) - (_arity156426_ _e156404156423_) - (_e156405156428_ + (_arity156408_ _e156386156405_) + (_e156387156410_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause156399156407_ + _clause156381156389_ '3 gxc#!lambda::t '#f))) - (_dispatch156431_ _e156405156428_)) + (_dispatch156413_ _e156387156410_)) (declare (not safe)) - (_K156402156417_ _dispatch156431_ _arity156426_)) - (let () (declare (not safe)) (_E156401156411_))))))) - (let* ((_self156369156376_ _self156366_) - (_E156371156380_ + (_K156384156399_ _dispatch156413_ _arity156408_)) + (let () (declare (not safe)) (_E156383156393_))))))) + (let* ((_self156351156358_ _self156348_) + (_E156353156362_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self156369156376_)))) - (_K156372156387_ - (lambda (_clauses156383_) - (let ((_clauses156385_ - (map _clause-e156368_ _clauses156383_))) + (error '"No clause matching" _self156351156358_)))) + (_K156354156369_ + (lambda (_clauses156365_) + (let ((_clauses156367_ + (map _clause-e156350_ _clauses156365_))) (declare (not safe)) - (cons '@case-lambda _clauses156385_))))) + (cons '@case-lambda _clauses156367_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self156369156376_ + _self156351156358_ 'gxc#!case-lambda::t)) - (let* ((_e156373156390_ + (let* ((_e156355156372_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156369156376_ + _self156351156358_ '1 gxc#!type::t '#f))) - (_e156374156393_ + (_e156356156375_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156369156376_ + _self156351156358_ '2 gxc#!case-lambda::t '#f))) - (_clauses156396_ _e156374156393_)) + (_clauses156378_ _e156356156375_)) (declare (not safe)) - (_K156372156387_ _clauses156396_)) - (let () (declare (not safe)) (_E156371156380_))))))) + (_K156354156369_ _clauses156378_)) + (let () (declare (not safe)) (_E156353156362_))))))) (let () (declare (not safe)) (bind-method!__% @@ -2182,58 +2182,58 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_self156209_) - (let* ((_self156210156218_ _self156209_) - (_E156212156222_ + (lambda (_self156191_) + (let* ((_self156192156200_ _self156191_) + (_E156194156204_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self156210156218_)))) - (_K156213156228_ - (lambda (_dispatch156225_ _table156226_) - (let ((__tmp158839 - (let ((__tmp158840 + (error '"No clause matching" _self156192156200_)))) + (_K156195156210_ + (lambda (_dispatch156207_ _table156208_) + (let ((__tmp158821 + (let ((__tmp158822 (let () (declare (not safe)) - (cons _dispatch156225_ '())))) + (cons _dispatch156207_ '())))) (declare (not safe)) - (cons _table156226_ __tmp158840)))) + (cons _table156208_ __tmp158822)))) (declare (not safe)) - (cons '@kw-lambda __tmp158839))))) + (cons '@kw-lambda __tmp158821))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self156210156218_ + _self156192156200_ 'gxc#!kw-lambda::t)) - (let* ((_e156214156231_ + (let* ((_e156196156213_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156210156218_ + _self156192156200_ '1 gxc#!type::t '#f))) - (_e156215156234_ + (_e156197156216_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156210156218_ + _self156192156200_ '2 gxc#!kw-lambda::t '#f))) - (_table156237_ _e156215156234_) - (_e156216156239_ + (_table156219_ _e156197156216_) + (_e156198156221_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156210156218_ + _self156192156200_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch156242_ _e156216156239_)) + (_dispatch156224_ _e156198156221_)) (declare (not safe)) - (_K156213156228_ _dispatch156242_ _table156237_)) - (let () (declare (not safe)) (_E156212156222_)))))) + (_K156195156210_ _dispatch156224_ _table156219_)) + (let () (declare (not safe)) (_E156194156204_)))))) (let () (declare (not safe)) (bind-method!__% @@ -2242,58 +2242,58 @@ gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_self156052_) - (let* ((_self156053156061_ _self156052_) - (_E156055156065_ + (lambda (_self156034_) + (let* ((_self156035156043_ _self156034_) + (_E156037156047_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _self156053156061_)))) - (_K156056156071_ - (lambda (_main156068_ _keys156069_) - (let ((__tmp158841 - (let ((__tmp158842 + (error '"No clause matching" _self156035156043_)))) + (_K156038156053_ + (lambda (_main156050_ _keys156051_) + (let ((__tmp158823 + (let ((__tmp158824 (let () (declare (not safe)) - (cons _main156068_ '())))) + (cons _main156050_ '())))) (declare (not safe)) - (cons _keys156069_ __tmp158842)))) + (cons _keys156051_ __tmp158824)))) (declare (not safe)) - (cons '@kw-lambda-dispatch __tmp158841))))) + (cons '@kw-lambda-dispatch __tmp158823))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self156053156061_ + _self156035156043_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e156057156074_ + (let* ((_e156039156056_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156053156061_ + _self156035156043_ '1 gxc#!type::t '#f))) - (_e156058156077_ + (_e156040156059_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156053156061_ + _self156035156043_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys156080_ _e156058156077_) - (_e156059156082_ + (_keys156062_ _e156040156059_) + (_e156041156064_ (let () (declare (not safe)) (##unchecked-structure-ref - _self156053156061_ + _self156035156043_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main156085_ _e156059156082_)) + (_main156067_ _e156041156064_)) (declare (not safe)) - (_K156056156071_ _main156085_ _keys156080_)) - (let () (declare (not safe)) (_E156055156065_)))))) + (_K156038156053_ _main156067_ _keys156062_)) + (let () (declare (not safe)) (_E156037156047_)))))) (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 9ee1d52e0..77407e78c 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]#_g158845_| + (define |gxc[1]#_g158827_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158847_| + (define |gxc[1]#_g158829_| (##structure gx#syntax-quote::t '::generate-ssxi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158849_| + (define |gxc[1]#_g158831_| (##structure gx#syntax-quote::t 'make-::generate-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g158851_| + (define |gxc[1]#_g158833_| (##structure gx#syntax-quote::t '::generate-ssxi? @@ -29,7 +29,7 @@ (gx#current-expander-context) '())) (define |gxc[:0:]#::generate-ssxi| - (let ((__obj158759 + (let ((__obj158741 (let () (declare (not safe)) (##structure @@ -53,7 +53,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158759 + __obj158741 '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! - __obj158759 + __obj158741 '::generate-ssxi '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -69,26 +69,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158759 + __obj158741 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp158843 - (let ((__tmp158844 |gxc[1]#_g158845_|)) + (let ((__tmp158825 + (let ((__tmp158826 |gxc[1]#_g158827_|)) (declare (not safe)) - (cons __tmp158844 '())))) + (cons __tmp158826 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj158759 - __tmp158843 + __obj158741 + __tmp158825 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj158759 + __obj158741 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -96,7 +96,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158759 + __obj158741 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -104,7 +104,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158759 + __obj158741 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -112,39 +112,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158759 + __obj158741 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp158846 |gxc[1]#_g158847_|)) + (let ((__tmp158828 |gxc[1]#_g158829_|)) (declare (not safe)) (##unchecked-structure-set! - __obj158759 - __tmp158846 + __obj158741 + __tmp158828 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp158848 |gxc[1]#_g158849_|)) + (let ((__tmp158830 |gxc[1]#_g158831_|)) (declare (not safe)) (##unchecked-structure-set! - __obj158759 - __tmp158848 + __obj158741 + __tmp158830 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp158850 |gxc[1]#_g158851_|)) + (let ((__tmp158832 |gxc[1]#_g158833_|)) (declare (not safe)) (##unchecked-structure-set! - __obj158759 - __tmp158850 + __obj158741 + __tmp158832 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj158759 + __obj158741 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -152,7 +152,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158759 + __obj158741 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -160,7 +160,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158759 + __obj158741 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -168,9 +168,9 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj158759 + __obj158741 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj158759))) + __obj158741))) diff --git a/src/bootstrap/gerbil/compiler/ssxi~1.scm b/src/bootstrap/gerbil/compiler/ssxi~1.scm index a09503ae3..eadc48546 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 (_$stx160662_) - (let* ((_g160666160684_ - (lambda (_g160667160680_) + (lambda (_$stx160644_) + (let* ((_g160648160666_ + (lambda (_g160649160662_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g160667160680_)))) - (_g160665160739_ - (lambda (_g160667160688_) + _g160649160662_)))) + (_g160647160721_ + (lambda (_g160649160670_) (if (let () (declare (not safe)) - (gx#stx-pair? _g160667160688_)) - (let ((_e160672160691_ + (gx#stx-pair? _g160649160670_)) + (let ((_e160654160673_ (let () (declare (not safe)) - (gx#syntax-e _g160667160688_)))) - (let ((_hd160671160695_ + (gx#syntax-e _g160649160670_)))) + (let ((_hd160653160677_ (let () (declare (not safe)) - (##car _e160672160691_))) - (_tl160670160698_ + (##car _e160654160673_))) + (_tl160652160680_ (let () (declare (not safe)) - (##cdr _e160672160691_)))) + (##cdr _e160654160673_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160670160698_)) - (let ((_e160675160701_ + (gx#stx-pair? _tl160652160680_)) + (let ((_e160657160683_ (let () (declare (not safe)) - (gx#syntax-e _tl160670160698_)))) - (let ((_hd160674160705_ + (gx#syntax-e _tl160652160680_)))) + (let ((_hd160656160687_ (let () (declare (not safe)) - (##car _e160675160701_))) - (_tl160673160708_ + (##car _e160657160683_))) + (_tl160655160690_ (let () (declare (not safe)) - (##cdr _e160675160701_)))) + (##cdr _e160657160683_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160673160708_)) - (let ((_e160678160711_ + (gx#stx-pair? _tl160655160690_)) + (let ((_e160660160693_ (let () (declare (not safe)) - (gx#syntax-e _tl160673160708_)))) - (let ((_hd160677160715_ + (gx#syntax-e _tl160655160690_)))) + (let ((_hd160659160697_ (let () (declare (not safe)) - (##car _e160678160711_))) - (_tl160676160718_ + (##car _e160660160693_))) + (_tl160658160700_ (let () (declare (not safe)) - (##cdr _e160678160711_)))) + (##cdr _e160660160693_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160676160718_)) - ((lambda (_L160721_ _L160723_) + (gx#stx-null? _tl160658160700_)) + ((lambda (_L160703_ _L160705_) (if (let () (declare (not safe)) (gx#identifier? - _L160723_)) - (let ((__tmp164221 + _L160705_)) + (let ((__tmp164203 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-type!))) - (__tmp164216 - (let ((__tmp164218 + (__tmp164198 + (let ((__tmp164200 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp164220 + (let ((__tmp164202 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164219 + (__tmp164201 (let () (declare (not safe)) - (cons _L160723_ '())))) + (cons _L160705_ '())))) (declare (not safe)) - (cons __tmp164220 __tmp164219))) - (__tmp164217 - (let () (declare (not safe)) (cons _L160721_ '())))) + (cons __tmp164202 __tmp164201))) + (__tmp164199 + (let () (declare (not safe)) (cons _L160703_ '())))) (declare (not safe)) - (cons __tmp164218 __tmp164217)))) + (cons __tmp164200 __tmp164199)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164221 - __tmp164216)) - (_g160666160684_ - _g160667160688_))) - _hd160677160715_ - _hd160674160705_) - (_g160666160684_ - _g160667160688_)))) - (_g160666160684_ _g160667160688_)))) - (_g160666160684_ _g160667160688_)))) - (_g160666160684_ _g160667160688_))))) - (_g160665160739_ _$stx160662_)))) + (cons __tmp164203 + __tmp164198)) + (_g160648160666_ + _g160649160670_))) + _hd160659160697_ + _hd160656160687_) + (_g160648160666_ + _g160649160670_)))) + (_g160648160666_ _g160649160670_)))) + (_g160648160666_ _g160649160670_)))) + (_g160648160666_ _g160649160670_))))) + (_g160647160721_ _$stx160644_)))) (define |gxc[:0:]#declare-type*| - (lambda (_$stx160743_) - (let* ((_g160747160776_ - (lambda (_g160748160772_) + (lambda (_$stx160725_) + (let* ((_g160729160758_ + (lambda (_g160730160754_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g160748160772_)))) - (_g160746160876_ - (lambda (_g160748160780_) + _g160730160754_)))) + (_g160728160858_ + (lambda (_g160730160762_) (if (let () (declare (not safe)) - (gx#stx-pair? _g160748160780_)) - (let ((_e160753160783_ + (gx#stx-pair? _g160730160762_)) + (let ((_e160735160765_ (let () (declare (not safe)) - (gx#syntax-e _g160748160780_)))) - (let ((_hd160752160787_ + (gx#syntax-e _g160730160762_)))) + (let ((_hd160734160769_ (let () (declare (not safe)) - (##car _e160753160783_))) - (_tl160751160790_ + (##car _e160735160765_))) + (_tl160733160772_ (let () (declare (not safe)) - (##cdr _e160753160783_)))) + (##cdr _e160735160765_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl160751160790_)) - (let ((_g164222_ + (gx#stx-pair/null? _tl160733160772_)) + (let ((_g164204_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl160751160790_ + _tl160733160772_ '0)))) (begin - (let ((_g164223_ + (let ((_g164205_ (let () (declare (not safe)) - (if (##values? _g164222_) - (##vector-length _g164222_) + (if (##values? _g164204_) + (##vector-length _g164204_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g164223_ 2))) + (##fx= _g164205_ 2))) (error "Context expects 2 values" - _g164223_))) - (let ((_target160754160793_ + _g164205_))) + (let ((_target160736160775_ (let () (declare (not safe)) - (##vector-ref _g164222_ 0))) - (_tl160756160796_ + (##vector-ref _g164204_ 0))) + (_tl160738160778_ (let () (declare (not safe)) - (##vector-ref _g164222_ 1)))) + (##vector-ref _g164204_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160756160796_)) - (letrec ((_loop160757160799_ - (lambda (_hd160755160803_ - _type160761160806_ - _symbol160762160808_) + (gx#stx-null? _tl160738160778_)) + (letrec ((_loop160739160781_ + (lambda (_hd160737160785_ + _type160743160788_ + _symbol160744160790_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd160755160803_)) - (let ((_e160758160811_ + _hd160737160785_)) + (let ((_e160740160793_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd160755160803_)))) - (let ((_lp-hd160759160815_ - (let () (declare (not safe)) (##car _e160758160811_))) - (_lp-tl160760160818_ - (let () (declare (not safe)) (##cdr _e160758160811_)))) + (gx#syntax-e _hd160737160785_)))) + (let ((_lp-hd160741160797_ + (let () (declare (not safe)) (##car _e160740160793_))) + (_lp-tl160742160800_ + (let () (declare (not safe)) (##cdr _e160740160793_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd160759160815_)) - (let ((_e160767160821_ + (gx#stx-pair? _lp-hd160741160797_)) + (let ((_e160749160803_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd160759160815_)))) - (let ((_hd160766160825_ + (gx#syntax-e _lp-hd160741160797_)))) + (let ((_hd160748160807_ (let () (declare (not safe)) - (##car _e160767160821_))) - (_tl160765160828_ + (##car _e160749160803_))) + (_tl160747160810_ (let () (declare (not safe)) - (##cdr _e160767160821_)))) + (##cdr _e160749160803_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160765160828_)) - (let ((_e160770160831_ + (gx#stx-pair? _tl160747160810_)) + (let ((_e160752160813_ (let () (declare (not safe)) - (gx#syntax-e _tl160765160828_)))) - (let ((_hd160769160835_ + (gx#syntax-e _tl160747160810_)))) + (let ((_hd160751160817_ (let () (declare (not safe)) - (##car _e160770160831_))) - (_tl160768160838_ + (##car _e160752160813_))) + (_tl160750160820_ (let () (declare (not safe)) - (##cdr _e160770160831_)))) + (##cdr _e160752160813_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl160768160838_)) - (_loop160757160799_ - _lp-tl160760160818_ + (gx#stx-null? _tl160750160820_)) + (_loop160739160781_ + _lp-tl160742160800_ (let () (declare (not safe)) - (cons _hd160769160835_ - _type160761160806_)) + (cons _hd160751160817_ + _type160743160788_)) (let () (declare (not safe)) - (cons _hd160766160825_ - _symbol160762160808_))) - (_g160747160776_ _g160748160780_)))) - (_g160747160776_ _g160748160780_)))) - (_g160747160776_ _g160748160780_)))) - (let ((_type160763160841_ (reverse _type160761160806_)) - (_symbol160764160844_ (reverse _symbol160762160808_))) - ((lambda (_L160847_ _L160849_) - (let ((__tmp164230 + (cons _hd160748160807_ + _symbol160744160790_))) + (_g160729160758_ _g160730160762_)))) + (_g160729160758_ _g160730160762_)))) + (_g160729160758_ _g160730160762_)))) + (let ((_type160745160823_ (reverse _type160743160788_)) + (_symbol160746160826_ (reverse _symbol160744160790_))) + ((lambda (_L160829_ _L160831_) + (let ((__tmp164212 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp164224 + (__tmp164206 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L160847_ - _L160849_)) - (let ((__tmp164225 - (lambda (_g160864160868_ - _g160865160871_ - _g160866160873_) - (let ((__tmp164226 - (let ((__tmp164229 + _L160829_ + _L160831_)) + (let ((__tmp164207 + (lambda (_g160846160850_ + _g160847160853_ + _g160848160855_) + (let ((__tmp164208 + (let ((__tmp164211 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp164227 - (let ((__tmp164228 + (__tmp164209 + (let ((__tmp164210 (let () (declare (not safe)) - (cons _g160864160868_ + (cons _g160846160850_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g160865160871_ - __tmp164228)))) + (cons _g160847160853_ + __tmp164210)))) (declare (not safe)) - (cons __tmp164229 __tmp164227)))) + (cons __tmp164211 __tmp164209)))) (declare (not safe)) - (cons __tmp164226 _g160866160873_))))) + (cons __tmp164208 _g160848160855_))))) (declare (not safe)) - (foldr2 __tmp164225 '() _L160847_ _L160849_))))) + (foldr2 __tmp164207 '() _L160829_ _L160831_))))) (declare (not safe)) - (cons __tmp164230 __tmp164224))) - _type160763160841_ - _symbol160764160844_)))))) + (cons __tmp164212 __tmp164206))) + _type160745160823_ + _symbol160746160826_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop160757160799_ - _target160754160793_ + (_loop160739160781_ + _target160736160775_ '() '())) - (_g160747160776_ _g160748160780_))))) - (_g160747160776_ _g160748160780_)))) - (_g160747160776_ _g160748160780_))))) - (_g160746160876_ _$stx160743_)))) + (_g160729160758_ _g160730160762_))))) + (_g160729160758_ _g160730160762_)))) + (_g160729160758_ _g160730160762_))))) + (_g160728160858_ _$stx160725_)))) (define |gxc[:0:]#declare-method| - (lambda (_$stx160881_) - (let* ((___stx163781163782_ _$stx160881_) - (_g160886160928_ + (lambda (_$stx160863_) + (let* ((___stx163763163764_ _$stx160863_) + (_g160868160910_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx163781163782_))))) - (let ((___kont163784163785_ - (lambda (_L161056_ _L161058_ _L161059_ _L161060_) - (let ((__tmp164244 + ___stx163763163764_))))) + (let ((___kont163766163767_ + (lambda (_L161038_ _L161040_ _L161041_ _L161042_) + (let ((__tmp164226 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-method!))) - (__tmp164231 - (let ((__tmp164241 - (let ((__tmp164243 + (__tmp164213 + (let ((__tmp164223 + (let ((__tmp164225 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164242 + (__tmp164224 (let () (declare (not safe)) - (cons _L161060_ '())))) + (cons _L161042_ '())))) (declare (not safe)) - (cons __tmp164243 __tmp164242))) - (__tmp164232 - (let ((__tmp164238 - (let ((__tmp164240 + (cons __tmp164225 __tmp164224))) + (__tmp164214 + (let ((__tmp164220 + (let ((__tmp164222 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164239 + (__tmp164221 (let () (declare (not safe)) - (cons _L161059_ '())))) + (cons _L161041_ '())))) (declare (not safe)) - (cons __tmp164240 __tmp164239))) - (__tmp164233 - (let ((__tmp164235 - (let ((__tmp164237 + (cons __tmp164222 __tmp164221))) + (__tmp164215 + (let ((__tmp164217 + (let ((__tmp164219 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164236 + (__tmp164218 (let () (declare (not safe)) - (cons _L161058_ '())))) + (cons _L161040_ '())))) (declare (not safe)) - (cons __tmp164237 __tmp164236))) - (__tmp164234 + (cons __tmp164219 __tmp164218))) + (__tmp164216 (let () (declare (not safe)) - (cons _L161056_ '())))) + (cons _L161038_ '())))) (declare (not safe)) - (cons __tmp164235 __tmp164234)))) + (cons __tmp164217 __tmp164216)))) (declare (not safe)) - (cons __tmp164238 __tmp164233)))) + (cons __tmp164220 __tmp164215)))) (declare (not safe)) - (cons __tmp164241 __tmp164232)))) + (cons __tmp164223 __tmp164214)))) (declare (not safe)) - (cons __tmp164244 __tmp164231)))) - (___kont163786163787_ - (lambda (_L160975_ _L160977_ _L160978_ _L160979_) - (let ((__tmp164245 - (let ((__tmp164246 - (let ((__tmp164247 - (let ((__tmp164248 - (let ((__tmp164249 + (cons __tmp164226 __tmp164213)))) + (___kont163768163769_ + (lambda (_L160957_ _L160959_ _L160960_ _L160961_) + (let ((__tmp164227 + (let ((__tmp164228 + (let ((__tmp164229 + (let ((__tmp164230 + (let ((__tmp164231 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)))) (declare (not safe)) - (cons __tmp164249 '())))) + (cons __tmp164231 '())))) (declare (not safe)) - (cons _L160975_ __tmp164248)))) + (cons _L160957_ __tmp164230)))) (declare (not safe)) - (cons _L160977_ __tmp164247)))) + (cons _L160959_ __tmp164229)))) (declare (not safe)) - (cons _L160978_ __tmp164246)))) + (cons _L160960_ __tmp164228)))) (declare (not safe)) - (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_)) + (cons _L160961_ __tmp164227))))) + (let ((___match163802163803_ + (lambda (_e160876160988_ + _hd160875160992_ + _tl160874160995_ + _e160879160998_ + _hd160878161002_ + _tl160877161005_ + _e160882161008_ + _hd160881161012_ + _tl160880161015_ + _e160885161018_ + _hd160884161022_ + _tl160883161025_ + _e160888161028_ + _hd160887161032_ + _tl160886161035_) + (let ((_L161038_ _hd160887161032_) + (_L161040_ _hd160884161022_) + (_L161041_ _hd160881161012_) + (_L161042_ _hd160878161002_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L161060_)) + (gx#identifier? _L161042_)) (let () (declare (not safe)) - (gx#identifier? _L161059_)) + (gx#identifier? _L161041_)) (let () (declare (not safe)) - (gx#identifier? _L161058_))) - (___kont163784163785_ - _L161056_ - _L161058_ - _L161059_ - _L161060_) - (let () (declare (not safe)) (_g160886160928_))))))) + (gx#identifier? _L161040_))) + (___kont163766163767_ + _L161038_ + _L161040_ + _L161041_ + _L161042_) + (let () (declare (not safe)) (_g160868160910_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx163781163782_)) - (let ((_e160894161006_ + (gx#stx-pair? ___stx163763163764_)) + (let ((_e160876160988_ (let () (declare (not safe)) - (gx#syntax-e ___stx163781163782_)))) - (let ((_tl160892161013_ - (let () (declare (not safe)) (##cdr _e160894161006_))) - (_hd160893161010_ + (gx#syntax-e ___stx163763163764_)))) + (let ((_tl160874160995_ + (let () (declare (not safe)) (##cdr _e160876160988_))) + (_hd160875160992_ (let () (declare (not safe)) - (##car _e160894161006_)))) + (##car _e160876160988_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160892161013_)) - (let ((_e160897161016_ + (gx#stx-pair? _tl160874160995_)) + (let ((_e160879160998_ (let () (declare (not safe)) - (gx#syntax-e _tl160892161013_)))) - (let ((_tl160895161023_ + (gx#syntax-e _tl160874160995_)))) + (let ((_tl160877161005_ (let () (declare (not safe)) - (##cdr _e160897161016_))) - (_hd160896161020_ + (##cdr _e160879160998_))) + (_hd160878161002_ (let () (declare (not safe)) - (##car _e160897161016_)))) + (##car _e160879160998_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160895161023_)) - (let ((_e160900161026_ + (gx#stx-pair? _tl160877161005_)) + (let ((_e160882161008_ (let () (declare (not safe)) - (gx#syntax-e _tl160895161023_)))) - (let ((_tl160898161033_ + (gx#syntax-e _tl160877161005_)))) + (let ((_tl160880161015_ (let () (declare (not safe)) - (##cdr _e160900161026_))) - (_hd160899161030_ + (##cdr _e160882161008_))) + (_hd160881161012_ (let () (declare (not safe)) - (##car _e160900161026_)))) + (##car _e160882161008_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl160898161033_)) - (let ((_e160903161036_ + (gx#stx-pair? _tl160880161015_)) + (let ((_e160885161018_ (let () (declare (not safe)) (gx#syntax-e - _tl160898161033_)))) - (let ((_tl160901161043_ + _tl160880161015_)))) + (let ((_tl160883161025_ (let () (declare (not safe)) - (##cdr _e160903161036_))) - (_hd160902161040_ + (##cdr _e160885161018_))) + (_hd160884161022_ (let () (declare (not safe)) - (##car _e160903161036_)))) + (##car _e160885161018_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl160901161043_)) - (let ((_e160906161046_ + _tl160883161025_)) + (let ((_e160888161028_ (let () (declare (not safe)) (gx#syntax-e - _tl160901161043_)))) - (let ((_tl160904161053_ + _tl160883161025_)))) + (let ((_tl160886161035_ (let () (declare (not safe)) - (##cdr _e160906161046_))) - (_hd160905161050_ + (##cdr _e160888161028_))) + (_hd160887161032_ (let () (declare (not safe)) - (##car _e160906161046_)))) + (##car _e160888161028_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160904161053_)) - (___match163820163821_ - _e160894161006_ - _hd160893161010_ - _tl160892161013_ - _e160897161016_ - _hd160896161020_ - _tl160895161023_ - _e160900161026_ - _hd160899161030_ - _tl160898161033_ - _e160903161036_ - _hd160902161040_ - _tl160901161043_ - _e160906161046_ - _hd160905161050_ - _tl160904161053_) + _tl160886161035_)) + (___match163802163803_ + _e160876160988_ + _hd160875160992_ + _tl160874160995_ + _e160879160998_ + _hd160878161002_ + _tl160877161005_ + _e160882161008_ + _hd160881161012_ + _tl160880161015_ + _e160885161018_ + _hd160884161022_ + _tl160883161025_ + _e160888161028_ + _hd160887161032_ + _tl160886161035_) (let () (declare (not safe)) - (_g160886160928_))))) + (_g160868160910_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl160901161043_)) - (___kont163786163787_ - _hd160902161040_ - _hd160899161030_ - _hd160896161020_ - _hd160893161010_) + _tl160883161025_)) + (___kont163768163769_ + _hd160884161022_ + _hd160881161012_ + _hd160878161002_ + _hd160875160992_) (let () (declare (not safe)) - (_g160886160928_)))))) + (_g160868160910_)))))) (let () (declare (not safe)) - (_g160886160928_))))) + (_g160868160910_))))) (let () (declare (not safe)) - (_g160886160928_))))) - (let () (declare (not safe)) (_g160886160928_))))) - (let () (declare (not safe)) (_g160886160928_)))))))) + (_g160868160910_))))) + (let () (declare (not safe)) (_g160868160910_))))) + (let () (declare (not safe)) (_g160868160910_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_$stx161085_) - (let* ((_g161089161124_ - (lambda (_g161090161120_) + (lambda (_$stx161067_) + (let* ((_g161071161106_ + (lambda (_g161072161102_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161090161120_)))) - (_g161088161243_ - (lambda (_g161090161128_) + _g161072161102_)))) + (_g161070161225_ + (lambda (_g161072161110_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161090161128_)) - (let ((_e161096161131_ + (gx#stx-pair? _g161072161110_)) + (let ((_e161078161113_ (let () (declare (not safe)) - (gx#syntax-e _g161090161128_)))) - (let ((_hd161095161135_ + (gx#syntax-e _g161072161110_)))) + (let ((_hd161077161117_ (let () (declare (not safe)) - (##car _e161096161131_))) - (_tl161094161138_ + (##car _e161078161113_))) + (_tl161076161120_ (let () (declare (not safe)) - (##cdr _e161096161131_)))) + (##cdr _e161078161113_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161094161138_)) - (let ((_g164250_ + (gx#stx-pair/null? _tl161076161120_)) + (let ((_g164232_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161094161138_ + _tl161076161120_ '0)))) (begin - (let ((_g164251_ + (let ((_g164233_ (let () (declare (not safe)) - (if (##values? _g164250_) - (##vector-length _g164250_) + (if (##values? _g164232_) + (##vector-length _g164232_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g164251_ 2))) + (##fx= _g164233_ 2))) (error "Context expects 2 values" - _g164251_))) - (let ((_target161097161141_ + _g164233_))) + (let ((_target161079161123_ (let () (declare (not safe)) - (##vector-ref _g164250_ 0))) - (_tl161099161144_ + (##vector-ref _g164232_ 0))) + (_tl161081161126_ (let () (declare (not safe)) - (##vector-ref _g164250_ 1)))) + (##vector-ref _g164232_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161099161144_)) - (letrec ((_loop161100161147_ - (lambda (_hd161098161151_ - _symbol161104161154_ - _method161105161156_ - _type-t161106161158_) + (gx#stx-null? _tl161081161126_)) + (letrec ((_loop161082161129_ + (lambda (_hd161080161133_ + _symbol161086161136_ + _method161087161138_ + _type-t161088161140_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd161098161151_)) - (let ((_e161101161161_ + _hd161080161133_)) + (let ((_e161083161143_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd161098161151_)))) - (let ((_lp-hd161102161165_ - (let () (declare (not safe)) (##car _e161101161161_))) - (_lp-tl161103161168_ - (let () (declare (not safe)) (##cdr _e161101161161_)))) + (gx#syntax-e _hd161080161133_)))) + (let ((_lp-hd161084161147_ + (let () (declare (not safe)) (##car _e161083161143_))) + (_lp-tl161085161150_ + (let () (declare (not safe)) (##cdr _e161083161143_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd161102161165_)) - (let ((_e161112161171_ + (gx#stx-pair? _lp-hd161084161147_)) + (let ((_e161094161153_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd161102161165_)))) - (let ((_hd161111161175_ + (gx#syntax-e _lp-hd161084161147_)))) + (let ((_hd161093161157_ (let () (declare (not safe)) - (##car _e161112161171_))) - (_tl161110161178_ + (##car _e161094161153_))) + (_tl161092161160_ (let () (declare (not safe)) - (##cdr _e161112161171_)))) + (##cdr _e161094161153_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161110161178_)) - (let ((_e161115161181_ + (gx#stx-pair? _tl161092161160_)) + (let ((_e161097161163_ (let () (declare (not safe)) - (gx#syntax-e _tl161110161178_)))) - (let ((_hd161114161185_ + (gx#syntax-e _tl161092161160_)))) + (let ((_hd161096161167_ (let () (declare (not safe)) - (##car _e161115161181_))) - (_tl161113161188_ + (##car _e161097161163_))) + (_tl161095161170_ (let () (declare (not safe)) - (##cdr _e161115161181_)))) + (##cdr _e161097161163_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161113161188_)) - (let ((_e161118161191_ + (gx#stx-pair? _tl161095161170_)) + (let ((_e161100161173_ (let () (declare (not safe)) (gx#syntax-e - _tl161113161188_)))) - (let ((_hd161117161195_ + _tl161095161170_)))) + (let ((_hd161099161177_ (let () (declare (not safe)) - (##car _e161118161191_))) - (_tl161116161198_ + (##car _e161100161173_))) + (_tl161098161180_ (let () (declare (not safe)) - (##cdr _e161118161191_)))) + (##cdr _e161100161173_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl161116161198_)) - (_loop161100161147_ - _lp-tl161103161168_ + _tl161098161180_)) + (_loop161082161129_ + _lp-tl161085161150_ (let () (declare (not safe)) - (cons _hd161117161195_ - _symbol161104161154_)) + (cons _hd161099161177_ + _symbol161086161136_)) (let () (declare (not safe)) - (cons _hd161114161185_ - _method161105161156_)) + (cons _hd161096161167_ + _method161087161138_)) (let () (declare (not safe)) - (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 + (cons _hd161093161157_ + _type-t161088161140_))) + (_g161071161106_ + _g161072161110_)))) + (_g161071161106_ _g161072161110_)))) + (_g161071161106_ _g161072161110_)))) + (_g161071161106_ _g161072161110_)))) + (let ((_symbol161089161183_ (reverse _symbol161086161136_)) + (_method161090161186_ (reverse _method161087161138_)) + (_type-t161091161188_ (reverse _type-t161088161140_))) + ((lambda (_L161191_ _L161193_ _L161194_) + (let ((__tmp164241 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp164252 + (__tmp164234 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L161209_ - _L161211_ - _L161212_)) - (let ((__tmp164253 - (lambda (_g161228161233_ - _g161229161236_ - _g161230161238_ - _g161231161240_) - (let ((__tmp164254 - (let ((__tmp164258 + _L161191_ + _L161193_ + _L161194_)) + (let ((__tmp164235 + (lambda (_g161210161215_ + _g161211161218_ + _g161212161220_ + _g161213161222_) + (let ((__tmp164236 + (let ((__tmp164240 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp164255 - (let ((__tmp164256 - (let ((__tmp164257 + (__tmp164237 + (let ((__tmp164238 + (let ((__tmp164239 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _g161228161233_ '())))) + (cons _g161210161215_ '())))) (declare (not safe)) - (cons _g161229161236_ __tmp164257)))) + (cons _g161211161218_ __tmp164239)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g161230161238_ - __tmp164256)))) + (cons _g161212161220_ + __tmp164238)))) (declare (not safe)) - (cons __tmp164258 __tmp164255)))) + (cons __tmp164240 __tmp164237)))) (declare (not safe)) - (cons __tmp164254 _g161231161240_))))) + (cons __tmp164236 _g161213161222_))))) (declare (not safe)) - (foldr* __tmp164253 + (foldr* __tmp164235 '() - _L161209_ - _L161211_ - _L161212_))))) + _L161191_ + _L161193_ + _L161194_))))) (declare (not safe)) - (cons __tmp164259 __tmp164252))) - _symbol161107161201_ - _method161108161204_ - _type-t161109161206_)))))) + (cons __tmp164241 __tmp164234))) + _symbol161089161183_ + _method161090161186_ + _type-t161091161188_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161100161147_ - _target161097161141_ + (_loop161082161129_ + _target161079161123_ '() '() '())) - (_g161089161124_ _g161090161128_))))) - (_g161089161124_ _g161090161128_)))) - (_g161089161124_ _g161090161128_))))) - (_g161088161243_ _$stx161085_)))) + (_g161071161106_ _g161072161110_))))) + (_g161071161106_ _g161072161110_)))) + (_g161071161106_ _g161072161110_))))) + (_g161070161225_ _$stx161067_)))) (define |gxc[:0:]#declare-methods| - (lambda (_$stx161248_) - (let* ((_g161252161285_ - (lambda (_g161253161281_) + (lambda (_$stx161230_) + (let* ((_g161234161267_ + (lambda (_g161235161263_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161253161281_)))) - (_g161251161399_ - (lambda (_g161253161289_) + _g161235161263_)))) + (_g161233161381_ + (lambda (_g161235161271_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161253161289_)) - (let ((_e161259161292_ + (gx#stx-pair? _g161235161271_)) + (let ((_e161241161274_ (let () (declare (not safe)) - (gx#syntax-e _g161253161289_)))) - (let ((_hd161258161296_ + (gx#syntax-e _g161235161271_)))) + (let ((_hd161240161278_ (let () (declare (not safe)) - (##car _e161259161292_))) - (_tl161257161299_ + (##car _e161241161274_))) + (_tl161239161281_ (let () (declare (not safe)) - (##cdr _e161259161292_)))) + (##cdr _e161241161274_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161257161299_)) - (let ((_e161262161302_ + (gx#stx-pair? _tl161239161281_)) + (let ((_e161244161284_ (let () (declare (not safe)) - (gx#syntax-e _tl161257161299_)))) - (let ((_hd161261161306_ + (gx#syntax-e _tl161239161281_)))) + (let ((_hd161243161288_ (let () (declare (not safe)) - (##car _e161262161302_))) - (_tl161260161309_ + (##car _e161244161284_))) + (_tl161242161291_ (let () (declare (not safe)) - (##cdr _e161262161302_)))) + (##cdr _e161244161284_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl161260161309_)) - (let ((_g164260_ + (gx#stx-pair/null? _tl161242161291_)) + (let ((_g164242_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl161260161309_ + _tl161242161291_ '0)))) (begin - (let ((_g164261_ + (let ((_g164243_ (let () (declare (not safe)) - (if (##values? _g164260_) + (if (##values? _g164242_) (##vector-length - _g164260_) + _g164242_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g164261_ 2))) + (##fx= _g164243_ 2))) (error "Context expects 2 values" - _g164261_))) - (let ((_target161263161312_ + _g164243_))) + (let ((_target161245161294_ (let () (declare (not safe)) - (##vector-ref _g164260_ 0))) - (_tl161265161315_ + (##vector-ref _g164242_ 0))) + (_tl161247161297_ (let () (declare (not safe)) - (##vector-ref _g164260_ 1)))) + (##vector-ref _g164242_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl161265161315_)) - (letrec ((_loop161266161318_ - (lambda (_hd161264161322_ + _tl161247161297_)) + (letrec ((_loop161248161300_ + (lambda (_hd161246161304_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _symbol161270161325_ - _method161271161327_) + _symbol161252161307_ + _method161253161309_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd161264161322_)) - (let ((_e161267161330_ + (gx#stx-pair? _hd161246161304_)) + (let ((_e161249161312_ (let () (declare (not safe)) - (gx#syntax-e _hd161264161322_)))) - (let ((_lp-hd161268161334_ + (gx#syntax-e _hd161246161304_)))) + (let ((_lp-hd161250161316_ (let () (declare (not safe)) - (##car _e161267161330_))) - (_lp-tl161269161337_ + (##car _e161249161312_))) + (_lp-tl161251161319_ (let () (declare (not safe)) - (##cdr _e161267161330_)))) + (##cdr _e161249161312_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd161268161334_)) - (let ((_e161276161340_ + (gx#stx-pair? _lp-hd161250161316_)) + (let ((_e161258161322_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd161268161334_)))) - (let ((_hd161275161344_ + (gx#syntax-e _lp-hd161250161316_)))) + (let ((_hd161257161326_ (let () (declare (not safe)) - (##car _e161276161340_))) - (_tl161274161347_ + (##car _e161258161322_))) + (_tl161256161329_ (let () (declare (not safe)) - (##cdr _e161276161340_)))) + (##cdr _e161258161322_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161274161347_)) - (let ((_e161279161350_ + (gx#stx-pair? _tl161256161329_)) + (let ((_e161261161332_ (let () (declare (not safe)) (gx#syntax-e - _tl161274161347_)))) - (let ((_hd161278161354_ + _tl161256161329_)))) + (let ((_hd161260161336_ (let () (declare (not safe)) - (##car _e161279161350_))) - (_tl161277161357_ + (##car _e161261161332_))) + (_tl161259161339_ (let () (declare (not safe)) - (##cdr _e161279161350_)))) + (##cdr _e161261161332_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl161277161357_)) - (_loop161266161318_ - _lp-tl161269161337_ + _tl161259161339_)) + (_loop161248161300_ + _lp-tl161251161319_ (let () (declare (not safe)) - (cons _hd161278161354_ - _symbol161270161325_)) + (cons _hd161260161336_ + _symbol161252161307_)) (let () (declare (not safe)) - (cons _hd161275161344_ - _method161271161327_))) - (_g161252161285_ - _g161253161289_)))) - (_g161252161285_ _g161253161289_)))) - (_g161252161285_ _g161253161289_)))) - (let ((_symbol161272161360_ - (reverse _symbol161270161325_)) - (_method161273161363_ - (reverse _method161271161327_))) - ((lambda (_L161366_ _L161368_ _L161369_) - (let ((__tmp164269 + (cons _hd161257161326_ + _method161253161309_))) + (_g161234161267_ + _g161235161271_)))) + (_g161234161267_ _g161235161271_)))) + (_g161234161267_ _g161235161271_)))) + (let ((_symbol161254161342_ + (reverse _symbol161252161307_)) + (_method161255161345_ + (reverse _method161253161309_))) + ((lambda (_L161348_ _L161350_ _L161351_) + (let ((__tmp164251 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp164262 + (__tmp164244 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L161366_ - _L161368_)) - (let ((__tmp164263 - (lambda (_g161387161391_ - _g161388161394_ - _g161389161396_) - (let ((__tmp164264 - (let ((__tmp164268 + _L161348_ + _L161350_)) + (let ((__tmp164245 + (lambda (_g161369161373_ + _g161370161376_ + _g161371161378_) + (let ((__tmp164246 + (let ((__tmp164250 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp164265 - (let ((__tmp164266 + (__tmp164247 + (let ((__tmp164248 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp164267 + (let ((__tmp164249 (let () (declare (not safe)) - (cons _g161387161391_ '())))) + (cons _g161369161373_ '())))) (declare (not safe)) - (cons _g161388161394_ __tmp164267)))) + (cons _g161370161376_ __tmp164249)))) (declare (not safe)) - (cons _L161369_ __tmp164266)))) + (cons _L161351_ __tmp164248)))) (declare (not safe)) - (cons __tmp164268 __tmp164265)))) + (cons __tmp164250 __tmp164247)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164264 - _g161389161396_))))) + (cons __tmp164246 + _g161371161378_))))) (declare (not safe)) - (foldr2 __tmp164263 + (foldr2 __tmp164245 '() - _L161366_ - _L161368_))))) + _L161348_ + _L161350_))))) (declare (not safe)) - (cons __tmp164269 __tmp164262))) - _symbol161272161360_ - _method161273161363_ - _hd161261161306_)))))) + (cons __tmp164251 __tmp164244))) + _symbol161254161342_ + _method161255161345_ + _hd161243161288_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop161266161318_ - _target161263161312_ + (_loop161248161300_ + _target161245161294_ '() '())) - (_g161252161285_ - _g161253161289_))))) - (_g161252161285_ _g161253161289_)))) - (_g161252161285_ _g161253161289_)))) - (_g161252161285_ _g161253161289_))))) - (_g161251161399_ _$stx161248_)))) + (_g161234161267_ + _g161235161271_))))) + (_g161234161267_ _g161235161271_)))) + (_g161234161267_ _g161235161271_)))) + (_g161234161267_ _g161235161271_))))) + (_g161233161381_ _$stx161230_)))) (define |gxc[:0:]#@alias| - (lambda (_$stx161404_) - (let* ((_g161408161422_ - (lambda (_g161409161418_) + (lambda (_$stx161386_) + (let* ((_g161390161404_ + (lambda (_g161391161400_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161409161418_)))) - (_g161407161463_ - (lambda (_g161409161426_) + _g161391161400_)))) + (_g161389161445_ + (lambda (_g161391161408_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161409161426_)) - (let ((_e161413161429_ + (gx#stx-pair? _g161391161408_)) + (let ((_e161395161411_ (let () (declare (not safe)) - (gx#syntax-e _g161409161426_)))) - (let ((_hd161412161433_ + (gx#syntax-e _g161391161408_)))) + (let ((_hd161394161415_ (let () (declare (not safe)) - (##car _e161413161429_))) - (_tl161411161436_ + (##car _e161395161411_))) + (_tl161393161418_ (let () (declare (not safe)) - (##cdr _e161413161429_)))) + (##cdr _e161395161411_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161411161436_)) - (let ((_e161416161439_ + (gx#stx-pair? _tl161393161418_)) + (let ((_e161398161421_ (let () (declare (not safe)) - (gx#syntax-e _tl161411161436_)))) - (let ((_hd161415161443_ + (gx#syntax-e _tl161393161418_)))) + (let ((_hd161397161425_ (let () (declare (not safe)) - (##car _e161416161439_))) - (_tl161414161446_ + (##car _e161398161421_))) + (_tl161396161428_ (let () (declare (not safe)) - (##cdr _e161416161439_)))) + (##cdr _e161398161421_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161414161446_)) - ((lambda (_L161449_) - (let ((__tmp164274 + (gx#stx-null? _tl161396161428_)) + ((lambda (_L161431_) + (let ((__tmp164256 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!alias))) - (__tmp164270 - (let ((__tmp164271 - (let ((__tmp164273 + (__tmp164252 + (let ((__tmp164253 + (let ((__tmp164255 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164272 + (__tmp164254 (let () (declare (not safe)) - (cons _L161449_ + (cons _L161431_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp164273 __tmp164272)))) + (cons __tmp164255 __tmp164254)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164271 '())))) + (cons __tmp164253 '())))) (declare (not safe)) - (cons __tmp164274 __tmp164270))) - _hd161415161443_) - (_g161408161422_ _g161409161426_)))) - (_g161408161422_ _g161409161426_)))) - (_g161408161422_ _g161409161426_))))) - (_g161407161463_ _$stx161404_)))) + (cons __tmp164256 __tmp164252))) + _hd161397161425_) + (_g161390161404_ _g161391161408_)))) + (_g161390161404_ _g161391161408_)))) + (_g161390161404_ _g161391161408_))))) + (_g161389161445_ _$stx161386_)))) (define |gxc[:0:]#@class| - (lambda (_$stx161467_) - (let* ((_g161471161525_ - (lambda (_g161472161521_) + (lambda (_$stx161449_) + (let* ((_g161453161507_ + (lambda (_g161454161503_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161472161521_)))) - (_g161470161706_ - (lambda (_g161472161529_) + _g161454161503_)))) + (_g161452161688_ + (lambda (_g161454161511_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161472161529_)) - (let ((_e161486161532_ + (gx#stx-pair? _g161454161511_)) + (let ((_e161468161514_ (let () (declare (not safe)) - (gx#syntax-e _g161472161529_)))) - (let ((_hd161485161536_ + (gx#syntax-e _g161454161511_)))) + (let ((_hd161467161518_ (let () (declare (not safe)) - (##car _e161486161532_))) - (_tl161484161539_ + (##car _e161468161514_))) + (_tl161466161521_ (let () (declare (not safe)) - (##cdr _e161486161532_)))) + (##cdr _e161468161514_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161484161539_)) - (let ((_e161489161542_ + (gx#stx-pair? _tl161466161521_)) + (let ((_e161471161524_ (let () (declare (not safe)) - (gx#syntax-e _tl161484161539_)))) - (let ((_hd161488161546_ + (gx#syntax-e _tl161466161521_)))) + (let ((_hd161470161528_ (let () (declare (not safe)) - (##car _e161489161542_))) - (_tl161487161549_ + (##car _e161471161524_))) + (_tl161469161531_ (let () (declare (not safe)) - (##cdr _e161489161542_)))) + (##cdr _e161471161524_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161487161549_)) - (let ((_e161492161552_ + (gx#stx-pair? _tl161469161531_)) + (let ((_e161474161534_ (let () (declare (not safe)) - (gx#syntax-e _tl161487161549_)))) - (let ((_hd161491161556_ + (gx#syntax-e _tl161469161531_)))) + (let ((_hd161473161538_ (let () (declare (not safe)) - (##car _e161492161552_))) - (_tl161490161559_ + (##car _e161474161534_))) + (_tl161472161541_ (let () (declare (not safe)) - (##cdr _e161492161552_)))) + (##cdr _e161474161534_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161490161559_)) - (let ((_e161495161562_ + (gx#stx-pair? _tl161472161541_)) + (let ((_e161477161544_ (let () (declare (not safe)) (gx#syntax-e - _tl161490161559_)))) - (let ((_hd161494161566_ + _tl161472161541_)))) + (let ((_hd161476161548_ (let () (declare (not safe)) - (##car _e161495161562_))) - (_tl161493161569_ + (##car _e161477161544_))) + (_tl161475161551_ (let () (declare (not safe)) - (##cdr _e161495161562_)))) + (##cdr _e161477161544_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl161493161569_)) - (let ((_e161498161572_ + _tl161475161551_)) + (let ((_e161480161554_ (let () (declare (not safe)) (gx#syntax-e - _tl161493161569_)))) - (let ((_hd161497161576_ + _tl161475161551_)))) + (let ((_hd161479161558_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e161498161572_))) - (_tl161496161579_ - (let () (declare (not safe)) (##cdr _e161498161572_)))) + (##car _e161480161554_))) + (_tl161478161561_ + (let () (declare (not safe)) (##cdr _e161480161554_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161496161579_)) - (let ((_e161501161582_ + (gx#stx-pair? _tl161478161561_)) + (let ((_e161483161564_ (let () (declare (not safe)) - (gx#syntax-e _tl161496161579_)))) - (let ((_hd161500161586_ + (gx#syntax-e _tl161478161561_)))) + (let ((_hd161482161568_ (let () (declare (not safe)) - (##car _e161501161582_))) - (_tl161499161589_ + (##car _e161483161564_))) + (_tl161481161571_ (let () (declare (not safe)) - (##cdr _e161501161582_)))) + (##cdr _e161483161564_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161499161589_)) - (let ((_e161504161592_ + (gx#stx-pair? _tl161481161571_)) + (let ((_e161486161574_ (let () (declare (not safe)) - (gx#syntax-e _tl161499161589_)))) - (let ((_hd161503161596_ + (gx#syntax-e _tl161481161571_)))) + (let ((_hd161485161578_ (let () (declare (not safe)) - (##car _e161504161592_))) - (_tl161502161599_ + (##car _e161486161574_))) + (_tl161484161581_ (let () (declare (not safe)) - (##cdr _e161504161592_)))) + (##cdr _e161486161574_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161502161599_)) - (let ((_e161507161602_ + (gx#stx-pair? _tl161484161581_)) + (let ((_e161489161584_ (let () (declare (not safe)) - (gx#syntax-e _tl161502161599_)))) - (let ((_hd161506161606_ + (gx#syntax-e _tl161484161581_)))) + (let ((_hd161488161588_ (let () (declare (not safe)) - (##car _e161507161602_))) - (_tl161505161609_ + (##car _e161489161584_))) + (_tl161487161591_ (let () (declare (not safe)) - (##cdr _e161507161602_)))) + (##cdr _e161489161584_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161505161609_)) - (let ((_e161510161612_ + (gx#stx-pair? _tl161487161591_)) + (let ((_e161492161594_ (let () (declare (not safe)) (gx#syntax-e - _tl161505161609_)))) - (let ((_hd161509161616_ + _tl161487161591_)))) + (let ((_hd161491161598_ (let () (declare (not safe)) - (##car _e161510161612_))) - (_tl161508161619_ + (##car _e161492161594_))) + (_tl161490161601_ (let () (declare (not safe)) - (##cdr _e161510161612_)))) + (##cdr _e161492161594_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl161508161619_)) - (let ((_e161513161622_ + _tl161490161601_)) + (let ((_e161495161604_ (let () (declare (not safe)) (gx#syntax-e - _tl161508161619_)))) - (let ((_hd161512161626_ + _tl161490161601_)))) + (let ((_hd161494161608_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e161513161622_))) - (_tl161511161629_ - (let () (declare (not safe)) (##cdr _e161513161622_)))) + (##car _e161495161604_))) + (_tl161493161611_ + (let () (declare (not safe)) (##cdr _e161495161604_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161511161629_)) - (let ((_e161516161632_ + (gx#stx-pair? _tl161493161611_)) + (let ((_e161498161614_ (let () (declare (not safe)) - (gx#syntax-e _tl161511161629_)))) - (let ((_hd161515161636_ + (gx#syntax-e _tl161493161611_)))) + (let ((_hd161497161618_ (let () (declare (not safe)) - (##car _e161516161632_))) - (_tl161514161639_ + (##car _e161498161614_))) + (_tl161496161621_ (let () (declare (not safe)) - (##cdr _e161516161632_)))) + (##cdr _e161498161614_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161514161639_)) - (let ((_e161519161642_ + (gx#stx-pair? _tl161496161621_)) + (let ((_e161501161624_ (let () (declare (not safe)) - (gx#syntax-e _tl161514161639_)))) - (let ((_hd161518161646_ + (gx#syntax-e _tl161496161621_)))) + (let ((_hd161500161628_ (let () (declare (not safe)) - (##car _e161519161642_))) - (_tl161517161649_ + (##car _e161501161624_))) + (_tl161499161631_ (let () (declare (not safe)) - (##cdr _e161519161642_)))) + (##cdr _e161501161624_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161517161649_)) - ((lambda (_L161652_ - _L161654_ - _L161655_ - _L161656_ - _L161657_ - _L161658_ - _L161659_ - _L161660_ - _L161661_ - _L161662_ - _L161663_) - (let ((__tmp164310 + (gx#stx-null? _tl161499161631_)) + ((lambda (_L161634_ + _L161636_ + _L161637_ + _L161638_ + _L161639_ + _L161640_ + _L161641_ + _L161642_ + _L161643_ + _L161644_ + _L161645_) + (let ((__tmp164292 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!class))) - (__tmp164275 - (let ((__tmp164307 - (let ((__tmp164309 + (__tmp164257 + (let ((__tmp164289 + (let ((__tmp164291 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164308 + (__tmp164290 (let () (declare (not safe)) - (cons _L161663_ + (cons _L161645_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp164309 __tmp164308))) + (cons __tmp164291 __tmp164290))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp164276 - (let ((__tmp164304 - (let ((__tmp164306 + (__tmp164258 + (let ((__tmp164286 + (let ((__tmp164288 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164305 - (let () (declare (not safe)) (cons _L161662_ '())))) + (__tmp164287 + (let () (declare (not safe)) (cons _L161644_ '())))) (declare (not safe)) - (cons __tmp164306 __tmp164305))) - (__tmp164277 - (let ((__tmp164301 - (let ((__tmp164303 + (cons __tmp164288 __tmp164287))) + (__tmp164259 + (let ((__tmp164283 + (let ((__tmp164285 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164302 + (__tmp164284 (let () (declare (not safe)) - (cons _L161661_ '())))) + (cons _L161643_ '())))) (declare (not safe)) - (cons __tmp164303 __tmp164302))) - (__tmp164278 - (let ((__tmp164298 - (let ((__tmp164300 + (cons __tmp164285 __tmp164284))) + (__tmp164260 + (let ((__tmp164280 + (let ((__tmp164282 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164299 + (__tmp164281 (let () (declare (not safe)) - (cons _L161660_ '())))) + (cons _L161642_ '())))) (declare (not safe)) - (cons __tmp164300 __tmp164299))) - (__tmp164279 - (let ((__tmp164295 - (let ((__tmp164297 + (cons __tmp164282 __tmp164281))) + (__tmp164261 + (let ((__tmp164277 + (let ((__tmp164279 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164296 + (__tmp164278 (let () (declare (not safe)) - (cons _L161659_ '())))) + (cons _L161641_ '())))) (declare (not safe)) - (cons __tmp164297 __tmp164296))) - (__tmp164280 - (let ((__tmp164292 - (let ((__tmp164294 + (cons __tmp164279 __tmp164278))) + (__tmp164262 + (let ((__tmp164274 + (let ((__tmp164276 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164293 + (__tmp164275 (let () (declare (not safe)) - (cons _L161658_ + (cons _L161640_ '())))) (declare (not safe)) - (cons __tmp164294 - __tmp164293))) - (__tmp164281 - (let ((__tmp164282 - (let ((__tmp164283 - (let ((__tmp164284 + (cons __tmp164276 + __tmp164275))) + (__tmp164263 + (let ((__tmp164264 + (let ((__tmp164265 + (let ((__tmp164266 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp164289 - (let ((__tmp164291 + (let ((__tmp164271 + (let ((__tmp164273 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164290 + (__tmp164272 (let () (declare (not safe)) - (cons _L161654_ '())))) + (cons _L161636_ '())))) (declare (not safe)) - (cons __tmp164291 __tmp164290))) - (__tmp164285 - (let ((__tmp164286 - (let ((__tmp164288 + (cons __tmp164273 __tmp164272))) + (__tmp164267 + (let ((__tmp164268 + (let ((__tmp164270 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164287 + (__tmp164269 (let () (declare (not safe)) - (cons _L161652_ '())))) + (cons _L161634_ '())))) (declare (not safe)) - (cons __tmp164288 __tmp164287)))) + (cons __tmp164270 __tmp164269)))) (declare (not safe)) - (cons __tmp164286 '())))) + (cons __tmp164268 '())))) (declare (not safe)) - (cons __tmp164289 __tmp164285)))) + (cons __tmp164271 __tmp164267)))) (declare (not safe)) - (cons _L161655_ __tmp164284)))) + (cons _L161637_ __tmp164266)))) (declare (not safe)) - (cons _L161656_ __tmp164283)))) + (cons _L161638_ __tmp164265)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L161657_ - __tmp164282)))) + (cons _L161639_ + __tmp164264)))) (declare (not safe)) - (cons __tmp164292 __tmp164281)))) + (cons __tmp164274 __tmp164263)))) (declare (not safe)) - (cons __tmp164295 __tmp164280)))) + (cons __tmp164277 __tmp164262)))) (declare (not safe)) - (cons __tmp164298 __tmp164279)))) + (cons __tmp164280 __tmp164261)))) (declare (not safe)) - (cons __tmp164301 __tmp164278)))) + (cons __tmp164283 __tmp164260)))) (declare (not safe)) - (cons __tmp164304 __tmp164277)))) + (cons __tmp164286 __tmp164259)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164307 - __tmp164276)))) + (cons __tmp164289 + __tmp164258)))) (declare (not safe)) - (cons __tmp164310 __tmp164275))) - _hd161518161646_ - _hd161515161636_ - _hd161512161626_ - _hd161509161616_ - _hd161506161606_ - _hd161503161596_ - _hd161500161586_ - _hd161497161576_ - _hd161494161566_ - _hd161491161556_ - _hd161488161546_) - (_g161471161525_ _g161472161529_)))) - (_g161471161525_ _g161472161529_)))) - (_g161471161525_ _g161472161529_)))) + (cons __tmp164292 __tmp164257))) + _hd161500161628_ + _hd161497161618_ + _hd161494161608_ + _hd161491161598_ + _hd161488161588_ + _hd161485161578_ + _hd161482161568_ + _hd161479161558_ + _hd161476161548_ + _hd161473161538_ + _hd161470161528_) + (_g161453161507_ _g161454161511_)))) + (_g161453161507_ _g161454161511_)))) + (_g161453161507_ _g161454161511_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g161471161525_ - _g161472161529_)))) - (_g161471161525_ - _g161472161529_)))) - (_g161471161525_ _g161472161529_)))) - (_g161471161525_ _g161472161529_)))) - (_g161471161525_ _g161472161529_)))) + (_g161453161507_ + _g161454161511_)))) + (_g161453161507_ + _g161454161511_)))) + (_g161453161507_ _g161454161511_)))) + (_g161453161507_ _g161454161511_)))) + (_g161453161507_ _g161454161511_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g161471161525_ - _g161472161529_)))) - (_g161471161525_ - _g161472161529_)))) - (_g161471161525_ _g161472161529_)))) - (_g161471161525_ _g161472161529_)))) - (_g161471161525_ _g161472161529_))))) - (_g161470161706_ _$stx161467_)))) + (_g161453161507_ + _g161454161511_)))) + (_g161453161507_ + _g161454161511_)))) + (_g161453161507_ _g161454161511_)))) + (_g161453161507_ _g161454161511_)))) + (_g161453161507_ _g161454161511_))))) + (_g161452161688_ _$stx161449_)))) (define |gxc[:0:]#@predicate| - (lambda (_$stx161710_) - (let* ((_g161714161728_ - (lambda (_g161715161724_) + (lambda (_$stx161692_) + (let* ((_g161696161710_ + (lambda (_g161697161706_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161715161724_)))) - (_g161713161769_ - (lambda (_g161715161732_) + _g161697161706_)))) + (_g161695161751_ + (lambda (_g161697161714_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161715161732_)) - (let ((_e161719161735_ + (gx#stx-pair? _g161697161714_)) + (let ((_e161701161717_ (let () (declare (not safe)) - (gx#syntax-e _g161715161732_)))) - (let ((_hd161718161739_ + (gx#syntax-e _g161697161714_)))) + (let ((_hd161700161721_ (let () (declare (not safe)) - (##car _e161719161735_))) - (_tl161717161742_ + (##car _e161701161717_))) + (_tl161699161724_ (let () (declare (not safe)) - (##cdr _e161719161735_)))) + (##cdr _e161701161717_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161717161742_)) - (let ((_e161722161745_ + (gx#stx-pair? _tl161699161724_)) + (let ((_e161704161727_ (let () (declare (not safe)) - (gx#syntax-e _tl161717161742_)))) - (let ((_hd161721161749_ + (gx#syntax-e _tl161699161724_)))) + (let ((_hd161703161731_ (let () (declare (not safe)) - (##car _e161722161745_))) - (_tl161720161752_ + (##car _e161704161727_))) + (_tl161702161734_ (let () (declare (not safe)) - (##cdr _e161722161745_)))) + (##cdr _e161704161727_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161720161752_)) - ((lambda (_L161755_) - (let ((__tmp164315 + (gx#stx-null? _tl161702161734_)) + ((lambda (_L161737_) + (let ((__tmp164297 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!predicate))) - (__tmp164311 - (let ((__tmp164312 - (let ((__tmp164314 + (__tmp164293 + (let ((__tmp164294 + (let ((__tmp164296 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164313 + (__tmp164295 (let () (declare (not safe)) - (cons _L161755_ + (cons _L161737_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp164314 __tmp164313)))) + (cons __tmp164296 __tmp164295)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164312 '())))) + (cons __tmp164294 '())))) (declare (not safe)) - (cons __tmp164315 __tmp164311))) - _hd161721161749_) - (_g161714161728_ _g161715161732_)))) - (_g161714161728_ _g161715161732_)))) - (_g161714161728_ _g161715161732_))))) - (_g161713161769_ _$stx161710_)))) + (cons __tmp164297 __tmp164293))) + _hd161703161731_) + (_g161696161710_ _g161697161714_)))) + (_g161696161710_ _g161697161714_)))) + (_g161696161710_ _g161697161714_))))) + (_g161695161751_ _$stx161692_)))) (define |gxc[:0:]#@constructor| - (lambda (_$stx161773_) - (let* ((_g161777161791_ - (lambda (_g161778161787_) + (lambda (_$stx161755_) + (let* ((_g161759161773_ + (lambda (_g161760161769_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161778161787_)))) - (_g161776161832_ - (lambda (_g161778161795_) + _g161760161769_)))) + (_g161758161814_ + (lambda (_g161760161777_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161778161795_)) - (let ((_e161782161798_ + (gx#stx-pair? _g161760161777_)) + (let ((_e161764161780_ (let () (declare (not safe)) - (gx#syntax-e _g161778161795_)))) - (let ((_hd161781161802_ + (gx#syntax-e _g161760161777_)))) + (let ((_hd161763161784_ (let () (declare (not safe)) - (##car _e161782161798_))) - (_tl161780161805_ + (##car _e161764161780_))) + (_tl161762161787_ (let () (declare (not safe)) - (##cdr _e161782161798_)))) + (##cdr _e161764161780_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161780161805_)) - (let ((_e161785161808_ + (gx#stx-pair? _tl161762161787_)) + (let ((_e161767161790_ (let () (declare (not safe)) - (gx#syntax-e _tl161780161805_)))) - (let ((_hd161784161812_ + (gx#syntax-e _tl161762161787_)))) + (let ((_hd161766161794_ (let () (declare (not safe)) - (##car _e161785161808_))) - (_tl161783161815_ + (##car _e161767161790_))) + (_tl161765161797_ (let () (declare (not safe)) - (##cdr _e161785161808_)))) + (##cdr _e161767161790_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl161783161815_)) - ((lambda (_L161818_) - (let ((__tmp164320 + (gx#stx-null? _tl161765161797_)) + ((lambda (_L161800_) + (let ((__tmp164302 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!constructor))) - (__tmp164316 - (let ((__tmp164317 - (let ((__tmp164319 + (__tmp164298 + (let ((__tmp164299 + (let ((__tmp164301 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164318 + (__tmp164300 (let () (declare (not safe)) - (cons _L161818_ + (cons _L161800_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp164319 __tmp164318)))) + (cons __tmp164301 __tmp164300)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164317 '())))) + (cons __tmp164299 '())))) (declare (not safe)) - (cons __tmp164320 __tmp164316))) - _hd161784161812_) - (_g161777161791_ _g161778161795_)))) - (_g161777161791_ _g161778161795_)))) - (_g161777161791_ _g161778161795_))))) - (_g161776161832_ _$stx161773_)))) + (cons __tmp164302 __tmp164298))) + _hd161766161794_) + (_g161759161773_ _g161760161777_)))) + (_g161759161773_ _g161760161777_)))) + (_g161759161773_ _g161760161777_))))) + (_g161758161814_ _$stx161755_)))) (define |gxc[:0:]#@accessor| - (lambda (_$stx161836_) - (let* ((_g161840161862_ - (lambda (_g161841161858_) + (lambda (_$stx161818_) + (let* ((_g161822161844_ + (lambda (_g161823161840_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161841161858_)))) - (_g161839161931_ - (lambda (_g161841161866_) + _g161823161840_)))) + (_g161821161913_ + (lambda (_g161823161848_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161841161866_)) - (let ((_e161847161869_ + (gx#stx-pair? _g161823161848_)) + (let ((_e161829161851_ (let () (declare (not safe)) - (gx#syntax-e _g161841161866_)))) - (let ((_hd161846161873_ + (gx#syntax-e _g161823161848_)))) + (let ((_hd161828161855_ (let () (declare (not safe)) - (##car _e161847161869_))) - (_tl161845161876_ + (##car _e161829161851_))) + (_tl161827161858_ (let () (declare (not safe)) - (##cdr _e161847161869_)))) + (##cdr _e161829161851_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161845161876_)) - (let ((_e161850161879_ + (gx#stx-pair? _tl161827161858_)) + (let ((_e161832161861_ (let () (declare (not safe)) - (gx#syntax-e _tl161845161876_)))) - (let ((_hd161849161883_ + (gx#syntax-e _tl161827161858_)))) + (let ((_hd161831161865_ (let () (declare (not safe)) - (##car _e161850161879_))) - (_tl161848161886_ + (##car _e161832161861_))) + (_tl161830161868_ (let () (declare (not safe)) - (##cdr _e161850161879_)))) + (##cdr _e161832161861_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161848161886_)) - (let ((_e161853161889_ + (gx#stx-pair? _tl161830161868_)) + (let ((_e161835161871_ (let () (declare (not safe)) - (gx#syntax-e _tl161848161886_)))) - (let ((_hd161852161893_ + (gx#syntax-e _tl161830161868_)))) + (let ((_hd161834161875_ (let () (declare (not safe)) - (##car _e161853161889_))) - (_tl161851161896_ + (##car _e161835161871_))) + (_tl161833161878_ (let () (declare (not safe)) - (##cdr _e161853161889_)))) + (##cdr _e161835161871_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161851161896_)) - (let ((_e161856161899_ + (gx#stx-pair? _tl161833161878_)) + (let ((_e161838161881_ (let () (declare (not safe)) (gx#syntax-e - _tl161851161896_)))) - (let ((_hd161855161903_ + _tl161833161878_)))) + (let ((_hd161837161885_ (let () (declare (not safe)) - (##car _e161856161899_))) - (_tl161854161906_ + (##car _e161838161881_))) + (_tl161836161888_ (let () (declare (not safe)) - (##cdr _e161856161899_)))) + (##cdr _e161838161881_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl161854161906_)) - ((lambda (_L161909_ - _L161911_ - _L161912_) - (let ((__tmp164330 + _tl161836161888_)) + ((lambda (_L161891_ + _L161893_ + _L161894_) + (let ((__tmp164312 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!accessor))) - (__tmp164321 - (let ((__tmp164327 - (let ((__tmp164329 + (__tmp164303 + (let ((__tmp164309 + (let ((__tmp164311 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164328 + (__tmp164310 (let () (declare (not safe)) - (cons _L161912_ '())))) + (cons _L161894_ '())))) (declare (not safe)) - (cons __tmp164329 __tmp164328))) - (__tmp164322 - (let ((__tmp164324 - (let ((__tmp164326 + (cons __tmp164311 __tmp164310))) + (__tmp164304 + (let ((__tmp164306 + (let ((__tmp164308 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164325 + (__tmp164307 (let () (declare (not safe)) - (cons _L161911_ '())))) + (cons _L161893_ '())))) (declare (not safe)) - (cons __tmp164326 __tmp164325))) - (__tmp164323 + (cons __tmp164308 __tmp164307))) + (__tmp164305 (let () (declare (not safe)) - (cons _L161909_ '())))) + (cons _L161891_ '())))) (declare (not safe)) - (cons __tmp164324 __tmp164323)))) + (cons __tmp164306 __tmp164305)))) (declare (not safe)) - (cons __tmp164327 __tmp164322)))) + (cons __tmp164309 __tmp164304)))) (declare (not safe)) - (cons __tmp164330 __tmp164321))) + (cons __tmp164312 __tmp164303))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd161855161903_ - _hd161852161893_ - _hd161849161883_) - (_g161840161862_ - _g161841161866_)))) - (_g161840161862_ - _g161841161866_)))) - (_g161840161862_ _g161841161866_)))) - (_g161840161862_ _g161841161866_)))) - (_g161840161862_ _g161841161866_))))) - (_g161839161931_ _$stx161836_)))) + _hd161837161885_ + _hd161834161875_ + _hd161831161865_) + (_g161822161844_ + _g161823161848_)))) + (_g161822161844_ + _g161823161848_)))) + (_g161822161844_ _g161823161848_)))) + (_g161822161844_ _g161823161848_)))) + (_g161822161844_ _g161823161848_))))) + (_g161821161913_ _$stx161818_)))) (define |gxc[:0:]#@mutator| - (lambda (_$stx161935_) - (let* ((_g161939161961_ - (lambda (_g161940161957_) + (lambda (_$stx161917_) + (let* ((_g161921161943_ + (lambda (_g161922161939_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g161940161957_)))) - (_g161938162030_ - (lambda (_g161940161965_) + _g161922161939_)))) + (_g161920162012_ + (lambda (_g161922161947_) (if (let () (declare (not safe)) - (gx#stx-pair? _g161940161965_)) - (let ((_e161946161968_ + (gx#stx-pair? _g161922161947_)) + (let ((_e161928161950_ (let () (declare (not safe)) - (gx#syntax-e _g161940161965_)))) - (let ((_hd161945161972_ + (gx#syntax-e _g161922161947_)))) + (let ((_hd161927161954_ (let () (declare (not safe)) - (##car _e161946161968_))) - (_tl161944161975_ + (##car _e161928161950_))) + (_tl161926161957_ (let () (declare (not safe)) - (##cdr _e161946161968_)))) + (##cdr _e161928161950_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161944161975_)) - (let ((_e161949161978_ + (gx#stx-pair? _tl161926161957_)) + (let ((_e161931161960_ (let () (declare (not safe)) - (gx#syntax-e _tl161944161975_)))) - (let ((_hd161948161982_ + (gx#syntax-e _tl161926161957_)))) + (let ((_hd161930161964_ (let () (declare (not safe)) - (##car _e161949161978_))) - (_tl161947161985_ + (##car _e161931161960_))) + (_tl161929161967_ (let () (declare (not safe)) - (##cdr _e161949161978_)))) + (##cdr _e161931161960_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161947161985_)) - (let ((_e161952161988_ + (gx#stx-pair? _tl161929161967_)) + (let ((_e161934161970_ (let () (declare (not safe)) - (gx#syntax-e _tl161947161985_)))) - (let ((_hd161951161992_ + (gx#syntax-e _tl161929161967_)))) + (let ((_hd161933161974_ (let () (declare (not safe)) - (##car _e161952161988_))) - (_tl161950161995_ + (##car _e161934161970_))) + (_tl161932161977_ (let () (declare (not safe)) - (##cdr _e161952161988_)))) + (##cdr _e161934161970_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl161950161995_)) - (let ((_e161955161998_ + (gx#stx-pair? _tl161932161977_)) + (let ((_e161937161980_ (let () (declare (not safe)) (gx#syntax-e - _tl161950161995_)))) - (let ((_hd161954162002_ + _tl161932161977_)))) + (let ((_hd161936161984_ (let () (declare (not safe)) - (##car _e161955161998_))) - (_tl161953162005_ + (##car _e161937161980_))) + (_tl161935161987_ (let () (declare (not safe)) - (##cdr _e161955161998_)))) + (##cdr _e161937161980_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl161953162005_)) - ((lambda (_L162008_ - _L162010_ - _L162011_) - (let ((__tmp164340 + _tl161935161987_)) + ((lambda (_L161990_ + _L161992_ + _L161993_) + (let ((__tmp164322 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!mutator))) - (__tmp164331 - (let ((__tmp164337 - (let ((__tmp164339 + (__tmp164313 + (let ((__tmp164319 + (let ((__tmp164321 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164338 + (__tmp164320 (let () (declare (not safe)) - (cons _L162011_ '())))) + (cons _L161993_ '())))) (declare (not safe)) - (cons __tmp164339 __tmp164338))) - (__tmp164332 - (let ((__tmp164334 - (let ((__tmp164336 + (cons __tmp164321 __tmp164320))) + (__tmp164314 + (let ((__tmp164316 + (let ((__tmp164318 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164335 + (__tmp164317 (let () (declare (not safe)) - (cons _L162010_ '())))) + (cons _L161992_ '())))) (declare (not safe)) - (cons __tmp164336 __tmp164335))) - (__tmp164333 + (cons __tmp164318 __tmp164317))) + (__tmp164315 (let () (declare (not safe)) - (cons _L162008_ '())))) + (cons _L161990_ '())))) (declare (not safe)) - (cons __tmp164334 __tmp164333)))) + (cons __tmp164316 __tmp164315)))) (declare (not safe)) - (cons __tmp164337 __tmp164332)))) + (cons __tmp164319 __tmp164314)))) (declare (not safe)) - (cons __tmp164340 __tmp164331))) + (cons __tmp164322 __tmp164313))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd161954162002_ - _hd161951161992_ - _hd161948161982_) - (_g161939161961_ - _g161940161965_)))) - (_g161939161961_ - _g161940161965_)))) - (_g161939161961_ _g161940161965_)))) - (_g161939161961_ _g161940161965_)))) - (_g161939161961_ _g161940161965_))))) - (_g161938162030_ _$stx161935_)))) + _hd161936161984_ + _hd161933161974_ + _hd161930161964_) + (_g161921161943_ + _g161922161947_)))) + (_g161921161943_ + _g161922161947_)))) + (_g161921161943_ _g161922161947_)))) + (_g161921161943_ _g161922161947_)))) + (_g161921161943_ _g161922161947_))))) + (_g161920162012_ _$stx161917_)))) (define |gxc[:0:]#@lambda| - (lambda (_$stx162034_) - (let* ((___stx163849163850_ _$stx162034_) - (_g162042162110_ + (lambda (_$stx162016_) + (let* ((___stx163831163832_ _$stx162016_) + (_g162024162092_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx163849163850_))))) - (let ((___kont163852163853_ - (lambda (_L162388_ _L162390_) - (let ((__tmp164361 + ___stx163831163832_))))) + (let ((___kont163834163835_ + (lambda (_L162370_ _L162372_) + (let ((__tmp164343 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp164341 - (let ((__tmp164357 - (let ((__tmp164360 + (__tmp164323 + (let ((__tmp164339 + (let ((__tmp164342 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164358 - (let ((__tmp164359 + (__tmp164340 + (let ((__tmp164341 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp164359 '())))) + (cons __tmp164341 '())))) (declare (not safe)) - (cons __tmp164360 __tmp164358))) - (__tmp164342 - (let ((__tmp164354 - (let ((__tmp164356 + (cons __tmp164342 __tmp164340))) + (__tmp164324 + (let ((__tmp164336 + (let ((__tmp164338 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164355 + (__tmp164337 (let () (declare (not safe)) - (cons _L162390_ '())))) + (cons _L162372_ '())))) (declare (not safe)) - (cons __tmp164356 __tmp164355))) - (__tmp164343 - (let ((__tmp164344 - (let ((__tmp164345 - (let ((__tmp164346 - (let ((__tmp164353 + (cons __tmp164338 __tmp164337))) + (__tmp164325 + (let ((__tmp164326 + (let ((__tmp164327 + (let ((__tmp164328 + (let ((__tmp164335 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164347 - (let ((__tmp164348 - (let ((__tmp164352 + (__tmp164329 + (let ((__tmp164330 + (let ((__tmp164334 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp164349 - (let ((__tmp164350 - (let ((__tmp164351 + (__tmp164331 + (let ((__tmp164332 + (let ((__tmp164333 (let () (declare (not safe)) - (cons _L162388_ '())))) + (cons _L162370_ '())))) (declare (not safe)) - (cons 'inline: __tmp164351)))) + (cons 'inline: __tmp164333)))) (declare (not safe)) - (cons _L162390_ __tmp164350)))) + (cons _L162372_ __tmp164332)))) (declare (not safe)) - (cons __tmp164352 __tmp164349)))) + (cons __tmp164334 __tmp164331)))) (declare (not safe)) - (cons __tmp164348 '())))) + (cons __tmp164330 '())))) (declare (not safe)) - (cons __tmp164353 __tmp164347)))) + (cons __tmp164335 __tmp164329)))) (declare (not safe)) - (cons __tmp164346 '())))) + (cons __tmp164328 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L162388_ __tmp164345)))) + (cons _L162370_ __tmp164327)))) (declare (not safe)) - (cons '#f __tmp164344)))) + (cons '#f __tmp164326)))) (declare (not safe)) - (cons __tmp164354 __tmp164343)))) + (cons __tmp164336 __tmp164325)))) (declare (not safe)) - (cons __tmp164357 __tmp164342)))) + (cons __tmp164339 __tmp164324)))) (declare (not safe)) - (cons __tmp164361 __tmp164341)))) - (___kont163854163855_ - (lambda (_L162319_ _L162321_) - (let ((__tmp164362 - (let ((__tmp164363 - (let ((__tmp164364 + (cons __tmp164343 __tmp164323)))) + (___kont163836163837_ + (lambda (_L162301_ _L162303_) + (let ((__tmp164344 + (let ((__tmp164345 + (let ((__tmp164346 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L162319_ __tmp164364)))) + (cons _L162301_ __tmp164346)))) (declare (not safe)) - (cons 'primitive: __tmp164363)))) + (cons 'primitive: __tmp164345)))) (declare (not safe)) - (cons _L162321_ __tmp164362)))) - (___kont163856163857_ - (lambda (_L162258_ _L162260_) - (let ((__tmp164378 + (cons _L162303_ __tmp164344)))) + (___kont163838163839_ + (lambda (_L162240_ _L162242_) + (let ((__tmp164360 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-lambda))) - (__tmp164365 - (let ((__tmp164374 - (let ((__tmp164377 + (__tmp164347 + (let ((__tmp164356 + (let ((__tmp164359 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164375 - (let ((__tmp164376 + (__tmp164357 + (let ((__tmp164358 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp164376 '())))) + (cons __tmp164358 '())))) (declare (not safe)) - (cons __tmp164377 __tmp164375))) - (__tmp164366 - (let ((__tmp164371 - (let ((__tmp164373 + (cons __tmp164359 __tmp164357))) + (__tmp164348 + (let ((__tmp164353 + (let ((__tmp164355 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164372 + (__tmp164354 (let () (declare (not safe)) - (cons _L162260_ '())))) + (cons _L162242_ '())))) (declare (not safe)) - (cons __tmp164373 __tmp164372))) - (__tmp164367 - (let ((__tmp164368 - (let ((__tmp164370 + (cons __tmp164355 __tmp164354))) + (__tmp164349 + (let ((__tmp164350 + (let ((__tmp164352 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164369 + (__tmp164351 (let () (declare (not safe)) - (cons _L162258_ '())))) + (cons _L162240_ '())))) (declare (not safe)) - (cons __tmp164370 - __tmp164369)))) + (cons __tmp164352 + __tmp164351)))) (declare (not safe)) - (cons __tmp164368 '())))) + (cons __tmp164350 '())))) (declare (not safe)) - (cons __tmp164371 __tmp164367)))) + (cons __tmp164353 __tmp164349)))) (declare (not safe)) - (cons __tmp164374 __tmp164366)))) + (cons __tmp164356 __tmp164348)))) (declare (not safe)) - (cons __tmp164378 __tmp164365)))) - (___kont163858163859_ - (lambda (_L162190_ _L162192_) - (let ((__tmp164392 + (cons __tmp164360 __tmp164347)))) + (___kont163840163841_ + (lambda (_L162172_ _L162174_) + (let ((__tmp164374 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp164379 - (let ((__tmp164388 - (let ((__tmp164391 + (__tmp164361 + (let ((__tmp164370 + (let ((__tmp164373 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164389 - (let ((__tmp164390 + (__tmp164371 + (let ((__tmp164372 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp164390 '())))) + (cons __tmp164372 '())))) (declare (not safe)) - (cons __tmp164391 __tmp164389))) - (__tmp164380 - (let ((__tmp164385 - (let ((__tmp164387 + (cons __tmp164373 __tmp164371))) + (__tmp164362 + (let ((__tmp164367 + (let ((__tmp164369 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164386 + (__tmp164368 (let () (declare (not safe)) - (cons _L162192_ '())))) + (cons _L162174_ '())))) (declare (not safe)) - (cons __tmp164387 __tmp164386))) - (__tmp164381 - (let ((__tmp164382 - (let ((__tmp164384 + (cons __tmp164369 __tmp164368))) + (__tmp164363 + (let ((__tmp164364 + (let ((__tmp164366 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164383 + (__tmp164365 (let () (declare (not safe)) - (cons _L162190_ '())))) + (cons _L162172_ '())))) (declare (not safe)) - (cons __tmp164384 - __tmp164383)))) + (cons __tmp164366 + __tmp164365)))) (declare (not safe)) - (cons __tmp164382 '())))) + (cons __tmp164364 '())))) (declare (not safe)) - (cons __tmp164385 __tmp164381)))) + (cons __tmp164367 __tmp164363)))) (declare (not safe)) - (cons __tmp164388 __tmp164380)))) + (cons __tmp164370 __tmp164362)))) (declare (not safe)) - (cons __tmp164392 __tmp164379)))) - (___kont163860163861_ - (lambda (_L162137_ _L162139_) - (let ((__tmp164393 - (let ((__tmp164394 + (cons __tmp164374 __tmp164361)))) + (___kont163842163843_ + (lambda (_L162119_ _L162121_) + (let ((__tmp164375 + (let ((__tmp164376 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L162137_ __tmp164394)))) + (cons _L162119_ __tmp164376)))) (declare (not safe)) - (cons _L162139_ __tmp164393))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx163849163850_)) - (let ((_e162048162344_ + (cons _L162121_ __tmp164375))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx163831163832_)) + (let ((_e162030162326_ (let () (declare (not safe)) - (gx#syntax-e ___stx163849163850_)))) - (let ((_tl162046162351_ - (let () (declare (not safe)) (##cdr _e162048162344_))) - (_hd162047162348_ - (let () (declare (not safe)) (##car _e162048162344_)))) + (gx#syntax-e ___stx163831163832_)))) + (let ((_tl162028162333_ + (let () (declare (not safe)) (##cdr _e162030162326_))) + (_hd162029162330_ + (let () (declare (not safe)) (##car _e162030162326_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162046162351_)) - (let ((_e162051162354_ + (gx#stx-pair? _tl162028162333_)) + (let ((_e162033162336_ (let () (declare (not safe)) - (gx#syntax-e _tl162046162351_)))) - (let ((_tl162049162361_ + (gx#syntax-e _tl162028162333_)))) + (let ((_tl162031162343_ (let () (declare (not safe)) - (##cdr _e162051162354_))) - (_hd162050162358_ + (##cdr _e162033162336_))) + (_hd162032162340_ (let () (declare (not safe)) - (##car _e162051162354_)))) + (##car _e162033162336_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162049162361_)) - (let ((_e162054162364_ + (gx#stx-pair? _tl162031162343_)) + (let ((_e162036162346_ (let () (declare (not safe)) - (gx#syntax-e _tl162049162361_)))) - (let ((_tl162052162371_ + (gx#syntax-e _tl162031162343_)))) + (let ((_tl162034162353_ (let () (declare (not safe)) - (##cdr _e162054162364_))) - (_hd162053162368_ + (##cdr _e162036162346_))) + (_hd162035162350_ (let () (declare (not safe)) - (##car _e162054162364_)))) + (##car _e162036162346_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd162053162368_)) - (let ((_e162055162374_ + (gx#stx-datum? _hd162035162350_)) + (let ((_e162037162356_ (let () (declare (not safe)) - (gx#stx-e _hd162053162368_)))) + (gx#stx-e _hd162035162350_)))) (if (let () (declare (not safe)) - (equal? _e162055162374_ + (equal? _e162037162356_ 'inline:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl162052162371_)) - (let ((_e162058162378_ + _tl162034162353_)) + (let ((_e162040162360_ (let () (declare (not safe)) (gx#syntax-e - _tl162052162371_)))) - (let ((_tl162056162385_ + _tl162034162353_)))) + (let ((_tl162038162367_ (let () (declare (not safe)) - (##cdr _e162058162378_))) - (_hd162057162382_ + (##cdr _e162040162360_))) + (_hd162039162364_ (let () (declare (not safe)) - (##car _e162058162378_)))) + (##car _e162040162360_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl162056162385_)) - (___kont163852163853_ - _hd162057162382_ - _hd162050162358_) + _tl162038162367_)) + (___kont163834163835_ + _hd162039162364_ + _hd162032162340_) (if (let () (declare (not safe)) (gx#stx-datum? - _hd162050162358_)) - (let ((_e162067162305_ + _hd162032162340_)) + (let ((_e162049162287_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd162050162358_)))) + (gx#stx-e _hd162032162340_)))) (declare (not safe)) - (_g162042162110_)) - (let () (declare (not safe)) (_g162042162110_)))))) + (_g162024162092_)) + (let () (declare (not safe)) (_g162024162092_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _hd162050162358_)) - (let ((_e162067162305_ + _hd162032162340_)) + (let ((_e162049162287_ (let () (declare (not safe)) (gx#stx-e - _hd162050162358_)))) + _hd162032162340_)))) (if (let () (declare (not safe)) - (equal? _e162067162305_ + (equal? _e162049162287_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'primitive:)) (if (let () (declare (not safe)) - (gx#stx-null? _tl162052162371_)) - (___kont163854163855_ _hd162053162368_ _hd162047162348_) - (let () (declare (not safe)) (_g162042162110_))) + (gx#stx-null? _tl162034162353_)) + (___kont163836163837_ _hd162035162350_ _hd162029162330_) + (let () (declare (not safe)) (_g162024162092_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162052162371_)) - (___kont163858163859_ _hd162053162368_ _hd162050162358_) - (let () (declare (not safe)) (_g162042162110_))))) + (gx#stx-null? _tl162034162353_)) + (___kont163840163841_ _hd162035162350_ _hd162032162340_) + (let () (declare (not safe)) (_g162024162092_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl162052162371_)) - (___kont163858163859_ - _hd162053162368_ - _hd162050162358_) + _tl162034162353_)) + (___kont163840163841_ + _hd162035162350_ + _hd162032162340_) (let () (declare (not safe)) - (_g162042162110_))))) + (_g162024162092_))))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd162050162358_)) - (let ((_e162067162305_ + _hd162032162340_)) + (let ((_e162049162287_ (let () (declare (not safe)) (gx#stx-e - _hd162050162358_)))) + _hd162032162340_)))) (if (let () (declare (not safe)) - (equal? _e162067162305_ + (equal? _e162049162287_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl162052162371_)) - (___kont163854163855_ - _hd162053162368_ - _hd162047162348_) + _tl162034162353_)) + (___kont163836163837_ + _hd162035162350_ + _hd162029162330_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl162052162371_)) - (let ((_e162085162248_ + (gx#stx-pair? _tl162034162353_)) + (let ((_e162067162230_ (let () (declare (not safe)) - (gx#syntax-e _tl162052162371_)))) - (let ((_tl162083162255_ + (gx#syntax-e _tl162034162353_)))) + (let ((_tl162065162237_ (let () (declare (not safe)) - (##cdr _e162085162248_))) - (_hd162084162252_ + (##cdr _e162067162230_))) + (_hd162066162234_ (let () (declare (not safe)) - (##car _e162085162248_)))) + (##car _e162067162230_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162083162255_)) - (___kont163856163857_ - _hd162084162252_ - _hd162053162368_) + (gx#stx-null? _tl162065162237_)) + (___kont163838163839_ + _hd162066162234_ + _hd162035162350_) (let () (declare (not safe)) - (_g162042162110_))))) - (let () (declare (not safe)) (_g162042162110_)))) - (if (let () (declare (not safe)) (gx#stx-null? _tl162052162371_)) - (___kont163858163859_ _hd162053162368_ _hd162050162358_) - (let () (declare (not safe)) (_g162042162110_))))) + (_g162024162092_))))) + (let () (declare (not safe)) (_g162024162092_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl162034162353_)) + (___kont163840163841_ _hd162035162350_ _hd162032162340_) + (let () (declare (not safe)) (_g162024162092_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl162052162371_)) - (___kont163858163859_ - _hd162053162368_ - _hd162050162358_) + _tl162034162353_)) + (___kont163840163841_ + _hd162035162350_ + _hd162032162340_) (let () (declare (not safe)) - (_g162042162110_)))))) + (_g162024162092_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd162050162358_)) - (let ((_e162067162305_ + (gx#stx-datum? _hd162032162340_)) + (let ((_e162049162287_ (let () (declare (not safe)) (gx#stx-e - _hd162050162358_)))) + _hd162032162340_)))) (if (let () (declare (not safe)) - (equal? _e162067162305_ + (equal? _e162049162287_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl162052162371_)) - (___kont163854163855_ - _hd162053162368_ - _hd162047162348_) + _tl162034162353_)) + (___kont163836163837_ + _hd162035162350_ + _hd162029162330_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl162052162371_)) - (let ((_e162085162248_ + _tl162034162353_)) + (let ((_e162067162230_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl162052162371_)))) - (let ((_tl162083162255_ - (let () (declare (not safe)) (##cdr _e162085162248_))) - (_hd162084162252_ + (gx#syntax-e _tl162034162353_)))) + (let ((_tl162065162237_ + (let () (declare (not safe)) (##cdr _e162067162230_))) + (_hd162066162234_ (let () (declare (not safe)) - (##car _e162085162248_)))) + (##car _e162067162230_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162083162255_)) - (___kont163856163857_ - _hd162084162252_ - _hd162053162368_) - (let () (declare (not safe)) (_g162042162110_))))) - (let () (declare (not safe)) (_g162042162110_)))) + (gx#stx-null? _tl162065162237_)) + (___kont163838163839_ + _hd162066162234_ + _hd162035162350_) + (let () (declare (not safe)) (_g162024162092_))))) + (let () (declare (not safe)) (_g162024162092_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl162052162371_)) - (___kont163858163859_ - _hd162053162368_ - _hd162050162358_) + _tl162034162353_)) + (___kont163840163841_ + _hd162035162350_ + _hd162032162340_) (let () (declare (not safe)) - (_g162042162110_))))) + (_g162024162092_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl162052162371_)) - (___kont163858163859_ - _hd162053162368_ - _hd162050162358_) + _tl162034162353_)) + (___kont163840163841_ + _hd162035162350_ + _hd162032162340_) (let () (declare (not safe)) - (_g162042162110_))))))) + (_g162024162092_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd162050162358_)) - (let ((_e162067162305_ + (gx#stx-datum? _hd162032162340_)) + (let ((_e162049162287_ (let () (declare (not safe)) - (gx#stx-e _hd162050162358_)))) + (gx#stx-e _hd162032162340_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162049162361_)) - (___kont163860163861_ - _hd162050162358_ - _hd162047162348_) + (gx#stx-null? _tl162031162343_)) + (___kont163842163843_ + _hd162032162340_ + _hd162029162330_) (let () (declare (not safe)) - (_g162042162110_)))) + (_g162024162092_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162049162361_)) - (___kont163860163861_ - _hd162050162358_ - _hd162047162348_) + (gx#stx-null? _tl162031162343_)) + (___kont163842163843_ + _hd162032162340_ + _hd162029162330_) (let () (declare (not safe)) - (_g162042162110_))))))) - (let () (declare (not safe)) (_g162042162110_))))) - (let () (declare (not safe)) (_g162042162110_))))))) + (_g162024162092_))))))) + (let () (declare (not safe)) (_g162024162092_))))) + (let () (declare (not safe)) (_g162024162092_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_$stx162412_) - (let* ((___stx163989163990_ _$stx162412_) - (_g162417162472_ + (lambda (_$stx162394_) + (let* ((___stx163971163972_ _$stx162394_) + (_g162399162454_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx163989163990_))))) - (let ((___kont163992163993_ - (lambda (_L162657_ _L162659_) - (let ((__tmp164410 + ___stx163971163972_))))) + (let ((___kont163974163975_ + (lambda (_L162639_ _L162641_) + (let ((__tmp164392 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-case-lambda))) - (__tmp164395 - (let ((__tmp164406 - (let ((__tmp164409 + (__tmp164377 + (let ((__tmp164388 + (let ((__tmp164391 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164407 - (let ((__tmp164408 + (__tmp164389 + (let ((__tmp164390 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp164408 '())))) + (cons __tmp164390 '())))) (declare (not safe)) - (cons __tmp164409 __tmp164407))) - (__tmp164396 - (let ((__tmp164397 - (let ((__tmp164405 + (cons __tmp164391 __tmp164389))) + (__tmp164378 + (let ((__tmp164379 + (let ((__tmp164387 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp164398 + (__tmp164380 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L162657_ - _L162659_)) - (let ((__tmp164399 - (lambda (_g162676162680_ - _g162677162683_ - _g162678162685_) - (let ((__tmp164400 - (let ((__tmp164404 + _L162639_ + _L162641_)) + (let ((__tmp164381 + (lambda (_g162658162662_ + _g162659162665_ + _g162660162667_) + (let ((__tmp164382 + (let ((__tmp164386 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp164401 - (let ((__tmp164402 - (let ((__tmp164403 + (__tmp164383 + (let ((__tmp164384 + (let ((__tmp164385 (let () (declare (not safe)) - (cons _g162676162680_ '())))) + (cons _g162658162662_ '())))) (declare (not safe)) - (cons _g162677162683_ __tmp164403)))) + (cons _g162659162665_ __tmp164385)))) (declare (not safe)) - (cons 'primitive: __tmp164402)))) + (cons 'primitive: __tmp164384)))) (declare (not safe)) - (cons __tmp164404 __tmp164401)))) + (cons __tmp164386 __tmp164383)))) (declare (not safe)) - (cons __tmp164400 _g162678162685_))))) + (cons __tmp164382 _g162660162667_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp164399 + (foldr2 __tmp164381 '() - _L162657_ - _L162659_))))) + _L162639_ + _L162641_))))) (declare (not safe)) - (cons __tmp164405 __tmp164398)))) + (cons __tmp164387 __tmp164380)))) (declare (not safe)) - (cons __tmp164397 '())))) + (cons __tmp164379 '())))) (declare (not safe)) - (cons __tmp164406 __tmp164396)))) + (cons __tmp164388 __tmp164378)))) (declare (not safe)) - (cons __tmp164410 __tmp164395)))) - (___kont163996163997_ - (lambda (_L162543_ _L162545_) - (let ((__tmp164425 + (cons __tmp164392 __tmp164377)))) + (___kont163978163979_ + (lambda (_L162525_ _L162527_) + (let ((__tmp164407 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!case-lambda))) - (__tmp164411 - (let ((__tmp164421 - (let ((__tmp164424 + (__tmp164393 + (let ((__tmp164403 + (let ((__tmp164406 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164422 - (let ((__tmp164423 + (__tmp164404 + (let ((__tmp164405 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp164423 '())))) + (cons __tmp164405 '())))) (declare (not safe)) - (cons __tmp164424 __tmp164422))) - (__tmp164412 - (let ((__tmp164413 - (let ((__tmp164420 + (cons __tmp164406 __tmp164404))) + (__tmp164394 + (let ((__tmp164395 + (let ((__tmp164402 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp164414 + (__tmp164396 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L162543_ - _L162545_)) - (let ((__tmp164415 - (lambda (_g162560162564_ - _g162561162567_ - _g162562162569_) - (let ((__tmp164416 - (let ((__tmp164419 + _L162525_ + _L162527_)) + (let ((__tmp164397 + (lambda (_g162542162546_ + _g162543162549_ + _g162544162551_) + (let ((__tmp164398 + (let ((__tmp164401 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp164417 - (let ((__tmp164418 + (__tmp164399 + (let ((__tmp164400 (let () (declare (not safe)) - (cons _g162560162564_ '())))) + (cons _g162542162546_ '())))) (declare (not safe)) - (cons _g162561162567_ __tmp164418)))) + (cons _g162543162549_ __tmp164400)))) (declare (not safe)) - (cons __tmp164419 __tmp164417)))) + (cons __tmp164401 __tmp164399)))) (declare (not safe)) - (cons __tmp164416 _g162562162569_))))) + (cons __tmp164398 _g162544162551_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp164415 + (foldr2 __tmp164397 '() - _L162543_ - _L162545_))))) + _L162525_ + _L162527_))))) (declare (not safe)) - (cons __tmp164420 __tmp164414)))) + (cons __tmp164402 __tmp164396)))) (declare (not safe)) - (cons __tmp164413 '())))) + (cons __tmp164395 '())))) (declare (not safe)) - (cons __tmp164421 __tmp164412)))) + (cons __tmp164403 __tmp164394)))) (declare (not safe)) - (cons __tmp164425 __tmp164411))))) - (let* ((___match164040164041_ - (lambda (_e162449162479_ - _hd162448162483_ - _tl162447162486_ - ___splice163998163999_ - _target162450162489_ - _tl162452162492_) - (letrec ((_loop162453162495_ - (lambda (_hd162451162499_ - _dispatch162457162502_ - _arity162458162504_) + (cons __tmp164407 __tmp164393))))) + (let* ((___match164022164023_ + (lambda (_e162431162461_ + _hd162430162465_ + _tl162429162468_ + ___splice163980163981_ + _target162432162471_ + _tl162434162474_) + (letrec ((_loop162435162477_ + (lambda (_hd162433162481_ + _dispatch162439162484_ + _arity162440162486_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd162451162499_)) - (let ((_e162454162507_ + (gx#stx-pair? _hd162433162481_)) + (let ((_e162436162489_ (let () (declare (not safe)) - (gx#syntax-e _hd162451162499_)))) - (let ((_lp-tl162456162514_ + (gx#syntax-e _hd162433162481_)))) + (let ((_lp-tl162438162496_ (let () (declare (not safe)) - (##cdr _e162454162507_))) - (_lp-hd162455162511_ + (##cdr _e162436162489_))) + (_lp-hd162437162493_ (let () (declare (not safe)) - (##car _e162454162507_)))) + (##car _e162436162489_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd162455162511_)) - (let ((_e162463162517_ + _lp-hd162437162493_)) + (let ((_e162445162499_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd162455162511_)))) - (let ((_tl162461162524_ + _lp-hd162437162493_)))) + (let ((_tl162443162506_ (let () (declare (not safe)) - (##cdr _e162463162517_))) - (_hd162462162521_ + (##cdr _e162445162499_))) + (_hd162444162503_ (let () (declare (not safe)) - (##car _e162463162517_)))) + (##car _e162445162499_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl162461162524_)) - (let ((_e162466162527_ + _tl162443162506_)) + (let ((_e162448162509_ (let () (declare (not safe)) (gx#syntax-e - _tl162461162524_)))) - (let ((_tl162464162534_ + _tl162443162506_)))) + (let ((_tl162446162516_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e162466162527_))) - (_hd162465162531_ - (let () (declare (not safe)) (##car _e162466162527_)))) + (##cdr _e162448162509_))) + (_hd162447162513_ + (let () (declare (not safe)) (##car _e162448162509_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162464162534_)) - (_loop162453162495_ - _lp-tl162456162514_ + (gx#stx-null? _tl162446162516_)) + (_loop162435162477_ + _lp-tl162438162496_ (let () (declare (not safe)) - (cons _hd162465162531_ _dispatch162457162502_)) + (cons _hd162447162513_ _dispatch162439162484_)) (let () (declare (not safe)) - (cons _hd162462162521_ _arity162458162504_))) - (let () (declare (not safe)) (_g162417162472_))))) + (cons _hd162444162503_ _arity162440162486_))) + (let () (declare (not safe)) (_g162399162454_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g162417162472_))))) + (_g162399162454_))))) (let () (declare (not safe)) - (_g162417162472_))))) - (let ((_arity162460162540_ - (reverse _arity162458162504_)) - (_dispatch162459162537_ - (reverse _dispatch162457162502_))) - (___kont163996163997_ - _dispatch162459162537_ - _arity162460162540_)))))) - (_loop162453162495_ _target162450162489_ '() '())))) - (___match164032164033_ - (lambda (_e162449162479_ _hd162448162483_ _tl162447162486_) + (_g162399162454_))))) + (let ((_arity162442162522_ + (reverse _arity162440162486_)) + (_dispatch162441162519_ + (reverse _dispatch162439162484_))) + (___kont163978163979_ + _dispatch162441162519_ + _arity162442162522_)))))) + (_loop162435162477_ _target162432162471_ '() '())))) + (___match164014164015_ + (lambda (_e162431162461_ _hd162430162465_ _tl162429162468_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162447162486_)) - (let ((___splice163998163999_ + (gx#stx-pair/null? _tl162429162468_)) + (let ((___splice163980163981_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162447162486_ + _tl162429162468_ '0)))) - (let ((_tl162452162492_ + (let ((_tl162434162474_ (let () (declare (not safe)) - (##vector-ref ___splice163998163999_ '1))) - (_target162450162489_ + (##vector-ref ___splice163980163981_ '1))) + (_target162432162471_ (let () (declare (not safe)) - (##vector-ref ___splice163998163999_ '0)))) + (##vector-ref ___splice163980163981_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162452162492_)) - (___match164040164041_ - _e162449162479_ - _hd162448162483_ - _tl162447162486_ - ___splice163998163999_ - _target162450162489_ - _tl162452162492_) + (gx#stx-null? _tl162434162474_)) + (___match164022164023_ + _e162431162461_ + _hd162430162465_ + _tl162429162468_ + ___splice163980163981_ + _target162432162471_ + _tl162434162474_) (let () (declare (not safe)) - (_g162417162472_))))) - (let () (declare (not safe)) (_g162417162472_))))) - (___match164026164027_ - (lambda (_e162423162579_ - _hd162422162583_ - _tl162421162586_ - _e162426162589_ - _hd162425162593_ - _tl162424162596_ - _e162427162599_ - ___splice163994163995_ - _target162428162603_ - _tl162430162606_) - (letrec ((_loop162431162609_ - (lambda (_hd162429162613_ - _dispatch162435162616_ - _arity162436162618_) + (_g162399162454_))))) + (let () (declare (not safe)) (_g162399162454_))))) + (___match164008164009_ + (lambda (_e162405162561_ + _hd162404162565_ + _tl162403162568_ + _e162408162571_ + _hd162407162575_ + _tl162406162578_ + _e162409162581_ + ___splice163976163977_ + _target162410162585_ + _tl162412162588_) + (letrec ((_loop162413162591_ + (lambda (_hd162411162595_ + _dispatch162417162598_ + _arity162418162600_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd162429162613_)) - (let ((_e162432162621_ + (gx#stx-pair? _hd162411162595_)) + (let ((_e162414162603_ (let () (declare (not safe)) - (gx#syntax-e _hd162429162613_)))) - (let ((_lp-tl162434162628_ + (gx#syntax-e _hd162411162595_)))) + (let ((_lp-tl162416162610_ (let () (declare (not safe)) - (##cdr _e162432162621_))) - (_lp-hd162433162625_ + (##cdr _e162414162603_))) + (_lp-hd162415162607_ (let () (declare (not safe)) - (##car _e162432162621_)))) + (##car _e162414162603_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd162433162625_)) - (let ((_e162441162631_ + _lp-hd162415162607_)) + (let ((_e162423162613_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd162433162625_)))) - (let ((_tl162439162638_ + _lp-hd162415162607_)))) + (let ((_tl162421162620_ (let () (declare (not safe)) - (##cdr _e162441162631_))) - (_hd162440162635_ + (##cdr _e162423162613_))) + (_hd162422162617_ (let () (declare (not safe)) - (##car _e162441162631_)))) + (##car _e162423162613_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl162439162638_)) - (let ((_e162444162641_ + _tl162421162620_)) + (let ((_e162426162623_ (let () (declare (not safe)) (gx#syntax-e - _tl162439162638_)))) - (let ((_tl162442162648_ + _tl162421162620_)))) + (let ((_tl162424162630_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e162444162641_))) - (_hd162443162645_ - (let () (declare (not safe)) (##car _e162444162641_)))) + (##cdr _e162426162623_))) + (_hd162425162627_ + (let () (declare (not safe)) (##car _e162426162623_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162442162648_)) - (_loop162431162609_ - _lp-tl162434162628_ + (gx#stx-null? _tl162424162630_)) + (_loop162413162591_ + _lp-tl162416162610_ (let () (declare (not safe)) - (cons _hd162443162645_ _dispatch162435162616_)) + (cons _hd162425162627_ _dispatch162417162598_)) (let () (declare (not safe)) - (cons _hd162440162635_ _arity162436162618_))) - (___match164032164033_ - _e162423162579_ - _hd162422162583_ - _tl162421162586_)))) + (cons _hd162422162617_ _arity162418162600_))) + (___match164014164015_ + _e162405162561_ + _hd162404162565_ + _tl162403162568_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match164032164033_ - _e162423162579_ - _hd162422162583_ - _tl162421162586_)))) - (___match164032164033_ - _e162423162579_ - _hd162422162583_ - _tl162421162586_)))) - (let ((_arity162438162654_ - (reverse _arity162436162618_)) - (_dispatch162437162651_ - (reverse _dispatch162435162616_))) - (___kont163992163993_ - _dispatch162437162651_ - _arity162438162654_)))))) - (_loop162431162609_ _target162428162603_ '() '()))))) + (___match164014164015_ + _e162405162561_ + _hd162404162565_ + _tl162403162568_)))) + (___match164014164015_ + _e162405162561_ + _hd162404162565_ + _tl162403162568_)))) + (let ((_arity162420162636_ + (reverse _arity162418162600_)) + (_dispatch162419162633_ + (reverse _dispatch162417162598_))) + (___kont163974163975_ + _dispatch162419162633_ + _arity162420162636_)))))) + (_loop162413162591_ _target162410162585_ '() '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx163989163990_)) - (let ((_e162423162579_ + (gx#stx-pair? ___stx163971163972_)) + (let ((_e162405162561_ (let () (declare (not safe)) - (gx#syntax-e ___stx163989163990_)))) - (let ((_tl162421162586_ - (let () (declare (not safe)) (##cdr _e162423162579_))) - (_hd162422162583_ + (gx#syntax-e ___stx163971163972_)))) + (let ((_tl162403162568_ + (let () (declare (not safe)) (##cdr _e162405162561_))) + (_hd162404162565_ (let () (declare (not safe)) - (##car _e162423162579_)))) + (##car _e162405162561_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162421162586_)) - (let ((_e162426162589_ + (gx#stx-pair? _tl162403162568_)) + (let ((_e162408162571_ (let () (declare (not safe)) - (gx#syntax-e _tl162421162586_)))) - (let ((_tl162424162596_ + (gx#syntax-e _tl162403162568_)))) + (let ((_tl162406162578_ (let () (declare (not safe)) - (##cdr _e162426162589_))) - (_hd162425162593_ + (##cdr _e162408162571_))) + (_hd162407162575_ (let () (declare (not safe)) - (##car _e162426162589_)))) + (##car _e162408162571_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd162425162593_)) - (let ((_e162427162599_ + (gx#stx-datum? _hd162407162575_)) + (let ((_e162409162581_ (let () (declare (not safe)) - (gx#stx-e _hd162425162593_)))) + (gx#stx-e _hd162407162575_)))) (if (let () (declare (not safe)) - (equal? _e162427162599_ 'primitive:)) + (equal? _e162409162581_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl162424162596_)) - (let ((___splice163994163995_ + _tl162406162578_)) + (let ((___splice163976163977_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162424162596_ + _tl162406162578_ '0)))) - (let ((_tl162430162606_ + (let ((_tl162412162588_ (let () (declare (not safe)) (##vector-ref - ___splice163994163995_ + ___splice163976163977_ '1))) - (_target162428162603_ + (_target162410162585_ (let () (declare (not safe)) (##vector-ref - ___splice163994163995_ + ___splice163976163977_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl162430162606_)) - (___match164026164027_ - _e162423162579_ - _hd162422162583_ - _tl162421162586_ - _e162426162589_ - _hd162425162593_ - _tl162424162596_ - _e162427162599_ - ___splice163994163995_ - _target162428162603_ - _tl162430162606_) + _tl162412162588_)) + (___match164008164009_ + _e162405162561_ + _hd162404162565_ + _tl162403162568_ + _e162408162571_ + _hd162407162575_ + _tl162406162578_ + _e162409162581_ + ___splice163976163977_ + _target162410162585_ + _tl162412162588_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl162421162586_)) - (let ((___splice163998163999_ + _tl162403162568_)) + (let ((___splice163980163981_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl162421162586_ '0)))) - (let ((_tl162452162492_ + (gx#syntax-split-splice _tl162403162568_ '0)))) + (let ((_tl162434162474_ (let () (declare (not safe)) - (##vector-ref ___splice163998163999_ '1))) - (_target162450162489_ + (##vector-ref ___splice163980163981_ '1))) + (_target162432162471_ (let () (declare (not safe)) - (##vector-ref ___splice163998163999_ '0)))) + (##vector-ref ___splice163980163981_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162452162492_)) - (___match164040164041_ - _e162423162579_ - _hd162422162583_ - _tl162421162586_ - ___splice163998163999_ - _target162450162489_ - _tl162452162492_) - (let () (declare (not safe)) (_g162417162472_))))) - (let () (declare (not safe)) (_g162417162472_)))))) + (gx#stx-null? _tl162434162474_)) + (___match164022164023_ + _e162405162561_ + _hd162404162565_ + _tl162403162568_ + ___splice163980163981_ + _target162432162471_ + _tl162434162474_) + (let () (declare (not safe)) (_g162399162454_))))) + (let () (declare (not safe)) (_g162399162454_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl162421162586_)) - (let ((___splice163998163999_ + _tl162403162568_)) + (let ((___splice163980163981_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162421162586_ + _tl162403162568_ '0)))) - (let ((_tl162452162492_ + (let ((_tl162434162474_ (let () (declare (not safe)) (##vector-ref - ___splice163998163999_ + ___splice163980163981_ '1))) - (_target162450162489_ + (_target162432162471_ (let () (declare (not safe)) (##vector-ref - ___splice163998163999_ + ___splice163980163981_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl162452162492_)) - (___match164040164041_ - _e162423162579_ - _hd162422162583_ - _tl162421162586_ - ___splice163998163999_ - _target162450162489_ - _tl162452162492_) + _tl162434162474_)) + (___match164022164023_ + _e162405162561_ + _hd162404162565_ + _tl162403162568_ + ___splice163980163981_ + _target162432162471_ + _tl162434162474_) (let () (declare (not safe)) - (_g162417162472_))))) + (_g162399162454_))))) (let () (declare (not safe)) - (_g162417162472_)))) + (_g162399162454_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl162421162586_)) - (let ((___splice163998163999_ + _tl162403162568_)) + (let ((___splice163980163981_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162421162586_ + _tl162403162568_ '0)))) - (let ((_tl162452162492_ + (let ((_tl162434162474_ (let () (declare (not safe)) (##vector-ref - ___splice163998163999_ + ___splice163980163981_ '1))) - (_target162450162489_ + (_target162432162471_ (let () (declare (not safe)) (##vector-ref - ___splice163998163999_ + ___splice163980163981_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl162452162492_)) - (___match164040164041_ - _e162423162579_ - _hd162422162583_ - _tl162421162586_ - ___splice163998163999_ - _target162450162489_ - _tl162452162492_) + _tl162434162474_)) + (___match164022164023_ + _e162405162561_ + _hd162404162565_ + _tl162403162568_ + ___splice163980163981_ + _target162432162471_ + _tl162434162474_) (let () (declare (not safe)) - (_g162417162472_))))) + (_g162399162454_))))) (let () (declare (not safe)) - (_g162417162472_))))) + (_g162399162454_))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162421162586_)) - (let ((___splice163998163999_ + (gx#stx-pair/null? _tl162403162568_)) + (let ((___splice163980163981_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162421162586_ + _tl162403162568_ '0)))) - (let ((_tl162452162492_ + (let ((_tl162434162474_ (let () (declare (not safe)) (##vector-ref - ___splice163998163999_ + ___splice163980163981_ '1))) - (_target162450162489_ + (_target162432162471_ (let () (declare (not safe)) (##vector-ref - ___splice163998163999_ + ___splice163980163981_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162452162492_)) - (___match164040164041_ - _e162423162579_ - _hd162422162583_ - _tl162421162586_ - ___splice163998163999_ - _target162450162489_ - _tl162452162492_) + (gx#stx-null? _tl162434162474_)) + (___match164022164023_ + _e162405162561_ + _hd162404162565_ + _tl162403162568_ + ___splice163980163981_ + _target162432162471_ + _tl162434162474_) (let () (declare (not safe)) - (_g162417162472_))))) + (_g162399162454_))))) (let () (declare (not safe)) - (_g162417162472_)))))) + (_g162399162454_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162421162586_)) - (let ((___splice163998163999_ + (gx#stx-pair/null? _tl162403162568_)) + (let ((___splice163980163981_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162421162586_ + _tl162403162568_ '0)))) - (let ((_tl162452162492_ + (let ((_tl162434162474_ (let () (declare (not safe)) (##vector-ref - ___splice163998163999_ + ___splice163980163981_ '1))) - (_target162450162489_ + (_target162432162471_ (let () (declare (not safe)) (##vector-ref - ___splice163998163999_ + ___splice163980163981_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162452162492_)) - (___match164040164041_ - _e162423162579_ - _hd162422162583_ - _tl162421162586_ - ___splice163998163999_ - _target162450162489_ - _tl162452162492_) + (gx#stx-null? _tl162434162474_)) + (___match164022164023_ + _e162405162561_ + _hd162404162565_ + _tl162403162568_ + ___splice163980163981_ + _target162432162471_ + _tl162434162474_) (let () (declare (not safe)) - (_g162417162472_))))) - (let () (declare (not safe)) (_g162417162472_)))))) - (let () (declare (not safe)) (_g162417162472_)))))))) + (_g162399162454_))))) + (let () (declare (not safe)) (_g162399162454_)))))) + (let () (declare (not safe)) (_g162399162454_)))))))) (define |gxc[:0:]#@kw-lambda| - (lambda (_$stx162694_) - (let* ((_g162698162716_ - (lambda (_g162699162712_) + (lambda (_$stx162676_) + (let* ((_g162680162698_ + (lambda (_g162681162694_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g162699162712_)))) - (_g162697162771_ - (lambda (_g162699162720_) + _g162681162694_)))) + (_g162679162753_ + (lambda (_g162681162702_) (if (let () (declare (not safe)) - (gx#stx-pair? _g162699162720_)) - (let ((_e162704162723_ + (gx#stx-pair? _g162681162702_)) + (let ((_e162686162705_ (let () (declare (not safe)) - (gx#syntax-e _g162699162720_)))) - (let ((_hd162703162727_ + (gx#syntax-e _g162681162702_)))) + (let ((_hd162685162709_ (let () (declare (not safe)) - (##car _e162704162723_))) - (_tl162702162730_ + (##car _e162686162705_))) + (_tl162684162712_ (let () (declare (not safe)) - (##cdr _e162704162723_)))) + (##cdr _e162686162705_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162702162730_)) - (let ((_e162707162733_ + (gx#stx-pair? _tl162684162712_)) + (let ((_e162689162715_ (let () (declare (not safe)) - (gx#syntax-e _tl162702162730_)))) - (let ((_hd162706162737_ + (gx#syntax-e _tl162684162712_)))) + (let ((_hd162688162719_ (let () (declare (not safe)) - (##car _e162707162733_))) - (_tl162705162740_ + (##car _e162689162715_))) + (_tl162687162722_ (let () (declare (not safe)) - (##cdr _e162707162733_)))) + (##cdr _e162689162715_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162705162740_)) - (let ((_e162710162743_ + (gx#stx-pair? _tl162687162722_)) + (let ((_e162692162725_ (let () (declare (not safe)) - (gx#syntax-e _tl162705162740_)))) - (let ((_hd162709162747_ + (gx#syntax-e _tl162687162722_)))) + (let ((_hd162691162729_ (let () (declare (not safe)) - (##car _e162710162743_))) - (_tl162708162750_ + (##car _e162692162725_))) + (_tl162690162732_ (let () (declare (not safe)) - (##cdr _e162710162743_)))) + (##cdr _e162692162725_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162708162750_)) - ((lambda (_L162753_ _L162755_) - (let ((__tmp164439 + (gx#stx-null? _tl162690162732_)) + ((lambda (_L162735_ _L162737_) + (let ((__tmp164421 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda))) - (__tmp164426 - (let ((__tmp164435 - (let ((__tmp164438 + (__tmp164408 + (let ((__tmp164417 + (let ((__tmp164420 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164436 - (let ((__tmp164437 + (__tmp164418 + (let ((__tmp164419 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda)))) (declare (not safe)) - (cons __tmp164437 '())))) + (cons __tmp164419 '())))) (declare (not safe)) - (cons __tmp164438 __tmp164436))) - (__tmp164427 - (let ((__tmp164432 - (let ((__tmp164434 + (cons __tmp164420 __tmp164418))) + (__tmp164409 + (let ((__tmp164414 + (let ((__tmp164416 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164433 + (__tmp164415 (let () (declare (not safe)) - (cons _L162755_ '())))) + (cons _L162737_ '())))) (declare (not safe)) - (cons __tmp164434 __tmp164433))) - (__tmp164428 - (let ((__tmp164429 - (let ((__tmp164431 + (cons __tmp164416 __tmp164415))) + (__tmp164410 + (let ((__tmp164411 + (let ((__tmp164413 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164430 + (__tmp164412 (let () (declare (not safe)) - (cons _L162753_ '())))) + (cons _L162735_ '())))) (declare (not safe)) - (cons __tmp164431 __tmp164430)))) + (cons __tmp164413 __tmp164412)))) (declare (not safe)) - (cons __tmp164429 '())))) + (cons __tmp164411 '())))) (declare (not safe)) - (cons __tmp164432 __tmp164428)))) + (cons __tmp164414 __tmp164410)))) (declare (not safe)) - (cons __tmp164435 __tmp164427)))) + (cons __tmp164417 __tmp164409)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164439 - __tmp164426))) - _hd162709162747_ - _hd162706162737_) - (_g162698162716_ - _g162699162720_)))) - (_g162698162716_ _g162699162720_)))) - (_g162698162716_ _g162699162720_)))) - (_g162698162716_ _g162699162720_))))) - (_g162697162771_ _$stx162694_)))) + (cons __tmp164421 + __tmp164408))) + _hd162691162729_ + _hd162688162719_) + (_g162680162698_ + _g162681162702_)))) + (_g162680162698_ _g162681162702_)))) + (_g162680162698_ _g162681162702_)))) + (_g162680162698_ _g162681162702_))))) + (_g162679162753_ _$stx162676_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_$stx162775_) - (let* ((_g162779162797_ - (lambda (_g162780162793_) + (lambda (_$stx162757_) + (let* ((_g162761162779_ + (lambda (_g162762162775_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g162780162793_)))) - (_g162778162852_ - (lambda (_g162780162801_) + _g162762162775_)))) + (_g162760162834_ + (lambda (_g162762162783_) (if (let () (declare (not safe)) - (gx#stx-pair? _g162780162801_)) - (let ((_e162785162804_ + (gx#stx-pair? _g162762162783_)) + (let ((_e162767162786_ (let () (declare (not safe)) - (gx#syntax-e _g162780162801_)))) - (let ((_hd162784162808_ + (gx#syntax-e _g162762162783_)))) + (let ((_hd162766162790_ (let () (declare (not safe)) - (##car _e162785162804_))) - (_tl162783162811_ + (##car _e162767162786_))) + (_tl162765162793_ (let () (declare (not safe)) - (##cdr _e162785162804_)))) + (##cdr _e162767162786_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162783162811_)) - (let ((_e162788162814_ + (gx#stx-pair? _tl162765162793_)) + (let ((_e162770162796_ (let () (declare (not safe)) - (gx#syntax-e _tl162783162811_)))) - (let ((_hd162787162818_ + (gx#syntax-e _tl162765162793_)))) + (let ((_hd162769162800_ (let () (declare (not safe)) - (##car _e162788162814_))) - (_tl162786162821_ + (##car _e162770162796_))) + (_tl162768162803_ (let () (declare (not safe)) - (##cdr _e162788162814_)))) + (##cdr _e162770162796_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162786162821_)) - (let ((_e162791162824_ + (gx#stx-pair? _tl162768162803_)) + (let ((_e162773162806_ (let () (declare (not safe)) - (gx#syntax-e _tl162786162821_)))) - (let ((_hd162790162828_ + (gx#syntax-e _tl162768162803_)))) + (let ((_hd162772162810_ (let () (declare (not safe)) - (##car _e162791162824_))) - (_tl162789162831_ + (##car _e162773162806_))) + (_tl162771162813_ (let () (declare (not safe)) - (##cdr _e162791162824_)))) + (##cdr _e162773162806_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162789162831_)) - ((lambda (_L162834_ _L162836_) - (let ((__tmp164453 + (gx#stx-null? _tl162771162813_)) + ((lambda (_L162816_ _L162818_) + (let ((__tmp164435 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda-primary))) - (__tmp164440 - (let ((__tmp164449 - (let ((__tmp164452 + (__tmp164422 + (let ((__tmp164431 + (let ((__tmp164434 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164450 - (let ((__tmp164451 + (__tmp164432 + (let ((__tmp164433 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda-dispatch)))) (declare (not safe)) - (cons __tmp164451 '())))) + (cons __tmp164433 '())))) (declare (not safe)) - (cons __tmp164452 __tmp164450))) - (__tmp164441 - (let ((__tmp164446 - (let ((__tmp164448 + (cons __tmp164434 __tmp164432))) + (__tmp164423 + (let ((__tmp164428 + (let ((__tmp164430 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164447 + (__tmp164429 (let () (declare (not safe)) - (cons _L162836_ '())))) + (cons _L162818_ '())))) (declare (not safe)) - (cons __tmp164448 __tmp164447))) - (__tmp164442 - (let ((__tmp164443 - (let ((__tmp164445 + (cons __tmp164430 __tmp164429))) + (__tmp164424 + (let ((__tmp164425 + (let ((__tmp164427 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp164444 + (__tmp164426 (let () (declare (not safe)) - (cons _L162834_ '())))) + (cons _L162816_ '())))) (declare (not safe)) - (cons __tmp164445 __tmp164444)))) + (cons __tmp164427 __tmp164426)))) (declare (not safe)) - (cons __tmp164443 '())))) + (cons __tmp164425 '())))) (declare (not safe)) - (cons __tmp164446 __tmp164442)))) + (cons __tmp164428 __tmp164424)))) (declare (not safe)) - (cons __tmp164449 __tmp164441)))) + (cons __tmp164431 __tmp164423)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp164453 - __tmp164440))) - _hd162790162828_ - _hd162787162818_) - (_g162779162797_ - _g162780162801_)))) - (_g162779162797_ _g162780162801_)))) - (_g162779162797_ _g162780162801_)))) - (_g162779162797_ _g162780162801_))))) - (_g162778162852_ _$stx162775_)))) + (cons __tmp164435 + __tmp164422))) + _hd162772162810_ + _hd162769162800_) + (_g162761162779_ + _g162762162783_)))) + (_g162761162779_ _g162762162783_)))) + (_g162761162779_ _g162762162783_)))) + (_g162761162779_ _g162762162783_))))) + (_g162760162834_ _$stx162757_)))) (define |gxc[:0:]#declare-primitive| - (lambda (_$stx162856_) - (let* ((___stx164043164044_ _$stx162856_) - (_g162863162934_ + (lambda (_$stx162838_) + (let* ((___stx164025164026_ _$stx162838_) + (_g162845162916_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx164043164044_))))) - (let ((___kont164046164047_ - (lambda (_L163225_ _L163227_) - (let ((__tmp164459 + ___stx164025164026_))))) + (let ((___kont164028164029_ + (lambda (_L163207_ _L163209_) + (let ((__tmp164441 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp164454 - (let ((__tmp164455 - (let ((__tmp164456 - (let ((__tmp164458 + (__tmp164436 + (let ((__tmp164437 + (let ((__tmp164438 + (let ((__tmp164440 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp164457 + (__tmp164439 (let () (declare (not safe)) - (cons _L163225_ '())))) + (cons _L163207_ '())))) (declare (not safe)) - (cons __tmp164458 __tmp164457)))) + (cons __tmp164440 __tmp164439)))) (declare (not safe)) - (cons __tmp164456 '())))) + (cons __tmp164438 '())))) (declare (not safe)) - (cons _L163227_ __tmp164455)))) + (cons _L163209_ __tmp164437)))) (declare (not safe)) - (cons __tmp164459 __tmp164454)))) - (___kont164048164049_ - (lambda (_L163144_ _L163146_) - (let ((__tmp164468 + (cons __tmp164441 __tmp164436)))) + (___kont164030164031_ + (lambda (_L163126_ _L163128_) + (let ((__tmp164450 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp164460 - (let ((__tmp164461 - (let ((__tmp164462 - (let ((__tmp164467 + (__tmp164442 + (let ((__tmp164443 + (let ((__tmp164444 + (let ((__tmp164449 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp164463 - (let ((__tmp164464 - (lambda (_g163165163168_ - _g163166163171_) - (let ((__tmp164465 - (let ((__tmp164466 + (__tmp164445 + (let ((__tmp164446 + (lambda (_g163147163150_ + _g163148163153_) + (let ((__tmp164447 + (let ((__tmp164448 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g163165163168_ __tmp164466)))) + (cons _g163147163150_ __tmp164448)))) (declare (not safe)) - (cons __tmp164465 _g163166163171_))))) + (cons __tmp164447 _g163148163153_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp164464 + (foldr1 __tmp164446 '() - _L163144_)))) + _L163126_)))) (declare (not safe)) - (cons __tmp164467 __tmp164463)))) + (cons __tmp164449 __tmp164445)))) (declare (not safe)) - (cons __tmp164462 '())))) + (cons __tmp164444 '())))) (declare (not safe)) - (cons _L163146_ __tmp164461)))) + (cons _L163128_ __tmp164443)))) (declare (not safe)) - (cons __tmp164468 __tmp164460)))) - (___kont164052164053_ - (lambda (_L163056_ _L163058_) - (let ((__tmp164475 + (cons __tmp164450 __tmp164442)))) + (___kont164034164035_ + (lambda (_L163038_ _L163040_) + (let ((__tmp164457 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp164469 - (let ((__tmp164470 - (let ((__tmp164471 - (let ((__tmp164474 + (__tmp164451 + (let ((__tmp164452 + (let ((__tmp164453 + (let ((__tmp164456 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp164472 - (let ((__tmp164473 + (__tmp164454 + (let ((__tmp164455 (let () (declare (not safe)) - (cons _L163056_ '())))) + (cons _L163038_ '())))) (declare (not safe)) (cons 'primitive: - __tmp164473)))) + __tmp164455)))) (declare (not safe)) - (cons __tmp164474 __tmp164472)))) + (cons __tmp164456 __tmp164454)))) (declare (not safe)) - (cons __tmp164471 '())))) + (cons __tmp164453 '())))) (declare (not safe)) - (cons _L163058_ __tmp164470)))) + (cons _L163040_ __tmp164452)))) (declare (not safe)) - (cons __tmp164475 __tmp164469)))) - (___kont164054164055_ - (lambda (_L162991_ _L162993_) - (let ((__tmp164485 + (cons __tmp164457 __tmp164451)))) + (___kont164036164037_ + (lambda (_L162973_ _L162975_) + (let ((__tmp164467 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp164476 - (let ((__tmp164477 - (let ((__tmp164478 - (let ((__tmp164484 + (__tmp164458 + (let ((__tmp164459 + (let ((__tmp164460 + (let ((__tmp164466 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp164479 - (let ((__tmp164480 - (let ((__tmp164481 - (lambda (_g163010163013_ + (__tmp164461 + (let ((__tmp164462 + (let ((__tmp164463 + (lambda (_g162992162995_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g163011163016_) - (let ((__tmp164482 - (let ((__tmp164483 + _g162993162998_) + (let ((__tmp164464 + (let ((__tmp164465 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g163010163013_ __tmp164483)))) + (cons _g162992162995_ __tmp164465)))) (declare (not safe)) - (cons __tmp164482 _g163011163016_))))) + (cons __tmp164464 _g162993162998_))))) (declare (not safe)) - (foldr1 __tmp164481 '() _L162991_)))) + (foldr1 __tmp164463 '() _L162973_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'primitive: - __tmp164480)))) + __tmp164462)))) (declare (not safe)) - (cons __tmp164484 __tmp164479)))) + (cons __tmp164466 __tmp164461)))) (declare (not safe)) - (cons __tmp164478 '())))) + (cons __tmp164460 '())))) (declare (not safe)) - (cons _L162993_ __tmp164477)))) + (cons _L162975_ __tmp164459)))) (declare (not safe)) - (cons __tmp164485 __tmp164476))))) - (let* ((___match164162164163_ - (lambda (_e162916162941_ - _hd162915162945_ - _tl162914162948_ - _e162919162951_ - _hd162918162955_ - _tl162917162958_ - ___splice164056164057_ - _target162920162961_ - _tl162922162964_) - (letrec ((_loop162923162967_ - (lambda (_hd162921162971_ _arity162927162974_) + (cons __tmp164467 __tmp164458))))) + (let* ((___match164144164145_ + (lambda (_e162898162923_ + _hd162897162927_ + _tl162896162930_ + _e162901162933_ + _hd162900162937_ + _tl162899162940_ + ___splice164038164039_ + _target162902162943_ + _tl162904162946_) + (letrec ((_loop162905162949_ + (lambda (_hd162903162953_ _arity162909162956_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd162921162971_)) - (let ((_e162924162977_ + (gx#stx-pair? _hd162903162953_)) + (let ((_e162906162959_ (let () (declare (not safe)) - (gx#syntax-e _hd162921162971_)))) - (let ((_lp-tl162926162984_ + (gx#syntax-e _hd162903162953_)))) + (let ((_lp-tl162908162966_ (let () (declare (not safe)) - (##cdr _e162924162977_))) - (_lp-hd162925162981_ + (##cdr _e162906162959_))) + (_lp-hd162907162963_ (let () (declare (not safe)) - (##car _e162924162977_)))) - (_loop162923162967_ - _lp-tl162926162984_ + (##car _e162906162959_)))) + (_loop162905162949_ + _lp-tl162908162966_ (let () (declare (not safe)) - (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_) + (cons _lp-hd162907162963_ + _arity162909162956_))))) + (let ((_arity162910162969_ + (reverse _arity162909162956_))) + (___kont164036164037_ + _arity162910162969_ + _hd162900162937_)))))) + (_loop162905162949_ _target162902162943_ '())))) + (___match164104164105_ + (lambda (_e162866163062_ + _hd162865163066_ + _tl162864163069_ + _e162869163072_ + _hd162868163076_ + _tl162867163079_ + _e162872163082_ + _hd162871163086_ + _tl162870163089_ + _e162873163092_ + ___splice164032164033_ + _target162874163096_ + _tl162876163099_) + (letrec ((_loop162877163102_ + (lambda (_hd162875163106_ _arity162881163109_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd162893163124_)) - (let ((_e162896163130_ + (gx#stx-pair? _hd162875163106_)) + (let ((_e162878163112_ (let () (declare (not safe)) - (gx#syntax-e _hd162893163124_)))) - (let ((_lp-tl162898163137_ + (gx#syntax-e _hd162875163106_)))) + (let ((_lp-tl162880163119_ (let () (declare (not safe)) - (##cdr _e162896163130_))) - (_lp-hd162897163134_ + (##cdr _e162878163112_))) + (_lp-hd162879163116_ (let () (declare (not safe)) - (##car _e162896163130_)))) - (_loop162895163120_ - _lp-tl162898163137_ + (##car _e162878163112_)))) + (_loop162877163102_ + _lp-tl162880163119_ (let () (declare (not safe)) - (cons _lp-hd162897163134_ - _arity162899163127_))))) - (let ((_arity162900163140_ - (reverse _arity162899163127_))) - (___kont164048164049_ - _arity162900163140_ - _hd162886163094_)))))) - (_loop162895163120_ _target162892163114_ '()))))) + (cons _lp-hd162879163116_ + _arity162881163109_))))) + (let ((_arity162882163122_ + (reverse _arity162881163109_))) + (___kont164030164031_ + _arity162882163122_ + _hd162868163076_)))))) + (_loop162877163102_ _target162874163096_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx164043164044_)) - (let ((_e162869163181_ + (gx#stx-pair? ___stx164025164026_)) + (let ((_e162851163163_ (let () (declare (not safe)) - (gx#syntax-e ___stx164043164044_)))) - (let ((_tl162867163188_ - (let () (declare (not safe)) (##cdr _e162869163181_))) - (_hd162868163185_ + (gx#syntax-e ___stx164025164026_)))) + (let ((_tl162849163170_ + (let () (declare (not safe)) (##cdr _e162851163163_))) + (_hd162850163167_ (let () (declare (not safe)) - (##car _e162869163181_)))) + (##car _e162851163163_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162867163188_)) - (let ((_e162872163191_ + (gx#stx-pair? _tl162849163170_)) + (let ((_e162854163173_ (let () (declare (not safe)) - (gx#syntax-e _tl162867163188_)))) - (let ((_tl162870163198_ + (gx#syntax-e _tl162849163170_)))) + (let ((_tl162852163180_ (let () (declare (not safe)) - (##cdr _e162872163191_))) - (_hd162871163195_ + (##cdr _e162854163173_))) + (_hd162853163177_ (let () (declare (not safe)) - (##car _e162872163191_)))) + (##car _e162854163173_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl162870163198_)) - (let ((_e162875163201_ + (gx#stx-pair? _tl162852163180_)) + (let ((_e162857163183_ (let () (declare (not safe)) - (gx#syntax-e _tl162870163198_)))) - (let ((_tl162873163208_ + (gx#syntax-e _tl162852163180_)))) + (let ((_tl162855163190_ (let () (declare (not safe)) - (##cdr _e162875163201_))) - (_hd162874163205_ + (##cdr _e162857163183_))) + (_hd162856163187_ (let () (declare (not safe)) - (##car _e162875163201_)))) + (##car _e162857163183_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd162874163205_)) - (let ((_e162876163211_ + (gx#stx-datum? _hd162856163187_)) + (let ((_e162858163193_ (let () (declare (not safe)) - (gx#stx-e _hd162874163205_)))) + (gx#stx-e _hd162856163187_)))) (if (let () (declare (not safe)) - (equal? _e162876163211_ + (equal? _e162858163193_ 'unchecked:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl162873163208_)) - (let ((_e162879163215_ + _tl162855163190_)) + (let ((_e162861163197_ (let () (declare (not safe)) (gx#syntax-e - _tl162873163208_)))) - (let ((_tl162877163222_ + _tl162855163190_)))) + (let ((_tl162859163204_ (let () (declare (not safe)) - (##cdr _e162879163215_))) - (_hd162878163219_ + (##cdr _e162861163197_))) + (_hd162860163201_ (let () (declare (not safe)) - (##car _e162879163215_)))) + (##car _e162861163197_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl162877163222_)) - (___kont164046164047_ - _hd162878163219_ - _hd162871163195_) + _tl162859163204_)) + (___kont164028164029_ + _hd162860163201_ + _hd162853163177_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _tl162873163208_)) - (let ((___splice164050164051_ + (gx#stx-pair/null? _tl162855163190_)) + (let ((___splice164032164033_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl162873163208_ '0)))) - (let ((_tl162894163117_ + (gx#syntax-split-splice _tl162855163190_ '0)))) + (let ((_tl162876163099_ (let () (declare (not safe)) - (##vector-ref ___splice164050164051_ '1))) - (_target162892163114_ + (##vector-ref ___splice164032164033_ '1))) + (_target162874163096_ (let () (declare (not safe)) - (##vector-ref ___splice164050164051_ '0)))) + (##vector-ref ___splice164032164033_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162894163117_)) - (___match164122164123_ - _e162869163181_ - _hd162868163185_ - _tl162867163188_ - _e162872163191_ - _hd162871163195_ - _tl162870163198_ - _e162875163201_ - _hd162874163205_ - _tl162873163208_ - _e162876163211_ - ___splice164050164051_ - _target162892163114_ - _tl162894163117_) + (gx#stx-null? _tl162876163099_)) + (___match164104164105_ + _e162851163163_ + _hd162850163167_ + _tl162849163170_ + _e162854163173_ + _hd162853163177_ + _tl162852163180_ + _e162857163183_ + _hd162856163187_ + _tl162855163190_ + _e162858163193_ + ___splice164032164033_ + _target162874163096_ + _tl162876163099_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162870163198_)) - (let ((___splice164056164057_ + (gx#stx-pair/null? _tl162852163180_)) + (let ((___splice164038164039_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162870163198_ + _tl162852163180_ '0)))) - (let ((_tl162922162964_ + (let ((_tl162904162946_ (let () (declare (not safe)) (##vector-ref - ___splice164056164057_ + ___splice164038164039_ '1))) - (_target162920162961_ + (_target162902162943_ (let () (declare (not safe)) (##vector-ref - ___splice164056164057_ + ___splice164038164039_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162922162964_)) - (___match164162164163_ - _e162869163181_ - _hd162868163185_ - _tl162867163188_ - _e162872163191_ - _hd162871163195_ - _tl162870163198_ - ___splice164056164057_ - _target162920162961_ - _tl162922162964_) + (gx#stx-null? _tl162904162946_)) + (___match164144164145_ + _e162851163163_ + _hd162850163167_ + _tl162849163170_ + _e162854163173_ + _hd162853163177_ + _tl162852163180_ + ___splice164038164039_ + _target162902162943_ + _tl162904162946_) (let () (declare (not safe)) - (_g162863162934_))))) + (_g162845162916_))))) (let () (declare (not safe)) - (_g162863162934_)))))) + (_g162845162916_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162870163198_)) - (let ((___splice164056164057_ + (gx#stx-pair/null? _tl162852163180_)) + (let ((___splice164038164039_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162870163198_ + _tl162852163180_ '0)))) - (let ((_tl162922162964_ + (let ((_tl162904162946_ (let () (declare (not safe)) - (##vector-ref ___splice164056164057_ '1))) - (_target162920162961_ + (##vector-ref ___splice164038164039_ '1))) + (_target162902162943_ (let () (declare (not safe)) (##vector-ref - ___splice164056164057_ + ___splice164038164039_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162922162964_)) - (___match164162164163_ - _e162869163181_ - _hd162868163185_ - _tl162867163188_ - _e162872163191_ - _hd162871163195_ - _tl162870163198_ - ___splice164056164057_ - _target162920162961_ - _tl162922162964_) + (gx#stx-null? _tl162904162946_)) + (___match164144164145_ + _e162851163163_ + _hd162850163167_ + _tl162849163170_ + _e162854163173_ + _hd162853163177_ + _tl162852163180_ + ___splice164038164039_ + _target162902162943_ + _tl162904162946_) (let () (declare (not safe)) - (_g162863162934_))))) - (let () (declare (not safe)) (_g162863162934_))))))) + (_g162845162916_))))) + (let () (declare (not safe)) (_g162845162916_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl162873163208_)) - (let ((___splice164050164051_ + _tl162855163190_)) + (let ((___splice164032164033_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl162873163208_ '0)))) - (let ((_tl162894163117_ + (gx#syntax-split-splice _tl162855163190_ '0)))) + (let ((_tl162876163099_ (let () (declare (not safe)) - (##vector-ref ___splice164050164051_ '1))) - (_target162892163114_ + (##vector-ref ___splice164032164033_ '1))) + (_target162874163096_ (let () (declare (not safe)) - (##vector-ref ___splice164050164051_ '0)))) + (##vector-ref ___splice164032164033_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162894163117_)) - (___match164122164123_ - _e162869163181_ - _hd162868163185_ - _tl162867163188_ - _e162872163191_ - _hd162871163195_ - _tl162870163198_ - _e162875163201_ - _hd162874163205_ - _tl162873163208_ - _e162876163211_ - ___splice164050164051_ - _target162892163114_ - _tl162894163117_) + (gx#stx-null? _tl162876163099_)) + (___match164104164105_ + _e162851163163_ + _hd162850163167_ + _tl162849163170_ + _e162854163173_ + _hd162853163177_ + _tl162852163180_ + _e162857163183_ + _hd162856163187_ + _tl162855163190_ + _e162858163193_ + ___splice164032164033_ + _target162874163096_ + _tl162876163099_) (if (let () (declare (not safe)) - (gx#stx-null? _tl162873163208_)) - (___kont164052164053_ - _hd162874163205_ - _hd162871163195_) + (gx#stx-null? _tl162855163190_)) + (___kont164034164035_ + _hd162856163187_ + _hd162853163177_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162870163198_)) - (let ((___splice164056164057_ + (gx#stx-pair/null? _tl162852163180_)) + (let ((___splice164038164039_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162870163198_ + _tl162852163180_ '0)))) - (let ((_tl162922162964_ + (let ((_tl162904162946_ (let () (declare (not safe)) (##vector-ref - ___splice164056164057_ + ___splice164038164039_ '1))) - (_target162920162961_ + (_target162902162943_ (let () (declare (not safe)) (##vector-ref - ___splice164056164057_ + ___splice164038164039_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162922162964_)) - (___match164162164163_ - _e162869163181_ - _hd162868163185_ - _tl162867163188_ - _e162872163191_ - _hd162871163195_ - _tl162870163198_ - ___splice164056164057_ - _target162920162961_ - _tl162922162964_) + (gx#stx-null? _tl162904162946_)) + (___match164144164145_ + _e162851163163_ + _hd162850163167_ + _tl162849163170_ + _e162854163173_ + _hd162853163177_ + _tl162852163180_ + ___splice164038164039_ + _target162902162943_ + _tl162904162946_) (let () (declare (not safe)) - (_g162863162934_))))) + (_g162845162916_))))) (let () (declare (not safe)) - (_g162863162934_))))))) - (if (let () (declare (not safe)) (gx#stx-null? _tl162873163208_)) - (___kont164052164053_ _hd162874163205_ _hd162871163195_) + (_g162845162916_))))))) + (if (let () (declare (not safe)) (gx#stx-null? _tl162855163190_)) + (___kont164034164035_ _hd162856163187_ _hd162853163177_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162870163198_)) - (let ((___splice164056164057_ + (gx#stx-pair/null? _tl162852163180_)) + (let ((___splice164038164039_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl162870163198_ '0)))) - (let ((_tl162922162964_ + (gx#syntax-split-splice _tl162852163180_ '0)))) + (let ((_tl162904162946_ (let () (declare (not safe)) - (##vector-ref ___splice164056164057_ '1))) - (_target162920162961_ + (##vector-ref ___splice164038164039_ '1))) + (_target162902162943_ (let () (declare (not safe)) - (##vector-ref ___splice164056164057_ '0)))) + (##vector-ref ___splice164038164039_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162922162964_)) - (___match164162164163_ - _e162869163181_ - _hd162868163185_ - _tl162867163188_ - _e162872163191_ - _hd162871163195_ - _tl162870163198_ - ___splice164056164057_ - _target162920162961_ - _tl162922162964_) + (gx#stx-null? _tl162904162946_)) + (___match164144164145_ + _e162851163163_ + _hd162850163167_ + _tl162849163170_ + _e162854163173_ + _hd162853163177_ + _tl162852163180_ + ___splice164038164039_ + _target162902162943_ + _tl162904162946_) (let () (declare (not safe)) - (_g162863162934_))))) - (let () (declare (not safe)) (_g162863162934_)))))) + (_g162845162916_))))) + (let () (declare (not safe)) (_g162845162916_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl162873163208_)) - (___kont164052164053_ - _hd162874163205_ - _hd162871163195_) + _tl162855163190_)) + (___kont164034164035_ + _hd162856163187_ + _hd162853163177_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl162870163198_)) - (let ((___splice164056164057_ + _tl162852163180_)) + (let ((___splice164038164039_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl162870163198_ '0)))) - (let ((_tl162922162964_ + (gx#syntax-split-splice _tl162852163180_ '0)))) + (let ((_tl162904162946_ (let () (declare (not safe)) - (##vector-ref ___splice164056164057_ '1))) - (_target162920162961_ + (##vector-ref ___splice164038164039_ '1))) + (_target162902162943_ (let () (declare (not safe)) - (##vector-ref ___splice164056164057_ '0)))) + (##vector-ref ___splice164038164039_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162922162964_)) - (___match164162164163_ - _e162869163181_ - _hd162868163185_ - _tl162867163188_ - _e162872163191_ - _hd162871163195_ - _tl162870163198_ - ___splice164056164057_ - _target162920162961_ - _tl162922162964_) - (let () (declare (not safe)) (_g162863162934_))))) - (let () (declare (not safe)) (_g162863162934_)))))) + (gx#stx-null? _tl162904162946_)) + (___match164144164145_ + _e162851163163_ + _hd162850163167_ + _tl162849163170_ + _e162854163173_ + _hd162853163177_ + _tl162852163180_ + ___splice164038164039_ + _target162902162943_ + _tl162904162946_) + (let () (declare (not safe)) (_g162845162916_))))) + (let () (declare (not safe)) (_g162845162916_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (gx#stx-null? _tl162873163208_)) - (___kont164052164053_ - _hd162874163205_ - _hd162871163195_) + (gx#stx-null? _tl162855163190_)) + (___kont164034164035_ + _hd162856163187_ + _hd162853163177_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl162870163198_)) - (let ((___splice164056164057_ + _tl162852163180_)) + (let ((___splice164038164039_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162870163198_ + _tl162852163180_ '0)))) - (let ((_tl162922162964_ + (let ((_tl162904162946_ (let () (declare (not safe)) (##vector-ref - ___splice164056164057_ + ___splice164038164039_ '1))) - (_target162920162961_ + (_target162902162943_ (let () (declare (not safe)) (##vector-ref - ___splice164056164057_ + ___splice164038164039_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl162922162964_)) - (___match164162164163_ - _e162869163181_ - _hd162868163185_ - _tl162867163188_ - _e162872163191_ - _hd162871163195_ - _tl162870163198_ - ___splice164056164057_ - _target162920162961_ - _tl162922162964_) + _tl162904162946_)) + (___match164144164145_ + _e162851163163_ + _hd162850163167_ + _tl162849163170_ + _e162854163173_ + _hd162853163177_ + _tl162852163180_ + ___splice164038164039_ + _target162902162943_ + _tl162904162946_) (let () (declare (not safe)) - (_g162863162934_))))) + (_g162845162916_))))) (let () (declare (not safe)) - (_g162863162934_))))))) + (_g162845162916_))))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl162870163198_)) - (let ((___splice164056164057_ + (gx#stx-pair/null? _tl162852163180_)) + (let ((___splice164038164039_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl162870163198_ + _tl162852163180_ '0)))) - (let ((_tl162922162964_ + (let ((_tl162904162946_ (let () (declare (not safe)) (##vector-ref - ___splice164056164057_ + ___splice164038164039_ '1))) - (_target162920162961_ + (_target162902162943_ (let () (declare (not safe)) (##vector-ref - ___splice164056164057_ + ___splice164038164039_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl162922162964_)) - (___match164162164163_ - _e162869163181_ - _hd162868163185_ - _tl162867163188_ - _e162872163191_ - _hd162871163195_ - _tl162870163198_ - ___splice164056164057_ - _target162920162961_ - _tl162922162964_) + (gx#stx-null? _tl162904162946_)) + (___match164144164145_ + _e162851163163_ + _hd162850163167_ + _tl162849163170_ + _e162854163173_ + _hd162853163177_ + _tl162852163180_ + ___splice164038164039_ + _target162902162943_ + _tl162904162946_) (let () (declare (not safe)) - (_g162863162934_))))) + (_g162845162916_))))) (let () (declare (not safe)) - (_g162863162934_)))))) - (let () (declare (not safe)) (_g162863162934_))))) - (let () (declare (not safe)) (_g162863162934_)))))))) + (_g162845162916_)))))) + (let () (declare (not safe)) (_g162845162916_))))) + (let () (declare (not safe)) (_g162845162916_)))))))) (define |gxc[:0:]#declare-primitive/unchecked| - (lambda (_$stx163251_) - (let* ((___stx164165164166_ _$stx163251_) - (_g163256163291_ + (lambda (_$stx163233_) + (let* ((___stx164147164148_ _$stx163233_) + (_g163238163273_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx164165164166_))))) - (let ((___kont164168164169_ - (lambda (_L163413_ _L163415_) - (let ((__tmp164491 + ___stx164147164148_))))) + (let ((___kont164150164151_ + (lambda (_L163395_ _L163397_) + (let ((__tmp164473 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp164486 - (let ((__tmp164487 - (let ((__tmp164488 - (let ((__tmp164490 + (__tmp164468 + (let ((__tmp164469 + (let ((__tmp164470 + (let ((__tmp164472 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp164489 + (__tmp164471 (let () (declare (not safe)) - (cons _L163413_ '())))) + (cons _L163395_ '())))) (declare (not safe)) - (cons __tmp164490 __tmp164489)))) + (cons __tmp164472 __tmp164471)))) (declare (not safe)) - (cons __tmp164488 '())))) + (cons __tmp164470 '())))) (declare (not safe)) - (cons _L163415_ __tmp164487)))) + (cons _L163397_ __tmp164469)))) (declare (not safe)) - (cons __tmp164491 __tmp164486)))) - (___kont164170164171_ - (lambda (_L163348_ _L163350_) - (let ((__tmp164500 + (cons __tmp164473 __tmp164468)))) + (___kont164152164153_ + (lambda (_L163330_ _L163332_) + (let ((__tmp164482 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp164492 - (let ((__tmp164493 - (let ((__tmp164494 - (let ((__tmp164499 + (__tmp164474 + (let ((__tmp164475 + (let ((__tmp164476 + (let ((__tmp164481 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp164495 - (let ((__tmp164496 - (lambda (_g163367163370_ - _g163368163373_) - (let ((__tmp164497 - (let ((__tmp164498 + (__tmp164477 + (let ((__tmp164478 + (lambda (_g163349163352_ + _g163350163355_) + (let ((__tmp164479 + (let ((__tmp164480 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g163367163370_ __tmp164498)))) + (cons _g163349163352_ __tmp164480)))) (declare (not safe)) - (cons __tmp164497 _g163368163373_))))) + (cons __tmp164479 _g163350163355_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp164496 + (foldr1 __tmp164478 '() - _L163348_)))) + _L163330_)))) (declare (not safe)) - (cons __tmp164499 __tmp164495)))) + (cons __tmp164481 __tmp164477)))) (declare (not safe)) - (cons __tmp164494 '())))) + (cons __tmp164476 '())))) (declare (not safe)) - (cons _L163350_ __tmp164493)))) + (cons _L163332_ __tmp164475)))) (declare (not safe)) - (cons __tmp164500 __tmp164492))))) - (let ((___match164214164215_ - (lambda (_e163273163298_ - _hd163272163302_ - _tl163271163305_ - _e163276163308_ - _hd163275163312_ - _tl163274163315_ - ___splice164172164173_ - _target163277163318_ - _tl163279163321_) - (letrec ((_loop163280163324_ - (lambda (_hd163278163328_ _arity163284163331_) + (cons __tmp164482 __tmp164474))))) + (let ((___match164196164197_ + (lambda (_e163255163280_ + _hd163254163284_ + _tl163253163287_ + _e163258163290_ + _hd163257163294_ + _tl163256163297_ + ___splice164154164155_ + _target163259163300_ + _tl163261163303_) + (letrec ((_loop163262163306_ + (lambda (_hd163260163310_ _arity163266163313_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd163278163328_)) - (let ((_e163281163334_ + (gx#stx-pair? _hd163260163310_)) + (let ((_e163263163316_ (let () (declare (not safe)) - (gx#syntax-e _hd163278163328_)))) - (let ((_lp-tl163283163341_ + (gx#syntax-e _hd163260163310_)))) + (let ((_lp-tl163265163323_ (let () (declare (not safe)) - (##cdr _e163281163334_))) - (_lp-hd163282163338_ + (##cdr _e163263163316_))) + (_lp-hd163264163320_ (let () (declare (not safe)) - (##car _e163281163334_)))) - (_loop163280163324_ - _lp-tl163283163341_ + (##car _e163263163316_)))) + (_loop163262163306_ + _lp-tl163265163323_ (let () (declare (not safe)) - (cons _lp-hd163282163338_ - _arity163284163331_))))) - (let ((_arity163285163344_ - (reverse _arity163284163331_))) - (___kont164170164171_ - _arity163285163344_ - _hd163275163312_)))))) - (_loop163280163324_ _target163277163318_ '()))))) + (cons _lp-hd163264163320_ + _arity163266163313_))))) + (let ((_arity163267163326_ + (reverse _arity163266163313_))) + (___kont164152164153_ + _arity163267163326_ + _hd163257163294_)))))) + (_loop163262163306_ _target163259163300_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx164165164166_)) - (let ((_e163262163383_ + (gx#stx-pair? ___stx164147164148_)) + (let ((_e163244163365_ (let () (declare (not safe)) - (gx#syntax-e ___stx164165164166_)))) - (let ((_tl163260163390_ - (let () (declare (not safe)) (##cdr _e163262163383_))) - (_hd163261163387_ + (gx#syntax-e ___stx164147164148_)))) + (let ((_tl163242163372_ + (let () (declare (not safe)) (##cdr _e163244163365_))) + (_hd163243163369_ (let () (declare (not safe)) - (##car _e163262163383_)))) + (##car _e163244163365_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl163260163390_)) - (let ((_e163265163393_ + (gx#stx-pair? _tl163242163372_)) + (let ((_e163247163375_ (let () (declare (not safe)) - (gx#syntax-e _tl163260163390_)))) - (let ((_tl163263163400_ + (gx#syntax-e _tl163242163372_)))) + (let ((_tl163245163382_ (let () (declare (not safe)) - (##cdr _e163265163393_))) - (_hd163264163397_ + (##cdr _e163247163375_))) + (_hd163246163379_ (let () (declare (not safe)) - (##car _e163265163393_)))) + (##car _e163247163375_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl163263163400_)) - (let ((_e163268163403_ + (gx#stx-pair? _tl163245163382_)) + (let ((_e163250163385_ (let () (declare (not safe)) - (gx#syntax-e _tl163263163400_)))) - (let ((_tl163266163410_ + (gx#syntax-e _tl163245163382_)))) + (let ((_tl163248163392_ (let () (declare (not safe)) - (##cdr _e163268163403_))) - (_hd163267163407_ + (##cdr _e163250163385_))) + (_hd163249163389_ (let () (declare (not safe)) - (##car _e163268163403_)))) + (##car _e163250163385_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl163266163410_)) - (___kont164168164169_ - _hd163267163407_ - _hd163264163397_) + (gx#stx-null? _tl163248163392_)) + (___kont164150164151_ + _hd163249163389_ + _hd163246163379_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl163263163400_)) - (let ((___splice164172164173_ + _tl163245163382_)) + (let ((___splice164154164155_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl163263163400_ + _tl163245163382_ '0)))) - (let ((_tl163279163321_ + (let ((_tl163261163303_ (let () (declare (not safe)) (##vector-ref - ___splice164172164173_ + ___splice164154164155_ '1))) - (_target163277163318_ + (_target163259163300_ (let () (declare (not safe)) (##vector-ref - ___splice164172164173_ + ___splice164154164155_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl163279163321_)) - (___match164214164215_ - _e163262163383_ - _hd163261163387_ - _tl163260163390_ - _e163265163393_ - _hd163264163397_ - _tl163263163400_ - ___splice164172164173_ - _target163277163318_ - _tl163279163321_) + _tl163261163303_)) + (___match164196164197_ + _e163244163365_ + _hd163243163369_ + _tl163242163372_ + _e163247163375_ + _hd163246163379_ + _tl163245163382_ + ___splice164154164155_ + _target163259163300_ + _tl163261163303_) (let () (declare (not safe)) - (_g163256163291_))))) + (_g163238163273_))))) (let () (declare (not safe)) - (_g163256163291_)))))) + (_g163238163273_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl163263163400_)) - (let ((___splice164172164173_ + (gx#stx-pair/null? _tl163245163382_)) + (let ((___splice164154164155_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl163263163400_ + _tl163245163382_ '0)))) - (let ((_tl163279163321_ + (let ((_tl163261163303_ (let () (declare (not safe)) (##vector-ref - ___splice164172164173_ + ___splice164154164155_ '1))) - (_target163277163318_ + (_target163259163300_ (let () (declare (not safe)) (##vector-ref - ___splice164172164173_ + ___splice164154164155_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl163279163321_)) - (___match164214164215_ - _e163262163383_ - _hd163261163387_ - _tl163260163390_ - _e163265163393_ - _hd163264163397_ - _tl163263163400_ - ___splice164172164173_ - _target163277163318_ - _tl163279163321_) + (gx#stx-null? _tl163261163303_)) + (___match164196164197_ + _e163244163365_ + _hd163243163369_ + _tl163242163372_ + _e163247163375_ + _hd163246163379_ + _tl163245163382_ + ___splice164154164155_ + _target163259163300_ + _tl163261163303_) (let () (declare (not safe)) - (_g163256163291_))))) + (_g163238163273_))))) (let () (declare (not safe)) - (_g163256163291_)))))) - (let () (declare (not safe)) (_g163256163291_))))) - (let () (declare (not safe)) (_g163256163291_)))))))) + (_g163238163273_)))))) + (let () (declare (not safe)) (_g163238163273_))))) + (let () (declare (not safe)) (_g163238163273_)))))))) (define |gxc[:0:]#declare-primitive*| - (lambda (_$stx163435_) - (let* ((_g163439163474_ - (lambda (_g163440163470_) + (lambda (_$stx163417_) + (let* ((_g163421163456_ + (lambda (_g163422163452_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g163440163470_)))) - (_g163438163602_ - (lambda (_g163440163478_) + _g163422163452_)))) + (_g163420163584_ + (lambda (_g163422163460_) (if (let () (declare (not safe)) - (gx#stx-pair? _g163440163478_)) - (let ((_e163445163481_ + (gx#stx-pair? _g163422163460_)) + (let ((_e163427163463_ (let () (declare (not safe)) - (gx#syntax-e _g163440163478_)))) - (let ((_hd163444163485_ + (gx#syntax-e _g163422163460_)))) + (let ((_hd163426163467_ (let () (declare (not safe)) - (##car _e163445163481_))) - (_tl163443163488_ + (##car _e163427163463_))) + (_tl163425163470_ (let () (declare (not safe)) - (##cdr _e163445163481_)))) + (##cdr _e163427163463_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl163443163488_)) - (let ((_g164501_ + (gx#stx-pair/null? _tl163425163470_)) + (let ((_g164483_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl163443163488_ + _tl163425163470_ '0)))) (begin - (let ((_g164502_ + (let ((_g164484_ (let () (declare (not safe)) - (if (##values? _g164501_) - (##vector-length _g164501_) + (if (##values? _g164483_) + (##vector-length _g164483_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g164502_ 2))) + (##fx= _g164484_ 2))) (error "Context expects 2 values" - _g164502_))) - (let ((_target163446163491_ + _g164484_))) + (let ((_target163428163473_ (let () (declare (not safe)) - (##vector-ref _g164501_ 0))) - (_tl163448163494_ + (##vector-ref _g164483_ 0))) + (_tl163430163476_ (let () (declare (not safe)) - (##vector-ref _g164501_ 1)))) + (##vector-ref _g164483_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl163448163494_)) - (letrec ((_loop163449163497_ - (lambda (_hd163447163501_ - _arity163453163504_ - _prim163454163506_) + (gx#stx-null? _tl163430163476_)) + (letrec ((_loop163431163479_ + (lambda (_hd163429163483_ + _arity163435163486_ + _prim163436163488_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd163447163501_)) - (let ((_e163450163509_ + _hd163429163483_)) + (let ((_e163432163491_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd163447163501_)))) - (let ((_lp-hd163451163513_ - (let () (declare (not safe)) (##car _e163450163509_))) - (_lp-tl163452163516_ - (let () (declare (not safe)) (##cdr _e163450163509_)))) + (gx#syntax-e _hd163429163483_)))) + (let ((_lp-hd163433163495_ + (let () (declare (not safe)) (##car _e163432163491_))) + (_lp-tl163434163498_ + (let () (declare (not safe)) (##cdr _e163432163491_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd163451163513_)) - (let ((_e163459163519_ + (gx#stx-pair? _lp-hd163433163495_)) + (let ((_e163441163501_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd163451163513_)))) - (let ((_hd163458163523_ + (gx#syntax-e _lp-hd163433163495_)))) + (let ((_hd163440163505_ (let () (declare (not safe)) - (##car _e163459163519_))) - (_tl163457163526_ + (##car _e163441163501_))) + (_tl163439163508_ (let () (declare (not safe)) - (##cdr _e163459163519_)))) + (##cdr _e163441163501_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl163457163526_)) - (let ((_g164511_ + (gx#stx-pair/null? _tl163439163508_)) + (let ((_g164493_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl163457163526_ + _tl163439163508_ '0)))) (begin - (let ((_g164512_ + (let ((_g164494_ (let () (declare (not safe)) - (if (##values? _g164511_) - (##vector-length _g164511_) + (if (##values? _g164493_) + (##vector-length _g164493_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g164512_ 2))) + (##fx= _g164494_ 2))) (error "Context expects 2 values" - _g164512_))) - (let ((_target163460163529_ + _g164494_))) + (let ((_target163442163511_ (let () (declare (not safe)) - (##vector-ref _g164511_ 0))) - (_tl163462163532_ + (##vector-ref _g164493_ 0))) + (_tl163444163514_ (let () (declare (not safe)) - (##vector-ref _g164511_ 1)))) + (##vector-ref _g164493_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl163462163532_)) - (letrec ((_loop163463163535_ - (lambda (_hd163461163539_ - _arity163467163542_) + (gx#stx-null? _tl163444163514_)) + (letrec ((_loop163445163517_ + (lambda (_hd163443163521_ + _arity163449163524_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd163461163539_)) - (let ((_e163464163545_ + _hd163443163521_)) + (let ((_e163446163527_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd163461163539_)))) - (let ((_lp-hd163465163549_ - (let () (declare (not safe)) (##car _e163464163545_))) - (_lp-tl163466163552_ + (gx#syntax-e _hd163443163521_)))) + (let ((_lp-hd163447163531_ + (let () (declare (not safe)) (##car _e163446163527_))) + (_lp-tl163448163534_ (let () (declare (not safe)) - (##cdr _e163464163545_)))) - (_loop163463163535_ - _lp-tl163466163552_ + (##cdr _e163446163527_)))) + (_loop163445163517_ + _lp-tl163448163534_ (let () (declare (not safe)) - (cons _lp-hd163465163549_ _arity163467163542_))))) - (let ((_arity163468163555_ (reverse _arity163467163542_))) - (_loop163449163497_ - _lp-tl163452163516_ + (cons _lp-hd163447163531_ _arity163449163524_))))) + (let ((_arity163450163537_ (reverse _arity163449163524_))) + (_loop163431163479_ + _lp-tl163434163498_ (let () (declare (not safe)) - (cons _arity163468163555_ _arity163453163504_)) + (cons _arity163450163537_ _arity163435163486_)) (let () (declare (not safe)) - (cons _hd163458163523_ _prim163454163506_)))))))) + (cons _hd163440163505_ _prim163436163488_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop163463163535_ - _target163460163529_ + (_loop163445163517_ + _target163442163511_ '())) - (_g163439163474_ _g163440163478_))))) - (_g163439163474_ _g163440163478_)))) - (_g163439163474_ _g163440163478_)))) - (let ((_arity163455163559_ (reverse _arity163453163504_)) - (_prim163456163562_ (reverse _prim163454163506_))) - ((lambda (_L163565_ _L163567_) - (let ((__tmp164510 + (_g163421163456_ _g163422163460_))))) + (_g163421163456_ _g163422163460_)))) + (_g163421163456_ _g163422163460_)))) + (let ((_arity163437163541_ (reverse _arity163435163486_)) + (_prim163438163544_ (reverse _prim163436163488_))) + ((lambda (_L163547_ _L163549_) + (let ((__tmp164492 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp164503 + (__tmp164485 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L163565_ - _L163567_)) - (let ((__tmp164504 - (lambda (_g163582163588_ - _g163583163591_ - _g163584163593_) - (let ((__tmp164505 - (let ((__tmp164509 + _L163547_ + _L163549_)) + (let ((__tmp164486 + (lambda (_g163564163570_ + _g163565163573_ + _g163566163575_) + (let ((__tmp164487 + (let ((__tmp164491 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive))) - (__tmp164506 - (let ((__tmp164507 - (let ((__tmp164508 + (__tmp164488 + (let ((__tmp164489 + (let ((__tmp164490 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g163585163596_ _g163586163599_) + (lambda (_g163567163578_ _g163568163581_) (let () (declare (not safe)) - (cons _g163585163596_ _g163586163599_))))) + (cons _g163567163578_ _g163568163581_))))) (declare (not safe)) - (foldr1 __tmp164508 '() _g163582163588_)))) + (foldr1 __tmp164490 '() _g163564163570_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g163583163591_ - __tmp164507)))) + (cons _g163565163573_ + __tmp164489)))) (declare (not safe)) - (cons __tmp164509 __tmp164506)))) + (cons __tmp164491 __tmp164488)))) (declare (not safe)) - (cons __tmp164505 _g163584163593_))))) + (cons __tmp164487 _g163566163575_))))) (declare (not safe)) - (foldr2 __tmp164504 '() _L163565_ _L163567_))))) + (foldr2 __tmp164486 '() _L163547_ _L163549_))))) (declare (not safe)) - (cons __tmp164510 __tmp164503))) - _arity163455163559_ - _prim163456163562_)))))) + (cons __tmp164492 __tmp164485))) + _arity163437163541_ + _prim163438163544_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop163449163497_ - _target163446163491_ + (_loop163431163479_ + _target163428163473_ '() '())) - (_g163439163474_ _g163440163478_))))) - (_g163439163474_ _g163440163478_)))) - (_g163439163474_ _g163440163478_))))) - (_g163438163602_ _$stx163435_)))) + (_g163421163456_ _g163422163460_))))) + (_g163421163456_ _g163422163460_)))) + (_g163421163456_ _g163422163460_))))) + (_g163420163584_ _$stx163417_)))) (define |gxc[:0:]#declare-primitive/unchecked*| - (lambda (_$stx163608_) - (let* ((_g163612163647_ - (lambda (_g163613163643_) + (lambda (_$stx163590_) + (let* ((_g163594163629_ + (lambda (_g163595163625_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g163613163643_)))) - (_g163611163775_ - (lambda (_g163613163651_) + _g163595163625_)))) + (_g163593163757_ + (lambda (_g163595163633_) (if (let () (declare (not safe)) - (gx#stx-pair? _g163613163651_)) - (let ((_e163618163654_ + (gx#stx-pair? _g163595163633_)) + (let ((_e163600163636_ (let () (declare (not safe)) - (gx#syntax-e _g163613163651_)))) - (let ((_hd163617163658_ + (gx#syntax-e _g163595163633_)))) + (let ((_hd163599163640_ (let () (declare (not safe)) - (##car _e163618163654_))) - (_tl163616163661_ + (##car _e163600163636_))) + (_tl163598163643_ (let () (declare (not safe)) - (##cdr _e163618163654_)))) + (##cdr _e163600163636_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl163616163661_)) - (let ((_g164513_ + (gx#stx-pair/null? _tl163598163643_)) + (let ((_g164495_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl163616163661_ + _tl163598163643_ '0)))) (begin - (let ((_g164514_ + (let ((_g164496_ (let () (declare (not safe)) - (if (##values? _g164513_) - (##vector-length _g164513_) + (if (##values? _g164495_) + (##vector-length _g164495_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g164514_ 2))) + (##fx= _g164496_ 2))) (error "Context expects 2 values" - _g164514_))) - (let ((_target163619163664_ + _g164496_))) + (let ((_target163601163646_ (let () (declare (not safe)) - (##vector-ref _g164513_ 0))) - (_tl163621163667_ + (##vector-ref _g164495_ 0))) + (_tl163603163649_ (let () (declare (not safe)) - (##vector-ref _g164513_ 1)))) + (##vector-ref _g164495_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl163621163667_)) - (letrec ((_loop163622163670_ - (lambda (_hd163620163674_ - _arity163626163677_ - _prim163627163679_) + (gx#stx-null? _tl163603163649_)) + (letrec ((_loop163604163652_ + (lambda (_hd163602163656_ + _arity163608163659_ + _prim163609163661_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd163620163674_)) - (let ((_e163623163682_ + _hd163602163656_)) + (let ((_e163605163664_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd163620163674_)))) - (let ((_lp-hd163624163686_ - (let () (declare (not safe)) (##car _e163623163682_))) - (_lp-tl163625163689_ - (let () (declare (not safe)) (##cdr _e163623163682_)))) + (gx#syntax-e _hd163602163656_)))) + (let ((_lp-hd163606163668_ + (let () (declare (not safe)) (##car _e163605163664_))) + (_lp-tl163607163671_ + (let () (declare (not safe)) (##cdr _e163605163664_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd163624163686_)) - (let ((_e163632163692_ + (gx#stx-pair? _lp-hd163606163668_)) + (let ((_e163614163674_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd163624163686_)))) - (let ((_hd163631163696_ + (gx#syntax-e _lp-hd163606163668_)))) + (let ((_hd163613163678_ (let () (declare (not safe)) - (##car _e163632163692_))) - (_tl163630163699_ + (##car _e163614163674_))) + (_tl163612163681_ (let () (declare (not safe)) - (##cdr _e163632163692_)))) + (##cdr _e163614163674_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl163630163699_)) - (let ((_g164523_ + (gx#stx-pair/null? _tl163612163681_)) + (let ((_g164505_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl163630163699_ + _tl163612163681_ '0)))) (begin - (let ((_g164524_ + (let ((_g164506_ (let () (declare (not safe)) - (if (##values? _g164523_) - (##vector-length _g164523_) + (if (##values? _g164505_) + (##vector-length _g164505_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g164524_ 2))) + (##fx= _g164506_ 2))) (error "Context expects 2 values" - _g164524_))) - (let ((_target163633163702_ + _g164506_))) + (let ((_target163615163684_ (let () (declare (not safe)) - (##vector-ref _g164523_ 0))) - (_tl163635163705_ + (##vector-ref _g164505_ 0))) + (_tl163617163687_ (let () (declare (not safe)) - (##vector-ref _g164523_ 1)))) + (##vector-ref _g164505_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl163635163705_)) - (letrec ((_loop163636163708_ - (lambda (_hd163634163712_ - _arity163640163715_) + (gx#stx-null? _tl163617163687_)) + (letrec ((_loop163618163690_ + (lambda (_hd163616163694_ + _arity163622163697_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd163634163712_)) - (let ((_e163637163718_ + _hd163616163694_)) + (let ((_e163619163700_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd163634163712_)))) - (let ((_lp-hd163638163722_ - (let () (declare (not safe)) (##car _e163637163718_))) - (_lp-tl163639163725_ + (gx#syntax-e _hd163616163694_)))) + (let ((_lp-hd163620163704_ + (let () (declare (not safe)) (##car _e163619163700_))) + (_lp-tl163621163707_ (let () (declare (not safe)) - (##cdr _e163637163718_)))) - (_loop163636163708_ - _lp-tl163639163725_ + (##cdr _e163619163700_)))) + (_loop163618163690_ + _lp-tl163621163707_ (let () (declare (not safe)) - (cons _lp-hd163638163722_ _arity163640163715_))))) - (let ((_arity163641163728_ (reverse _arity163640163715_))) - (_loop163622163670_ - _lp-tl163625163689_ + (cons _lp-hd163620163704_ _arity163622163697_))))) + (let ((_arity163623163710_ (reverse _arity163622163697_))) + (_loop163604163652_ + _lp-tl163607163671_ (let () (declare (not safe)) - (cons _arity163641163728_ _arity163626163677_)) + (cons _arity163623163710_ _arity163608163659_)) (let () (declare (not safe)) - (cons _hd163631163696_ _prim163627163679_)))))))) + (cons _hd163613163678_ _prim163609163661_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop163636163708_ - _target163633163702_ + (_loop163618163690_ + _target163615163684_ '())) - (_g163612163647_ _g163613163651_))))) - (_g163612163647_ _g163613163651_)))) - (_g163612163647_ _g163613163651_)))) - (let ((_arity163628163732_ (reverse _arity163626163677_)) - (_prim163629163735_ (reverse _prim163627163679_))) - ((lambda (_L163738_ _L163740_) - (let ((__tmp164522 + (_g163594163629_ _g163595163633_))))) + (_g163594163629_ _g163595163633_)))) + (_g163594163629_ _g163595163633_)))) + (let ((_arity163610163714_ (reverse _arity163608163659_)) + (_prim163611163717_ (reverse _prim163609163661_))) + ((lambda (_L163720_ _L163722_) + (let ((__tmp164504 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp164515 + (__tmp164497 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L163738_ - _L163740_)) - (let ((__tmp164516 - (lambda (_g163755163761_ - _g163756163764_ - _g163757163766_) - (let ((__tmp164517 - (let ((__tmp164521 + _L163720_ + _L163722_)) + (let ((__tmp164498 + (lambda (_g163737163743_ + _g163738163746_ + _g163739163748_) + (let ((__tmp164499 + (let ((__tmp164503 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive/unchecked))) - (__tmp164518 - (let ((__tmp164519 - (let ((__tmp164520 + (__tmp164500 + (let ((__tmp164501 + (let ((__tmp164502 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g163758163769_ _g163759163772_) + (lambda (_g163740163751_ _g163741163754_) (let () (declare (not safe)) - (cons _g163758163769_ _g163759163772_))))) + (cons _g163740163751_ _g163741163754_))))) (declare (not safe)) - (foldr1 __tmp164520 '() _g163755163761_)))) + (foldr1 __tmp164502 '() _g163737163743_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g163756163764_ - __tmp164519)))) + (cons _g163738163746_ + __tmp164501)))) (declare (not safe)) - (cons __tmp164521 __tmp164518)))) + (cons __tmp164503 __tmp164500)))) (declare (not safe)) - (cons __tmp164517 _g163757163766_))))) + (cons __tmp164499 _g163739163748_))))) (declare (not safe)) - (foldr2 __tmp164516 '() _L163738_ _L163740_))))) + (foldr2 __tmp164498 '() _L163720_ _L163722_))))) (declare (not safe)) - (cons __tmp164522 __tmp164515))) - _arity163628163732_ - _prim163629163735_)))))) + (cons __tmp164504 __tmp164497))) + _arity163610163714_ + _prim163611163717_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop163622163670_ - _target163619163664_ + (_loop163604163652_ + _target163601163646_ '() '())) - (_g163612163647_ _g163613163651_))))) - (_g163612163647_ _g163613163651_)))) - (_g163612163647_ _g163613163651_))))) - (_g163611163775_ _$stx163608_))))) + (_g163594163629_ _g163595163633_))))) + (_g163594163629_ _g163595163633_)))) + (_g163594163629_ _g163595163633_))))) + (_g163593163757_ _$stx163590_))))) diff --git a/src/bootstrap/gerbil/core/macro-object~0.scm b/src/bootstrap/gerbil/core/macro-object~0.scm index 25efe71ff..9052313fb 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 1710833422) + (define gerbil/core/macro-object::timestamp 1710943495) (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 a47371755..fe17be88c 100644 --- a/src/bootstrap/gerbil/core/match~1.scm +++ b/src/bootstrap/gerbil/core/match~1.scm @@ -4139,12 +4139,12 @@ (let () (declare (not safe)) (##cdr _e3808938122_)))) - (let ((__tmp48579 + (let ((__tmp48554 (let () (declare (not safe)) (cons _lp-hd3809038126_ _var3809238119_)))) (declare (not safe)) - (_loop3808838112_ _lp-tl3809138129_ __tmp48579)))) + (_loop3808838112_ _lp-tl3809138129_ __tmp48554)))) (let ((_var3809338132_ (reverse _var3809238119_))) ((lambda (_L38136_) (let () @@ -4202,7 +4202,7 @@ (let () (declare (not safe)) (##cdr _e3815938192_)))) - (let ((__tmp48576 + (let ((__tmp48551 (let () (declare (not safe)) (cons _lp-hd3816038196_ @@ -4210,7 +4210,7 @@ (declare (not safe)) (_loop3815838182_ _lp-tl3816138199_ - __tmp48576)))) + __tmp48551)))) (let ((_var-r3816338202_ (reverse _var-r3816238189_))) ((lambda (_L38206_) @@ -4735,12 +4735,12 @@ (foldr1 __tmp48549 '() _L38136_))) - (let ((__tmp48575 + (let ((__tmp48550 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp48575 '()))))) + (cons __tmp48550 '()))))) (declare (not safe)) (_g3822238675_ __tmp48548)))) _var-r3816338202_)))))) @@ -4757,9 +4757,9 @@ (let () (declare (not safe)) (_g3815238169_ _g3815338173_))))) - (__tmp48577 + (__tmp48552 (gx#gentemps - (let ((__tmp48578 + (let ((__tmp48553 (lambda (_g3869038693_ _g3869138696_) (let () @@ -4767,9 +4767,9 @@ (cons _g3869038693_ _g3869138696_))))) (declare (not safe)) - (foldr1 __tmp48578 '() _L38136_))))) + (foldr1 __tmp48553 '() _L38136_))))) (declare (not safe)) - (_g3815138687_ __tmp48577)))) + (_g3815138687_ __tmp48552)))) _var3809338132_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () @@ -4784,13 +4784,13 @@ (let () (declare (not safe)) (_g3808238099_ _g3808338103_))))) - (__tmp48580 + (__tmp48555 (let () (declare (not safe)) (|gerbil/core/match[1]#match-pattern-vars| _hd38077_)))) (declare (not safe)) - (_g3808138699_ __tmp48580)))) + (_g3808138699_ __tmp48555)))) (_generate-simple-vector37461_ (lambda (_tgt37917_ _body37919_ @@ -4853,49 +4853,49 @@ (if (gx#stx-null? _tl3800038042_) ((lambda (_L38045_ _L38047_ _L38048_) (let () - (let ((__tmp48581 - (let ((__tmp48586 - (let ((__tmp48587 - (let ((__tmp48588 - (let ((__tmp48589 + (let ((__tmp48556 + (let ((__tmp48561 + (let ((__tmp48562 + (let ((__tmp48563 + (let ((__tmp48564 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48592 + (let ((__tmp48567 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48590 - (let ((__tmp48591 + (__tmp48565 + (let ((__tmp48566 (let () (declare (not safe)) (cons _L38045_ '())))) (declare (not safe)) - (cons _L38047_ __tmp48591)))) + (cons _L38047_ __tmp48566)))) (declare (not safe)) - (cons __tmp48592 __tmp48590)))) + (cons __tmp48567 __tmp48565)))) (declare (not safe)) - (cons __tmp48589 '())))) + (cons __tmp48564 '())))) (declare (not safe)) - (cons _L38048_ __tmp48588)))) + (cons _L38048_ __tmp48563)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48587 '()))) - (__tmp48582 - (let ((__tmp48583 - (let ((__tmp48584 - (let ((__tmp48585 + (cons __tmp48562 '()))) + (__tmp48557 + (let ((__tmp48558 + (let ((__tmp48559 + (let ((__tmp48560 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (fx+ _off37929_ '1)))) (declare (not safe)) - (_recur37924_ _L37972_ __tmp48585)))) + (_recur37924_ _L37972_ __tmp48560)))) (declare (not safe)) - (_generate137458_ _L38048_ _L37974_ __tmp48584 _E37922_)))) + (_generate137458_ _L38048_ _L37974_ __tmp48559 _E37922_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48583 '())))) + (cons __tmp48558 '())))) (declare (not safe)) - (cons __tmp48586 __tmp48582)))) + (cons __tmp48561 __tmp48557)))) (declare (not safe)) - (cons 'let __tmp48581)))) + (cons 'let __tmp48556)))) _hd3800138039_ _hd3799838029_ _hd3799538019_) @@ -4911,12 +4911,12 @@ (declare (not safe)) (_g3798938008_ _g3799038012_))))) - (__tmp48593 + (__tmp48568 (list (gx#genident 'e) _tgt37917_ _off37929_))) (declare (not safe)) - (_g3798838067_ __tmp48593)))) + (_g3798838067_ __tmp48568)))) (___kont4739347394_ (lambda () _K37921_))) (if (gx#stx-pair? ___stx4738847389_) (let ((_e3793837962_ @@ -4971,19 +4971,19 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp48594 - (let ((__tmp48597 - (let ((__tmp48598 - (let ((__tmp48599 + (let ((__tmp48569 + (let ((__tmp48572 + (let ((__tmp48573 + (let ((__tmp48574 (let () (declare (not safe)) (cons _L37886_ '())))) (declare (not safe)) - (cons _L37831_ __tmp48599)))) + (cons _L37831_ __tmp48574)))) (declare (not safe)) - (cons __tmp48598 '()))) - (__tmp48595 - (let ((__tmp48596 + (cons __tmp48573 '()))) + (__tmp48570 + (let ((__tmp48571 (let () (declare (not safe)) (_generate137458_ @@ -4992,56 +4992,56 @@ _K37813_ _E37814_)))) (declare (not safe)) - (cons __tmp48596 '())))) + (cons __tmp48571 '())))) (declare (not safe)) - (cons __tmp48597 __tmp48595)))) + (cons __tmp48572 __tmp48570)))) (declare (not safe)) - (cons 'let __tmp48594))))) + (cons 'let __tmp48569))))) _g3787237883_))) - (__tmp48600 + (__tmp48575 (let ((_$e37905_ _->list37812_)) (if (let () (declare (not safe)) (eq? 'values->list _$e37905_)) - (let ((__tmp48609 (gx#datum->syntax '#f 'values->list)) - (__tmp48608 + (let ((__tmp48584 (gx#datum->syntax '#f 'values->list)) + (__tmp48583 (let () (declare (not safe)) (cons _L37858_ '())))) (declare (not safe)) - (cons __tmp48609 __tmp48608)) + (cons __tmp48584 __tmp48583)) (if (let () (declare (not safe)) (eq? 'vector->list _$e37905_)) - (let ((__tmp48607 + (let ((__tmp48582 (gx#datum->syntax '#f '##vector->list)) - (__tmp48606 + (__tmp48581 (let () (declare (not safe)) (cons _L37858_ '())))) (declare (not safe)) - (cons __tmp48607 __tmp48606)) + (cons __tmp48582 __tmp48581)) (if (let () (declare (not safe)) (eq? 'struct->list _$e37905_)) - (let ((__tmp48605 + (let ((__tmp48580 (gx#datum->syntax '#f '##cdr)) - (__tmp48601 - (let ((__tmp48602 - (let ((__tmp48604 + (__tmp48576 + (let ((__tmp48577 + (let ((__tmp48579 (gx#datum->syntax '#f '##structure->list)) - (__tmp48603 + (__tmp48578 (let () (declare (not safe)) (cons _L37858_ '())))) (declare (not safe)) - (cons __tmp48604 __tmp48603)))) + (cons __tmp48579 __tmp48578)))) (declare (not safe)) - (cons __tmp48602 '())))) + (cons __tmp48577 '())))) (declare (not safe)) - (cons __tmp48605 __tmp48601)) + (cons __tmp48580 __tmp48576)) (gx#raise-syntax-error '#f '"Unexpected list conversion" @@ -5050,14 +5050,14 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (_g3787037901_ - __tmp48600)))) + __tmp48575)))) _g3784437855_)))) (declare (not safe)) (_g3784237909_ _tgt37809_)))) _g3781737828_))) - (__tmp48610 (gx#genident 'e))) + (__tmp48585 (gx#genident 'e))) (declare (not safe)) - (_g3781537913_ __tmp48610)))) + (_g3781537913_ __tmp48585)))) (_generate-struct37463_ (lambda (_info37680_ _tgt37682_ diff --git a/src/bootstrap/gerbil/core/match~2.scm b/src/bootstrap/gerbil/core/match~2.scm index 384e0d2d1..2e8375919 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]#_g48552_| + (define |gerbil/core/match[2]#_g48588_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g48554_| + (define |gerbil/core/match[2]#_g48590_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g48556_| + (define |gerbil/core/match[2]#_g48592_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g48558_| + (define |gerbil/core/match[2]#_g48594_| (##structure gx#syntax-quote::t 'match-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g48562_| + (define |gerbil/core/match[2]#_g48598_| (##structure gx#syntax-quote::t 'match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g48566_| + (define |gerbil/core/match[2]#_g48602_| (##structure gx#syntax-quote::t 'match-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g48570_| + (define |gerbil/core/match[2]#_g48606_| (##structure gx#syntax-quote::t '&match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g48574_| + (define |gerbil/core/match[2]#_g48610_| (##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 ((__tmp48550 - (let ((__tmp48551 |gerbil/core/match[2]#_g48552_|)) + (let ((__tmp48586 + (let ((__tmp48587 |gerbil/core/match[2]#_g48588_|)) (declare (not safe)) - (cons __tmp48551 '())))) + (cons __tmp48587 '())))) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48550 + __tmp48586 '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 ((__tmp48553 |gerbil/core/match[2]#_g48554_|)) + (let ((__tmp48589 |gerbil/core/match[2]#_g48590_|)) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48553 + __tmp48589 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp48555 |gerbil/core/match[2]#_g48556_|)) + (let ((__tmp48591 |gerbil/core/match[2]#_g48592_|)) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48555 + __tmp48591 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp48557 |gerbil/core/match[2]#_g48558_|)) + (let ((__tmp48593 |gerbil/core/match[2]#_g48594_|)) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48557 + __tmp48593 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp48559 - (let ((__tmp48560 - (let ((__tmp48561 |gerbil/core/match[2]#_g48562_|)) + (let ((__tmp48595 + (let ((__tmp48596 + (let ((__tmp48597 |gerbil/core/match[2]#_g48598_|)) (declare (not safe)) - (cons 'macro __tmp48561)))) + (cons 'macro __tmp48597)))) (declare (not safe)) - (cons __tmp48560 '())))) + (cons __tmp48596 '())))) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48559 + __tmp48595 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp48563 - (let ((__tmp48564 - (let ((__tmp48565 |gerbil/core/match[2]#_g48566_|)) + (let ((__tmp48599 + (let ((__tmp48600 + (let ((__tmp48601 |gerbil/core/match[2]#_g48602_|)) (declare (not safe)) - (cons 'macro __tmp48565)))) + (cons 'macro __tmp48601)))) (declare (not safe)) - (cons __tmp48564 '())))) + (cons __tmp48600 '())))) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48563 + __tmp48599 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp48567 - (let ((__tmp48568 - (let ((__tmp48569 |gerbil/core/match[2]#_g48570_|)) + (let ((__tmp48603 + (let ((__tmp48604 + (let ((__tmp48605 |gerbil/core/match[2]#_g48606_|)) (declare (not safe)) - (cons 'macro __tmp48569)))) + (cons 'macro __tmp48605)))) (declare (not safe)) - (cons __tmp48568 '())))) + (cons __tmp48604 '())))) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48567 + __tmp48603 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp48571 - (let ((__tmp48572 - (let ((__tmp48573 |gerbil/core/match[2]#_g48574_|)) + (let ((__tmp48607 + (let ((__tmp48608 + (let ((__tmp48609 |gerbil/core/match[2]#_g48610_|)) (declare (not safe)) - (cons 'macro __tmp48573)))) + (cons 'macro __tmp48609)))) (declare (not safe)) - (cons __tmp48572 '())))) + (cons __tmp48608 '())))) (declare (not safe)) (##unchecked-structure-set! __obj48157 - __tmp48571 + __tmp48607 '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 2f3c238c2..c8287a928 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 1710833422) + (define gerbil/core/mop~MOP-2::timestamp 1710943495) (begin (define gerbil/core/mop~MOP-2#class-type-info::t (let ((__tmp34653 (list))) diff --git a/src/bootstrap/gerbil/core/sugar~2.scm b/src/bootstrap/gerbil/core/sugar~2.scm index 6e5a8cd16..8852495db 100644 --- a/src/bootstrap/gerbil/core/sugar~2.scm +++ b/src/bootstrap/gerbil/core/sugar~2.scm @@ -18,84 +18,84 @@ #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g28331_| + (define |gerbil/core/sugar~Sugar-2[1]#_g28416_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g28332_| + (define |gerbil/core/sugar~Sugar-2[1]#_g28417_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g28405_| + (define |gerbil/core/sugar~Sugar-2[1]#_g28490_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g28406_| + (define |gerbil/core/sugar~Sugar-2[1]#_g28491_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g28408_| + (define |gerbil/core/sugar~Sugar-2[1]#_g28493_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g28409_| + (define |gerbil/core/sugar~Sugar-2[1]#_g28494_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g28454_| + (define |gerbil/core/sugar~Sugar-2[1]#_g28539_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g28455_| + (define |gerbil/core/sugar~Sugar-2[1]#_g28540_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g28456_| + (define |gerbil/core/sugar~Sugar-2[1]#_g28541_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g28457_| + (define |gerbil/core/sugar~Sugar-2[1]#_g28542_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g28469_| + (define |gerbil/core/sugar~Sugar-2[1]#_g28554_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g28470_| + (define |gerbil/core/sugar~Sugar-2[1]#_g28555_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) (begin (define |gerbil/core/sugar~Sugar-2[:0:]#lambda| @@ -11348,13 +11348,13 @@ (lambda (_L21718_ _L21720_) _x21639_)) (___kont2624626247_ (lambda (_L21679_) - (let ((__tmp28330 (gx#datum->syntax '#f '_)) - (__tmp28329 + (let ((__tmp28415 (gx#datum->syntax '#f '_)) + (__tmp28414 (let () (declare (not safe)) (cons _L21679_ '())))) (declare (not safe)) - (cons __tmp28330 __tmp28329))))) + (cons __tmp28415 __tmp28414))))) (if (gx#stx-pair? ___stx2624126242_) (let ((_e2164921698_ (gx#syntax-e ___stx2624126242_))) @@ -11417,7 +11417,7 @@ (##car _e2158821612_)))) (if (gx#identifier? _hd2158721616_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g28331_| + |gerbil/core/sugar~Sugar-2[1]#_g28416_| _hd2158721616_) (___kont2627626277_ _tl2158621619_) (___kont2627826279_)) @@ -11447,7 +11447,7 @@ (##car _e2152821552_)))) (if (gx#identifier? _hd2152721556_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g28332_| + |gerbil/core/sugar~Sugar-2[1]#_g28417_| _hd2152721556_) (___kont2629626297_ _tl2152621559_) (___kont2629826299_)) @@ -11462,32 +11462,32 @@ ___stx2631326314_)))) (let ((___kont2631626317_ (lambda (_L21492_ _L21494_ _L21495_ _L21496_) - (let ((__tmp28333 - (let ((__tmp28334 - (let ((__tmp28335 - (let ((__tmp28336 + (let ((__tmp28418 + (let ((__tmp28419 + (let ((__tmp28420 + (let ((__tmp28421 (let () (declare (not safe)) (cons _L21494_ '())))) (declare (not safe)) - (cons _L21495_ __tmp28336)))) + (cons _L21495_ __tmp28421)))) (declare (not safe)) - (cons __tmp28335 '())))) + (cons __tmp28420 '())))) (declare (not safe)) - (cons __tmp28334 _L21492_)))) + (cons __tmp28419 _L21492_)))) (declare (not safe)) - (cons _L21496_ __tmp28333)))) + (cons _L21496_ __tmp28418)))) (___kont2631826319_ (lambda (_L21414_ _L21416_) - (let ((__tmp28344 (gx#datum->syntax '#f 'and)) - (__tmp28337 - (let ((__tmp28338 - (let ((__tmp28339 - (let ((__tmp28343 + (let ((__tmp28429 (gx#datum->syntax '#f 'and)) + (__tmp28422 + (let ((__tmp28423 + (let ((__tmp28424 + (let ((__tmp28428 (gx#datum->syntax '#f 'let)) - (__tmp28340 - (let ((__tmp28341 - (let ((__tmp28342 + (__tmp28425 + (let ((__tmp28426 + (let ((__tmp28427 (lambda (_g2143621439_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2143721442_) @@ -11495,18 +11495,18 @@ (declare (not safe)) (cons _g2143621439_ _g2143721442_))))) (declare (not safe)) - (foldr1 __tmp28342 '() _L21414_)))) + (foldr1 __tmp28427 '() _L21414_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp28341)))) + (cons '() __tmp28426)))) (declare (not safe)) - (cons __tmp28343 __tmp28340)))) + (cons __tmp28428 __tmp28425)))) (declare (not safe)) - (cons __tmp28339 '())))) + (cons __tmp28424 '())))) (declare (not safe)) - (cons _L21416_ __tmp28338)))) + (cons _L21416_ __tmp28423)))) (declare (not safe)) - (cons __tmp28344 __tmp28337)))) + (cons __tmp28429 __tmp28422)))) (___kont2632226323_ (lambda (_L20981_ _L20983_) (let* ((_g2101421040_ @@ -11518,30 +11518,30 @@ (_g2101321325_ (lambda (_g2101521044_) (if (gx#stx-pair/null? _g2101521044_) - (let ((_g28345_ + (let ((_g28430_ (gx#syntax-split-splice _g2101521044_ '0))) (begin - (let ((_g28346_ + (let ((_g28431_ (let () (declare (not safe)) - (if (##values? _g28345_) - (##vector-length _g28345_) + (if (##values? _g28430_) + (##vector-length _g28430_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g28346_ 2))) + (##fx= _g28431_ 2))) (error "Context expects 2 values" - _g28346_))) + _g28431_))) (let ((_target2101821047_ (let () (declare (not safe)) - (##vector-ref _g28345_ 0))) + (##vector-ref _g28430_ 0))) (_tl2102021050_ (let () (declare (not safe)) - (##vector-ref _g28345_ 1)))) + (##vector-ref _g28430_ 1)))) (if (gx#stx-null? _tl2102021050_) (letrec ((_loop2102121053_ (lambda (_hd2101921057_ @@ -11609,34 +11609,34 @@ (_g2111821313_ (lambda (_g2112021140_) (if (gx#stx-pair/null? _g2112021140_) - (let ((_g28347_ + (let ((_g28432_ (gx#syntax-split-splice _g2112021140_ '0))) (begin - (let ((_g28348_ + (let ((_g28433_ (let () (declare (not safe)) - (if (##values? _g28347_) + (if (##values? _g28432_) (##vector-length - _g28347_) + _g28432_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g28348_ 2))) + (##fx= _g28433_ 2))) (error "Context expects 2 values" - _g28348_))) + _g28433_))) (let ((_target2112221143_ (let () (declare (not safe)) (##vector-ref - _g28347_ + _g28432_ 0))) (_tl2112421146_ (let () (declare (not safe)) (##vector-ref - _g28347_ + _g28432_ 1)))) (if (gx#stx-null? _tl2112421146_) @@ -11672,36 +11672,36 @@ (lambda (_g2119121211_) (if (gx#stx-pair/null? _g2119121211_) - (let ((_g28349_ + (let ((_g28434_ (gx#syntax-split-splice _g2119121211_ '0))) (begin - (let ((_g28350_ + (let ((_g28435_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g28349_) - (##vector-length _g28349_) + _g28434_) + (##vector-length _g28434_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g28350_ 2))) - (error "Context expects 2 values" _g28350_))) + (if (not (let () (declare (not safe)) (##fx= _g28435_ 2))) + (error "Context expects 2 values" _g28435_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2119321214_ (let () (declare (not safe)) (##vector-ref - _g28349_ + _g28434_ 0))) (_tl2119521217_ (let () (declare (not safe)) (##vector-ref - _g28349_ + _g28434_ 1)))) (if (gx#stx-null? _tl2119521217_) @@ -11730,99 +11730,99 @@ ((lambda (_L21244_) (let () (let () - (let ((__tmp28372 + (let ((__tmp28457 (gx#datum->syntax '#f 'let-values)) - (__tmp28351 - (let ((__tmp28367 + (__tmp28436 + (let ((__tmp28452 (begin (gx#syntax-check-splice-targets _L21101_ _L21173_) - (let ((__tmp28368 + (let ((__tmp28453 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g2126921273_ _g2127021276_ _g2127121278_) - (let ((__tmp28369 - (let ((__tmp28371 + (let ((__tmp28454 + (let ((__tmp28456 (let () (declare (not safe)) (cons _g2127021276_ '()))) - (__tmp28370 + (__tmp28455 (let () (declare (not safe)) (cons _g2126921273_ '())))) (declare (not safe)) - (cons __tmp28371 __tmp28370)))) + (cons __tmp28456 __tmp28455)))) (declare (not safe)) - (cons __tmp28369 _g2127121278_))))) + (cons __tmp28454 _g2127121278_))))) (declare (not safe)) - (foldr2 __tmp28368 '() _L21101_ _L21173_)))) - (__tmp28352 - (let ((__tmp28353 - (let ((__tmp28366 (gx#datum->syntax '#f 'and)) - (__tmp28354 - (let ((__tmp28365 + (foldr2 __tmp28453 '() _L21101_ _L21173_)))) + (__tmp28437 + (let ((__tmp28438 + (let ((__tmp28451 (gx#datum->syntax '#f 'and)) + (__tmp28439 + (let ((__tmp28450 (lambda (_g2126221281_ _g2126321284_) (let () (declare (not safe)) (cons _g2126221281_ _g2126321284_)))) - (__tmp28355 - (let ((__tmp28356 - (let ((__tmp28364 + (__tmp28440 + (let ((__tmp28441 + (let ((__tmp28449 (gx#datum->syntax '#f 'let-values)) - (__tmp28357 - (let ((__tmp28360 + (__tmp28442 + (let ((__tmp28445 (begin (gx#syntax-check-splice-targets _L21173_ _L21244_) - (let ((__tmp28361 + (let ((__tmp28446 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g2126621287_ _g2126721290_ _g2126821292_) - (let ((__tmp28362 - (let ((__tmp28363 + (let ((__tmp28447 + (let ((__tmp28448 (let () (declare (not safe)) (cons _g2126621287_ '())))) (declare (not safe)) - (cons _g2126721290_ __tmp28363)))) + (cons _g2126721290_ __tmp28448)))) (declare (not safe)) - (cons __tmp28362 _g2126821292_))))) + (cons __tmp28447 _g2126821292_))))) (declare (not safe)) - (foldr2 __tmp28361 '() _L21173_ _L21244_)))) - (__tmp28358 - (let ((__tmp28359 + (foldr2 __tmp28446 '() _L21173_ _L21244_)))) + (__tmp28443 + (let ((__tmp28444 (lambda (_g2126421295_ _g2126521298_) (let () (declare (not safe)) (cons _g2126421295_ _g2126521298_))))) (declare (not safe)) - (foldr1 __tmp28359 '() _L20981_)))) + (foldr1 __tmp28444 '() _L20981_)))) (declare (not safe)) - (cons __tmp28360 __tmp28358)))) + (cons __tmp28445 __tmp28443)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp28364 __tmp28357)))) + (cons __tmp28449 __tmp28442)))) (declare (not safe)) - (cons __tmp28356 '())))) + (cons __tmp28441 '())))) (declare (not safe)) - (foldr1 __tmp28365 __tmp28355 _L21173_)))) + (foldr1 __tmp28450 __tmp28440 _L21173_)))) (declare (not safe)) - (cons __tmp28366 __tmp28354)))) + (cons __tmp28451 __tmp28439)))) (declare (not safe)) - (cons __tmp28353 '())))) + (cons __tmp28438 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp28367 - __tmp28352)))) + (cons __tmp28452 + __tmp28437)))) (declare (not safe)) - (cons __tmp28372 __tmp28351))))) + (cons __tmp28457 __tmp28436))))) _hd-bind2120121240_)))))) (_loop2119621220_ _target2119321214_ '())) (_g2119021207_ _g2119121211_))))) @@ -11832,7 +11832,7 @@ (_g2118921301_ (gx#stx-map _let-head20818_ - (let ((__tmp28373 + (let ((__tmp28458 (lambda (_g2130421307_ _g2130521310_) (let () @@ -11840,7 +11840,7 @@ (cons _g2130421307_ _g2130521310_))))) (declare (not safe)) - (foldr1 __tmp28373 '() _L21103_))))))) + (foldr1 __tmp28458 '() _L21103_))))))) _$e2113021169_)))))) (_loop2112521149_ _target2112221143_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11849,14 +11849,14 @@ (_g2111921136_ _g2112021140_))))) (_g2111821313_ (gx#gentemps - (let ((__tmp28374 + (let ((__tmp28459 (lambda (_g2131621319_ _g2131721322_) (let () (declare (not safe)) (cons _g2131621319_ _g2131721322_))))) (declare (not safe)) - (foldr1 __tmp28374 '() _L21103_))))))) + (foldr1 __tmp28459 '() _L21103_))))))) _e2102721095_ _hd2102821098_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11869,13 +11869,13 @@ (_g2101321325_ (gx#stx-map _let-bind20816_ - (let ((__tmp28375 + (let ((__tmp28460 (lambda (_g2132821331_ _g2132921334_) (let () (declare (not safe)) (cons _g2132821331_ _g2132921334_))))) (declare (not safe)) - (foldr1 __tmp28375 '() _L20983_)))))))) + (foldr1 __tmp28460 '() _L20983_)))))))) (let* ((___match2641026411_ (lambda (_e2086720901_ _hd2086620905_ @@ -11954,7 +11954,7 @@ (_L20983_ _bind2087920947_)) (if (gx#stx-andmap _let-bind?20814_ - (let ((__tmp28376 + (let ((__tmp28461 (lambda (_g2100521008_ _g2100621011_) (let () @@ -11962,7 +11962,7 @@ (cons _g2100521008_ _g2100621011_))))) (declare (not safe)) - (foldr1 __tmp28376 '() _L20983_))) + (foldr1 __tmp28461 '() _L20983_))) (___kont2632226323_ _L20981_ _L20983_) (let () (declare (not safe)) @@ -12475,34 +12475,34 @@ (let ((___kont2641626417_ (lambda () '#t)) (___kont2641826419_ (lambda (_L22069_) - (let ((__tmp28380 (gx#datum->syntax '#f 'let)) - (__tmp28377 - (let ((__tmp28378 - (let ((__tmp28379 + (let ((__tmp28465 (gx#datum->syntax '#f 'let)) + (__tmp28462 + (let ((__tmp28463 + (let ((__tmp28464 (lambda (_g2208522088_ _g2208622091_) (let () (declare (not safe)) (cons _g2208522088_ _g2208622091_))))) (declare (not safe)) - (foldr1 __tmp28379 '() _L22069_)))) + (foldr1 __tmp28464 '() _L22069_)))) (declare (not safe)) - (cons '() __tmp28378)))) + (cons '() __tmp28463)))) (declare (not safe)) - (cons __tmp28380 __tmp28377)))) + (cons __tmp28465 __tmp28462)))) (___kont2642226423_ (lambda (_L21978_ _L21980_ _L21981_ _L21982_) - (let ((__tmp28388 (gx#datum->syntax '#f 'alet)) - (__tmp28381 - (let ((__tmp28387 + (let ((__tmp28473 (gx#datum->syntax '#f 'alet)) + (__tmp28466 + (let ((__tmp28472 (let () (declare (not safe)) (cons _L21981_ '()))) - (__tmp28382 - (let ((__tmp28383 - (let ((__tmp28384 - (let ((__tmp28385 - (let ((__tmp28386 + (__tmp28467 + (let ((__tmp28468 + (let ((__tmp28469 + (let ((__tmp28470 + (let ((__tmp28471 (lambda (_g2200322006_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2200422009_) @@ -12510,18 +12510,18 @@ (declare (not safe)) (cons _g2200322006_ _g2200422009_))))) (declare (not safe)) - (foldr1 __tmp28386 '() _L21978_)))) + (foldr1 __tmp28471 '() _L21978_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L21980_ __tmp28385)))) + (cons _L21980_ __tmp28470)))) (declare (not safe)) - (cons _L21982_ __tmp28384)))) + (cons _L21982_ __tmp28469)))) (declare (not safe)) - (cons __tmp28383 '())))) + (cons __tmp28468 '())))) (declare (not safe)) - (cons __tmp28387 __tmp28382)))) + (cons __tmp28472 __tmp28467)))) (declare (not safe)) - (cons __tmp28388 __tmp28381))))) + (cons __tmp28473 __tmp28466))))) (let* ((___match2649026491_ (lambda (_e2189021918_ _hd2188921922_ @@ -12717,62 +12717,62 @@ ___stx2649326494_)))) (let ((___kont2649626497_ (lambda () - (let ((__tmp28390 (gx#datum->syntax '#f 'quote)) - (__tmp28389 + (let ((__tmp28475 (gx#datum->syntax '#f 'quote)) + (__tmp28474 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp28390 __tmp28389)))) + (cons __tmp28475 __tmp28474)))) (___kont2649826499_ (lambda (_L22551_) - (let ((__tmp28392 (gx#datum->syntax '#f 'quote)) - (__tmp28391 + (let ((__tmp28477 (gx#datum->syntax '#f 'quote)) + (__tmp28476 (let () (declare (not safe)) (cons _L22551_ '())))) (declare (not safe)) - (cons __tmp28392 __tmp28391)))) + (cons __tmp28477 __tmp28476)))) (___kont2650026501_ (lambda (_L22499_) - (let ((__tmp28394 (gx#datum->syntax '#f 'quasiquote)) - (__tmp28393 + (let ((__tmp28479 (gx#datum->syntax '#f 'quasiquote)) + (__tmp28478 (let () (declare (not safe)) (cons _L22499_ '())))) (declare (not safe)) - (cons __tmp28394 __tmp28393)))) + (cons __tmp28479 __tmp28478)))) (___kont2650226503_ (lambda (_L22446_) _L22446_)) (___kont2650426505_ (lambda (_L22388_ _L22390_) _L22390_)) (___kont2650626507_ (lambda (_L22330_ _L22332_ _L22333_ _L22334_) - (let ((__tmp28400 (gx#datum->syntax '#f 'foldr)) - (__tmp28395 - (let ((__tmp28399 (gx#datum->syntax '#f 'cons)) - (__tmp28396 - (let ((__tmp28398 + (let ((__tmp28485 (gx#datum->syntax '#f 'foldr)) + (__tmp28480 + (let ((__tmp28484 (gx#datum->syntax '#f 'cons)) + (__tmp28481 + (let ((__tmp28483 (let () (declare (not safe)) (cons _L22334_ _L22330_))) - (__tmp28397 + (__tmp28482 (let () (declare (not safe)) (cons _L22333_ '())))) (declare (not safe)) - (cons __tmp28398 __tmp28397)))) + (cons __tmp28483 __tmp28482)))) (declare (not safe)) - (cons __tmp28399 __tmp28396)))) + (cons __tmp28484 __tmp28481)))) (declare (not safe)) - (cons __tmp28400 __tmp28395)))) + (cons __tmp28485 __tmp28480)))) (___kont2650826509_ (lambda (_L22276_ _L22278_ _L22279_) - (let ((__tmp28404 (gx#datum->syntax '#f 'cons)) - (__tmp28401 - (let ((__tmp28402 - (let ((__tmp28403 + (let ((__tmp28489 (gx#datum->syntax '#f 'cons)) + (__tmp28486 + (let ((__tmp28487 + (let ((__tmp28488 (let () (declare (not safe)) (cons _L22279_ _L22276_)))) (declare (not safe)) - (cons __tmp28403 '())))) + (cons __tmp28488 '())))) (declare (not safe)) - (cons _L22278_ __tmp28402)))) + (cons _L22278_ __tmp28487)))) (declare (not safe)) - (cons __tmp28404 __tmp28401)))) + (cons __tmp28489 __tmp28486)))) (___kont2651026511_ (lambda (_L22237_) _L22237_))) (let* ((___match2663226633_ (lambda (_e2219522300_ @@ -12845,7 +12845,7 @@ (##car _e2215322531_)))) (if (gx#identifier? _hd2215222535_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g28406_| + |gerbil/core/sugar~Sugar-2[1]#_g28491_| _hd2215222535_) (if (gx#stx-pair? _tl2215122538_) (let ((_e2215622541_ @@ -12878,7 +12878,7 @@ _hd2215222535_ _hd2214522577_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g28405_| + |gerbil/core/sugar~Sugar-2[1]#_g28490_| _hd2215222535_) (if (gx#stx-pair? _tl2215122538_) (let ((_e2216622489_ @@ -13088,14 +13088,14 @@ (___kont2666226663_ (lambda (_L23406_) (_simple-quote?22594_ - (let ((__tmp28407 + (let ((__tmp28492 (lambda (_g2341923422_ _g2342023425_) (let () (declare (not safe)) (cons _g2341923422_ _g2342023425_))))) (declare (not safe)) - (foldr1 __tmp28407 '() _L23406_))))) + (foldr1 __tmp28492 '() _L23406_))))) (___kont2666626667_ (lambda (_L23353_) (_simple-quote?22594_ _L23353_))) @@ -13192,7 +13192,7 @@ (##car _e2329823496_)))) (if (gx#identifier? _hd2329723500_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g28409_| + |gerbil/core/sugar~Sugar-2[1]#_g28494_| _hd2329723500_) (if (gx#stx-pair? _tl2329623503_) (let ((_e2330123506_ @@ -13216,7 +13216,7 @@ _tl2329623503_ _hd2329723500_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g28408_| + |gerbil/core/sugar~Sugar-2[1]#_g28493_| _hd2329723500_) (if (gx#stx-pair? _tl2329623503_) (let ((_e2330723475_ @@ -13271,29 +13271,29 @@ (lambda (_g2325223263_) ((lambda (_L23266_) (let () - (let ((__tmp28416 + (let ((__tmp28501 (gx#datum->syntax '#f 'list)) - (__tmp28410 - (let ((__tmp28412 - (let ((__tmp28415 + (__tmp28495 + (let ((__tmp28497 + (let ((__tmp28500 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp28413 - (let ((__tmp28414 + (__tmp28498 + (let ((__tmp28499 (gx#datum->syntax '#f 'quasiquote))) (declare (not safe)) - (cons __tmp28414 '())))) + (cons __tmp28499 '())))) (declare (not safe)) - (cons __tmp28415 __tmp28413))) - (__tmp28411 + (cons __tmp28500 __tmp28498))) + (__tmp28496 (let () (declare (not safe)) (cons _L23266_ '())))) (declare (not safe)) - (cons __tmp28412 __tmp28411)))) + (cons __tmp28497 __tmp28496)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp28416 __tmp28410)))) + (cons __tmp28501 __tmp28495)))) _g2325223263_)))) (_g2325023278_ (_generate22596_ @@ -13317,30 +13317,30 @@ (lambda (_g2318123192_) ((lambda (_L23195_) (let () - (let ((__tmp28423 + (let ((__tmp28508 (gx#datum->syntax '#f 'list)) - (__tmp28417 - (let ((__tmp28419 - (let ((__tmp28422 + (__tmp28502 + (let ((__tmp28504 + (let ((__tmp28507 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp28420 - (let ((__tmp28421 + (__tmp28505 + (let ((__tmp28506 (gx#datum->syntax '#f 'unquote))) (declare (not safe)) - (cons __tmp28421 '())))) + (cons __tmp28506 '())))) (declare (not safe)) - (cons __tmp28422 __tmp28420))) - (__tmp28418 + (cons __tmp28507 __tmp28505))) + (__tmp28503 (let () (declare (not safe)) (cons _L23195_ '())))) (declare (not safe)) - (cons __tmp28419 __tmp28418)))) + (cons __tmp28504 __tmp28503)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp28423 - __tmp28417)))) + (cons __tmp28508 + __tmp28502)))) _g2318123192_)))) (_g2317923207_ (_generate22596_ @@ -13353,33 +13353,33 @@ (if (let () (declare (not safe)) (fxzero? _d22660_)) - (let ((__tmp28438 + (let ((__tmp28523 (gx#datum->syntax '#f 'foldr)) - (__tmp28431 - (let ((__tmp28437 + (__tmp28516 + (let ((__tmp28522 (gx#datum->syntax '#f 'cons)) - (__tmp28432 - (let ((__tmp28434 - (let ((__tmp28436 + (__tmp28517 + (let ((__tmp28519 + (let ((__tmp28521 (gx#datum->syntax '#f 'quote)) - (__tmp28435 + (__tmp28520 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp28436 __tmp28435))) - (__tmp28433 (let () (declare (not safe)) (cons _L23096_ '())))) + (cons __tmp28521 __tmp28520))) + (__tmp28518 (let () (declare (not safe)) (cons _L23096_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp28434 - __tmp28433)))) + (cons __tmp28519 + __tmp28518)))) (declare (not safe)) - (cons __tmp28437 __tmp28432)))) + (cons __tmp28522 __tmp28517)))) (declare (not safe)) - (cons __tmp28438 __tmp28431)) + (cons __tmp28523 __tmp28516)) (let* ((_g2310923117_ (lambda (_g2311023113_) (gx#raise-syntax-error @@ -13390,32 +13390,32 @@ (lambda (_g2311023121_) ((lambda (_L23124_) (let () - (let ((__tmp28430 + (let ((__tmp28515 (gx#datum->syntax '#f 'list)) - (__tmp28424 - (let ((__tmp28426 - (let ((__tmp28429 + (__tmp28509 + (let ((__tmp28511 + (let ((__tmp28514 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp28427 - (let ((__tmp28428 + (__tmp28512 + (let ((__tmp28513 (gx#datum->syntax '#f 'unquote-splicing))) (declare (not safe)) - (cons __tmp28428 '())))) + (cons __tmp28513 '())))) (declare (not safe)) - (cons __tmp28429 __tmp28427))) - (__tmp28425 + (cons __tmp28514 __tmp28512))) + (__tmp28510 (let () (declare (not safe)) (cons _L23124_ '())))) (declare (not safe)) - (cons __tmp28426 __tmp28425)))) + (cons __tmp28511 __tmp28510)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp28430 - __tmp28424)))) + (cons __tmp28515 + __tmp28509)))) _g2311023121_)))) (_g2310823136_ (_generate22596_ @@ -13435,26 +13435,26 @@ (lambda (_g2303923050_) ((lambda (_L23053_) (let () - (let ((__tmp28443 + (let ((__tmp28528 (gx#datum->syntax '#f 'foldr)) - (__tmp28439 - (let ((__tmp28442 + (__tmp28524 + (let ((__tmp28527 (gx#datum->syntax '#f 'cons)) - (__tmp28440 - (let ((__tmp28441 + (__tmp28525 + (let ((__tmp28526 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L23023_ '())))) (declare (not safe)) - (cons _L23053_ __tmp28441)))) + (cons _L23053_ __tmp28526)))) (declare (not safe)) - (cons __tmp28442 __tmp28440)))) + (cons __tmp28527 __tmp28525)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp28443 __tmp28439)))) + (cons __tmp28528 __tmp28524)))) _g2303923050_)))) (_g2303723065_ (_generate22596_ _L23021_ _d22660_))))) @@ -13496,16 +13496,16 @@ (if (gx#stx-null? _tl2292722959_) ((lambda (_L22962_ _L22964_) (let () - (let ((__tmp28446 (gx#datum->syntax '#f 'cons)) - (__tmp28444 - (let ((__tmp28445 + (let ((__tmp28531 (gx#datum->syntax '#f 'cons)) + (__tmp28529 + (let ((__tmp28530 (let () (declare (not safe)) (cons _L22962_ '())))) (declare (not safe)) - (cons _L22964_ __tmp28445)))) + (cons _L22964_ __tmp28530)))) (declare (not safe)) - (cons __tmp28446 __tmp28444)))) + (cons __tmp28531 __tmp28529)))) _hd2292822956_ _hd2292522946_) (_g2292022935_ _g2292122939_)))) @@ -13530,27 +13530,27 @@ (lambda (_g2285222863_) ((lambda (_L22866_) (let () - (let ((__tmp28448 + (let ((__tmp28533 (gx#datum->syntax '#f 'list->vector)) - (__tmp28447 + (__tmp28532 (let () (declare (not safe)) (cons _L22866_ '())))) (declare (not safe)) - (cons __tmp28448 __tmp28447)))) + (cons __tmp28533 __tmp28532)))) _g2285222863_)))) (_g2285022878_ (_generate22596_ - (let ((__tmp28449 + (let ((__tmp28534 (lambda (_g2288122884_ _g2288222887_) (let () (declare (not safe)) (cons _g2288122884_ _g2288222887_))))) (declare (not safe)) - (foldr1 __tmp28449 '() _L22837_)) + (foldr1 __tmp28534 '() _L22837_)) _d22660_))))) (___kont2674826749_ (lambda (_L22755_) @@ -13564,28 +13564,28 @@ (lambda (_g2276622777_) ((lambda (_L22780_) (let () - (let ((__tmp28451 + (let ((__tmp28536 (gx#datum->syntax '#f 'box)) - (__tmp28450 + (__tmp28535 (let () (declare (not safe)) (cons _L22780_ '())))) (declare (not safe)) - (cons __tmp28451 __tmp28450)))) + (cons __tmp28536 __tmp28535)))) _g2276622777_)))) (_g2276422792_ (_generate22596_ _L22755_ _d22660_))))) (___kont2675026751_ (lambda (_L22734_) - (let ((__tmp28453 (gx#datum->syntax '#f 'quote)) - (__tmp28452 + (let ((__tmp28538 (gx#datum->syntax '#f 'quote)) + (__tmp28537 (let () (declare (not safe)) (cons _L22734_ '())))) (declare (not safe)) - (cons __tmp28453 __tmp28452))))) + (cons __tmp28538 __tmp28537))))) (let* ((_g2266722796_ (lambda () (if (gx#stx-box? ___stx2673126732_) @@ -13680,7 +13680,7 @@ (##car _e2267423218_)))) (if (gx#identifier? _hd2267323222_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g28457_| + |gerbil/core/sugar~Sugar-2[1]#_g28542_| _hd2267323222_) (if (gx#stx-pair? _tl2267223225_) (let ((_e2267723228_ @@ -13705,7 +13705,7 @@ _tl2267223225_ _hd2267323222_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g28456_| + |gerbil/core/sugar~Sugar-2[1]#_g28541_| _hd2267323222_) (if (gx#stx-pair? _tl2267223225_) (let ((_e2268423157_ @@ -13732,7 +13732,7 @@ _tl2267223225_ _hd2267323222_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g28455_| + |gerbil/core/sugar~Sugar-2[1]#_g28540_| _hd2267323222_) (if (gx#stx-pair? _tl2267223225_) @@ -13768,7 +13768,7 @@ (if (gx#identifier? _hd2269823005_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g28454_| + |gerbil/core/sugar~Sugar-2[1]#_g28539_| _hd2269823005_) (if (gx#stx-pair? _tl2269723008_) @@ -13834,16 +13834,16 @@ (if (gx#stx-null? _tl2260422636_) ((lambda (_L22639_) (if (_simple-quote?22594_ _L22639_) - (let ((__tmp28459 + (let ((__tmp28544 (gx#datum->syntax '#f 'quote)) - (__tmp28458 + (__tmp28543 (let () (declare (not safe)) (cons _L22639_ '())))) (declare (not safe)) - (cons __tmp28459 __tmp28458)) + (cons __tmp28544 __tmp28543)) (_generate22596_ _L22639_ '0))) _hd2260522633_) (_g2259822612_ _g2259922616_)))) @@ -13861,31 +13861,31 @@ ___stx2685726858_)))) (let ((___kont2686026861_ (lambda (_L23620_) - (let ((__tmp28461 (gx#datum->syntax '#f 'quote)) - (__tmp28460 + (let ((__tmp28546 (gx#datum->syntax '#f 'quote)) + (__tmp28545 (let () (declare (not safe)) (cons _L23620_ '())))) (declare (not safe)) - (cons __tmp28461 __tmp28460)))) + (cons __tmp28546 __tmp28545)))) (___kont2686226863_ (lambda (_L23579_) - (let ((__tmp28467 (gx#datum->syntax '#f 'make-promise)) - (__tmp28462 - (let ((__tmp28463 - (let ((__tmp28466 + (let ((__tmp28552 (gx#datum->syntax '#f 'make-promise)) + (__tmp28547 + (let ((__tmp28548 + (let ((__tmp28551 (gx#datum->syntax '#f 'lambda%)) - (__tmp28464 - (let ((__tmp28465 + (__tmp28549 + (let ((__tmp28550 (let () (declare (not safe)) (cons _L23579_ '())))) (declare (not safe)) - (cons '() __tmp28465)))) + (cons '() __tmp28550)))) (declare (not safe)) - (cons __tmp28466 __tmp28464)))) + (cons __tmp28551 __tmp28549)))) (declare (not safe)) - (cons __tmp28463 '())))) + (cons __tmp28548 '())))) (declare (not safe)) - (cons __tmp28467 __tmp28462))))) + (cons __tmp28552 __tmp28547))))) (let ((___match2687826879_ (lambda (_e2353623600_ _hd2353523604_ @@ -13975,9 +13975,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _tail23859_ _hd23767_)) - (let ((__tmp28468 (list _tail23859_))) + (let ((__tmp28553 (list _tail23859_))) (declare (not safe)) - (foldl1 cons __tmp28468 _body23768_)) + (foldl1 cons __tmp28553 _body23768_)) '#t)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error @@ -13995,11 +13995,11 @@ (cons _L23813_ _body23768_)))))) (if (gx#identifier? ___stx2689526896_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g28470_| + |gerbil/core/sugar~Sugar-2[1]#_g28555_| ___stx2689526896_) (___kont2689826899_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g28469_| + |gerbil/core/sugar~Sugar-2[1]#_g28554_| ___stx2689526896_) (___kont2690026901_) (___kont2690226903_))) @@ -14044,35 +14044,35 @@ (##cdr _e2364823661_)))) ((lambda (_L23671_) (if (and (gx#stx-list? _L23671_) - (let ((__tmp28481 + (let ((__tmp28566 (gx#stx-null? _L23671_))) (declare (not safe)) - (not __tmp28481))) - (let ((_g28471_ (_generate23640_ _L23671_))) + (not __tmp28566))) + (let ((_g28556_ (_generate23640_ _L23671_))) (begin - (let ((_g28472_ + (let ((_g28557_ (let () (declare (not safe)) - (if (##values? _g28471_) - (##vector-length _g28471_) + (if (##values? _g28556_) + (##vector-length _g28556_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g28472_ 3))) + (##fx= _g28557_ 3))) (error "Context expects 3 values" - _g28472_))) + _g28557_))) (let ((_hd23684_ (let () (declare (not safe)) - (##vector-ref _g28471_ 0))) + (##vector-ref _g28556_ 0))) (_body23686_ (let () (declare (not safe)) - (##vector-ref _g28471_ 1))) + (##vector-ref _g28556_ 1))) (_tail?23687_ (let () (declare (not safe)) - (##vector-ref _g28471_ 2)))) + (##vector-ref _g28556_ 2)))) (let* ((_g2368923697_ (lambda (_g2369023693_) (gx#raise-syntax-error @@ -14096,34 +14096,34 @@ (let () (let () (if _tail?23687_ - (let ((__tmp28480 + (let ((__tmp28565 (gx#datum->syntax '#f 'lambda%)) - (__tmp28476 - (let ((__tmp28477 - (let ((__tmp28478 - (let ((__tmp28479 + (__tmp28561 + (let ((__tmp28562 + (let ((__tmp28563 + (let ((__tmp28564 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'apply))) (declare (not safe)) - (cons __tmp28479 _L23732_)))) + (cons __tmp28564 _L23732_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp28478 '())))) + (cons __tmp28563 '())))) (declare (not safe)) - (cons _L23704_ __tmp28477)))) + (cons _L23704_ __tmp28562)))) (declare (not safe)) - (cons __tmp28480 __tmp28476)) - (let ((__tmp28475 + (cons __tmp28565 __tmp28561)) + (let ((__tmp28560 (gx#datum->syntax '#f 'lambda%)) - (__tmp28473 - (let ((__tmp28474 + (__tmp28558 + (let ((__tmp28559 (let () (declare (not safe)) (cons _L23732_ '())))) (declare (not safe)) - (cons _L23704_ __tmp28474)))) + (cons _L23704_ __tmp28559)))) (declare (not safe)) - (cons __tmp28475 __tmp28473)))))) + (cons __tmp28560 __tmp28558)))))) _g2371823729_)))) (_g2371623747_ _body23686_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> diff --git a/src/bootstrap/gerbil/core/sugar~3.scm b/src/bootstrap/gerbil/core/sugar~3.scm index 8dba234df..9873cc974 100644 --- a/src/bootstrap/gerbil/core/sugar~3.scm +++ b/src/bootstrap/gerbil/core/sugar~3.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/sugar~Sugar-3[1]#_g28566_| + (define |gerbil/core/sugar~Sugar-3[1]#_g28413_| (##structure gx#syntax-quote::t 'quote @@ -19,15 +19,15 @@ ___stx2693126932_)))) (let ((___kont2693426935_ (lambda (_L24081_ _L24083_ _L24084_) - (let ((__tmp28489 (gx#datum->syntax '#f 'define-syntax)) - (__tmp28482 - (let ((__tmp28483 - (let ((__tmp28484 - (let ((__tmp28488 + (let ((__tmp28336 (gx#datum->syntax '#f 'define-syntax)) + (__tmp28329 + (let ((__tmp28330 + (let ((__tmp28331 + (let ((__tmp28335 (gx#datum->syntax '#f 'lambda)) - (__tmp28485 - (let ((__tmp28486 - (let ((__tmp28487 + (__tmp28332 + (let ((__tmp28333 + (let ((__tmp28334 (lambda (_g2410324106_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2410424109_) @@ -35,30 +35,30 @@ (declare (not safe)) (cons _g2410324106_ _g2410424109_))))) (declare (not safe)) - (foldr1 __tmp28487 '() _L24081_)))) + (foldr1 __tmp28334 '() _L24081_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L24083_ __tmp28486)))) + (cons _L24083_ __tmp28333)))) (declare (not safe)) - (cons __tmp28488 __tmp28485)))) + (cons __tmp28335 __tmp28332)))) (declare (not safe)) - (cons __tmp28484 '())))) + (cons __tmp28331 '())))) (declare (not safe)) - (cons _L24084_ __tmp28483)))) + (cons _L24084_ __tmp28330)))) (declare (not safe)) - (cons __tmp28489 __tmp28482)))) + (cons __tmp28336 __tmp28329)))) (___kont2693826939_ (lambda (_L23995_ _L23997_) - (let ((__tmp28492 (gx#datum->syntax '#f 'define-syntax)) - (__tmp28490 - (let ((__tmp28491 + (let ((__tmp28339 (gx#datum->syntax '#f 'define-syntax)) + (__tmp28337 + (let ((__tmp28338 (let () (declare (not safe)) (cons _L23995_ '())))) (declare (not safe)) - (cons _L23997_ __tmp28491)))) + (cons _L23997_ __tmp28338)))) (declare (not safe)) - (cons __tmp28492 __tmp28490))))) + (cons __tmp28339 __tmp28337))))) (let* ((___match2698626987_ (lambda (_e2394623965_ _hd2394523969_ @@ -346,37 +346,37 @@ (##cdr _e2413324184_)))) (if (gx#stx-pair/null? _tl2413124191_) - (let ((_g28493_ + (let ((_g28340_ (gx#syntax-split-splice _tl2413124191_ '0))) (begin - (let ((_g28494_ + (let ((_g28341_ (let () (declare (not safe)) (if (##values? - _g28493_) + _g28340_) (##vector-length - _g28493_) + _g28340_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g28494_ 2))) - (error "Context expects 2 values" _g28494_))) + (##fx= _g28341_ 2))) + (error "Context expects 2 values" _g28341_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target2413424194_ (let () (declare (not safe)) (##vector-ref - _g28493_ + _g28340_ 0))) (_tl2413624197_ (let () (declare (not safe)) (##vector-ref - _g28493_ + _g28340_ 1)))) (if (gx#stx-null? _tl2413624197_) @@ -403,31 +403,31 @@ (let ((_arg2414224220_ (reverse _arg2414124207_))) (if (gx#stx-pair/null? _tl2412824181_) - (let ((_g28495_ + (let ((_g28342_ (gx#syntax-split-splice _tl2412824181_ '0))) (begin - (let ((_g28496_ + (let ((_g28343_ (let () (declare (not safe)) - (if (##values? _g28495_) + (if (##values? _g28342_) (##vector-length - _g28495_) + _g28342_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g28496_ 2))) + (##fx= _g28343_ 2))) (error "Context expects 2 values" - _g28496_))) + _g28343_))) (let ((_target2414324224_ (let () (declare (not safe)) - (##vector-ref _g28495_ 0))) + (##vector-ref _g28342_ 0))) (_tl2414524227_ (let () (declare (not safe)) - (##vector-ref _g28495_ 1)))) + (##vector-ref _g28342_ 1)))) (if (gx#stx-null? _tl2414524227_) (letrec ((_loop2414624230_ (lambda (_hd2414424234_ @@ -452,7 +452,7 @@ ((lambda (_L24254_ _L24256_ _L24257_) (if (and (gx#identifier? _L24257_) (gx#identifier-list? - (let ((__tmp28542 + (let ((__tmp28389 (lambda (_g2428124284_ _g2428224287_) (let () @@ -460,7 +460,7 @@ (cons _g2428124284_ _g2428224287_))))) (declare (not safe)) - (foldr1 __tmp28542 '() _L24256_)))) + (foldr1 __tmp28389 '() _L24256_)))) (let* ((_g2429024298_ (lambda (_g2429124294_) (gx#raise-syntax-error @@ -481,28 +481,28 @@ (lambda (_g2431824338_) (if (gx#stx-pair/null? _g2431824338_) - (let ((_g28497_ + (let ((_g28344_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g2431824338_ '0))) (begin - (let ((_g28498_ + (let ((_g28345_ (let () (declare (not safe)) - (if (##values? _g28497_) - (##vector-length _g28497_) + (if (##values? _g28344_) + (##vector-length _g28344_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g28498_ 2))) - (error "Context expects 2 values" _g28498_))) + (##fx= _g28345_ 2))) + (error "Context expects 2 values" _g28345_))) (let ((_target2432024341_ (let () (declare (not safe)) - (##vector-ref _g28497_ 0))) + (##vector-ref _g28344_ 0))) (_tl2432224344_ (let () (declare (not safe)) - (##vector-ref _g28497_ 1)))) + (##vector-ref _g28344_ 1)))) (if (gx#stx-null? _tl2432224344_) (letrec ((_loop2432324347_ (lambda (_hd2432124351_ @@ -552,32 +552,32 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp28501 + (let ((__tmp28348 (gx#datum->syntax '#f 'begin)) - (__tmp28499 - (let ((__tmp28500 + (__tmp28346 + (let ((__tmp28347 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L24403_ '())))) (declare (not safe)) - (cons _L24431_ __tmp28500)))) + (cons _L24431_ __tmp28347)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp28501 __tmp28499)) + (cons __tmp28348 __tmp28346)) (gx#stx-source _stx24117_))))) _g2441724428_)))) (_g2441524446_ (gx#stx-wrap-source - (let ((__tmp28508 + (let ((__tmp28355 (gx#datum->syntax '#f 'def)) - (__tmp28502 - (let ((__tmp28505 - (let ((__tmp28506 - (let ((__tmp28507 + (__tmp28349 + (let ((__tmp28352 + (let ((__tmp28353 + (let ((__tmp28354 (lambda (_g2445124454_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2445224457_) @@ -585,12 +585,12 @@ (declare (not safe)) (cons _g2445124454_ _g2445224457_))))) (declare (not safe)) - (foldr1 __tmp28507 '() _L24256_)))) + (foldr1 __tmp28354 '() _L24256_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L24305_ __tmp28506))) - (__tmp28503 - (let ((__tmp28504 + (cons _L24305_ __tmp28353))) + (__tmp28350 + (let ((__tmp28351 (lambda (_g2444924460_ _g2445024463_) (let () @@ -600,47 +600,47 @@ _g2445024463_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp28504 + (foldr1 __tmp28351 '() _L24254_)))) (declare (not safe)) - (cons __tmp28505 __tmp28503)))) + (cons __tmp28352 __tmp28350)))) (declare (not safe)) - (cons __tmp28508 __tmp28502)) + (cons __tmp28355 __tmp28349)) (gx#stx-source _stx24117_)))))) _g2438924400_)))) (_g2438724466_ (gx#stx-wrap-source - (let ((__tmp28540 (gx#datum->syntax '#f 'defrules)) - (__tmp28509 - (let ((__tmp28510 - (let ((__tmp28511 - (let ((__tmp28524 - (let ((__tmp28536 - (let ((__tmp28539 + (let ((__tmp28387 (gx#datum->syntax '#f 'defrules)) + (__tmp28356 + (let ((__tmp28357 + (let ((__tmp28358 + (let ((__tmp28371 + (let ((__tmp28383 + (let ((__tmp28386 (gx#datum->syntax '#f '_)) - (__tmp28537 - (let ((__tmp28538 + (__tmp28384 + (let ((__tmp28385 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g2447524478_ _g2447624481_) (let () (declare (not safe)) (cons _g2447524478_ _g2447624481_))))) (declare (not safe)) - (foldr1 __tmp28538 '() _L24371_)))) + (foldr1 __tmp28385 '() _L24371_)))) (declare (not safe)) - (cons __tmp28539 __tmp28537))) + (cons __tmp28386 __tmp28384))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp28525 - (let ((__tmp28526 - (let ((__tmp28529 + (__tmp28372 + (let ((__tmp28373 + (let ((__tmp28376 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp28535 (gx#datum->syntax '#f 'lambda)) - (__tmp28530 - (let ((__tmp28533 - (let ((__tmp28534 + (let ((__tmp28382 (gx#datum->syntax '#f 'lambda)) + (__tmp28377 + (let ((__tmp28380 + (let ((__tmp28381 (lambda (_g2447324484_ _g2447424487_) (let () @@ -648,9 +648,9 @@ (cons _g2447324484_ _g2447424487_))))) (declare (not safe)) - (foldr1 __tmp28534 '() _L24256_))) - (__tmp28531 - (let ((__tmp28532 + (foldr1 __tmp28381 '() _L24256_))) + (__tmp28378 + (let ((__tmp28379 (lambda (_g2447124490_ _g2447224493_) (let () @@ -658,73 +658,73 @@ (cons _g2447124490_ _g2447224493_))))) (declare (not safe)) - (foldr1 __tmp28532 '() _L24254_)))) + (foldr1 __tmp28379 '() _L24254_)))) (declare (not safe)) - (cons __tmp28533 __tmp28531)))) + (cons __tmp28380 __tmp28378)))) (declare (not safe)) - (cons __tmp28535 __tmp28530))) - (__tmp28527 - (let ((__tmp28528 + (cons __tmp28382 __tmp28377))) + (__tmp28374 + (let ((__tmp28375 (lambda (_g2446924496_ _g2447024499_) (let () (declare (not safe)) (cons _g2446924496_ _g2447024499_))))) (declare (not safe)) - (foldr1 __tmp28528 '() _L24371_)))) + (foldr1 __tmp28375 '() _L24371_)))) (declare (not safe)) - (cons __tmp28529 __tmp28527)))) + (cons __tmp28376 __tmp28374)))) (declare (not safe)) - (cons __tmp28526 '())))) + (cons __tmp28373 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp28536 __tmp28525))) - (__tmp28512 - (let ((__tmp28513 - (let ((__tmp28523 + (cons __tmp28383 __tmp28372))) + (__tmp28359 + (let ((__tmp28360 + (let ((__tmp28370 (gx#datum->syntax '#f 'ref)) - (__tmp28514 - (let ((__tmp28516 + (__tmp28361 + (let ((__tmp28363 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp28522 + (let ((__tmp28369 (gx#datum->syntax '#f 'identifier?)) - (__tmp28517 - (let ((__tmp28518 - (let ((__tmp28521 + (__tmp28364 + (let ((__tmp28365 + (let ((__tmp28368 (gx#datum->syntax '#f 'syntax)) - (__tmp28519 - (let ((__tmp28520 + (__tmp28366 + (let ((__tmp28367 (gx#datum->syntax '#f 'ref))) (declare (not safe)) - (cons __tmp28520 '())))) + (cons __tmp28367 '())))) (declare (not safe)) - (cons __tmp28521 __tmp28519)))) + (cons __tmp28368 __tmp28366)))) (declare (not safe)) - (cons __tmp28518 '())))) + (cons __tmp28365 '())))) (declare (not safe)) - (cons __tmp28522 __tmp28517))) - (__tmp28515 + (cons __tmp28369 __tmp28364))) + (__tmp28362 (let () (declare (not safe)) (cons _L24305_ '())))) (declare (not safe)) - (cons __tmp28516 __tmp28515)))) + (cons __tmp28363 __tmp28362)))) (declare (not safe)) - (cons __tmp28523 __tmp28514)))) + (cons __tmp28370 __tmp28361)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp28513 '())))) + (cons __tmp28360 '())))) (declare (not safe)) - (cons __tmp28524 __tmp28512)))) + (cons __tmp28371 __tmp28359)))) (declare (not safe)) - (cons '() __tmp28511)))) + (cons '() __tmp28358)))) (declare (not safe)) - (cons _L24257_ __tmp28510)))) + (cons _L24257_ __tmp28357)))) (declare (not safe)) - (cons __tmp28540 __tmp28509)) + (cons __tmp28387 __tmp28356)) (gx#stx-source _stx24117_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _xarg2432824367_)))))) @@ -734,7 +734,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g2431624502_ (gx#gentemps - (let ((__tmp28541 + (let ((__tmp28388 (lambda (_g2450524508_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g2450624511_) @@ -742,7 +742,7 @@ (declare (not safe)) (cons _g2450524508_ _g2450624511_))))) (declare (not safe)) - (foldr1 __tmp28541 '() _L24256_))))))) + (foldr1 __tmp28388 '() _L24256_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g2429124302_)))) (_g2428924514_ @@ -780,79 +780,79 @@ ___stx2698926990_)))) (let ((___kont2699226993_ (lambda (_L24680_ _L24682_) - (let ((__tmp28560 (gx#datum->syntax '#f 'defrules)) - (__tmp28543 - (let ((__tmp28544 - (let ((__tmp28545 - (let ((__tmp28546 - (let ((__tmp28559 + (let ((__tmp28407 (gx#datum->syntax '#f 'defrules)) + (__tmp28390 + (let ((__tmp28391 + (let ((__tmp28392 + (let ((__tmp28393 + (let ((__tmp28406 (gx#datum->syntax '#f 'x)) - (__tmp28547 - (let ((__tmp28552 - (let ((__tmp28558 + (__tmp28394 + (let ((__tmp28399 + (let ((__tmp28405 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'identifier?)) - (__tmp28553 - (let ((__tmp28554 - (let ((__tmp28557 + (__tmp28400 + (let ((__tmp28401 + (let ((__tmp28404 (gx#datum->syntax '#f 'syntax)) - (__tmp28555 - (let ((__tmp28556 + (__tmp28402 + (let ((__tmp28403 (gx#datum->syntax '#f 'x))) (declare (not safe)) - (cons __tmp28556 '())))) + (cons __tmp28403 '())))) (declare (not safe)) - (cons __tmp28557 __tmp28555)))) + (cons __tmp28404 __tmp28402)))) (declare (not safe)) - (cons __tmp28554 '())))) + (cons __tmp28401 '())))) (declare (not safe)) - (cons __tmp28558 __tmp28553))) - (__tmp28548 - (let ((__tmp28549 - (let ((__tmp28551 (gx#datum->syntax '#f 'quote)) - (__tmp28550 + (cons __tmp28405 __tmp28400))) + (__tmp28395 + (let ((__tmp28396 + (let ((__tmp28398 (gx#datum->syntax '#f 'quote)) + (__tmp28397 (let () (declare (not safe)) (cons _L24680_ '())))) (declare (not safe)) - (cons __tmp28551 __tmp28550)))) + (cons __tmp28398 __tmp28397)))) (declare (not safe)) - (cons __tmp28549 '())))) + (cons __tmp28396 '())))) (declare (not safe)) - (cons __tmp28552 __tmp28548)))) + (cons __tmp28399 __tmp28395)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp28559 - __tmp28547)))) + (cons __tmp28406 + __tmp28394)))) (declare (not safe)) - (cons __tmp28546 '())))) + (cons __tmp28393 '())))) (declare (not safe)) - (cons '() __tmp28545)))) + (cons '() __tmp28392)))) (declare (not safe)) - (cons _L24682_ __tmp28544)))) + (cons _L24682_ __tmp28391)))) (declare (not safe)) - (cons __tmp28560 __tmp28543)))) + (cons __tmp28407 __tmp28390)))) (___kont2699426995_ (lambda (_L24603_ _L24605_ _L24606_) - (let ((__tmp28561 - (let ((__tmp28562 - (let ((__tmp28563 - (let ((__tmp28565 + (let ((__tmp28408 + (let ((__tmp28409 + (let ((__tmp28410 + (let ((__tmp28412 (gx#datum->syntax '#f 'quote)) - (__tmp28564 + (__tmp28411 (let () (declare (not safe)) (cons _L24603_ '())))) (declare (not safe)) - (cons __tmp28565 __tmp28564)))) + (cons __tmp28412 __tmp28411)))) (declare (not safe)) - (cons __tmp28563 '())))) + (cons __tmp28410 '())))) (declare (not safe)) - (cons _L24605_ __tmp28562)))) + (cons _L24605_ __tmp28409)))) (declare (not safe)) - (cons _L24606_ __tmp28561))))) + (cons _L24606_ __tmp28408))))) (let* ((___match2705427055_ (lambda (_e2455424573_ _hd2455324577_ @@ -943,7 +943,7 @@ (if (gx#identifier? _hd2454424664_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-3[1]#_g28566_| + |gerbil/core/sugar~Sugar-3[1]#_g28413_| _hd2454424664_) (if (gx#stx-pair? _tl2454324667_) diff --git a/src/bootstrap/gerbil/expander/common~0.scm b/src/bootstrap/gerbil/expander/common~0.scm index 70228b7b2..c76ad042d 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 1710833424) + (define gerbil/expander/common::timestamp 1710943497) (begin (define gx#AST::t - (let ((__tmp81488 (list)) - (__tmp81486 - (let ((__tmp81487 + (let ((__tmp81470 (list)) + (__tmp81468 + (let ((__tmp81469 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp81487 '())))) + (cons __tmp81469 '())))) (declare (not safe)) (make-class-type 'gerbil#AST::t 'syntax - __tmp81488 + __tmp81470 '(e source) - __tmp81486 + __tmp81468 '#f))) (define gx#AST? (let () (declare (not safe)) (make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _$args81385_ (apply make-instance gx#AST::t _$args81385_))) + (lambda _$args81367_ (apply make-instance gx#AST::t _$args81367_))) (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 8f0a36f2d..3624d8b8f 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]#_g81490_| + (define |gx[1]#_g81472_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g81492_| + (define |gx[1]#_g81474_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g81494_| + (define |gx[1]#_g81476_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g81499_| + (define |gx[1]#_g81481_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81502_| + (define |gx[1]#_g81484_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81507_| + (define |gx[1]#_g81489_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81510_| + (define |gx[1]#_g81492_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81515_| + (define |gx[1]#_g81497_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g81518_| + (define |gx[1]#_g81500_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g81523_| + (define |gx[1]#_g81505_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81526_| + (define |gx[1]#_g81508_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g81633_| + (define |gx[1]#_g81615_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj81485 + (let ((__obj81467 (let () (declare (not safe)) (##structure @@ -110,7 +110,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81485 + __obj81467 'gerbil#AST::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -118,7 +118,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81485 + __obj81467 'syntax '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -126,7 +126,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81485 + __obj81467 '(e source) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -134,7 +134,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81485 + __obj81467 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -142,7 +142,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81485 + __obj81467 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -150,7 +150,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81485 + __obj81467 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -158,7 +158,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81485 + __obj81467 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -166,847 +166,847 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj81485 + __obj81467 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp81489 |gx[1]#_g81490_|)) + (let ((__tmp81471 |gx[1]#_g81472_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81485 - __tmp81489 + __obj81467 + __tmp81471 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp81491 |gx[1]#_g81492_|)) + (let ((__tmp81473 |gx[1]#_g81474_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81485 - __tmp81491 + __obj81467 + __tmp81473 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp81493 |gx[1]#_g81494_|)) + (let ((__tmp81475 |gx[1]#_g81476_|)) (declare (not safe)) (##unchecked-structure-set! - __obj81485 - __tmp81493 + __obj81467 + __tmp81475 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp81495 - (let ((__tmp81500 - (let ((__tmp81501 |gx[1]#_g81502_|)) + (let ((__tmp81477 + (let ((__tmp81482 + (let ((__tmp81483 |gx[1]#_g81484_|)) (declare (not safe)) - (cons 'e __tmp81501))) - (__tmp81496 - (let ((__tmp81497 - (let ((__tmp81498 |gx[1]#_g81499_|)) + (cons 'e __tmp81483))) + (__tmp81478 + (let ((__tmp81479 + (let ((__tmp81480 |gx[1]#_g81481_|)) (declare (not safe)) - (cons 'source __tmp81498)))) + (cons 'source __tmp81480)))) (declare (not safe)) - (cons __tmp81497 '())))) + (cons __tmp81479 '())))) (declare (not safe)) - (cons __tmp81500 __tmp81496)))) + (cons __tmp81482 __tmp81478)))) (declare (not safe)) (##unchecked-structure-set! - __obj81485 - __tmp81495 + __obj81467 + __tmp81477 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp81503 - (let ((__tmp81508 - (let ((__tmp81509 |gx[1]#_g81510_|)) + (let ((__tmp81485 + (let ((__tmp81490 + (let ((__tmp81491 |gx[1]#_g81492_|)) (declare (not safe)) - (cons 'e __tmp81509))) - (__tmp81504 - (let ((__tmp81505 - (let ((__tmp81506 |gx[1]#_g81507_|)) + (cons 'e __tmp81491))) + (__tmp81486 + (let ((__tmp81487 + (let ((__tmp81488 |gx[1]#_g81489_|)) (declare (not safe)) - (cons 'source __tmp81506)))) + (cons 'source __tmp81488)))) (declare (not safe)) - (cons __tmp81505 '())))) + (cons __tmp81487 '())))) (declare (not safe)) - (cons __tmp81508 __tmp81504)))) + (cons __tmp81490 __tmp81486)))) (declare (not safe)) (##unchecked-structure-set! - __obj81485 - __tmp81503 + __obj81467 + __tmp81485 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp81511 - (let ((__tmp81516 - (let ((__tmp81517 |gx[1]#_g81518_|)) + (let ((__tmp81493 + (let ((__tmp81498 + (let ((__tmp81499 |gx[1]#_g81500_|)) (declare (not safe)) - (cons 'e __tmp81517))) - (__tmp81512 - (let ((__tmp81513 - (let ((__tmp81514 |gx[1]#_g81515_|)) + (cons 'e __tmp81499))) + (__tmp81494 + (let ((__tmp81495 + (let ((__tmp81496 |gx[1]#_g81497_|)) (declare (not safe)) - (cons 'source __tmp81514)))) + (cons 'source __tmp81496)))) (declare (not safe)) - (cons __tmp81513 '())))) + (cons __tmp81495 '())))) (declare (not safe)) - (cons __tmp81516 __tmp81512)))) + (cons __tmp81498 __tmp81494)))) (declare (not safe)) (##unchecked-structure-set! - __obj81485 - __tmp81511 + __obj81467 + __tmp81493 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp81519 - (let ((__tmp81524 - (let ((__tmp81525 |gx[1]#_g81526_|)) + (let ((__tmp81501 + (let ((__tmp81506 + (let ((__tmp81507 |gx[1]#_g81508_|)) (declare (not safe)) - (cons 'e __tmp81525))) - (__tmp81520 - (let ((__tmp81521 - (let ((__tmp81522 |gx[1]#_g81523_|)) + (cons 'e __tmp81507))) + (__tmp81502 + (let ((__tmp81503 + (let ((__tmp81504 |gx[1]#_g81505_|)) (declare (not safe)) - (cons 'source __tmp81522)))) + (cons 'source __tmp81504)))) (declare (not safe)) - (cons __tmp81521 '())))) + (cons __tmp81503 '())))) (declare (not safe)) - (cons __tmp81524 __tmp81520)))) + (cons __tmp81506 __tmp81502)))) (declare (not safe)) (##unchecked-structure-set! - __obj81485 - __tmp81519 + __obj81467 + __tmp81501 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj81485)) + __obj81467)) (define |gx[:0:]#check-procedure| - (lambda (_$stx80105_) - (let* ((_g8010980123_ - (lambda (_g8011080119_) + (lambda (_$stx80087_) + (let* ((_g8009180105_ + (lambda (_g8009280101_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8011080119_))) - (_g8010880165_ - (lambda (_g8011080127_) - (if (gx#stx-pair? _g8011080127_) - (let ((_e8011480130_ (gx#syntax-e _g8011080127_))) - (let ((_hd8011380134_ + _g8009280101_))) + (_g8009080147_ + (lambda (_g8009280109_) + (if (gx#stx-pair? _g8009280109_) + (let ((_e8009680112_ (gx#syntax-e _g8009280109_))) + (let ((_hd8009580116_ (let () (declare (not safe)) - (##car _e8011480130_))) - (_tl8011280137_ + (##car _e8009680112_))) + (_tl8009480119_ (let () (declare (not safe)) - (##cdr _e8011480130_)))) - (if (gx#stx-pair? _tl8011280137_) - (let ((_e8011780140_ - (gx#syntax-e _tl8011280137_))) - (let ((_hd8011680144_ + (##cdr _e8009680112_)))) + (if (gx#stx-pair? _tl8009480119_) + (let ((_e8009980122_ + (gx#syntax-e _tl8009480119_))) + (let ((_hd8009880126_ (let () (declare (not safe)) - (##car _e8011780140_))) - (_tl8011580147_ + (##car _e8009980122_))) + (_tl8009780129_ (let () (declare (not safe)) - (##cdr _e8011780140_)))) - (if (gx#stx-null? _tl8011580147_) - ((lambda (_L80150_) - (let ((__tmp81536 + (##cdr _e8009980122_)))) + (if (gx#stx-null? _tl8009780129_) + ((lambda (_L80132_) + (let ((__tmp81518 (gx#datum->syntax '#f 'unless)) - (__tmp81527 - (let ((__tmp81533 - (let ((__tmp81535 + (__tmp81509 + (let ((__tmp81515 + (let ((__tmp81517 (gx#datum->syntax '#f 'procedure?)) - (__tmp81534 + (__tmp81516 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L80150_ '())))) + (cons _L80132_ '())))) (declare (not safe)) - (cons __tmp81535 __tmp81534))) - (__tmp81528 - (let ((__tmp81529 - (let ((__tmp81532 (gx#datum->syntax '#f 'error)) - (__tmp81530 - (let ((__tmp81531 + (cons __tmp81517 __tmp81516))) + (__tmp81510 + (let ((__tmp81511 + (let ((__tmp81514 (gx#datum->syntax '#f 'error)) + (__tmp81512 + (let ((__tmp81513 (let () (declare (not safe)) - (cons _L80150_ '())))) + (cons _L80132_ '())))) (declare (not safe)) - (cons '"expected procedure" __tmp81531)))) + (cons '"expected procedure" __tmp81513)))) (declare (not safe)) - (cons __tmp81532 __tmp81530)))) + (cons __tmp81514 __tmp81512)))) (declare (not safe)) - (cons __tmp81529 '())))) + (cons __tmp81511 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81533 - __tmp81528)))) + (cons __tmp81515 + __tmp81510)))) (declare (not safe)) - (cons __tmp81536 __tmp81527))) - _hd8011680144_) - (_g8010980123_ _g8011080127_)))) - (_g8010980123_ _g8011080127_)))) - (_g8010980123_ _g8011080127_))))) - (_g8010880165_ _$stx80105_)))) + (cons __tmp81518 __tmp81509))) + _hd8009880126_) + (_g8009180105_ _g8009280109_)))) + (_g8009180105_ _g8009280109_)))) + (_g8009180105_ _g8009280109_))))) + (_g8009080147_ _$stx80087_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_stx80169_) - (letrec ((_generate80172_ - (lambda (_tgt80321_ _kws80323_ _clauses80324_) - (letrec ((_generate-clause80326_ - (lambda (_hd81236_ _E81238_) - (let* ((___stx8138881389_ _hd81236_) - (_g8124281269_ + (lambda (_stx80151_) + (letrec ((_generate80154_ + (lambda (_tgt80303_ _kws80305_ _clauses80306_) + (letrec ((_generate-clause80308_ + (lambda (_hd81218_ _E81220_) + (let* ((___stx8137081371_ _hd81218_) + (_g8122481251_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8138881389_)))) - (let ((___kont8139181392_ - (lambda (_L81365_ _L81367_) - (_generate180328_ - _hd81236_ - _L81367_ + ___stx8137081371_)))) + (let ((___kont8137381374_ + (lambda (_L81347_ _L81349_) + (_generate180310_ + _hd81218_ + _L81349_ '#t - _L81365_ - _E81238_))) - (___kont8139381394_ - (lambda (_L81317_ _L81319_ _L81320_) - (_generate180328_ - _hd81236_ - _L81320_ - _L81319_ - _L81317_ - _E81238_))) - (___kont8139581396_ + _L81347_ + _E81220_))) + (___kont8137581376_ + (lambda (_L81299_ _L81301_ _L81302_) + (_generate180310_ + _hd81218_ + _L81302_ + _L81301_ + _L81299_ + _E81220_))) + (___kont8137781378_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _stx80169_ - _hd81236_)))) - (if (gx#stx-pair? ___stx8138881389_) - (let ((_e8124881345_ + _stx80151_ + _hd81218_)))) + (if (gx#stx-pair? ___stx8137081371_) + (let ((_e8123081327_ (gx#syntax-e - ___stx8138881389_))) - (let ((_tl8124681352_ + ___stx8137081371_))) + (let ((_tl8122881334_ (let () (declare (not safe)) - (##cdr _e8124881345_))) - (_hd8124781349_ + (##cdr _e8123081327_))) + (_hd8122981331_ (let () (declare (not safe)) - (##car _e8124881345_)))) - (if (gx#stx-pair? _tl8124681352_) - (let ((_e8125181355_ + (##car _e8123081327_)))) + (if (gx#stx-pair? _tl8122881334_) + (let ((_e8123381337_ (gx#syntax-e - _tl8124681352_))) - (let ((_tl8124981362_ + _tl8122881334_))) + (let ((_tl8123181344_ (let () (declare (not safe)) - (##cdr _e8125181355_))) - (_hd8125081359_ + (##cdr _e8123381337_))) + (_hd8123281341_ (let () (declare (not safe)) - (##car _e8125181355_)))) + (##car _e8123381337_)))) (if (gx#stx-null? - _tl8124981362_) - (___kont8139181392_ - _hd8125081359_ - _hd8124781349_) + _tl8123181344_) + (___kont8137381374_ + _hd8123281341_ + _hd8122981331_) (if (gx#stx-pair? - _tl8124981362_) - (let ((_e8126381307_ + _tl8123181344_) + (let ((_e8124581289_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl8124981362_))) - (let ((_tl8126181314_ + (gx#syntax-e _tl8123181344_))) + (let ((_tl8124381296_ (let () (declare (not safe)) - (##cdr _e8126381307_))) - (_hd8126281311_ + (##cdr _e8124581289_))) + (_hd8124481293_ (let () (declare (not safe)) - (##car _e8126381307_)))) - (if (gx#stx-null? _tl8126181314_) - (___kont8139381394_ - _hd8126281311_ - _hd8125081359_ - _hd8124781349_) - (___kont8139581396_)))) - (___kont8139581396_))))) + (##car _e8124581289_)))) + (if (gx#stx-null? _tl8124381296_) + (___kont8137581376_ + _hd8124481293_ + _hd8123281341_ + _hd8122981331_) + (___kont8137781378_)))) + (___kont8137781378_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8139581396_)))) - (___kont8139581396_)))))) - (_generate180328_ - (lambda (_where80714_ - _hd80716_ - _fender80717_ - _body80718_ - _E80719_) - (letrec ((_recur80721_ - (lambda (_hd80724_ - _tgt80726_ - _K80727_) - (let* ((___stx8143481435_ - _hd80724_) - (_g8073080742_ + (___kont8137781378_)))) + (___kont8137781378_)))))) + (_generate180310_ + (lambda (_where80696_ + _hd80698_ + _fender80699_ + _body80700_ + _E80701_) + (letrec ((_recur80703_ + (lambda (_hd80706_ + _tgt80708_ + _K80709_) + (let* ((___stx8141681417_ + _hd80706_) + (_g8071280724_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8143481435_)))) - (let ((___kont8143781438_ - (lambda (_L81026_ - _L81028_) - (let* ((_g8103981047_ - (lambda (_g8104081043_) + ___stx8141681417_)))) + (let ((___kont8141981420_ + (lambda (_L81008_ + _L81010_) + (let* ((_g8102181029_ + (lambda (_g8102281025_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8104081043_))) - (_g8103881228_ - (lambda (_g8104081051_) - ((lambda (_L81054_) + _g8102281025_))) + (_g8102081210_ + (lambda (_g8102281033_) + ((lambda (_L81036_) (let () - (let* ((_g8106681074_ - (lambda (_g8106781070_) + (let* ((_g8104881056_ + (lambda (_g8104981052_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8106781070_))) - (_g8106581224_ - (lambda (_g8106781078_) - ((lambda (_L81081_) + _g8104981052_))) + (_g8104781206_ + (lambda (_g8104981060_) + ((lambda (_L81063_) (let () - (let* ((_g8109481102_ - (lambda (_g8109581098_) + (let* ((_g8107681084_ + (lambda (_g8107781080_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8109581098_))) - (_g8109381220_ - (lambda (_g8109581106_) - ((lambda (_L81109_) + _g8107781080_))) + (_g8107581202_ + (lambda (_g8107781088_) + ((lambda (_L81091_) (let () - (let* ((_g8112281130_ + (let* ((_g8110481112_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g8112381126_) + (lambda (_g8110581108_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8112381126_))) - (_g8112181216_ - (lambda (_g8112381134_) - ((lambda (_L81137_) + _g8110581108_))) + (_g8110381198_ + (lambda (_g8110581116_) + ((lambda (_L81119_) (let () - (let* ((_g8115081158_ - (lambda (_g8115181154_) + (let* ((_g8113281140_ + (lambda (_g8113381136_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8115181154_))) - (_g8114981212_ - (lambda (_g8115181162_) - ((lambda (_L81165_) + _g8113381136_))) + (_g8113181194_ + (lambda (_g8113381144_) + ((lambda (_L81147_) (let () - (let* ((_g8117881186_ - (lambda (_g8117981182_) + (let* ((_g8116081168_ + (lambda (_g8116181164_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8117981182_))) - (_g8117781208_ - (lambda (_g8117981190_) - ((lambda (_L81193_) + _g8116181164_))) + (_g8115981190_ + (lambda (_g8116181172_) + ((lambda (_L81175_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp81569 (gx#datum->syntax '#f 'if)) - (__tmp81537 - (let ((__tmp81566 - (let ((__tmp81568 + (let ((__tmp81551 (gx#datum->syntax '#f 'if)) + (__tmp81519 + (let ((__tmp81548 + (let ((__tmp81550 (gx#datum->syntax '#f 'stx-pair?)) - (__tmp81567 + (__tmp81549 (let () (declare (not safe)) - (cons _L81054_ '())))) + (cons _L81036_ '())))) (declare (not safe)) - (cons __tmp81568 __tmp81567))) - (__tmp81538 - (let ((__tmp81540 - (let ((__tmp81565 + (cons __tmp81550 __tmp81549))) + (__tmp81520 + (let ((__tmp81522 + (let ((__tmp81547 (gx#datum->syntax '#f 'let)) - (__tmp81541 - (let ((__tmp81559 - (let ((__tmp81560 + (__tmp81523 + (let ((__tmp81541 + (let ((__tmp81542 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp81561 - (let ((__tmp81562 - (let ((__tmp81564 + (let ((__tmp81543 + (let ((__tmp81544 + (let ((__tmp81546 (gx#datum->syntax '#f 'syntax-e)) - (__tmp81563 + (__tmp81545 (let () (declare (not safe)) - (cons _L81054_ '())))) + (cons _L81036_ '())))) (declare (not safe)) - (cons __tmp81564 __tmp81563)))) + (cons __tmp81546 __tmp81545)))) (declare (not safe)) - (cons __tmp81562 '())))) + (cons __tmp81544 '())))) (declare (not safe)) - (cons _L81081_ __tmp81561)))) + (cons _L81063_ __tmp81543)))) (declare (not safe)) - (cons __tmp81560 '()))) - (__tmp81542 - (let ((__tmp81543 - (let ((__tmp81558 (gx#datum->syntax '#f 'let)) - (__tmp81544 - (let ((__tmp81546 - (let ((__tmp81553 - (let ((__tmp81554 - (let ((__tmp81555 - (let ((__tmp81557 + (cons __tmp81542 '()))) + (__tmp81524 + (let ((__tmp81525 + (let ((__tmp81540 (gx#datum->syntax '#f 'let)) + (__tmp81526 + (let ((__tmp81528 + (let ((__tmp81535 + (let ((__tmp81536 + (let ((__tmp81537 + (let ((__tmp81539 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##car)) - (__tmp81556 + (__tmp81538 (let () (declare (not safe)) - (cons _L81081_ '())))) + (cons _L81063_ '())))) (declare (not safe)) - (cons __tmp81557 __tmp81556)))) + (cons __tmp81539 __tmp81538)))) (declare (not safe)) - (cons __tmp81555 '())))) + (cons __tmp81537 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L81109_ - __tmp81554))) - (__tmp81547 - (let ((__tmp81548 - (let ((__tmp81549 - (let ((__tmp81550 + (cons _L81091_ + __tmp81536))) + (__tmp81529 + (let ((__tmp81530 + (let ((__tmp81531 + (let ((__tmp81532 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp81552 (gx#datum->syntax '#f '##cdr)) - (__tmp81551 + (let ((__tmp81534 (gx#datum->syntax '#f '##cdr)) + (__tmp81533 (let () (declare (not safe)) - (cons _L81081_ '())))) + (cons _L81063_ '())))) (declare (not safe)) - (cons __tmp81552 __tmp81551)))) + (cons __tmp81534 __tmp81533)))) (declare (not safe)) - (cons __tmp81550 '())))) + (cons __tmp81532 '())))) (declare (not safe)) - (cons _L81137_ __tmp81549)))) + (cons _L81119_ __tmp81531)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81548 '())))) + (cons __tmp81530 '())))) (declare (not safe)) - (cons __tmp81553 __tmp81547))) - (__tmp81545 + (cons __tmp81535 __tmp81529))) + (__tmp81527 (let () (declare (not safe)) - (cons _L81165_ '())))) + (cons _L81147_ '())))) (declare (not safe)) - (cons __tmp81546 __tmp81545)))) + (cons __tmp81528 __tmp81527)))) (declare (not safe)) - (cons __tmp81558 __tmp81544)))) + (cons __tmp81540 __tmp81526)))) (declare (not safe)) - (cons __tmp81543 '())))) + (cons __tmp81525 '())))) (declare (not safe)) - (cons __tmp81559 __tmp81542)))) + (cons __tmp81541 __tmp81524)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81565 - __tmp81541))) - (__tmp81539 + (cons __tmp81547 + __tmp81523))) + (__tmp81521 (let () (declare (not safe)) - (cons _L81193_ '())))) + (cons _L81175_ '())))) (declare (not safe)) - (cons __tmp81540 __tmp81539)))) + (cons __tmp81522 __tmp81521)))) (declare (not safe)) - (cons __tmp81566 __tmp81538)))) + (cons __tmp81548 __tmp81520)))) (declare (not safe)) - (cons __tmp81569 __tmp81537))))) - _g8117981190_)))) + (cons __tmp81551 __tmp81519))))) + _g8116181172_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8117781208_ _E80719_)))) - _g8115181162_)))) - (_g8114981212_ - (_recur80721_ - _L81028_ - _L81109_ - (_recur80721_ - _L81026_ - _L81137_ - _K80727_)))))) - _g8112381134_)))) - (_g8112181216_ (gx#genident 'tl))))) - _g8109581106_)))) + (_g8115981190_ _E80701_)))) + _g8113381144_)))) + (_g8113181194_ + (_recur80703_ + _L81010_ + _L81091_ + (_recur80703_ + _L81008_ + _L81119_ + _K80709_)))))) + _g8110581116_)))) + (_g8110381198_ (gx#genident 'tl))))) + _g8107781088_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8109381220_ + (_g8107581202_ (gx#genident 'hd))))) - _g8106781078_)))) - (_g8106581224_ (gx#genident 'e))))) - _g8104081051_)))) - (_g8103881228_ _tgt80726_)))) + _g8104981060_)))) + (_g8104781206_ (gx#genident 'e))))) + _g8102281033_)))) + (_g8102081210_ _tgt80708_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8143981440_ + (___kont8142181422_ (lambda () (if (gx#identifier? - _hd80724_) + _hd80706_) (if (gx#underscore? - _hd80724_) - _K80727_ - (if (let ((__tmp81614 + _hd80706_) + _K80709_ + (if (let ((__tmp81596 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g8075280754_) + (lambda (_g8073480736_) (gx#bound-identifier=? - _g8075280754_ - _hd80724_)))) + _g8073480736_ + _hd80706_)))) (declare (not safe)) - (find __tmp81614 _kws80323_)) - (let* ((_g8075880773_ - (lambda (_g8075980769_) + (find __tmp81596 _kws80305_)) + (let* ((_g8074080755_ + (lambda (_g8074180751_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8075980769_))) - (_g8075780824_ - (lambda (_g8075980777_) - (if (gx#stx-pair? _g8075980777_) - (let ((_e8076480780_ - (gx#syntax-e _g8075980777_))) - (let ((_hd8076380784_ + _g8074180751_))) + (_g8073980806_ + (lambda (_g8074180759_) + (if (gx#stx-pair? _g8074180759_) + (let ((_e8074680762_ + (gx#syntax-e _g8074180759_))) + (let ((_hd8074580766_ (let () (declare (not safe)) - (##car _e8076480780_))) - (_tl8076280787_ + (##car _e8074680762_))) + (_tl8074480769_ (let () (declare (not safe)) - (##cdr _e8076480780_)))) - (if (gx#stx-pair? _tl8076280787_) - (let ((_e8076780790_ + (##cdr _e8074680762_)))) + (if (gx#stx-pair? _tl8074480769_) + (let ((_e8074980772_ (gx#syntax-e - _tl8076280787_))) - (let ((_hd8076680794_ + _tl8074480769_))) + (let ((_hd8074880776_ (let () (declare (not safe)) - (##car _e8076780790_))) - (_tl8076580797_ + (##car _e8074980772_))) + (_tl8074780779_ (let () (declare (not safe)) - (##cdr _e8076780790_)))) + (##cdr _e8074980772_)))) (if (gx#stx-null? - _tl8076580797_) - ((lambda (_L80800_ + _tl8074780779_) + ((lambda (_L80782_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L80802_) + _L80784_) (let () - (let ((__tmp81613 (gx#datum->syntax '#f 'if)) - (__tmp81596 - (let ((__tmp81599 - (let ((__tmp81612 + (let ((__tmp81595 (gx#datum->syntax '#f 'if)) + (__tmp81578 + (let ((__tmp81581 + (let ((__tmp81594 (gx#datum->syntax '#f 'and)) - (__tmp81600 - (let ((__tmp81609 - (let ((__tmp81611 + (__tmp81582 + (let ((__tmp81591 + (let ((__tmp81593 (gx#datum->syntax '#f 'identifier?)) - (__tmp81610 + (__tmp81592 (let () (declare (not safe)) - (cons _L80802_ + (cons _L80784_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81611 - __tmp81610))) - (__tmp81601 - (let ((__tmp81602 - (let ((__tmp81608 + (cons __tmp81593 + __tmp81592))) + (__tmp81583 + (let ((__tmp81584 + (let ((__tmp81590 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'core-identifier=?)) - (__tmp81603 - (let ((__tmp81604 - (let ((__tmp81605 - (let ((__tmp81607 + (__tmp81585 + (let ((__tmp81586 + (let ((__tmp81587 + (let ((__tmp81589 (gx#datum->syntax '#f 'quote)) - (__tmp81606 + (__tmp81588 (let () (declare (not safe)) - (cons _L80800_ '())))) + (cons _L80782_ '())))) (declare (not safe)) - (cons __tmp81607 __tmp81606)))) + (cons __tmp81589 __tmp81588)))) (declare (not safe)) - (cons __tmp81605 '())))) + (cons __tmp81587 '())))) (declare (not safe)) - (cons _L80802_ __tmp81604)))) + (cons _L80784_ __tmp81586)))) (declare (not safe)) - (cons __tmp81608 __tmp81603)))) + (cons __tmp81590 __tmp81585)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81602 '())))) + (cons __tmp81584 '())))) (declare (not safe)) - (cons __tmp81609 __tmp81601)))) + (cons __tmp81591 __tmp81583)))) (declare (not safe)) - (cons __tmp81612 __tmp81600))) - (__tmp81597 - (let ((__tmp81598 + (cons __tmp81594 __tmp81582))) + (__tmp81579 + (let ((__tmp81580 (let () (declare (not safe)) - (cons _E80719_ '())))) + (cons _E80701_ '())))) (declare (not safe)) - (cons _K80727_ __tmp81598)))) + (cons _K80709_ __tmp81580)))) (declare (not safe)) - (cons __tmp81599 __tmp81597)))) + (cons __tmp81581 __tmp81579)))) (declare (not safe)) - (cons __tmp81613 __tmp81596)))) - _hd8076680794_ - _hd8076380784_) - (_g8075880773_ _g8075980777_)))) + (cons __tmp81595 __tmp81578)))) + _hd8074880776_ + _hd8074580766_) + (_g8074080755_ _g8074180759_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8075880773_ - _g8075980777_)))) - (_g8075880773_ _g8075980777_))))) - (_g8075780824_ (list _tgt80726_ _hd80724_))) - (let* ((_g8082880843_ - (lambda (_g8082980839_) + (_g8074080755_ + _g8074180759_)))) + (_g8074080755_ _g8074180759_))))) + (_g8073980806_ (list _tgt80708_ _hd80706_))) + (let* ((_g8081080825_ + (lambda (_g8081180821_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8082980839_))) - (_g8082780887_ - (lambda (_g8082980847_) - (if (gx#stx-pair? _g8082980847_) - (let ((_e8083480850_ - (gx#syntax-e _g8082980847_))) - (let ((_hd8083380854_ + _g8081180821_))) + (_g8080980869_ + (lambda (_g8081180829_) + (if (gx#stx-pair? _g8081180829_) + (let ((_e8081680832_ + (gx#syntax-e _g8081180829_))) + (let ((_hd8081580836_ (let () (declare (not safe)) - (##car _e8083480850_))) - (_tl8083280857_ + (##car _e8081680832_))) + (_tl8081480839_ (let () (declare (not safe)) - (##cdr _e8083480850_)))) - (if (gx#stx-pair? _tl8083280857_) - (let ((_e8083780860_ + (##cdr _e8081680832_)))) + (if (gx#stx-pair? _tl8081480839_) + (let ((_e8081980842_ (gx#syntax-e - _tl8083280857_))) - (let ((_hd8083680864_ + _tl8081480839_))) + (let ((_hd8081880846_ (let () (declare (not safe)) - (##car _e8083780860_))) - (_tl8083580867_ + (##car _e8081980842_))) + (_tl8081780849_ (let () (declare (not safe)) - (##cdr _e8083780860_)))) + (##cdr _e8081980842_)))) (if (gx#stx-null? - _tl8083580867_) - ((lambda (_L80870_ + _tl8081780849_) + ((lambda (_L80852_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L80872_) + _L80854_) (let () - (let ((__tmp81595 (gx#datum->syntax '#f 'let)) - (__tmp81590 - (let ((__tmp81592 - (let ((__tmp81593 - (let ((__tmp81594 + (let ((__tmp81577 (gx#datum->syntax '#f 'let)) + (__tmp81572 + (let ((__tmp81574 + (let ((__tmp81575 + (let ((__tmp81576 (let () (declare (not safe)) - (cons _L80872_ '())))) + (cons _L80854_ '())))) (declare (not safe)) - (cons _L80870_ __tmp81594)))) + (cons _L80852_ __tmp81576)))) (declare (not safe)) - (cons __tmp81593 '()))) - (__tmp81591 + (cons __tmp81575 '()))) + (__tmp81573 (let () (declare (not safe)) - (cons _K80727_ '())))) + (cons _K80709_ '())))) (declare (not safe)) - (cons __tmp81592 __tmp81591)))) + (cons __tmp81574 __tmp81573)))) (declare (not safe)) - (cons __tmp81595 __tmp81590)))) - _hd8083680864_ - _hd8083380854_) - (_g8082880843_ _g8082980847_)))) + (cons __tmp81577 __tmp81572)))) + _hd8081880846_ + _hd8081580836_) + (_g8081080825_ _g8081180829_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8082880843_ - _g8082980847_)))) - (_g8082880843_ _g8082980847_))))) - (_g8082780887_ (list _tgt80726_ _hd80724_))))) - (if (gx#stx-null? _hd80724_) - (let* ((_g8089180899_ - (lambda (_g8089280895_) + (_g8081080825_ + _g8081180829_)))) + (_g8081080825_ _g8081180829_))))) + (_g8080980869_ (list _tgt80708_ _hd80706_))))) + (if (gx#stx-null? _hd80706_) + (let* ((_g8087380881_ + (lambda (_g8087480877_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8089280895_))) - (_g8089080917_ - (lambda (_g8089280903_) - ((lambda (_L80906_) + _g8087480877_))) + (_g8087280899_ + (lambda (_g8087480885_) + ((lambda (_L80888_) (let () - (let ((__tmp81589 + (let ((__tmp81571 (gx#datum->syntax '#f 'if)) - (__tmp81583 - (let ((__tmp81586 - (let ((__tmp81588 + (__tmp81565 + (let ((__tmp81568 + (let ((__tmp81570 (gx#datum->syntax '#f 'stx-null?)) - (__tmp81587 + (__tmp81569 (let () (declare (not safe)) - (cons _L80906_ + (cons _L80888_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp81588 __tmp81587))) + (cons __tmp81570 __tmp81569))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp81584 - (let ((__tmp81585 + (__tmp81566 + (let ((__tmp81567 (let () (declare (not safe)) - (cons _E80719_ + (cons _E80701_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _K80727_ __tmp81585)))) + (cons _K80709_ __tmp81567)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81586 __tmp81584)))) + (cons __tmp81568 __tmp81566)))) (declare (not safe)) - (cons __tmp81589 __tmp81583)))) - _g8089280903_)))) - (_g8089080917_ _tgt80726_)) - (if (gx#stx-datum? _hd80724_) - (let* ((_g8092180940_ - (lambda (_g8092280936_) + (cons __tmp81571 __tmp81565)))) + _g8087480885_)))) + (_g8087280899_ _tgt80708_)) + (if (gx#stx-datum? _hd80706_) + (let* ((_g8090380922_ + (lambda (_g8090480918_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8092280936_))) - (_g8092080998_ - (lambda (_g8092280944_) - (if (gx#stx-pair? _g8092280944_) - (let ((_e8092880947_ - (gx#syntax-e _g8092280944_))) - (let ((_hd8092780951_ + _g8090480918_))) + (_g8090280980_ + (lambda (_g8090480926_) + (if (gx#stx-pair? _g8090480926_) + (let ((_e8091080929_ + (gx#syntax-e _g8090480926_))) + (let ((_hd8090980933_ (let () (declare (not safe)) - (##car _e8092880947_))) - (_tl8092680954_ + (##car _e8091080929_))) + (_tl8090880936_ (let () (declare (not safe)) - (##cdr _e8092880947_)))) - (if (gx#stx-pair? _tl8092680954_) - (let ((_e8093180957_ + (##cdr _e8091080929_)))) + (if (gx#stx-pair? _tl8090880936_) + (let ((_e8091380939_ (gx#syntax-e - _tl8092680954_))) - (let ((_hd8093080961_ + _tl8090880936_))) + (let ((_hd8091280943_ (let () (declare (not safe)) - (##car _e8093180957_))) - (_tl8092980964_ + (##car _e8091380939_))) + (_tl8091180946_ (let () (declare (not safe)) - (##cdr _e8093180957_)))) + (##cdr _e8091380939_)))) (if (gx#stx-pair? - _tl8092980964_) - (let ((_e8093480967_ + _tl8091180946_) + (let ((_e8091680949_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _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_) + _tl8091180946_))) + (let ((_hd8091580953_ + (let () (declare (not safe)) (##car _e8091680949_))) + (_tl8091480956_ + (let () (declare (not safe)) (##cdr _e8091680949_)))) + (if (gx#stx-null? _tl8091480956_) + ((lambda (_L80959_ _L80961_ _L80962_) (let () - (let ((__tmp81582 (gx#datum->syntax '#f 'if)) - (__tmp81570 - (let ((__tmp81573 - (let ((__tmp81574 - (let ((__tmp81579 - (let ((__tmp81581 + (let ((__tmp81564 (gx#datum->syntax '#f 'if)) + (__tmp81552 + (let ((__tmp81555 + (let ((__tmp81556 + (let ((__tmp81561 + (let ((__tmp81563 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'stx-e)) - (__tmp81580 - (let () (declare (not safe)) (cons _L80980_ '())))) + (__tmp81562 + (let () (declare (not safe)) (cons _L80962_ '())))) (declare (not safe)) - (cons __tmp81581 __tmp81580))) - (__tmp81575 - (let ((__tmp81576 - (let ((__tmp81578 (gx#datum->syntax '#f 'quote)) - (__tmp81577 + (cons __tmp81563 __tmp81562))) + (__tmp81557 + (let ((__tmp81558 + (let ((__tmp81560 (gx#datum->syntax '#f 'quote)) + (__tmp81559 (let () (declare (not safe)) - (cons _L80979_ '())))) + (cons _L80961_ '())))) (declare (not safe)) - (cons __tmp81578 __tmp81577)))) + (cons __tmp81560 __tmp81559)))) (declare (not safe)) - (cons __tmp81576 '())))) + (cons __tmp81558 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81579 - __tmp81575)))) + (cons __tmp81561 + __tmp81557)))) (declare (not safe)) - (cons _L80977_ __tmp81574))) - (__tmp81571 - (let ((__tmp81572 + (cons _L80959_ __tmp81556))) + (__tmp81553 + (let ((__tmp81554 (let () (declare (not safe)) - (cons _E80719_ '())))) + (cons _E80701_ '())))) (declare (not safe)) - (cons _K80727_ __tmp81572)))) + (cons _K80709_ __tmp81554)))) (declare (not safe)) - (cons __tmp81573 __tmp81571)))) + (cons __tmp81555 __tmp81553)))) (declare (not safe)) - (cons __tmp81582 __tmp81570)))) - _hd8093380971_ - _hd8093080961_ - _hd8092780951_) - (_g8092180940_ _g8092280944_)))) - (_g8092180940_ _g8092280944_)))) + (cons __tmp81564 __tmp81552)))) + _hd8091580953_ + _hd8091280943_ + _hd8090980933_) + (_g8090380922_ _g8090480926_)))) + (_g8090380922_ _g8090480926_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8092180940_ - _g8092280944_)))) - (_g8092180940_ _g8092280944_))))) - (_g8092080998_ - (list _tgt80726_ - _hd80724_ - (let ((_e81002_ (gx#stx-e _hd80724_))) - (if (or (keyword? _e81002_) + (_g8090380922_ + _g8090480926_)))) + (_g8090380922_ _g8090480926_))))) + (_g8090280980_ + (list _tgt80708_ + _hd80706_ + (let ((_e80984_ (gx#stx-e _hd80706_))) + (if (or (keyword? _e80984_) (let () (declare (not safe)) - (immediate? _e81002_))) + (immediate? _e80984_))) (gx#datum->syntax '#f 'eq?) (if (let () (declare (not safe)) - (number? _e81002_)) + (number? _e80984_)) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -1014,499 +1014,499 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case head" - _stx80169_ - _where80714_ - _hd80724_))))))) + _stx80151_ + _where80696_ + _hd80706_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx8143481435_) - (let ((_e8073681016_ + ___stx8141681417_) + (let ((_e8071880998_ (gx#syntax-e - ___stx8143481435_))) - (let ((_tl8073481023_ + ___stx8141681417_))) + (let ((_tl8071681005_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e8073681016_))) - (_hd8073581020_ - (let () (declare (not safe)) (##car _e8073681016_)))) - (___kont8143781438_ _tl8073481023_ _hd8073581020_))) + (##cdr _e8071880998_))) + (_hd8071781002_ + (let () (declare (not safe)) (##car _e8071880998_)))) + (___kont8141981420_ _tl8071681005_ _hd8071781002_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8143981440_))))))) - (_recur80721_ - _hd80716_ - _tgt80321_ - (let ((__tmp81618 + (___kont8142181422_))))))) + (_recur80703_ + _hd80698_ + _tgt80303_ + (let ((__tmp81600 (gx#datum->syntax '#f 'if)) - (__tmp81615 - (let ((__tmp81616 - (let ((__tmp81617 + (__tmp81597 + (let ((__tmp81598 + (let ((__tmp81599 (let () (declare (not safe)) - (cons _E80719_ + (cons _E80701_ '())))) (declare (not safe)) - (cons _body80718_ - __tmp81617)))) + (cons _body80700_ + __tmp81599)))) (declare (not safe)) - (cons _fender80717_ __tmp81616)))) + (cons _fender80699_ __tmp81598)))) (declare (not safe)) - (cons __tmp81618 __tmp81615)))))) - (_generate-clauses80329_ - (lambda (_clauses80452_) - (let _lp80455_ ((_rest80458_ _clauses80452_) - (_E80460_ (gx#genident 'E)) - (_r80461_ '())) - (let* ((___stx8147081471_ _rest80458_) - (_g8046480476_ + (cons __tmp81600 __tmp81597)))))) + (_generate-clauses80311_ + (lambda (_clauses80434_) + (let _lp80437_ ((_rest80440_ _clauses80434_) + (_E80442_ (gx#genident 'E)) + (_r80443_ '())) + (let* ((___stx8145281453_ _rest80440_) + (_g8044680458_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8147081471_)))) - (let ((___kont8147381474_ - (lambda (_L80541_ _L80543_) - (let* ((___stx8145081451_ - _L80543_) - (_g8055580566_ + ___stx8145281453_)))) + (let ((___kont8145581456_ + (lambda (_L80523_ _L80525_) + (let* ((___stx8143281433_ + _L80525_) + (_g8053780548_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx8145081451_)))) - (let ((___kont8145381454_ - (lambda (_L80695_) + ___stx8143281433_)))) + (let ((___kont8143581436_ + (lambda (_L80677_) (if (gx#stx-null? - _L80541_) + _L80523_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L80695_) - (let ((__tmp81627 (gx#stx-null? _L80695_))) + _L80677_) + (let ((__tmp81609 (gx#stx-null? _L80677_))) (declare (not safe)) - (not __tmp81627))) - (let ((__tmp81619 - (let ((__tmp81620 - (let ((__tmp81621 + (not __tmp81609))) + (let ((__tmp81601 + (let ((__tmp81602 + (let ((__tmp81603 (gx#stx-wrap-source - (let ((__tmp81626 + (let ((__tmp81608 (gx#datum->syntax '#f 'lambda)) - (__tmp81622 - (let ((__tmp81623 - (let ((__tmp81624 + (__tmp81604 + (let ((__tmp81605 + (let ((__tmp81606 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp81625 (gx#datum->syntax '#f 'begin))) + (let ((__tmp81607 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp81625 _L80695_)))) + (cons __tmp81607 _L80677_)))) (declare (not safe)) - (cons __tmp81624 '())))) + (cons __tmp81606 '())))) (declare (not safe)) - (cons '() __tmp81623)))) + (cons '() __tmp81605)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81626 __tmp81622)) - (gx#stx-source _L80543_)))) + (cons __tmp81608 __tmp81604)) + (gx#stx-source _L80525_)))) (declare (not safe)) - (cons __tmp81621 '())))) + (cons __tmp81603 '())))) (declare (not safe)) - (cons _E80460_ __tmp81620)))) + (cons _E80442_ __tmp81602)))) (declare (not safe)) - (cons __tmp81619 _r80461_)) + (cons __tmp81601 _r80443_)) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _stx80169_ - _L80543_)) + _stx80151_ + _L80525_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _stx80169_ - _L80543_)))) + _stx80151_ + _L80525_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8145581456_ + (___kont8143781438_ (lambda () - (let* ((_g8057780585_ - (lambda (_g8057880581_) + (let* ((_g8055980567_ + (lambda (_g8056080563_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8057880581_))) - (_g8057680674_ - (lambda (_g8057880589_) - ((lambda (_L80592_) + _g8056080563_))) + (_g8055880656_ + (lambda (_g8056080571_) + ((lambda (_L80574_) (let () - (let* ((_g8060880616_ - (lambda (_g8060980612_) + (let* ((_g8059080598_ + (lambda (_g8059180594_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8060980612_))) - (_g8060780670_ - (lambda (_g8060980620_) - ((lambda (_L80623_) + _g8059180594_))) + (_g8058980652_ + (lambda (_g8059180602_) + ((lambda (_L80605_) (let () - (let* ((_g8063680644_ - (lambda (_g8063780640_) + (let* ((_g8061880626_ + (lambda (_g8061980622_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8063780640_))) - (_g8063580666_ - (lambda (_g8063780648_) - ((lambda (_L80651_) + _g8061980622_))) + (_g8061780648_ + (lambda (_g8061980630_) + ((lambda (_L80633_) (let () (let () - (_lp80455_ - _L80541_ - _L80592_ - (let ((__tmp81628 + (_lp80437_ + _L80523_ + _L80574_ + (let ((__tmp81610 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp81629 + (let ((__tmp81611 (let () (declare (not safe)) - (cons _L80651_ '())))) + (cons _L80633_ '())))) (declare (not safe)) - (cons _E80460_ __tmp81629)))) + (cons _E80442_ __tmp81611)))) (declare (not safe)) - (cons __tmp81628 _r80461_)))))) - _g8063780648_)))) + (cons __tmp81610 _r80443_)))))) + _g8061980630_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8063580666_ + (_g8061780648_ (gx#stx-wrap-source - (let ((__tmp81632 + (let ((__tmp81614 (gx#datum->syntax '#f 'lambda)) - (__tmp81630 - (let ((__tmp81631 + (__tmp81612 + (let ((__tmp81613 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L80623_ '())))) + (cons _L80605_ '())))) (declare (not safe)) - (cons '() __tmp81631)))) + (cons '() __tmp81613)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81632 - __tmp81630)) - (gx#stx-source _L80543_)))))) - _g8060980620_)))) - (_g8060780670_ - (_generate-clause80326_ - _L80543_ + (cons __tmp81614 + __tmp81612)) + (gx#stx-source _L80525_)))))) + _g8059180602_)))) + (_g8058980652_ + (_generate-clause80308_ + _L80525_ (let () (declare (not safe)) - (cons _L80592_ '()))))))) - _g8057880589_)))) - (_g8057680674_ (gx#genident 'E)))))) + (cons _L80574_ '()))))))) + _g8056080571_)))) + (_g8055880656_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx8145081451_) - (let ((_e8056080685_ + ___stx8143281433_) + (let ((_e8054280667_ (gx#syntax-e - ___stx8145081451_))) - (let ((_tl8055880692_ + ___stx8143281433_))) + (let ((_tl8054080674_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##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_)))) + (##cdr _e8054280667_))) + (_hd8054180671_ + (let () (declare (not safe)) (##car _e8054280667_)))) + (if (gx#identifier? _hd8054180671_) + (if (gx#free-identifier=? |gx[1]#_g81615_| _hd8054180671_) + (___kont8143581436_ _tl8054080674_) + (___kont8143781438_)) + (___kont8143781438_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont8145581456_)))))) - (___kont8147581476_ + (___kont8143781438_)))))) + (___kont8145781458_ (lambda () - (let* ((_g8048780495_ - (lambda (_g8048880491_) + (let* ((_g8046980477_ + (lambda (_g8047080473_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8048880491_))) - (_g8048680520_ - (lambda (_g8048880499_) - ((lambda (_L80502_) + _g8047080473_))) + (_g8046880502_ + (lambda (_g8047080481_) + ((lambda (_L80484_) (let () - (let ((__tmp81634 + (let ((__tmp81616 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp81635 - (let ((__tmp81636 + (let ((__tmp81617 + (let ((__tmp81618 (gx#stx-wrap-source - (let ((__tmp81644 + (let ((__tmp81626 (gx#datum->syntax '#f 'lambda)) - (__tmp81637 - (let ((__tmp81638 - (let ((__tmp81639 - (let ((__tmp81643 + (__tmp81619 + (let ((__tmp81620 + (let ((__tmp81621 + (let ((__tmp81625 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'raise-syntax-error)) - (__tmp81640 - (let ((__tmp81641 - (let ((__tmp81642 + (__tmp81622 + (let ((__tmp81623 + (let ((__tmp81624 (let () (declare (not safe)) - (cons _L80502_ '())))) + (cons _L80484_ '())))) (declare (not safe)) (cons '"Bad syntax; invalid syntax-case clause" - __tmp81642)))) + __tmp81624)))) (declare (not safe)) - (cons '#f __tmp81641)))) + (cons '#f __tmp81623)))) (declare (not safe)) - (cons __tmp81643 __tmp81640)))) + (cons __tmp81625 __tmp81622)))) (declare (not safe)) - (cons __tmp81639 '())))) + (cons __tmp81621 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp81638)))) + (cons '() __tmp81620)))) (declare (not safe)) - (cons __tmp81644 __tmp81637)) - (gx#stx-source _stx80169_)))) + (cons __tmp81626 __tmp81619)) + (gx#stx-source _stx80151_)))) (declare (not safe)) - (cons __tmp81636 '())))) + (cons __tmp81618 '())))) (declare (not safe)) - (cons _E80460_ __tmp81635)))) + (cons _E80442_ __tmp81617)))) (declare (not safe)) - (cons __tmp81634 _r80461_)))) - _g8048880499_)))) + (cons __tmp81616 _r80443_)))) + _g8047080481_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8048680520_ _tgt80321_))))) - (if (gx#stx-pair? ___stx8147081471_) - (let ((_e8047080531_ + (_g8046880502_ _tgt80303_))))) + (if (gx#stx-pair? ___stx8145281453_) + (let ((_e8045280513_ (gx#syntax-e - ___stx8147081471_))) - (let ((_tl8046880538_ + ___stx8145281453_))) + (let ((_tl8045080520_ (let () (declare (not safe)) - (##cdr _e8047080531_))) - (_hd8046980535_ + (##cdr _e8045280513_))) + (_hd8045180517_ (let () (declare (not safe)) - (##car _e8047080531_)))) - (___kont8147381474_ - _tl8046880538_ - _hd8046980535_))) - (___kont8147581476_)))))))) - (let* ((_bind80331_ - (_generate-clauses80329_ _clauses80324_)) - (_g8033480351_ - (lambda (_g8033580347_) + (##car _e8045280513_)))) + (___kont8145581456_ + _tl8045080520_ + _hd8045180517_))) + (___kont8145781458_)))))))) + (let* ((_bind80313_ + (_generate-clauses80311_ _clauses80306_)) + (_g8031680333_ + (lambda (_g8031780329_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8033580347_))) - (_g8033380448_ - (lambda (_g8033580355_) - (if (gx#stx-pair/null? _g8033580355_) - (let ((_g81645_ + _g8031780329_))) + (_g8031580430_ + (lambda (_g8031780337_) + (if (gx#stx-pair/null? _g8031780337_) + (let ((_g81627_ (gx#syntax-split-splice - _g8033580355_ + _g8031780337_ '0))) (begin - (let ((_g81646_ + (let ((_g81628_ (let () (declare (not safe)) - (if (##values? _g81645_) - (##vector-length _g81645_) + (if (##values? _g81627_) + (##vector-length _g81627_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g81646_ 2))) + (##fx= _g81628_ 2))) (error "Context expects 2 values" - _g81646_))) - (let ((_target8033780358_ + _g81628_))) + (let ((_target8031980340_ (let () (declare (not safe)) - (##vector-ref _g81645_ 0))) - (_tl8033980361_ + (##vector-ref _g81627_ 0))) + (_tl8032180343_ (let () (declare (not safe)) - (##vector-ref _g81645_ 1)))) - (if (gx#stx-null? _tl8033980361_) - (letrec ((_loop8034080364_ - (lambda (_hd8033880368_ + (##vector-ref _g81627_ 1)))) + (if (gx#stx-null? _tl8032180343_) + (letrec ((_loop8032280346_ + (lambda (_hd8032080350_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind-try8034480371_) - (if (gx#stx-pair? _hd8033880368_) - (let ((_e8034180374_ (gx#syntax-e _hd8033880368_))) - (let ((_lp-hd8034280378_ + _bind-try8032680353_) + (if (gx#stx-pair? _hd8032080350_) + (let ((_e8032380356_ (gx#syntax-e _hd8032080350_))) + (let ((_lp-hd8032480360_ (let () (declare (not safe)) - (##car _e8034180374_))) - (_lp-tl8034380381_ + (##car _e8032380356_))) + (_lp-tl8032580363_ (let () (declare (not safe)) - (##cdr _e8034180374_)))) - (_loop8034080364_ - _lp-tl8034380381_ + (##cdr _e8032380356_)))) + (_loop8032280346_ + _lp-tl8032580363_ (let () (declare (not safe)) - (cons _lp-hd8034280378_ _bind-try8034480371_))))) - (let ((_bind-try8034580384_ - (reverse _bind-try8034480371_))) - ((lambda (_L80388_) + (cons _lp-hd8032480360_ _bind-try8032680353_))))) + (let ((_bind-try8032780366_ + (reverse _bind-try8032680353_))) + ((lambda (_L80370_) (let () - (let* ((_g8040680414_ - (lambda (_g8040780410_) + (let* ((_g8038880396_ + (lambda (_g8038980392_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8040780410_))) - (_g8040580444_ - (lambda (_g8040780418_) - ((lambda (_L80421_) + _g8038980392_))) + (_g8038780426_ + (lambda (_g8038980400_) + ((lambda (_L80403_) (let () (let () - (let ((__tmp81652 + (let ((__tmp81634 (gx#datum->syntax '#f 'let*)) - (__tmp81647 - (let ((__tmp81650 - (let ((__tmp81651 + (__tmp81629 + (let ((__tmp81632 + (let ((__tmp81633 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g8043580438_ _g8043680441_) + (lambda (_g8041780420_ _g8041880423_) (let () (declare (not safe)) - (cons _g8043580438_ _g8043680441_))))) + (cons _g8041780420_ _g8041880423_))))) (declare (not safe)) - (foldr1 __tmp81651 '() _L80388_))) - (__tmp81648 - (let ((__tmp81649 - (let () (declare (not safe)) (cons _L80421_ '())))) + (foldr1 __tmp81633 '() _L80370_))) + (__tmp81630 + (let ((__tmp81631 + (let () (declare (not safe)) (cons _L80403_ '())))) (declare (not safe)) - (cons __tmp81649 '())))) + (cons __tmp81631 '())))) (declare (not safe)) - (cons __tmp81650 __tmp81648)))) + (cons __tmp81632 __tmp81630)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81652 - __tmp81647))))) - _g8040780418_)))) - (_g8040580444_ (car (last _bind80331_)))))) - _bind-try8034580384_)))))) + (cons __tmp81634 + __tmp81629))))) + _g8038980400_)))) + (_g8038780426_ (car (last _bind80313_)))))) + _bind-try8032780366_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop8034080364_ - _target8033780358_ + (_loop8032280346_ + _target8031980340_ '())) - (_g8033480351_ _g8033580355_))))) - (_g8033480351_ _g8033580355_))))) - (_g8033380448_ _bind80331_)))))) - (let* ((_g8017580194_ - (lambda (_g8017680190_) + (_g8031680333_ _g8031780337_))))) + (_g8031680333_ _g8031780337_))))) + (_g8031580430_ _bind80313_)))))) + (let* ((_g8015780176_ + (lambda (_g8015880172_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8017680190_))) - (_g8017480317_ - (lambda (_g8017680198_) - (if (gx#stx-pair? _g8017680198_) - (let ((_e8018280201_ (gx#syntax-e _g8017680198_))) - (let ((_hd8018180205_ + _g8015880172_))) + (_g8015680299_ + (lambda (_g8015880180_) + (if (gx#stx-pair? _g8015880180_) + (let ((_e8016480183_ (gx#syntax-e _g8015880180_))) + (let ((_hd8016380187_ (let () (declare (not safe)) - (##car _e8018280201_))) - (_tl8018080208_ + (##car _e8016480183_))) + (_tl8016280190_ (let () (declare (not safe)) - (##cdr _e8018280201_)))) - (if (gx#stx-pair? _tl8018080208_) - (let ((_e8018580211_ - (gx#syntax-e _tl8018080208_))) - (let ((_hd8018480215_ + (##cdr _e8016480183_)))) + (if (gx#stx-pair? _tl8016280190_) + (let ((_e8016780193_ + (gx#syntax-e _tl8016280190_))) + (let ((_hd8016680197_ (let () (declare (not safe)) - (##car _e8018580211_))) - (_tl8018380218_ + (##car _e8016780193_))) + (_tl8016580200_ (let () (declare (not safe)) - (##cdr _e8018580211_)))) - (if (gx#stx-pair? _tl8018380218_) - (let ((_e8018880221_ - (gx#syntax-e _tl8018380218_))) - (let ((_hd8018780225_ + (##cdr _e8016780193_)))) + (if (gx#stx-pair? _tl8016580200_) + (let ((_e8017080203_ + (gx#syntax-e _tl8016580200_))) + (let ((_hd8016980207_ (let () (declare (not safe)) - (##car _e8018880221_))) - (_tl8018680228_ + (##car _e8017080203_))) + (_tl8016880210_ (let () (declare (not safe)) - (##cdr _e8018880221_)))) - ((lambda (_L80231_ - _L80233_ - _L80234_) + (##cdr _e8017080203_)))) + ((lambda (_L80213_ + _L80215_ + _L80216_) (if (and (gx#identifier-list? - _L80233_) + _L80215_) (gx#stx-list? - _L80231_)) - (let* ((_g8025280260_ - (lambda (_g8025380256_) + _L80213_)) + (let* ((_g8023480242_ + (lambda (_g8023580238_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8025380256_))) - (_g8025180313_ - (lambda (_g8025380264_) - ((lambda (_L80267_) + _g8023580238_))) + (_g8023380295_ + (lambda (_g8023580246_) + ((lambda (_L80249_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g8027980287_ - (lambda (_g8028080283_) + (let* ((_g8026180269_ + (lambda (_g8026280265_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8028080283_))) - (_g8027880309_ - (lambda (_g8028080291_) - ((lambda (_L80294_) + _g8026280265_))) + (_g8026080291_ + (lambda (_g8026280273_) + ((lambda (_L80276_) (let () (let () - (let ((__tmp81658 + (let ((__tmp81640 (gx#datum->syntax '#f 'let)) - (__tmp81653 - (let ((__tmp81655 - (let ((__tmp81656 - (let ((__tmp81657 + (__tmp81635 + (let ((__tmp81637 + (let ((__tmp81638 + (let ((__tmp81639 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L80234_ '())))) + (cons _L80216_ '())))) (declare (not safe)) - (cons _L80267_ __tmp81657)))) + (cons _L80249_ __tmp81639)))) (declare (not safe)) - (cons __tmp81656 '()))) - (__tmp81654 (let () (declare (not safe)) (cons _L80294_ '())))) + (cons __tmp81638 '()))) + (__tmp81636 (let () (declare (not safe)) (cons _L80276_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp81655 - __tmp81654)))) + (cons __tmp81637 + __tmp81636)))) (declare (not safe)) - (cons __tmp81658 __tmp81653))))) - _g8028080291_)))) - (_g8027880309_ - (_generate80172_ - _L80267_ - (gx#syntax->list _L80233_) - _L80231_))))) - _g8025380264_)))) + (cons __tmp81640 __tmp81635))))) + _g8026280273_)))) + (_g8026080291_ + (_generate80154_ + _L80249_ + (gx#syntax->list _L80215_) + _L80213_))))) + _g8023580246_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8025180313_ + (_g8023380295_ (gx#genident 'e))) - (_g8017580194_ - _g8017680198_))) - _tl8018680228_ - _hd8018780225_ - _hd8018480215_))) - (_g8017580194_ _g8017680198_)))) - (_g8017580194_ _g8017680198_)))) - (_g8017580194_ _g8017680198_))))) - (_g8017480317_ _stx80169_))))))) + (_g8015780176_ + _g8015880180_))) + _tl8016880210_ + _hd8016980207_ + _hd8016680197_))) + (_g8015780176_ _g8015880180_)))) + (_g8015780176_ _g8015880180_)))) + (_g8015780176_ _g8015880180_))))) + (_g8015680299_ _stx80151_))))))) diff --git a/src/bootstrap/gerbil/expander/compile~0.scm b/src/bootstrap/gerbil/expander/compile~0.scm index 14bbfbc53..266e45237 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 1710833424) + (define gerbil/expander/compile::timestamp 1710943498) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_stx96180_) - (let* ((_e9618196188_ _stx96180_) - (_E9618396192_ + (lambda (_stx96162_) + (let* ((_e9616396170_ _stx96162_) + (_E9616596174_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9618196188_))) - (_E9618296206_ - (lambda () - (if (gx#stx-pair? _e9618196188_) - (let ((_e9618496196_ (gx#syntax-e _e9618196188_))) - (let ((_hd9618596199_ (##car _e9618496196_)) - (_tl9618696201_ (##cdr _e9618496196_))) - (let ((_form96204_ _hd9618596199_)) + _e9616396170_))) + (_E9616496188_ + (lambda () + (if (gx#stx-pair? _e9616396170_) + (let ((_e9616696178_ (gx#syntax-e _e9616396170_))) + (let ((_hd9616796181_ (##car _e9616696178_)) + (_tl9616896183_ (##cdr _e9616696178_))) + (let ((_form96186_ _hd9616796181_)) (if '#t - (let* ((__self96209 - (gx#syntax-local-e__0 _form96204_)) - (__method96210 + (let* ((__self96191 + (gx#syntax-local-e__0 _form96186_)) + (__method96192 (method-ref - __self96209 + __self96191 'compile-top-syntax))) - (if __method96210 - (__method96210 __self96209 _stx96180_) + (if __method96192 + (__method96192 __self96191 _stx96162_) (error '"Missing method" - __self96209 + __self96191 'compile-top-syntax))) - (_E9618396192_))))) - (_E9618396192_))))) - (_E9618296206_)))) + (_E9616596174_))))) + (_E9616596174_))))) + (_E9616496188_)))) (define gx#core-expander::compile-top-syntax - (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_) + (lambda (_self96122_ _stx96123_) + (let* ((_self9612496132_ _self96122_) + (_E9612696136_ + (lambda () (error '"No clause matching" _self9612496132_))) + (_K9612796148_ + (lambda (_K96139_) + (let ((_$e96141_ (gx#stx-source _stx96123_))) + (if _$e96141_ + ((lambda (_g9614396145_) (gx#stx-wrap-source - (_K96157_ _stx96141_) - _g9616196163_)) - _$e96159_) - (_K96157_ _stx96141_)))))) - (if (##structure-instance-of? _self9614296150_ 'gx#core-expander::t) - (let* ((_e9614696169_ + (_K96139_ _stx96123_) + _g9614396145_)) + _$e96141_) + (_K96139_ _stx96123_)))))) + (if (##structure-instance-of? _self9612496132_ 'gx#core-expander::t) + (let* ((_e9612896151_ (##unchecked-structure-ref - _self9614296150_ + _self9612496132_ '1 gx#expander::t '#f)) - (_e9614796172_ + (_e9612996154_ (##unchecked-structure-ref - _self9614296150_ + _self9612496132_ '2 gx#core-expander::t '#f)) - (_e9614896175_ + (_e9613096157_ (##unchecked-structure-ref - _self9614296150_ + _self9612496132_ '3 gx#core-expander::t '#f)) - (_K96178_ _e9614896175_)) - (_K9614596166_ _K96178_)) - (_E9614496154_))))) + (_K96160_ _e9613096157_)) + (_K9612796148_ _K96160_)) + (_E9612696136_))))) (bind-method!__% gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_stx96014_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _stx96014_))) + (lambda (_stx95996_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _stx95996_))) (define gx#core-compile-top-begin% - (lambda (_stx95984_) - (let* ((_e9598595992_ _stx95984_) - (_E9598795996_ + (lambda (_stx95966_) + (let* ((_e9596795974_ _stx95966_) + (_E9596995978_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9598595992_))) - (_E9598696010_ - (lambda () - (if (gx#stx-pair? _e9598595992_) - (let ((_e9598896000_ (gx#syntax-e _e9598595992_))) - (let ((_hd9598996003_ (##car _e9598896000_)) - (_tl9599096005_ (##cdr _e9598896000_))) - (let ((_body96008_ _tl9599096005_)) + _e9596795974_))) + (_E9596895992_ + (lambda () + (if (gx#stx-pair? _e9596795974_) + (let ((_e9597095982_ (gx#syntax-e _e9596795974_))) + (let ((_hd9597195985_ (##car _e9597095982_)) + (_tl9597295987_ (##cdr _e9597095982_))) + (let ((_body95990_ _tl9597295987_)) (if '#t (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _body96008_)) - (_E9598795996_))))) - (_E9598795996_))))) - (_E9598696010_)))) + _body95990_)) + (_E9596995978_))))) + (_E9596995978_))))) + (_E9596895992_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_stx95953_) - (let* ((_e9595495961_ _stx95953_) - (_E9595695965_ + (lambda (_stx95935_) + (let* ((_e9593695943_ _stx95935_) + (_E9593895947_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9595495961_))) - (_E9595595980_ - (lambda () - (if (gx#stx-pair? _e9595495961_) - (let ((_e9595795969_ (gx#syntax-e _e9595495961_))) - (let ((_hd9595895972_ (##car _e9595795969_)) - (_tl9595995974_ (##cdr _e9595795969_))) - (let ((_body95977_ _tl9595995974_)) + _e9593695943_))) + (_E9593795962_ + (lambda () + (if (gx#stx-pair? _e9593695943_) + (let ((_e9593995951_ (gx#syntax-e _e9593695943_))) + (let ((_hd9594095954_ (##car _e9593995951_)) + (_tl9594195956_ (##cdr _e9593995951_))) + (let ((_body95959_ _tl9594195956_)) (if '#t (cons '%#begin-syntax (call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _body95977_)) + _body95959_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))) - (_E9595695965_))))) - (_E9595695965_))))) - (_E9595595980_)))) + (_E9593895947_))))) + (_E9593895947_))))) + (_E9593795962_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_stx95923_) - (let* ((_e9592495931_ _stx95923_) - (_E9592695935_ + (lambda (_stx95905_) + (let* ((_e9590695913_ _stx95905_) + (_E9590895917_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9592495931_))) - (_E9592595949_ - (lambda () - (if (gx#stx-pair? _e9592495931_) - (let ((_e9592795939_ (gx#syntax-e _e9592495931_))) - (let ((_hd9592895942_ (##car _e9592795939_)) - (_tl9592995944_ (##cdr _e9592795939_))) - (let ((_body95947_ _tl9592995944_)) + _e9590695913_))) + (_E9590795931_ + (lambda () + (if (gx#stx-pair? _e9590695913_) + (let ((_e9590995921_ (gx#syntax-e _e9590695913_))) + (let ((_hd9591095924_ (##car _e9590995921_)) + (_tl9591195926_ (##cdr _e9590995921_))) + (let ((_body95929_ _tl9591195926_)) (if '#t - (cons '%#begin-foreign _body95947_) - (_E9592695935_))))) - (_E9592695935_))))) - (_E9592595949_)))) + (cons '%#begin-foreign _body95929_) + (_E9590895917_))))) + (_E9590895917_))))) + (_E9590795931_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_stx95869_) - (let* ((_e9587095883_ _stx95869_) - (_E9587295887_ + (lambda (_stx95851_) + (let* ((_e9585295865_ _stx95851_) + (_E9585495869_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _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_) + _e9585295865_))) + (_E9585395901_ + (lambda () + (if (gx#stx-pair? _e9585295865_) + (let ((_e9585595873_ (gx#syntax-e _e9585295865_))) + (let ((_hd9585695876_ (##car _e9585595873_)) + (_tl9585795878_ (##cdr _e9585595873_))) + (if (gx#stx-pair? _tl9585795878_) + (let ((_e9585895881_ + (gx#syntax-e _tl9585795878_))) + (let ((_hd9585995884_ (##car _e9585895881_)) + (_tl9586095886_ (##cdr _e9585895881_))) + (let ((_ann95889_ _hd9585995884_)) + (if (gx#stx-pair? _tl9586095886_) + (let ((_e9586195891_ + (gx#syntax-e _tl9586095886_))) + (let ((_hd9586295894_ + (##car _e9586195891_)) + (_tl9586395896_ + (##cdr _e9586195891_))) + (let ((_expr95899_ _hd9586295894_)) + (if (gx#stx-null? _tl9586395896_) (if '#t (gx#core-compile-top-syntax - _expr95917_) - (_E9587295887_)) - (_E9587295887_))))) - (_E9587295887_))))) - (_E9587295887_)))) - (_E9587295887_))))) - (_E9587195919_)))) + _expr95899_) + (_E9585495869_)) + (_E9585495869_))))) + (_E9585495869_))))) + (_E9585495869_)))) + (_E9585495869_))))) + (_E9585395901_)))) (define gx#core-compile-top-import% - (lambda (_stx95839_) - (let* ((_e9584095847_ _stx95839_) - (_E9584295851_ + (lambda (_stx95821_) + (let* ((_e9582295829_ _stx95821_) + (_E9582495833_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9584095847_))) - (_E9584195865_ - (lambda () - (if (gx#stx-pair? _e9584095847_) - (let ((_e9584395855_ (gx#syntax-e _e9584095847_))) - (let ((_hd9584495858_ (##car _e9584395855_)) - (_tl9584595860_ (##cdr _e9584395855_))) - (let ((_body95863_ _tl9584595860_)) + _e9582295829_))) + (_E9582395847_ + (lambda () + (if (gx#stx-pair? _e9582295829_) + (let ((_e9582595837_ (gx#syntax-e _e9582295829_))) + (let ((_hd9582695840_ (##car _e9582595837_)) + (_tl9582795842_ (##cdr _e9582595837_))) + (let ((_body95845_ _tl9582795842_)) (if '#t - (cons '%#import _body95863_) - (_E9584295851_))))) - (_E9584295851_))))) - (_E9584195865_)))) + (cons '%#import _body95845_) + (_E9582495833_))))) + (_E9582495833_))))) + (_E9582395847_)))) (define gx#core-compile-top-module% - (lambda (_stx95796_) - (let* ((_e9579795807_ _stx95796_) - (_E9579995811_ + (lambda (_stx95778_) + (let* ((_e9577995789_ _stx95778_) + (_E9578195793_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _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_)) + _e9577995789_))) + (_E9578095817_ + (lambda () + (if (gx#stx-pair? _e9577995789_) + (let ((_e9578295797_ (gx#syntax-e _e9577995789_))) + (let ((_hd9578395800_ (##car _e9578295797_)) + (_tl9578495802_ (##cdr _e9578295797_))) + (if (gx#stx-pair? _tl9578495802_) + (let ((_e9578595805_ + (gx#syntax-e _tl9578495802_))) + (let ((_hd9578695808_ (##car _e9578595805_)) + (_tl9578795810_ (##cdr _e9578595805_))) + (let* ((_hd95813_ _hd9578695808_) + (_body95815_ _tl9578795810_)) (if '#t (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _hd95831_) + _hd95813_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _body95833_))) - (_E9579995811_))))) - (_E9579995811_)))) - (_E9579995811_))))) - (_E9579895835_)))) + _body95815_))) + (_E9578195793_))))) + (_E9578195793_)))) + (_E9578195793_))))) + (_E9578095817_)))) (define gx#core-compile-top-export% - (lambda (_stx95766_) - (let* ((_e9576795774_ _stx95766_) - (_E9576995778_ + (lambda (_stx95748_) + (let* ((_e9574995756_ _stx95748_) + (_E9575195760_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9576795774_))) - (_E9576895792_ - (lambda () - (if (gx#stx-pair? _e9576795774_) - (let ((_e9577095782_ (gx#syntax-e _e9576795774_))) - (let ((_hd9577195785_ (##car _e9577095782_)) - (_tl9577295787_ (##cdr _e9577095782_))) - (let ((_body95790_ _tl9577295787_)) + _e9574995756_))) + (_E9575095774_ + (lambda () + (if (gx#stx-pair? _e9574995756_) + (let ((_e9575295764_ (gx#syntax-e _e9574995756_))) + (let ((_hd9575395767_ (##car _e9575295764_)) + (_tl9575495769_ (##cdr _e9575295764_))) + (let ((_body95772_ _tl9575495769_)) (if '#t - (cons '%#export _body95790_) - (_E9576995778_))))) - (_E9576995778_))))) - (_E9576895792_)))) + (cons '%#export _body95772_) + (_E9575195760_))))) + (_E9575195760_))))) + (_E9575095774_)))) (define gx#core-compile-top-provide% - (lambda (_stx95736_) - (let* ((_e9573795744_ _stx95736_) - (_E9573995748_ + (lambda (_stx95718_) + (let* ((_e9571995726_ _stx95718_) + (_E9572195730_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9573795744_))) - (_E9573895762_ - (lambda () - (if (gx#stx-pair? _e9573795744_) - (let ((_e9574095752_ (gx#syntax-e _e9573795744_))) - (let ((_hd9574195755_ (##car _e9574095752_)) - (_tl9574295757_ (##cdr _e9574095752_))) - (let ((_body95760_ _tl9574295757_)) + _e9571995726_))) + (_E9572095744_ + (lambda () + (if (gx#stx-pair? _e9571995726_) + (let ((_e9572295734_ (gx#syntax-e _e9571995726_))) + (let ((_hd9572395737_ (##car _e9572295734_)) + (_tl9572495739_ (##cdr _e9572295734_))) + (let ((_body95742_ _tl9572495739_)) (if '#t - (cons '%#provide _body95760_) - (_E9573995748_))))) - (_E9573995748_))))) - (_E9573895762_)))) + (cons '%#provide _body95742_) + (_E9572195730_))))) + (_E9572195730_))))) + (_E9572095744_)))) (define gx#core-compile-top-extern% - (lambda (_stx95706_) - (let* ((_e9570795714_ _stx95706_) - (_E9570995718_ + (lambda (_stx95688_) + (let* ((_e9568995696_ _stx95688_) + (_E9569195700_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9570795714_))) - (_E9570895732_ - (lambda () - (if (gx#stx-pair? _e9570795714_) - (let ((_e9571095722_ (gx#syntax-e _e9570795714_))) - (let ((_hd9571195725_ (##car _e9571095722_)) - (_tl9571295727_ (##cdr _e9571095722_))) - (let ((_body95730_ _tl9571295727_)) + _e9568995696_))) + (_E9569095714_ + (lambda () + (if (gx#stx-pair? _e9568995696_) + (let ((_e9569295704_ (gx#syntax-e _e9568995696_))) + (let ((_hd9569395707_ (##car _e9569295704_)) + (_tl9569495709_ (##cdr _e9569295704_))) + (let ((_body95712_ _tl9569495709_)) (if '#t - (cons '%#extern _body95730_) - (_E9570995718_))))) - (_E9570995718_))))) - (_E9570895732_)))) + (cons '%#extern _body95712_) + (_E9569195700_))))) + (_E9569195700_))))) + (_E9569095714_)))) (define gx#core-compile-top-define-values% - (lambda (_stx95652_) - (let* ((_e9565395666_ _stx95652_) - (_E9565595670_ + (lambda (_stx95634_) + (let* ((_e9563595648_ _stx95634_) + (_E9563795652_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _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_) + _e9563595648_))) + (_E9563695684_ + (lambda () + (if (gx#stx-pair? _e9563595648_) + (let ((_e9563895656_ (gx#syntax-e _e9563595648_))) + (let ((_hd9563995659_ (##car _e9563895656_)) + (_tl9564095661_ (##cdr _e9563895656_))) + (if (gx#stx-pair? _tl9564095661_) + (let ((_e9564195664_ + (gx#syntax-e _tl9564095661_))) + (let ((_hd9564295667_ (##car _e9564195664_)) + (_tl9564395669_ (##cdr _e9564195664_))) + (let ((_hd95672_ _hd9564295667_)) + (if (gx#stx-pair? _tl9564395669_) + (let ((_e9564495674_ + (gx#syntax-e _tl9564395669_))) + (let ((_hd9564595677_ + (##car _e9564495674_)) + (_tl9564695679_ + (##cdr _e9564495674_))) + (let ((_expr95682_ _hd9564595677_)) + (if (gx#stx-null? _tl9564695679_) (if '#t (cons '%#define-values (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-runtime-bind - _hd95690_) - (cons (gx#core-compile-top-syntax _expr95700_) '()))) - (_E9565595670_)) + _hd95672_) + (cons (gx#core-compile-top-syntax _expr95682_) '()))) + (_E9563795652_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9565595670_))))) - (_E9565595670_))))) - (_E9565595670_)))) - (_E9565595670_))))) - (_E9565495702_)))) + (_E9563795652_))))) + (_E9563795652_))))) + (_E9563795652_)))) + (_E9563795652_))))) + (_E9563695684_)))) (define gx#core-compile-top-define-syntax% - (lambda (_stx95597_) - (let* ((_e9559895611_ _stx95597_) - (_E9560095615_ + (lambda (_stx95579_) + (let* ((_e9558095593_ _stx95579_) + (_E9558295597_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _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_) + _e9558095593_))) + (_E9558195630_ + (lambda () + (if (gx#stx-pair? _e9558095593_) + (let ((_e9558395601_ (gx#syntax-e _e9558095593_))) + (let ((_hd9558495604_ (##car _e9558395601_)) + (_tl9558595606_ (##cdr _e9558395601_))) + (if (gx#stx-pair? _tl9558595606_) + (let ((_e9558695609_ + (gx#syntax-e _tl9558595606_))) + (let ((_hd9558795612_ (##car _e9558695609_)) + (_tl9558895614_ (##cdr _e9558695609_))) + (let ((_hd95617_ _hd9558795612_)) + (if (gx#stx-pair? _tl9558895614_) + (let ((_e9558995619_ + (gx#syntax-e _tl9558895614_))) + (let ((_hd9559095622_ + (##car _e9558995619_)) + (_tl9559195624_ + (##cdr _e9558995619_))) + (let ((_expr95627_ _hd9559095622_)) + (if (gx#stx-null? _tl9559195624_) (if '#t (cons '%#define-syntax - (cons _hd95635_ + (cons _hd95617_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (call-with-parameters (lambda () - (gx#core-compile-top-syntax _expr95645_)) + (gx#core-compile-top-syntax _expr95627_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)) '()))) - (_E9560095615_)) + (_E9558295597_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9560095615_))))) - (_E9560095615_))))) - (_E9560095615_)))) - (_E9560095615_))))) - (_E9559995648_)))) + (_E9558295597_))))) + (_E9558295597_))))) + (_E9558295597_)))) + (_E9558295597_))))) + (_E9558195630_)))) (define gx#core-compile-top-define-alias% - (lambda (_stx95567_) - (let* ((_e9556895575_ _stx95567_) - (_E9557095579_ + (lambda (_stx95549_) + (let* ((_e9555095557_ _stx95549_) + (_E9555295561_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9556895575_))) - (_E9556995593_ - (lambda () - (if (gx#stx-pair? _e9556895575_) - (let ((_e9557195583_ (gx#syntax-e _e9556895575_))) - (let ((_hd9557295586_ (##car _e9557195583_)) - (_tl9557395588_ (##cdr _e9557195583_))) - (let ((_body95591_ _tl9557395588_)) + _e9555095557_))) + (_E9555195575_ + (lambda () + (if (gx#stx-pair? _e9555095557_) + (let ((_e9555395565_ (gx#syntax-e _e9555095557_))) + (let ((_hd9555495568_ (##car _e9555395565_)) + (_tl9555595570_ (##cdr _e9555395565_))) + (let ((_body95573_ _tl9555595570_)) (if '#t - (cons '%#define-alias _body95591_) - (_E9557095579_))))) - (_E9557095579_))))) - (_E9556995593_)))) + (cons '%#define-alias _body95573_) + (_E9555295561_))))) + (_E9555295561_))))) + (_E9555195575_)))) (define gx#core-compile-top-define-runtime% - (lambda (_stx95537_) - (let* ((_e9553895545_ _stx95537_) - (_E9554095549_ + (lambda (_stx95519_) + (let* ((_e9552095527_ _stx95519_) + (_E9552295531_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9553895545_))) - (_E9553995563_ - (lambda () - (if (gx#stx-pair? _e9553895545_) - (let ((_e9554195553_ (gx#syntax-e _e9553895545_))) - (let ((_hd9554295556_ (##car _e9554195553_)) - (_tl9554395558_ (##cdr _e9554195553_))) - (let ((_body95561_ _tl9554395558_)) + _e9552095527_))) + (_E9552195545_ + (lambda () + (if (gx#stx-pair? _e9552095527_) + (let ((_e9552395535_ (gx#syntax-e _e9552095527_))) + (let ((_hd9552495538_ (##car _e9552395535_)) + (_tl9552595540_ (##cdr _e9552395535_))) + (let ((_body95543_ _tl9552595540_)) (if '#t - (cons '%#define-runtime _body95561_) - (_E9554095549_))))) - (_E9554095549_))))) - (_E9553995563_)))) + (cons '%#define-runtime _body95543_) + (_E9552295531_))))) + (_E9552295531_))))) + (_E9552195545_)))) (define gx#core-compile-top-declare% - (lambda (_stx95507_) - (let* ((_e9550895515_ _stx95507_) - (_E9551095519_ + (lambda (_stx95489_) + (let* ((_e9549095497_ _stx95489_) + (_E9549295501_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9550895515_))) - (_E9550995533_ - (lambda () - (if (gx#stx-pair? _e9550895515_) - (let ((_e9551195523_ (gx#syntax-e _e9550895515_))) - (let ((_hd9551295526_ (##car _e9551195523_)) - (_tl9551395528_ (##cdr _e9551195523_))) - (let ((_decls95531_ _tl9551395528_)) + _e9549095497_))) + (_E9549195515_ + (lambda () + (if (gx#stx-pair? _e9549095497_) + (let ((_e9549395505_ (gx#syntax-e _e9549095497_))) + (let ((_hd9549495508_ (##car _e9549395505_)) + (_tl9549595510_ (##cdr _e9549395505_))) + (let ((_decls95513_ _tl9549595510_)) (if '#t - (cons '%#declare _decls95531_) - (_E9551095519_))))) - (_E9551095519_))))) - (_E9550995533_)))) + (cons '%#declare _decls95513_) + (_E9549295501_))))) + (_E9549295501_))))) + (_E9549195515_)))) (define gx#core-compile-top-lambda% - (lambda (_stx95477_) - (let* ((_e9547895485_ _stx95477_) - (_E9548095489_ + (lambda (_stx95459_) + (let* ((_e9546095467_ _stx95459_) + (_E9546295471_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9547895485_))) - (_E9547995503_ - (lambda () - (if (gx#stx-pair? _e9547895485_) - (let ((_e9548195493_ (gx#syntax-e _e9547895485_))) - (let ((_hd9548295496_ (##car _e9548195493_)) - (_tl9548395498_ (##cdr _e9548195493_))) - (let ((_clause95501_ _tl9548395498_)) + _e9546095467_))) + (_E9546195485_ + (lambda () + (if (gx#stx-pair? _e9546095467_) + (let ((_e9546395475_ (gx#syntax-e _e9546095467_))) + (let ((_hd9546495478_ (##car _e9546395475_)) + (_tl9546595480_ (##cdr _e9546395475_))) + (let ((_clause95483_ _tl9546595480_)) (if '#t (cons '%#lambda (gx#core-compile-top-lambda-clause - _clause95501_)) - (_E9548095489_))))) - (_E9548095489_))))) - (_E9547995503_)))) + _clause95483_)) + (_E9546295471_))))) + (_E9546295471_))))) + (_E9546195485_)))) (define gx#core-compile-top-lambda-clause - (lambda (_stx95434_) - (let* ((_e9543595445_ _stx95434_) - (_E9543795449_ + (lambda (_stx95416_) + (let* ((_e9541795427_ _stx95416_) + (_E9541995431_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _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_) + _e9541795427_))) + (_E9541895455_ + (lambda () + (if (gx#stx-pair? _e9541795427_) + (let ((_e9542095435_ (gx#syntax-e _e9541795427_))) + (let ((_hd9542195438_ (##car _e9542095435_)) + (_tl9542295440_ (##cdr _e9542095435_))) + (let ((_hd95443_ _hd9542195438_)) + (if (gx#stx-pair? _tl9542295440_) + (let ((_e9542395445_ + (gx#syntax-e _tl9542295440_))) + (let ((_hd9542495448_ (##car _e9542395445_)) + (_tl9542595450_ (##cdr _e9542395445_))) + (let ((_body95453_ _hd9542495448_)) + (if (gx#stx-null? _tl9542595450_) (if '#t (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _hd95461_) + _hd95443_) (cons (gx#core-compile-top-syntax - _body95471_) + _body95453_) '())) - (_E9543795449_)) - (_E9543795449_))))) - (_E9543795449_))))) - (_E9543795449_))))) - (_E9543695473_)))) + (_E9541995431_)) + (_E9541995431_))))) + (_E9541995431_))))) + (_E9541995431_))))) + (_E9541895455_)))) (define gx#core-compile-top-case-lambda% - (lambda (_stx95404_) - (let* ((_e9540595412_ _stx95404_) - (_E9540795416_ + (lambda (_stx95386_) + (let* ((_e9538795394_ _stx95386_) + (_E9538995398_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9540595412_))) - (_E9540695430_ - (lambda () - (if (gx#stx-pair? _e9540595412_) - (let ((_e9540895420_ (gx#syntax-e _e9540595412_))) - (let ((_hd9540995423_ (##car _e9540895420_)) - (_tl9541095425_ (##cdr _e9540895420_))) - (let ((_clauses95428_ _tl9541095425_)) + _e9538795394_))) + (_E9538895412_ + (lambda () + (if (gx#stx-pair? _e9538795394_) + (let ((_e9539095402_ (gx#syntax-e _e9538795394_))) + (let ((_hd9539195405_ (##car _e9539095402_)) + (_tl9539295407_ (##cdr _e9539095402_))) + (let ((_clauses95410_ _tl9539295407_)) (if '#t (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _clauses95428_)) - (_E9540795416_))))) - (_E9540795416_))))) - (_E9540695430_)))) + _clauses95410_)) + (_E9538995398_))))) + (_E9538995398_))))) + (_E9538895412_)))) (define gx#core-compile-top-let-values%__% - (lambda (_stx95339_ _form95340_) - (let* ((_e9534195354_ _stx95339_) - (_E9534395358_ + (lambda (_stx95321_ _form95322_) + (let* ((_e9532395336_ _stx95321_) + (_E9532595340_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _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_) + _e9532395336_))) + (_E9532495372_ + (lambda () + (if (gx#stx-pair? _e9532395336_) + (let ((_e9532695344_ (gx#syntax-e _e9532395336_))) + (let ((_hd9532795347_ (##car _e9532695344_)) + (_tl9532895349_ (##cdr _e9532695344_))) + (if (gx#stx-pair? _tl9532895349_) + (let ((_e9532995352_ + (gx#syntax-e _tl9532895349_))) + (let ((_hd9533095355_ (##car _e9532995352_)) + (_tl9533195357_ (##cdr _e9532995352_))) + (let ((_hd95360_ _hd9533095355_)) + (if (gx#stx-pair? _tl9533195357_) + (let ((_e9533295362_ + (gx#syntax-e _tl9533195357_))) + (let ((_hd9533395365_ + (##car _e9533295362_)) + (_tl9533495367_ + (##cdr _e9533295362_))) + (let ((_body95370_ _hd9533395365_)) + (if (gx#stx-null? _tl9533495367_) (if '#t - (cons _form95340_ + (cons _form95322_ (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-lambda-clause - _hd95378_) - (cons (gx#core-compile-top-syntax _body95388_) '()))) - (_E9534395358_)) + _hd95360_) + (cons (gx#core-compile-top-syntax _body95370_) '()))) + (_E9532595340_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9534395358_))))) - (_E9534395358_))))) - (_E9534395358_)))) - (_E9534395358_))))) - (_E9534295390_)))) + (_E9532595340_))))) + (_E9532595340_))))) + (_E9532595340_)))) + (_E9532595340_))))) + (_E9532495372_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_stx95397_) - (let ((_form95399_ '%#let-values)) - (gx#core-compile-top-let-values%__% _stx95397_ _form95399_)))) + (lambda (_stx95379_) + (let ((_form95381_ '%#let-values)) + (gx#core-compile-top-let-values%__% _stx95379_ _form95381_)))) (define gx#core-compile-top-let-values% - (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_) + (lambda _g96194_ + (let ((_g96193_ (##length _g96194_))) + (cond ((##fx= _g96193_ 1) + (apply (lambda (_stx95379_) + (gx#core-compile-top-let-values%__0 _stx95379_)) + _g96194_)) + ((##fx= _g96193_ 2) + (apply (lambda (_stx95383_ _form95384_) (gx#core-compile-top-let-values%__% - _stx95401_ - _form95402_)) - _g96212_)) + _stx95383_ + _form95384_)) + _g96194_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g96212_)))))) + _g96194_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_stx95336_) - (gx#core-compile-top-let-values%__% _stx95336_ '%#letrec-values))) + (lambda (_stx95318_) + (gx#core-compile-top-let-values%__% _stx95318_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_stx95334_) - (gx#core-compile-top-let-values%__% _stx95334_ '%#letrec*-values))) + (lambda (_stx95316_) + (gx#core-compile-top-let-values%__% _stx95316_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_stx95293_) - (let* ((_e9529495304_ _stx95293_) - (_E9529695308_ + (lambda (_stx95275_) + (let* ((_e9527695286_ _stx95275_) + (_E9527895290_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _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_) + _e9527695286_))) + (_E9527795312_ + (lambda () + (if (gx#stx-pair? _e9527695286_) + (let ((_e9527995294_ (gx#syntax-e _e9527695286_))) + (let ((_hd9528095297_ (##car _e9527995294_)) + (_tl9528195299_ (##cdr _e9527995294_))) + (if (gx#stx-pair? _tl9528195299_) + (let ((_e9528295302_ + (gx#syntax-e _tl9528195299_))) + (let ((_hd9528395305_ (##car _e9528295302_)) + (_tl9528495307_ (##cdr _e9528295302_))) + (let ((_e95310_ _hd9528395305_)) + (if (gx#stx-null? _tl9528495307_) (if '#t (cons '%#quote (cons (gx#syntax->datum - _e95328_) + _e95310_) '())) - (_E9529695308_)) - (_E9529695308_))))) - (_E9529695308_)))) - (_E9529695308_))))) - (_E9529595330_)))) + (_E9527895290_)) + (_E9527895290_))))) + (_E9527895290_)))) + (_E9527895290_))))) + (_E9527795312_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_stx95252_) - (let* ((_e9525395263_ _stx95252_) - (_E9525595267_ + (lambda (_stx95234_) + (let* ((_e9523595245_ _stx95234_) + (_E9523795249_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _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_) + _e9523595245_))) + (_E9523695271_ + (lambda () + (if (gx#stx-pair? _e9523595245_) + (let ((_e9523895253_ (gx#syntax-e _e9523595245_))) + (let ((_hd9523995256_ (##car _e9523895253_)) + (_tl9524095258_ (##cdr _e9523895253_))) + (if (gx#stx-pair? _tl9524095258_) + (let ((_e9524195261_ + (gx#syntax-e _tl9524095258_))) + (let ((_hd9524295264_ (##car _e9524195261_)) + (_tl9524395266_ (##cdr _e9524195261_))) + (let ((_e95269_ _hd9524295264_)) + (if (gx#stx-null? _tl9524395266_) (if '#t (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _e95287_) + _e95269_) '())) - (_E9525595267_)) - (_E9525595267_))))) - (_E9525595267_)))) - (_E9525595267_))))) - (_E9525495289_)))) + (_E9523795249_)) + (_E9523795249_))))) + (_E9523795249_)))) + (_E9523795249_))))) + (_E9523695271_)))) (define gx#core-compile-top-call% - (lambda (_stx95209_) - (let* ((_e9521095220_ _stx95209_) - (_E9521295224_ + (lambda (_stx95191_) + (let* ((_e9519295202_ _stx95191_) + (_E9519495206_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _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_)) + _e9519295202_))) + (_E9519395230_ + (lambda () + (if (gx#stx-pair? _e9519295202_) + (let ((_e9519595210_ (gx#syntax-e _e9519295202_))) + (let ((_hd9519695213_ (##car _e9519595210_)) + (_tl9519795215_ (##cdr _e9519595210_))) + (if (gx#stx-pair? _tl9519795215_) + (let ((_e9519895218_ + (gx#syntax-e _tl9519795215_))) + (let ((_hd9519995221_ (##car _e9519895218_)) + (_tl9520095223_ (##cdr _e9519895218_))) + (let* ((_rator95226_ _hd9519995221_) + (_args95228_ _tl9520095223_)) (if '#t (cons '%#call (cons (gx#core-compile-top-syntax - _rator95244_) + _rator95226_) (gx#stx-map1 gx#core-compile-top-syntax - _args95246_))) - (_E9521295224_))))) - (_E9521295224_)))) - (_E9521295224_))))) - (_E9521195248_)))) + _args95228_))) + (_E9519495206_))))) + (_E9519495206_)))) + (_E9519495206_))))) + (_E9519395230_)))) (define gx#core-compile-top-if% - (lambda (_stx95142_) - (let* ((_e9514395159_ _stx95142_) - (_E9514595163_ + (lambda (_stx95124_) + (let* ((_e9512595141_ _stx95124_) + (_E9512795145_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _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_ + _e9512595141_))) + (_E9512695187_ + (lambda () + (if (gx#stx-pair? _e9512595141_) + (let ((_e9512895149_ (gx#syntax-e _e9512595141_))) + (let ((_hd9512995152_ (##car _e9512895149_)) + (_tl9513095154_ (##cdr _e9512895149_))) + (if (gx#stx-pair? _tl9513095154_) + (let ((_e9513195157_ + (gx#syntax-e _tl9513095154_))) + (let ((_hd9513295160_ (##car _e9513195157_)) + (_tl9513395162_ (##cdr _e9513195157_))) + (let ((_test95165_ _hd9513295160_)) + (if (gx#stx-pair? _tl9513395162_) + (let ((_e9513495167_ + (gx#syntax-e _tl9513395162_))) + (let ((_hd9513595170_ + (##car _e9513495167_)) + (_tl9513695172_ + (##cdr _e9513495167_))) + (let ((_K95175_ _hd9513595170_)) + (if (gx#stx-pair? _tl9513695172_) + (let ((_e9513795177_ (gx#syntax-e - _tl9515495190_))) - (let ((_hd9515695198_ - (##car _e9515595195_)) - (_tl9515795200_ - (##cdr _e9515595195_))) - (let ((_E95203_ - _hd9515695198_)) + _tl9513695172_))) + (let ((_hd9513895180_ + (##car _e9513795177_)) + (_tl9513995182_ + (##cdr _e9513795177_))) + (let ((_E95185_ + _hd9513895180_)) (if (gx#stx-null? - _tl9515795200_) + _tl9513995182_) (if '#t (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _test95183_) - (cons (gx#core-compile-top-syntax _K95193_) + (cons (gx#core-compile-top-syntax _test95165_) + (cons (gx#core-compile-top-syntax _K95175_) (cons (gx#core-compile-top-syntax - _E95203_) + _E95185_) '())))) - (_E9514595163_)) - (_E9514595163_))))) + (_E9512795145_)) + (_E9512795145_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9514595163_))))) - (_E9514595163_))))) - (_E9514595163_)))) - (_E9514595163_))))) - (_E9514495205_)))) + (_E9512795145_))))) + (_E9512795145_))))) + (_E9512795145_)))) + (_E9512795145_))))) + (_E9512695187_)))) (define gx#core-compile-top-ref% - (lambda (_stx95101_) - (let* ((_e9510295112_ _stx95101_) - (_E9510495116_ + (lambda (_stx95083_) + (let* ((_e9508495094_ _stx95083_) + (_E9508695098_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _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_) + _e9508495094_))) + (_E9508595120_ + (lambda () + (if (gx#stx-pair? _e9508495094_) + (let ((_e9508795102_ (gx#syntax-e _e9508495094_))) + (let ((_hd9508895105_ (##car _e9508795102_)) + (_tl9508995107_ (##cdr _e9508795102_))) + (if (gx#stx-pair? _tl9508995107_) + (let ((_e9509095110_ + (gx#syntax-e _tl9508995107_))) + (let ((_hd9509195113_ (##car _e9509095110_)) + (_tl9509295115_ (##cdr _e9509095110_))) + (let ((_id95118_ _hd9509195113_)) + (if (gx#stx-null? _tl9509295115_) + (if (gx#identifier? _id95118_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _id95136_) + _id95118_) '())) - (_E9510495116_)) - (_E9510495116_))))) - (_E9510495116_)))) - (_E9510495116_))))) - (_E9510395138_)))) + (_E9508695098_)) + (_E9508695098_))))) + (_E9508695098_)))) + (_E9508695098_))))) + (_E9508595120_)))) (define gx#core-compile-top-setq% - (lambda (_stx95047_) - (let* ((_e9504895061_ _stx95047_) - (_E9505095065_ + (lambda (_stx95029_) + (let* ((_e9503095043_ _stx95029_) + (_E9503295047_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _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_) + _e9503095043_))) + (_E9503195079_ + (lambda () + (if (gx#stx-pair? _e9503095043_) + (let ((_e9503395051_ (gx#syntax-e _e9503095043_))) + (let ((_hd9503495054_ (##car _e9503395051_)) + (_tl9503595056_ (##cdr _e9503395051_))) + (if (gx#stx-pair? _tl9503595056_) + (let ((_e9503695059_ + (gx#syntax-e _tl9503595056_))) + (let ((_hd9503795062_ (##car _e9503695059_)) + (_tl9503895064_ (##cdr _e9503695059_))) + (let ((_id95067_ _hd9503795062_)) + (if (gx#stx-pair? _tl9503895064_) + (let ((_e9503995069_ + (gx#syntax-e _tl9503895064_))) + (let ((_hd9504095072_ + (##car _e9503995069_)) + (_tl9504195074_ + (##cdr _e9503995069_))) + (let ((_expr95077_ _hd9504095072_)) + (if (gx#stx-null? _tl9504195074_) (if (gx#identifier? - _id95085_) + _id95067_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id95085_) - (cons (gx#core-compile-top-syntax _expr95095_) '()))) - (_E9505095065_)) + _id95067_) + (cons (gx#core-compile-top-syntax _expr95077_) '()))) + (_E9503295047_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9505095065_))))) - (_E9505095065_))))) - (_E9505095065_)))) - (_E9505095065_))))) - (_E9504995097_)))) + (_E9503295047_))))) + (_E9503295047_))))) + (_E9503295047_)))) + (_E9503295047_))))) + (_E9503195079_)))) (define gx#core-compile-top-runtime-ref - (lambda (_id95042_) - (let ((_$e95044_ (gx#resolve-identifier__0 _id95042_))) - (if _$e95044_ - (##unchecked-structure-ref _$e95044_ '1 gx#binding::t '#f) - _id95042_)))) + (lambda (_id95024_) + (let ((_$e95026_ (gx#resolve-identifier__0 _id95024_))) + (if _$e95026_ + (##unchecked-structure-ref _$e95026_ '1 gx#binding::t '#f) + _id95024_)))) (define gx#core-compile-top-runtime-bind - (lambda (_hd95040_) - (if (gx#identifier? _hd95040_) - (gx#core-compile-top-runtime-ref _hd95040_) + (lambda (_hd95022_) + (if (gx#identifier? _hd95022_) + (gx#core-compile-top-runtime-ref _hd95022_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core~0.scm b/src/bootstrap/gerbil/expander/core~0.scm index c69abaca7..b35c9314f 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 1710833424) + (define gerbil/expander/core::timestamp 1710943497) (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 _$args86055_ - (apply make-instance gx#expander-context::t _$args86055_))) + (lambda _$args86037_ + (apply make-instance gx#expander-context::t _$args86037_))) (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 _$args86052_ - (apply make-instance gx#root-context::t _$args86052_))) + (lambda _$args86034_ + (apply make-instance gx#root-context::t _$args86034_))) (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 _$args86049_ - (apply make-instance gx#phi-context::t _$args86049_))) + (lambda _$args86031_ + (apply make-instance gx#phi-context::t _$args86031_))) (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 _$args86046_ - (apply make-instance gx#top-context::t _$args86046_))) + (lambda _$args86028_ + (apply make-instance gx#top-context::t _$args86028_))) (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 _$args86043_ - (apply make-instance gx#module-context::t _$args86043_))) + (lambda _$args86025_ + (apply make-instance gx#module-context::t _$args86025_))) (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 _$args86040_ - (apply make-instance gx#prelude-context::t _$args86040_))) + (lambda _$args86022_ + (apply make-instance gx#prelude-context::t _$args86022_))) (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 _$args86037_ - (apply make-instance gx#local-context::t _$args86037_))) + (lambda _$args86019_ + (apply make-instance gx#local-context::t _$args86019_))) (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 (_self86021_ _id86022_ _super86023_) - (if (##fx< '3 (##structure-length _self86021_)) + (lambda (_self86003_ _id86004_ _super86005_) + (if (##fx< '3 (##structure-length _self86003_)) (begin (##unchecked-structure-set! - _self86021_ - _id86022_ + _self86003_ + _id86004_ '1 - (##structure-type _self86021_) + (##structure-type _self86003_) '#f) (##unchecked-structure-set! - _self86021_ + _self86003_ (make-hash-table-eq) '2 - (##structure-type _self86021_) + (##structure-type _self86003_) '#f) (##unchecked-structure-set! - _self86021_ - _super86023_ + _self86003_ + _super86005_ '3 - (##structure-type _self86021_) + (##structure-type _self86003_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self86021_ + _self86003_ '3 - (##vector-length _self86021_))))) + (##vector-length _self86003_))))) (define gx#phi-context:::init!__0 - (lambda (_self86028_ _id86029_) - (let ((_super86031_ (gx#current-expander-context))) - (gx#phi-context:::init!__% _self86028_ _id86029_ _super86031_)))) + (lambda (_self86010_ _id86011_) + (let ((_super86013_ (gx#current-expander-context))) + (gx#phi-context:::init!__% _self86010_ _id86011_ _super86013_)))) (define gx#phi-context:::init! - (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_) + (lambda _g86080_ + (let ((_g86079_ (##length _g86080_))) + (cond ((##fx= _g86079_ 2) + (apply (lambda (_self86010_ _id86011_) + (gx#phi-context:::init!__0 _self86010_ _id86011_)) + _g86080_)) + ((##fx= _g86079_ 3) + (apply (lambda (_self86015_ _id86016_ _super86017_) (gx#phi-context:::init!__% - _self86033_ - _id86034_ - _super86035_)) - _g86098_)) + _self86015_ + _id86016_ + _super86017_)) + _g86080_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g86098_)))))) + _g86080_)))))) (bind-method!__% gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_self85885_ _super85886_) - (if (##fx< '3 (##structure-length _self85885_)) + (lambda (_self85867_ _super85868_) + (if (##fx< '3 (##structure-length _self85867_)) (begin (##unchecked-structure-set! - _self85885_ + _self85867_ (gensym 'L) '1 - (##structure-type _self85885_) + (##structure-type _self85867_) '#f) (##unchecked-structure-set! - _self85885_ + _self85867_ (make-hash-table-eq) '2 - (##structure-type _self85885_) + (##structure-type _self85867_) '#f) (##unchecked-structure-set! - _self85885_ - _super85886_ + _self85867_ + _super85868_ '3 - (##structure-type _self85885_) + (##structure-type _self85867_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self85885_ + _self85867_ '3 - (##vector-length _self85885_))))) + (##vector-length _self85867_))))) (define gx#local-context:::init!__0 - (lambda (_self85891_) - (let ((_super85893_ (gx#current-expander-context))) - (gx#local-context:::init!__% _self85891_ _super85893_)))) + (lambda (_self85873_) + (let ((_super85875_ (gx#current-expander-context))) + (gx#local-context:::init!__% _self85873_ _super85875_)))) (define gx#local-context:::init! - (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_) + (lambda _g86082_ + (let ((_g86081_ (##length _g86082_))) + (cond ((##fx= _g86081_ 1) + (apply (lambda (_self85873_) + (gx#local-context:::init!__0 _self85873_)) + _g86082_)) + ((##fx= _g86081_ 2) + (apply (lambda (_self85877_ _super85878_) (gx#local-context:::init!__% - _self85895_ - _super85896_)) - _g86100_)) + _self85877_ + _super85878_)) + _g86082_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g86100_)))))) + _g86082_)))))) (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 _$args85759_ (apply make-instance gx#binding::t _$args85759_))) + (lambda _$args85741_ (apply make-instance gx#binding::t _$args85741_))) (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 _$args85756_ - (apply make-instance gx#runtime-binding::t _$args85756_))) + (lambda _$args85738_ + (apply make-instance gx#runtime-binding::t _$args85738_))) (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 _$args85753_ - (apply make-instance gx#local-binding::t _$args85753_))) + (lambda _$args85735_ + (apply make-instance gx#local-binding::t _$args85735_))) (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 _$args85750_ - (apply make-instance gx#top-binding::t _$args85750_))) + (lambda _$args85732_ + (apply make-instance gx#top-binding::t _$args85732_))) (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 _$args85747_ - (apply make-instance gx#module-binding::t _$args85747_))) + (lambda _$args85729_ + (apply make-instance gx#module-binding::t _$args85729_))) (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 _$args85744_ - (apply make-instance gx#extern-binding::t _$args85744_))) + (lambda _$args85726_ + (apply make-instance gx#extern-binding::t _$args85726_))) (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 _$args85741_ - (apply make-instance gx#syntax-binding::t _$args85741_))) + (lambda _$args85723_ + (apply make-instance gx#syntax-binding::t _$args85723_))) (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 _$args85738_ - (apply make-instance gx#import-binding::t _$args85738_))) + (lambda _$args85720_ + (apply make-instance gx#import-binding::t _$args85720_))) (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 _$args85735_ - (apply make-instance gx#alias-binding::t _$args85735_))) + (lambda _$args85717_ + (apply make-instance gx#alias-binding::t _$args85717_))) (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 _$args85732_ (apply make-instance gx#expander::t _$args85732_))) + (lambda _$args85714_ (apply make-instance gx#expander::t _$args85714_))) (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 _$args85729_ - (apply make-instance gx#core-expander::t _$args85729_))) + (lambda _$args85711_ + (apply make-instance gx#core-expander::t _$args85711_))) (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 _$args85726_ - (apply make-instance gx#expression-form::t _$args85726_))) + (lambda _$args85708_ + (apply make-instance gx#expression-form::t _$args85708_))) (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 _$args85723_ - (apply make-instance gx#special-form::t _$args85723_))) + (lambda _$args85705_ + (apply make-instance gx#special-form::t _$args85705_))) (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 _$args85720_ - (apply make-instance gx#definition-form::t _$args85720_))) + (lambda _$args85702_ + (apply make-instance gx#definition-form::t _$args85702_))) (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 _$args85717_ - (apply make-instance gx#top-special-form::t _$args85717_))) + (lambda _$args85699_ + (apply make-instance gx#top-special-form::t _$args85699_))) (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 _$args85714_ - (apply make-instance gx#module-special-form::t _$args85714_))) + (lambda _$args85696_ + (apply make-instance gx#module-special-form::t _$args85696_))) (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 _$args85711_ - (apply make-instance gx#feature-expander::t _$args85711_))) + (lambda _$args85693_ + (apply make-instance gx#feature-expander::t _$args85693_))) (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 _$args85708_ - (apply make-instance gx#private-feature-expander::t _$args85708_))) + (lambda _$args85690_ + (apply make-instance gx#private-feature-expander::t _$args85690_))) (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 _$args85705_ - (apply make-instance gx#reserved-expander::t _$args85705_))) + (lambda _$args85687_ + (apply make-instance gx#reserved-expander::t _$args85687_))) (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 _$args85702_ - (apply make-instance gx#macro-expander::t _$args85702_))) + (lambda _$args85684_ + (apply make-instance gx#macro-expander::t _$args85684_))) (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 _$args85699_ - (apply make-instance gx#rename-macro-expander::t _$args85699_))) + (lambda _$args85681_ + (apply make-instance gx#rename-macro-expander::t _$args85681_))) (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 _$args85696_ - (apply make-instance gx#user-expander::t _$args85696_))) + (lambda _$args85678_ + (apply make-instance gx#user-expander::t _$args85678_))) (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 _$args85693_ - (apply make-instance gx#expander-mark::t _$args85693_))) + (lambda _$args85675_ + (apply make-instance gx#expander-mark::t _$args85675_))) (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 (_ctx85678_ _message85679_ _stx85680_ . _details85681_) - (let ((_ctx85691_ - (let ((_$e85683_ _ctx85678_)) - (if _$e85683_ - _$e85683_ - (let ((_$e85686_ (gx#core-context-top__0))) - (if _$e85686_ - ((lambda (_ctx85689_) + (lambda (_ctx85660_ _message85661_ _stx85662_ . _details85663_) + (let ((_ctx85673_ + (let ((_$e85665_ _ctx85660_)) + (if _$e85665_ + _$e85665_ + (let ((_$e85668_ (gx#core-context-top__0))) + (if _$e85668_ + ((lambda (_ctx85671_) (cons 'expand (cons (##structure-ref - _ctx85689_ + _ctx85671_ '1 gx#expander-context::t '#f) '()))) - _$e85686_) + _$e85668_) '#f)))))) (raise (make-syntax-error - _message85679_ - (cons _stx85680_ _details85681_) - _ctx85691_ + _message85661_ + (cons _stx85662_ _details85663_) + _ctx85673_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_stx85665_ _expression?85666_) - (gx#eval-syntax* (gx#core-expand__% _stx85665_ _expression?85666_)))) + (lambda (_stx85647_ _expression?85648_) + (gx#eval-syntax* (gx#core-expand__% _stx85647_ _expression?85648_)))) (define gx#eval-syntax__0 - (lambda (_stx85671_) - (let ((_expression?85673_ '#f)) - (gx#eval-syntax__% _stx85671_ _expression?85673_)))) + (lambda (_stx85653_) + (let ((_expression?85655_ '#f)) + (gx#eval-syntax__% _stx85653_ _expression?85655_)))) (define gx#eval-syntax - (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_)) + (lambda _g86084_ + (let ((_g86083_ (##length _g86084_))) + (cond ((##fx= _g86083_ 1) + (apply (lambda (_stx85653_) (gx#eval-syntax__0 _stx85653_)) + _g86084_)) + ((##fx= _g86083_ 2) + (apply (lambda (_stx85657_ _expression?85658_) + (gx#eval-syntax__% _stx85657_ _expression?85658_)) + _g86084_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g86102_)))))) + _g86084_)))))) (define gx#eval-syntax* - (lambda (_stx85662_) + (lambda (_stx85644_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _stx85662_)))) + ((gx#current-expander-compile) _stx85644_)))) (define gx#core-expand__% - (lambda (_stx85649_ _expression?85650_) - (if _expression?85650_ - (gx#core-expand-expression _stx85649_) - (gx#core-expand-top _stx85649_)))) + (lambda (_stx85631_ _expression?85632_) + (if _expression?85632_ + (gx#core-expand-expression _stx85631_) + (gx#core-expand-top _stx85631_)))) (define gx#core-expand__0 - (lambda (_stx85655_) - (let ((_expression?85657_ '#f)) - (gx#core-expand__% _stx85655_ _expression?85657_)))) + (lambda (_stx85637_) + (let ((_expression?85639_ '#f)) + (gx#core-expand__% _stx85637_ _expression?85639_)))) (define gx#core-expand - (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_)) + (lambda _g86086_ + (let ((_g86085_ (##length _g86086_))) + (cond ((##fx= _g86085_ 1) + (apply (lambda (_stx85637_) (gx#core-expand__0 _stx85637_)) + _g86086_)) + ((##fx= _g86085_ 2) + (apply (lambda (_stx85641_ _expression?85642_) + (gx#core-expand__% _stx85641_ _expression?85642_)) + _g86086_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g86104_)))))) + _g86086_)))))) (define gx#core-expand-top - (lambda (_stx85616_) - (let* ((_stx85618_ (gx#core-expand*__0 _stx85616_)) - (_e8561985626_ _stx85618_) - (_E8562185630_ - (lambda () (gx#core-expand-expression _stx85618_))) - (_E8562085644_ + (lambda (_stx85598_) + (let* ((_stx85600_ (gx#core-expand*__0 _stx85598_)) + (_e8560185608_ _stx85600_) + (_E8560385612_ + (lambda () (gx#core-expand-expression _stx85600_))) + (_E8560285626_ (lambda () - (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_)))) + (if (gx#stx-pair? _e8560185608_) + (let ((_e8560485616_ (gx#syntax-e _e8560185608_))) + (let ((_hd8560585619_ (##car _e8560485616_)) + (_tl8560685621_ (##cdr _e8560485616_))) + (let ((_form85624_ _hd8560585619_)) + (if (gx#core-bound-identifier?__0 _form85624_) + _stx85600_ + (_E8560385612_))))) + (_E8560385612_))))) + (_E8560285626_)))) (define gx#core-expand-expression - (lambda (_stx85563_) - (letrec ((_sealed-expression?85565_ - (lambda (_hd85586_) - (if (gx#sealed-syntax? _hd85586_) - (let* ((_e8558785594_ _hd85586_) - (_E8558985598_ (lambda () '#f)) - (_E8558885612_ + (lambda (_stx85545_) + (letrec ((_sealed-expression?85547_ + (lambda (_hd85568_) + (if (gx#sealed-syntax? _hd85568_) + (let* ((_e8556985576_ _hd85568_) + (_E8557185580_ (lambda () '#f)) + (_E8557085594_ (lambda () - (if (gx#stx-pair? _e8558785594_) - (let ((_e8559085602_ - (gx#syntax-e _e8558785594_))) - (let ((_hd8559185605_ - (##car _e8559085602_)) - (_tl8559285607_ - (##cdr _e8559085602_))) - (let ((_form85610_ _hd8559185605_)) + (if (gx#stx-pair? _e8556985576_) + (let ((_e8557285584_ + (gx#syntax-e _e8556985576_))) + (let ((_hd8557385587_ + (##car _e8557285584_)) + (_tl8557485589_ + (##cdr _e8557285584_))) + (let ((_form85592_ _hd8557385587_)) (if '#t (gx#core-bound-identifier?__% - _form85610_ + _form85592_ gx#expression-form-binding?) - (_E8558985598_))))) - (_E8558985598_))))) - (_E8558885612_)) + (_E8557185580_))))) + (_E8557185580_))))) + (_E8557085594_)) '#f))) - (_illegal-expression85566_ - (lambda (_hd85584_ . _g86105_) + (_illegal-expression85548_ + (lambda (_hd85566_ . _g86087_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _stx85563_ - _hd85584_))) - (_expand-e85567_ - (lambda (_form85579_ _hd85580_) - (let ((_bind85582_ + _stx85545_ + _hd85566_))) + (_expand-e85549_ + (lambda (_form85561_ _hd85562_) + (let ((_bind85564_ (if (##structure-instance-of? - _form85579_ + _form85561_ 'gx#binding::t) - _form85579_ - (gx#resolve-identifier__0 _form85579_)))) - (if (gx#core-expander-binding? _bind85582_) + _form85561_ + (gx#resolve-identifier__0 _form85561_)))) + (if (gx#core-expander-binding? _bind85564_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind85582_ + _bind85564_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd85580_ - (gx#stx-source _stx85563_))) + _hd85562_ + (gx#stx-source _stx85545_))) (if (##structure-direct-instance-of? - _bind85582_ + _bind85564_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind85582_ + _bind85564_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd85580_ - (gx#stx-source _stx85563_)))) + _hd85562_ + (gx#stx-source _stx85545_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _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_) + _stx85545_ + _form85561_))))))) + (let ((_hd85551_ (gx#core-expand-head _stx85545_))) + (if (_sealed-expression?85547_ _hd85551_) + _hd85551_ + (if (gx#stx-pair? _hd85551_) + (let* ((_form85553_ (gx#stx-car _hd85551_)) + (_bind85555_ + (if (gx#identifier? _form85553_) + (gx#resolve-identifier__0 _form85553_) '#f))) - (if (or (not _bind85573_) - (not (gx#core-expander-binding? _bind85573_))) - (_expand-e85567_ '%%app (cons '%%app _hd85569_)) + (if (or (not _bind85555_) + (not (gx#core-expander-binding? _bind85555_))) + (_expand-e85549_ '%%app (cons '%%app _hd85551_)) (if (eq? (##unchecked-structure-ref - _bind85573_ + _bind85555_ '1 gx#binding::t '#f) '%#begin) (gx#core-expand-block* - _hd85569_ - _illegal-expression85566_) - (if (gx#expression-form-binding? _bind85573_) - (_expand-e85567_ _bind85573_ _hd85569_) + _hd85551_ + _illegal-expression85548_) + (if (gx#expression-form-binding? _bind85555_) + (_expand-e85549_ _bind85555_ _hd85551_) (if (gx#direct-special-form-binding? - _bind85573_) + _bind85555_) (gx#core-expand-expression - (_expand-e85567_ _bind85573_ _hd85569_)) - (_illegal-expression85566_ - _hd85569_)))))) - (if (gx#core-bound-identifier?__0 _hd85569_) - (_illegal-expression85566_ _hd85569_) - (if (gx#identifier? _hd85569_) - (_expand-e85567_ + (_expand-e85549_ _bind85555_ _hd85551_)) + (_illegal-expression85548_ + _hd85551_)))))) + (if (gx#core-bound-identifier?__0 _hd85551_) + (_illegal-expression85548_ _hd85551_) + (if (gx#identifier? _hd85551_) + (_expand-e85549_ '%%ref - (cons '%%ref (cons _hd85569_ '()))) - (if (gx#stx-datum? _hd85569_) - (_expand-e85567_ + (cons '%%ref (cons _hd85551_ '()))) + (if (gx#stx-datum? _hd85551_) + (_expand-e85549_ '%#quote - (cons '%#quote (cons _hd85569_ '()))) - (_illegal-expression85566_ _hd85569_)))))))))) + (cons '%#quote (cons _hd85551_ '()))) + (_illegal-expression85548_ _hd85551_)))))))))) (define gx#core-expand-expression+1 - (lambda (_stx85558_) + (lambda (_stx85540_) (call-with-parameters (lambda () - (let ((_stx85561_ (gx#core-expand-expression _stx85558_))) - (values _stx85561_ (gx#eval-syntax* _stx85561_)))) + (let ((_stx85543_ (gx#core-expand-expression _stx85540_))) + (values _stx85543_ (gx#eval-syntax* _stx85543_)))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (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_))))))) + (lambda (_stx85521_ _stop?85522_) + (let _lp85524_ ((_stx85526_ _stx85521_)) + (if (_stop?85522_ _stx85526_) + _stx85526_ + (let ((_rstx85528_ (gx#core-expand1 _stx85526_))) + (if (eq? _stx85526_ _rstx85528_) + _stx85526_ + (_lp85524_ _rstx85528_))))))) (define gx#core-expand*__0 - (lambda (_stx85551_) - (let ((_stop?85553_ false)) - (gx#core-expand*__% _stx85551_ _stop?85553_)))) + (lambda (_stx85533_) + (let ((_stop?85535_ false)) + (gx#core-expand*__% _stx85533_ _stop?85535_)))) (define gx#core-expand* - (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_)) + (lambda _g86089_ + (let ((_g86088_ (##length _g86089_))) + (cond ((##fx= _g86088_ 1) + (apply (lambda (_stx85533_) (gx#core-expand*__0 _stx85533_)) + _g86089_)) + ((##fx= _g86088_ 2) + (apply (lambda (_stx85537_ _stop?85538_) + (gx#core-expand*__% _stx85537_ _stop?85538_)) + _g86089_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g86107_)))))) + _g86089_)))))) (define gx#core-expand1 - (lambda (_stx85495_) - (letrec ((_step85497_ - (lambda (_hd85534_) - (let ((_bind85536_ (gx#resolve-identifier__0 _hd85534_))) + (lambda (_stx85477_) + (letrec ((_step85479_ + (lambda (_hd85516_) + (let ((_bind85518_ (gx#resolve-identifier__0 _hd85516_))) (if (##structure-instance-of? - _bind85536_ + _bind85518_ 'gx#runtime-binding::t) - _stx85495_ + _stx85477_ (if (##structure-direct-instance-of? - _bind85536_ + _bind85518_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind85536_ + _bind85518_ '4 gx#syntax-binding::t '#f) - _stx85495_) - (if (not _bind85536_) - _stx85495_ + _stx85477_) + (if (not _bind85518_) + _stx85477_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _stx85495_)))))))) - (let* ((_e8549885506_ _stx85495_) - (_E8550485510_ (lambda () _stx85495_)) - (_E8550085516_ + _stx85477_)))))))) + (let* ((_e8548085488_ _stx85477_) + (_E8548685492_ (lambda () _stx85477_)) + (_E8548285498_ (lambda () - (let ((_hd85514_ _e8549885506_)) - (if (gx#identifier? _hd85514_) - (_step85497_ _hd85514_) - (_E8550485510_))))) - (_E8549985530_ + (let ((_hd85496_ _e8548085488_)) + (if (gx#identifier? _hd85496_) + (_step85479_ _hd85496_) + (_E8548685492_))))) + (_E8548185512_ (lambda () - (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_))))) + (if (gx#stx-pair? _e8548085488_) + (let ((_e8548385502_ (gx#syntax-e _e8548085488_))) + (let ((_hd8548485505_ (##car _e8548385502_)) + (_tl8548585507_ (##cdr _e8548385502_))) + (let ((_hd85510_ _hd8548485505_)) + (if (gx#identifier? _hd85510_) + (_step85479_ _hd85510_) + (_E8548285498_))))) + (_E8548285498_))))) + (_E8548185512_))))) (define gx#core-expand-head - (lambda (_stx85461_) - (letrec ((_stop?85463_ - (lambda (_stx85465_) - (let* ((_e8546685473_ _stx85465_) - (_E8546885477_ (lambda () '#f)) - (_E8546785491_ + (lambda (_stx85443_) + (letrec ((_stop?85445_ + (lambda (_stx85447_) + (let* ((_e8544885455_ _stx85447_) + (_E8545085459_ (lambda () '#f)) + (_E8544985473_ (lambda () - (if (gx#stx-pair? _e8546685473_) - (let ((_e8546985481_ - (gx#syntax-e _e8546685473_))) - (let ((_hd8547085484_ - (##car _e8546985481_)) - (_tl8547185486_ - (##cdr _e8546985481_))) - (let ((_hd85489_ _hd8547085484_)) + (if (gx#stx-pair? _e8544885455_) + (let ((_e8545185463_ + (gx#syntax-e _e8544885455_))) + (let ((_hd8545285466_ + (##car _e8545185463_)) + (_tl8545385468_ + (##cdr _e8545185463_))) + (let ((_hd85471_ _hd8545285466_)) (if '#t (gx#core-bound-identifier?__0 - _hd85489_) - (_E8546885477_))))) - (_E8546885477_))))) - (_E8546785491_))))) - (gx#core-expand*__% _stx85461_ _stop?85463_)))) + _hd85471_) + (_E8545085459_))))) + (_E8545085459_))))) + (_E8544985473_))))) + (gx#core-expand*__% _stx85443_ _stop?85445_)))) (define gx#core-expand-block__% - (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_) + (lambda (_stx85249_ + _expand-special85250_ + _begin-form85251_ + _expand-e85252_) + (letrec ((_expand-splice85254_ + (lambda (_hd85417_ _body85418_ _rest85419_ _r85420_) + (if (gx#stx-list? _body85418_) + (_K85258_ + (gx#stx-foldr cons _rest85419_ _body85418_) + _r85420_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _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_ + _stx85249_ + _hd85417_)))) + (_expand-cond-expand85255_ + (lambda (_hd85413_ _rest85414_ _r85415_) + (_K85258_ + (cons (gx#core-expand-cond-expand% _hd85413_) _rest85414_) + _r85415_))) + (_expand-include85256_ + (lambda (_hd85362_ _rest85363_ _r85364_) + (let* ((_e8536585375_ _hd85362_) + (_E8536785379_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8538385393_))) - (_E8538485427_ + _e8536585375_))) + (_E8536685409_ (lambda () - (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-pair? _e8536585375_) + (let ((_e8536885383_ + (gx#syntax-e _e8536585375_))) + (let ((_hd8536985386_ + (##car _e8536885383_)) + (_tl8537085388_ + (##cdr _e8536885383_))) + (if (gx#stx-pair? _tl8537085388_) + (let ((_e8537185391_ + (gx#syntax-e _tl8537085388_))) + (let ((_hd8537285394_ + (##car _e8537185391_)) + (_tl8537385396_ + (##cdr _e8537185391_))) + (let ((_path85399_ + _hd8537285394_)) (if (gx#stx-null? - _tl8539185414_) + _tl8537385396_) (if (gx#stx-string? - _path85417_) - (let* ((_rpath85419_ + _path85399_) + (let* ((_rpath85401_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _path85417_ - (gx#stx-source _hd85380_))) - (_block85421_ - (gx#core-expand-include%__% _hd85380_ _rpath85419_)) - (_rbody85424_ + _path85399_ + (gx#stx-source _hd85362_))) + (_block85403_ + (gx#core-expand-include%__% _hd85362_ _rpath85401_)) + (_rbody85406_ (call-with-parameters (lambda () (gx#core-expand-block__% - _block85421_ - _expand-special85268_ + _block85403_ + _expand-special85250_ '#f - _expand-e85270_)) + _expand-e85252_)) gx#current-expander-path - (cons _rpath85419_ (gx#current-expander-path))))) - (_K85276_ _rest85381_ (foldr1 cons _r85382_ _rbody85424_))) - (_E8538585397_)) + (cons _rpath85401_ (gx#current-expander-path))))) + (_K85258_ _rest85363_ (foldr1 cons _r85364_ _rbody85406_))) + (_E8536785379_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_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_ + (_E8536785379_))))) + (_E8536785379_)))) + (_E8536785379_))))) + (_E8536685409_)))) + (_expand-expression85257_ + (lambda (_hd85358_ _rest85359_ _r85360_) + (_K85258_ + _rest85359_ + (cons (_expand-e85252_ _hd85358_) _r85360_)))) + (_K85258_ + (lambda (_rest85288_ _r85289_) + (let* ((_e8529085297_ _rest85288_) + (_E8529285301_ (lambda () - (if _begin-form85269_ + (if _begin-form85251_ (gx#core-quote-syntax__1 (gx#core-cons - _begin-form85269_ - (reverse _r85307_)) - (gx#stx-source _stx85267_)) - _r85307_))) - (_E8530985372_ + _begin-form85251_ + (reverse _r85289_)) + (gx#stx-source _stx85249_)) + _r85289_))) + (_E8529185354_ (lambda () - (if (gx#stx-pair? _e8530885315_) - (let ((_e8531185323_ - (gx#syntax-e _e8530885315_))) - (let ((_hd8531285326_ - (##car _e8531185323_)) - (_tl8531385328_ - (##cdr _e8531185323_))) - (let* ((_hd85331_ _hd8531285326_) - (_rest85333_ _tl8531385328_)) + (if (gx#stx-pair? _e8529085297_) + (let ((_e8529385305_ + (gx#syntax-e _e8529085297_))) + (let ((_hd8529485308_ + (##car _e8529385305_)) + (_tl8529585310_ + (##cdr _e8529385305_))) + (let* ((_hd85313_ _hd8529485308_) + (_rest85315_ _tl8529585310_)) (if '#t - (let* ((_hd85335_ + (let* ((_hd85317_ (gx#core-expand-head - _hd85331_)) - (_e8533685343_ _hd85335_) - (_E8533885347_ + _hd85313_)) + (_e8531885325_ _hd85317_) + (_E8532085329_ (lambda () - (_expand-expression85275_ - _hd85335_ - _rest85333_ - _r85307_))) - (_E8533785368_ + (_expand-expression85257_ + _hd85317_ + _rest85315_ + _r85289_))) + (_E8531985350_ (lambda () (if (gx#stx-pair? - _e8533685343_) - (let ((_e8533985351_ + _e8531885325_) + (let ((_e8532185333_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e8533685343_))) - (let ((_hd8534085354_ (##car _e8533985351_)) - (_tl8534185356_ (##cdr _e8533985351_))) - (let* ((_form85359_ _hd8534085354_) - (_body85361_ _tl8534185356_)) + (gx#syntax-e _e8531885325_))) + (let ((_hd8532285336_ (##car _e8532185333_)) + (_tl8532385338_ (##cdr _e8532185333_))) + (let* ((_form85341_ _hd8532285336_) + (_body85343_ _tl8532385338_)) (if '#t - (let ((_bind85363_ - (if (gx#identifier? _form85359_) - (gx#resolve-identifier__0 _form85359_) + (let ((_bind85345_ + (if (gx#identifier? _form85341_) + (gx#resolve-identifier__0 _form85341_) '#f))) - (if (gx#special-form-binding? _bind85363_) - (let ((_$e85365_ + (if (gx#special-form-binding? _bind85345_) + (let ((_$e85347_ (##unchecked-structure-ref - _bind85363_ + _bind85345_ '1 gx#binding::t '#f))) - (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_))))) + (if (eq? '%#begin _$e85347_) + (_expand-splice85254_ + _hd85317_ + _body85343_ + _rest85315_ + _r85289_) + (if (eq? '%#cond-expand _$e85347_) + (_expand-cond-expand85255_ + _hd85317_ + _rest85315_ + _r85289_) + (if (eq? '%#include _$e85347_) + (_expand-include85256_ + _hd85317_ + _rest85315_ + _r85289_) + (_expand-special85250_ + _hd85317_ + _K85258_ + _rest85315_ + _r85289_))))) + (_expand-expression85257_ + _hd85317_ + _rest85315_ + _r85289_))) + (_E8532085329_))))) + (_E8532085329_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8533785368_)) - (_E8531085319_))))) - (_E8531085319_))))) - (_E8530985372_))))) - (let* ((_e8527785284_ _stx85267_) - (_E8527985288_ + (_E8531985350_)) + (_E8529285301_))))) + (_E8529285301_))))) + (_E8529185354_))))) + (let* ((_e8525985266_ _stx85249_) + (_E8526185270_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8527785284_))) - (_E8527885302_ + _e8525985266_))) + (_E8526085284_ (lambda () - (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_))))) + (if (gx#stx-pair? _e8525985266_) + (let ((_e8526285274_ (gx#syntax-e _e8525985266_))) + (let ((_hd8526385277_ (##car _e8526285274_)) + (_tl8526485279_ (##cdr _e8526285274_))) + (let ((_body85282_ _tl8526485279_)) + (if (gx#stx-list? _body85282_) + (_K85258_ _body85282_ '()) + (_E8526185270_))))) + (_E8526185270_))))) + (_E8526085284_))))) (define gx#core-expand-block__0 - (lambda (_stx85443_ _expand-special85444_) - (let* ((_begin-form85446_ '%#begin) - (_expand-e85448_ gx#core-expand-expression)) + (lambda (_stx85425_ _expand-special85426_) + (let* ((_begin-form85428_ '%#begin) + (_expand-e85430_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx85443_ - _expand-special85444_ - _begin-form85446_ - _expand-e85448_)))) + _stx85425_ + _expand-special85426_ + _begin-form85428_ + _expand-e85430_)))) (define gx#core-expand-block__1 - (lambda (_stx85450_ _expand-special85451_ _begin-form85452_) - (let ((_expand-e85454_ gx#core-expand-expression)) + (lambda (_stx85432_ _expand-special85433_ _begin-form85434_) + (let ((_expand-e85436_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx85450_ - _expand-special85451_ - _begin-form85452_ - _expand-e85454_)))) + _stx85432_ + _expand-special85433_ + _begin-form85434_ + _expand-e85436_)))) (define gx#core-expand-block - (lambda _g86109_ - (let ((_g86108_ (##length _g86109_))) - (cond ((##fx= _g86108_ 2) - (apply (lambda (_stx85443_ _expand-special85444_) + (lambda _g86091_ + (let ((_g86090_ (##length _g86091_))) + (cond ((##fx= _g86090_ 2) + (apply (lambda (_stx85425_ _expand-special85426_) (gx#core-expand-block__0 - _stx85443_ - _expand-special85444_)) - _g86109_)) - ((##fx= _g86108_ 3) - (apply (lambda (_stx85450_ - _expand-special85451_ - _begin-form85452_) + _stx85425_ + _expand-special85426_)) + _g86091_)) + ((##fx= _g86090_ 3) + (apply (lambda (_stx85432_ + _expand-special85433_ + _begin-form85434_) (gx#core-expand-block__1 - _stx85450_ - _expand-special85451_ - _begin-form85452_)) - _g86109_)) - ((##fx= _g86108_ 4) - (apply (lambda (_stx85456_ - _expand-special85457_ - _begin-form85458_ - _expand-e85459_) + _stx85432_ + _expand-special85433_ + _begin-form85434_)) + _g86091_)) + ((##fx= _g86090_ 4) + (apply (lambda (_stx85438_ + _expand-special85439_ + _begin-form85440_ + _expand-e85441_) (gx#core-expand-block__% - _stx85456_ - _expand-special85457_ - _begin-form85458_ - _expand-e85459_)) - _g86109_)) + _stx85438_ + _expand-special85439_ + _begin-form85440_ + _expand-e85441_)) + _g86091_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g86109_)))))) + _g86091_)))))) (define gx#core-expand-block* - (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 (_stx85197_ _expand-special85198_) + (let* ((_g8519985210_ + (gx#core-expand-block__1 _stx85197_ _expand-special85198_ '#f)) + (_E8520385214_ + (lambda () (error '"No clause matching" _g8519985210_)))) + (let ((_K8520885245_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _stx85215_))) - (_K8522385249_ (lambda (_expr85247_) _expr85247_)) - (_K8522285238_ - (lambda (_body85236_) + _stx85197_))) + (_K8520585231_ (lambda (_expr85229_) _expr85229_)) + (_K8520485220_ + (lambda (_body85218_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _body85236_)) - (gx#stx-source _stx85215_))))) - (let ((_try-match8521985259_ + (gx#core-cons '%#begin (reverse _body85218_)) + (gx#stx-source _stx85197_))))) + (let ((_try-match8520185241_ (lambda () - (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_))))))) + (if (##pair? _g8519985210_) + (let ((_tl8520785236_ (##cdr _g8519985210_)) + (_hd8520685234_ (##car _g8519985210_))) + (if (##null? _tl8520785236_) + (let ((_expr85239_ _hd8520685234_)) + (_K8520585231_ _expr85239_)) + (let ((_body85223_ _g8519985210_)) + (_K8520485220_ _body85223_)))) + (let ((_body85223_ _g8519985210_)) + (_K8520485220_ _body85223_)))))) + (if (##null? _g8519985210_) + (_K8520885245_) + (_try-match8520185241_))))))) (define gx#core-expand-cond-expand% - (lambda (_stx85043_) - (letrec ((_satisfied?85045_ - (lambda (_condition85143_) - (let* ((_e8514485159_ _condition85143_) - (_E8515485163_ + (lambda (_stx85025_) + (letrec ((_satisfied?85027_ + (lambda (_condition85125_) + (let* ((_e8512685141_ _condition85125_) + (_E8513685145_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8514485159_))) - (_E8514785182_ + _e8512685141_))) + (_E8512985164_ (lambda () - (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_ + (if (gx#stx-pair? _e8512685141_) + (let ((_e8513785149_ + (gx#syntax-e _e8512685141_))) + (let ((_hd8513885152_ + (##car _e8513785149_)) + (_tl8513985154_ + (##cdr _e8513785149_))) + (let* ((_combinator85157_ _hd8513885152_) + (_body85159_ _tl8513985154_)) + (if (gx#stx-list? _body85159_) + (let ((_$e85161_ (gx#stx-e - _combinator85175_))) - (if (eq? 'not _$e85179_) + _combinator85157_))) + (if (eq? 'not _$e85161_) (not (gx#stx-ormap - _satisfied?85045_ - _body85177_)) - (if (eq? 'and _$e85179_) + _satisfied?85027_ + _body85159_)) + (if (eq? 'and _$e85161_) (gx#stx-andmap - _satisfied?85045_ - _body85177_) - (if (eq? 'or _$e85179_) + _satisfied?85027_ + _body85159_) + (if (eq? 'or _$e85161_) (gx#stx-ormap - _satisfied?85045_ - _body85177_) + _satisfied?85027_ + _body85159_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e85179_) - (gx#stx-andmap gx#core-resolve-identifier _body85177_) + _$e85161_) + (gx#stx-andmap gx#core-resolve-identifier _body85159_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _stx85043_ - _combinator85175_)))))) + _stx85025_ + _combinator85157_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8515485163_))))) - (_E8515485163_)))) - (_E8514685205_ + (_E8513685145_))))) + (_E8513685145_)))) + (_E8512885187_ (lambda () - (if (gx#stx-pair? _e8514485159_) - (let ((_e8514885186_ - (gx#syntax-e _e8514485159_))) - (let ((_hd8514985189_ - (##car _e8514885186_)) - (_tl8515085191_ - (##cdr _e8514885186_))) - (if (and (gx#identifier? _hd8514985189_) + (if (gx#stx-pair? _e8512685141_) + (let ((_e8513085168_ + (gx#syntax-e _e8512685141_))) + (let ((_hd8513185171_ + (##car _e8513085168_)) + (_tl8513285173_ + (##cdr _e8513085168_))) + (if (and (gx#identifier? _hd8513185171_) (gx#core-identifier=? - _hd8514985189_ + _hd8513185171_ 'unquote)) - (if (gx#stx-pair? _tl8515085191_) - (let ((_e8515185194_ + (if (gx#stx-pair? _tl8513285173_) + (let ((_e8513385176_ (gx#syntax-e - _tl8515085191_))) - (let ((_hd8515285197_ - (##car _e8515185194_)) - (_tl8515385199_ - (##cdr _e8515185194_))) - (let ((_expr85202_ - _hd8515285197_)) + _tl8513285173_))) + (let ((_hd8513485179_ + (##car _e8513385176_)) + (_tl8513585181_ + (##cdr _e8513385176_))) + (let ((_expr85184_ + _hd8513485179_)) (if (gx#stx-null? - _tl8515385199_) + _tl8513585181_) (if '#t (call-with-parameters (lambda () (gx#eval-syntax__0 - _expr85202_)) + _expr85184_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1)) - (_E8514785182_)) - (_E8514785182_))))) + (_E8512985164_)) + (_E8512985164_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8514785182_)) - (_E8514785182_)))) - (_E8514785182_)))) - (_E8514585211_ + (_E8512985164_)) + (_E8512985164_)))) + (_E8512985164_)))) + (_E8512785193_ (lambda () - (let ((_id85209_ _e8514485159_)) - (if (gx#identifier? _id85209_) + (let ((_id85191_ _e8512685141_)) + (if (gx#identifier? _id85191_) (gx#core-bound-identifier?__% - _id85209_ + _id85191_ gx#feature-binding?) - (_E8514685205_)))))) - (_E8514585211_)))) - (_loop85046_ - (lambda (_rest85076_) - (let* ((_e8507785085_ _rest85076_) - (_E8508385089_ + (_E8512885187_)))))) + (_E8512785193_)))) + (_loop85028_ + (lambda (_rest85058_) + (let* ((_e8505985067_ _rest85058_) + (_E8506585071_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8507785085_))) - (_E8507985093_ + _e8505985067_))) + (_E8506185075_ (lambda () - (if (gx#stx-null? _e8507785085_) - (if '#t '() (_E8508385089_)) - (_E8508385089_)))) - (_E8507885139_ + (if (gx#stx-null? _e8505985067_) + (if '#t '() (_E8506585071_)) + (_E8506585071_)))) + (_E8506085121_ (lambda () - (if (gx#stx-pair? _e8507785085_) - (let ((_e8508085097_ - (gx#syntax-e _e8507785085_))) - (let ((_hd8508185100_ - (##car _e8508085097_)) - (_tl8508285102_ - (##cdr _e8508085097_))) - (let* ((_hd85105_ _hd8508185100_) - (_rest85107_ _tl8508285102_)) + (if (gx#stx-pair? _e8505985067_) + (let ((_e8506285079_ + (gx#syntax-e _e8505985067_))) + (let ((_hd8506385082_ + (##car _e8506285079_)) + (_tl8506485084_ + (##cdr _e8506285079_))) + (let* ((_hd85087_ _hd8506385082_) + (_rest85089_ _tl8506485084_)) (if '#t - (let* ((_e8510885115_ _hd85105_) - (_E8511085119_ + (let* ((_e8509085097_ _hd85087_) + (_E8509285101_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8510885115_))) - (_E8510985135_ + _e8509085097_))) + (_E8509185117_ (lambda () (if (gx#stx-pair? - _e8510885115_) - (let ((_e8511185123_ + _e8509085097_) + (let ((_e8509385105_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e8510885115_))) - (let ((_hd8511285126_ (##car _e8511185123_)) - (_tl8511385128_ (##cdr _e8511185123_))) - (let* ((_condition85131_ _hd8511285126_) - (_body85133_ _tl8511385128_)) + (gx#syntax-e _e8509085097_))) + (let ((_hd8509485108_ (##car _e8509385105_)) + (_tl8509585110_ (##cdr _e8509385105_))) + (let* ((_condition85113_ _hd8509485108_) + (_body85115_ _tl8509585110_)) (if '#t - (if (gx#stx-eq? _condition85131_ 'else) - (if (gx#stx-null? _rest85107_) - _body85133_ + (if (gx#stx-eq? _condition85113_ 'else) + (if (gx#stx-null? _rest85089_) + _body85115_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _stx85043_ - _hd85105_)) - (if (_satisfied?85045_ _condition85131_) - _body85133_ - (_loop85046_ _rest85107_))) - (_E8511085119_))))) - (_E8511085119_))))) + _stx85025_ + _hd85087_)) + (if (_satisfied?85027_ _condition85113_) + _body85115_ + (_loop85028_ _rest85089_))) + (_E8509285101_))))) + (_E8509285101_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8510985135_)) - (_E8507985093_))))) - (_E8507985093_))))) - (_E8507885139_))))) - (let* ((_e8504785054_ _stx85043_) - (_E8504985058_ + (_E8509185117_)) + (_E8506185075_))))) + (_E8506185075_))))) + (_E8506085121_))))) + (let* ((_e8502985036_ _stx85025_) + (_E8503185040_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8504785054_))) - (_E8504885072_ + _e8502985036_))) + (_E8503085054_ (lambda () - (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_) + (if (gx#stx-pair? _e8502985036_) + (let ((_e8503285044_ (gx#syntax-e _e8502985036_))) + (let ((_hd8503385047_ (##car _e8503285044_)) + (_tl8503485049_ (##cdr _e8503285044_))) + (let ((_clauses85052_ _tl8503485049_)) + (if (gx#stx-list? _clauses85052_) (gx#core-cons 'begin - (_loop85046_ _clauses85070_)) - (_E8504985058_))))) - (_E8504985058_))))) - (_E8504885072_))))) + (_loop85028_ _clauses85052_)) + (_E8503185040_))))) + (_E8503185040_))))) + (_E8503085054_))))) (define gx#core-expand-include%__% - (lambda (_stx84986_ _rpath84987_) - (let* ((_e8498884998_ _stx84986_) - (_E8499085002_ + (lambda (_stx84968_ _rpath84969_) + (let* ((_e8497084980_ _stx84968_) + (_E8497284984_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8498884998_))) - (_E8498985029_ + _e8497084980_))) + (_E8497185011_ (lambda () - (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_ + (if (gx#stx-pair? _e8497084980_) + (let ((_e8497384988_ (gx#syntax-e _e8497084980_))) + (let ((_hd8497484991_ (##car _e8497384988_)) + (_tl8497584993_ (##cdr _e8497384988_))) + (if (gx#stx-pair? _tl8497584993_) + (let ((_e8497684996_ + (gx#syntax-e _tl8497584993_))) + (let ((_hd8497784999_ (##car _e8497684996_)) + (_tl8497885001_ (##cdr _e8497684996_))) + (let ((_path85004_ _hd8497784999_)) + (if (gx#stx-null? _tl8497885001_) + (if (gx#stx-string? _path85004_) + (let ((_rpath85009_ + (let ((_$e85006_ + _rpath84969_)) + (if _$e85006_ + _$e85006_ (gx#core-resolve-path__% - _path85022_ + _path85004_ (gx#stx-source - _stx84986_)))))) - (if (member _rpath85027_ + _stx84968_)))))) + (if (member _rpath85009_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _stx84986_) + _stx84968_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _rpath85027_)) + _rpath85009_)) (gx#stx-source - _stx84986_))))) - (_E8499085002_)) - (_E8499085002_))))) - (_E8499085002_)))) - (_E8499085002_))))) - (_E8498985029_)))) + _stx84968_))))) + (_E8497284984_)) + (_E8497284984_))))) + (_E8497284984_)))) + (_E8497284984_))))) + (_E8497185011_)))) (define gx#core-expand-include%__0 - (lambda (_stx85036_) - (let ((_rpath85038_ '#f)) - (gx#core-expand-include%__% _stx85036_ _rpath85038_)))) + (lambda (_stx85018_) + (let ((_rpath85020_ '#f)) + (gx#core-expand-include%__% _stx85018_ _rpath85020_)))) (define gx#core-expand-include% - (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_)) + (lambda _g86093_ + (let ((_g86092_ (##length _g86093_))) + (cond ((##fx= _g86092_ 1) + (apply (lambda (_stx85018_) + (gx#core-expand-include%__0 _stx85018_)) + _g86093_)) + ((##fx= _g86092_ 2) + (apply (lambda (_stx85022_ _rpath85023_) + (gx#core-expand-include%__% _stx85022_ _rpath85023_)) + _g86093_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g86111_)))))) + _g86093_)))))) (define gx#core-apply-expander__% - (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_) + (lambda (_K84937_ _stx84938_ _method84939_) + (if (procedure? _K84937_) + (let ((_$e84941_ (gx#stx-source _stx84938_))) + (if _$e84941_ + ((lambda (_g8494384945_) + (gx#stx-wrap-source (_K84937_ _stx84938_) _g8494384945_)) + _$e84941_) + (_K84937_ _stx84938_))) + (let ((_$e84948_ (bound-method-ref _K84937_ _method84939_))) + (if _$e84948_ + ((lambda (_g8495084952_) (gx#core-apply-expander__% - _g8496884970_ - _stx84956_ - _method84957_)) - _$e84966_) + _g8495084952_ + _stx84938_ + _method84939_)) + _$e84948_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _stx84956_ - _method84957_)))))) + _stx84938_ + _method84939_)))))) (define gx#core-apply-expander__0 - (lambda (_K84976_ _stx84977_) - (let ((_method84979_ 'apply-macro-expander)) - (gx#core-apply-expander__% _K84976_ _stx84977_ _method84979_)))) + (lambda (_K84958_ _stx84959_) + (let ((_method84961_ 'apply-macro-expander)) + (gx#core-apply-expander__% _K84958_ _stx84959_ _method84961_)))) (define gx#core-apply-expander - (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_) + (lambda _g86095_ + (let ((_g86094_ (##length _g86095_))) + (cond ((##fx= _g86094_ 2) + (apply (lambda (_K84958_ _stx84959_) + (gx#core-apply-expander__0 _K84958_ _stx84959_)) + _g86095_)) + ((##fx= _g86094_ 3) + (apply (lambda (_K84963_ _stx84964_ _method84965_) (gx#core-apply-expander__% - _K84981_ - _stx84982_ - _method84983_)) - _g86113_)) + _K84963_ + _stx84964_ + _method84965_)) + _g86095_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g86113_)))))) + _g86095_)))))) (define gx#expander::apply-macro-expander - (lambda (_self84951_ _stx84952_) + (lambda (_self84933_ _stx84934_) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _stx84952_))) + _stx84934_))) (bind-method!__% gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (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_ + (lambda (_self84786_ _stx84787_) + (let* ((_self8478884794_ _self84786_) + (_E8479084798_ + (lambda () (error '"No clause matching" _self8478884794_))) + (_K8479184803_ + (lambda (_K84801_) + (gx#core-apply-expander__0 _K84801_ _stx84787_)))) + (if (##structure-instance-of? _self8478884794_ 'gx#core-macro::t) + (let* ((_e8479284806_ (##unchecked-structure-ref - _self8480684812_ + _self8478884794_ '1 gx#expander::t '#f)) - (_K84827_ _e8481084824_)) - (_K8480984821_ _K84827_)) - (_E8480884816_))))) + (_K84809_ _e8479284806_)) + (_K8479184803_ _K84809_)) + (_E8479084798_))))) (bind-method!__% gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (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_)))) + (lambda (_self84639_ _stx84640_) + (if (gx#sealed-syntax? _stx84640_) + _stx84640_ + (let* ((_self8464184647_ _self84639_) + (_E8464384651_ + (lambda () (error '"No clause matching" _self8464184647_))) + (_K8464484656_ + (lambda (_K84654_) + (gx#core-apply-expander__0 _K84654_ _stx84640_)))) (if (##structure-instance-of? - _self8465984665_ + _self8464184647_ 'gx#core-expander::t) - (let* ((_e8466384677_ + (let* ((_e8464584659_ (##unchecked-structure-ref - _self8465984665_ + _self8464184647_ '1 gx#expander::t '#f)) - (_K84680_ _e8466384677_)) - (_K8466284674_ _K84680_)) - (_E8466184669_)))))) + (_K84662_ _e8464584659_)) + (_K8464484656_ _K84662_)) + (_E8464384651_)))))) (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 (_self84519_ _stx84520_ _top?84521_) - (if (_top?84521_ (gx#current-expander-context)) - (gx#core-expander::apply-macro-expander _self84519_ _stx84520_) + (lambda (_self84501_ _stx84502_ _top?84503_) + (if (_top?84503_ (gx#current-expander-context)) + (gx#core-expander::apply-macro-expander _self84501_ _stx84502_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _stx84520_)))) + _stx84502_)))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_self84526_ _stx84527_) - (let ((_top?84529_ gx#top-context?)) + (lambda (_self84508_ _stx84509_) + (let ((_top?84511_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _self84526_ - _stx84527_ - _top?84529_)))) + _self84508_ + _stx84509_ + _top?84511_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g86115_ - (let ((_g86114_ (##length _g86115_))) - (cond ((##fx= _g86114_ 2) - (apply (lambda (_self84526_ _stx84527_) + (lambda _g86097_ + (let ((_g86096_ (##length _g86097_))) + (cond ((##fx= _g86096_ 2) + (apply (lambda (_self84508_ _stx84509_) (gx#top-special-form::apply-macro-expander__0 - _self84526_ - _stx84527_)) - _g86115_)) - ((##fx= _g86114_ 3) - (apply (lambda (_self84531_ _stx84532_ _top?84533_) + _self84508_ + _stx84509_)) + _g86097_)) + ((##fx= _g86096_ 3) + (apply (lambda (_self84513_ _stx84514_ _top?84515_) (gx#top-special-form::apply-macro-expander__% - _self84531_ - _stx84532_ - _top?84533_)) - _g86115_)) + _self84513_ + _stx84514_ + _top?84515_)) + _g86097_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g86115_)))))) + _g86097_)))))) (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 (_self84393_ _stx84394_) + (lambda (_self84375_ _stx84376_) (gx#top-special-form::apply-macro-expander__% - _self84393_ - _stx84394_ + _self84375_ + _stx84376_ 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 (_self84218_ _stx84219_) - (let* ((_self8422084226_ _self84218_) - (_E8422284230_ - (lambda () (error '"No clause matching" _self8422084226_))) - (_K8422384263_ - (lambda (_id84233_) - (let* ((_e8423484241_ _stx84219_) - (_E8423684245_ + (lambda (_self84200_ _stx84201_) + (let* ((_self8420284208_ _self84200_) + (_E8420484212_ + (lambda () (error '"No clause matching" _self8420284208_))) + (_K8420584245_ + (lambda (_id84215_) + (let* ((_e8421684223_ _stx84201_) + (_E8421884227_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8423484241_))) - (_E8423584259_ + _e8421684223_))) + (_E8421784241_ (lambda () - (if (gx#stx-pair? _e8423484241_) - (let ((_e8423784249_ - (gx#syntax-e _e8423484241_))) - (let ((_hd8423884252_ (##car _e8423784249_)) - (_tl8423984254_ (##cdr _e8423784249_))) - (let ((_body84257_ _tl8423984254_)) + (if (gx#stx-pair? _e8421684223_) + (let ((_e8421984231_ + (gx#syntax-e _e8421684223_))) + (let ((_hd8422084234_ (##car _e8421984231_)) + (_tl8422184236_ (##cdr _e8421984231_))) + (let ((_body84239_ _tl8422184236_)) (if '#t - (gx#core-cons _id84233_ _body84257_) - (_E8423684245_))))) - (_E8423684245_))))) - (_E8423584259_))))) + (gx#core-cons _id84215_ _body84239_) + (_E8421884227_))))) + (_E8421884227_))))) + (_E8421784241_))))) (if (##structure-instance-of? - _self8422084226_ + _self8420284208_ 'gx#rename-macro-expander::t) - (let* ((_e8422484266_ + (let* ((_e8420684248_ (##unchecked-structure-ref - _self8422084226_ + _self8420284208_ '1 gx#expander::t '#f)) - (_id84269_ _e8422484266_)) - (_K8422384263_ _id84269_)) - (_E8422284230_))))) + (_id84251_ _e8420684248_)) + (_K8420584245_ _id84251_)) + (_E8420484212_))))) (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 (_self84044_ _stx84045_ _method84046_) - (let* ((_self8404784055_ _self84044_) - (_E8404984059_ - (lambda () (error '"No clause matching" _self8404784055_))) - (_K8405084066_ - (lambda (_phi84062_ _ctx84063_ _K84064_) + (lambda (_self84026_ _stx84027_ _method84028_) + (let* ((_self8402984037_ _self84026_) + (_E8403184041_ + (lambda () (error '"No clause matching" _self8402984037_))) + (_K8403284048_ + (lambda (_phi84044_ _ctx84045_ _K84046_) (gx#core-apply-user-macro - _K84064_ - _stx84045_ - _ctx84063_ - _phi84062_ - _method84046_)))) - (if (##structure-instance-of? _self8404784055_ 'gx#macro-expander::t) - (let* ((_e8405184069_ + _K84046_ + _stx84027_ + _ctx84045_ + _phi84044_ + _method84028_)))) + (if (##structure-instance-of? _self8402984037_ 'gx#macro-expander::t) + (let* ((_e8403384051_ (##unchecked-structure-ref - _self8404784055_ + _self8402984037_ '1 gx#expander::t '#f)) - (_K84072_ _e8405184069_) - (_e8405284074_ + (_K84054_ _e8403384051_) + (_e8403484056_ (##unchecked-structure-ref - _self8404784055_ + _self8402984037_ '2 gx#user-expander::t '#f)) - (_ctx84077_ _e8405284074_) - (_e8405384079_ + (_ctx84059_ _e8403484056_) + (_e8403584061_ (##unchecked-structure-ref - _self8404784055_ + _self8402984037_ '3 gx#user-expander::t '#f)) - (_phi84082_ _e8405384079_)) - (_K8405084066_ _phi84082_ _ctx84077_ _K84072_)) - (_E8404984059_))))) + (_phi84064_ _e8403584061_)) + (_K8403284048_ _phi84064_ _ctx84059_ _K84054_)) + (_E8403184041_))))) (define gx#core-apply-user-expander__0 - (lambda (_self84087_ _stx84088_) - (let ((_method84090_ 'apply-macro-expander)) + (lambda (_self84069_ _stx84070_) + (let ((_method84072_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _self84087_ - _stx84088_ - _method84090_)))) + _self84069_ + _stx84070_ + _method84072_)))) (define gx#core-apply-user-expander - (lambda _g86117_ - (let ((_g86116_ (##length _g86117_))) - (cond ((##fx= _g86116_ 2) - (apply (lambda (_self84087_ _stx84088_) + (lambda _g86099_ + (let ((_g86098_ (##length _g86099_))) + (cond ((##fx= _g86098_ 2) + (apply (lambda (_self84069_ _stx84070_) (gx#core-apply-user-expander__0 - _self84087_ - _stx84088_)) - _g86117_)) - ((##fx= _g86116_ 3) - (apply (lambda (_self84092_ _stx84093_ _method84094_) + _self84069_ + _stx84070_)) + _g86099_)) + ((##fx= _g86098_ 3) + (apply (lambda (_self84074_ _stx84075_ _method84076_) (gx#core-apply-user-expander__% - _self84092_ - _stx84093_ - _method84094_)) - _g86117_)) + _self84074_ + _stx84075_ + _method84076_)) + _g86099_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g86117_)))))) + _g86099_)))))) (define gx#core-apply-user-macro - (lambda (_K84034_ _stx84035_ _ctx84036_ _phi84037_ _method84038_) - (let ((_mark84040_ + (lambda (_K84016_ _stx84017_ _ctx84018_ _phi84019_ _method84020_) + (let ((_mark84022_ (##structure gx#expander-mark::t '#f - _ctx84036_ - _phi84037_ - _stx84035_))) + _ctx84018_ + _phi84019_ + _stx84017_))) (call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _K84034_ - (gx#stx-apply-mark _stx84035_ _mark84040_) - _method84038_) - _mark84040_)) + _K84016_ + (gx#stx-apply-mark _stx84017_ _mark84022_) + _method84020_) + _mark84022_)) gx#current-expander-marks - (cons _mark84040_ (gx#current-expander-marks)))))) + (cons _mark84022_ (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 (_stx83885_ _phi83886_ _ctx83887_) - (let _lp83889_ ((_bind83891_ + (lambda (_stx83867_ _phi83868_ _ctx83869_) + (let _lp83871_ ((_bind83873_ (gx#core-resolve-identifier__% - _stx83885_ - _phi83886_ - _ctx83887_))) + _stx83867_ + _phi83868_ + _ctx83869_))) (if (##structure-direct-instance-of? - _bind83891_ + _bind83873_ 'gx#import-binding::t) - (_lp83889_ + (_lp83871_ (##unchecked-structure-ref - _bind83891_ + _bind83873_ '4 gx#import-binding::t '#f)) (if (##structure-direct-instance-of? - _bind83891_ + _bind83873_ 'gx#alias-binding::t) - (_lp83889_ + (_lp83871_ (gx#core-resolve-identifier__% (##unchecked-structure-ref - _bind83891_ + _bind83873_ '4 gx#alias-binding::t '#f) - _phi83886_ - _ctx83887_)) - _bind83891_))))) + _phi83868_ + _ctx83869_)) + _bind83873_))))) (define gx#resolve-identifier__0 - (lambda (_stx83896_) - (let* ((_phi83898_ (gx#current-expander-phi)) - (_ctx83900_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx83896_ _phi83898_ _ctx83900_)))) + (lambda (_stx83878_) + (let* ((_phi83880_ (gx#current-expander-phi)) + (_ctx83882_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx83878_ _phi83880_ _ctx83882_)))) (define gx#resolve-identifier__1 - (lambda (_stx83902_ _phi83903_) - (let ((_ctx83905_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx83902_ _phi83903_ _ctx83905_)))) + (lambda (_stx83884_ _phi83885_) + (let ((_ctx83887_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx83884_ _phi83885_ _ctx83887_)))) (define gx#resolve-identifier - (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_) + (lambda _g86101_ + (let ((_g86100_ (##length _g86101_))) + (cond ((##fx= _g86100_ 1) + (apply (lambda (_stx83878_) + (gx#resolve-identifier__0 _stx83878_)) + _g86101_)) + ((##fx= _g86100_ 2) + (apply (lambda (_stx83884_ _phi83885_) + (gx#resolve-identifier__1 _stx83884_ _phi83885_)) + _g86101_)) + ((##fx= _g86100_ 3) + (apply (lambda (_stx83889_ _phi83890_ _ctx83891_) (gx#resolve-identifier__% - _stx83907_ - _phi83908_ - _ctx83909_)) - _g86119_)) + _stx83889_ + _phi83890_ + _ctx83891_)) + _g86101_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g86119_)))))) + _g86101_)))))) (define gx#bind-identifier!__% - (lambda (_stx83843_ _val83844_ _rebind?83845_ _phi83846_ _ctx83847_) - (let ((_rebind?83849_ - (if (not _rebind?83845_) + (lambda (_stx83825_ _val83826_ _rebind?83827_ _phi83828_ _ctx83829_) + (let ((_rebind?83831_ + (if (not _rebind?83827_) gx#core-context-rebind? - (if (procedure? _rebind?83845_) _rebind?83845_ true)))) + (if (procedure? _rebind?83827_) _rebind?83827_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _stx83843_) - _val83844_ - _rebind?83849_ - _phi83846_ - _ctx83847_)))) + (gx#core-identifier-key _stx83825_) + _val83826_ + _rebind?83831_ + _phi83828_ + _ctx83829_)))) (define gx#bind-identifier!__0 - (lambda (_stx83854_ _val83855_) - (let* ((_rebind?83857_ '#f) - (_phi83859_ (gx#current-expander-phi)) - (_ctx83861_ (gx#current-expander-context))) + (lambda (_stx83836_ _val83837_) + (let* ((_rebind?83839_ '#f) + (_phi83841_ (gx#current-expander-phi)) + (_ctx83843_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx83854_ - _val83855_ - _rebind?83857_ - _phi83859_ - _ctx83861_)))) + _stx83836_ + _val83837_ + _rebind?83839_ + _phi83841_ + _ctx83843_)))) (define gx#bind-identifier!__1 - (lambda (_stx83863_ _val83864_ _rebind?83865_) - (let* ((_phi83867_ (gx#current-expander-phi)) - (_ctx83869_ (gx#current-expander-context))) + (lambda (_stx83845_ _val83846_ _rebind?83847_) + (let* ((_phi83849_ (gx#current-expander-phi)) + (_ctx83851_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx83863_ - _val83864_ - _rebind?83865_ - _phi83867_ - _ctx83869_)))) + _stx83845_ + _val83846_ + _rebind?83847_ + _phi83849_ + _ctx83851_)))) (define gx#bind-identifier!__2 - (lambda (_stx83871_ _val83872_ _rebind?83873_ _phi83874_) - (let ((_ctx83876_ (gx#current-expander-context))) + (lambda (_stx83853_ _val83854_ _rebind?83855_ _phi83856_) + (let ((_ctx83858_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx83871_ - _val83872_ - _rebind?83873_ - _phi83874_ - _ctx83876_)))) + _stx83853_ + _val83854_ + _rebind?83855_ + _phi83856_ + _ctx83858_)))) (define gx#bind-identifier! - (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_) + (lambda _g86103_ + (let ((_g86102_ (##length _g86103_))) + (cond ((##fx= _g86102_ 2) + (apply (lambda (_stx83836_ _val83837_) + (gx#bind-identifier!__0 _stx83836_ _val83837_)) + _g86103_)) + ((##fx= _g86102_ 3) + (apply (lambda (_stx83845_ _val83846_ _rebind?83847_) (gx#bind-identifier!__1 - _stx83863_ - _val83864_ - _rebind?83865_)) - _g86121_)) - ((##fx= _g86120_ 4) - (apply (lambda (_stx83871_ - _val83872_ - _rebind?83873_ - _phi83874_) + _stx83845_ + _val83846_ + _rebind?83847_)) + _g86103_)) + ((##fx= _g86102_ 4) + (apply (lambda (_stx83853_ + _val83854_ + _rebind?83855_ + _phi83856_) (gx#bind-identifier!__2 - _stx83871_ - _val83872_ - _rebind?83873_ - _phi83874_)) - _g86121_)) - ((##fx= _g86120_ 5) - (apply (lambda (_stx83878_ - _val83879_ - _rebind?83880_ - _phi83881_ - _ctx83882_) + _stx83853_ + _val83854_ + _rebind?83855_ + _phi83856_)) + _g86103_)) + ((##fx= _g86102_ 5) + (apply (lambda (_stx83860_ + _val83861_ + _rebind?83862_ + _phi83863_ + _ctx83864_) (gx#bind-identifier!__% - _stx83878_ - _val83879_ - _rebind?83880_ - _phi83881_ - _ctx83882_)) - _g86121_)) + _stx83860_ + _val83861_ + _rebind?83862_ + _phi83863_ + _ctx83864_)) + _g86103_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g86121_)))))) + _g86103_)))))) (define gx#core-resolve-identifier__% - (lambda (_stx83815_ _phi83816_ _ctx83817_) - (let _lp83819_ ((_e83821_ _stx83815_) - (_marks83822_ (gx#current-expander-marks))) - (if (symbol? _e83821_) + (lambda (_stx83797_ _phi83798_ _ctx83799_) + (let _lp83801_ ((_e83803_ _stx83797_) + (_marks83804_ (gx#current-expander-marks))) + (if (symbol? _e83803_) (gx#core-resolve-binding - _e83821_ - _phi83816_ - _phi83816_ - _ctx83817_ - (reverse _marks83822_)) - (if (gx#identifier-quote? _e83821_) + _e83803_ + _phi83798_ + _phi83798_ + _ctx83799_ + (reverse _marks83804_)) + (if (gx#identifier-quote? _e83803_) (gx#core-resolve-binding - (##unchecked-structure-ref _e83821_ '1 gx#AST::t '#f) - _phi83816_ + (##unchecked-structure-ref _e83803_ '1 gx#AST::t '#f) + _phi83798_ '0 (##unchecked-structure-ref - _e83821_ + _e83803_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _e83821_ + _e83803_ '4 gx#syntax-quote::t '#f)) (if (##structure-direct-instance-of? - _e83821_ + _e83803_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _e83821_ '1 gx#AST::t '#f) - _phi83816_ - _phi83816_ - _ctx83817_ + (##unchecked-structure-ref _e83803_ '1 gx#AST::t '#f) + _phi83798_ + _phi83798_ + _ctx83799_ (foldl1 gx#apply-mark (##unchecked-structure-ref - _e83821_ + _e83803_ '3 gx#identifier-wrap::t '#f) - _marks83822_)) + _marks83804_)) (if (##structure-direct-instance-of? - _e83821_ + _e83803_ 'gx#syntax-wrap::t) - (_lp83819_ + (_lp83801_ (##unchecked-structure-ref - _e83821_ + _e83803_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e83821_ + _e83803_ '3 gx#syntax-wrap::t '#f) - _marks83822_)) + _marks83804_)) (if (##structure-instance-of? - _e83821_ + _e83803_ 'gerbil#AST::t) - (_lp83819_ + (_lp83801_ (##unchecked-structure-ref - _e83821_ + _e83803_ '1 gx#AST::t '#f) - _marks83822_) + _marks83804_) (gx#raise-syntax-error '#f '"Bad identifier" - _stx83815_))))))))) + _stx83797_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_stx83827_) - (let* ((_phi83829_ (gx#current-expander-phi)) - (_ctx83831_ (gx#current-expander-context))) - (gx#core-resolve-identifier__% _stx83827_ _phi83829_ _ctx83831_)))) + (lambda (_stx83809_) + (let* ((_phi83811_ (gx#current-expander-phi)) + (_ctx83813_ (gx#current-expander-context))) + (gx#core-resolve-identifier__% _stx83809_ _phi83811_ _ctx83813_)))) (define gx#core-resolve-identifier__1 - (lambda (_stx83833_ _phi83834_) - (let ((_ctx83836_ (gx#current-expander-context))) - (gx#core-resolve-identifier__% _stx83833_ _phi83834_ _ctx83836_)))) + (lambda (_stx83815_ _phi83816_) + (let ((_ctx83818_ (gx#current-expander-context))) + (gx#core-resolve-identifier__% _stx83815_ _phi83816_ _ctx83818_)))) (define gx#core-resolve-identifier - (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_) + (lambda _g86105_ + (let ((_g86104_ (##length _g86105_))) + (cond ((##fx= _g86104_ 1) + (apply (lambda (_stx83809_) + (gx#core-resolve-identifier__0 _stx83809_)) + _g86105_)) + ((##fx= _g86104_ 2) + (apply (lambda (_stx83815_ _phi83816_) (gx#core-resolve-identifier__1 - _stx83833_ - _phi83834_)) - _g86123_)) - ((##fx= _g86122_ 3) - (apply (lambda (_stx83838_ _phi83839_ _ctx83840_) + _stx83815_ + _phi83816_)) + _g86105_)) + ((##fx= _g86104_ 3) + (apply (lambda (_stx83820_ _phi83821_ _ctx83822_) (gx#core-resolve-identifier__% - _stx83838_ - _phi83839_ - _ctx83840_)) - _g86123_)) + _stx83820_ + _phi83821_ + _ctx83822_)) + _g86105_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g86123_)))))) + _g86105_)))))) (define gx#core-resolve-binding - (lambda (_id83728_ _phi83729_ _src-phi83730_ _ctx83731_ _marks83732_) - (letrec ((_resolve83734_ - (lambda (_ctx83802_ _src-phi83803_ _key83804_) - (let _lp83806_ ((_ctx83808_ + (lambda (_id83710_ _phi83711_ _src-phi83712_ _ctx83713_ _marks83714_) + (letrec ((_resolve83716_ + (lambda (_ctx83784_ _src-phi83785_ _key83786_) + (let _lp83788_ ((_ctx83790_ (gx#core-context-shift - _ctx83802_ - _phi83729_)) - (_dphi83809_ - (fx- _phi83729_ _src-phi83803_))) - (let ((_$e83811_ - (gx#core-context-resolve _ctx83808_ _key83804_))) - (if _$e83811_ - (values _$e83811_) - (if (fxzero? _dphi83809_) + _ctx83784_ + _phi83711_)) + (_dphi83791_ + (fx- _phi83711_ _src-phi83785_))) + (let ((_$e83793_ + (gx#core-context-resolve _ctx83790_ _key83786_))) + (if _$e83793_ + (values _$e83793_) + (if (fxzero? _dphi83791_) '#f - (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_ + (if (fxpositive? _dphi83791_) + (_lp83788_ + (gx#core-context-shift _ctx83790_ '-1) + (fx- _dphi83791_ '1)) + (_lp83788_ + (gx#core-context-shift _ctx83790_ '1) + (fx+ _dphi83791_ '1)))))))))) + (let _lp83718_ ((_ctx83720_ _ctx83713_) + (_src-phi83721_ _src-phi83712_) + (_rest83722_ _marks83714_)) + (let* ((_rest8372383731_ _rest83722_) + (_else8372583739_ (lambda () - (_resolve83734_ _ctx83738_ _src-phi83739_ _id83728_))) - (_K8374583790_ - (lambda (_rest83760_ _hd83761_) - (let* ((_hd8376283768_ _hd83761_) - (_E8376483772_ + (_resolve83716_ _ctx83720_ _src-phi83721_ _id83710_))) + (_K8372783772_ + (lambda (_rest83742_ _hd83743_) + (let* ((_hd8374483750_ _hd83743_) + (_E8374683754_ (lambda () - (error '"No clause matching" _hd8376283768_))) - (_K8376583782_ - (lambda (_subst83775_) - (let ((_$e83779_ - (let ((_key83777_ - (if _subst83775_ + (error '"No clause matching" _hd8374483750_))) + (_K8374783764_ + (lambda (_subst83757_) + (let ((_$e83761_ + (let ((_key83759_ + (if _subst83757_ (hash-get - _subst83775_ - _id83728_) + _subst83757_ + _id83710_) '#f))) - (if _key83777_ - (_resolve83734_ - _ctx83738_ - _src-phi83739_ - _key83777_) + (if _key83759_ + (_resolve83716_ + _ctx83720_ + _src-phi83721_ + _key83759_) '#f)))) - (if _$e83779_ - _$e83779_ - (_lp83736_ + (if _$e83761_ + _$e83761_ + (_lp83718_ (##unchecked-structure-ref - _hd83761_ + _hd83743_ '2 gx#expander-mark::t '#f) (##unchecked-structure-ref - _hd83761_ + _hd83743_ '3 gx#expander-mark::t '#f) - _rest83760_)))))) + _rest83742_)))))) (if (##structure-instance-of? - _hd8376283768_ + _hd8374483750_ 'gx#expander-mark::t) - (let* ((_e8376683785_ + (let* ((_e8374883767_ (##unchecked-structure-ref - _hd8376283768_ + _hd8374483750_ '1 gx#expander-mark::t '#f)) - (_subst83788_ _e8376683785_)) - (_K8376583782_ _subst83788_)) - (_E8376483772_)))))) - (if (##pair? _rest8374183749_) - (let ((_hd8374683793_ (##car _rest8374183749_)) - (_tl8374783795_ (##cdr _rest8374183749_))) - (let* ((_hd83798_ _hd8374683793_) - (_rest83800_ _tl8374783795_)) - (_K8374583790_ _rest83800_ _hd83798_))) - (_else8374383757_))))))) + (_subst83770_ _e8374883767_)) + (_K8374783764_ _subst83770_)) + (_E8374683754_)))))) + (if (##pair? _rest8372383731_) + (let ((_hd8372883775_ (##car _rest8372383731_)) + (_tl8372983777_ (##cdr _rest8372383731_))) + (let* ((_hd83780_ _hd8372883775_) + (_rest83782_ _tl8372983777_)) + (_K8372783772_ _rest83782_ _hd83780_))) + (_else8372583739_))))))) (define gx#core-bind!__% - (lambda (_key83604_ _val83605_ _rebind?83606_ _phi83607_ _ctx83608_) - (letrec ((_update-binding83610_ - (lambda (_xval83681_) - (if (or (_rebind?83606_ _ctx83608_ _xval83681_ _val83605_) + (lambda (_key83586_ _val83587_ _rebind?83588_ _phi83589_ _ctx83590_) + (letrec ((_update-binding83592_ + (lambda (_xval83663_) + (if (or (_rebind?83588_ _ctx83590_ _xval83663_ _val83587_) (and (##structure-direct-instance-of? - _xval83681_ + _xval83663_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _xval83681_ + _xval83663_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _val83605_ + _val83587_ 'gx#binding::t) (not (##structure-direct-instance-of? - _val83605_ + _val83587_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _xval83681_ + _xval83663_ 'gx#extern-binding::t) (##structure-instance-of? - _val83605_ + _val83587_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _val83605_ + _val83587_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval83681_ + _xval83663_ '1 gx#binding::t '#f)))) - _val83605_ + _val83587_ (if (and (##structure-direct-instance-of? - _val83605_ + _val83587_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _val83605_ + _val83587_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _xval83681_ + _xval83663_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _val83605_ + _val83587_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval83681_ + _xval83663_ '1 gx#binding::t '#f))))) - _xval83681_ + _xval83663_ (if (and (##structure-direct-instance-of? - _val83605_ + _val83587_ 'gx#import-binding::t) (##structure-instance-of? - _xval83681_ + _xval83663_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _key83604_ + _key83586_ (cons (##unchecked-structure-ref - _val83605_ + _val83587_ '1 gx#binding::t '#f) (cons (##structure-ref (##unchecked-structure-ref - _val83605_ + _val83587_ '5 gx#import-binding::t '#f) @@ -2814,200 +2814,200 @@ '#f) '())) (cons (##unchecked-structure-ref - _xval83681_ + _xval83663_ '1 gx#binding::t '#f) (cons (if (##structure-direct-instance-of? - _xval83681_ + _xval83663_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _xval83681_ + _xval83663_ '5 gx#import-binding::t '#f) '1 gx#expander-context::t '#f) - _xval83681_) + _xval83663_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _key83604_ - _val83605_ - _xval83681_)))))) - (_gensubst83611_ - (lambda (_subst83676_ _id83677_) - (let ((_eid83679_ - (gensym (if (uninterned-symbol? _id83677_) + _key83586_ + _val83587_ + _xval83663_)))))) + (_gensubst83593_ + (lambda (_subst83658_ _id83659_) + (let ((_eid83661_ + (gensym (if (uninterned-symbol? _id83659_) '% - _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_ + _id83659_)))) + (hash-put! _subst83658_ _id83659_ _eid83661_) + _eid83661_))) + (_subst!83594_ + (lambda (_key83596_) + (let* ((_key8359783605_ _key83596_) + (_else8359983613_ (lambda () _key83596_)) + (_K8360183646_ + (lambda (_mark83616_ _id83617_) + (let* ((_mark8361883624_ _mark83616_) + (_E8362083628_ (lambda () (error '"No clause matching" - _mark8363683642_))) - (_K8363983656_ - (lambda (_subst83649_) - (if (not _subst83649_) - (let ((_subst83651_ + _mark8361883624_))) + (_K8362183638_ + (lambda (_subst83631_) + (if (not _subst83631_) + (let ((_subst83633_ (make-hash-table-eq))) (##unchecked-structure-set! - _mark83634_ - _subst83651_ + _mark83616_ + _subst83633_ '1 gx#expander-mark::t '#f) - (_gensubst83611_ - _subst83651_ - _id83635_)) - (let ((_$e83653_ + (_gensubst83593_ + _subst83633_ + _id83617_)) + (let ((_$e83635_ (hash-get - _subst83649_ - _id83635_))) - (if _$e83653_ - (values _$e83653_) - (_gensubst83611_ - _subst83649_ - _id83635_))))))) + _subst83631_ + _id83617_))) + (if _$e83635_ + (values _$e83635_) + (_gensubst83593_ + _subst83631_ + _id83617_))))))) (if (##structure-instance-of? - _mark8363683642_ + _mark8361883624_ 'gx#expander-mark::t) - (let* ((_e8364083659_ + (let* ((_e8362283641_ (##unchecked-structure-ref - _mark8363683642_ + _mark8361883624_ '1 gx#expander-mark::t '#f)) - (_subst83662_ _e8364083659_)) - (_K8363983656_ _subst83662_)) - (_E8363883646_)))))) - (if (##pair? _key8361583623_) - (let ((_hd8362083667_ (##car _key8361583623_)) - (_tl8362183669_ (##cdr _key8361583623_))) - (let* ((_id83672_ _hd8362083667_) - (_mark83674_ _tl8362183669_)) - (_K8361983664_ _mark83674_ _id83672_))) - (_else8361783631_)))))) + (_subst83644_ _e8362283641_)) + (_K8362183638_ _subst83644_)) + (_E8362083628_)))))) + (if (##pair? _key8359783605_) + (let ((_hd8360283649_ (##car _key8359783605_)) + (_tl8360383651_ (##cdr _key8359783605_))) + (let* ((_id83654_ _hd8360283649_) + (_mark83656_ _tl8360383651_)) + (_K8360183646_ _mark83656_ _id83654_))) + (_else8359983613_)))))) (gx#core-context-bind! - (gx#core-context-shift _ctx83608_ _phi83607_) - (_subst!83612_ _key83604_) - _val83605_ - _update-binding83610_)))) + (gx#core-context-shift _ctx83590_ _phi83589_) + (_subst!83594_ _key83586_) + _val83587_ + _update-binding83592_)))) (define gx#core-bind!__0 - (lambda (_key83698_ _val83699_) - (let* ((_rebind?83701_ false) - (_phi83703_ (gx#current-expander-phi)) - (_ctx83705_ (gx#current-expander-context))) + (lambda (_key83680_ _val83681_) + (let* ((_rebind?83683_ false) + (_phi83685_ (gx#current-expander-phi)) + (_ctx83687_ (gx#current-expander-context))) (gx#core-bind!__% - _key83698_ - _val83699_ - _rebind?83701_ - _phi83703_ - _ctx83705_)))) + _key83680_ + _val83681_ + _rebind?83683_ + _phi83685_ + _ctx83687_)))) (define gx#core-bind!__1 - (lambda (_key83707_ _val83708_ _rebind?83709_) - (let* ((_phi83711_ (gx#current-expander-phi)) - (_ctx83713_ (gx#current-expander-context))) + (lambda (_key83689_ _val83690_ _rebind?83691_) + (let* ((_phi83693_ (gx#current-expander-phi)) + (_ctx83695_ (gx#current-expander-context))) (gx#core-bind!__% - _key83707_ - _val83708_ - _rebind?83709_ - _phi83711_ - _ctx83713_)))) + _key83689_ + _val83690_ + _rebind?83691_ + _phi83693_ + _ctx83695_)))) (define gx#core-bind!__2 - (lambda (_key83715_ _val83716_ _rebind?83717_ _phi83718_) - (let ((_ctx83720_ (gx#current-expander-context))) + (lambda (_key83697_ _val83698_ _rebind?83699_ _phi83700_) + (let ((_ctx83702_ (gx#current-expander-context))) (gx#core-bind!__% - _key83715_ - _val83716_ - _rebind?83717_ - _phi83718_ - _ctx83720_)))) + _key83697_ + _val83698_ + _rebind?83699_ + _phi83700_ + _ctx83702_)))) (define gx#core-bind! - (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_) + (lambda _g86107_ + (let ((_g86106_ (##length _g86107_))) + (cond ((##fx= _g86106_ 2) + (apply (lambda (_key83680_ _val83681_) + (gx#core-bind!__0 _key83680_ _val83681_)) + _g86107_)) + ((##fx= _g86106_ 3) + (apply (lambda (_key83689_ _val83690_ _rebind?83691_) (gx#core-bind!__1 - _key83707_ - _val83708_ - _rebind?83709_)) - _g86125_)) - ((##fx= _g86124_ 4) - (apply (lambda (_key83715_ - _val83716_ - _rebind?83717_ - _phi83718_) + _key83689_ + _val83690_ + _rebind?83691_)) + _g86107_)) + ((##fx= _g86106_ 4) + (apply (lambda (_key83697_ + _val83698_ + _rebind?83699_ + _phi83700_) (gx#core-bind!__2 - _key83715_ - _val83716_ - _rebind?83717_ - _phi83718_)) - _g86125_)) - ((##fx= _g86124_ 5) - (apply (lambda (_key83722_ - _val83723_ - _rebind?83724_ - _phi83725_ - _ctx83726_) + _key83697_ + _val83698_ + _rebind?83699_ + _phi83700_)) + _g86107_)) + ((##fx= _g86106_ 5) + (apply (lambda (_key83704_ + _val83705_ + _rebind?83706_ + _phi83707_ + _ctx83708_) (gx#core-bind!__% - _key83722_ - _val83723_ - _rebind?83724_ - _phi83725_ - _ctx83726_)) - _g86125_)) + _key83704_ + _val83705_ + _rebind?83706_ + _phi83707_ + _ctx83708_)) + _g86107_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g86125_)))))) + _g86107_)))))) (define gx#core-identifier-key - (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_))))) + (lambda (_stx83520_) + (if (symbol? _stx83520_) + (let* ((_g8352183529_ (gx#current-expander-marks)) + (_else8352383537_ (lambda () _stx83520_)) + (_K8352583542_ + (lambda (_hd83540_) (cons _stx83520_ _hd83540_)))) + (if (##pair? _g8352183529_) + (let* ((_hd8352683545_ (##car _g8352183529_)) + (_hd83548_ _hd8352683545_)) + (_K8352583542_ _hd83548_)) + (_else8352383537_))) + (if (gx#identifier? _stx83520_) + (let* ((_id83550_ (gx#syntax-local-unwrap _stx83520_)) + (_eid83552_ (gx#stx-e _id83550_)) + (_marks83554_ (gx#stx-identifier-marks* _id83550_))) + (let* ((_marks8355683564_ _marks83554_) + (_else8355883572_ (lambda () _eid83552_)) + (_K8356083577_ + (lambda (_hd83575_) (cons _eid83552_ _hd83575_)))) + (if (##pair? _marks8355683564_) + (let* ((_hd8356183580_ (##car _marks8355683564_)) + (_hd83583_ _hd8356183580_)) + (_K8356083577_ _hd83583_)) + (_else8355883572_)))) + (gx#raise-syntax-error '#f '"Bad identifier" _stx83520_))))) (define gx#&phi-context? gx#phi-context?) (define gx#core-context-shift - (lambda (_ctx83483_ _phi83484_) - (letrec ((_make-phi83486_ - (lambda (_super83536_) - (let ((__obj86096 + (lambda (_ctx83465_ _phi83466_) + (letrec ((_make-phi83468_ + (lambda (_super83518_) + (let ((__obj86078 (##structure gx#phi-context::t '#f @@ -3016,639 +3016,639 @@ '#f '#f))) (gx#phi-context:::init! - __obj86096 + __obj86078 (gensym 'phi) - _super83536_) - __obj86096))) - (_make-phi/up83487_ - (lambda (_ctx83531_ _super83532_) - (let ((_ctx+183534_ (_make-phi83486_ _super83532_))) + _super83518_) + __obj86078))) + (_make-phi/up83469_ + (lambda (_ctx83513_ _super83514_) + (let ((_ctx+183516_ (_make-phi83468_ _super83514_))) (##unchecked-structure-set! - _ctx83531_ - _ctx+183534_ + _ctx83513_ + _ctx+183516_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx+183534_ - _ctx83531_ + _ctx+183516_ + _ctx83513_ '5 gx#phi-context::t '#f) - _ctx+183534_))) - (_make-phi/down83488_ - (lambda (_ctx83526_ _super83527_) - (let ((_ctx-183529_ (_make-phi83486_ _super83527_))) + _ctx+183516_))) + (_make-phi/down83470_ + (lambda (_ctx83508_ _super83509_) + (let ((_ctx-183511_ (_make-phi83468_ _super83509_))) (##unchecked-structure-set! - _ctx-183529_ - _ctx83526_ + _ctx-183511_ + _ctx83508_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx83526_ - _ctx-183529_ + _ctx83508_ + _ctx-183511_ '5 gx#phi-context::t '#f) - _ctx-183529_))) - (_shift83489_ - (lambda (_ctx83510_ - _delta83511_ - _make-delta-context83512_ - _phi83513_ - _K83514_) - (let ((_$e83516_ + _ctx-183511_))) + (_shift83471_ + (lambda (_ctx83492_ + _delta83493_ + _make-delta-context83494_ + _phi83495_ + _K83496_) + (let ((_$e83498_ (##unchecked-structure-ref - _ctx83510_ + _ctx83492_ '3 gx#phi-context::t '#f))) - (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_ + (if _$e83498_ + ((lambda (_super83501_) + (let* ((_super83503_ + (_K83496_ _super83501_ _delta83493_)) + (_ctx+d83505_ + (_make-delta-context83494_ + _ctx83492_ + _super83503_))) + (_K83496_ + _ctx+d83505_ + (fx- _phi83495_ _delta83493_)))) + _$e83498_) + (error '"Bad context" _ctx83492_)))))) + (let _K83473_ ((_ctx83475_ _ctx83465_) (_phi83476_ _phi83466_)) + (if (fxzero? _phi83476_) + _ctx83475_ + (if (##structure-instance-of? _ctx83475_ 'gx#context-phi::t) + (if (fxpositive? _phi83476_) + (let ((_$e83478_ (##unchecked-structure-ref - _ctx83493_ + _ctx83475_ '4 gx#phi-context::t '#f))) - (if _$e83496_ - ((lambda (_g8349883500_) - (_K83491_ _g8349883500_ (fx- _phi83494_ '1))) - _$e83496_) - (_shift83489_ - _ctx83493_ + (if _$e83478_ + ((lambda (_g8348083482_) + (_K83473_ _g8348083482_ (fx- _phi83476_ '1))) + _$e83478_) + (_shift83471_ + _ctx83475_ '1 - _make-phi/up83487_ - _phi83494_ - _K83491_))) - (let ((_$e83503_ + _make-phi/up83469_ + _phi83476_ + _K83473_))) + (let ((_$e83485_ (##unchecked-structure-ref - _ctx83493_ + _ctx83475_ '5 gx#phi-context::t '#f))) - (if _$e83503_ - ((lambda (_g8350583507_) - (_K83491_ _g8350583507_ (fx+ _phi83494_ '1))) - _$e83503_) - (_shift83489_ - _ctx83493_ + (if _$e83485_ + ((lambda (_g8348783489_) + (_K83473_ _g8348783489_ (fx+ _phi83476_ '1))) + _$e83485_) + (_shift83471_ + _ctx83475_ '-1 - _make-phi/down83488_ - _phi83494_ - _K83491_)))) - _ctx83493_)))))) + _make-phi/down83470_ + _phi83476_ + _K83473_)))) + _ctx83475_)))))) (define gx#core-context-get - (lambda (_ctx83480_ _key83481_) + (lambda (_ctx83462_ _key83463_) (hash-get - (##unchecked-structure-ref _ctx83480_ '2 gx#expander-context::t '#f) - _key83481_))) + (##unchecked-structure-ref _ctx83462_ '2 gx#expander-context::t '#f) + _key83463_))) (define gx#core-context-put! - (lambda (_ctx83476_ _key83477_ _val83478_) + (lambda (_ctx83458_ _key83459_ _val83460_) (hash-put! - (##unchecked-structure-ref _ctx83476_ '2 gx#expander-context::t '#f) - _key83477_ - _val83478_))) + (##unchecked-structure-ref _ctx83458_ '2 gx#expander-context::t '#f) + _key83459_ + _val83460_))) (define gx#core-context-resolve - (lambda (_ctx83463_ _key83464_) - (let _lp83466_ ((_ctx83468_ _ctx83463_)) - (let ((_$e83470_ (gx#core-context-get _ctx83468_ _key83464_))) - (if _$e83470_ - (values _$e83470_) - (let ((_$e83473_ + (lambda (_ctx83445_ _key83446_) + (let _lp83448_ ((_ctx83450_ _ctx83445_)) + (let ((_$e83452_ (gx#core-context-get _ctx83450_ _key83446_))) + (if _$e83452_ + (values _$e83452_) + (let ((_$e83455_ (if (##structure-instance-of? - _ctx83468_ + _ctx83450_ 'gx#context-phi::t) (##unchecked-structure-ref - _ctx83468_ + _ctx83450_ '3 gx#phi-context::t '#f) '#f))) - (if _$e83473_ (_lp83466_ _$e83473_) '#f))))))) + (if _$e83455_ (_lp83448_ _$e83455_) '#f))))))) (define gx#core-context-bind! - (lambda (_ctx83453_ _key83454_ _val83455_ _rebind83456_) - (let ((_$e83458_ (gx#core-context-get _ctx83453_ _key83454_))) - (if _$e83458_ - ((lambda (_xval83461_) + (lambda (_ctx83435_ _key83436_ _val83437_ _rebind83438_) + (let ((_$e83440_ (gx#core-context-get _ctx83435_ _key83436_))) + (if _$e83440_ + ((lambda (_xval83443_) (gx#core-context-put! - _ctx83453_ - _key83454_ - (_rebind83456_ _xval83461_))) - _$e83458_) - (gx#core-context-put! _ctx83453_ _key83454_ _val83455_))))) + _ctx83435_ + _key83436_ + (_rebind83438_ _xval83443_))) + _$e83440_) + (gx#core-context-put! _ctx83435_ _key83436_ _val83437_))))) (define gx#core-context-top__% - (lambda (_ctx83431_ _stop?83432_) - (let _lp83434_ ((_ctx83436_ _ctx83431_)) - (if (_stop?83432_ _ctx83436_) - _ctx83436_ - (if (##structure-instance-of? _ctx83436_ 'gx#context-phi::t) - (_lp83434_ + (lambda (_ctx83413_ _stop?83414_) + (let _lp83416_ ((_ctx83418_ _ctx83413_)) + (if (_stop?83414_ _ctx83418_) + _ctx83418_ + (if (##structure-instance-of? _ctx83418_ 'gx#context-phi::t) + (_lp83416_ (##unchecked-structure-ref - _ctx83436_ + _ctx83418_ '3 gx#phi-context::t '#f)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_ctx83442_ (gx#current-expander-context)) - (_stop?83444_ gx#top-context?)) - (gx#core-context-top__% _ctx83442_ _stop?83444_)))) + (let* ((_ctx83424_ (gx#current-expander-context)) + (_stop?83426_ gx#top-context?)) + (gx#core-context-top__% _ctx83424_ _stop?83426_)))) (define gx#core-context-top__1 - (lambda (_ctx83446_) - (let ((_stop?83448_ gx#top-context?)) - (gx#core-context-top__% _ctx83446_ _stop?83448_)))) + (lambda (_ctx83428_) + (let ((_stop?83430_ gx#top-context?)) + (gx#core-context-top__% _ctx83428_ _stop?83430_)))) (define gx#core-context-top - (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_)) + (lambda _g86109_ + (let ((_g86108_ (##length _g86109_))) + (cond ((##fx= _g86108_ 0) + (apply (lambda () (gx#core-context-top__0)) _g86109_)) + ((##fx= _g86108_ 1) + (apply (lambda (_ctx83428_) + (gx#core-context-top__1 _ctx83428_)) + _g86109_)) + ((##fx= _g86108_ 2) + (apply (lambda (_ctx83432_ _stop?83433_) + (gx#core-context-top__% _ctx83432_ _stop?83433_)) + _g86109_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g86127_)))))) + _g86109_)))))) (define gx#core-context-root__% - (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_)))) + (lambda (_ctx83398_) + (let _lp83400_ ((_ctx83402_ _ctx83398_)) + (if (##structure-instance-of? _ctx83402_ 'gx#context-phi::t) + (_lp83400_ + (##unchecked-structure-ref _ctx83402_ '3 gx#phi-context::t '#f)) + _ctx83402_)))) (define gx#core-context-root__0 (lambda () - (let ((_ctx83426_ (gx#current-expander-context))) - (gx#core-context-root__% _ctx83426_)))) + (let ((_ctx83408_ (gx#current-expander-context))) + (gx#core-context-root__% _ctx83408_)))) (define gx#core-context-root - (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_)) + (lambda _g86111_ + (let ((_g86110_ (##length _g86111_))) + (cond ((##fx= _g86110_ 0) + (apply (lambda () (gx#core-context-root__0)) _g86111_)) + ((##fx= _g86110_ 1) + (apply (lambda (_ctx83410_) + (gx#core-context-root__% _ctx83410_)) + _g86111_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g86129_)))))) + _g86111_)))))) (define gx#core-context-rebind?__% - (lambda (_ctx83397_ . __8339483398_) - (let ((_$e83401_ (gx#current-expander-allow-rebind?))) - (if _$e83401_ - _$e83401_ - (if (##structure-instance-of? _ctx83397_ 'gx#top-context::t) + (lambda (_ctx83379_ . __8337683380_) + (let ((_$e83383_ (gx#current-expander-allow-rebind?))) + (if _$e83383_ + _$e83383_ + (if (##structure-instance-of? _ctx83379_ 'gx#top-context::t) (if (not (##structure-instance-of? - _ctx83397_ + _ctx83379_ 'gx#module-context::t)) (not (##structure-instance-of? - _ctx83397_ + _ctx83379_ 'gx#prelude-context::t)) '#f) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_ctx83408_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _ctx83408_)))) + (let ((_ctx83390_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _ctx83390_)))) (define gx#core-context-rebind? - (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_)) + (lambda _g86113_ + (let ((_g86112_ (##length _g86113_))) + (cond ((##fx= _g86112_ 0) + (apply (lambda () (gx#core-context-rebind?__0)) _g86113_)) + ((##fx= _g86112_ 1) + (apply (lambda (_ctx83392_) + (gx#core-context-rebind?__% _ctx83392_)) + _g86113_)) + ((##fx>= _g86112_ 1) + (apply gx#core-context-rebind?__% _g86113_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g86131_)))))) + _g86113_)))))) (define gx#core-context-namespace__% - (lambda (_ctx83380_) - (let ((_$e83382_ (gx#core-context-top__1 _ctx83380_))) - (if _$e83382_ - ((lambda (_ctx83385_) + (lambda (_ctx83362_) + (let ((_$e83364_ (gx#core-context-top__1 _ctx83362_))) + (if _$e83364_ + ((lambda (_ctx83367_) (if (##structure-instance-of? - _ctx83385_ + _ctx83367_ 'gx#module-context::t) (##unchecked-structure-ref - _ctx83385_ + _ctx83367_ '6 gx#module-context::t '#f) '#f)) - _$e83382_) + _$e83364_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_ctx83391_ (gx#current-expander-context))) - (gx#core-context-namespace__% _ctx83391_)))) + (let ((_ctx83373_ (gx#current-expander-context))) + (gx#core-context-namespace__% _ctx83373_)))) (define gx#core-context-namespace - (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_)) + (lambda _g86115_ + (let ((_g86114_ (##length _g86115_))) + (cond ((##fx= _g86114_ 0) + (apply (lambda () (gx#core-context-namespace__0)) _g86115_)) + ((##fx= _g86114_ 1) + (apply (lambda (_ctx83375_) + (gx#core-context-namespace__% _ctx83375_)) + _g86115_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g86133_)))))) + _g86115_)))))) (define gx#expander-binding?__% - (lambda (_bind83366_ _is?83367_) - (if (##structure-direct-instance-of? _bind83366_ 'gx#syntax-binding::t) - (_is?83367_ + (lambda (_bind83348_ _is?83349_) + (if (##structure-direct-instance-of? _bind83348_ 'gx#syntax-binding::t) + (_is?83349_ (##unchecked-structure-ref - _bind83366_ + _bind83348_ '4 gx#syntax-binding::t '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_bind83372_) - (let ((_is?83374_ gx#expander?)) - (gx#expander-binding?__% _bind83372_ _is?83374_)))) + (lambda (_bind83354_) + (let ((_is?83356_ gx#expander?)) + (gx#expander-binding?__% _bind83354_ _is?83356_)))) (define gx#expander-binding? - (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_)) + (lambda _g86117_ + (let ((_g86116_ (##length _g86117_))) + (cond ((##fx= _g86116_ 1) + (apply (lambda (_bind83354_) + (gx#expander-binding?__0 _bind83354_)) + _g86117_)) + ((##fx= _g86116_ 2) + (apply (lambda (_bind83358_ _is?83359_) + (gx#expander-binding?__% _bind83358_ _is?83359_)) + _g86117_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g86135_)))))) + _g86117_)))))) (define gx#core-expander-binding? - (lambda (_bind83363_) - (gx#expander-binding?__% _bind83363_ gx#core-expander?))) + (lambda (_bind83345_) + (gx#expander-binding?__% _bind83345_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_bind83361_) - (gx#expander-binding?__% _bind83361_ gx#expression-form?))) + (lambda (_bind83343_) + (gx#expander-binding?__% _bind83343_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_bind83355_) - (letrec ((_direct-special-form?83357_ - (lambda (_obj83359_) + (lambda (_bind83337_) + (letrec ((_direct-special-form?83339_ + (lambda (_obj83341_) (##structure-direct-instance-of? - _obj83359_ + _obj83341_ (##type-id gx#special-form::t))))) - (gx#expander-binding?__% _bind83355_ _direct-special-form?83357_)))) + (gx#expander-binding?__% _bind83337_ _direct-special-form?83339_)))) (define gx#special-form-binding? - (lambda (_bind83353_) - (gx#expander-binding?__% _bind83353_ gx#special-form?))) + (lambda (_bind83335_) + (gx#expander-binding?__% _bind83335_ gx#special-form?))) (define gx#feature-binding? - (lambda (_bind83344_) - (letrec ((_feature?83346_ - (lambda (_e83348_) - (let ((_$e83350_ + (lambda (_bind83326_) + (letrec ((_feature?83328_ + (lambda (_e83330_) + (let ((_$e83332_ (##structure-instance-of? - _e83348_ + _e83330_ 'gx#feature-expander::t))) - (if _$e83350_ - _$e83350_ + (if _$e83332_ + _$e83332_ (##structure-instance-of? - _e83348_ + _e83330_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _bind83344_ _feature?83346_)))) + (gx#expander-binding?__% _bind83326_ _feature?83328_)))) (define gx#private-feature-binding? - (lambda (_bind83342_) - (gx#expander-binding?__% _bind83342_ gx#private-feature-expander?))) + (lambda (_bind83324_) + (gx#expander-binding?__% _bind83324_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_id83329_ _bound?83330_) - (if (gx#identifier? _id83329_) - (_bound?83330_ (gx#resolve-identifier__0 _id83329_)) + (lambda (_id83311_ _bound?83312_) + (if (gx#identifier? _id83311_) + (_bound?83312_ (gx#resolve-identifier__0 _id83311_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_id83335_) - (let ((_bound?83337_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _id83335_ _bound?83337_)))) + (lambda (_id83317_) + (let ((_bound?83319_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _id83317_ _bound?83319_)))) (define gx#core-bound-identifier? - (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_) + (lambda _g86119_ + (let ((_g86118_ (##length _g86119_))) + (cond ((##fx= _g86118_ 1) + (apply (lambda (_id83317_) + (gx#core-bound-identifier?__0 _id83317_)) + _g86119_)) + ((##fx= _g86118_ 2) + (apply (lambda (_id83321_ _bound?83322_) (gx#core-bound-identifier?__% - _id83339_ - _bound?83340_)) - _g86137_)) + _id83321_ + _bound?83322_)) + _g86119_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g86137_)))))) + _g86119_)))))) (define gx#core-identifier=? - (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_))))))) + (lambda (_x83301_ _y83302_) + (letrec ((_y=?83304_ + (lambda (_xid83308_) + ((if (list? _y83302_) memq eq?) _xid83308_ _y83302_)))) + (let ((_bind83306_ (gx#resolve-identifier__0 _x83301_))) + (if (##structure-instance-of? _bind83306_ 'gx#binding::t) + (_y=?83304_ + (##unchecked-structure-ref _bind83306_ '1 gx#binding::t '#f)) + (_y=?83304_ (gx#stx-e _x83301_))))))) (define gx#core-extern-symbol? - (lambda (_e83317_) - (if (interned-symbol? _e83317_) - (string-index__0 (symbol->string _e83317_) '#\#) + (lambda (_e83299_) + (if (interned-symbol? _e83299_) + (string-index__0 (symbol->string _e83299_) '#\#) '#f))) (define gx#core-quote-syntax__% - (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_))) + (lambda (_stx83254_ _src83255_ _ctx83256_ _marks83257_) + (if (##structure? _stx83254_) + (let ((_$e83259_ (gx#sealed-syntax-unwrap _stx83254_))) + (if _$e83259_ + (values _$e83259_) + (if (gx#identifier? _stx83254_) + (let ((_id83262_ + (gx#stx-unwrap__% _stx83254_ _marks83257_))) (##structure gx#syntax-quote::t - (##unchecked-structure-ref _id83280_ '1 gx#AST::t '#f) - (let ((_$e83282_ + (##unchecked-structure-ref _id83262_ '1 gx#AST::t '#f) + (let ((_$e83264_ (##unchecked-structure-ref - _id83280_ + _id83262_ '2 gx#AST::t '#f))) - (if _$e83282_ _$e83282_ _src83273_)) - _ctx83274_ + (if _$e83264_ _$e83264_ _src83255_)) + _ctx83256_ (##unchecked-structure-ref - _id83280_ + _id83262_ '3 gx#identifier-wrap::t '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _stx83272_) - (let ((_$e83285_ (gx#stx-source _stx83272_))) - (if _$e83285_ _$e83285_ _src83273_)) - _ctx83274_ - (reverse _marks83275_))))) + (gx#stx-e _stx83254_) + (let ((_$e83267_ (gx#stx-source _stx83254_))) + (if _$e83267_ _$e83267_ _src83255_)) + _ctx83256_ + (reverse _marks83257_))))) (##structure gx#syntax-quote::t - _stx83272_ - _src83273_ - _ctx83274_ - (reverse _marks83275_))))) + _stx83254_ + _src83255_ + _ctx83256_ + (reverse _marks83257_))))) (define gx#core-quote-syntax__0 - (lambda (_stx83291_) - (let* ((_src83293_ '#f) - (_ctx83295_ (gx#current-expander-context)) - (_marks83297_ (gx#current-expander-marks))) + (lambda (_stx83273_) + (let* ((_src83275_ '#f) + (_ctx83277_ (gx#current-expander-context)) + (_marks83279_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx83291_ - _src83293_ - _ctx83295_ - _marks83297_)))) + _stx83273_ + _src83275_ + _ctx83277_ + _marks83279_)))) (define gx#core-quote-syntax__1 - (lambda (_stx83299_ _src83300_) - (let* ((_ctx83302_ (gx#current-expander-context)) - (_marks83304_ (gx#current-expander-marks))) + (lambda (_stx83281_ _src83282_) + (let* ((_ctx83284_ (gx#current-expander-context)) + (_marks83286_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx83299_ - _src83300_ - _ctx83302_ - _marks83304_)))) + _stx83281_ + _src83282_ + _ctx83284_ + _marks83286_)))) (define gx#core-quote-syntax__2 - (lambda (_stx83306_ _src83307_ _ctx83308_) - (let ((_marks83310_ (gx#current-expander-marks))) + (lambda (_stx83288_ _src83289_ _ctx83290_) + (let ((_marks83292_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx83306_ - _src83307_ - _ctx83308_ - _marks83310_)))) + _stx83288_ + _src83289_ + _ctx83290_ + _marks83292_)))) (define gx#core-quote-syntax - (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_) + (lambda _g86121_ + (let ((_g86120_ (##length _g86121_))) + (cond ((##fx= _g86120_ 1) + (apply (lambda (_stx83273_) + (gx#core-quote-syntax__0 _stx83273_)) + _g86121_)) + ((##fx= _g86120_ 2) + (apply (lambda (_stx83281_ _src83282_) + (gx#core-quote-syntax__1 _stx83281_ _src83282_)) + _g86121_)) + ((##fx= _g86120_ 3) + (apply (lambda (_stx83288_ _src83289_ _ctx83290_) (gx#core-quote-syntax__2 - _stx83306_ - _src83307_ - _ctx83308_)) - _g86139_)) - ((##fx= _g86138_ 4) - (apply (lambda (_stx83312_ _src83313_ _ctx83314_ _marks83315_) + _stx83288_ + _src83289_ + _ctx83290_)) + _g86121_)) + ((##fx= _g86120_ 4) + (apply (lambda (_stx83294_ _src83295_ _ctx83296_ _marks83297_) (gx#core-quote-syntax__% - _stx83312_ - _src83313_ - _ctx83314_ - _marks83315_)) - _g86139_)) + _stx83294_ + _src83295_ + _ctx83296_ + _marks83297_)) + _g86121_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g86139_)))))) + _g86121_)))))) (define gx#core-cons - (lambda (_hd83268_ _tl83269_) - (cons (gx#core-quote-syntax__0 _hd83268_) _tl83269_))) + (lambda (_hd83250_ _tl83251_) + (cons (gx#core-quote-syntax__0 _hd83250_) _tl83251_))) (define gx#core-list - (lambda (_hd83265_ . _rest83266_) - (cons (gx#core-quote-syntax__0 _hd83265_) _rest83266_))) + (lambda (_hd83247_ . _rest83248_) + (cons (gx#core-quote-syntax__0 _hd83247_) _rest83248_))) (define gx#core-cons* - (lambda (_hd83262_ . _rest83263_) - (apply cons* (gx#core-quote-syntax__0 _hd83262_) _rest83263_))) + (lambda (_hd83244_ . _rest83245_) + (apply cons* (gx#core-quote-syntax__0 _hd83244_) _rest83245_))) (define gx#core-resolve-path__% - (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_) + (lambda (_stx-path83218_ _rel83219_) + (let ((_path83231_ (gx#stx-e _stx-path83218_)) + (_reldir83232_ + (let _lp83221_ ((_relsrc83223_ + (let ((_$e83228_ + (gx#stx-source _stx-path83218_))) + (if _$e83228_ _$e83228_ _rel83219_)))) + (if (##structure-instance-of? _relsrc83223_ 'gerbil#AST::t) + (_lp83221_ + (let ((_$e83225_ (gx#stx-source _relsrc83223_))) + (if _$e83225_ _$e83225_ (gx#stx-e _relsrc83223_)))) + (if (source-location-path? _relsrc83223_) + (path-directory (source-location-path _relsrc83223_)) + (if (string? _relsrc83223_) + (path-directory _relsrc83223_) (if (not (null? (gx#current-expander-path))) (path-directory (car (gx#current-expander-path))) (current-directory)))))))) - (path-expand _path83249_ (path-normalize _reldir83250_))))) + (path-expand _path83231_ (path-normalize _reldir83232_))))) (define gx#core-resolve-path__0 - (lambda (_stx-path83255_) - (let ((_rel83257_ '#f)) - (gx#core-resolve-path__% _stx-path83255_ _rel83257_)))) + (lambda (_stx-path83237_) + (let ((_rel83239_ '#f)) + (gx#core-resolve-path__% _stx-path83237_ _rel83239_)))) (define gx#core-resolve-path - (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_)) + (lambda _g86123_ + (let ((_g86122_ (##length _g86123_))) + (cond ((##fx= _g86122_ 1) + (apply (lambda (_stx-path83237_) + (gx#core-resolve-path__0 _stx-path83237_)) + _g86123_)) + ((##fx= _g86122_ 2) + (apply (lambda (_stx-path83241_ _rel83242_) + (gx#core-resolve-path__% _stx-path83241_ _rel83242_)) + _g86123_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g86141_)))))) + _g86123_)))))) (define gx#core-deserialize-mark__% - (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_) + (lambda (_repr83174_ _ctx83175_) + (let* ((_repr8317683183_ _repr83174_) + (_E8317883187_ + (lambda () (error '"No clause matching" _repr8317683183_))) + (_K8317983195_ + (lambda (_subs83190_ _phi83191_) + (let ((_subst83193_ + (if (not (null? _subs83190_)) + (list->hash-table-eq _subs83190_) '#f))) (##structure gx#expander-mark::t - _subst83211_ - _ctx83193_ - _phi83209_ + _subst83193_ + _ctx83175_ + _phi83191_ '#f))))) - (if (##pair? _repr8319483201_) - (let ((_hd8319883216_ (##car _repr8319483201_)) - (_tl8319983218_ (##cdr _repr8319483201_))) - (let* ((_phi83221_ _hd8319883216_) - (_subs83223_ _tl8319983218_)) - (_K8319783213_ _subs83223_ _phi83221_))) - (_E8319683205_))))) + (if (##pair? _repr8317683183_) + (let ((_hd8318083198_ (##car _repr8317683183_)) + (_tl8318183200_ (##cdr _repr8317683183_))) + (let* ((_phi83203_ _hd8318083198_) + (_subs83205_ _tl8318183200_)) + (_K8317983195_ _subs83205_ _phi83203_))) + (_E8317883187_))))) (define gx#core-deserialize-mark__0 - (lambda (_repr83228_) - (let ((_ctx83230_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _repr83228_ _ctx83230_)))) + (lambda (_repr83210_) + (let ((_ctx83212_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _repr83210_ _ctx83212_)))) (define gx#core-deserialize-mark - (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_)) + (lambda _g86125_ + (let ((_g86124_ (##length _g86125_))) + (cond ((##fx= _g86124_ 1) + (apply (lambda (_repr83210_) + (gx#core-deserialize-mark__0 _repr83210_)) + _g86125_)) + ((##fx= _g86124_ 2) + (apply (lambda (_repr83214_ _ctx83215_) + (gx#core-deserialize-mark__% _repr83214_ _ctx83215_)) + _g86125_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g86143_)))))) + _g86125_)))))) (define gx#syntax-local-rewrap - (lambda (_stx83189_) - (gx#stx-rewrap _stx83189_ (gx#current-expander-marks)))) + (lambda (_stx83171_) + (gx#stx-rewrap _stx83171_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_stx83187_) - (gx#stx-unwrap__% _stx83187_ (gx#current-expander-marks)))) + (lambda (_stx83169_) + (gx#stx-unwrap__% _stx83169_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (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_))))) + (lambda (_stx83139_) + (let* ((_g8314083148_ (gx#current-expander-marks)) + (_else8314283156_ (lambda () _stx83139_)) + (_K8314483161_ + (lambda (_hd83159_) (gx#stx-apply-mark _stx83139_ _hd83159_)))) + (if (##pair? _g8314083148_) + (let* ((_hd8314583164_ (##car _g8314083148_)) + (_hd83167_ _hd8314583164_)) + (_K8314483161_ _hd83167_)) + (_else8314283156_))))) (define gx#syntax-local-e__% - (lambda (_stx83142_ _E83143_) - (let ((_bind83145_ (gx#resolve-identifier__0 _stx83142_))) + (lambda (_stx83124_ _E83125_) + (let ((_bind83127_ (gx#resolve-identifier__0 _stx83124_))) (if (##structure-direct-instance-of? - _bind83145_ + _bind83127_ 'gx#syntax-binding::t) (##unchecked-structure-ref - _bind83145_ + _bind83127_ '4 gx#syntax-binding::t '#f) - (_E83143_ _stx83142_))))) + (_E83125_ _stx83124_))))) (define gx#syntax-local-e__0 - (lambda (_stx83150_) - (let ((_E83152_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _stx83150_ _E83152_)))) + (lambda (_stx83132_) + (let ((_E83134_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _stx83132_ _E83134_)))) (define gx#syntax-local-e - (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_)) + (lambda _g86127_ + (let ((_g86126_ (##length _g86127_))) + (cond ((##fx= _g86126_ 1) + (apply (lambda (_stx83132_) (gx#syntax-local-e__0 _stx83132_)) + _g86127_)) + ((##fx= _g86126_ 2) + (apply (lambda (_stx83136_ _E83137_) + (gx#syntax-local-e__% _stx83136_ _E83137_)) + _g86127_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g86145_)))))) + _g86127_)))))) (define gx#syntax-local-value__% - (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_)))) + (lambda (_stx83108_ _E83109_) + (let ((_e83111_ (gx#syntax-local-e__% _stx83108_ _E83109_))) + (if (##structure-instance-of? _e83111_ 'gx#expander::t) + (##structure-ref _e83111_ '1 gx#expander::t '#f) + _e83111_)))) (define gx#syntax-local-value__0 - (lambda (_stx83134_) - (let ((_E83136_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _stx83134_ _E83136_)))) + (lambda (_stx83116_) + (let ((_E83118_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _stx83116_ _E83118_)))) (define gx#syntax-local-value - (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_)) + (lambda _g86129_ + (let ((_g86128_ (##length _g86129_))) + (cond ((##fx= _g86128_ 1) + (apply (lambda (_stx83116_) + (gx#syntax-local-value__0 _stx83116_)) + _g86129_)) + ((##fx= _g86128_ 2) + (apply (lambda (_stx83120_ _E83121_) + (gx#syntax-local-value__% _stx83120_ _E83121_)) + _g86129_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g86147_)))))) + _g86129_)))))) (define gx#raise-syntax-ref-error - (lambda (_stx83123_) + (lambda (_stx83105_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _stx83123_))))) + _stx83105_))))) diff --git a/src/bootstrap/gerbil/expander/core~1.scm b/src/bootstrap/gerbil/expander/core~1.scm index 5e0d71082..b46161350 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]#_g86149_| + (define |gx[1]#_g86131_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86151_| + (define |gx[1]#_g86133_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86153_| + (define |gx[1]#_g86135_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86158_| + (define |gx[1]#_g86140_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86161_| + (define |gx[1]#_g86143_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86166_| + (define |gx[1]#_g86148_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86169_| + (define |gx[1]#_g86151_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86174_| + (define |gx[1]#_g86156_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86177_| + (define |gx[1]#_g86159_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86182_| + (define |gx[1]#_g86164_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86185_| + (define |gx[1]#_g86167_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86188_| + (define |gx[1]#_g86170_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86190_| + (define |gx[1]#_g86172_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86192_| + (define |gx[1]#_g86174_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86194_| + (define |gx[1]#_g86176_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86199_| + (define |gx[1]#_g86181_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86202_| + (define |gx[1]#_g86184_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86207_| + (define |gx[1]#_g86189_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86210_| + (define |gx[1]#_g86192_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86215_| + (define |gx[1]#_g86197_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86218_| + (define |gx[1]#_g86200_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86223_| + (define |gx[1]#_g86205_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86226_| + (define |gx[1]#_g86208_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86230_| + (define |gx[1]#_g86212_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86232_| + (define |gx[1]#_g86214_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86234_| + (define |gx[1]#_g86216_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86242_| + (define |gx[1]#_g86224_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86245_| + (define |gx[1]#_g86227_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86248_| + (define |gx[1]#_g86230_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86251_| + (define |gx[1]#_g86233_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86254_| + (define |gx[1]#_g86236_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86262_| + (define |gx[1]#_g86244_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86265_| + (define |gx[1]#_g86247_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86268_| + (define |gx[1]#_g86250_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86271_| + (define |gx[1]#_g86253_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86274_| + (define |gx[1]#_g86256_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86282_| + (define |gx[1]#_g86264_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86285_| + (define |gx[1]#_g86267_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86288_| + (define |gx[1]#_g86270_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86291_| + (define |gx[1]#_g86273_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86294_| + (define |gx[1]#_g86276_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86302_| + (define |gx[1]#_g86284_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86305_| + (define |gx[1]#_g86287_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86308_| + (define |gx[1]#_g86290_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86311_| + (define |gx[1]#_g86293_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86314_| + (define |gx[1]#_g86296_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86317_| + (define |gx[1]#_g86299_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86319_| + (define |gx[1]#_g86301_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86321_| + (define |gx[1]#_g86303_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86323_| + (define |gx[1]#_g86305_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86331_| + (define |gx[1]#_g86313_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86334_| + (define |gx[1]#_g86316_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86337_| + (define |gx[1]#_g86319_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86340_| + (define |gx[1]#_g86322_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86343_| + (define |gx[1]#_g86325_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86351_| + (define |gx[1]#_g86333_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86354_| + (define |gx[1]#_g86336_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86357_| + (define |gx[1]#_g86339_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86360_| + (define |gx[1]#_g86342_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86363_| + (define |gx[1]#_g86345_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86371_| + (define |gx[1]#_g86353_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86374_| + (define |gx[1]#_g86356_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86377_| + (define |gx[1]#_g86359_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86380_| + (define |gx[1]#_g86362_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86383_| + (define |gx[1]#_g86365_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86391_| + (define |gx[1]#_g86373_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86394_| + (define |gx[1]#_g86376_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86397_| + (define |gx[1]#_g86379_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86400_| + (define |gx[1]#_g86382_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86403_| + (define |gx[1]#_g86385_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86406_| + (define |gx[1]#_g86388_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86408_| + (define |gx[1]#_g86390_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86410_| + (define |gx[1]#_g86392_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86412_| + (define |gx[1]#_g86394_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86426_| + (define |gx[1]#_g86408_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86429_| + (define |gx[1]#_g86411_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86432_| + (define |gx[1]#_g86414_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86435_| + (define |gx[1]#_g86417_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86438_| + (define |gx[1]#_g86420_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86441_| + (define |gx[1]#_g86423_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g86444_| + (define |gx[1]#_g86426_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86447_| + (define |gx[1]#_g86429_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g86450_| + (define |gx[1]#_g86432_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g86453_| + (define |gx[1]#_g86435_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g86456_| + (define |gx[1]#_g86438_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g86470_| + (define |gx[1]#_g86452_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86473_| + (define |gx[1]#_g86455_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86476_| + (define |gx[1]#_g86458_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86479_| + (define |gx[1]#_g86461_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86482_| + (define |gx[1]#_g86464_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86485_| + (define |gx[1]#_g86467_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86488_| + (define |gx[1]#_g86470_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86491_| + (define |gx[1]#_g86473_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86494_| + (define |gx[1]#_g86476_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86497_| + (define |gx[1]#_g86479_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86500_| + (define |gx[1]#_g86482_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86514_| + (define |gx[1]#_g86496_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86517_| + (define |gx[1]#_g86499_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86520_| + (define |gx[1]#_g86502_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86523_| + (define |gx[1]#_g86505_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86526_| + (define |gx[1]#_g86508_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86529_| + (define |gx[1]#_g86511_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g86532_| + (define |gx[1]#_g86514_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86535_| + (define |gx[1]#_g86517_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g86538_| + (define |gx[1]#_g86520_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g86541_| + (define |gx[1]#_g86523_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g86544_| + (define |gx[1]#_g86526_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g86558_| + (define |gx[1]#_g86540_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86561_| + (define |gx[1]#_g86543_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86564_| + (define |gx[1]#_g86546_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86567_| + (define |gx[1]#_g86549_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86570_| + (define |gx[1]#_g86552_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86573_| + (define |gx[1]#_g86555_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86576_| + (define |gx[1]#_g86558_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86579_| + (define |gx[1]#_g86561_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86582_| + (define |gx[1]#_g86564_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86585_| + (define |gx[1]#_g86567_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86588_| + (define |gx[1]#_g86570_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86592_| + (define |gx[1]#_g86574_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86594_| + (define |gx[1]#_g86576_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86596_| + (define |gx[1]#_g86578_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86607_| + (define |gx[1]#_g86589_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86610_| + (define |gx[1]#_g86592_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86613_| + (define |gx[1]#_g86595_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86616_| + (define |gx[1]#_g86598_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86619_| + (define |gx[1]#_g86601_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86622_| + (define |gx[1]#_g86604_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86625_| + (define |gx[1]#_g86607_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g86628_| + (define |gx[1]#_g86610_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g86639_| + (define |gx[1]#_g86621_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86642_| + (define |gx[1]#_g86624_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86645_| + (define |gx[1]#_g86627_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86648_| + (define |gx[1]#_g86630_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86651_| + (define |gx[1]#_g86633_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86654_| + (define |gx[1]#_g86636_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86657_| + (define |gx[1]#_g86639_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86660_| + (define |gx[1]#_g86642_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86671_| + (define |gx[1]#_g86653_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86674_| + (define |gx[1]#_g86656_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86677_| + (define |gx[1]#_g86659_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86680_| + (define |gx[1]#_g86662_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86683_| + (define |gx[1]#_g86665_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86686_| + (define |gx[1]#_g86668_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g86689_| + (define |gx[1]#_g86671_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g86692_| + (define |gx[1]#_g86674_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g86703_| + (define |gx[1]#_g86685_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86706_| + (define |gx[1]#_g86688_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86709_| + (define |gx[1]#_g86691_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86712_| + (define |gx[1]#_g86694_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86715_| + (define |gx[1]#_g86697_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86718_| + (define |gx[1]#_g86700_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86721_| + (define |gx[1]#_g86703_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86724_| + (define |gx[1]#_g86706_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86728_| + (define |gx[1]#_g86710_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86730_| + (define |gx[1]#_g86712_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g86732_| + (define |gx[1]#_g86714_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86740_| + (define |gx[1]#_g86722_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86743_| + (define |gx[1]#_g86725_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86746_| + (define |gx[1]#_g86728_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86749_| + (define |gx[1]#_g86731_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86752_| + (define |gx[1]#_g86734_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86760_| + (define |gx[1]#_g86742_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86763_| + (define |gx[1]#_g86745_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86766_| + (define |gx[1]#_g86748_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86769_| + (define |gx[1]#_g86751_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86772_| + (define |gx[1]#_g86754_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86780_| + (define |gx[1]#_g86762_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g86783_| + (define |gx[1]#_g86765_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86786_| + (define |gx[1]#_g86768_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g86789_| + (define |gx[1]#_g86771_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g86792_| + (define |gx[1]#_g86774_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g86800_| + (define |gx[1]#_g86782_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86803_| + (define |gx[1]#_g86785_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86806_| + (define |gx[1]#_g86788_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86809_| + (define |gx[1]#_g86791_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86812_| + (define |gx[1]#_g86794_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86814_| + (define |gx[1]#_g86796_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86816_| + (define |gx[1]#_g86798_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g86818_| + (define |gx[1]#_g86800_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86824_| + (define |gx[1]#_g86806_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86827_| + (define |gx[1]#_g86809_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86830_| + (define |gx[1]#_g86812_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86836_| + (define |gx[1]#_g86818_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86839_| + (define |gx[1]#_g86821_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86842_| + (define |gx[1]#_g86824_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86848_| + (define |gx[1]#_g86830_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86851_| + (define |gx[1]#_g86833_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86854_| + (define |gx[1]#_g86836_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86860_| + (define |gx[1]#_g86842_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86863_| + (define |gx[1]#_g86845_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86866_| + (define |gx[1]#_g86848_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86869_| + (define |gx[1]#_g86851_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g86871_| + (define |gx[1]#_g86853_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86873_| + (define |gx[1]#_g86855_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g86875_| + (define |gx[1]#_g86857_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86881_| + (define |gx[1]#_g86863_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86884_| + (define |gx[1]#_g86866_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86887_| + (define |gx[1]#_g86869_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86893_| + (define |gx[1]#_g86875_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86896_| + (define |gx[1]#_g86878_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86899_| + (define |gx[1]#_g86881_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86905_| + (define |gx[1]#_g86887_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86908_| + (define |gx[1]#_g86890_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86911_| + (define |gx[1]#_g86893_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86917_| + (define |gx[1]#_g86899_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86920_| + (define |gx[1]#_g86902_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86923_| + (define |gx[1]#_g86905_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86926_| + (define |gx[1]#_g86908_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g86928_| + (define |gx[1]#_g86910_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86930_| + (define |gx[1]#_g86912_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g86932_| + (define |gx[1]#_g86914_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86938_| + (define |gx[1]#_g86920_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86941_| + (define |gx[1]#_g86923_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86944_| + (define |gx[1]#_g86926_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86950_| + (define |gx[1]#_g86932_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86953_| + (define |gx[1]#_g86935_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86956_| + (define |gx[1]#_g86938_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86962_| + (define |gx[1]#_g86944_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86965_| + (define |gx[1]#_g86947_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g86968_| + (define |gx[1]#_g86950_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g86974_| + (define |gx[1]#_g86956_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86977_| + (define |gx[1]#_g86959_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86980_| + (define |gx[1]#_g86962_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g86984_| + (define |gx[1]#_g86966_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g86986_| + (define |gx[1]#_g86968_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g86988_| + (define |gx[1]#_g86970_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g86994_| + (define |gx[1]#_g86976_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g86997_| + (define |gx[1]#_g86979_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87000_| + (define |gx[1]#_g86982_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87006_| + (define |gx[1]#_g86988_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87009_| + (define |gx[1]#_g86991_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87012_| + (define |gx[1]#_g86994_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87018_| + (define |gx[1]#_g87000_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87021_| + (define |gx[1]#_g87003_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87024_| + (define |gx[1]#_g87006_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87030_| + (define |gx[1]#_g87012_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87033_| + (define |gx[1]#_g87015_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87036_| + (define |gx[1]#_g87018_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87039_| + (define |gx[1]#_g87021_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g87041_| + (define |gx[1]#_g87023_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87043_| + (define |gx[1]#_g87025_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g87045_| + (define |gx[1]#_g87027_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87052_| + (define |gx[1]#_g87034_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87055_| + (define |gx[1]#_g87037_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87058_| + (define |gx[1]#_g87040_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87061_| + (define |gx[1]#_g87043_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g87068_| + (define |gx[1]#_g87050_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87071_| + (define |gx[1]#_g87053_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87074_| + (define |gx[1]#_g87056_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87077_| + (define |gx[1]#_g87059_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87084_| + (define |gx[1]#_g87066_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87087_| + (define |gx[1]#_g87069_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87090_| + (define |gx[1]#_g87072_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87093_| + (define |gx[1]#_g87075_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g87100_| + (define |gx[1]#_g87082_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87103_| + (define |gx[1]#_g87085_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87106_| + (define |gx[1]#_g87088_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87109_| + (define |gx[1]#_g87091_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87113_| + (define |gx[1]#_g87095_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87115_| + (define |gx[1]#_g87097_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g87117_| + (define |gx[1]#_g87099_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87123_| + (define |gx[1]#_g87105_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87126_| + (define |gx[1]#_g87108_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87129_| + (define |gx[1]#_g87111_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87135_| + (define |gx[1]#_g87117_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87138_| + (define |gx[1]#_g87120_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87141_| + (define |gx[1]#_g87123_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87147_| + (define |gx[1]#_g87129_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87150_| + (define |gx[1]#_g87132_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87153_| + (define |gx[1]#_g87135_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87159_| + (define |gx[1]#_g87141_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87162_| + (define |gx[1]#_g87144_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87165_| + (define |gx[1]#_g87147_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87169_| + (define |gx[1]#_g87151_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87171_| + (define |gx[1]#_g87153_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g87173_| + (define |gx[1]#_g87155_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87180_| + (define |gx[1]#_g87162_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87183_| + (define |gx[1]#_g87165_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87186_| + (define |gx[1]#_g87168_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87189_| + (define |gx[1]#_g87171_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87196_| + (define |gx[1]#_g87178_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87199_| + (define |gx[1]#_g87181_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87202_| + (define |gx[1]#_g87184_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87205_| + (define |gx[1]#_g87187_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87212_| + (define |gx[1]#_g87194_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87215_| + (define |gx[1]#_g87197_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87218_| + (define |gx[1]#_g87200_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87221_| + (define |gx[1]#_g87203_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87228_| + (define |gx[1]#_g87210_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87231_| + (define |gx[1]#_g87213_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87234_| + (define |gx[1]#_g87216_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87237_| + (define |gx[1]#_g87219_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87241_| + (define |gx[1]#_g87223_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87243_| + (define |gx[1]#_g87225_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g87245_| + (define |gx[1]#_g87227_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87254_| + (define |gx[1]#_g87236_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87257_| + (define |gx[1]#_g87239_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87260_| + (define |gx[1]#_g87242_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87263_| + (define |gx[1]#_g87245_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87266_| + (define |gx[1]#_g87248_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g87269_| + (define |gx[1]#_g87251_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87278_| + (define |gx[1]#_g87260_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87281_| + (define |gx[1]#_g87263_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87284_| + (define |gx[1]#_g87266_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87287_| + (define |gx[1]#_g87269_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87290_| + (define |gx[1]#_g87272_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87293_| + (define |gx[1]#_g87275_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87302_| + (define |gx[1]#_g87284_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87305_| + (define |gx[1]#_g87287_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87308_| + (define |gx[1]#_g87290_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87311_| + (define |gx[1]#_g87293_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87314_| + (define |gx[1]#_g87296_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g87317_| + (define |gx[1]#_g87299_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87326_| + (define |gx[1]#_g87308_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87329_| + (define |gx[1]#_g87311_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87332_| + (define |gx[1]#_g87314_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87335_| + (define |gx[1]#_g87317_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87338_| + (define |gx[1]#_g87320_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87341_| + (define |gx[1]#_g87323_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87345_| + (define |gx[1]#_g87327_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87347_| + (define |gx[1]#_g87329_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g87349_| + (define |gx[1]#_g87331_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87356_| + (define |gx[1]#_g87338_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87359_| + (define |gx[1]#_g87341_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87362_| + (define |gx[1]#_g87344_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87365_| + (define |gx[1]#_g87347_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87372_| + (define |gx[1]#_g87354_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87375_| + (define |gx[1]#_g87357_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87378_| + (define |gx[1]#_g87360_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87381_| + (define |gx[1]#_g87363_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87388_| + (define |gx[1]#_g87370_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87391_| + (define |gx[1]#_g87373_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g87394_| + (define |gx[1]#_g87376_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87397_| + (define |gx[1]#_g87379_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87404_| + (define |gx[1]#_g87386_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87407_| + (define |gx[1]#_g87389_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87410_| + (define |gx[1]#_g87392_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87413_| + (define |gx[1]#_g87395_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87415_| + (define |gx[1]#_g87397_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87417_| + (define |gx[1]#_g87399_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87419_| + (define |gx[1]#_g87401_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87423_| + (define |gx[1]#_g87405_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87427_| + (define |gx[1]#_g87409_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87431_| + (define |gx[1]#_g87413_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87435_| + (define |gx[1]#_g87417_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87438_| + (define |gx[1]#_g87420_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87440_| + (define |gx[1]#_g87422_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87442_| + (define |gx[1]#_g87424_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87444_| + (define |gx[1]#_g87426_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87450_| + (define |gx[1]#_g87432_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87453_| + (define |gx[1]#_g87435_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87456_| + (define |gx[1]#_g87438_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87462_| + (define |gx[1]#_g87444_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87465_| + (define |gx[1]#_g87447_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87468_| + (define |gx[1]#_g87450_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87474_| + (define |gx[1]#_g87456_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87477_| + (define |gx[1]#_g87459_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87480_| + (define |gx[1]#_g87462_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87486_| + (define |gx[1]#_g87468_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87489_| + (define |gx[1]#_g87471_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87492_| + (define |gx[1]#_g87474_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87495_| + (define |gx[1]#_g87477_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87497_| + (define |gx[1]#_g87479_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87499_| + (define |gx[1]#_g87481_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g87501_| + (define |gx[1]#_g87483_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87507_| + (define |gx[1]#_g87489_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87510_| + (define |gx[1]#_g87492_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87513_| + (define |gx[1]#_g87495_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87519_| + (define |gx[1]#_g87501_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87522_| + (define |gx[1]#_g87504_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87525_| + (define |gx[1]#_g87507_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87531_| + (define |gx[1]#_g87513_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87534_| + (define |gx[1]#_g87516_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87537_| + (define |gx[1]#_g87519_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87543_| + (define |gx[1]#_g87525_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87546_| + (define |gx[1]#_g87528_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87549_| + (define |gx[1]#_g87531_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87553_| + (define |gx[1]#_g87535_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87555_| + (define |gx[1]#_g87537_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g87557_| + (define |gx[1]#_g87539_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87563_| + (define |gx[1]#_g87545_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87566_| + (define |gx[1]#_g87548_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87569_| + (define |gx[1]#_g87551_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87575_| + (define |gx[1]#_g87557_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87578_| + (define |gx[1]#_g87560_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87581_| + (define |gx[1]#_g87563_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87587_| + (define |gx[1]#_g87569_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87590_| + (define |gx[1]#_g87572_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87593_| + (define |gx[1]#_g87575_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87599_| + (define |gx[1]#_g87581_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87602_| + (define |gx[1]#_g87584_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87605_| + (define |gx[1]#_g87587_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87608_| + (define |gx[1]#_g87590_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g87610_| + (define |gx[1]#_g87592_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87612_| + (define |gx[1]#_g87594_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g87614_| + (define |gx[1]#_g87596_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87620_| + (define |gx[1]#_g87602_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87623_| + (define |gx[1]#_g87605_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87626_| + (define |gx[1]#_g87608_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87632_| + (define |gx[1]#_g87614_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87635_| + (define |gx[1]#_g87617_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87638_| + (define |gx[1]#_g87620_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87644_| + (define |gx[1]#_g87626_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87647_| + (define |gx[1]#_g87629_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87650_| + (define |gx[1]#_g87632_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87656_| + (define |gx[1]#_g87638_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87659_| + (define |gx[1]#_g87641_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87662_| + (define |gx[1]#_g87644_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87666_| + (define |gx[1]#_g87648_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87668_| + (define |gx[1]#_g87650_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g87670_| + (define |gx[1]#_g87652_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87676_| + (define |gx[1]#_g87658_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87679_| + (define |gx[1]#_g87661_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87682_| + (define |gx[1]#_g87664_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87688_| + (define |gx[1]#_g87670_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87691_| + (define |gx[1]#_g87673_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87694_| + (define |gx[1]#_g87676_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87700_| + (define |gx[1]#_g87682_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87703_| + (define |gx[1]#_g87685_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87706_| + (define |gx[1]#_g87688_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87712_| + (define |gx[1]#_g87694_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87715_| + (define |gx[1]#_g87697_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87718_| + (define |gx[1]#_g87700_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87721_| + (define |gx[1]#_g87703_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g87723_| + (define |gx[1]#_g87705_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87725_| + (define |gx[1]#_g87707_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g87727_| + (define |gx[1]#_g87709_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87733_| + (define |gx[1]#_g87715_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87736_| + (define |gx[1]#_g87718_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87739_| + (define |gx[1]#_g87721_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87745_| + (define |gx[1]#_g87727_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87748_| + (define |gx[1]#_g87730_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87751_| + (define |gx[1]#_g87733_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87757_| + (define |gx[1]#_g87739_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87760_| + (define |gx[1]#_g87742_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g87763_| + (define |gx[1]#_g87745_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g87769_| + (define |gx[1]#_g87751_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87772_| + (define |gx[1]#_g87754_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87775_| + (define |gx[1]#_g87757_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87779_| + (define |gx[1]#_g87761_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87781_| + (define |gx[1]#_g87763_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87783_| + (define |gx[1]#_g87765_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87787_| + (define |gx[1]#_g87769_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87791_| + (define |gx[1]#_g87773_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87795_| + (define |gx[1]#_g87777_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87799_| + (define |gx[1]#_g87781_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87802_| + (define |gx[1]#_g87784_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87804_| + (define |gx[1]#_g87786_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87806_| + (define |gx[1]#_g87788_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87808_| + (define |gx[1]#_g87790_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87812_| + (define |gx[1]#_g87794_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87816_| + (define |gx[1]#_g87798_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87820_| + (define |gx[1]#_g87802_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87824_| + (define |gx[1]#_g87806_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87828_| + (define |gx[1]#_g87810_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87830_| + (define |gx[1]#_g87812_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87832_| + (define |gx[1]#_g87814_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87836_| + (define |gx[1]#_g87818_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87840_| + (define |gx[1]#_g87822_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87844_| + (define |gx[1]#_g87826_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87848_| + (define |gx[1]#_g87830_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87852_| + (define |gx[1]#_g87834_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87854_| + (define |gx[1]#_g87836_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87856_| + (define |gx[1]#_g87838_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87860_| + (define |gx[1]#_g87842_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87864_| + (define |gx[1]#_g87846_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87868_| + (define |gx[1]#_g87850_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87872_| + (define |gx[1]#_g87854_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87875_| + (define |gx[1]#_g87857_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87877_| + (define |gx[1]#_g87859_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87879_| + (define |gx[1]#_g87861_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87881_| + (define |gx[1]#_g87863_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87885_| + (define |gx[1]#_g87867_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87889_| + (define |gx[1]#_g87871_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87893_| + (define |gx[1]#_g87875_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87897_| + (define |gx[1]#_g87879_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87901_| + (define |gx[1]#_g87883_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87903_| + (define |gx[1]#_g87885_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g87905_| + (define |gx[1]#_g87887_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87911_| + (define |gx[1]#_g87893_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87914_| + (define |gx[1]#_g87896_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87917_| + (define |gx[1]#_g87899_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g87923_| + (define |gx[1]#_g87905_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87926_| + (define |gx[1]#_g87908_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87929_| + (define |gx[1]#_g87911_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87935_| + (define |gx[1]#_g87917_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g87938_| + (define |gx[1]#_g87920_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87941_| + (define |gx[1]#_g87923_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g87947_| + (define |gx[1]#_g87929_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87950_| + (define |gx[1]#_g87932_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87953_| + (define |gx[1]#_g87935_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87955_| + (define |gx[1]#_g87937_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g87957_| + (define |gx[1]#_g87939_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g87959_| + (define |gx[1]#_g87941_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g87966_| + (define |gx[1]#_g87948_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g87969_| + (define |gx[1]#_g87951_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g87972_| + (define |gx[1]#_g87954_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g87975_| + (define |gx[1]#_g87957_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g87982_| + (define |gx[1]#_g87964_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87985_| + (define |gx[1]#_g87967_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87988_| + (define |gx[1]#_g87970_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87991_| + (define |gx[1]#_g87973_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g87998_| + (define |gx[1]#_g87980_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g88001_| + (define |gx[1]#_g87983_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g88004_| + (define |gx[1]#_g87986_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g88007_| + (define |gx[1]#_g87989_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g88014_| + (define |gx[1]#_g87996_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g88017_| + (define |gx[1]#_g87999_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g88020_| + (define |gx[1]#_g88002_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g88023_| + (define |gx[1]#_g88005_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj86066 + (let ((__obj86048 (let () (declare (not safe)) (##structure @@ -3596,7 +3596,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86066 + __obj86048 '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! - __obj86066 + __obj86048 'expander-context '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3612,7 +3612,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86066 + __obj86048 '(id table) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -3620,7 +3620,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86066 + __obj86048 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -3628,7 +3628,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86066 + __obj86048 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3636,7 +3636,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86066 + __obj86048 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3644,7 +3644,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86066 + __obj86048 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3652,122 +3652,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86066 + __obj86048 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86148 |gx[1]#_g86149_|)) + (let ((__tmp86130 |gx[1]#_g86131_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86066 - __tmp86148 + __obj86048 + __tmp86130 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86150 |gx[1]#_g86151_|)) + (let ((__tmp86132 |gx[1]#_g86133_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86066 - __tmp86150 + __obj86048 + __tmp86132 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86152 |gx[1]#_g86153_|)) + (let ((__tmp86134 |gx[1]#_g86135_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86066 - __tmp86152 + __obj86048 + __tmp86134 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86154 - (let ((__tmp86159 - (let ((__tmp86160 |gx[1]#_g86161_|)) + (let ((__tmp86136 + (let ((__tmp86141 + (let ((__tmp86142 |gx[1]#_g86143_|)) (declare (not safe)) - (cons 'id __tmp86160))) - (__tmp86155 - (let ((__tmp86156 - (let ((__tmp86157 |gx[1]#_g86158_|)) + (cons 'id __tmp86142))) + (__tmp86137 + (let ((__tmp86138 + (let ((__tmp86139 |gx[1]#_g86140_|)) (declare (not safe)) - (cons 'table __tmp86157)))) + (cons 'table __tmp86139)))) (declare (not safe)) - (cons __tmp86156 '())))) + (cons __tmp86138 '())))) (declare (not safe)) - (cons __tmp86159 __tmp86155)))) + (cons __tmp86141 __tmp86137)))) (declare (not safe)) (##unchecked-structure-set! - __obj86066 - __tmp86154 + __obj86048 + __tmp86136 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86162 - (let ((__tmp86167 - (let ((__tmp86168 |gx[1]#_g86169_|)) + (let ((__tmp86144 + (let ((__tmp86149 + (let ((__tmp86150 |gx[1]#_g86151_|)) (declare (not safe)) - (cons 'id __tmp86168))) - (__tmp86163 - (let ((__tmp86164 - (let ((__tmp86165 |gx[1]#_g86166_|)) + (cons 'id __tmp86150))) + (__tmp86145 + (let ((__tmp86146 + (let ((__tmp86147 |gx[1]#_g86148_|)) (declare (not safe)) - (cons 'table __tmp86165)))) + (cons 'table __tmp86147)))) (declare (not safe)) - (cons __tmp86164 '())))) + (cons __tmp86146 '())))) (declare (not safe)) - (cons __tmp86167 __tmp86163)))) + (cons __tmp86149 __tmp86145)))) (declare (not safe)) (##unchecked-structure-set! - __obj86066 - __tmp86162 + __obj86048 + __tmp86144 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86170 - (let ((__tmp86175 - (let ((__tmp86176 |gx[1]#_g86177_|)) + (let ((__tmp86152 + (let ((__tmp86157 + (let ((__tmp86158 |gx[1]#_g86159_|)) (declare (not safe)) - (cons 'id __tmp86176))) - (__tmp86171 - (let ((__tmp86172 - (let ((__tmp86173 |gx[1]#_g86174_|)) + (cons 'id __tmp86158))) + (__tmp86153 + (let ((__tmp86154 + (let ((__tmp86155 |gx[1]#_g86156_|)) (declare (not safe)) - (cons 'table __tmp86173)))) + (cons 'table __tmp86155)))) (declare (not safe)) - (cons __tmp86172 '())))) + (cons __tmp86154 '())))) (declare (not safe)) - (cons __tmp86175 __tmp86171)))) + (cons __tmp86157 __tmp86153)))) (declare (not safe)) (##unchecked-structure-set! - __obj86066 - __tmp86170 + __obj86048 + __tmp86152 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86178 - (let ((__tmp86183 - (let ((__tmp86184 |gx[1]#_g86185_|)) + (let ((__tmp86160 + (let ((__tmp86165 + (let ((__tmp86166 |gx[1]#_g86167_|)) (declare (not safe)) - (cons 'id __tmp86184))) - (__tmp86179 - (let ((__tmp86180 - (let ((__tmp86181 |gx[1]#_g86182_|)) + (cons 'id __tmp86166))) + (__tmp86161 + (let ((__tmp86162 + (let ((__tmp86163 |gx[1]#_g86164_|)) (declare (not safe)) - (cons 'table __tmp86181)))) + (cons 'table __tmp86163)))) (declare (not safe)) - (cons __tmp86180 '())))) + (cons __tmp86162 '())))) (declare (not safe)) - (cons __tmp86183 __tmp86179)))) + (cons __tmp86165 __tmp86161)))) (declare (not safe)) (##unchecked-structure-set! - __obj86066 - __tmp86178 + __obj86048 + __tmp86160 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86066)) + __obj86048)) (define |gx[:0:]#root-context| - (let ((__obj86067 + (let ((__obj86049 (let () (declare (not safe)) (##structure @@ -3791,7 +3791,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86067 + __obj86049 '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! - __obj86067 + __obj86049 'root-context '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -3807,26 +3807,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86067 + __obj86049 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86186 - (let ((__tmp86187 |gx[1]#_g86188_|)) + (let ((__tmp86168 + (let ((__tmp86169 |gx[1]#_g86170_|)) (declare (not safe)) - (cons __tmp86187 '())))) + (cons __tmp86169 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86186 + __obj86049 + __tmp86168 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86067 + __obj86049 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -3834,7 +3834,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86067 + __obj86049 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -3842,7 +3842,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86067 + __obj86049 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -3850,122 +3850,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86067 + __obj86049 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86189 |gx[1]#_g86190_|)) + (let ((__tmp86171 |gx[1]#_g86172_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86189 + __obj86049 + __tmp86171 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86191 |gx[1]#_g86192_|)) + (let ((__tmp86173 |gx[1]#_g86174_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86191 + __obj86049 + __tmp86173 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86193 |gx[1]#_g86194_|)) + (let ((__tmp86175 |gx[1]#_g86176_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86193 + __obj86049 + __tmp86175 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86195 - (let ((__tmp86200 - (let ((__tmp86201 |gx[1]#_g86202_|)) + (let ((__tmp86177 + (let ((__tmp86182 + (let ((__tmp86183 |gx[1]#_g86184_|)) (declare (not safe)) - (cons 'id __tmp86201))) - (__tmp86196 - (let ((__tmp86197 - (let ((__tmp86198 |gx[1]#_g86199_|)) + (cons 'id __tmp86183))) + (__tmp86178 + (let ((__tmp86179 + (let ((__tmp86180 |gx[1]#_g86181_|)) (declare (not safe)) - (cons 'table __tmp86198)))) + (cons 'table __tmp86180)))) (declare (not safe)) - (cons __tmp86197 '())))) + (cons __tmp86179 '())))) (declare (not safe)) - (cons __tmp86200 __tmp86196)))) + (cons __tmp86182 __tmp86178)))) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86195 + __obj86049 + __tmp86177 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86203 - (let ((__tmp86208 - (let ((__tmp86209 |gx[1]#_g86210_|)) + (let ((__tmp86185 + (let ((__tmp86190 + (let ((__tmp86191 |gx[1]#_g86192_|)) (declare (not safe)) - (cons 'id __tmp86209))) - (__tmp86204 - (let ((__tmp86205 - (let ((__tmp86206 |gx[1]#_g86207_|)) + (cons 'id __tmp86191))) + (__tmp86186 + (let ((__tmp86187 + (let ((__tmp86188 |gx[1]#_g86189_|)) (declare (not safe)) - (cons 'table __tmp86206)))) + (cons 'table __tmp86188)))) (declare (not safe)) - (cons __tmp86205 '())))) + (cons __tmp86187 '())))) (declare (not safe)) - (cons __tmp86208 __tmp86204)))) + (cons __tmp86190 __tmp86186)))) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86203 + __obj86049 + __tmp86185 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86211 - (let ((__tmp86216 - (let ((__tmp86217 |gx[1]#_g86218_|)) + (let ((__tmp86193 + (let ((__tmp86198 + (let ((__tmp86199 |gx[1]#_g86200_|)) (declare (not safe)) - (cons 'id __tmp86217))) - (__tmp86212 - (let ((__tmp86213 - (let ((__tmp86214 |gx[1]#_g86215_|)) + (cons 'id __tmp86199))) + (__tmp86194 + (let ((__tmp86195 + (let ((__tmp86196 |gx[1]#_g86197_|)) (declare (not safe)) - (cons 'table __tmp86214)))) + (cons 'table __tmp86196)))) (declare (not safe)) - (cons __tmp86213 '())))) + (cons __tmp86195 '())))) (declare (not safe)) - (cons __tmp86216 __tmp86212)))) + (cons __tmp86198 __tmp86194)))) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86211 + __obj86049 + __tmp86193 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86219 - (let ((__tmp86224 - (let ((__tmp86225 |gx[1]#_g86226_|)) + (let ((__tmp86201 + (let ((__tmp86206 + (let ((__tmp86207 |gx[1]#_g86208_|)) (declare (not safe)) - (cons 'id __tmp86225))) - (__tmp86220 - (let ((__tmp86221 - (let ((__tmp86222 |gx[1]#_g86223_|)) + (cons 'id __tmp86207))) + (__tmp86202 + (let ((__tmp86203 + (let ((__tmp86204 |gx[1]#_g86205_|)) (declare (not safe)) - (cons 'table __tmp86222)))) + (cons 'table __tmp86204)))) (declare (not safe)) - (cons __tmp86221 '())))) + (cons __tmp86203 '())))) (declare (not safe)) - (cons __tmp86224 __tmp86220)))) + (cons __tmp86206 __tmp86202)))) (declare (not safe)) (##unchecked-structure-set! - __obj86067 - __tmp86219 + __obj86049 + __tmp86201 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86067)) + __obj86049)) (define |gx[:0:]#phi-context| - (let ((__obj86068 + (let ((__obj86050 (let () (declare (not safe)) (##structure @@ -3989,7 +3989,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86068 + __obj86050 '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! - __obj86068 + __obj86050 'phi-context '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4005,26 +4005,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86068 + __obj86050 '(super up down) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86227 - (let ((__tmp86228 |gx[1]#_g86188_|)) + (let ((__tmp86209 + (let ((__tmp86210 |gx[1]#_g86170_|)) (declare (not safe)) - (cons __tmp86228 '())))) + (cons __tmp86210 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86227 + __obj86050 + __tmp86209 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86068 + __obj86050 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4032,7 +4032,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86068 + __obj86050 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4040,7 +4040,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86068 + __obj86050 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4048,210 +4048,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86068 + __obj86050 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86229 |gx[1]#_g86230_|)) + (let ((__tmp86211 |gx[1]#_g86212_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86229 + __obj86050 + __tmp86211 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86231 |gx[1]#_g86232_|)) + (let ((__tmp86213 |gx[1]#_g86214_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86231 + __obj86050 + __tmp86213 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86233 |gx[1]#_g86234_|)) + (let ((__tmp86215 |gx[1]#_g86216_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86233 + __obj86050 + __tmp86215 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86235 - (let ((__tmp86252 - (let ((__tmp86253 |gx[1]#_g86254_|)) + (let ((__tmp86217 + (let ((__tmp86234 + (let ((__tmp86235 |gx[1]#_g86236_|)) (declare (not safe)) - (cons 'super __tmp86253))) - (__tmp86236 - (let ((__tmp86249 - (let ((__tmp86250 |gx[1]#_g86251_|)) + (cons 'super __tmp86235))) + (__tmp86218 + (let ((__tmp86231 + (let ((__tmp86232 |gx[1]#_g86233_|)) (declare (not safe)) - (cons 'up __tmp86250))) - (__tmp86237 - (let ((__tmp86246 - (let ((__tmp86247 |gx[1]#_g86248_|)) + (cons 'up __tmp86232))) + (__tmp86219 + (let ((__tmp86228 + (let ((__tmp86229 |gx[1]#_g86230_|)) (declare (not safe)) - (cons 'down __tmp86247))) - (__tmp86238 - (let ((__tmp86243 - (let ((__tmp86244 |gx[1]#_g86245_|)) + (cons 'down __tmp86229))) + (__tmp86220 + (let ((__tmp86225 + (let ((__tmp86226 |gx[1]#_g86227_|)) (declare (not safe)) - (cons 'id __tmp86244))) - (__tmp86239 - (let ((__tmp86240 - (let ((__tmp86241 - |gx[1]#_g86242_|)) + (cons 'id __tmp86226))) + (__tmp86221 + (let ((__tmp86222 + (let ((__tmp86223 + |gx[1]#_g86224_|)) (declare (not safe)) - (cons 'table __tmp86241)))) + (cons 'table __tmp86223)))) (declare (not safe)) - (cons __tmp86240 '())))) + (cons __tmp86222 '())))) (declare (not safe)) - (cons __tmp86243 __tmp86239)))) + (cons __tmp86225 __tmp86221)))) (declare (not safe)) - (cons __tmp86246 __tmp86238)))) + (cons __tmp86228 __tmp86220)))) (declare (not safe)) - (cons __tmp86249 __tmp86237)))) + (cons __tmp86231 __tmp86219)))) (declare (not safe)) - (cons __tmp86252 __tmp86236)))) + (cons __tmp86234 __tmp86218)))) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86235 + __obj86050 + __tmp86217 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86255 - (let ((__tmp86272 - (let ((__tmp86273 |gx[1]#_g86274_|)) + (let ((__tmp86237 + (let ((__tmp86254 + (let ((__tmp86255 |gx[1]#_g86256_|)) (declare (not safe)) - (cons 'super __tmp86273))) - (__tmp86256 - (let ((__tmp86269 - (let ((__tmp86270 |gx[1]#_g86271_|)) + (cons 'super __tmp86255))) + (__tmp86238 + (let ((__tmp86251 + (let ((__tmp86252 |gx[1]#_g86253_|)) (declare (not safe)) - (cons 'up __tmp86270))) - (__tmp86257 - (let ((__tmp86266 - (let ((__tmp86267 |gx[1]#_g86268_|)) + (cons 'up __tmp86252))) + (__tmp86239 + (let ((__tmp86248 + (let ((__tmp86249 |gx[1]#_g86250_|)) (declare (not safe)) - (cons 'down __tmp86267))) - (__tmp86258 - (let ((__tmp86263 - (let ((__tmp86264 |gx[1]#_g86265_|)) + (cons 'down __tmp86249))) + (__tmp86240 + (let ((__tmp86245 + (let ((__tmp86246 |gx[1]#_g86247_|)) (declare (not safe)) - (cons 'id __tmp86264))) - (__tmp86259 - (let ((__tmp86260 - (let ((__tmp86261 - |gx[1]#_g86262_|)) + (cons 'id __tmp86246))) + (__tmp86241 + (let ((__tmp86242 + (let ((__tmp86243 + |gx[1]#_g86244_|)) (declare (not safe)) - (cons 'table __tmp86261)))) + (cons 'table __tmp86243)))) (declare (not safe)) - (cons __tmp86260 '())))) + (cons __tmp86242 '())))) (declare (not safe)) - (cons __tmp86263 __tmp86259)))) + (cons __tmp86245 __tmp86241)))) (declare (not safe)) - (cons __tmp86266 __tmp86258)))) + (cons __tmp86248 __tmp86240)))) (declare (not safe)) - (cons __tmp86269 __tmp86257)))) + (cons __tmp86251 __tmp86239)))) (declare (not safe)) - (cons __tmp86272 __tmp86256)))) + (cons __tmp86254 __tmp86238)))) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86255 + __obj86050 + __tmp86237 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86275 - (let ((__tmp86292 - (let ((__tmp86293 |gx[1]#_g86294_|)) + (let ((__tmp86257 + (let ((__tmp86274 + (let ((__tmp86275 |gx[1]#_g86276_|)) (declare (not safe)) - (cons 'super __tmp86293))) - (__tmp86276 - (let ((__tmp86289 - (let ((__tmp86290 |gx[1]#_g86291_|)) + (cons 'super __tmp86275))) + (__tmp86258 + (let ((__tmp86271 + (let ((__tmp86272 |gx[1]#_g86273_|)) (declare (not safe)) - (cons 'up __tmp86290))) - (__tmp86277 - (let ((__tmp86286 - (let ((__tmp86287 |gx[1]#_g86288_|)) + (cons 'up __tmp86272))) + (__tmp86259 + (let ((__tmp86268 + (let ((__tmp86269 |gx[1]#_g86270_|)) (declare (not safe)) - (cons 'down __tmp86287))) - (__tmp86278 - (let ((__tmp86283 - (let ((__tmp86284 |gx[1]#_g86285_|)) + (cons 'down __tmp86269))) + (__tmp86260 + (let ((__tmp86265 + (let ((__tmp86266 |gx[1]#_g86267_|)) (declare (not safe)) - (cons 'id __tmp86284))) - (__tmp86279 - (let ((__tmp86280 - (let ((__tmp86281 - |gx[1]#_g86282_|)) + (cons 'id __tmp86266))) + (__tmp86261 + (let ((__tmp86262 + (let ((__tmp86263 + |gx[1]#_g86264_|)) (declare (not safe)) - (cons 'table __tmp86281)))) + (cons 'table __tmp86263)))) (declare (not safe)) - (cons __tmp86280 '())))) + (cons __tmp86262 '())))) (declare (not safe)) - (cons __tmp86283 __tmp86279)))) + (cons __tmp86265 __tmp86261)))) (declare (not safe)) - (cons __tmp86286 __tmp86278)))) + (cons __tmp86268 __tmp86260)))) (declare (not safe)) - (cons __tmp86289 __tmp86277)))) + (cons __tmp86271 __tmp86259)))) (declare (not safe)) - (cons __tmp86292 __tmp86276)))) + (cons __tmp86274 __tmp86258)))) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86275 + __obj86050 + __tmp86257 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86295 - (let ((__tmp86312 - (let ((__tmp86313 |gx[1]#_g86314_|)) + (let ((__tmp86277 + (let ((__tmp86294 + (let ((__tmp86295 |gx[1]#_g86296_|)) (declare (not safe)) - (cons 'super __tmp86313))) - (__tmp86296 - (let ((__tmp86309 - (let ((__tmp86310 |gx[1]#_g86311_|)) + (cons 'super __tmp86295))) + (__tmp86278 + (let ((__tmp86291 + (let ((__tmp86292 |gx[1]#_g86293_|)) (declare (not safe)) - (cons 'up __tmp86310))) - (__tmp86297 - (let ((__tmp86306 - (let ((__tmp86307 |gx[1]#_g86308_|)) + (cons 'up __tmp86292))) + (__tmp86279 + (let ((__tmp86288 + (let ((__tmp86289 |gx[1]#_g86290_|)) (declare (not safe)) - (cons 'down __tmp86307))) - (__tmp86298 - (let ((__tmp86303 - (let ((__tmp86304 |gx[1]#_g86305_|)) + (cons 'down __tmp86289))) + (__tmp86280 + (let ((__tmp86285 + (let ((__tmp86286 |gx[1]#_g86287_|)) (declare (not safe)) - (cons 'id __tmp86304))) - (__tmp86299 - (let ((__tmp86300 - (let ((__tmp86301 - |gx[1]#_g86302_|)) + (cons 'id __tmp86286))) + (__tmp86281 + (let ((__tmp86282 + (let ((__tmp86283 + |gx[1]#_g86284_|)) (declare (not safe)) - (cons 'table __tmp86301)))) + (cons 'table __tmp86283)))) (declare (not safe)) - (cons __tmp86300 '())))) + (cons __tmp86282 '())))) (declare (not safe)) - (cons __tmp86303 __tmp86299)))) + (cons __tmp86285 __tmp86281)))) (declare (not safe)) - (cons __tmp86306 __tmp86298)))) + (cons __tmp86288 __tmp86280)))) (declare (not safe)) - (cons __tmp86309 __tmp86297)))) + (cons __tmp86291 __tmp86279)))) (declare (not safe)) - (cons __tmp86312 __tmp86296)))) + (cons __tmp86294 __tmp86278)))) (declare (not safe)) (##unchecked-structure-set! - __obj86068 - __tmp86295 + __obj86050 + __tmp86277 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86068)) + __obj86050)) (define |gx[:0:]#top-context| - (let ((__obj86069 + (let ((__obj86051 (let () (declare (not safe)) (##structure @@ -4275,7 +4275,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86069 + __obj86051 '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! - __obj86069 + __obj86051 'top-context '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4291,26 +4291,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86069 + __obj86051 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86315 - (let ((__tmp86316 |gx[1]#_g86317_|)) + (let ((__tmp86297 + (let ((__tmp86298 |gx[1]#_g86299_|)) (declare (not safe)) - (cons __tmp86316 '())))) + (cons __tmp86298 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86069 - __tmp86315 + __obj86051 + __tmp86297 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86069 + __obj86051 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4318,7 +4318,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86069 + __obj86051 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4326,7 +4326,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86069 + __obj86051 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4334,210 +4334,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86069 + __obj86051 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86318 |gx[1]#_g86319_|)) + (let ((__tmp86300 |gx[1]#_g86301_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86069 - __tmp86318 + __obj86051 + __tmp86300 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86320 |gx[1]#_g86321_|)) + (let ((__tmp86302 |gx[1]#_g86303_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86069 - __tmp86320 + __obj86051 + __tmp86302 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86322 |gx[1]#_g86323_|)) + (let ((__tmp86304 |gx[1]#_g86305_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86069 - __tmp86322 + __obj86051 + __tmp86304 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86324 - (let ((__tmp86341 - (let ((__tmp86342 |gx[1]#_g86343_|)) + (let ((__tmp86306 + (let ((__tmp86323 + (let ((__tmp86324 |gx[1]#_g86325_|)) (declare (not safe)) - (cons 'super __tmp86342))) - (__tmp86325 - (let ((__tmp86338 - (let ((__tmp86339 |gx[1]#_g86340_|)) + (cons 'super __tmp86324))) + (__tmp86307 + (let ((__tmp86320 + (let ((__tmp86321 |gx[1]#_g86322_|)) (declare (not safe)) - (cons 'up __tmp86339))) - (__tmp86326 - (let ((__tmp86335 - (let ((__tmp86336 |gx[1]#_g86337_|)) + (cons 'up __tmp86321))) + (__tmp86308 + (let ((__tmp86317 + (let ((__tmp86318 |gx[1]#_g86319_|)) (declare (not safe)) - (cons 'down __tmp86336))) - (__tmp86327 - (let ((__tmp86332 - (let ((__tmp86333 |gx[1]#_g86334_|)) + (cons 'down __tmp86318))) + (__tmp86309 + (let ((__tmp86314 + (let ((__tmp86315 |gx[1]#_g86316_|)) (declare (not safe)) - (cons 'id __tmp86333))) - (__tmp86328 - (let ((__tmp86329 - (let ((__tmp86330 - |gx[1]#_g86331_|)) + (cons 'id __tmp86315))) + (__tmp86310 + (let ((__tmp86311 + (let ((__tmp86312 + |gx[1]#_g86313_|)) (declare (not safe)) - (cons 'table __tmp86330)))) + (cons 'table __tmp86312)))) (declare (not safe)) - (cons __tmp86329 '())))) + (cons __tmp86311 '())))) (declare (not safe)) - (cons __tmp86332 __tmp86328)))) + (cons __tmp86314 __tmp86310)))) (declare (not safe)) - (cons __tmp86335 __tmp86327)))) + (cons __tmp86317 __tmp86309)))) (declare (not safe)) - (cons __tmp86338 __tmp86326)))) + (cons __tmp86320 __tmp86308)))) (declare (not safe)) - (cons __tmp86341 __tmp86325)))) + (cons __tmp86323 __tmp86307)))) (declare (not safe)) (##unchecked-structure-set! - __obj86069 - __tmp86324 + __obj86051 + __tmp86306 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86344 - (let ((__tmp86361 - (let ((__tmp86362 |gx[1]#_g86363_|)) + (let ((__tmp86326 + (let ((__tmp86343 + (let ((__tmp86344 |gx[1]#_g86345_|)) (declare (not safe)) - (cons 'super __tmp86362))) - (__tmp86345 - (let ((__tmp86358 - (let ((__tmp86359 |gx[1]#_g86360_|)) + (cons 'super __tmp86344))) + (__tmp86327 + (let ((__tmp86340 + (let ((__tmp86341 |gx[1]#_g86342_|)) (declare (not safe)) - (cons 'up __tmp86359))) - (__tmp86346 - (let ((__tmp86355 - (let ((__tmp86356 |gx[1]#_g86357_|)) + (cons 'up __tmp86341))) + (__tmp86328 + (let ((__tmp86337 + (let ((__tmp86338 |gx[1]#_g86339_|)) (declare (not safe)) - (cons 'down __tmp86356))) - (__tmp86347 - (let ((__tmp86352 - (let ((__tmp86353 |gx[1]#_g86354_|)) + (cons 'down __tmp86338))) + (__tmp86329 + (let ((__tmp86334 + (let ((__tmp86335 |gx[1]#_g86336_|)) (declare (not safe)) - (cons 'id __tmp86353))) - (__tmp86348 - (let ((__tmp86349 - (let ((__tmp86350 - |gx[1]#_g86351_|)) + (cons 'id __tmp86335))) + (__tmp86330 + (let ((__tmp86331 + (let ((__tmp86332 + |gx[1]#_g86333_|)) (declare (not safe)) - (cons 'table __tmp86350)))) + (cons 'table __tmp86332)))) (declare (not safe)) - (cons __tmp86349 '())))) + (cons __tmp86331 '())))) (declare (not safe)) - (cons __tmp86352 __tmp86348)))) + (cons __tmp86334 __tmp86330)))) (declare (not safe)) - (cons __tmp86355 __tmp86347)))) + (cons __tmp86337 __tmp86329)))) (declare (not safe)) - (cons __tmp86358 __tmp86346)))) + (cons __tmp86340 __tmp86328)))) (declare (not safe)) - (cons __tmp86361 __tmp86345)))) + (cons __tmp86343 __tmp86327)))) (declare (not safe)) (##unchecked-structure-set! - __obj86069 - __tmp86344 + __obj86051 + __tmp86326 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86364 - (let ((__tmp86381 - (let ((__tmp86382 |gx[1]#_g86383_|)) + (let ((__tmp86346 + (let ((__tmp86363 + (let ((__tmp86364 |gx[1]#_g86365_|)) (declare (not safe)) - (cons 'super __tmp86382))) - (__tmp86365 - (let ((__tmp86378 - (let ((__tmp86379 |gx[1]#_g86380_|)) + (cons 'super __tmp86364))) + (__tmp86347 + (let ((__tmp86360 + (let ((__tmp86361 |gx[1]#_g86362_|)) (declare (not safe)) - (cons 'up __tmp86379))) - (__tmp86366 - (let ((__tmp86375 - (let ((__tmp86376 |gx[1]#_g86377_|)) + (cons 'up __tmp86361))) + (__tmp86348 + (let ((__tmp86357 + (let ((__tmp86358 |gx[1]#_g86359_|)) (declare (not safe)) - (cons 'down __tmp86376))) - (__tmp86367 - (let ((__tmp86372 - (let ((__tmp86373 |gx[1]#_g86374_|)) + (cons 'down __tmp86358))) + (__tmp86349 + (let ((__tmp86354 + (let ((__tmp86355 |gx[1]#_g86356_|)) (declare (not safe)) - (cons 'id __tmp86373))) - (__tmp86368 - (let ((__tmp86369 - (let ((__tmp86370 - |gx[1]#_g86371_|)) + (cons 'id __tmp86355))) + (__tmp86350 + (let ((__tmp86351 + (let ((__tmp86352 + |gx[1]#_g86353_|)) (declare (not safe)) - (cons 'table __tmp86370)))) + (cons 'table __tmp86352)))) (declare (not safe)) - (cons __tmp86369 '())))) + (cons __tmp86351 '())))) (declare (not safe)) - (cons __tmp86372 __tmp86368)))) + (cons __tmp86354 __tmp86350)))) (declare (not safe)) - (cons __tmp86375 __tmp86367)))) + (cons __tmp86357 __tmp86349)))) (declare (not safe)) - (cons __tmp86378 __tmp86366)))) + (cons __tmp86360 __tmp86348)))) (declare (not safe)) - (cons __tmp86381 __tmp86365)))) + (cons __tmp86363 __tmp86347)))) (declare (not safe)) (##unchecked-structure-set! - __obj86069 - __tmp86364 + __obj86051 + __tmp86346 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86384 - (let ((__tmp86401 - (let ((__tmp86402 |gx[1]#_g86403_|)) + (let ((__tmp86366 + (let ((__tmp86383 + (let ((__tmp86384 |gx[1]#_g86385_|)) (declare (not safe)) - (cons 'super __tmp86402))) - (__tmp86385 - (let ((__tmp86398 - (let ((__tmp86399 |gx[1]#_g86400_|)) + (cons 'super __tmp86384))) + (__tmp86367 + (let ((__tmp86380 + (let ((__tmp86381 |gx[1]#_g86382_|)) (declare (not safe)) - (cons 'up __tmp86399))) - (__tmp86386 - (let ((__tmp86395 - (let ((__tmp86396 |gx[1]#_g86397_|)) + (cons 'up __tmp86381))) + (__tmp86368 + (let ((__tmp86377 + (let ((__tmp86378 |gx[1]#_g86379_|)) (declare (not safe)) - (cons 'down __tmp86396))) - (__tmp86387 - (let ((__tmp86392 - (let ((__tmp86393 |gx[1]#_g86394_|)) + (cons 'down __tmp86378))) + (__tmp86369 + (let ((__tmp86374 + (let ((__tmp86375 |gx[1]#_g86376_|)) (declare (not safe)) - (cons 'id __tmp86393))) - (__tmp86388 - (let ((__tmp86389 - (let ((__tmp86390 - |gx[1]#_g86391_|)) + (cons 'id __tmp86375))) + (__tmp86370 + (let ((__tmp86371 + (let ((__tmp86372 + |gx[1]#_g86373_|)) (declare (not safe)) - (cons 'table __tmp86390)))) + (cons 'table __tmp86372)))) (declare (not safe)) - (cons __tmp86389 '())))) + (cons __tmp86371 '())))) (declare (not safe)) - (cons __tmp86392 __tmp86388)))) + (cons __tmp86374 __tmp86370)))) (declare (not safe)) - (cons __tmp86395 __tmp86387)))) + (cons __tmp86377 __tmp86369)))) (declare (not safe)) - (cons __tmp86398 __tmp86386)))) + (cons __tmp86380 __tmp86368)))) (declare (not safe)) - (cons __tmp86401 __tmp86385)))) + (cons __tmp86383 __tmp86367)))) (declare (not safe)) (##unchecked-structure-set! - __obj86069 - __tmp86384 + __obj86051 + __tmp86366 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86069)) + __obj86051)) (define |gx[:0:]#module-context| - (let ((__obj86070 + (let ((__obj86052 (let () (declare (not safe)) (##structure @@ -4561,7 +4561,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86070 + __obj86052 '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! - __obj86070 + __obj86052 'module-context '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -4577,26 +4577,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86070 + __obj86052 '(ns path import export e code) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86404 - (let ((__tmp86405 |gx[1]#_g86406_|)) + (let ((__tmp86386 + (let ((__tmp86387 |gx[1]#_g86388_|)) (declare (not safe)) - (cons __tmp86405 '())))) + (cons __tmp86387 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86404 + __obj86052 + __tmp86386 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86070 + __obj86052 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -4604,7 +4604,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86070 + __obj86052 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -4612,7 +4612,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86070 + __obj86052 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -4620,410 +4620,410 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86070 + __obj86052 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86407 |gx[1]#_g86408_|)) + (let ((__tmp86389 |gx[1]#_g86390_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86407 + __obj86052 + __tmp86389 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86409 |gx[1]#_g86410_|)) + (let ((__tmp86391 |gx[1]#_g86392_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86409 + __obj86052 + __tmp86391 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86411 |gx[1]#_g86412_|)) + (let ((__tmp86393 |gx[1]#_g86394_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86411 + __obj86052 + __tmp86393 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86413 - (let ((__tmp86454 - (let ((__tmp86455 |gx[1]#_g86456_|)) + (let ((__tmp86395 + (let ((__tmp86436 + (let ((__tmp86437 |gx[1]#_g86438_|)) (declare (not safe)) - (cons 'ns __tmp86455))) - (__tmp86414 - (let ((__tmp86451 - (let ((__tmp86452 |gx[1]#_g86453_|)) + (cons 'ns __tmp86437))) + (__tmp86396 + (let ((__tmp86433 + (let ((__tmp86434 |gx[1]#_g86435_|)) (declare (not safe)) - (cons 'path __tmp86452))) - (__tmp86415 - (let ((__tmp86448 - (let ((__tmp86449 |gx[1]#_g86450_|)) + (cons 'path __tmp86434))) + (__tmp86397 + (let ((__tmp86430 + (let ((__tmp86431 |gx[1]#_g86432_|)) (declare (not safe)) - (cons 'import __tmp86449))) - (__tmp86416 - (let ((__tmp86445 - (let ((__tmp86446 |gx[1]#_g86447_|)) + (cons 'import __tmp86431))) + (__tmp86398 + (let ((__tmp86427 + (let ((__tmp86428 |gx[1]#_g86429_|)) (declare (not safe)) - (cons 'export __tmp86446))) - (__tmp86417 - (let ((__tmp86442 - (let ((__tmp86443 - |gx[1]#_g86444_|)) + (cons 'export __tmp86428))) + (__tmp86399 + (let ((__tmp86424 + (let ((__tmp86425 + |gx[1]#_g86426_|)) (declare (not safe)) - (cons 'e __tmp86443))) - (__tmp86418 - (let ((__tmp86439 - (let ((__tmp86440 - |gx[1]#_g86441_|)) + (cons 'e __tmp86425))) + (__tmp86400 + (let ((__tmp86421 + (let ((__tmp86422 + |gx[1]#_g86423_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86440))) - (__tmp86419 - (let ((__tmp86436 - (let ((__tmp86437 |gx[1]#_g86438_|)) + __tmp86422))) + (__tmp86401 + (let ((__tmp86418 + (let ((__tmp86419 |gx[1]#_g86420_|)) (declare (not safe)) - (cons 'super __tmp86437))) - (__tmp86420 - (let ((__tmp86433 - (let ((__tmp86434 |gx[1]#_g86435_|)) + (cons 'super __tmp86419))) + (__tmp86402 + (let ((__tmp86415 + (let ((__tmp86416 |gx[1]#_g86417_|)) (declare (not safe)) - (cons 'up __tmp86434))) - (__tmp86421 - (let ((__tmp86430 - (let ((__tmp86431 |gx[1]#_g86432_|)) + (cons 'up __tmp86416))) + (__tmp86403 + (let ((__tmp86412 + (let ((__tmp86413 |gx[1]#_g86414_|)) (declare (not safe)) - (cons 'down __tmp86431))) - (__tmp86422 - (let ((__tmp86427 - (let ((__tmp86428 - |gx[1]#_g86429_|)) + (cons 'down __tmp86413))) + (__tmp86404 + (let ((__tmp86409 + (let ((__tmp86410 + |gx[1]#_g86411_|)) (declare (not safe)) - (cons 'id __tmp86428))) - (__tmp86423 - (let ((__tmp86424 - (let ((__tmp86425 - |gx[1]#_g86426_|)) + (cons 'id __tmp86410))) + (__tmp86405 + (let ((__tmp86406 + (let ((__tmp86407 + |gx[1]#_g86408_|)) (declare (not safe)) (cons 'table - __tmp86425)))) + __tmp86407)))) (declare (not safe)) - (cons __tmp86424 '())))) + (cons __tmp86406 '())))) (declare (not safe)) - (cons __tmp86427 __tmp86423)))) + (cons __tmp86409 __tmp86405)))) (declare (not safe)) - (cons __tmp86430 __tmp86422)))) + (cons __tmp86412 __tmp86404)))) (declare (not safe)) - (cons __tmp86433 __tmp86421)))) + (cons __tmp86415 __tmp86403)))) (declare (not safe)) - (cons __tmp86436 __tmp86420)))) + (cons __tmp86418 __tmp86402)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86439 - __tmp86419)))) + (cons __tmp86421 + __tmp86401)))) (declare (not safe)) - (cons __tmp86442 __tmp86418)))) + (cons __tmp86424 __tmp86400)))) (declare (not safe)) - (cons __tmp86445 __tmp86417)))) + (cons __tmp86427 __tmp86399)))) (declare (not safe)) - (cons __tmp86448 __tmp86416)))) + (cons __tmp86430 __tmp86398)))) (declare (not safe)) - (cons __tmp86451 __tmp86415)))) + (cons __tmp86433 __tmp86397)))) (declare (not safe)) - (cons __tmp86454 __tmp86414)))) + (cons __tmp86436 __tmp86396)))) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86413 + __obj86052 + __tmp86395 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86457 - (let ((__tmp86498 - (let ((__tmp86499 |gx[1]#_g86500_|)) + (let ((__tmp86439 + (let ((__tmp86480 + (let ((__tmp86481 |gx[1]#_g86482_|)) (declare (not safe)) - (cons 'ns __tmp86499))) - (__tmp86458 - (let ((__tmp86495 - (let ((__tmp86496 |gx[1]#_g86497_|)) + (cons 'ns __tmp86481))) + (__tmp86440 + (let ((__tmp86477 + (let ((__tmp86478 |gx[1]#_g86479_|)) (declare (not safe)) - (cons 'path __tmp86496))) - (__tmp86459 - (let ((__tmp86492 - (let ((__tmp86493 |gx[1]#_g86494_|)) + (cons 'path __tmp86478))) + (__tmp86441 + (let ((__tmp86474 + (let ((__tmp86475 |gx[1]#_g86476_|)) (declare (not safe)) - (cons 'import __tmp86493))) - (__tmp86460 - (let ((__tmp86489 - (let ((__tmp86490 |gx[1]#_g86491_|)) + (cons 'import __tmp86475))) + (__tmp86442 + (let ((__tmp86471 + (let ((__tmp86472 |gx[1]#_g86473_|)) (declare (not safe)) - (cons 'export __tmp86490))) - (__tmp86461 - (let ((__tmp86486 - (let ((__tmp86487 - |gx[1]#_g86488_|)) + (cons 'export __tmp86472))) + (__tmp86443 + (let ((__tmp86468 + (let ((__tmp86469 + |gx[1]#_g86470_|)) (declare (not safe)) - (cons 'e __tmp86487))) - (__tmp86462 - (let ((__tmp86483 - (let ((__tmp86484 - |gx[1]#_g86485_|)) + (cons 'e __tmp86469))) + (__tmp86444 + (let ((__tmp86465 + (let ((__tmp86466 + |gx[1]#_g86467_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86484))) - (__tmp86463 - (let ((__tmp86480 - (let ((__tmp86481 |gx[1]#_g86482_|)) + __tmp86466))) + (__tmp86445 + (let ((__tmp86462 + (let ((__tmp86463 |gx[1]#_g86464_|)) (declare (not safe)) - (cons 'super __tmp86481))) - (__tmp86464 - (let ((__tmp86477 - (let ((__tmp86478 |gx[1]#_g86479_|)) + (cons 'super __tmp86463))) + (__tmp86446 + (let ((__tmp86459 + (let ((__tmp86460 |gx[1]#_g86461_|)) (declare (not safe)) - (cons 'up __tmp86478))) - (__tmp86465 - (let ((__tmp86474 - (let ((__tmp86475 |gx[1]#_g86476_|)) + (cons 'up __tmp86460))) + (__tmp86447 + (let ((__tmp86456 + (let ((__tmp86457 |gx[1]#_g86458_|)) (declare (not safe)) - (cons 'down __tmp86475))) - (__tmp86466 - (let ((__tmp86471 - (let ((__tmp86472 - |gx[1]#_g86473_|)) + (cons 'down __tmp86457))) + (__tmp86448 + (let ((__tmp86453 + (let ((__tmp86454 + |gx[1]#_g86455_|)) (declare (not safe)) - (cons 'id __tmp86472))) - (__tmp86467 - (let ((__tmp86468 - (let ((__tmp86469 - |gx[1]#_g86470_|)) + (cons 'id __tmp86454))) + (__tmp86449 + (let ((__tmp86450 + (let ((__tmp86451 + |gx[1]#_g86452_|)) (declare (not safe)) (cons 'table - __tmp86469)))) + __tmp86451)))) (declare (not safe)) - (cons __tmp86468 '())))) + (cons __tmp86450 '())))) (declare (not safe)) - (cons __tmp86471 __tmp86467)))) + (cons __tmp86453 __tmp86449)))) (declare (not safe)) - (cons __tmp86474 __tmp86466)))) + (cons __tmp86456 __tmp86448)))) (declare (not safe)) - (cons __tmp86477 __tmp86465)))) + (cons __tmp86459 __tmp86447)))) (declare (not safe)) - (cons __tmp86480 __tmp86464)))) + (cons __tmp86462 __tmp86446)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86483 - __tmp86463)))) + (cons __tmp86465 + __tmp86445)))) (declare (not safe)) - (cons __tmp86486 __tmp86462)))) + (cons __tmp86468 __tmp86444)))) (declare (not safe)) - (cons __tmp86489 __tmp86461)))) + (cons __tmp86471 __tmp86443)))) (declare (not safe)) - (cons __tmp86492 __tmp86460)))) + (cons __tmp86474 __tmp86442)))) (declare (not safe)) - (cons __tmp86495 __tmp86459)))) + (cons __tmp86477 __tmp86441)))) (declare (not safe)) - (cons __tmp86498 __tmp86458)))) + (cons __tmp86480 __tmp86440)))) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86457 + __obj86052 + __tmp86439 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86501 - (let ((__tmp86542 - (let ((__tmp86543 |gx[1]#_g86544_|)) + (let ((__tmp86483 + (let ((__tmp86524 + (let ((__tmp86525 |gx[1]#_g86526_|)) (declare (not safe)) - (cons 'ns __tmp86543))) - (__tmp86502 - (let ((__tmp86539 - (let ((__tmp86540 |gx[1]#_g86541_|)) + (cons 'ns __tmp86525))) + (__tmp86484 + (let ((__tmp86521 + (let ((__tmp86522 |gx[1]#_g86523_|)) (declare (not safe)) - (cons 'path __tmp86540))) - (__tmp86503 - (let ((__tmp86536 - (let ((__tmp86537 |gx[1]#_g86538_|)) + (cons 'path __tmp86522))) + (__tmp86485 + (let ((__tmp86518 + (let ((__tmp86519 |gx[1]#_g86520_|)) (declare (not safe)) - (cons 'import __tmp86537))) - (__tmp86504 - (let ((__tmp86533 - (let ((__tmp86534 |gx[1]#_g86535_|)) + (cons 'import __tmp86519))) + (__tmp86486 + (let ((__tmp86515 + (let ((__tmp86516 |gx[1]#_g86517_|)) (declare (not safe)) - (cons 'export __tmp86534))) - (__tmp86505 - (let ((__tmp86530 - (let ((__tmp86531 - |gx[1]#_g86532_|)) + (cons 'export __tmp86516))) + (__tmp86487 + (let ((__tmp86512 + (let ((__tmp86513 + |gx[1]#_g86514_|)) (declare (not safe)) - (cons 'e __tmp86531))) - (__tmp86506 - (let ((__tmp86527 - (let ((__tmp86528 - |gx[1]#_g86529_|)) + (cons 'e __tmp86513))) + (__tmp86488 + (let ((__tmp86509 + (let ((__tmp86510 + |gx[1]#_g86511_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86528))) - (__tmp86507 - (let ((__tmp86524 - (let ((__tmp86525 |gx[1]#_g86526_|)) + __tmp86510))) + (__tmp86489 + (let ((__tmp86506 + (let ((__tmp86507 |gx[1]#_g86508_|)) (declare (not safe)) - (cons 'super __tmp86525))) - (__tmp86508 - (let ((__tmp86521 - (let ((__tmp86522 |gx[1]#_g86523_|)) + (cons 'super __tmp86507))) + (__tmp86490 + (let ((__tmp86503 + (let ((__tmp86504 |gx[1]#_g86505_|)) (declare (not safe)) - (cons 'up __tmp86522))) - (__tmp86509 - (let ((__tmp86518 - (let ((__tmp86519 |gx[1]#_g86520_|)) + (cons 'up __tmp86504))) + (__tmp86491 + (let ((__tmp86500 + (let ((__tmp86501 |gx[1]#_g86502_|)) (declare (not safe)) - (cons 'down __tmp86519))) - (__tmp86510 - (let ((__tmp86515 - (let ((__tmp86516 - |gx[1]#_g86517_|)) + (cons 'down __tmp86501))) + (__tmp86492 + (let ((__tmp86497 + (let ((__tmp86498 + |gx[1]#_g86499_|)) (declare (not safe)) - (cons 'id __tmp86516))) - (__tmp86511 - (let ((__tmp86512 - (let ((__tmp86513 - |gx[1]#_g86514_|)) + (cons 'id __tmp86498))) + (__tmp86493 + (let ((__tmp86494 + (let ((__tmp86495 + |gx[1]#_g86496_|)) (declare (not safe)) (cons 'table - __tmp86513)))) + __tmp86495)))) (declare (not safe)) - (cons __tmp86512 '())))) + (cons __tmp86494 '())))) (declare (not safe)) - (cons __tmp86515 __tmp86511)))) + (cons __tmp86497 __tmp86493)))) (declare (not safe)) - (cons __tmp86518 __tmp86510)))) + (cons __tmp86500 __tmp86492)))) (declare (not safe)) - (cons __tmp86521 __tmp86509)))) + (cons __tmp86503 __tmp86491)))) (declare (not safe)) - (cons __tmp86524 __tmp86508)))) + (cons __tmp86506 __tmp86490)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86527 - __tmp86507)))) + (cons __tmp86509 + __tmp86489)))) (declare (not safe)) - (cons __tmp86530 __tmp86506)))) + (cons __tmp86512 __tmp86488)))) (declare (not safe)) - (cons __tmp86533 __tmp86505)))) + (cons __tmp86515 __tmp86487)))) (declare (not safe)) - (cons __tmp86536 __tmp86504)))) + (cons __tmp86518 __tmp86486)))) (declare (not safe)) - (cons __tmp86539 __tmp86503)))) + (cons __tmp86521 __tmp86485)))) (declare (not safe)) - (cons __tmp86542 __tmp86502)))) + (cons __tmp86524 __tmp86484)))) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86501 + __obj86052 + __tmp86483 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86545 - (let ((__tmp86586 - (let ((__tmp86587 |gx[1]#_g86588_|)) + (let ((__tmp86527 + (let ((__tmp86568 + (let ((__tmp86569 |gx[1]#_g86570_|)) (declare (not safe)) - (cons 'ns __tmp86587))) - (__tmp86546 - (let ((__tmp86583 - (let ((__tmp86584 |gx[1]#_g86585_|)) + (cons 'ns __tmp86569))) + (__tmp86528 + (let ((__tmp86565 + (let ((__tmp86566 |gx[1]#_g86567_|)) (declare (not safe)) - (cons 'path __tmp86584))) - (__tmp86547 - (let ((__tmp86580 - (let ((__tmp86581 |gx[1]#_g86582_|)) + (cons 'path __tmp86566))) + (__tmp86529 + (let ((__tmp86562 + (let ((__tmp86563 |gx[1]#_g86564_|)) (declare (not safe)) - (cons 'import __tmp86581))) - (__tmp86548 - (let ((__tmp86577 - (let ((__tmp86578 |gx[1]#_g86579_|)) + (cons 'import __tmp86563))) + (__tmp86530 + (let ((__tmp86559 + (let ((__tmp86560 |gx[1]#_g86561_|)) (declare (not safe)) - (cons 'export __tmp86578))) - (__tmp86549 - (let ((__tmp86574 - (let ((__tmp86575 - |gx[1]#_g86576_|)) + (cons 'export __tmp86560))) + (__tmp86531 + (let ((__tmp86556 + (let ((__tmp86557 + |gx[1]#_g86558_|)) (declare (not safe)) - (cons 'e __tmp86575))) - (__tmp86550 - (let ((__tmp86571 - (let ((__tmp86572 - |gx[1]#_g86573_|)) + (cons 'e __tmp86557))) + (__tmp86532 + (let ((__tmp86553 + (let ((__tmp86554 + |gx[1]#_g86555_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86572))) - (__tmp86551 - (let ((__tmp86568 - (let ((__tmp86569 |gx[1]#_g86570_|)) + __tmp86554))) + (__tmp86533 + (let ((__tmp86550 + (let ((__tmp86551 |gx[1]#_g86552_|)) (declare (not safe)) - (cons 'super __tmp86569))) - (__tmp86552 - (let ((__tmp86565 - (let ((__tmp86566 |gx[1]#_g86567_|)) + (cons 'super __tmp86551))) + (__tmp86534 + (let ((__tmp86547 + (let ((__tmp86548 |gx[1]#_g86549_|)) (declare (not safe)) - (cons 'up __tmp86566))) - (__tmp86553 - (let ((__tmp86562 - (let ((__tmp86563 |gx[1]#_g86564_|)) + (cons 'up __tmp86548))) + (__tmp86535 + (let ((__tmp86544 + (let ((__tmp86545 |gx[1]#_g86546_|)) (declare (not safe)) - (cons 'down __tmp86563))) - (__tmp86554 - (let ((__tmp86559 - (let ((__tmp86560 - |gx[1]#_g86561_|)) + (cons 'down __tmp86545))) + (__tmp86536 + (let ((__tmp86541 + (let ((__tmp86542 + |gx[1]#_g86543_|)) (declare (not safe)) - (cons 'id __tmp86560))) - (__tmp86555 - (let ((__tmp86556 - (let ((__tmp86557 - |gx[1]#_g86558_|)) + (cons 'id __tmp86542))) + (__tmp86537 + (let ((__tmp86538 + (let ((__tmp86539 + |gx[1]#_g86540_|)) (declare (not safe)) (cons 'table - __tmp86557)))) + __tmp86539)))) (declare (not safe)) - (cons __tmp86556 '())))) + (cons __tmp86538 '())))) (declare (not safe)) - (cons __tmp86559 __tmp86555)))) + (cons __tmp86541 __tmp86537)))) (declare (not safe)) - (cons __tmp86562 __tmp86554)))) + (cons __tmp86544 __tmp86536)))) (declare (not safe)) - (cons __tmp86565 __tmp86553)))) + (cons __tmp86547 __tmp86535)))) (declare (not safe)) - (cons __tmp86568 __tmp86552)))) + (cons __tmp86550 __tmp86534)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86571 - __tmp86551)))) + (cons __tmp86553 + __tmp86533)))) (declare (not safe)) - (cons __tmp86574 __tmp86550)))) + (cons __tmp86556 __tmp86532)))) (declare (not safe)) - (cons __tmp86577 __tmp86549)))) + (cons __tmp86559 __tmp86531)))) (declare (not safe)) - (cons __tmp86580 __tmp86548)))) + (cons __tmp86562 __tmp86530)))) (declare (not safe)) - (cons __tmp86583 __tmp86547)))) + (cons __tmp86565 __tmp86529)))) (declare (not safe)) - (cons __tmp86586 __tmp86546)))) + (cons __tmp86568 __tmp86528)))) (declare (not safe)) (##unchecked-structure-set! - __obj86070 - __tmp86545 + __obj86052 + __tmp86527 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86070)) + __obj86052)) (define |gx[:0:]#prelude-context| - (let ((__obj86071 + (let ((__obj86053 (let () (declare (not safe)) (##structure @@ -5047,7 +5047,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86071 + __obj86053 '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! - __obj86071 + __obj86053 'prelude-context '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -5063,26 +5063,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86071 + __obj86053 '(path import e) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86589 - (let ((__tmp86590 |gx[1]#_g86406_|)) + (let ((__tmp86571 + (let ((__tmp86572 |gx[1]#_g86388_|)) (declare (not safe)) - (cons __tmp86590 '())))) + (cons __tmp86572 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86589 + __obj86053 + __tmp86571 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86071 + __obj86053 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -5090,7 +5090,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86071 + __obj86053 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -5098,7 +5098,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86071 + __obj86053 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -5106,314 +5106,314 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86071 + __obj86053 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86591 |gx[1]#_g86592_|)) + (let ((__tmp86573 |gx[1]#_g86574_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86591 + __obj86053 + __tmp86573 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86593 |gx[1]#_g86594_|)) + (let ((__tmp86575 |gx[1]#_g86576_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86593 + __obj86053 + __tmp86575 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86595 |gx[1]#_g86596_|)) + (let ((__tmp86577 |gx[1]#_g86578_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86595 + __obj86053 + __tmp86577 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86597 - (let ((__tmp86626 - (let ((__tmp86627 |gx[1]#_g86628_|)) + (let ((__tmp86579 + (let ((__tmp86608 + (let ((__tmp86609 |gx[1]#_g86610_|)) (declare (not safe)) - (cons 'path __tmp86627))) - (__tmp86598 - (let ((__tmp86623 - (let ((__tmp86624 |gx[1]#_g86625_|)) + (cons 'path __tmp86609))) + (__tmp86580 + (let ((__tmp86605 + (let ((__tmp86606 |gx[1]#_g86607_|)) (declare (not safe)) - (cons 'import __tmp86624))) - (__tmp86599 - (let ((__tmp86620 - (let ((__tmp86621 |gx[1]#_g86622_|)) + (cons 'import __tmp86606))) + (__tmp86581 + (let ((__tmp86602 + (let ((__tmp86603 |gx[1]#_g86604_|)) (declare (not safe)) - (cons 'e __tmp86621))) - (__tmp86600 - (let ((__tmp86617 - (let ((__tmp86618 |gx[1]#_g86619_|)) + (cons 'e __tmp86603))) + (__tmp86582 + (let ((__tmp86599 + (let ((__tmp86600 |gx[1]#_g86601_|)) (declare (not safe)) - (cons 'super __tmp86618))) - (__tmp86601 - (let ((__tmp86614 - (let ((__tmp86615 - |gx[1]#_g86616_|)) + (cons 'super __tmp86600))) + (__tmp86583 + (let ((__tmp86596 + (let ((__tmp86597 + |gx[1]#_g86598_|)) (declare (not safe)) - (cons 'up __tmp86615))) - (__tmp86602 - (let ((__tmp86611 - (let ((__tmp86612 - |gx[1]#_g86613_|)) + (cons 'up __tmp86597))) + (__tmp86584 + (let ((__tmp86593 + (let ((__tmp86594 + |gx[1]#_g86595_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86612))) - (__tmp86603 - (let ((__tmp86608 - (let ((__tmp86609 |gx[1]#_g86610_|)) + __tmp86594))) + (__tmp86585 + (let ((__tmp86590 + (let ((__tmp86591 |gx[1]#_g86592_|)) (declare (not safe)) - (cons 'id __tmp86609))) - (__tmp86604 - (let ((__tmp86605 - (let ((__tmp86606 |gx[1]#_g86607_|)) + (cons 'id __tmp86591))) + (__tmp86586 + (let ((__tmp86587 + (let ((__tmp86588 |gx[1]#_g86589_|)) (declare (not safe)) - (cons 'table __tmp86606)))) + (cons 'table __tmp86588)))) (declare (not safe)) - (cons __tmp86605 '())))) + (cons __tmp86587 '())))) (declare (not safe)) - (cons __tmp86608 __tmp86604)))) + (cons __tmp86590 __tmp86586)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86611 - __tmp86603)))) + (cons __tmp86593 + __tmp86585)))) (declare (not safe)) - (cons __tmp86614 __tmp86602)))) + (cons __tmp86596 __tmp86584)))) (declare (not safe)) - (cons __tmp86617 __tmp86601)))) + (cons __tmp86599 __tmp86583)))) (declare (not safe)) - (cons __tmp86620 __tmp86600)))) + (cons __tmp86602 __tmp86582)))) (declare (not safe)) - (cons __tmp86623 __tmp86599)))) + (cons __tmp86605 __tmp86581)))) (declare (not safe)) - (cons __tmp86626 __tmp86598)))) + (cons __tmp86608 __tmp86580)))) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86597 + __obj86053 + __tmp86579 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86629 - (let ((__tmp86658 - (let ((__tmp86659 |gx[1]#_g86660_|)) + (let ((__tmp86611 + (let ((__tmp86640 + (let ((__tmp86641 |gx[1]#_g86642_|)) (declare (not safe)) - (cons 'path __tmp86659))) - (__tmp86630 - (let ((__tmp86655 - (let ((__tmp86656 |gx[1]#_g86657_|)) + (cons 'path __tmp86641))) + (__tmp86612 + (let ((__tmp86637 + (let ((__tmp86638 |gx[1]#_g86639_|)) (declare (not safe)) - (cons 'import __tmp86656))) - (__tmp86631 - (let ((__tmp86652 - (let ((__tmp86653 |gx[1]#_g86654_|)) + (cons 'import __tmp86638))) + (__tmp86613 + (let ((__tmp86634 + (let ((__tmp86635 |gx[1]#_g86636_|)) (declare (not safe)) - (cons 'e __tmp86653))) - (__tmp86632 - (let ((__tmp86649 - (let ((__tmp86650 |gx[1]#_g86651_|)) + (cons 'e __tmp86635))) + (__tmp86614 + (let ((__tmp86631 + (let ((__tmp86632 |gx[1]#_g86633_|)) (declare (not safe)) - (cons 'super __tmp86650))) - (__tmp86633 - (let ((__tmp86646 - (let ((__tmp86647 - |gx[1]#_g86648_|)) + (cons 'super __tmp86632))) + (__tmp86615 + (let ((__tmp86628 + (let ((__tmp86629 + |gx[1]#_g86630_|)) (declare (not safe)) - (cons 'up __tmp86647))) - (__tmp86634 - (let ((__tmp86643 - (let ((__tmp86644 - |gx[1]#_g86645_|)) + (cons 'up __tmp86629))) + (__tmp86616 + (let ((__tmp86625 + (let ((__tmp86626 + |gx[1]#_g86627_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86644))) - (__tmp86635 - (let ((__tmp86640 - (let ((__tmp86641 |gx[1]#_g86642_|)) + __tmp86626))) + (__tmp86617 + (let ((__tmp86622 + (let ((__tmp86623 |gx[1]#_g86624_|)) (declare (not safe)) - (cons 'id __tmp86641))) - (__tmp86636 - (let ((__tmp86637 - (let ((__tmp86638 |gx[1]#_g86639_|)) + (cons 'id __tmp86623))) + (__tmp86618 + (let ((__tmp86619 + (let ((__tmp86620 |gx[1]#_g86621_|)) (declare (not safe)) - (cons 'table __tmp86638)))) + (cons 'table __tmp86620)))) (declare (not safe)) - (cons __tmp86637 '())))) + (cons __tmp86619 '())))) (declare (not safe)) - (cons __tmp86640 __tmp86636)))) + (cons __tmp86622 __tmp86618)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86643 - __tmp86635)))) + (cons __tmp86625 + __tmp86617)))) (declare (not safe)) - (cons __tmp86646 __tmp86634)))) + (cons __tmp86628 __tmp86616)))) (declare (not safe)) - (cons __tmp86649 __tmp86633)))) + (cons __tmp86631 __tmp86615)))) (declare (not safe)) - (cons __tmp86652 __tmp86632)))) + (cons __tmp86634 __tmp86614)))) (declare (not safe)) - (cons __tmp86655 __tmp86631)))) + (cons __tmp86637 __tmp86613)))) (declare (not safe)) - (cons __tmp86658 __tmp86630)))) + (cons __tmp86640 __tmp86612)))) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86629 + __obj86053 + __tmp86611 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86661 - (let ((__tmp86690 - (let ((__tmp86691 |gx[1]#_g86692_|)) + (let ((__tmp86643 + (let ((__tmp86672 + (let ((__tmp86673 |gx[1]#_g86674_|)) (declare (not safe)) - (cons 'path __tmp86691))) - (__tmp86662 - (let ((__tmp86687 - (let ((__tmp86688 |gx[1]#_g86689_|)) + (cons 'path __tmp86673))) + (__tmp86644 + (let ((__tmp86669 + (let ((__tmp86670 |gx[1]#_g86671_|)) (declare (not safe)) - (cons 'import __tmp86688))) - (__tmp86663 - (let ((__tmp86684 - (let ((__tmp86685 |gx[1]#_g86686_|)) + (cons 'import __tmp86670))) + (__tmp86645 + (let ((__tmp86666 + (let ((__tmp86667 |gx[1]#_g86668_|)) (declare (not safe)) - (cons 'e __tmp86685))) - (__tmp86664 - (let ((__tmp86681 - (let ((__tmp86682 |gx[1]#_g86683_|)) + (cons 'e __tmp86667))) + (__tmp86646 + (let ((__tmp86663 + (let ((__tmp86664 |gx[1]#_g86665_|)) (declare (not safe)) - (cons 'super __tmp86682))) - (__tmp86665 - (let ((__tmp86678 - (let ((__tmp86679 - |gx[1]#_g86680_|)) + (cons 'super __tmp86664))) + (__tmp86647 + (let ((__tmp86660 + (let ((__tmp86661 + |gx[1]#_g86662_|)) (declare (not safe)) - (cons 'up __tmp86679))) - (__tmp86666 - (let ((__tmp86675 - (let ((__tmp86676 - |gx[1]#_g86677_|)) + (cons 'up __tmp86661))) + (__tmp86648 + (let ((__tmp86657 + (let ((__tmp86658 + |gx[1]#_g86659_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86676))) - (__tmp86667 - (let ((__tmp86672 - (let ((__tmp86673 |gx[1]#_g86674_|)) + __tmp86658))) + (__tmp86649 + (let ((__tmp86654 + (let ((__tmp86655 |gx[1]#_g86656_|)) (declare (not safe)) - (cons 'id __tmp86673))) - (__tmp86668 - (let ((__tmp86669 - (let ((__tmp86670 |gx[1]#_g86671_|)) + (cons 'id __tmp86655))) + (__tmp86650 + (let ((__tmp86651 + (let ((__tmp86652 |gx[1]#_g86653_|)) (declare (not safe)) - (cons 'table __tmp86670)))) + (cons 'table __tmp86652)))) (declare (not safe)) - (cons __tmp86669 '())))) + (cons __tmp86651 '())))) (declare (not safe)) - (cons __tmp86672 __tmp86668)))) + (cons __tmp86654 __tmp86650)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86675 - __tmp86667)))) + (cons __tmp86657 + __tmp86649)))) (declare (not safe)) - (cons __tmp86678 __tmp86666)))) + (cons __tmp86660 __tmp86648)))) (declare (not safe)) - (cons __tmp86681 __tmp86665)))) + (cons __tmp86663 __tmp86647)))) (declare (not safe)) - (cons __tmp86684 __tmp86664)))) + (cons __tmp86666 __tmp86646)))) (declare (not safe)) - (cons __tmp86687 __tmp86663)))) + (cons __tmp86669 __tmp86645)))) (declare (not safe)) - (cons __tmp86690 __tmp86662)))) + (cons __tmp86672 __tmp86644)))) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86661 + __obj86053 + __tmp86643 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86693 - (let ((__tmp86722 - (let ((__tmp86723 |gx[1]#_g86724_|)) + (let ((__tmp86675 + (let ((__tmp86704 + (let ((__tmp86705 |gx[1]#_g86706_|)) (declare (not safe)) - (cons 'path __tmp86723))) - (__tmp86694 - (let ((__tmp86719 - (let ((__tmp86720 |gx[1]#_g86721_|)) + (cons 'path __tmp86705))) + (__tmp86676 + (let ((__tmp86701 + (let ((__tmp86702 |gx[1]#_g86703_|)) (declare (not safe)) - (cons 'import __tmp86720))) - (__tmp86695 - (let ((__tmp86716 - (let ((__tmp86717 |gx[1]#_g86718_|)) + (cons 'import __tmp86702))) + (__tmp86677 + (let ((__tmp86698 + (let ((__tmp86699 |gx[1]#_g86700_|)) (declare (not safe)) - (cons 'e __tmp86717))) - (__tmp86696 - (let ((__tmp86713 - (let ((__tmp86714 |gx[1]#_g86715_|)) + (cons 'e __tmp86699))) + (__tmp86678 + (let ((__tmp86695 + (let ((__tmp86696 |gx[1]#_g86697_|)) (declare (not safe)) - (cons 'super __tmp86714))) - (__tmp86697 - (let ((__tmp86710 - (let ((__tmp86711 - |gx[1]#_g86712_|)) + (cons 'super __tmp86696))) + (__tmp86679 + (let ((__tmp86692 + (let ((__tmp86693 + |gx[1]#_g86694_|)) (declare (not safe)) - (cons 'up __tmp86711))) - (__tmp86698 - (let ((__tmp86707 - (let ((__tmp86708 - |gx[1]#_g86709_|)) + (cons 'up __tmp86693))) + (__tmp86680 + (let ((__tmp86689 + (let ((__tmp86690 + |gx[1]#_g86691_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp86708))) - (__tmp86699 - (let ((__tmp86704 - (let ((__tmp86705 |gx[1]#_g86706_|)) + __tmp86690))) + (__tmp86681 + (let ((__tmp86686 + (let ((__tmp86687 |gx[1]#_g86688_|)) (declare (not safe)) - (cons 'id __tmp86705))) - (__tmp86700 - (let ((__tmp86701 - (let ((__tmp86702 |gx[1]#_g86703_|)) + (cons 'id __tmp86687))) + (__tmp86682 + (let ((__tmp86683 + (let ((__tmp86684 |gx[1]#_g86685_|)) (declare (not safe)) - (cons 'table __tmp86702)))) + (cons 'table __tmp86684)))) (declare (not safe)) - (cons __tmp86701 '())))) + (cons __tmp86683 '())))) (declare (not safe)) - (cons __tmp86704 __tmp86700)))) + (cons __tmp86686 __tmp86682)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp86707 - __tmp86699)))) + (cons __tmp86689 + __tmp86681)))) (declare (not safe)) - (cons __tmp86710 __tmp86698)))) + (cons __tmp86692 __tmp86680)))) (declare (not safe)) - (cons __tmp86713 __tmp86697)))) + (cons __tmp86695 __tmp86679)))) (declare (not safe)) - (cons __tmp86716 __tmp86696)))) + (cons __tmp86698 __tmp86678)))) (declare (not safe)) - (cons __tmp86719 __tmp86695)))) + (cons __tmp86701 __tmp86677)))) (declare (not safe)) - (cons __tmp86722 __tmp86694)))) + (cons __tmp86704 __tmp86676)))) (declare (not safe)) (##unchecked-structure-set! - __obj86071 - __tmp86693 + __obj86053 + __tmp86675 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86071)) + __obj86053)) (define |gx[:0:]#local-context| - (let ((__obj86072 + (let ((__obj86054 (let () (declare (not safe)) (##structure @@ -5437,7 +5437,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86072 + __obj86054 '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! - __obj86072 + __obj86054 'local-context '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -5453,26 +5453,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86072 + __obj86054 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86725 - (let ((__tmp86726 |gx[1]#_g86317_|)) + (let ((__tmp86707 + (let ((__tmp86708 |gx[1]#_g86299_|)) (declare (not safe)) - (cons __tmp86726 '())))) + (cons __tmp86708 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp86725 + __obj86054 + __tmp86707 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86072 + __obj86054 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -5480,7 +5480,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86072 + __obj86054 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -5488,7 +5488,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86072 + __obj86054 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -5496,210 +5496,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86072 + __obj86054 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86727 |gx[1]#_g86728_|)) + (let ((__tmp86709 |gx[1]#_g86710_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp86727 + __obj86054 + __tmp86709 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86729 |gx[1]#_g86730_|)) + (let ((__tmp86711 |gx[1]#_g86712_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp86729 + __obj86054 + __tmp86711 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86731 |gx[1]#_g86732_|)) + (let ((__tmp86713 |gx[1]#_g86714_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp86731 + __obj86054 + __tmp86713 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86733 - (let ((__tmp86750 - (let ((__tmp86751 |gx[1]#_g86752_|)) + (let ((__tmp86715 + (let ((__tmp86732 + (let ((__tmp86733 |gx[1]#_g86734_|)) (declare (not safe)) - (cons 'super __tmp86751))) - (__tmp86734 - (let ((__tmp86747 - (let ((__tmp86748 |gx[1]#_g86749_|)) + (cons 'super __tmp86733))) + (__tmp86716 + (let ((__tmp86729 + (let ((__tmp86730 |gx[1]#_g86731_|)) (declare (not safe)) - (cons 'up __tmp86748))) - (__tmp86735 - (let ((__tmp86744 - (let ((__tmp86745 |gx[1]#_g86746_|)) + (cons 'up __tmp86730))) + (__tmp86717 + (let ((__tmp86726 + (let ((__tmp86727 |gx[1]#_g86728_|)) (declare (not safe)) - (cons 'down __tmp86745))) - (__tmp86736 - (let ((__tmp86741 - (let ((__tmp86742 |gx[1]#_g86743_|)) + (cons 'down __tmp86727))) + (__tmp86718 + (let ((__tmp86723 + (let ((__tmp86724 |gx[1]#_g86725_|)) (declare (not safe)) - (cons 'id __tmp86742))) - (__tmp86737 - (let ((__tmp86738 - (let ((__tmp86739 - |gx[1]#_g86740_|)) + (cons 'id __tmp86724))) + (__tmp86719 + (let ((__tmp86720 + (let ((__tmp86721 + |gx[1]#_g86722_|)) (declare (not safe)) - (cons 'table __tmp86739)))) + (cons 'table __tmp86721)))) (declare (not safe)) - (cons __tmp86738 '())))) + (cons __tmp86720 '())))) (declare (not safe)) - (cons __tmp86741 __tmp86737)))) + (cons __tmp86723 __tmp86719)))) (declare (not safe)) - (cons __tmp86744 __tmp86736)))) + (cons __tmp86726 __tmp86718)))) (declare (not safe)) - (cons __tmp86747 __tmp86735)))) + (cons __tmp86729 __tmp86717)))) (declare (not safe)) - (cons __tmp86750 __tmp86734)))) + (cons __tmp86732 __tmp86716)))) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp86733 + __obj86054 + __tmp86715 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86753 - (let ((__tmp86770 - (let ((__tmp86771 |gx[1]#_g86772_|)) + (let ((__tmp86735 + (let ((__tmp86752 + (let ((__tmp86753 |gx[1]#_g86754_|)) (declare (not safe)) - (cons 'super __tmp86771))) - (__tmp86754 - (let ((__tmp86767 - (let ((__tmp86768 |gx[1]#_g86769_|)) + (cons 'super __tmp86753))) + (__tmp86736 + (let ((__tmp86749 + (let ((__tmp86750 |gx[1]#_g86751_|)) (declare (not safe)) - (cons 'up __tmp86768))) - (__tmp86755 - (let ((__tmp86764 - (let ((__tmp86765 |gx[1]#_g86766_|)) + (cons 'up __tmp86750))) + (__tmp86737 + (let ((__tmp86746 + (let ((__tmp86747 |gx[1]#_g86748_|)) (declare (not safe)) - (cons 'down __tmp86765))) - (__tmp86756 - (let ((__tmp86761 - (let ((__tmp86762 |gx[1]#_g86763_|)) + (cons 'down __tmp86747))) + (__tmp86738 + (let ((__tmp86743 + (let ((__tmp86744 |gx[1]#_g86745_|)) (declare (not safe)) - (cons 'id __tmp86762))) - (__tmp86757 - (let ((__tmp86758 - (let ((__tmp86759 - |gx[1]#_g86760_|)) + (cons 'id __tmp86744))) + (__tmp86739 + (let ((__tmp86740 + (let ((__tmp86741 + |gx[1]#_g86742_|)) (declare (not safe)) - (cons 'table __tmp86759)))) + (cons 'table __tmp86741)))) (declare (not safe)) - (cons __tmp86758 '())))) + (cons __tmp86740 '())))) (declare (not safe)) - (cons __tmp86761 __tmp86757)))) + (cons __tmp86743 __tmp86739)))) (declare (not safe)) - (cons __tmp86764 __tmp86756)))) + (cons __tmp86746 __tmp86738)))) (declare (not safe)) - (cons __tmp86767 __tmp86755)))) + (cons __tmp86749 __tmp86737)))) (declare (not safe)) - (cons __tmp86770 __tmp86754)))) + (cons __tmp86752 __tmp86736)))) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp86753 + __obj86054 + __tmp86735 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86773 - (let ((__tmp86790 - (let ((__tmp86791 |gx[1]#_g86792_|)) + (let ((__tmp86755 + (let ((__tmp86772 + (let ((__tmp86773 |gx[1]#_g86774_|)) (declare (not safe)) - (cons 'super __tmp86791))) - (__tmp86774 - (let ((__tmp86787 - (let ((__tmp86788 |gx[1]#_g86789_|)) + (cons 'super __tmp86773))) + (__tmp86756 + (let ((__tmp86769 + (let ((__tmp86770 |gx[1]#_g86771_|)) (declare (not safe)) - (cons 'up __tmp86788))) - (__tmp86775 - (let ((__tmp86784 - (let ((__tmp86785 |gx[1]#_g86786_|)) + (cons 'up __tmp86770))) + (__tmp86757 + (let ((__tmp86766 + (let ((__tmp86767 |gx[1]#_g86768_|)) (declare (not safe)) - (cons 'down __tmp86785))) - (__tmp86776 - (let ((__tmp86781 - (let ((__tmp86782 |gx[1]#_g86783_|)) + (cons 'down __tmp86767))) + (__tmp86758 + (let ((__tmp86763 + (let ((__tmp86764 |gx[1]#_g86765_|)) (declare (not safe)) - (cons 'id __tmp86782))) - (__tmp86777 - (let ((__tmp86778 - (let ((__tmp86779 - |gx[1]#_g86780_|)) + (cons 'id __tmp86764))) + (__tmp86759 + (let ((__tmp86760 + (let ((__tmp86761 + |gx[1]#_g86762_|)) (declare (not safe)) - (cons 'table __tmp86779)))) + (cons 'table __tmp86761)))) (declare (not safe)) - (cons __tmp86778 '())))) + (cons __tmp86760 '())))) (declare (not safe)) - (cons __tmp86781 __tmp86777)))) + (cons __tmp86763 __tmp86759)))) (declare (not safe)) - (cons __tmp86784 __tmp86776)))) + (cons __tmp86766 __tmp86758)))) (declare (not safe)) - (cons __tmp86787 __tmp86775)))) + (cons __tmp86769 __tmp86757)))) (declare (not safe)) - (cons __tmp86790 __tmp86774)))) + (cons __tmp86772 __tmp86756)))) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp86773 + __obj86054 + __tmp86755 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86793 - (let ((__tmp86810 - (let ((__tmp86811 |gx[1]#_g86812_|)) + (let ((__tmp86775 + (let ((__tmp86792 + (let ((__tmp86793 |gx[1]#_g86794_|)) (declare (not safe)) - (cons 'super __tmp86811))) - (__tmp86794 - (let ((__tmp86807 - (let ((__tmp86808 |gx[1]#_g86809_|)) + (cons 'super __tmp86793))) + (__tmp86776 + (let ((__tmp86789 + (let ((__tmp86790 |gx[1]#_g86791_|)) (declare (not safe)) - (cons 'up __tmp86808))) - (__tmp86795 - (let ((__tmp86804 - (let ((__tmp86805 |gx[1]#_g86806_|)) + (cons 'up __tmp86790))) + (__tmp86777 + (let ((__tmp86786 + (let ((__tmp86787 |gx[1]#_g86788_|)) (declare (not safe)) - (cons 'down __tmp86805))) - (__tmp86796 - (let ((__tmp86801 - (let ((__tmp86802 |gx[1]#_g86803_|)) + (cons 'down __tmp86787))) + (__tmp86778 + (let ((__tmp86783 + (let ((__tmp86784 |gx[1]#_g86785_|)) (declare (not safe)) - (cons 'id __tmp86802))) - (__tmp86797 - (let ((__tmp86798 - (let ((__tmp86799 - |gx[1]#_g86800_|)) + (cons 'id __tmp86784))) + (__tmp86779 + (let ((__tmp86780 + (let ((__tmp86781 + |gx[1]#_g86782_|)) (declare (not safe)) - (cons 'table __tmp86799)))) + (cons 'table __tmp86781)))) (declare (not safe)) - (cons __tmp86798 '())))) + (cons __tmp86780 '())))) (declare (not safe)) - (cons __tmp86801 __tmp86797)))) + (cons __tmp86783 __tmp86779)))) (declare (not safe)) - (cons __tmp86804 __tmp86796)))) + (cons __tmp86786 __tmp86778)))) (declare (not safe)) - (cons __tmp86807 __tmp86795)))) + (cons __tmp86789 __tmp86777)))) (declare (not safe)) - (cons __tmp86810 __tmp86794)))) + (cons __tmp86792 __tmp86776)))) (declare (not safe)) (##unchecked-structure-set! - __obj86072 - __tmp86793 + __obj86054 + __tmp86775 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86072)) + __obj86054)) (define |gx[:0:]#binding| - (let ((__obj86073 + (let ((__obj86055 (let () (declare (not safe)) (##structure @@ -5723,7 +5723,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86073 + __obj86055 'gx#binding::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -5731,7 +5731,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86073 + __obj86055 'binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -5739,7 +5739,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86073 + __obj86055 '(id key phi) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -5747,7 +5747,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86073 + __obj86055 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -5755,7 +5755,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86073 + __obj86055 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -5763,7 +5763,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86073 + __obj86055 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -5771,7 +5771,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86073 + __obj86055 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -5779,150 +5779,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86073 + __obj86055 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86813 |gx[1]#_g86814_|)) + (let ((__tmp86795 |gx[1]#_g86796_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86073 - __tmp86813 + __obj86055 + __tmp86795 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86815 |gx[1]#_g86816_|)) + (let ((__tmp86797 |gx[1]#_g86798_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86073 - __tmp86815 + __obj86055 + __tmp86797 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86817 |gx[1]#_g86818_|)) + (let ((__tmp86799 |gx[1]#_g86800_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86073 - __tmp86817 + __obj86055 + __tmp86799 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86819 - (let ((__tmp86828 - (let ((__tmp86829 |gx[1]#_g86830_|)) + (let ((__tmp86801 + (let ((__tmp86810 + (let ((__tmp86811 |gx[1]#_g86812_|)) (declare (not safe)) - (cons 'id __tmp86829))) - (__tmp86820 - (let ((__tmp86825 - (let ((__tmp86826 |gx[1]#_g86827_|)) + (cons 'id __tmp86811))) + (__tmp86802 + (let ((__tmp86807 + (let ((__tmp86808 |gx[1]#_g86809_|)) (declare (not safe)) - (cons 'key __tmp86826))) - (__tmp86821 - (let ((__tmp86822 - (let ((__tmp86823 |gx[1]#_g86824_|)) + (cons 'key __tmp86808))) + (__tmp86803 + (let ((__tmp86804 + (let ((__tmp86805 |gx[1]#_g86806_|)) (declare (not safe)) - (cons 'phi __tmp86823)))) + (cons 'phi __tmp86805)))) (declare (not safe)) - (cons __tmp86822 '())))) + (cons __tmp86804 '())))) (declare (not safe)) - (cons __tmp86825 __tmp86821)))) + (cons __tmp86807 __tmp86803)))) (declare (not safe)) - (cons __tmp86828 __tmp86820)))) + (cons __tmp86810 __tmp86802)))) (declare (not safe)) (##unchecked-structure-set! - __obj86073 - __tmp86819 + __obj86055 + __tmp86801 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86831 - (let ((__tmp86840 - (let ((__tmp86841 |gx[1]#_g86842_|)) + (let ((__tmp86813 + (let ((__tmp86822 + (let ((__tmp86823 |gx[1]#_g86824_|)) (declare (not safe)) - (cons 'id __tmp86841))) - (__tmp86832 - (let ((__tmp86837 - (let ((__tmp86838 |gx[1]#_g86839_|)) + (cons 'id __tmp86823))) + (__tmp86814 + (let ((__tmp86819 + (let ((__tmp86820 |gx[1]#_g86821_|)) (declare (not safe)) - (cons 'key __tmp86838))) - (__tmp86833 - (let ((__tmp86834 - (let ((__tmp86835 |gx[1]#_g86836_|)) + (cons 'key __tmp86820))) + (__tmp86815 + (let ((__tmp86816 + (let ((__tmp86817 |gx[1]#_g86818_|)) (declare (not safe)) - (cons 'phi __tmp86835)))) + (cons 'phi __tmp86817)))) (declare (not safe)) - (cons __tmp86834 '())))) + (cons __tmp86816 '())))) (declare (not safe)) - (cons __tmp86837 __tmp86833)))) + (cons __tmp86819 __tmp86815)))) (declare (not safe)) - (cons __tmp86840 __tmp86832)))) + (cons __tmp86822 __tmp86814)))) (declare (not safe)) (##unchecked-structure-set! - __obj86073 - __tmp86831 + __obj86055 + __tmp86813 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86843 - (let ((__tmp86852 - (let ((__tmp86853 |gx[1]#_g86854_|)) + (let ((__tmp86825 + (let ((__tmp86834 + (let ((__tmp86835 |gx[1]#_g86836_|)) (declare (not safe)) - (cons 'id __tmp86853))) - (__tmp86844 - (let ((__tmp86849 - (let ((__tmp86850 |gx[1]#_g86851_|)) + (cons 'id __tmp86835))) + (__tmp86826 + (let ((__tmp86831 + (let ((__tmp86832 |gx[1]#_g86833_|)) (declare (not safe)) - (cons 'key __tmp86850))) - (__tmp86845 - (let ((__tmp86846 - (let ((__tmp86847 |gx[1]#_g86848_|)) + (cons 'key __tmp86832))) + (__tmp86827 + (let ((__tmp86828 + (let ((__tmp86829 |gx[1]#_g86830_|)) (declare (not safe)) - (cons 'phi __tmp86847)))) + (cons 'phi __tmp86829)))) (declare (not safe)) - (cons __tmp86846 '())))) + (cons __tmp86828 '())))) (declare (not safe)) - (cons __tmp86849 __tmp86845)))) + (cons __tmp86831 __tmp86827)))) (declare (not safe)) - (cons __tmp86852 __tmp86844)))) + (cons __tmp86834 __tmp86826)))) (declare (not safe)) (##unchecked-structure-set! - __obj86073 - __tmp86843 + __obj86055 + __tmp86825 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86855 - (let ((__tmp86864 - (let ((__tmp86865 |gx[1]#_g86866_|)) + (let ((__tmp86837 + (let ((__tmp86846 + (let ((__tmp86847 |gx[1]#_g86848_|)) (declare (not safe)) - (cons 'id __tmp86865))) - (__tmp86856 - (let ((__tmp86861 - (let ((__tmp86862 |gx[1]#_g86863_|)) + (cons 'id __tmp86847))) + (__tmp86838 + (let ((__tmp86843 + (let ((__tmp86844 |gx[1]#_g86845_|)) (declare (not safe)) - (cons 'key __tmp86862))) - (__tmp86857 - (let ((__tmp86858 - (let ((__tmp86859 |gx[1]#_g86860_|)) + (cons 'key __tmp86844))) + (__tmp86839 + (let ((__tmp86840 + (let ((__tmp86841 |gx[1]#_g86842_|)) (declare (not safe)) - (cons 'phi __tmp86859)))) + (cons 'phi __tmp86841)))) (declare (not safe)) - (cons __tmp86858 '())))) + (cons __tmp86840 '())))) (declare (not safe)) - (cons __tmp86861 __tmp86857)))) + (cons __tmp86843 __tmp86839)))) (declare (not safe)) - (cons __tmp86864 __tmp86856)))) + (cons __tmp86846 __tmp86838)))) (declare (not safe)) (##unchecked-structure-set! - __obj86073 - __tmp86855 + __obj86055 + __tmp86837 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86073)) + __obj86055)) (define |gx[:0:]#runtime-binding| - (let ((__obj86074 + (let ((__obj86056 (let () (declare (not safe)) (##structure @@ -5946,7 +5946,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86074 + __obj86056 '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! - __obj86074 + __obj86056 'runtime-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -5962,26 +5962,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86074 + __obj86056 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86867 - (let ((__tmp86868 |gx[1]#_g86869_|)) + (let ((__tmp86849 + (let ((__tmp86850 |gx[1]#_g86851_|)) (declare (not safe)) - (cons __tmp86868 '())))) + (cons __tmp86850 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp86867 + __obj86056 + __tmp86849 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86074 + __obj86056 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -5989,7 +5989,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86074 + __obj86056 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -5997,7 +5997,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86074 + __obj86056 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -6005,150 +6005,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86074 + __obj86056 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86870 |gx[1]#_g86871_|)) + (let ((__tmp86852 |gx[1]#_g86853_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp86870 + __obj86056 + __tmp86852 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86872 |gx[1]#_g86873_|)) + (let ((__tmp86854 |gx[1]#_g86855_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp86872 + __obj86056 + __tmp86854 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86874 |gx[1]#_g86875_|)) + (let ((__tmp86856 |gx[1]#_g86857_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp86874 + __obj86056 + __tmp86856 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86876 - (let ((__tmp86885 - (let ((__tmp86886 |gx[1]#_g86887_|)) + (let ((__tmp86858 + (let ((__tmp86867 + (let ((__tmp86868 |gx[1]#_g86869_|)) (declare (not safe)) - (cons 'id __tmp86886))) - (__tmp86877 - (let ((__tmp86882 - (let ((__tmp86883 |gx[1]#_g86884_|)) + (cons 'id __tmp86868))) + (__tmp86859 + (let ((__tmp86864 + (let ((__tmp86865 |gx[1]#_g86866_|)) (declare (not safe)) - (cons 'key __tmp86883))) - (__tmp86878 - (let ((__tmp86879 - (let ((__tmp86880 |gx[1]#_g86881_|)) + (cons 'key __tmp86865))) + (__tmp86860 + (let ((__tmp86861 + (let ((__tmp86862 |gx[1]#_g86863_|)) (declare (not safe)) - (cons 'phi __tmp86880)))) + (cons 'phi __tmp86862)))) (declare (not safe)) - (cons __tmp86879 '())))) + (cons __tmp86861 '())))) (declare (not safe)) - (cons __tmp86882 __tmp86878)))) + (cons __tmp86864 __tmp86860)))) (declare (not safe)) - (cons __tmp86885 __tmp86877)))) + (cons __tmp86867 __tmp86859)))) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp86876 + __obj86056 + __tmp86858 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86888 - (let ((__tmp86897 - (let ((__tmp86898 |gx[1]#_g86899_|)) + (let ((__tmp86870 + (let ((__tmp86879 + (let ((__tmp86880 |gx[1]#_g86881_|)) (declare (not safe)) - (cons 'id __tmp86898))) - (__tmp86889 - (let ((__tmp86894 - (let ((__tmp86895 |gx[1]#_g86896_|)) + (cons 'id __tmp86880))) + (__tmp86871 + (let ((__tmp86876 + (let ((__tmp86877 |gx[1]#_g86878_|)) (declare (not safe)) - (cons 'key __tmp86895))) - (__tmp86890 - (let ((__tmp86891 - (let ((__tmp86892 |gx[1]#_g86893_|)) + (cons 'key __tmp86877))) + (__tmp86872 + (let ((__tmp86873 + (let ((__tmp86874 |gx[1]#_g86875_|)) (declare (not safe)) - (cons 'phi __tmp86892)))) + (cons 'phi __tmp86874)))) (declare (not safe)) - (cons __tmp86891 '())))) + (cons __tmp86873 '())))) (declare (not safe)) - (cons __tmp86894 __tmp86890)))) + (cons __tmp86876 __tmp86872)))) (declare (not safe)) - (cons __tmp86897 __tmp86889)))) + (cons __tmp86879 __tmp86871)))) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp86888 + __obj86056 + __tmp86870 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86900 - (let ((__tmp86909 - (let ((__tmp86910 |gx[1]#_g86911_|)) + (let ((__tmp86882 + (let ((__tmp86891 + (let ((__tmp86892 |gx[1]#_g86893_|)) (declare (not safe)) - (cons 'id __tmp86910))) - (__tmp86901 - (let ((__tmp86906 - (let ((__tmp86907 |gx[1]#_g86908_|)) + (cons 'id __tmp86892))) + (__tmp86883 + (let ((__tmp86888 + (let ((__tmp86889 |gx[1]#_g86890_|)) (declare (not safe)) - (cons 'key __tmp86907))) - (__tmp86902 - (let ((__tmp86903 - (let ((__tmp86904 |gx[1]#_g86905_|)) + (cons 'key __tmp86889))) + (__tmp86884 + (let ((__tmp86885 + (let ((__tmp86886 |gx[1]#_g86887_|)) (declare (not safe)) - (cons 'phi __tmp86904)))) + (cons 'phi __tmp86886)))) (declare (not safe)) - (cons __tmp86903 '())))) + (cons __tmp86885 '())))) (declare (not safe)) - (cons __tmp86906 __tmp86902)))) + (cons __tmp86888 __tmp86884)))) (declare (not safe)) - (cons __tmp86909 __tmp86901)))) + (cons __tmp86891 __tmp86883)))) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp86900 + __obj86056 + __tmp86882 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86912 - (let ((__tmp86921 - (let ((__tmp86922 |gx[1]#_g86923_|)) + (let ((__tmp86894 + (let ((__tmp86903 + (let ((__tmp86904 |gx[1]#_g86905_|)) (declare (not safe)) - (cons 'id __tmp86922))) - (__tmp86913 - (let ((__tmp86918 - (let ((__tmp86919 |gx[1]#_g86920_|)) + (cons 'id __tmp86904))) + (__tmp86895 + (let ((__tmp86900 + (let ((__tmp86901 |gx[1]#_g86902_|)) (declare (not safe)) - (cons 'key __tmp86919))) - (__tmp86914 - (let ((__tmp86915 - (let ((__tmp86916 |gx[1]#_g86917_|)) + (cons 'key __tmp86901))) + (__tmp86896 + (let ((__tmp86897 + (let ((__tmp86898 |gx[1]#_g86899_|)) (declare (not safe)) - (cons 'phi __tmp86916)))) + (cons 'phi __tmp86898)))) (declare (not safe)) - (cons __tmp86915 '())))) + (cons __tmp86897 '())))) (declare (not safe)) - (cons __tmp86918 __tmp86914)))) + (cons __tmp86900 __tmp86896)))) (declare (not safe)) - (cons __tmp86921 __tmp86913)))) + (cons __tmp86903 __tmp86895)))) (declare (not safe)) (##unchecked-structure-set! - __obj86074 - __tmp86912 + __obj86056 + __tmp86894 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86074)) + __obj86056)) (define |gx[:0:]#local-binding| - (let ((__obj86075 + (let ((__obj86057 (let () (declare (not safe)) (##structure @@ -6172,7 +6172,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86075 + __obj86057 '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! - __obj86075 + __obj86057 'local-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -6188,26 +6188,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86075 + __obj86057 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86924 - (let ((__tmp86925 |gx[1]#_g86926_|)) + (let ((__tmp86906 + (let ((__tmp86907 |gx[1]#_g86908_|)) (declare (not safe)) - (cons __tmp86925 '())))) + (cons __tmp86907 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp86924 + __obj86057 + __tmp86906 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86075 + __obj86057 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -6215,7 +6215,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86075 + __obj86057 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -6223,7 +6223,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86075 + __obj86057 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -6231,150 +6231,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86075 + __obj86057 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86927 |gx[1]#_g86928_|)) + (let ((__tmp86909 |gx[1]#_g86910_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp86927 + __obj86057 + __tmp86909 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86929 |gx[1]#_g86930_|)) + (let ((__tmp86911 |gx[1]#_g86912_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp86929 + __obj86057 + __tmp86911 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86931 |gx[1]#_g86932_|)) + (let ((__tmp86913 |gx[1]#_g86914_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp86931 + __obj86057 + __tmp86913 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86933 - (let ((__tmp86942 - (let ((__tmp86943 |gx[1]#_g86944_|)) + (let ((__tmp86915 + (let ((__tmp86924 + (let ((__tmp86925 |gx[1]#_g86926_|)) (declare (not safe)) - (cons 'id __tmp86943))) - (__tmp86934 - (let ((__tmp86939 - (let ((__tmp86940 |gx[1]#_g86941_|)) + (cons 'id __tmp86925))) + (__tmp86916 + (let ((__tmp86921 + (let ((__tmp86922 |gx[1]#_g86923_|)) (declare (not safe)) - (cons 'key __tmp86940))) - (__tmp86935 - (let ((__tmp86936 - (let ((__tmp86937 |gx[1]#_g86938_|)) + (cons 'key __tmp86922))) + (__tmp86917 + (let ((__tmp86918 + (let ((__tmp86919 |gx[1]#_g86920_|)) (declare (not safe)) - (cons 'phi __tmp86937)))) + (cons 'phi __tmp86919)))) (declare (not safe)) - (cons __tmp86936 '())))) + (cons __tmp86918 '())))) (declare (not safe)) - (cons __tmp86939 __tmp86935)))) + (cons __tmp86921 __tmp86917)))) (declare (not safe)) - (cons __tmp86942 __tmp86934)))) + (cons __tmp86924 __tmp86916)))) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp86933 + __obj86057 + __tmp86915 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86945 - (let ((__tmp86954 - (let ((__tmp86955 |gx[1]#_g86956_|)) + (let ((__tmp86927 + (let ((__tmp86936 + (let ((__tmp86937 |gx[1]#_g86938_|)) (declare (not safe)) - (cons 'id __tmp86955))) - (__tmp86946 - (let ((__tmp86951 - (let ((__tmp86952 |gx[1]#_g86953_|)) + (cons 'id __tmp86937))) + (__tmp86928 + (let ((__tmp86933 + (let ((__tmp86934 |gx[1]#_g86935_|)) (declare (not safe)) - (cons 'key __tmp86952))) - (__tmp86947 - (let ((__tmp86948 - (let ((__tmp86949 |gx[1]#_g86950_|)) + (cons 'key __tmp86934))) + (__tmp86929 + (let ((__tmp86930 + (let ((__tmp86931 |gx[1]#_g86932_|)) (declare (not safe)) - (cons 'phi __tmp86949)))) + (cons 'phi __tmp86931)))) (declare (not safe)) - (cons __tmp86948 '())))) + (cons __tmp86930 '())))) (declare (not safe)) - (cons __tmp86951 __tmp86947)))) + (cons __tmp86933 __tmp86929)))) (declare (not safe)) - (cons __tmp86954 __tmp86946)))) + (cons __tmp86936 __tmp86928)))) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp86945 + __obj86057 + __tmp86927 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86957 - (let ((__tmp86966 - (let ((__tmp86967 |gx[1]#_g86968_|)) + (let ((__tmp86939 + (let ((__tmp86948 + (let ((__tmp86949 |gx[1]#_g86950_|)) (declare (not safe)) - (cons 'id __tmp86967))) - (__tmp86958 - (let ((__tmp86963 - (let ((__tmp86964 |gx[1]#_g86965_|)) + (cons 'id __tmp86949))) + (__tmp86940 + (let ((__tmp86945 + (let ((__tmp86946 |gx[1]#_g86947_|)) (declare (not safe)) - (cons 'key __tmp86964))) - (__tmp86959 - (let ((__tmp86960 - (let ((__tmp86961 |gx[1]#_g86962_|)) + (cons 'key __tmp86946))) + (__tmp86941 + (let ((__tmp86942 + (let ((__tmp86943 |gx[1]#_g86944_|)) (declare (not safe)) - (cons 'phi __tmp86961)))) + (cons 'phi __tmp86943)))) (declare (not safe)) - (cons __tmp86960 '())))) + (cons __tmp86942 '())))) (declare (not safe)) - (cons __tmp86963 __tmp86959)))) + (cons __tmp86945 __tmp86941)))) (declare (not safe)) - (cons __tmp86966 __tmp86958)))) + (cons __tmp86948 __tmp86940)))) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp86957 + __obj86057 + __tmp86939 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86969 - (let ((__tmp86978 - (let ((__tmp86979 |gx[1]#_g86980_|)) + (let ((__tmp86951 + (let ((__tmp86960 + (let ((__tmp86961 |gx[1]#_g86962_|)) (declare (not safe)) - (cons 'id __tmp86979))) - (__tmp86970 - (let ((__tmp86975 - (let ((__tmp86976 |gx[1]#_g86977_|)) + (cons 'id __tmp86961))) + (__tmp86952 + (let ((__tmp86957 + (let ((__tmp86958 |gx[1]#_g86959_|)) (declare (not safe)) - (cons 'key __tmp86976))) - (__tmp86971 - (let ((__tmp86972 - (let ((__tmp86973 |gx[1]#_g86974_|)) + (cons 'key __tmp86958))) + (__tmp86953 + (let ((__tmp86954 + (let ((__tmp86955 |gx[1]#_g86956_|)) (declare (not safe)) - (cons 'phi __tmp86973)))) + (cons 'phi __tmp86955)))) (declare (not safe)) - (cons __tmp86972 '())))) + (cons __tmp86954 '())))) (declare (not safe)) - (cons __tmp86975 __tmp86971)))) + (cons __tmp86957 __tmp86953)))) (declare (not safe)) - (cons __tmp86978 __tmp86970)))) + (cons __tmp86960 __tmp86952)))) (declare (not safe)) (##unchecked-structure-set! - __obj86075 - __tmp86969 + __obj86057 + __tmp86951 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86075)) + __obj86057)) (define |gx[:0:]#top-binding| - (let ((__obj86076 + (let ((__obj86058 (let () (declare (not safe)) (##structure @@ -6398,7 +6398,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86076 + __obj86058 '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! - __obj86076 + __obj86058 'top-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -6414,26 +6414,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86076 + __obj86058 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86981 - (let ((__tmp86982 |gx[1]#_g86926_|)) + (let ((__tmp86963 + (let ((__tmp86964 |gx[1]#_g86908_|)) (declare (not safe)) - (cons __tmp86982 '())))) + (cons __tmp86964 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp86981 + __obj86058 + __tmp86963 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86076 + __obj86058 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -6441,7 +6441,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86076 + __obj86058 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -6449,7 +6449,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86076 + __obj86058 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -6457,150 +6457,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86076 + __obj86058 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86983 |gx[1]#_g86984_|)) + (let ((__tmp86965 |gx[1]#_g86966_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp86983 + __obj86058 + __tmp86965 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86985 |gx[1]#_g86986_|)) + (let ((__tmp86967 |gx[1]#_g86968_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp86985 + __obj86058 + __tmp86967 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86987 |gx[1]#_g86988_|)) + (let ((__tmp86969 |gx[1]#_g86970_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp86987 + __obj86058 + __tmp86969 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp86989 - (let ((__tmp86998 - (let ((__tmp86999 |gx[1]#_g87000_|)) + (let ((__tmp86971 + (let ((__tmp86980 + (let ((__tmp86981 |gx[1]#_g86982_|)) (declare (not safe)) - (cons 'id __tmp86999))) - (__tmp86990 - (let ((__tmp86995 - (let ((__tmp86996 |gx[1]#_g86997_|)) + (cons 'id __tmp86981))) + (__tmp86972 + (let ((__tmp86977 + (let ((__tmp86978 |gx[1]#_g86979_|)) (declare (not safe)) - (cons 'key __tmp86996))) - (__tmp86991 - (let ((__tmp86992 - (let ((__tmp86993 |gx[1]#_g86994_|)) + (cons 'key __tmp86978))) + (__tmp86973 + (let ((__tmp86974 + (let ((__tmp86975 |gx[1]#_g86976_|)) (declare (not safe)) - (cons 'phi __tmp86993)))) + (cons 'phi __tmp86975)))) (declare (not safe)) - (cons __tmp86992 '())))) + (cons __tmp86974 '())))) (declare (not safe)) - (cons __tmp86995 __tmp86991)))) + (cons __tmp86977 __tmp86973)))) (declare (not safe)) - (cons __tmp86998 __tmp86990)))) + (cons __tmp86980 __tmp86972)))) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp86989 + __obj86058 + __tmp86971 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87001 - (let ((__tmp87010 - (let ((__tmp87011 |gx[1]#_g87012_|)) + (let ((__tmp86983 + (let ((__tmp86992 + (let ((__tmp86993 |gx[1]#_g86994_|)) (declare (not safe)) - (cons 'id __tmp87011))) - (__tmp87002 - (let ((__tmp87007 - (let ((__tmp87008 |gx[1]#_g87009_|)) + (cons 'id __tmp86993))) + (__tmp86984 + (let ((__tmp86989 + (let ((__tmp86990 |gx[1]#_g86991_|)) (declare (not safe)) - (cons 'key __tmp87008))) - (__tmp87003 - (let ((__tmp87004 - (let ((__tmp87005 |gx[1]#_g87006_|)) + (cons 'key __tmp86990))) + (__tmp86985 + (let ((__tmp86986 + (let ((__tmp86987 |gx[1]#_g86988_|)) (declare (not safe)) - (cons 'phi __tmp87005)))) + (cons 'phi __tmp86987)))) (declare (not safe)) - (cons __tmp87004 '())))) + (cons __tmp86986 '())))) (declare (not safe)) - (cons __tmp87007 __tmp87003)))) + (cons __tmp86989 __tmp86985)))) (declare (not safe)) - (cons __tmp87010 __tmp87002)))) + (cons __tmp86992 __tmp86984)))) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp87001 + __obj86058 + __tmp86983 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87013 - (let ((__tmp87022 - (let ((__tmp87023 |gx[1]#_g87024_|)) + (let ((__tmp86995 + (let ((__tmp87004 + (let ((__tmp87005 |gx[1]#_g87006_|)) (declare (not safe)) - (cons 'id __tmp87023))) - (__tmp87014 - (let ((__tmp87019 - (let ((__tmp87020 |gx[1]#_g87021_|)) + (cons 'id __tmp87005))) + (__tmp86996 + (let ((__tmp87001 + (let ((__tmp87002 |gx[1]#_g87003_|)) (declare (not safe)) - (cons 'key __tmp87020))) - (__tmp87015 - (let ((__tmp87016 - (let ((__tmp87017 |gx[1]#_g87018_|)) + (cons 'key __tmp87002))) + (__tmp86997 + (let ((__tmp86998 + (let ((__tmp86999 |gx[1]#_g87000_|)) (declare (not safe)) - (cons 'phi __tmp87017)))) + (cons 'phi __tmp86999)))) (declare (not safe)) - (cons __tmp87016 '())))) + (cons __tmp86998 '())))) (declare (not safe)) - (cons __tmp87019 __tmp87015)))) + (cons __tmp87001 __tmp86997)))) (declare (not safe)) - (cons __tmp87022 __tmp87014)))) + (cons __tmp87004 __tmp86996)))) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp87013 + __obj86058 + __tmp86995 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87025 - (let ((__tmp87034 - (let ((__tmp87035 |gx[1]#_g87036_|)) + (let ((__tmp87007 + (let ((__tmp87016 + (let ((__tmp87017 |gx[1]#_g87018_|)) (declare (not safe)) - (cons 'id __tmp87035))) - (__tmp87026 - (let ((__tmp87031 - (let ((__tmp87032 |gx[1]#_g87033_|)) + (cons 'id __tmp87017))) + (__tmp87008 + (let ((__tmp87013 + (let ((__tmp87014 |gx[1]#_g87015_|)) (declare (not safe)) - (cons 'key __tmp87032))) - (__tmp87027 - (let ((__tmp87028 - (let ((__tmp87029 |gx[1]#_g87030_|)) + (cons 'key __tmp87014))) + (__tmp87009 + (let ((__tmp87010 + (let ((__tmp87011 |gx[1]#_g87012_|)) (declare (not safe)) - (cons 'phi __tmp87029)))) + (cons 'phi __tmp87011)))) (declare (not safe)) - (cons __tmp87028 '())))) + (cons __tmp87010 '())))) (declare (not safe)) - (cons __tmp87031 __tmp87027)))) + (cons __tmp87013 __tmp87009)))) (declare (not safe)) - (cons __tmp87034 __tmp87026)))) + (cons __tmp87016 __tmp87008)))) (declare (not safe)) (##unchecked-structure-set! - __obj86076 - __tmp87025 + __obj86058 + __tmp87007 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86076)) + __obj86058)) (define |gx[:0:]#module-binding| - (let ((__obj86077 + (let ((__obj86059 (let () (declare (not safe)) (##structure @@ -6624,7 +6624,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86077 + __obj86059 '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! - __obj86077 + __obj86059 'module-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -6640,26 +6640,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86077 + __obj86059 '(context) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87037 - (let ((__tmp87038 |gx[1]#_g87039_|)) + (let ((__tmp87019 + (let ((__tmp87020 |gx[1]#_g87021_|)) (declare (not safe)) - (cons __tmp87038 '())))) + (cons __tmp87020 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87037 + __obj86059 + __tmp87019 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86077 + __obj86059 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -6667,7 +6667,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86077 + __obj86059 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -6675,7 +6675,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86077 + __obj86059 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -6683,178 +6683,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86077 + __obj86059 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87040 |gx[1]#_g87041_|)) + (let ((__tmp87022 |gx[1]#_g87023_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87040 + __obj86059 + __tmp87022 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87042 |gx[1]#_g87043_|)) + (let ((__tmp87024 |gx[1]#_g87025_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87042 + __obj86059 + __tmp87024 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87044 |gx[1]#_g87045_|)) + (let ((__tmp87026 |gx[1]#_g87027_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87044 + __obj86059 + __tmp87026 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87046 - (let ((__tmp87059 - (let ((__tmp87060 |gx[1]#_g87061_|)) + (let ((__tmp87028 + (let ((__tmp87041 + (let ((__tmp87042 |gx[1]#_g87043_|)) (declare (not safe)) - (cons 'context __tmp87060))) - (__tmp87047 - (let ((__tmp87056 - (let ((__tmp87057 |gx[1]#_g87058_|)) + (cons 'context __tmp87042))) + (__tmp87029 + (let ((__tmp87038 + (let ((__tmp87039 |gx[1]#_g87040_|)) (declare (not safe)) - (cons 'id __tmp87057))) - (__tmp87048 - (let ((__tmp87053 - (let ((__tmp87054 |gx[1]#_g87055_|)) + (cons 'id __tmp87039))) + (__tmp87030 + (let ((__tmp87035 + (let ((__tmp87036 |gx[1]#_g87037_|)) (declare (not safe)) - (cons 'key __tmp87054))) - (__tmp87049 - (let ((__tmp87050 - (let ((__tmp87051 |gx[1]#_g87052_|)) + (cons 'key __tmp87036))) + (__tmp87031 + (let ((__tmp87032 + (let ((__tmp87033 |gx[1]#_g87034_|)) (declare (not safe)) - (cons 'phi __tmp87051)))) + (cons 'phi __tmp87033)))) (declare (not safe)) - (cons __tmp87050 '())))) + (cons __tmp87032 '())))) (declare (not safe)) - (cons __tmp87053 __tmp87049)))) + (cons __tmp87035 __tmp87031)))) (declare (not safe)) - (cons __tmp87056 __tmp87048)))) + (cons __tmp87038 __tmp87030)))) (declare (not safe)) - (cons __tmp87059 __tmp87047)))) + (cons __tmp87041 __tmp87029)))) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87046 + __obj86059 + __tmp87028 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87062 - (let ((__tmp87075 - (let ((__tmp87076 |gx[1]#_g87077_|)) + (let ((__tmp87044 + (let ((__tmp87057 + (let ((__tmp87058 |gx[1]#_g87059_|)) (declare (not safe)) - (cons 'context __tmp87076))) - (__tmp87063 - (let ((__tmp87072 - (let ((__tmp87073 |gx[1]#_g87074_|)) + (cons 'context __tmp87058))) + (__tmp87045 + (let ((__tmp87054 + (let ((__tmp87055 |gx[1]#_g87056_|)) (declare (not safe)) - (cons 'id __tmp87073))) - (__tmp87064 - (let ((__tmp87069 - (let ((__tmp87070 |gx[1]#_g87071_|)) + (cons 'id __tmp87055))) + (__tmp87046 + (let ((__tmp87051 + (let ((__tmp87052 |gx[1]#_g87053_|)) (declare (not safe)) - (cons 'key __tmp87070))) - (__tmp87065 - (let ((__tmp87066 - (let ((__tmp87067 |gx[1]#_g87068_|)) + (cons 'key __tmp87052))) + (__tmp87047 + (let ((__tmp87048 + (let ((__tmp87049 |gx[1]#_g87050_|)) (declare (not safe)) - (cons 'phi __tmp87067)))) + (cons 'phi __tmp87049)))) (declare (not safe)) - (cons __tmp87066 '())))) + (cons __tmp87048 '())))) (declare (not safe)) - (cons __tmp87069 __tmp87065)))) + (cons __tmp87051 __tmp87047)))) (declare (not safe)) - (cons __tmp87072 __tmp87064)))) + (cons __tmp87054 __tmp87046)))) (declare (not safe)) - (cons __tmp87075 __tmp87063)))) + (cons __tmp87057 __tmp87045)))) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87062 + __obj86059 + __tmp87044 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87078 - (let ((__tmp87091 - (let ((__tmp87092 |gx[1]#_g87093_|)) + (let ((__tmp87060 + (let ((__tmp87073 + (let ((__tmp87074 |gx[1]#_g87075_|)) (declare (not safe)) - (cons 'context __tmp87092))) - (__tmp87079 - (let ((__tmp87088 - (let ((__tmp87089 |gx[1]#_g87090_|)) + (cons 'context __tmp87074))) + (__tmp87061 + (let ((__tmp87070 + (let ((__tmp87071 |gx[1]#_g87072_|)) (declare (not safe)) - (cons 'id __tmp87089))) - (__tmp87080 - (let ((__tmp87085 - (let ((__tmp87086 |gx[1]#_g87087_|)) + (cons 'id __tmp87071))) + (__tmp87062 + (let ((__tmp87067 + (let ((__tmp87068 |gx[1]#_g87069_|)) (declare (not safe)) - (cons 'key __tmp87086))) - (__tmp87081 - (let ((__tmp87082 - (let ((__tmp87083 |gx[1]#_g87084_|)) + (cons 'key __tmp87068))) + (__tmp87063 + (let ((__tmp87064 + (let ((__tmp87065 |gx[1]#_g87066_|)) (declare (not safe)) - (cons 'phi __tmp87083)))) + (cons 'phi __tmp87065)))) (declare (not safe)) - (cons __tmp87082 '())))) + (cons __tmp87064 '())))) (declare (not safe)) - (cons __tmp87085 __tmp87081)))) + (cons __tmp87067 __tmp87063)))) (declare (not safe)) - (cons __tmp87088 __tmp87080)))) + (cons __tmp87070 __tmp87062)))) (declare (not safe)) - (cons __tmp87091 __tmp87079)))) + (cons __tmp87073 __tmp87061)))) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87078 + __obj86059 + __tmp87060 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87094 - (let ((__tmp87107 - (let ((__tmp87108 |gx[1]#_g87109_|)) + (let ((__tmp87076 + (let ((__tmp87089 + (let ((__tmp87090 |gx[1]#_g87091_|)) (declare (not safe)) - (cons 'context __tmp87108))) - (__tmp87095 - (let ((__tmp87104 - (let ((__tmp87105 |gx[1]#_g87106_|)) + (cons 'context __tmp87090))) + (__tmp87077 + (let ((__tmp87086 + (let ((__tmp87087 |gx[1]#_g87088_|)) (declare (not safe)) - (cons 'id __tmp87105))) - (__tmp87096 - (let ((__tmp87101 - (let ((__tmp87102 |gx[1]#_g87103_|)) + (cons 'id __tmp87087))) + (__tmp87078 + (let ((__tmp87083 + (let ((__tmp87084 |gx[1]#_g87085_|)) (declare (not safe)) - (cons 'key __tmp87102))) - (__tmp87097 - (let ((__tmp87098 - (let ((__tmp87099 |gx[1]#_g87100_|)) + (cons 'key __tmp87084))) + (__tmp87079 + (let ((__tmp87080 + (let ((__tmp87081 |gx[1]#_g87082_|)) (declare (not safe)) - (cons 'phi __tmp87099)))) + (cons 'phi __tmp87081)))) (declare (not safe)) - (cons __tmp87098 '())))) + (cons __tmp87080 '())))) (declare (not safe)) - (cons __tmp87101 __tmp87097)))) + (cons __tmp87083 __tmp87079)))) (declare (not safe)) - (cons __tmp87104 __tmp87096)))) + (cons __tmp87086 __tmp87078)))) (declare (not safe)) - (cons __tmp87107 __tmp87095)))) + (cons __tmp87089 __tmp87077)))) (declare (not safe)) (##unchecked-structure-set! - __obj86077 - __tmp87094 + __obj86059 + __tmp87076 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86077)) + __obj86059)) (define |gx[:0:]#extern-binding| - (let ((__obj86078 + (let ((__obj86060 (let () (declare (not safe)) (##structure @@ -6878,7 +6878,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86060 '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! - __obj86078 + __obj86060 'extern-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -6894,26 +6894,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86060 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87110 - (let ((__tmp87111 |gx[1]#_g87039_|)) + (let ((__tmp87092 + (let ((__tmp87093 |gx[1]#_g87021_|)) (declare (not safe)) - (cons __tmp87111 '())))) + (cons __tmp87093 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86078 - __tmp87110 + __obj86060 + __tmp87092 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86060 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -6921,7 +6921,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86060 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -6929,7 +6929,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86060 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -6937,150 +6937,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86078 + __obj86060 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87112 |gx[1]#_g87113_|)) + (let ((__tmp87094 |gx[1]#_g87095_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86078 - __tmp87112 + __obj86060 + __tmp87094 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87114 |gx[1]#_g87115_|)) + (let ((__tmp87096 |gx[1]#_g87097_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86078 - __tmp87114 + __obj86060 + __tmp87096 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87116 |gx[1]#_g87117_|)) + (let ((__tmp87098 |gx[1]#_g87099_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86078 - __tmp87116 + __obj86060 + __tmp87098 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87118 - (let ((__tmp87127 - (let ((__tmp87128 |gx[1]#_g87129_|)) + (let ((__tmp87100 + (let ((__tmp87109 + (let ((__tmp87110 |gx[1]#_g87111_|)) (declare (not safe)) - (cons 'id __tmp87128))) - (__tmp87119 - (let ((__tmp87124 - (let ((__tmp87125 |gx[1]#_g87126_|)) + (cons 'id __tmp87110))) + (__tmp87101 + (let ((__tmp87106 + (let ((__tmp87107 |gx[1]#_g87108_|)) (declare (not safe)) - (cons 'key __tmp87125))) - (__tmp87120 - (let ((__tmp87121 - (let ((__tmp87122 |gx[1]#_g87123_|)) + (cons 'key __tmp87107))) + (__tmp87102 + (let ((__tmp87103 + (let ((__tmp87104 |gx[1]#_g87105_|)) (declare (not safe)) - (cons 'phi __tmp87122)))) + (cons 'phi __tmp87104)))) (declare (not safe)) - (cons __tmp87121 '())))) + (cons __tmp87103 '())))) (declare (not safe)) - (cons __tmp87124 __tmp87120)))) + (cons __tmp87106 __tmp87102)))) (declare (not safe)) - (cons __tmp87127 __tmp87119)))) + (cons __tmp87109 __tmp87101)))) (declare (not safe)) (##unchecked-structure-set! - __obj86078 - __tmp87118 + __obj86060 + __tmp87100 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87130 - (let ((__tmp87139 - (let ((__tmp87140 |gx[1]#_g87141_|)) + (let ((__tmp87112 + (let ((__tmp87121 + (let ((__tmp87122 |gx[1]#_g87123_|)) (declare (not safe)) - (cons 'id __tmp87140))) - (__tmp87131 - (let ((__tmp87136 - (let ((__tmp87137 |gx[1]#_g87138_|)) + (cons 'id __tmp87122))) + (__tmp87113 + (let ((__tmp87118 + (let ((__tmp87119 |gx[1]#_g87120_|)) (declare (not safe)) - (cons 'key __tmp87137))) - (__tmp87132 - (let ((__tmp87133 - (let ((__tmp87134 |gx[1]#_g87135_|)) + (cons 'key __tmp87119))) + (__tmp87114 + (let ((__tmp87115 + (let ((__tmp87116 |gx[1]#_g87117_|)) (declare (not safe)) - (cons 'phi __tmp87134)))) + (cons 'phi __tmp87116)))) (declare (not safe)) - (cons __tmp87133 '())))) + (cons __tmp87115 '())))) (declare (not safe)) - (cons __tmp87136 __tmp87132)))) + (cons __tmp87118 __tmp87114)))) (declare (not safe)) - (cons __tmp87139 __tmp87131)))) + (cons __tmp87121 __tmp87113)))) (declare (not safe)) (##unchecked-structure-set! - __obj86078 - __tmp87130 + __obj86060 + __tmp87112 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87142 - (let ((__tmp87151 - (let ((__tmp87152 |gx[1]#_g87153_|)) + (let ((__tmp87124 + (let ((__tmp87133 + (let ((__tmp87134 |gx[1]#_g87135_|)) (declare (not safe)) - (cons 'id __tmp87152))) - (__tmp87143 - (let ((__tmp87148 - (let ((__tmp87149 |gx[1]#_g87150_|)) + (cons 'id __tmp87134))) + (__tmp87125 + (let ((__tmp87130 + (let ((__tmp87131 |gx[1]#_g87132_|)) (declare (not safe)) - (cons 'key __tmp87149))) - (__tmp87144 - (let ((__tmp87145 - (let ((__tmp87146 |gx[1]#_g87147_|)) + (cons 'key __tmp87131))) + (__tmp87126 + (let ((__tmp87127 + (let ((__tmp87128 |gx[1]#_g87129_|)) (declare (not safe)) - (cons 'phi __tmp87146)))) + (cons 'phi __tmp87128)))) (declare (not safe)) - (cons __tmp87145 '())))) + (cons __tmp87127 '())))) (declare (not safe)) - (cons __tmp87148 __tmp87144)))) + (cons __tmp87130 __tmp87126)))) (declare (not safe)) - (cons __tmp87151 __tmp87143)))) + (cons __tmp87133 __tmp87125)))) (declare (not safe)) (##unchecked-structure-set! - __obj86078 - __tmp87142 + __obj86060 + __tmp87124 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87154 - (let ((__tmp87163 - (let ((__tmp87164 |gx[1]#_g87165_|)) + (let ((__tmp87136 + (let ((__tmp87145 + (let ((__tmp87146 |gx[1]#_g87147_|)) (declare (not safe)) - (cons 'id __tmp87164))) - (__tmp87155 - (let ((__tmp87160 - (let ((__tmp87161 |gx[1]#_g87162_|)) + (cons 'id __tmp87146))) + (__tmp87137 + (let ((__tmp87142 + (let ((__tmp87143 |gx[1]#_g87144_|)) (declare (not safe)) - (cons 'key __tmp87161))) - (__tmp87156 - (let ((__tmp87157 - (let ((__tmp87158 |gx[1]#_g87159_|)) + (cons 'key __tmp87143))) + (__tmp87138 + (let ((__tmp87139 + (let ((__tmp87140 |gx[1]#_g87141_|)) (declare (not safe)) - (cons 'phi __tmp87158)))) + (cons 'phi __tmp87140)))) (declare (not safe)) - (cons __tmp87157 '())))) + (cons __tmp87139 '())))) (declare (not safe)) - (cons __tmp87160 __tmp87156)))) + (cons __tmp87142 __tmp87138)))) (declare (not safe)) - (cons __tmp87163 __tmp87155)))) + (cons __tmp87145 __tmp87137)))) (declare (not safe)) (##unchecked-structure-set! - __obj86078 - __tmp87154 + __obj86060 + __tmp87136 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86078)) + __obj86060)) (define |gx[:0:]#syntax-binding| - (let ((__obj86079 + (let ((__obj86061 (let () (declare (not safe)) (##structure @@ -7104,7 +7104,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86079 + __obj86061 '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! - __obj86079 + __obj86061 'syntax-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -7120,26 +7120,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86079 + __obj86061 '(e) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87166 - (let ((__tmp87167 |gx[1]#_g86869_|)) + (let ((__tmp87148 + (let ((__tmp87149 |gx[1]#_g86851_|)) (declare (not safe)) - (cons __tmp87167 '())))) + (cons __tmp87149 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87166 + __obj86061 + __tmp87148 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86079 + __obj86061 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -7147,7 +7147,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86079 + __obj86061 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -7155,7 +7155,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86079 + __obj86061 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -7163,178 +7163,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86079 + __obj86061 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87168 |gx[1]#_g87169_|)) + (let ((__tmp87150 |gx[1]#_g87151_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87168 + __obj86061 + __tmp87150 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87170 |gx[1]#_g87171_|)) + (let ((__tmp87152 |gx[1]#_g87153_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87170 + __obj86061 + __tmp87152 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87172 |gx[1]#_g87173_|)) + (let ((__tmp87154 |gx[1]#_g87155_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87172 + __obj86061 + __tmp87154 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87174 - (let ((__tmp87187 - (let ((__tmp87188 |gx[1]#_g87189_|)) + (let ((__tmp87156 + (let ((__tmp87169 + (let ((__tmp87170 |gx[1]#_g87171_|)) (declare (not safe)) - (cons 'e __tmp87188))) - (__tmp87175 - (let ((__tmp87184 - (let ((__tmp87185 |gx[1]#_g87186_|)) + (cons 'e __tmp87170))) + (__tmp87157 + (let ((__tmp87166 + (let ((__tmp87167 |gx[1]#_g87168_|)) (declare (not safe)) - (cons 'id __tmp87185))) - (__tmp87176 - (let ((__tmp87181 - (let ((__tmp87182 |gx[1]#_g87183_|)) + (cons 'id __tmp87167))) + (__tmp87158 + (let ((__tmp87163 + (let ((__tmp87164 |gx[1]#_g87165_|)) (declare (not safe)) - (cons 'key __tmp87182))) - (__tmp87177 - (let ((__tmp87178 - (let ((__tmp87179 |gx[1]#_g87180_|)) + (cons 'key __tmp87164))) + (__tmp87159 + (let ((__tmp87160 + (let ((__tmp87161 |gx[1]#_g87162_|)) (declare (not safe)) - (cons 'phi __tmp87179)))) + (cons 'phi __tmp87161)))) (declare (not safe)) - (cons __tmp87178 '())))) + (cons __tmp87160 '())))) (declare (not safe)) - (cons __tmp87181 __tmp87177)))) + (cons __tmp87163 __tmp87159)))) (declare (not safe)) - (cons __tmp87184 __tmp87176)))) + (cons __tmp87166 __tmp87158)))) (declare (not safe)) - (cons __tmp87187 __tmp87175)))) + (cons __tmp87169 __tmp87157)))) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87174 + __obj86061 + __tmp87156 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87190 - (let ((__tmp87203 - (let ((__tmp87204 |gx[1]#_g87205_|)) + (let ((__tmp87172 + (let ((__tmp87185 + (let ((__tmp87186 |gx[1]#_g87187_|)) (declare (not safe)) - (cons 'e __tmp87204))) - (__tmp87191 - (let ((__tmp87200 - (let ((__tmp87201 |gx[1]#_g87202_|)) + (cons 'e __tmp87186))) + (__tmp87173 + (let ((__tmp87182 + (let ((__tmp87183 |gx[1]#_g87184_|)) (declare (not safe)) - (cons 'id __tmp87201))) - (__tmp87192 - (let ((__tmp87197 - (let ((__tmp87198 |gx[1]#_g87199_|)) + (cons 'id __tmp87183))) + (__tmp87174 + (let ((__tmp87179 + (let ((__tmp87180 |gx[1]#_g87181_|)) (declare (not safe)) - (cons 'key __tmp87198))) - (__tmp87193 - (let ((__tmp87194 - (let ((__tmp87195 |gx[1]#_g87196_|)) + (cons 'key __tmp87180))) + (__tmp87175 + (let ((__tmp87176 + (let ((__tmp87177 |gx[1]#_g87178_|)) (declare (not safe)) - (cons 'phi __tmp87195)))) + (cons 'phi __tmp87177)))) (declare (not safe)) - (cons __tmp87194 '())))) + (cons __tmp87176 '())))) (declare (not safe)) - (cons __tmp87197 __tmp87193)))) + (cons __tmp87179 __tmp87175)))) (declare (not safe)) - (cons __tmp87200 __tmp87192)))) + (cons __tmp87182 __tmp87174)))) (declare (not safe)) - (cons __tmp87203 __tmp87191)))) + (cons __tmp87185 __tmp87173)))) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87190 + __obj86061 + __tmp87172 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87206 - (let ((__tmp87219 - (let ((__tmp87220 |gx[1]#_g87221_|)) + (let ((__tmp87188 + (let ((__tmp87201 + (let ((__tmp87202 |gx[1]#_g87203_|)) (declare (not safe)) - (cons 'e __tmp87220))) - (__tmp87207 - (let ((__tmp87216 - (let ((__tmp87217 |gx[1]#_g87218_|)) + (cons 'e __tmp87202))) + (__tmp87189 + (let ((__tmp87198 + (let ((__tmp87199 |gx[1]#_g87200_|)) (declare (not safe)) - (cons 'id __tmp87217))) - (__tmp87208 - (let ((__tmp87213 - (let ((__tmp87214 |gx[1]#_g87215_|)) + (cons 'id __tmp87199))) + (__tmp87190 + (let ((__tmp87195 + (let ((__tmp87196 |gx[1]#_g87197_|)) (declare (not safe)) - (cons 'key __tmp87214))) - (__tmp87209 - (let ((__tmp87210 - (let ((__tmp87211 |gx[1]#_g87212_|)) + (cons 'key __tmp87196))) + (__tmp87191 + (let ((__tmp87192 + (let ((__tmp87193 |gx[1]#_g87194_|)) (declare (not safe)) - (cons 'phi __tmp87211)))) + (cons 'phi __tmp87193)))) (declare (not safe)) - (cons __tmp87210 '())))) + (cons __tmp87192 '())))) (declare (not safe)) - (cons __tmp87213 __tmp87209)))) + (cons __tmp87195 __tmp87191)))) (declare (not safe)) - (cons __tmp87216 __tmp87208)))) + (cons __tmp87198 __tmp87190)))) (declare (not safe)) - (cons __tmp87219 __tmp87207)))) + (cons __tmp87201 __tmp87189)))) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87206 + __obj86061 + __tmp87188 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87222 - (let ((__tmp87235 - (let ((__tmp87236 |gx[1]#_g87237_|)) + (let ((__tmp87204 + (let ((__tmp87217 + (let ((__tmp87218 |gx[1]#_g87219_|)) (declare (not safe)) - (cons 'e __tmp87236))) - (__tmp87223 - (let ((__tmp87232 - (let ((__tmp87233 |gx[1]#_g87234_|)) + (cons 'e __tmp87218))) + (__tmp87205 + (let ((__tmp87214 + (let ((__tmp87215 |gx[1]#_g87216_|)) (declare (not safe)) - (cons 'id __tmp87233))) - (__tmp87224 - (let ((__tmp87229 - (let ((__tmp87230 |gx[1]#_g87231_|)) + (cons 'id __tmp87215))) + (__tmp87206 + (let ((__tmp87211 + (let ((__tmp87212 |gx[1]#_g87213_|)) (declare (not safe)) - (cons 'key __tmp87230))) - (__tmp87225 - (let ((__tmp87226 - (let ((__tmp87227 |gx[1]#_g87228_|)) + (cons 'key __tmp87212))) + (__tmp87207 + (let ((__tmp87208 + (let ((__tmp87209 |gx[1]#_g87210_|)) (declare (not safe)) - (cons 'phi __tmp87227)))) + (cons 'phi __tmp87209)))) (declare (not safe)) - (cons __tmp87226 '())))) + (cons __tmp87208 '())))) (declare (not safe)) - (cons __tmp87229 __tmp87225)))) + (cons __tmp87211 __tmp87207)))) (declare (not safe)) - (cons __tmp87232 __tmp87224)))) + (cons __tmp87214 __tmp87206)))) (declare (not safe)) - (cons __tmp87235 __tmp87223)))) + (cons __tmp87217 __tmp87205)))) (declare (not safe)) (##unchecked-structure-set! - __obj86079 - __tmp87222 + __obj86061 + __tmp87204 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86079)) + __obj86061)) (define |gx[:0:]#import-binding| - (let ((__obj86080 + (let ((__obj86062 (let () (declare (not safe)) (##structure @@ -7358,7 +7358,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86080 + __obj86062 '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! - __obj86080 + __obj86062 'import-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -7374,26 +7374,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86080 + __obj86062 '(e context weak?) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87238 - (let ((__tmp87239 |gx[1]#_g86869_|)) + (let ((__tmp87220 + (let ((__tmp87221 |gx[1]#_g86851_|)) (declare (not safe)) - (cons __tmp87239 '())))) + (cons __tmp87221 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87238 + __obj86062 + __tmp87220 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86080 + __obj86062 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -7401,7 +7401,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86080 + __obj86062 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -7409,7 +7409,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86080 + __obj86062 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -7417,254 +7417,254 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86080 + __obj86062 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87240 |gx[1]#_g87241_|)) + (let ((__tmp87222 |gx[1]#_g87223_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87240 + __obj86062 + __tmp87222 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87242 |gx[1]#_g87243_|)) + (let ((__tmp87224 |gx[1]#_g87225_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87242 + __obj86062 + __tmp87224 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87244 |gx[1]#_g87245_|)) + (let ((__tmp87226 |gx[1]#_g87227_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87244 + __obj86062 + __tmp87226 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87246 - (let ((__tmp87267 - (let ((__tmp87268 |gx[1]#_g87269_|)) + (let ((__tmp87228 + (let ((__tmp87249 + (let ((__tmp87250 |gx[1]#_g87251_|)) (declare (not safe)) - (cons 'e __tmp87268))) - (__tmp87247 - (let ((__tmp87264 - (let ((__tmp87265 |gx[1]#_g87266_|)) + (cons 'e __tmp87250))) + (__tmp87229 + (let ((__tmp87246 + (let ((__tmp87247 |gx[1]#_g87248_|)) (declare (not safe)) - (cons 'context __tmp87265))) - (__tmp87248 - (let ((__tmp87261 - (let ((__tmp87262 |gx[1]#_g87263_|)) + (cons 'context __tmp87247))) + (__tmp87230 + (let ((__tmp87243 + (let ((__tmp87244 |gx[1]#_g87245_|)) (declare (not safe)) - (cons 'weak? __tmp87262))) - (__tmp87249 - (let ((__tmp87258 - (let ((__tmp87259 |gx[1]#_g87260_|)) + (cons 'weak? __tmp87244))) + (__tmp87231 + (let ((__tmp87240 + (let ((__tmp87241 |gx[1]#_g87242_|)) (declare (not safe)) - (cons 'id __tmp87259))) - (__tmp87250 - (let ((__tmp87255 - (let ((__tmp87256 - |gx[1]#_g87257_|)) + (cons 'id __tmp87241))) + (__tmp87232 + (let ((__tmp87237 + (let ((__tmp87238 + |gx[1]#_g87239_|)) (declare (not safe)) - (cons 'key __tmp87256))) - (__tmp87251 - (let ((__tmp87252 - (let ((__tmp87253 - |gx[1]#_g87254_|)) + (cons 'key __tmp87238))) + (__tmp87233 + (let ((__tmp87234 + (let ((__tmp87235 + |gx[1]#_g87236_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp87253)))) + __tmp87235)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp87252 '())))) + (cons __tmp87234 '())))) (declare (not safe)) - (cons __tmp87255 __tmp87251)))) + (cons __tmp87237 __tmp87233)))) (declare (not safe)) - (cons __tmp87258 __tmp87250)))) + (cons __tmp87240 __tmp87232)))) (declare (not safe)) - (cons __tmp87261 __tmp87249)))) + (cons __tmp87243 __tmp87231)))) (declare (not safe)) - (cons __tmp87264 __tmp87248)))) + (cons __tmp87246 __tmp87230)))) (declare (not safe)) - (cons __tmp87267 __tmp87247)))) + (cons __tmp87249 __tmp87229)))) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87246 + __obj86062 + __tmp87228 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87270 - (let ((__tmp87291 - (let ((__tmp87292 |gx[1]#_g87293_|)) + (let ((__tmp87252 + (let ((__tmp87273 + (let ((__tmp87274 |gx[1]#_g87275_|)) (declare (not safe)) - (cons 'e __tmp87292))) - (__tmp87271 - (let ((__tmp87288 - (let ((__tmp87289 |gx[1]#_g87290_|)) + (cons 'e __tmp87274))) + (__tmp87253 + (let ((__tmp87270 + (let ((__tmp87271 |gx[1]#_g87272_|)) (declare (not safe)) - (cons 'context __tmp87289))) - (__tmp87272 - (let ((__tmp87285 - (let ((__tmp87286 |gx[1]#_g87287_|)) + (cons 'context __tmp87271))) + (__tmp87254 + (let ((__tmp87267 + (let ((__tmp87268 |gx[1]#_g87269_|)) (declare (not safe)) - (cons 'weak? __tmp87286))) - (__tmp87273 - (let ((__tmp87282 - (let ((__tmp87283 |gx[1]#_g87284_|)) + (cons 'weak? __tmp87268))) + (__tmp87255 + (let ((__tmp87264 + (let ((__tmp87265 |gx[1]#_g87266_|)) (declare (not safe)) - (cons 'id __tmp87283))) - (__tmp87274 - (let ((__tmp87279 - (let ((__tmp87280 - |gx[1]#_g87281_|)) + (cons 'id __tmp87265))) + (__tmp87256 + (let ((__tmp87261 + (let ((__tmp87262 + |gx[1]#_g87263_|)) (declare (not safe)) - (cons 'key __tmp87280))) - (__tmp87275 - (let ((__tmp87276 - (let ((__tmp87277 - |gx[1]#_g87278_|)) + (cons 'key __tmp87262))) + (__tmp87257 + (let ((__tmp87258 + (let ((__tmp87259 + |gx[1]#_g87260_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp87277)))) + __tmp87259)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp87276 '())))) + (cons __tmp87258 '())))) (declare (not safe)) - (cons __tmp87279 __tmp87275)))) + (cons __tmp87261 __tmp87257)))) (declare (not safe)) - (cons __tmp87282 __tmp87274)))) + (cons __tmp87264 __tmp87256)))) (declare (not safe)) - (cons __tmp87285 __tmp87273)))) + (cons __tmp87267 __tmp87255)))) (declare (not safe)) - (cons __tmp87288 __tmp87272)))) + (cons __tmp87270 __tmp87254)))) (declare (not safe)) - (cons __tmp87291 __tmp87271)))) + (cons __tmp87273 __tmp87253)))) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87270 + __obj86062 + __tmp87252 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87294 - (let ((__tmp87315 - (let ((__tmp87316 |gx[1]#_g87317_|)) + (let ((__tmp87276 + (let ((__tmp87297 + (let ((__tmp87298 |gx[1]#_g87299_|)) (declare (not safe)) - (cons 'e __tmp87316))) - (__tmp87295 - (let ((__tmp87312 - (let ((__tmp87313 |gx[1]#_g87314_|)) + (cons 'e __tmp87298))) + (__tmp87277 + (let ((__tmp87294 + (let ((__tmp87295 |gx[1]#_g87296_|)) (declare (not safe)) - (cons 'context __tmp87313))) - (__tmp87296 - (let ((__tmp87309 - (let ((__tmp87310 |gx[1]#_g87311_|)) + (cons 'context __tmp87295))) + (__tmp87278 + (let ((__tmp87291 + (let ((__tmp87292 |gx[1]#_g87293_|)) (declare (not safe)) - (cons 'weak? __tmp87310))) - (__tmp87297 - (let ((__tmp87306 - (let ((__tmp87307 |gx[1]#_g87308_|)) + (cons 'weak? __tmp87292))) + (__tmp87279 + (let ((__tmp87288 + (let ((__tmp87289 |gx[1]#_g87290_|)) (declare (not safe)) - (cons 'id __tmp87307))) - (__tmp87298 - (let ((__tmp87303 - (let ((__tmp87304 - |gx[1]#_g87305_|)) + (cons 'id __tmp87289))) + (__tmp87280 + (let ((__tmp87285 + (let ((__tmp87286 + |gx[1]#_g87287_|)) (declare (not safe)) - (cons 'key __tmp87304))) - (__tmp87299 - (let ((__tmp87300 - (let ((__tmp87301 - |gx[1]#_g87302_|)) + (cons 'key __tmp87286))) + (__tmp87281 + (let ((__tmp87282 + (let ((__tmp87283 + |gx[1]#_g87284_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp87301)))) + __tmp87283)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp87300 '())))) + (cons __tmp87282 '())))) (declare (not safe)) - (cons __tmp87303 __tmp87299)))) + (cons __tmp87285 __tmp87281)))) (declare (not safe)) - (cons __tmp87306 __tmp87298)))) + (cons __tmp87288 __tmp87280)))) (declare (not safe)) - (cons __tmp87309 __tmp87297)))) + (cons __tmp87291 __tmp87279)))) (declare (not safe)) - (cons __tmp87312 __tmp87296)))) + (cons __tmp87294 __tmp87278)))) (declare (not safe)) - (cons __tmp87315 __tmp87295)))) + (cons __tmp87297 __tmp87277)))) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87294 + __obj86062 + __tmp87276 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87318 - (let ((__tmp87339 - (let ((__tmp87340 |gx[1]#_g87341_|)) + (let ((__tmp87300 + (let ((__tmp87321 + (let ((__tmp87322 |gx[1]#_g87323_|)) (declare (not safe)) - (cons 'e __tmp87340))) - (__tmp87319 - (let ((__tmp87336 - (let ((__tmp87337 |gx[1]#_g87338_|)) + (cons 'e __tmp87322))) + (__tmp87301 + (let ((__tmp87318 + (let ((__tmp87319 |gx[1]#_g87320_|)) (declare (not safe)) - (cons 'context __tmp87337))) - (__tmp87320 - (let ((__tmp87333 - (let ((__tmp87334 |gx[1]#_g87335_|)) + (cons 'context __tmp87319))) + (__tmp87302 + (let ((__tmp87315 + (let ((__tmp87316 |gx[1]#_g87317_|)) (declare (not safe)) - (cons 'weak? __tmp87334))) - (__tmp87321 - (let ((__tmp87330 - (let ((__tmp87331 |gx[1]#_g87332_|)) + (cons 'weak? __tmp87316))) + (__tmp87303 + (let ((__tmp87312 + (let ((__tmp87313 |gx[1]#_g87314_|)) (declare (not safe)) - (cons 'id __tmp87331))) - (__tmp87322 - (let ((__tmp87327 - (let ((__tmp87328 - |gx[1]#_g87329_|)) + (cons 'id __tmp87313))) + (__tmp87304 + (let ((__tmp87309 + (let ((__tmp87310 + |gx[1]#_g87311_|)) (declare (not safe)) - (cons 'key __tmp87328))) - (__tmp87323 - (let ((__tmp87324 - (let ((__tmp87325 - |gx[1]#_g87326_|)) + (cons 'key __tmp87310))) + (__tmp87305 + (let ((__tmp87306 + (let ((__tmp87307 + |gx[1]#_g87308_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp87325)))) + __tmp87307)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp87324 '())))) + (cons __tmp87306 '())))) (declare (not safe)) - (cons __tmp87327 __tmp87323)))) + (cons __tmp87309 __tmp87305)))) (declare (not safe)) - (cons __tmp87330 __tmp87322)))) + (cons __tmp87312 __tmp87304)))) (declare (not safe)) - (cons __tmp87333 __tmp87321)))) + (cons __tmp87315 __tmp87303)))) (declare (not safe)) - (cons __tmp87336 __tmp87320)))) + (cons __tmp87318 __tmp87302)))) (declare (not safe)) - (cons __tmp87339 __tmp87319)))) + (cons __tmp87321 __tmp87301)))) (declare (not safe)) (##unchecked-structure-set! - __obj86080 - __tmp87318 + __obj86062 + __tmp87300 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86080)) + __obj86062)) (define |gx[:0:]#alias-binding| - (let ((__obj86081 + (let ((__obj86063 (let () (declare (not safe)) (##structure @@ -7688,7 +7688,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86081 + __obj86063 '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! - __obj86081 + __obj86063 'alias-binding '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -7704,26 +7704,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86081 + __obj86063 '(e) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87342 - (let ((__tmp87343 |gx[1]#_g86869_|)) + (let ((__tmp87324 + (let ((__tmp87325 |gx[1]#_g86851_|)) (declare (not safe)) - (cons __tmp87343 '())))) + (cons __tmp87325 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87342 + __obj86063 + __tmp87324 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86081 + __obj86063 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -7731,7 +7731,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86081 + __obj86063 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -7739,7 +7739,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86081 + __obj86063 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -7747,178 +7747,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86081 + __obj86063 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87344 |gx[1]#_g87345_|)) + (let ((__tmp87326 |gx[1]#_g87327_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87344 + __obj86063 + __tmp87326 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87346 |gx[1]#_g87347_|)) + (let ((__tmp87328 |gx[1]#_g87329_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87346 + __obj86063 + __tmp87328 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87348 |gx[1]#_g87349_|)) + (let ((__tmp87330 |gx[1]#_g87331_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87348 + __obj86063 + __tmp87330 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87350 - (let ((__tmp87363 - (let ((__tmp87364 |gx[1]#_g87365_|)) + (let ((__tmp87332 + (let ((__tmp87345 + (let ((__tmp87346 |gx[1]#_g87347_|)) (declare (not safe)) - (cons 'e __tmp87364))) - (__tmp87351 - (let ((__tmp87360 - (let ((__tmp87361 |gx[1]#_g87362_|)) + (cons 'e __tmp87346))) + (__tmp87333 + (let ((__tmp87342 + (let ((__tmp87343 |gx[1]#_g87344_|)) (declare (not safe)) - (cons 'id __tmp87361))) - (__tmp87352 - (let ((__tmp87357 - (let ((__tmp87358 |gx[1]#_g87359_|)) + (cons 'id __tmp87343))) + (__tmp87334 + (let ((__tmp87339 + (let ((__tmp87340 |gx[1]#_g87341_|)) (declare (not safe)) - (cons 'key __tmp87358))) - (__tmp87353 - (let ((__tmp87354 - (let ((__tmp87355 |gx[1]#_g87356_|)) + (cons 'key __tmp87340))) + (__tmp87335 + (let ((__tmp87336 + (let ((__tmp87337 |gx[1]#_g87338_|)) (declare (not safe)) - (cons 'phi __tmp87355)))) + (cons 'phi __tmp87337)))) (declare (not safe)) - (cons __tmp87354 '())))) + (cons __tmp87336 '())))) (declare (not safe)) - (cons __tmp87357 __tmp87353)))) + (cons __tmp87339 __tmp87335)))) (declare (not safe)) - (cons __tmp87360 __tmp87352)))) + (cons __tmp87342 __tmp87334)))) (declare (not safe)) - (cons __tmp87363 __tmp87351)))) + (cons __tmp87345 __tmp87333)))) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87350 + __obj86063 + __tmp87332 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87366 - (let ((__tmp87379 - (let ((__tmp87380 |gx[1]#_g87381_|)) + (let ((__tmp87348 + (let ((__tmp87361 + (let ((__tmp87362 |gx[1]#_g87363_|)) (declare (not safe)) - (cons 'e __tmp87380))) - (__tmp87367 - (let ((__tmp87376 - (let ((__tmp87377 |gx[1]#_g87378_|)) + (cons 'e __tmp87362))) + (__tmp87349 + (let ((__tmp87358 + (let ((__tmp87359 |gx[1]#_g87360_|)) (declare (not safe)) - (cons 'id __tmp87377))) - (__tmp87368 - (let ((__tmp87373 - (let ((__tmp87374 |gx[1]#_g87375_|)) + (cons 'id __tmp87359))) + (__tmp87350 + (let ((__tmp87355 + (let ((__tmp87356 |gx[1]#_g87357_|)) (declare (not safe)) - (cons 'key __tmp87374))) - (__tmp87369 - (let ((__tmp87370 - (let ((__tmp87371 |gx[1]#_g87372_|)) + (cons 'key __tmp87356))) + (__tmp87351 + (let ((__tmp87352 + (let ((__tmp87353 |gx[1]#_g87354_|)) (declare (not safe)) - (cons 'phi __tmp87371)))) + (cons 'phi __tmp87353)))) (declare (not safe)) - (cons __tmp87370 '())))) + (cons __tmp87352 '())))) (declare (not safe)) - (cons __tmp87373 __tmp87369)))) + (cons __tmp87355 __tmp87351)))) (declare (not safe)) - (cons __tmp87376 __tmp87368)))) + (cons __tmp87358 __tmp87350)))) (declare (not safe)) - (cons __tmp87379 __tmp87367)))) + (cons __tmp87361 __tmp87349)))) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87366 + __obj86063 + __tmp87348 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87382 - (let ((__tmp87395 - (let ((__tmp87396 |gx[1]#_g87397_|)) + (let ((__tmp87364 + (let ((__tmp87377 + (let ((__tmp87378 |gx[1]#_g87379_|)) (declare (not safe)) - (cons 'e __tmp87396))) - (__tmp87383 - (let ((__tmp87392 - (let ((__tmp87393 |gx[1]#_g87394_|)) + (cons 'e __tmp87378))) + (__tmp87365 + (let ((__tmp87374 + (let ((__tmp87375 |gx[1]#_g87376_|)) (declare (not safe)) - (cons 'id __tmp87393))) - (__tmp87384 - (let ((__tmp87389 - (let ((__tmp87390 |gx[1]#_g87391_|)) + (cons 'id __tmp87375))) + (__tmp87366 + (let ((__tmp87371 + (let ((__tmp87372 |gx[1]#_g87373_|)) (declare (not safe)) - (cons 'key __tmp87390))) - (__tmp87385 - (let ((__tmp87386 - (let ((__tmp87387 |gx[1]#_g87388_|)) + (cons 'key __tmp87372))) + (__tmp87367 + (let ((__tmp87368 + (let ((__tmp87369 |gx[1]#_g87370_|)) (declare (not safe)) - (cons 'phi __tmp87387)))) + (cons 'phi __tmp87369)))) (declare (not safe)) - (cons __tmp87386 '())))) + (cons __tmp87368 '())))) (declare (not safe)) - (cons __tmp87389 __tmp87385)))) + (cons __tmp87371 __tmp87367)))) (declare (not safe)) - (cons __tmp87392 __tmp87384)))) + (cons __tmp87374 __tmp87366)))) (declare (not safe)) - (cons __tmp87395 __tmp87383)))) + (cons __tmp87377 __tmp87365)))) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87382 + __obj86063 + __tmp87364 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87398 - (let ((__tmp87411 - (let ((__tmp87412 |gx[1]#_g87413_|)) + (let ((__tmp87380 + (let ((__tmp87393 + (let ((__tmp87394 |gx[1]#_g87395_|)) (declare (not safe)) - (cons 'e __tmp87412))) - (__tmp87399 - (let ((__tmp87408 - (let ((__tmp87409 |gx[1]#_g87410_|)) + (cons 'e __tmp87394))) + (__tmp87381 + (let ((__tmp87390 + (let ((__tmp87391 |gx[1]#_g87392_|)) (declare (not safe)) - (cons 'id __tmp87409))) - (__tmp87400 - (let ((__tmp87405 - (let ((__tmp87406 |gx[1]#_g87407_|)) + (cons 'id __tmp87391))) + (__tmp87382 + (let ((__tmp87387 + (let ((__tmp87388 |gx[1]#_g87389_|)) (declare (not safe)) - (cons 'key __tmp87406))) - (__tmp87401 - (let ((__tmp87402 - (let ((__tmp87403 |gx[1]#_g87404_|)) + (cons 'key __tmp87388))) + (__tmp87383 + (let ((__tmp87384 + (let ((__tmp87385 |gx[1]#_g87386_|)) (declare (not safe)) - (cons 'phi __tmp87403)))) + (cons 'phi __tmp87385)))) (declare (not safe)) - (cons __tmp87402 '())))) + (cons __tmp87384 '())))) (declare (not safe)) - (cons __tmp87405 __tmp87401)))) + (cons __tmp87387 __tmp87383)))) (declare (not safe)) - (cons __tmp87408 __tmp87400)))) + (cons __tmp87390 __tmp87382)))) (declare (not safe)) - (cons __tmp87411 __tmp87399)))) + (cons __tmp87393 __tmp87381)))) (declare (not safe)) (##unchecked-structure-set! - __obj86081 - __tmp87398 + __obj86063 + __tmp87380 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86081)) + __obj86063)) (define |gx[:0:]#expander| - (let ((__obj86082 + (let ((__obj86064 (let () (declare (not safe)) (##structure @@ -7942,7 +7942,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86082 + __obj86064 'gx#expander::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -7950,7 +7950,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86082 + __obj86064 'expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -7958,7 +7958,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86082 + __obj86064 '(e) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -7966,7 +7966,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86082 + __obj86064 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -7974,7 +7974,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86082 + __obj86064 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -7982,7 +7982,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86082 + __obj86064 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -7990,7 +7990,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86082 + __obj86064 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -7998,94 +7998,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86082 + __obj86064 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87414 |gx[1]#_g87415_|)) + (let ((__tmp87396 |gx[1]#_g87397_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86082 - __tmp87414 + __obj86064 + __tmp87396 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87416 |gx[1]#_g87417_|)) + (let ((__tmp87398 |gx[1]#_g87399_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86082 - __tmp87416 + __obj86064 + __tmp87398 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87418 |gx[1]#_g87419_|)) + (let ((__tmp87400 |gx[1]#_g87401_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86082 - __tmp87418 + __obj86064 + __tmp87400 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87420 - (let ((__tmp87421 - (let ((__tmp87422 |gx[1]#_g87423_|)) + (let ((__tmp87402 + (let ((__tmp87403 + (let ((__tmp87404 |gx[1]#_g87405_|)) (declare (not safe)) - (cons 'e __tmp87422)))) + (cons 'e __tmp87404)))) (declare (not safe)) - (cons __tmp87421 '())))) + (cons __tmp87403 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86082 - __tmp87420 + __obj86064 + __tmp87402 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87424 - (let ((__tmp87425 - (let ((__tmp87426 |gx[1]#_g87427_|)) + (let ((__tmp87406 + (let ((__tmp87407 + (let ((__tmp87408 |gx[1]#_g87409_|)) (declare (not safe)) - (cons 'e __tmp87426)))) + (cons 'e __tmp87408)))) (declare (not safe)) - (cons __tmp87425 '())))) + (cons __tmp87407 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86082 - __tmp87424 + __obj86064 + __tmp87406 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87428 - (let ((__tmp87429 - (let ((__tmp87430 |gx[1]#_g87431_|)) + (let ((__tmp87410 + (let ((__tmp87411 + (let ((__tmp87412 |gx[1]#_g87413_|)) (declare (not safe)) - (cons 'e __tmp87430)))) + (cons 'e __tmp87412)))) (declare (not safe)) - (cons __tmp87429 '())))) + (cons __tmp87411 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86082 - __tmp87428 + __obj86064 + __tmp87410 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87432 - (let ((__tmp87433 - (let ((__tmp87434 |gx[1]#_g87435_|)) + (let ((__tmp87414 + (let ((__tmp87415 + (let ((__tmp87416 |gx[1]#_g87417_|)) (declare (not safe)) - (cons 'e __tmp87434)))) + (cons 'e __tmp87416)))) (declare (not safe)) - (cons __tmp87433 '())))) + (cons __tmp87415 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86082 - __tmp87432 + __obj86064 + __tmp87414 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86082)) + __obj86064)) (define |gx[:0:]#core-expander| - (let ((__obj86083 + (let ((__obj86065 (let () (declare (not safe)) (##structure @@ -8109,7 +8109,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86083 + __obj86065 '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! - __obj86083 + __obj86065 'core-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -8125,26 +8125,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86083 + __obj86065 '(id compile-top) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87436 - (let ((__tmp87437 |gx[1]#_g87438_|)) + (let ((__tmp87418 + (let ((__tmp87419 |gx[1]#_g87420_|)) (declare (not safe)) - (cons __tmp87437 '())))) + (cons __tmp87419 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87436 + __obj86065 + __tmp87418 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86083 + __obj86065 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -8152,7 +8152,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86083 + __obj86065 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -8160,7 +8160,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86083 + __obj86065 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -8168,150 +8168,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86083 + __obj86065 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87439 |gx[1]#_g87440_|)) + (let ((__tmp87421 |gx[1]#_g87422_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87439 + __obj86065 + __tmp87421 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87441 |gx[1]#_g87442_|)) + (let ((__tmp87423 |gx[1]#_g87424_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87441 + __obj86065 + __tmp87423 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87443 |gx[1]#_g87444_|)) + (let ((__tmp87425 |gx[1]#_g87426_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87443 + __obj86065 + __tmp87425 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87445 - (let ((__tmp87454 - (let ((__tmp87455 |gx[1]#_g87456_|)) + (let ((__tmp87427 + (let ((__tmp87436 + (let ((__tmp87437 |gx[1]#_g87438_|)) (declare (not safe)) - (cons 'id __tmp87455))) - (__tmp87446 - (let ((__tmp87451 - (let ((__tmp87452 |gx[1]#_g87453_|)) + (cons 'id __tmp87437))) + (__tmp87428 + (let ((__tmp87433 + (let ((__tmp87434 |gx[1]#_g87435_|)) (declare (not safe)) - (cons 'compile-top __tmp87452))) - (__tmp87447 - (let ((__tmp87448 - (let ((__tmp87449 |gx[1]#_g87450_|)) + (cons 'compile-top __tmp87434))) + (__tmp87429 + (let ((__tmp87430 + (let ((__tmp87431 |gx[1]#_g87432_|)) (declare (not safe)) - (cons 'e __tmp87449)))) + (cons 'e __tmp87431)))) (declare (not safe)) - (cons __tmp87448 '())))) + (cons __tmp87430 '())))) (declare (not safe)) - (cons __tmp87451 __tmp87447)))) + (cons __tmp87433 __tmp87429)))) (declare (not safe)) - (cons __tmp87454 __tmp87446)))) + (cons __tmp87436 __tmp87428)))) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87445 + __obj86065 + __tmp87427 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87457 - (let ((__tmp87466 - (let ((__tmp87467 |gx[1]#_g87468_|)) + (let ((__tmp87439 + (let ((__tmp87448 + (let ((__tmp87449 |gx[1]#_g87450_|)) (declare (not safe)) - (cons 'id __tmp87467))) - (__tmp87458 - (let ((__tmp87463 - (let ((__tmp87464 |gx[1]#_g87465_|)) + (cons 'id __tmp87449))) + (__tmp87440 + (let ((__tmp87445 + (let ((__tmp87446 |gx[1]#_g87447_|)) (declare (not safe)) - (cons 'compile-top __tmp87464))) - (__tmp87459 - (let ((__tmp87460 - (let ((__tmp87461 |gx[1]#_g87462_|)) + (cons 'compile-top __tmp87446))) + (__tmp87441 + (let ((__tmp87442 + (let ((__tmp87443 |gx[1]#_g87444_|)) (declare (not safe)) - (cons 'e __tmp87461)))) + (cons 'e __tmp87443)))) (declare (not safe)) - (cons __tmp87460 '())))) + (cons __tmp87442 '())))) (declare (not safe)) - (cons __tmp87463 __tmp87459)))) + (cons __tmp87445 __tmp87441)))) (declare (not safe)) - (cons __tmp87466 __tmp87458)))) + (cons __tmp87448 __tmp87440)))) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87457 + __obj86065 + __tmp87439 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87469 - (let ((__tmp87478 - (let ((__tmp87479 |gx[1]#_g87480_|)) + (let ((__tmp87451 + (let ((__tmp87460 + (let ((__tmp87461 |gx[1]#_g87462_|)) (declare (not safe)) - (cons 'id __tmp87479))) - (__tmp87470 - (let ((__tmp87475 - (let ((__tmp87476 |gx[1]#_g87477_|)) + (cons 'id __tmp87461))) + (__tmp87452 + (let ((__tmp87457 + (let ((__tmp87458 |gx[1]#_g87459_|)) (declare (not safe)) - (cons 'compile-top __tmp87476))) - (__tmp87471 - (let ((__tmp87472 - (let ((__tmp87473 |gx[1]#_g87474_|)) + (cons 'compile-top __tmp87458))) + (__tmp87453 + (let ((__tmp87454 + (let ((__tmp87455 |gx[1]#_g87456_|)) (declare (not safe)) - (cons 'e __tmp87473)))) + (cons 'e __tmp87455)))) (declare (not safe)) - (cons __tmp87472 '())))) + (cons __tmp87454 '())))) (declare (not safe)) - (cons __tmp87475 __tmp87471)))) + (cons __tmp87457 __tmp87453)))) (declare (not safe)) - (cons __tmp87478 __tmp87470)))) + (cons __tmp87460 __tmp87452)))) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87469 + __obj86065 + __tmp87451 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87481 - (let ((__tmp87490 - (let ((__tmp87491 |gx[1]#_g87492_|)) + (let ((__tmp87463 + (let ((__tmp87472 + (let ((__tmp87473 |gx[1]#_g87474_|)) (declare (not safe)) - (cons 'id __tmp87491))) - (__tmp87482 - (let ((__tmp87487 - (let ((__tmp87488 |gx[1]#_g87489_|)) + (cons 'id __tmp87473))) + (__tmp87464 + (let ((__tmp87469 + (let ((__tmp87470 |gx[1]#_g87471_|)) (declare (not safe)) - (cons 'compile-top __tmp87488))) - (__tmp87483 - (let ((__tmp87484 - (let ((__tmp87485 |gx[1]#_g87486_|)) + (cons 'compile-top __tmp87470))) + (__tmp87465 + (let ((__tmp87466 + (let ((__tmp87467 |gx[1]#_g87468_|)) (declare (not safe)) - (cons 'e __tmp87485)))) + (cons 'e __tmp87467)))) (declare (not safe)) - (cons __tmp87484 '())))) + (cons __tmp87466 '())))) (declare (not safe)) - (cons __tmp87487 __tmp87483)))) + (cons __tmp87469 __tmp87465)))) (declare (not safe)) - (cons __tmp87490 __tmp87482)))) + (cons __tmp87472 __tmp87464)))) (declare (not safe)) (##unchecked-structure-set! - __obj86083 - __tmp87481 + __obj86065 + __tmp87463 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86083)) + __obj86065)) (define |gx[:0:]#expression-form| - (let ((__obj86084 + (let ((__obj86066 (let () (declare (not safe)) (##structure @@ -8335,7 +8335,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86084 + __obj86066 '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! - __obj86084 + __obj86066 'expression-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -8351,26 +8351,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86084 + __obj86066 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87493 - (let ((__tmp87494 |gx[1]#_g87495_|)) + (let ((__tmp87475 + (let ((__tmp87476 |gx[1]#_g87477_|)) (declare (not safe)) - (cons __tmp87494 '())))) + (cons __tmp87476 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87493 + __obj86066 + __tmp87475 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86084 + __obj86066 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -8378,7 +8378,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86084 + __obj86066 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -8386,7 +8386,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86084 + __obj86066 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -8394,150 +8394,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86084 + __obj86066 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87496 |gx[1]#_g87497_|)) + (let ((__tmp87478 |gx[1]#_g87479_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87496 + __obj86066 + __tmp87478 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87498 |gx[1]#_g87499_|)) + (let ((__tmp87480 |gx[1]#_g87481_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87498 + __obj86066 + __tmp87480 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87500 |gx[1]#_g87501_|)) + (let ((__tmp87482 |gx[1]#_g87483_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87500 + __obj86066 + __tmp87482 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87502 - (let ((__tmp87511 - (let ((__tmp87512 |gx[1]#_g87513_|)) + (let ((__tmp87484 + (let ((__tmp87493 + (let ((__tmp87494 |gx[1]#_g87495_|)) (declare (not safe)) - (cons 'id __tmp87512))) - (__tmp87503 - (let ((__tmp87508 - (let ((__tmp87509 |gx[1]#_g87510_|)) + (cons 'id __tmp87494))) + (__tmp87485 + (let ((__tmp87490 + (let ((__tmp87491 |gx[1]#_g87492_|)) (declare (not safe)) - (cons 'compile-top __tmp87509))) - (__tmp87504 - (let ((__tmp87505 - (let ((__tmp87506 |gx[1]#_g87507_|)) + (cons 'compile-top __tmp87491))) + (__tmp87486 + (let ((__tmp87487 + (let ((__tmp87488 |gx[1]#_g87489_|)) (declare (not safe)) - (cons 'e __tmp87506)))) + (cons 'e __tmp87488)))) (declare (not safe)) - (cons __tmp87505 '())))) + (cons __tmp87487 '())))) (declare (not safe)) - (cons __tmp87508 __tmp87504)))) + (cons __tmp87490 __tmp87486)))) (declare (not safe)) - (cons __tmp87511 __tmp87503)))) + (cons __tmp87493 __tmp87485)))) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87502 + __obj86066 + __tmp87484 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87514 - (let ((__tmp87523 - (let ((__tmp87524 |gx[1]#_g87525_|)) + (let ((__tmp87496 + (let ((__tmp87505 + (let ((__tmp87506 |gx[1]#_g87507_|)) (declare (not safe)) - (cons 'id __tmp87524))) - (__tmp87515 - (let ((__tmp87520 - (let ((__tmp87521 |gx[1]#_g87522_|)) + (cons 'id __tmp87506))) + (__tmp87497 + (let ((__tmp87502 + (let ((__tmp87503 |gx[1]#_g87504_|)) (declare (not safe)) - (cons 'compile-top __tmp87521))) - (__tmp87516 - (let ((__tmp87517 - (let ((__tmp87518 |gx[1]#_g87519_|)) + (cons 'compile-top __tmp87503))) + (__tmp87498 + (let ((__tmp87499 + (let ((__tmp87500 |gx[1]#_g87501_|)) (declare (not safe)) - (cons 'e __tmp87518)))) + (cons 'e __tmp87500)))) (declare (not safe)) - (cons __tmp87517 '())))) + (cons __tmp87499 '())))) (declare (not safe)) - (cons __tmp87520 __tmp87516)))) + (cons __tmp87502 __tmp87498)))) (declare (not safe)) - (cons __tmp87523 __tmp87515)))) + (cons __tmp87505 __tmp87497)))) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87514 + __obj86066 + __tmp87496 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87526 - (let ((__tmp87535 - (let ((__tmp87536 |gx[1]#_g87537_|)) + (let ((__tmp87508 + (let ((__tmp87517 + (let ((__tmp87518 |gx[1]#_g87519_|)) (declare (not safe)) - (cons 'id __tmp87536))) - (__tmp87527 - (let ((__tmp87532 - (let ((__tmp87533 |gx[1]#_g87534_|)) + (cons 'id __tmp87518))) + (__tmp87509 + (let ((__tmp87514 + (let ((__tmp87515 |gx[1]#_g87516_|)) (declare (not safe)) - (cons 'compile-top __tmp87533))) - (__tmp87528 - (let ((__tmp87529 - (let ((__tmp87530 |gx[1]#_g87531_|)) + (cons 'compile-top __tmp87515))) + (__tmp87510 + (let ((__tmp87511 + (let ((__tmp87512 |gx[1]#_g87513_|)) (declare (not safe)) - (cons 'e __tmp87530)))) + (cons 'e __tmp87512)))) (declare (not safe)) - (cons __tmp87529 '())))) + (cons __tmp87511 '())))) (declare (not safe)) - (cons __tmp87532 __tmp87528)))) + (cons __tmp87514 __tmp87510)))) (declare (not safe)) - (cons __tmp87535 __tmp87527)))) + (cons __tmp87517 __tmp87509)))) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87526 + __obj86066 + __tmp87508 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87538 - (let ((__tmp87547 - (let ((__tmp87548 |gx[1]#_g87549_|)) + (let ((__tmp87520 + (let ((__tmp87529 + (let ((__tmp87530 |gx[1]#_g87531_|)) (declare (not safe)) - (cons 'id __tmp87548))) - (__tmp87539 - (let ((__tmp87544 - (let ((__tmp87545 |gx[1]#_g87546_|)) + (cons 'id __tmp87530))) + (__tmp87521 + (let ((__tmp87526 + (let ((__tmp87527 |gx[1]#_g87528_|)) (declare (not safe)) - (cons 'compile-top __tmp87545))) - (__tmp87540 - (let ((__tmp87541 - (let ((__tmp87542 |gx[1]#_g87543_|)) + (cons 'compile-top __tmp87527))) + (__tmp87522 + (let ((__tmp87523 + (let ((__tmp87524 |gx[1]#_g87525_|)) (declare (not safe)) - (cons 'e __tmp87542)))) + (cons 'e __tmp87524)))) (declare (not safe)) - (cons __tmp87541 '())))) + (cons __tmp87523 '())))) (declare (not safe)) - (cons __tmp87544 __tmp87540)))) + (cons __tmp87526 __tmp87522)))) (declare (not safe)) - (cons __tmp87547 __tmp87539)))) + (cons __tmp87529 __tmp87521)))) (declare (not safe)) (##unchecked-structure-set! - __obj86084 - __tmp87538 + __obj86066 + __tmp87520 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86084)) + __obj86066)) (define |gx[:0:]#special-form| - (let ((__obj86085 + (let ((__obj86067 (let () (declare (not safe)) (##structure @@ -8561,7 +8561,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86067 '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! - __obj86085 + __obj86067 'special-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -8577,26 +8577,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86067 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87550 - (let ((__tmp87551 |gx[1]#_g87495_|)) + (let ((__tmp87532 + (let ((__tmp87533 |gx[1]#_g87477_|)) (declare (not safe)) - (cons __tmp87551 '())))) + (cons __tmp87533 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86085 - __tmp87550 + __obj86067 + __tmp87532 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86067 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -8604,7 +8604,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86067 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -8612,7 +8612,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86067 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -8620,150 +8620,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86085 + __obj86067 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87552 |gx[1]#_g87553_|)) + (let ((__tmp87534 |gx[1]#_g87535_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86085 - __tmp87552 + __obj86067 + __tmp87534 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87554 |gx[1]#_g87555_|)) + (let ((__tmp87536 |gx[1]#_g87537_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86085 - __tmp87554 + __obj86067 + __tmp87536 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87556 |gx[1]#_g87557_|)) + (let ((__tmp87538 |gx[1]#_g87539_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86085 - __tmp87556 + __obj86067 + __tmp87538 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87558 - (let ((__tmp87567 - (let ((__tmp87568 |gx[1]#_g87569_|)) + (let ((__tmp87540 + (let ((__tmp87549 + (let ((__tmp87550 |gx[1]#_g87551_|)) (declare (not safe)) - (cons 'id __tmp87568))) - (__tmp87559 - (let ((__tmp87564 - (let ((__tmp87565 |gx[1]#_g87566_|)) + (cons 'id __tmp87550))) + (__tmp87541 + (let ((__tmp87546 + (let ((__tmp87547 |gx[1]#_g87548_|)) (declare (not safe)) - (cons 'compile-top __tmp87565))) - (__tmp87560 - (let ((__tmp87561 - (let ((__tmp87562 |gx[1]#_g87563_|)) + (cons 'compile-top __tmp87547))) + (__tmp87542 + (let ((__tmp87543 + (let ((__tmp87544 |gx[1]#_g87545_|)) (declare (not safe)) - (cons 'e __tmp87562)))) + (cons 'e __tmp87544)))) (declare (not safe)) - (cons __tmp87561 '())))) + (cons __tmp87543 '())))) (declare (not safe)) - (cons __tmp87564 __tmp87560)))) + (cons __tmp87546 __tmp87542)))) (declare (not safe)) - (cons __tmp87567 __tmp87559)))) + (cons __tmp87549 __tmp87541)))) (declare (not safe)) (##unchecked-structure-set! - __obj86085 - __tmp87558 + __obj86067 + __tmp87540 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87570 - (let ((__tmp87579 - (let ((__tmp87580 |gx[1]#_g87581_|)) + (let ((__tmp87552 + (let ((__tmp87561 + (let ((__tmp87562 |gx[1]#_g87563_|)) (declare (not safe)) - (cons 'id __tmp87580))) - (__tmp87571 - (let ((__tmp87576 - (let ((__tmp87577 |gx[1]#_g87578_|)) + (cons 'id __tmp87562))) + (__tmp87553 + (let ((__tmp87558 + (let ((__tmp87559 |gx[1]#_g87560_|)) (declare (not safe)) - (cons 'compile-top __tmp87577))) - (__tmp87572 - (let ((__tmp87573 - (let ((__tmp87574 |gx[1]#_g87575_|)) + (cons 'compile-top __tmp87559))) + (__tmp87554 + (let ((__tmp87555 + (let ((__tmp87556 |gx[1]#_g87557_|)) (declare (not safe)) - (cons 'e __tmp87574)))) + (cons 'e __tmp87556)))) (declare (not safe)) - (cons __tmp87573 '())))) + (cons __tmp87555 '())))) (declare (not safe)) - (cons __tmp87576 __tmp87572)))) + (cons __tmp87558 __tmp87554)))) (declare (not safe)) - (cons __tmp87579 __tmp87571)))) + (cons __tmp87561 __tmp87553)))) (declare (not safe)) (##unchecked-structure-set! - __obj86085 - __tmp87570 + __obj86067 + __tmp87552 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87582 - (let ((__tmp87591 - (let ((__tmp87592 |gx[1]#_g87593_|)) + (let ((__tmp87564 + (let ((__tmp87573 + (let ((__tmp87574 |gx[1]#_g87575_|)) (declare (not safe)) - (cons 'id __tmp87592))) - (__tmp87583 - (let ((__tmp87588 - (let ((__tmp87589 |gx[1]#_g87590_|)) + (cons 'id __tmp87574))) + (__tmp87565 + (let ((__tmp87570 + (let ((__tmp87571 |gx[1]#_g87572_|)) (declare (not safe)) - (cons 'compile-top __tmp87589))) - (__tmp87584 - (let ((__tmp87585 - (let ((__tmp87586 |gx[1]#_g87587_|)) + (cons 'compile-top __tmp87571))) + (__tmp87566 + (let ((__tmp87567 + (let ((__tmp87568 |gx[1]#_g87569_|)) (declare (not safe)) - (cons 'e __tmp87586)))) + (cons 'e __tmp87568)))) (declare (not safe)) - (cons __tmp87585 '())))) + (cons __tmp87567 '())))) (declare (not safe)) - (cons __tmp87588 __tmp87584)))) + (cons __tmp87570 __tmp87566)))) (declare (not safe)) - (cons __tmp87591 __tmp87583)))) + (cons __tmp87573 __tmp87565)))) (declare (not safe)) (##unchecked-structure-set! - __obj86085 - __tmp87582 + __obj86067 + __tmp87564 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87594 - (let ((__tmp87603 - (let ((__tmp87604 |gx[1]#_g87605_|)) + (let ((__tmp87576 + (let ((__tmp87585 + (let ((__tmp87586 |gx[1]#_g87587_|)) (declare (not safe)) - (cons 'id __tmp87604))) - (__tmp87595 - (let ((__tmp87600 - (let ((__tmp87601 |gx[1]#_g87602_|)) + (cons 'id __tmp87586))) + (__tmp87577 + (let ((__tmp87582 + (let ((__tmp87583 |gx[1]#_g87584_|)) (declare (not safe)) - (cons 'compile-top __tmp87601))) - (__tmp87596 - (let ((__tmp87597 - (let ((__tmp87598 |gx[1]#_g87599_|)) + (cons 'compile-top __tmp87583))) + (__tmp87578 + (let ((__tmp87579 + (let ((__tmp87580 |gx[1]#_g87581_|)) (declare (not safe)) - (cons 'e __tmp87598)))) + (cons 'e __tmp87580)))) (declare (not safe)) - (cons __tmp87597 '())))) + (cons __tmp87579 '())))) (declare (not safe)) - (cons __tmp87600 __tmp87596)))) + (cons __tmp87582 __tmp87578)))) (declare (not safe)) - (cons __tmp87603 __tmp87595)))) + (cons __tmp87585 __tmp87577)))) (declare (not safe)) (##unchecked-structure-set! - __obj86085 - __tmp87594 + __obj86067 + __tmp87576 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86085)) + __obj86067)) (define |gx[:0:]#definition-form| - (let ((__obj86086 + (let ((__obj86068 (let () (declare (not safe)) (##structure @@ -8787,7 +8787,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86068 '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! - __obj86086 + __obj86068 'definition-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -8803,26 +8803,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86068 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87606 - (let ((__tmp87607 |gx[1]#_g87608_|)) + (let ((__tmp87588 + (let ((__tmp87589 |gx[1]#_g87590_|)) (declare (not safe)) - (cons __tmp87607 '())))) + (cons __tmp87589 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86086 - __tmp87606 + __obj86068 + __tmp87588 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86068 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -8830,7 +8830,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86068 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -8838,7 +8838,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86068 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -8846,150 +8846,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86086 + __obj86068 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87609 |gx[1]#_g87610_|)) + (let ((__tmp87591 |gx[1]#_g87592_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86086 - __tmp87609 + __obj86068 + __tmp87591 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87611 |gx[1]#_g87612_|)) + (let ((__tmp87593 |gx[1]#_g87594_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86086 - __tmp87611 + __obj86068 + __tmp87593 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87613 |gx[1]#_g87614_|)) + (let ((__tmp87595 |gx[1]#_g87596_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86086 - __tmp87613 + __obj86068 + __tmp87595 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87615 - (let ((__tmp87624 - (let ((__tmp87625 |gx[1]#_g87626_|)) + (let ((__tmp87597 + (let ((__tmp87606 + (let ((__tmp87607 |gx[1]#_g87608_|)) (declare (not safe)) - (cons 'id __tmp87625))) - (__tmp87616 - (let ((__tmp87621 - (let ((__tmp87622 |gx[1]#_g87623_|)) + (cons 'id __tmp87607))) + (__tmp87598 + (let ((__tmp87603 + (let ((__tmp87604 |gx[1]#_g87605_|)) (declare (not safe)) - (cons 'compile-top __tmp87622))) - (__tmp87617 - (let ((__tmp87618 - (let ((__tmp87619 |gx[1]#_g87620_|)) + (cons 'compile-top __tmp87604))) + (__tmp87599 + (let ((__tmp87600 + (let ((__tmp87601 |gx[1]#_g87602_|)) (declare (not safe)) - (cons 'e __tmp87619)))) + (cons 'e __tmp87601)))) (declare (not safe)) - (cons __tmp87618 '())))) + (cons __tmp87600 '())))) (declare (not safe)) - (cons __tmp87621 __tmp87617)))) + (cons __tmp87603 __tmp87599)))) (declare (not safe)) - (cons __tmp87624 __tmp87616)))) + (cons __tmp87606 __tmp87598)))) (declare (not safe)) (##unchecked-structure-set! - __obj86086 - __tmp87615 + __obj86068 + __tmp87597 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87627 - (let ((__tmp87636 - (let ((__tmp87637 |gx[1]#_g87638_|)) + (let ((__tmp87609 + (let ((__tmp87618 + (let ((__tmp87619 |gx[1]#_g87620_|)) (declare (not safe)) - (cons 'id __tmp87637))) - (__tmp87628 - (let ((__tmp87633 - (let ((__tmp87634 |gx[1]#_g87635_|)) + (cons 'id __tmp87619))) + (__tmp87610 + (let ((__tmp87615 + (let ((__tmp87616 |gx[1]#_g87617_|)) (declare (not safe)) - (cons 'compile-top __tmp87634))) - (__tmp87629 - (let ((__tmp87630 - (let ((__tmp87631 |gx[1]#_g87632_|)) + (cons 'compile-top __tmp87616))) + (__tmp87611 + (let ((__tmp87612 + (let ((__tmp87613 |gx[1]#_g87614_|)) (declare (not safe)) - (cons 'e __tmp87631)))) + (cons 'e __tmp87613)))) (declare (not safe)) - (cons __tmp87630 '())))) + (cons __tmp87612 '())))) (declare (not safe)) - (cons __tmp87633 __tmp87629)))) + (cons __tmp87615 __tmp87611)))) (declare (not safe)) - (cons __tmp87636 __tmp87628)))) + (cons __tmp87618 __tmp87610)))) (declare (not safe)) (##unchecked-structure-set! - __obj86086 - __tmp87627 + __obj86068 + __tmp87609 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87639 - (let ((__tmp87648 - (let ((__tmp87649 |gx[1]#_g87650_|)) + (let ((__tmp87621 + (let ((__tmp87630 + (let ((__tmp87631 |gx[1]#_g87632_|)) (declare (not safe)) - (cons 'id __tmp87649))) - (__tmp87640 - (let ((__tmp87645 - (let ((__tmp87646 |gx[1]#_g87647_|)) + (cons 'id __tmp87631))) + (__tmp87622 + (let ((__tmp87627 + (let ((__tmp87628 |gx[1]#_g87629_|)) (declare (not safe)) - (cons 'compile-top __tmp87646))) - (__tmp87641 - (let ((__tmp87642 - (let ((__tmp87643 |gx[1]#_g87644_|)) + (cons 'compile-top __tmp87628))) + (__tmp87623 + (let ((__tmp87624 + (let ((__tmp87625 |gx[1]#_g87626_|)) (declare (not safe)) - (cons 'e __tmp87643)))) + (cons 'e __tmp87625)))) (declare (not safe)) - (cons __tmp87642 '())))) + (cons __tmp87624 '())))) (declare (not safe)) - (cons __tmp87645 __tmp87641)))) + (cons __tmp87627 __tmp87623)))) (declare (not safe)) - (cons __tmp87648 __tmp87640)))) + (cons __tmp87630 __tmp87622)))) (declare (not safe)) (##unchecked-structure-set! - __obj86086 - __tmp87639 + __obj86068 + __tmp87621 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87651 - (let ((__tmp87660 - (let ((__tmp87661 |gx[1]#_g87662_|)) + (let ((__tmp87633 + (let ((__tmp87642 + (let ((__tmp87643 |gx[1]#_g87644_|)) (declare (not safe)) - (cons 'id __tmp87661))) - (__tmp87652 - (let ((__tmp87657 - (let ((__tmp87658 |gx[1]#_g87659_|)) + (cons 'id __tmp87643))) + (__tmp87634 + (let ((__tmp87639 + (let ((__tmp87640 |gx[1]#_g87641_|)) (declare (not safe)) - (cons 'compile-top __tmp87658))) - (__tmp87653 - (let ((__tmp87654 - (let ((__tmp87655 |gx[1]#_g87656_|)) + (cons 'compile-top __tmp87640))) + (__tmp87635 + (let ((__tmp87636 + (let ((__tmp87637 |gx[1]#_g87638_|)) (declare (not safe)) - (cons 'e __tmp87655)))) + (cons 'e __tmp87637)))) (declare (not safe)) - (cons __tmp87654 '())))) + (cons __tmp87636 '())))) (declare (not safe)) - (cons __tmp87657 __tmp87653)))) + (cons __tmp87639 __tmp87635)))) (declare (not safe)) - (cons __tmp87660 __tmp87652)))) + (cons __tmp87642 __tmp87634)))) (declare (not safe)) (##unchecked-structure-set! - __obj86086 - __tmp87651 + __obj86068 + __tmp87633 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86086)) + __obj86068)) (define |gx[:0:]#top-special-form| - (let ((__obj86087 + (let ((__obj86069 (let () (declare (not safe)) (##structure @@ -9013,7 +9013,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86069 '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! - __obj86087 + __obj86069 'top-special-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -9029,26 +9029,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86069 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87663 - (let ((__tmp87664 |gx[1]#_g87608_|)) + (let ((__tmp87645 + (let ((__tmp87646 |gx[1]#_g87590_|)) (declare (not safe)) - (cons __tmp87664 '())))) + (cons __tmp87646 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86087 - __tmp87663 + __obj86069 + __tmp87645 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86069 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -9056,7 +9056,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86069 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -9064,7 +9064,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86069 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -9072,150 +9072,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86087 + __obj86069 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87665 |gx[1]#_g87666_|)) + (let ((__tmp87647 |gx[1]#_g87648_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86087 - __tmp87665 + __obj86069 + __tmp87647 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87667 |gx[1]#_g87668_|)) + (let ((__tmp87649 |gx[1]#_g87650_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86087 - __tmp87667 + __obj86069 + __tmp87649 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87669 |gx[1]#_g87670_|)) + (let ((__tmp87651 |gx[1]#_g87652_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86087 - __tmp87669 + __obj86069 + __tmp87651 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87671 - (let ((__tmp87680 - (let ((__tmp87681 |gx[1]#_g87682_|)) + (let ((__tmp87653 + (let ((__tmp87662 + (let ((__tmp87663 |gx[1]#_g87664_|)) (declare (not safe)) - (cons 'id __tmp87681))) - (__tmp87672 - (let ((__tmp87677 - (let ((__tmp87678 |gx[1]#_g87679_|)) + (cons 'id __tmp87663))) + (__tmp87654 + (let ((__tmp87659 + (let ((__tmp87660 |gx[1]#_g87661_|)) (declare (not safe)) - (cons 'compile-top __tmp87678))) - (__tmp87673 - (let ((__tmp87674 - (let ((__tmp87675 |gx[1]#_g87676_|)) + (cons 'compile-top __tmp87660))) + (__tmp87655 + (let ((__tmp87656 + (let ((__tmp87657 |gx[1]#_g87658_|)) (declare (not safe)) - (cons 'e __tmp87675)))) + (cons 'e __tmp87657)))) (declare (not safe)) - (cons __tmp87674 '())))) + (cons __tmp87656 '())))) (declare (not safe)) - (cons __tmp87677 __tmp87673)))) + (cons __tmp87659 __tmp87655)))) (declare (not safe)) - (cons __tmp87680 __tmp87672)))) + (cons __tmp87662 __tmp87654)))) (declare (not safe)) (##unchecked-structure-set! - __obj86087 - __tmp87671 + __obj86069 + __tmp87653 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87683 - (let ((__tmp87692 - (let ((__tmp87693 |gx[1]#_g87694_|)) + (let ((__tmp87665 + (let ((__tmp87674 + (let ((__tmp87675 |gx[1]#_g87676_|)) (declare (not safe)) - (cons 'id __tmp87693))) - (__tmp87684 - (let ((__tmp87689 - (let ((__tmp87690 |gx[1]#_g87691_|)) + (cons 'id __tmp87675))) + (__tmp87666 + (let ((__tmp87671 + (let ((__tmp87672 |gx[1]#_g87673_|)) (declare (not safe)) - (cons 'compile-top __tmp87690))) - (__tmp87685 - (let ((__tmp87686 - (let ((__tmp87687 |gx[1]#_g87688_|)) + (cons 'compile-top __tmp87672))) + (__tmp87667 + (let ((__tmp87668 + (let ((__tmp87669 |gx[1]#_g87670_|)) (declare (not safe)) - (cons 'e __tmp87687)))) + (cons 'e __tmp87669)))) (declare (not safe)) - (cons __tmp87686 '())))) + (cons __tmp87668 '())))) (declare (not safe)) - (cons __tmp87689 __tmp87685)))) + (cons __tmp87671 __tmp87667)))) (declare (not safe)) - (cons __tmp87692 __tmp87684)))) + (cons __tmp87674 __tmp87666)))) (declare (not safe)) (##unchecked-structure-set! - __obj86087 - __tmp87683 + __obj86069 + __tmp87665 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87695 - (let ((__tmp87704 - (let ((__tmp87705 |gx[1]#_g87706_|)) + (let ((__tmp87677 + (let ((__tmp87686 + (let ((__tmp87687 |gx[1]#_g87688_|)) (declare (not safe)) - (cons 'id __tmp87705))) - (__tmp87696 - (let ((__tmp87701 - (let ((__tmp87702 |gx[1]#_g87703_|)) + (cons 'id __tmp87687))) + (__tmp87678 + (let ((__tmp87683 + (let ((__tmp87684 |gx[1]#_g87685_|)) (declare (not safe)) - (cons 'compile-top __tmp87702))) - (__tmp87697 - (let ((__tmp87698 - (let ((__tmp87699 |gx[1]#_g87700_|)) + (cons 'compile-top __tmp87684))) + (__tmp87679 + (let ((__tmp87680 + (let ((__tmp87681 |gx[1]#_g87682_|)) (declare (not safe)) - (cons 'e __tmp87699)))) + (cons 'e __tmp87681)))) (declare (not safe)) - (cons __tmp87698 '())))) + (cons __tmp87680 '())))) (declare (not safe)) - (cons __tmp87701 __tmp87697)))) + (cons __tmp87683 __tmp87679)))) (declare (not safe)) - (cons __tmp87704 __tmp87696)))) + (cons __tmp87686 __tmp87678)))) (declare (not safe)) (##unchecked-structure-set! - __obj86087 - __tmp87695 + __obj86069 + __tmp87677 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87707 - (let ((__tmp87716 - (let ((__tmp87717 |gx[1]#_g87718_|)) + (let ((__tmp87689 + (let ((__tmp87698 + (let ((__tmp87699 |gx[1]#_g87700_|)) (declare (not safe)) - (cons 'id __tmp87717))) - (__tmp87708 - (let ((__tmp87713 - (let ((__tmp87714 |gx[1]#_g87715_|)) + (cons 'id __tmp87699))) + (__tmp87690 + (let ((__tmp87695 + (let ((__tmp87696 |gx[1]#_g87697_|)) (declare (not safe)) - (cons 'compile-top __tmp87714))) - (__tmp87709 - (let ((__tmp87710 - (let ((__tmp87711 |gx[1]#_g87712_|)) + (cons 'compile-top __tmp87696))) + (__tmp87691 + (let ((__tmp87692 + (let ((__tmp87693 |gx[1]#_g87694_|)) (declare (not safe)) - (cons 'e __tmp87711)))) + (cons 'e __tmp87693)))) (declare (not safe)) - (cons __tmp87710 '())))) + (cons __tmp87692 '())))) (declare (not safe)) - (cons __tmp87713 __tmp87709)))) + (cons __tmp87695 __tmp87691)))) (declare (not safe)) - (cons __tmp87716 __tmp87708)))) + (cons __tmp87698 __tmp87690)))) (declare (not safe)) (##unchecked-structure-set! - __obj86087 - __tmp87707 + __obj86069 + __tmp87689 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86087)) + __obj86069)) (define |gx[:0:]#module-special-form| - (let ((__obj86088 + (let ((__obj86070 (let () (declare (not safe)) (##structure @@ -9239,7 +9239,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86070 '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! - __obj86088 + __obj86070 'module-special-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -9255,26 +9255,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86070 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87719 - (let ((__tmp87720 |gx[1]#_g87721_|)) + (let ((__tmp87701 + (let ((__tmp87702 |gx[1]#_g87703_|)) (declare (not safe)) - (cons __tmp87720 '())))) + (cons __tmp87702 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86088 - __tmp87719 + __obj86070 + __tmp87701 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86070 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -9282,7 +9282,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86070 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -9290,7 +9290,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86070 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -9298,150 +9298,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86088 + __obj86070 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87722 |gx[1]#_g87723_|)) + (let ((__tmp87704 |gx[1]#_g87705_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86088 - __tmp87722 + __obj86070 + __tmp87704 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87724 |gx[1]#_g87725_|)) + (let ((__tmp87706 |gx[1]#_g87707_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86088 - __tmp87724 + __obj86070 + __tmp87706 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87726 |gx[1]#_g87727_|)) + (let ((__tmp87708 |gx[1]#_g87709_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86088 - __tmp87726 + __obj86070 + __tmp87708 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87728 - (let ((__tmp87737 - (let ((__tmp87738 |gx[1]#_g87739_|)) + (let ((__tmp87710 + (let ((__tmp87719 + (let ((__tmp87720 |gx[1]#_g87721_|)) (declare (not safe)) - (cons 'id __tmp87738))) - (__tmp87729 - (let ((__tmp87734 - (let ((__tmp87735 |gx[1]#_g87736_|)) + (cons 'id __tmp87720))) + (__tmp87711 + (let ((__tmp87716 + (let ((__tmp87717 |gx[1]#_g87718_|)) (declare (not safe)) - (cons 'compile-top __tmp87735))) - (__tmp87730 - (let ((__tmp87731 - (let ((__tmp87732 |gx[1]#_g87733_|)) + (cons 'compile-top __tmp87717))) + (__tmp87712 + (let ((__tmp87713 + (let ((__tmp87714 |gx[1]#_g87715_|)) (declare (not safe)) - (cons 'e __tmp87732)))) + (cons 'e __tmp87714)))) (declare (not safe)) - (cons __tmp87731 '())))) + (cons __tmp87713 '())))) (declare (not safe)) - (cons __tmp87734 __tmp87730)))) + (cons __tmp87716 __tmp87712)))) (declare (not safe)) - (cons __tmp87737 __tmp87729)))) + (cons __tmp87719 __tmp87711)))) (declare (not safe)) (##unchecked-structure-set! - __obj86088 - __tmp87728 + __obj86070 + __tmp87710 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87740 - (let ((__tmp87749 - (let ((__tmp87750 |gx[1]#_g87751_|)) + (let ((__tmp87722 + (let ((__tmp87731 + (let ((__tmp87732 |gx[1]#_g87733_|)) (declare (not safe)) - (cons 'id __tmp87750))) - (__tmp87741 - (let ((__tmp87746 - (let ((__tmp87747 |gx[1]#_g87748_|)) + (cons 'id __tmp87732))) + (__tmp87723 + (let ((__tmp87728 + (let ((__tmp87729 |gx[1]#_g87730_|)) (declare (not safe)) - (cons 'compile-top __tmp87747))) - (__tmp87742 - (let ((__tmp87743 - (let ((__tmp87744 |gx[1]#_g87745_|)) + (cons 'compile-top __tmp87729))) + (__tmp87724 + (let ((__tmp87725 + (let ((__tmp87726 |gx[1]#_g87727_|)) (declare (not safe)) - (cons 'e __tmp87744)))) + (cons 'e __tmp87726)))) (declare (not safe)) - (cons __tmp87743 '())))) + (cons __tmp87725 '())))) (declare (not safe)) - (cons __tmp87746 __tmp87742)))) + (cons __tmp87728 __tmp87724)))) (declare (not safe)) - (cons __tmp87749 __tmp87741)))) + (cons __tmp87731 __tmp87723)))) (declare (not safe)) (##unchecked-structure-set! - __obj86088 - __tmp87740 + __obj86070 + __tmp87722 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87752 - (let ((__tmp87761 - (let ((__tmp87762 |gx[1]#_g87763_|)) + (let ((__tmp87734 + (let ((__tmp87743 + (let ((__tmp87744 |gx[1]#_g87745_|)) (declare (not safe)) - (cons 'id __tmp87762))) - (__tmp87753 - (let ((__tmp87758 - (let ((__tmp87759 |gx[1]#_g87760_|)) + (cons 'id __tmp87744))) + (__tmp87735 + (let ((__tmp87740 + (let ((__tmp87741 |gx[1]#_g87742_|)) (declare (not safe)) - (cons 'compile-top __tmp87759))) - (__tmp87754 - (let ((__tmp87755 - (let ((__tmp87756 |gx[1]#_g87757_|)) + (cons 'compile-top __tmp87741))) + (__tmp87736 + (let ((__tmp87737 + (let ((__tmp87738 |gx[1]#_g87739_|)) (declare (not safe)) - (cons 'e __tmp87756)))) + (cons 'e __tmp87738)))) (declare (not safe)) - (cons __tmp87755 '())))) + (cons __tmp87737 '())))) (declare (not safe)) - (cons __tmp87758 __tmp87754)))) + (cons __tmp87740 __tmp87736)))) (declare (not safe)) - (cons __tmp87761 __tmp87753)))) + (cons __tmp87743 __tmp87735)))) (declare (not safe)) (##unchecked-structure-set! - __obj86088 - __tmp87752 + __obj86070 + __tmp87734 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87764 - (let ((__tmp87773 - (let ((__tmp87774 |gx[1]#_g87775_|)) + (let ((__tmp87746 + (let ((__tmp87755 + (let ((__tmp87756 |gx[1]#_g87757_|)) (declare (not safe)) - (cons 'id __tmp87774))) - (__tmp87765 - (let ((__tmp87770 - (let ((__tmp87771 |gx[1]#_g87772_|)) + (cons 'id __tmp87756))) + (__tmp87747 + (let ((__tmp87752 + (let ((__tmp87753 |gx[1]#_g87754_|)) (declare (not safe)) - (cons 'compile-top __tmp87771))) - (__tmp87766 - (let ((__tmp87767 - (let ((__tmp87768 |gx[1]#_g87769_|)) + (cons 'compile-top __tmp87753))) + (__tmp87748 + (let ((__tmp87749 + (let ((__tmp87750 |gx[1]#_g87751_|)) (declare (not safe)) - (cons 'e __tmp87768)))) + (cons 'e __tmp87750)))) (declare (not safe)) - (cons __tmp87767 '())))) + (cons __tmp87749 '())))) (declare (not safe)) - (cons __tmp87770 __tmp87766)))) + (cons __tmp87752 __tmp87748)))) (declare (not safe)) - (cons __tmp87773 __tmp87765)))) + (cons __tmp87755 __tmp87747)))) (declare (not safe)) (##unchecked-structure-set! - __obj86088 - __tmp87764 + __obj86070 + __tmp87746 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86088)) + __obj86070)) (define |gx[:0:]#feature-expander| - (let ((__obj86089 + (let ((__obj86071 (let () (declare (not safe)) (##structure @@ -9465,7 +9465,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86071 '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! - __obj86089 + __obj86071 'feature-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -9481,26 +9481,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86071 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87776 - (let ((__tmp87777 |gx[1]#_g87438_|)) + (let ((__tmp87758 + (let ((__tmp87759 |gx[1]#_g87420_|)) (declare (not safe)) - (cons __tmp87777 '())))) + (cons __tmp87759 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86089 - __tmp87776 + __obj86071 + __tmp87758 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86071 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -9508,7 +9508,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86071 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -9516,7 +9516,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86071 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -9524,94 +9524,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86089 + __obj86071 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87778 |gx[1]#_g87779_|)) + (let ((__tmp87760 |gx[1]#_g87761_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86089 - __tmp87778 + __obj86071 + __tmp87760 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87780 |gx[1]#_g87781_|)) + (let ((__tmp87762 |gx[1]#_g87763_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86089 - __tmp87780 + __obj86071 + __tmp87762 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87782 |gx[1]#_g87783_|)) + (let ((__tmp87764 |gx[1]#_g87765_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86089 - __tmp87782 + __obj86071 + __tmp87764 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87784 - (let ((__tmp87785 - (let ((__tmp87786 |gx[1]#_g87787_|)) + (let ((__tmp87766 + (let ((__tmp87767 + (let ((__tmp87768 |gx[1]#_g87769_|)) (declare (not safe)) - (cons 'e __tmp87786)))) + (cons 'e __tmp87768)))) (declare (not safe)) - (cons __tmp87785 '())))) + (cons __tmp87767 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86089 - __tmp87784 + __obj86071 + __tmp87766 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87788 - (let ((__tmp87789 - (let ((__tmp87790 |gx[1]#_g87791_|)) + (let ((__tmp87770 + (let ((__tmp87771 + (let ((__tmp87772 |gx[1]#_g87773_|)) (declare (not safe)) - (cons 'e __tmp87790)))) + (cons 'e __tmp87772)))) (declare (not safe)) - (cons __tmp87789 '())))) + (cons __tmp87771 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86089 - __tmp87788 + __obj86071 + __tmp87770 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87792 - (let ((__tmp87793 - (let ((__tmp87794 |gx[1]#_g87795_|)) + (let ((__tmp87774 + (let ((__tmp87775 + (let ((__tmp87776 |gx[1]#_g87777_|)) (declare (not safe)) - (cons 'e __tmp87794)))) + (cons 'e __tmp87776)))) (declare (not safe)) - (cons __tmp87793 '())))) + (cons __tmp87775 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86089 - __tmp87792 + __obj86071 + __tmp87774 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87796 - (let ((__tmp87797 - (let ((__tmp87798 |gx[1]#_g87799_|)) + (let ((__tmp87778 + (let ((__tmp87779 + (let ((__tmp87780 |gx[1]#_g87781_|)) (declare (not safe)) - (cons 'e __tmp87798)))) + (cons 'e __tmp87780)))) (declare (not safe)) - (cons __tmp87797 '())))) + (cons __tmp87779 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86089 - __tmp87796 + __obj86071 + __tmp87778 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86089)) + __obj86071)) (define |gx[:0:]#private-feature-expander| - (let ((__obj86090 + (let ((__obj86072 (let () (declare (not safe)) (##structure @@ -9635,7 +9635,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86090 + __obj86072 '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! - __obj86090 + __obj86072 'private-feature-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -9651,26 +9651,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86090 + __obj86072 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87800 - (let ((__tmp87801 |gx[1]#_g87802_|)) + (let ((__tmp87782 + (let ((__tmp87783 |gx[1]#_g87784_|)) (declare (not safe)) - (cons __tmp87801 '())))) + (cons __tmp87783 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87800 + __obj86072 + __tmp87782 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86090 + __obj86072 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -9678,7 +9678,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86090 + __obj86072 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -9686,7 +9686,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86090 + __obj86072 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -9694,94 +9694,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86090 + __obj86072 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87803 |gx[1]#_g87804_|)) + (let ((__tmp87785 |gx[1]#_g87786_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87803 + __obj86072 + __tmp87785 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87805 |gx[1]#_g87806_|)) + (let ((__tmp87787 |gx[1]#_g87788_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87805 + __obj86072 + __tmp87787 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87807 |gx[1]#_g87808_|)) + (let ((__tmp87789 |gx[1]#_g87790_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87807 + __obj86072 + __tmp87789 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87809 - (let ((__tmp87810 - (let ((__tmp87811 |gx[1]#_g87812_|)) + (let ((__tmp87791 + (let ((__tmp87792 + (let ((__tmp87793 |gx[1]#_g87794_|)) (declare (not safe)) - (cons 'e __tmp87811)))) + (cons 'e __tmp87793)))) (declare (not safe)) - (cons __tmp87810 '())))) + (cons __tmp87792 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87809 + __obj86072 + __tmp87791 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87813 - (let ((__tmp87814 - (let ((__tmp87815 |gx[1]#_g87816_|)) + (let ((__tmp87795 + (let ((__tmp87796 + (let ((__tmp87797 |gx[1]#_g87798_|)) (declare (not safe)) - (cons 'e __tmp87815)))) + (cons 'e __tmp87797)))) (declare (not safe)) - (cons __tmp87814 '())))) + (cons __tmp87796 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87813 + __obj86072 + __tmp87795 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87817 - (let ((__tmp87818 - (let ((__tmp87819 |gx[1]#_g87820_|)) + (let ((__tmp87799 + (let ((__tmp87800 + (let ((__tmp87801 |gx[1]#_g87802_|)) (declare (not safe)) - (cons 'e __tmp87819)))) + (cons 'e __tmp87801)))) (declare (not safe)) - (cons __tmp87818 '())))) + (cons __tmp87800 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87817 + __obj86072 + __tmp87799 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87821 - (let ((__tmp87822 - (let ((__tmp87823 |gx[1]#_g87824_|)) + (let ((__tmp87803 + (let ((__tmp87804 + (let ((__tmp87805 |gx[1]#_g87806_|)) (declare (not safe)) - (cons 'e __tmp87823)))) + (cons 'e __tmp87805)))) (declare (not safe)) - (cons __tmp87822 '())))) + (cons __tmp87804 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86090 - __tmp87821 + __obj86072 + __tmp87803 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86090)) + __obj86072)) (define |gx[:0:]#reserved-expander| - (let ((__obj86091 + (let ((__obj86073 (let () (declare (not safe)) (##structure @@ -9805,7 +9805,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86091 + __obj86073 '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! - __obj86091 + __obj86073 'reserved-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -9821,26 +9821,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86091 + __obj86073 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87825 - (let ((__tmp87826 |gx[1]#_g87438_|)) + (let ((__tmp87807 + (let ((__tmp87808 |gx[1]#_g87420_|)) (declare (not safe)) - (cons __tmp87826 '())))) + (cons __tmp87808 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86091 - __tmp87825 + __obj86073 + __tmp87807 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86091 + __obj86073 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -9848,7 +9848,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86091 + __obj86073 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -9856,7 +9856,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86091 + __obj86073 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -9864,94 +9864,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86091 + __obj86073 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87827 |gx[1]#_g87828_|)) + (let ((__tmp87809 |gx[1]#_g87810_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86091 - __tmp87827 + __obj86073 + __tmp87809 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87829 |gx[1]#_g87830_|)) + (let ((__tmp87811 |gx[1]#_g87812_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86091 - __tmp87829 + __obj86073 + __tmp87811 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87831 |gx[1]#_g87832_|)) + (let ((__tmp87813 |gx[1]#_g87814_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86091 - __tmp87831 + __obj86073 + __tmp87813 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87833 - (let ((__tmp87834 - (let ((__tmp87835 |gx[1]#_g87836_|)) + (let ((__tmp87815 + (let ((__tmp87816 + (let ((__tmp87817 |gx[1]#_g87818_|)) (declare (not safe)) - (cons 'e __tmp87835)))) + (cons 'e __tmp87817)))) (declare (not safe)) - (cons __tmp87834 '())))) + (cons __tmp87816 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86091 - __tmp87833 + __obj86073 + __tmp87815 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87837 - (let ((__tmp87838 - (let ((__tmp87839 |gx[1]#_g87840_|)) + (let ((__tmp87819 + (let ((__tmp87820 + (let ((__tmp87821 |gx[1]#_g87822_|)) (declare (not safe)) - (cons 'e __tmp87839)))) + (cons 'e __tmp87821)))) (declare (not safe)) - (cons __tmp87838 '())))) + (cons __tmp87820 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86091 - __tmp87837 + __obj86073 + __tmp87819 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87841 - (let ((__tmp87842 - (let ((__tmp87843 |gx[1]#_g87844_|)) + (let ((__tmp87823 + (let ((__tmp87824 + (let ((__tmp87825 |gx[1]#_g87826_|)) (declare (not safe)) - (cons 'e __tmp87843)))) + (cons 'e __tmp87825)))) (declare (not safe)) - (cons __tmp87842 '())))) + (cons __tmp87824 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86091 - __tmp87841 + __obj86073 + __tmp87823 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87845 - (let ((__tmp87846 - (let ((__tmp87847 |gx[1]#_g87848_|)) + (let ((__tmp87827 + (let ((__tmp87828 + (let ((__tmp87829 |gx[1]#_g87830_|)) (declare (not safe)) - (cons 'e __tmp87847)))) + (cons 'e __tmp87829)))) (declare (not safe)) - (cons __tmp87846 '())))) + (cons __tmp87828 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86091 - __tmp87845 + __obj86073 + __tmp87827 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86091)) + __obj86073)) (define |gx[:0:]#macro-expander| - (let ((__obj86092 + (let ((__obj86074 (let () (declare (not safe)) (##structure @@ -9975,7 +9975,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86092 + __obj86074 '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! - __obj86092 + __obj86074 'macro-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -9991,26 +9991,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86092 + __obj86074 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87849 - (let ((__tmp87850 |gx[1]#_g87438_|)) + (let ((__tmp87831 + (let ((__tmp87832 |gx[1]#_g87420_|)) (declare (not safe)) - (cons __tmp87850 '())))) + (cons __tmp87832 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86092 - __tmp87849 + __obj86074 + __tmp87831 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86092 + __obj86074 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -10018,7 +10018,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86092 + __obj86074 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -10026,7 +10026,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86092 + __obj86074 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -10034,94 +10034,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86092 + __obj86074 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87851 |gx[1]#_g87852_|)) + (let ((__tmp87833 |gx[1]#_g87834_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86092 - __tmp87851 + __obj86074 + __tmp87833 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87853 |gx[1]#_g87854_|)) + (let ((__tmp87835 |gx[1]#_g87836_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86092 - __tmp87853 + __obj86074 + __tmp87835 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87855 |gx[1]#_g87856_|)) + (let ((__tmp87837 |gx[1]#_g87838_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86092 - __tmp87855 + __obj86074 + __tmp87837 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87857 - (let ((__tmp87858 - (let ((__tmp87859 |gx[1]#_g87860_|)) + (let ((__tmp87839 + (let ((__tmp87840 + (let ((__tmp87841 |gx[1]#_g87842_|)) (declare (not safe)) - (cons 'e __tmp87859)))) + (cons 'e __tmp87841)))) (declare (not safe)) - (cons __tmp87858 '())))) + (cons __tmp87840 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86092 - __tmp87857 + __obj86074 + __tmp87839 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87861 - (let ((__tmp87862 - (let ((__tmp87863 |gx[1]#_g87864_|)) + (let ((__tmp87843 + (let ((__tmp87844 + (let ((__tmp87845 |gx[1]#_g87846_|)) (declare (not safe)) - (cons 'e __tmp87863)))) + (cons 'e __tmp87845)))) (declare (not safe)) - (cons __tmp87862 '())))) + (cons __tmp87844 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86092 - __tmp87861 + __obj86074 + __tmp87843 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87865 - (let ((__tmp87866 - (let ((__tmp87867 |gx[1]#_g87868_|)) + (let ((__tmp87847 + (let ((__tmp87848 + (let ((__tmp87849 |gx[1]#_g87850_|)) (declare (not safe)) - (cons 'e __tmp87867)))) + (cons 'e __tmp87849)))) (declare (not safe)) - (cons __tmp87866 '())))) + (cons __tmp87848 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86092 - __tmp87865 + __obj86074 + __tmp87847 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87869 - (let ((__tmp87870 - (let ((__tmp87871 |gx[1]#_g87872_|)) + (let ((__tmp87851 + (let ((__tmp87852 + (let ((__tmp87853 |gx[1]#_g87854_|)) (declare (not safe)) - (cons 'e __tmp87871)))) + (cons 'e __tmp87853)))) (declare (not safe)) - (cons __tmp87870 '())))) + (cons __tmp87852 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86092 - __tmp87869 + __obj86074 + __tmp87851 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86092)) + __obj86074)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj86093 + (let ((__obj86075 (let () (declare (not safe)) (##structure @@ -10145,7 +10145,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86093 + __obj86075 '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! - __obj86093 + __obj86075 'rename-macro-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -10161,26 +10161,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86093 + __obj86075 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87873 - (let ((__tmp87874 |gx[1]#_g87875_|)) + (let ((__tmp87855 + (let ((__tmp87856 |gx[1]#_g87857_|)) (declare (not safe)) - (cons __tmp87874 '())))) + (cons __tmp87856 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86093 - __tmp87873 + __obj86075 + __tmp87855 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86093 + __obj86075 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -10188,7 +10188,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86093 + __obj86075 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -10196,7 +10196,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86093 + __obj86075 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -10204,94 +10204,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86093 + __obj86075 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87876 |gx[1]#_g87877_|)) + (let ((__tmp87858 |gx[1]#_g87859_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86093 - __tmp87876 + __obj86075 + __tmp87858 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87878 |gx[1]#_g87879_|)) + (let ((__tmp87860 |gx[1]#_g87861_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86093 - __tmp87878 + __obj86075 + __tmp87860 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87880 |gx[1]#_g87881_|)) + (let ((__tmp87862 |gx[1]#_g87863_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86093 - __tmp87880 + __obj86075 + __tmp87862 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87882 - (let ((__tmp87883 - (let ((__tmp87884 |gx[1]#_g87885_|)) + (let ((__tmp87864 + (let ((__tmp87865 + (let ((__tmp87866 |gx[1]#_g87867_|)) (declare (not safe)) - (cons 'e __tmp87884)))) + (cons 'e __tmp87866)))) (declare (not safe)) - (cons __tmp87883 '())))) + (cons __tmp87865 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86093 - __tmp87882 + __obj86075 + __tmp87864 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87886 - (let ((__tmp87887 - (let ((__tmp87888 |gx[1]#_g87889_|)) + (let ((__tmp87868 + (let ((__tmp87869 + (let ((__tmp87870 |gx[1]#_g87871_|)) (declare (not safe)) - (cons 'e __tmp87888)))) + (cons 'e __tmp87870)))) (declare (not safe)) - (cons __tmp87887 '())))) + (cons __tmp87869 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86093 - __tmp87886 + __obj86075 + __tmp87868 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87890 - (let ((__tmp87891 - (let ((__tmp87892 |gx[1]#_g87893_|)) + (let ((__tmp87872 + (let ((__tmp87873 + (let ((__tmp87874 |gx[1]#_g87875_|)) (declare (not safe)) - (cons 'e __tmp87892)))) + (cons 'e __tmp87874)))) (declare (not safe)) - (cons __tmp87891 '())))) + (cons __tmp87873 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86093 - __tmp87890 + __obj86075 + __tmp87872 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87894 - (let ((__tmp87895 - (let ((__tmp87896 |gx[1]#_g87897_|)) + (let ((__tmp87876 + (let ((__tmp87877 + (let ((__tmp87878 |gx[1]#_g87879_|)) (declare (not safe)) - (cons 'e __tmp87896)))) + (cons 'e __tmp87878)))) (declare (not safe)) - (cons __tmp87895 '())))) + (cons __tmp87877 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86093 - __tmp87894 + __obj86075 + __tmp87876 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86093)) + __obj86075)) (define |gx[:0:]#user-expander| - (let ((__obj86094 + (let ((__obj86076 (let () (declare (not safe)) (##structure @@ -10315,7 +10315,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86094 + __obj86076 '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! - __obj86094 + __obj86076 'user-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -10331,26 +10331,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86094 + __obj86076 '(context phi) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87898 - (let ((__tmp87899 |gx[1]#_g87875_|)) + (let ((__tmp87880 + (let ((__tmp87881 |gx[1]#_g87857_|)) (declare (not safe)) - (cons __tmp87899 '())))) + (cons __tmp87881 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj86094 - __tmp87898 + __obj86076 + __tmp87880 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj86094 + __obj86076 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -10358,7 +10358,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86094 + __obj86076 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -10366,7 +10366,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86094 + __obj86076 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -10374,150 +10374,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86094 + __obj86076 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87900 |gx[1]#_g87901_|)) + (let ((__tmp87882 |gx[1]#_g87883_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86094 - __tmp87900 + __obj86076 + __tmp87882 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87902 |gx[1]#_g87903_|)) + (let ((__tmp87884 |gx[1]#_g87885_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86094 - __tmp87902 + __obj86076 + __tmp87884 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87904 |gx[1]#_g87905_|)) + (let ((__tmp87886 |gx[1]#_g87887_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86094 - __tmp87904 + __obj86076 + __tmp87886 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87906 - (let ((__tmp87915 - (let ((__tmp87916 |gx[1]#_g87917_|)) + (let ((__tmp87888 + (let ((__tmp87897 + (let ((__tmp87898 |gx[1]#_g87899_|)) (declare (not safe)) - (cons 'context __tmp87916))) - (__tmp87907 - (let ((__tmp87912 - (let ((__tmp87913 |gx[1]#_g87914_|)) + (cons 'context __tmp87898))) + (__tmp87889 + (let ((__tmp87894 + (let ((__tmp87895 |gx[1]#_g87896_|)) (declare (not safe)) - (cons 'phi __tmp87913))) - (__tmp87908 - (let ((__tmp87909 - (let ((__tmp87910 |gx[1]#_g87911_|)) + (cons 'phi __tmp87895))) + (__tmp87890 + (let ((__tmp87891 + (let ((__tmp87892 |gx[1]#_g87893_|)) (declare (not safe)) - (cons 'e __tmp87910)))) + (cons 'e __tmp87892)))) (declare (not safe)) - (cons __tmp87909 '())))) + (cons __tmp87891 '())))) (declare (not safe)) - (cons __tmp87912 __tmp87908)))) + (cons __tmp87894 __tmp87890)))) (declare (not safe)) - (cons __tmp87915 __tmp87907)))) + (cons __tmp87897 __tmp87889)))) (declare (not safe)) (##unchecked-structure-set! - __obj86094 - __tmp87906 + __obj86076 + __tmp87888 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87918 - (let ((__tmp87927 - (let ((__tmp87928 |gx[1]#_g87929_|)) + (let ((__tmp87900 + (let ((__tmp87909 + (let ((__tmp87910 |gx[1]#_g87911_|)) (declare (not safe)) - (cons 'context __tmp87928))) - (__tmp87919 - (let ((__tmp87924 - (let ((__tmp87925 |gx[1]#_g87926_|)) + (cons 'context __tmp87910))) + (__tmp87901 + (let ((__tmp87906 + (let ((__tmp87907 |gx[1]#_g87908_|)) (declare (not safe)) - (cons 'phi __tmp87925))) - (__tmp87920 - (let ((__tmp87921 - (let ((__tmp87922 |gx[1]#_g87923_|)) + (cons 'phi __tmp87907))) + (__tmp87902 + (let ((__tmp87903 + (let ((__tmp87904 |gx[1]#_g87905_|)) (declare (not safe)) - (cons 'e __tmp87922)))) + (cons 'e __tmp87904)))) (declare (not safe)) - (cons __tmp87921 '())))) + (cons __tmp87903 '())))) (declare (not safe)) - (cons __tmp87924 __tmp87920)))) + (cons __tmp87906 __tmp87902)))) (declare (not safe)) - (cons __tmp87927 __tmp87919)))) + (cons __tmp87909 __tmp87901)))) (declare (not safe)) (##unchecked-structure-set! - __obj86094 - __tmp87918 + __obj86076 + __tmp87900 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87930 - (let ((__tmp87939 - (let ((__tmp87940 |gx[1]#_g87941_|)) + (let ((__tmp87912 + (let ((__tmp87921 + (let ((__tmp87922 |gx[1]#_g87923_|)) (declare (not safe)) - (cons 'context __tmp87940))) - (__tmp87931 - (let ((__tmp87936 - (let ((__tmp87937 |gx[1]#_g87938_|)) + (cons 'context __tmp87922))) + (__tmp87913 + (let ((__tmp87918 + (let ((__tmp87919 |gx[1]#_g87920_|)) (declare (not safe)) - (cons 'phi __tmp87937))) - (__tmp87932 - (let ((__tmp87933 - (let ((__tmp87934 |gx[1]#_g87935_|)) + (cons 'phi __tmp87919))) + (__tmp87914 + (let ((__tmp87915 + (let ((__tmp87916 |gx[1]#_g87917_|)) (declare (not safe)) - (cons 'e __tmp87934)))) + (cons 'e __tmp87916)))) (declare (not safe)) - (cons __tmp87933 '())))) + (cons __tmp87915 '())))) (declare (not safe)) - (cons __tmp87936 __tmp87932)))) + (cons __tmp87918 __tmp87914)))) (declare (not safe)) - (cons __tmp87939 __tmp87931)))) + (cons __tmp87921 __tmp87913)))) (declare (not safe)) (##unchecked-structure-set! - __obj86094 - __tmp87930 + __obj86076 + __tmp87912 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87942 - (let ((__tmp87951 - (let ((__tmp87952 |gx[1]#_g87953_|)) + (let ((__tmp87924 + (let ((__tmp87933 + (let ((__tmp87934 |gx[1]#_g87935_|)) (declare (not safe)) - (cons 'context __tmp87952))) - (__tmp87943 - (let ((__tmp87948 - (let ((__tmp87949 |gx[1]#_g87950_|)) + (cons 'context __tmp87934))) + (__tmp87925 + (let ((__tmp87930 + (let ((__tmp87931 |gx[1]#_g87932_|)) (declare (not safe)) - (cons 'phi __tmp87949))) - (__tmp87944 - (let ((__tmp87945 - (let ((__tmp87946 |gx[1]#_g87947_|)) + (cons 'phi __tmp87931))) + (__tmp87926 + (let ((__tmp87927 + (let ((__tmp87928 |gx[1]#_g87929_|)) (declare (not safe)) - (cons 'e __tmp87946)))) + (cons 'e __tmp87928)))) (declare (not safe)) - (cons __tmp87945 '())))) + (cons __tmp87927 '())))) (declare (not safe)) - (cons __tmp87948 __tmp87944)))) + (cons __tmp87930 __tmp87926)))) (declare (not safe)) - (cons __tmp87951 __tmp87943)))) + (cons __tmp87933 __tmp87925)))) (declare (not safe)) (##unchecked-structure-set! - __obj86094 - __tmp87942 + __obj86076 + __tmp87924 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86094)) + __obj86076)) (define |gx[:0:]#expander-mark| - (let ((__obj86095 + (let ((__obj86077 (let () (declare (not safe)) (##structure @@ -10541,7 +10541,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86095 + __obj86077 '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! - __obj86095 + __obj86077 'expander-mark '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -10557,7 +10557,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86095 + __obj86077 '(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! - __obj86095 + __obj86077 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -10573,7 +10573,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86095 + __obj86077 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -10581,7 +10581,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86095 + __obj86077 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -10589,7 +10589,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86095 + __obj86077 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -10597,173 +10597,173 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj86095 + __obj86077 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87954 |gx[1]#_g87955_|)) + (let ((__tmp87936 |gx[1]#_g87937_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86095 - __tmp87954 + __obj86077 + __tmp87936 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87956 |gx[1]#_g87957_|)) + (let ((__tmp87938 |gx[1]#_g87939_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86095 - __tmp87956 + __obj86077 + __tmp87938 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87958 |gx[1]#_g87959_|)) + (let ((__tmp87940 |gx[1]#_g87941_|)) (declare (not safe)) (##unchecked-structure-set! - __obj86095 - __tmp87958 + __obj86077 + __tmp87940 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87960 - (let ((__tmp87973 - (let ((__tmp87974 |gx[1]#_g87975_|)) + (let ((__tmp87942 + (let ((__tmp87955 + (let ((__tmp87956 |gx[1]#_g87957_|)) (declare (not safe)) - (cons 'subst __tmp87974))) - (__tmp87961 - (let ((__tmp87970 - (let ((__tmp87971 |gx[1]#_g87972_|)) + (cons 'subst __tmp87956))) + (__tmp87943 + (let ((__tmp87952 + (let ((__tmp87953 |gx[1]#_g87954_|)) (declare (not safe)) - (cons 'context __tmp87971))) - (__tmp87962 - (let ((__tmp87967 - (let ((__tmp87968 |gx[1]#_g87969_|)) + (cons 'context __tmp87953))) + (__tmp87944 + (let ((__tmp87949 + (let ((__tmp87950 |gx[1]#_g87951_|)) (declare (not safe)) - (cons 'phi __tmp87968))) - (__tmp87963 - (let ((__tmp87964 - (let ((__tmp87965 |gx[1]#_g87966_|)) + (cons 'phi __tmp87950))) + (__tmp87945 + (let ((__tmp87946 + (let ((__tmp87947 |gx[1]#_g87948_|)) (declare (not safe)) - (cons 'trace __tmp87965)))) + (cons 'trace __tmp87947)))) (declare (not safe)) - (cons __tmp87964 '())))) + (cons __tmp87946 '())))) (declare (not safe)) - (cons __tmp87967 __tmp87963)))) + (cons __tmp87949 __tmp87945)))) (declare (not safe)) - (cons __tmp87970 __tmp87962)))) + (cons __tmp87952 __tmp87944)))) (declare (not safe)) - (cons __tmp87973 __tmp87961)))) + (cons __tmp87955 __tmp87943)))) (declare (not safe)) (##unchecked-structure-set! - __obj86095 - __tmp87960 + __obj86077 + __tmp87942 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87976 - (let ((__tmp87989 - (let ((__tmp87990 |gx[1]#_g87991_|)) + (let ((__tmp87958 + (let ((__tmp87971 + (let ((__tmp87972 |gx[1]#_g87973_|)) (declare (not safe)) - (cons 'subst __tmp87990))) - (__tmp87977 - (let ((__tmp87986 - (let ((__tmp87987 |gx[1]#_g87988_|)) + (cons 'subst __tmp87972))) + (__tmp87959 + (let ((__tmp87968 + (let ((__tmp87969 |gx[1]#_g87970_|)) (declare (not safe)) - (cons 'context __tmp87987))) - (__tmp87978 - (let ((__tmp87983 - (let ((__tmp87984 |gx[1]#_g87985_|)) + (cons 'context __tmp87969))) + (__tmp87960 + (let ((__tmp87965 + (let ((__tmp87966 |gx[1]#_g87967_|)) (declare (not safe)) - (cons 'phi __tmp87984))) - (__tmp87979 - (let ((__tmp87980 - (let ((__tmp87981 |gx[1]#_g87982_|)) + (cons 'phi __tmp87966))) + (__tmp87961 + (let ((__tmp87962 + (let ((__tmp87963 |gx[1]#_g87964_|)) (declare (not safe)) - (cons 'trace __tmp87981)))) + (cons 'trace __tmp87963)))) (declare (not safe)) - (cons __tmp87980 '())))) + (cons __tmp87962 '())))) (declare (not safe)) - (cons __tmp87983 __tmp87979)))) + (cons __tmp87965 __tmp87961)))) (declare (not safe)) - (cons __tmp87986 __tmp87978)))) + (cons __tmp87968 __tmp87960)))) (declare (not safe)) - (cons __tmp87989 __tmp87977)))) + (cons __tmp87971 __tmp87959)))) (declare (not safe)) (##unchecked-structure-set! - __obj86095 - __tmp87976 + __obj86077 + __tmp87958 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp87992 - (let ((__tmp88005 - (let ((__tmp88006 |gx[1]#_g88007_|)) + (let ((__tmp87974 + (let ((__tmp87987 + (let ((__tmp87988 |gx[1]#_g87989_|)) (declare (not safe)) - (cons 'subst __tmp88006))) - (__tmp87993 - (let ((__tmp88002 - (let ((__tmp88003 |gx[1]#_g88004_|)) + (cons 'subst __tmp87988))) + (__tmp87975 + (let ((__tmp87984 + (let ((__tmp87985 |gx[1]#_g87986_|)) (declare (not safe)) - (cons 'context __tmp88003))) - (__tmp87994 - (let ((__tmp87999 - (let ((__tmp88000 |gx[1]#_g88001_|)) + (cons 'context __tmp87985))) + (__tmp87976 + (let ((__tmp87981 + (let ((__tmp87982 |gx[1]#_g87983_|)) (declare (not safe)) - (cons 'phi __tmp88000))) - (__tmp87995 - (let ((__tmp87996 - (let ((__tmp87997 |gx[1]#_g87998_|)) + (cons 'phi __tmp87982))) + (__tmp87977 + (let ((__tmp87978 + (let ((__tmp87979 |gx[1]#_g87980_|)) (declare (not safe)) - (cons 'trace __tmp87997)))) + (cons 'trace __tmp87979)))) (declare (not safe)) - (cons __tmp87996 '())))) + (cons __tmp87978 '())))) (declare (not safe)) - (cons __tmp87999 __tmp87995)))) + (cons __tmp87981 __tmp87977)))) (declare (not safe)) - (cons __tmp88002 __tmp87994)))) + (cons __tmp87984 __tmp87976)))) (declare (not safe)) - (cons __tmp88005 __tmp87993)))) + (cons __tmp87987 __tmp87975)))) (declare (not safe)) (##unchecked-structure-set! - __obj86095 - __tmp87992 + __obj86077 + __tmp87974 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp88008 - (let ((__tmp88021 - (let ((__tmp88022 |gx[1]#_g88023_|)) + (let ((__tmp87990 + (let ((__tmp88003 + (let ((__tmp88004 |gx[1]#_g88005_|)) (declare (not safe)) - (cons 'subst __tmp88022))) - (__tmp88009 - (let ((__tmp88018 - (let ((__tmp88019 |gx[1]#_g88020_|)) + (cons 'subst __tmp88004))) + (__tmp87991 + (let ((__tmp88000 + (let ((__tmp88001 |gx[1]#_g88002_|)) (declare (not safe)) - (cons 'context __tmp88019))) - (__tmp88010 - (let ((__tmp88015 - (let ((__tmp88016 |gx[1]#_g88017_|)) + (cons 'context __tmp88001))) + (__tmp87992 + (let ((__tmp87997 + (let ((__tmp87998 |gx[1]#_g87999_|)) (declare (not safe)) - (cons 'phi __tmp88016))) - (__tmp88011 - (let ((__tmp88012 - (let ((__tmp88013 |gx[1]#_g88014_|)) + (cons 'phi __tmp87998))) + (__tmp87993 + (let ((__tmp87994 + (let ((__tmp87995 |gx[1]#_g87996_|)) (declare (not safe)) - (cons 'trace __tmp88013)))) + (cons 'trace __tmp87995)))) (declare (not safe)) - (cons __tmp88012 '())))) + (cons __tmp87994 '())))) (declare (not safe)) - (cons __tmp88015 __tmp88011)))) + (cons __tmp87997 __tmp87993)))) (declare (not safe)) - (cons __tmp88018 __tmp88010)))) + (cons __tmp88000 __tmp87992)))) (declare (not safe)) - (cons __tmp88021 __tmp88009)))) + (cons __tmp88003 __tmp87991)))) (declare (not safe)) (##unchecked-structure-set! - __obj86095 - __tmp88008 + __obj86077 + __tmp87990 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj86095)))) + __obj86077)))) diff --git a/src/bootstrap/gerbil/expander/init~0.scm b/src/bootstrap/gerbil/expander/init~0.scm index bfaa8a9c5..76aeaeb82 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 1710833425) + (define gerbil/expander/init::timestamp 1710943498) (begin (gx#current-expander-context - (let ((__obj98954 + (let ((__obj98936 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) - (gx#top-context:::init! __obj98954) - __obj98954)) + (gx#top-context:::init! __obj98936) + __obj98936)) (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 ((__tmp98956 - (let ((__obj98955 + (let ((__tmp98938 + (let ((__obj98937 (let () (declare (not safe)) (##structure @@ -27,7 +27,7 @@ '#f '#f '#f)))) - (gx#prelude-context:::init! __obj98955 '#f) - __obj98955))) + (gx#prelude-context:::init! __obj98937 '#f) + __obj98937))) (declare (not safe)) - (gx#core-bind-root-syntax!__% ': __tmp98956 '#t)))) + (gx#core-bind-root-syntax!__% ': __tmp98938 '#t)))) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index 0481849f3..8b08ff024 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -206,10 +206,8 @@ package: gerbil/expander #f #f #f - ((:init! . gx#import-expander:::init!) - (apply-import-expander - . - gx#import-expander::apply-import-expander)))) + ((apply-import-expander . gx#import-expander::apply-import-expander) + (:init! . gx#import-expander:::init!)))) (declare-type gx#import-expander? (@predicate gx#import-expander::t)) (declare-type gx#make-import-expander (@constructor gx#import-expander::t)) (declare-type diff --git a/src/bootstrap/gerbil/expander/module~0.scm b/src/bootstrap/gerbil/expander/module~0.scm index 37463f4b9..923f64cd7 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 1710833424) + (define gerbil/expander/module::timestamp 1710943498) (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 _$args94521_ - (apply make-instance gx#module-import::t _$args94521_))) + (lambda _$args94503_ + (apply make-instance gx#module-import::t _$args94503_))) (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 _$args94518_ - (apply make-instance gx#module-export::t _$args94518_))) + (lambda _$args94500_ + (apply make-instance gx#module-export::t _$args94500_))) (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 _$args94515_ - (apply make-instance gx#import-set::t _$args94515_))) + (lambda _$args94497_ + (apply make-instance gx#import-set::t _$args94497_))) (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 _$args94512_ - (apply make-instance gx#export-set::t _$args94512_))) + (lambda _$args94494_ + (apply make-instance gx#export-set::t _$args94494_))) (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 _$args94509_ - (apply make-instance gx#import-expander::t _$args94509_))) + (lambda _$args94491_ + (apply make-instance gx#import-expander::t _$args94491_))) (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 _$args94506_ - (apply make-instance gx#export-expander::t _$args94506_))) + (lambda _$args94488_ + (apply make-instance gx#export-expander::t _$args94488_))) (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 _$args94503_ - (apply make-instance gx#import-export-expander::t _$args94503_))) + (lambda _$args94485_ + (apply make-instance gx#import-export-expander::t _$args94485_))) (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 (_path94500_ _fun94501_) + (lambda (_path94482_ _fun94483_) (call-with-input-file - (cons 'path: (cons _path94500_ gx#source-file-settings)) - _fun94501_))) + (cons 'path: (cons _path94482_ gx#source-file-settings)) + _fun94483_))) (define gx#module-context:::init! - (lambda (_self94494_ _id94495_ _super94496_ _ns94497_ _path94498_) - (if (##fx< '11 (##structure-length _self94494_)) + (lambda (_self94476_ _id94477_ _super94478_ _ns94479_ _path94480_) + (if (##fx< '11 (##structure-length _self94476_)) (begin (##unchecked-structure-set! - _self94494_ - _id94495_ + _self94476_ + _id94477_ '1 - (##structure-type _self94494_) + (##structure-type _self94476_) '#f) (##unchecked-structure-set! - _self94494_ + _self94476_ (make-hash-table-eq) '2 - (##structure-type _self94494_) + (##structure-type _self94476_) '#f) (##unchecked-structure-set! - _self94494_ - _super94496_ + _self94476_ + _super94478_ '3 - (##structure-type _self94494_) + (##structure-type _self94476_) '#f) (##unchecked-structure-set! - _self94494_ + _self94476_ '#f '4 - (##structure-type _self94494_) + (##structure-type _self94476_) '#f) (##unchecked-structure-set! - _self94494_ + _self94476_ '#f '5 - (##structure-type _self94494_) + (##structure-type _self94476_) '#f) (##unchecked-structure-set! - _self94494_ - _ns94497_ + _self94476_ + _ns94479_ '6 - (##structure-type _self94494_) + (##structure-type _self94476_) '#f) (##unchecked-structure-set! - _self94494_ - _path94498_ + _self94476_ + _path94480_ '7 - (##structure-type _self94494_) + (##structure-type _self94476_) '#f) (##unchecked-structure-set! - _self94494_ + _self94476_ '() '8 - (##structure-type _self94494_) + (##structure-type _self94476_) '#f) (##unchecked-structure-set! - _self94494_ + _self94476_ '() '9 - (##structure-type _self94494_) + (##structure-type _self94476_) '#f) (##unchecked-structure-set! - _self94494_ + _self94476_ '#f '10 - (##structure-type _self94494_) + (##structure-type _self94476_) '#f) (##unchecked-structure-set! - _self94494_ + _self94476_ '#f '11 - (##structure-type _self94494_) + (##structure-type _self94476_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self94494_ + _self94476_ '11 - (##vector-length _self94494_))))) + (##vector-length _self94476_))))) (bind-method!__% gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_self94338_ _ctx94339_ _root94340_) - (let ((_super94348_ - (let ((_$e94342_ _root94340_)) - (if _$e94342_ - _$e94342_ - (let ((_$e94345_ (gx#core-context-root__0))) - (if _$e94345_ - _$e94345_ - (let ((__obj94563 + (lambda (_self94320_ _ctx94321_ _root94322_) + (let ((_super94330_ + (let ((_$e94324_ _root94322_)) + (if _$e94324_ + _$e94324_ + (let ((_$e94327_ (gx#core-context-root__0))) + (if _$e94327_ + _$e94327_ + (let ((__obj94545 (##structure gx#root-context::t '#f '#f))) - (let ((__constructor94564 + (let ((__constructor94546 (direct-method-ref gx#root-context::t - __obj94563 + __obj94545 ':init!))) - (if __constructor94564 - (__constructor94564 __obj94563) + (if __constructor94546 + (__constructor94546 __obj94545) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj94563))))))) - (if _ctx94339_ - (let ((_id94351_ + __obj94545))))))) + (if _ctx94321_ + (let ((_id94333_ (##structure-ref - _ctx94339_ + _ctx94321_ '1 gx#expander-context::t '#f)) - (_path94352_ - (##structure-ref _ctx94339_ '7 gx#module-context::t '#f)) - (_in94353_ + (_path94334_ + (##structure-ref _ctx94321_ '7 gx#module-context::t '#f)) + (_in94335_ (map gx#core-module-export->import (##structure-ref - _ctx94339_ + _ctx94321_ '9 gx#module-context::t '#f))) - (_e94354_ - (make-promise (lambda () (gx#eval-module _ctx94339_))))) - (if (##fx< '8 (##structure-length _self94338_)) + (_e94336_ + (make-promise (lambda () (gx#eval-module _ctx94321_))))) + (if (##fx< '8 (##structure-length _self94320_)) (begin (##unchecked-structure-set! - _self94338_ - _id94351_ + _self94320_ + _id94333_ '1 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f) (##unchecked-structure-set! - _self94338_ - (make-hash-table-eq 'size: (length _in94353_)) + _self94320_ + (make-hash-table-eq 'size: (length _in94335_)) '2 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f) (##unchecked-structure-set! - _self94338_ - _super94348_ + _self94320_ + _super94330_ '3 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f) (##unchecked-structure-set! - _self94338_ + _self94320_ '#f '4 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f) (##unchecked-structure-set! - _self94338_ + _self94320_ '#f '5 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f) (##unchecked-structure-set! - _self94338_ - _path94352_ + _self94320_ + _path94334_ '6 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f) (##unchecked-structure-set! - _self94338_ - _in94353_ + _self94320_ + _in94335_ '7 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f) (##unchecked-structure-set! - _self94338_ - _e94354_ + _self94320_ + _e94336_ '8 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self94338_ + _self94320_ '8 - (##vector-length _self94338_))) + (##vector-length _self94320_))) (for-each - (lambda (_g9435594357_) - (gx#core-bind-weak-import!__% _g9435594357_ _self94338_)) - _in94353_)) - (if (##fx< '8 (##structure-length _self94338_)) + (lambda (_g9433794339_) + (gx#core-bind-weak-import!__% _g9433794339_ _self94320_)) + _in94335_)) + (if (##fx< '8 (##structure-length _self94320_)) (begin (##unchecked-structure-set! - _self94338_ + _self94320_ '#f '1 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f) (##unchecked-structure-set! - _self94338_ + _self94320_ (make-hash-table-eq) '2 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f) (##unchecked-structure-set! - _self94338_ - _super94348_ + _self94320_ + _super94330_ '3 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f) (##unchecked-structure-set! - _self94338_ + _self94320_ '#f '4 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f) (##unchecked-structure-set! - _self94338_ + _self94320_ '#f '5 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f) (##unchecked-structure-set! - _self94338_ + _self94320_ '#f '6 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f) (##unchecked-structure-set! - _self94338_ + _self94320_ '() '7 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f) (##unchecked-structure-set! - _self94338_ + _self94320_ '#f '8 - (##structure-type _self94338_) + (##structure-type _self94320_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self94338_ + _self94320_ '8 - (##vector-length _self94338_))))))) + (##vector-length _self94320_))))))) (define gx#prelude-context:::init!__0 - (lambda (_self94363_ _ctx94364_) - (let ((_root94366_ '#f)) - (gx#prelude-context:::init!__% _self94363_ _ctx94364_ _root94366_)))) + (lambda (_self94345_ _ctx94346_) + (let ((_root94348_ '#f)) + (gx#prelude-context:::init!__% _self94345_ _ctx94346_ _root94348_)))) (define gx#prelude-context:::init! - (lambda _g94570_ - (let ((_g94569_ (##length _g94570_))) - (cond ((##fx= _g94569_ 2) - (apply (lambda (_self94363_ _ctx94364_) + (lambda _g94552_ + (let ((_g94551_ (##length _g94552_))) + (cond ((##fx= _g94551_ 2) + (apply (lambda (_self94345_ _ctx94346_) (gx#prelude-context:::init!__0 - _self94363_ - _ctx94364_)) - _g94570_)) - ((##fx= _g94569_ 3) - (apply (lambda (_self94368_ _ctx94369_ _root94370_) + _self94345_ + _ctx94346_)) + _g94552_)) + ((##fx= _g94551_ 3) + (apply (lambda (_self94350_ _ctx94351_ _root94352_) (gx#prelude-context:::init!__% - _self94368_ - _ctx94369_ - _root94370_)) - _g94570_)) + _self94350_ + _ctx94351_ + _root94352_)) + _g94552_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g94570_)))))) + _g94552_)))))) (bind-method!__% gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_self94212_ _e94213_) - (if (##fx< '3 (##structure-length _self94212_)) + (lambda (_self94194_ _e94195_) + (if (##fx< '3 (##structure-length _self94194_)) (begin (##unchecked-structure-set! - _self94212_ - _e94213_ + _self94194_ + _e94195_ '1 - (##structure-type _self94212_) + (##structure-type _self94194_) '#f) (##unchecked-structure-set! - _self94212_ + _self94194_ (gx#current-expander-context) '2 - (##structure-type _self94212_) + (##structure-type _self94194_) '#f) (##unchecked-structure-set! - _self94212_ + _self94194_ (fx- (gx#current-expander-phi) '1) '3 - (##structure-type _self94212_) + (##structure-type _self94194_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self94212_ + _self94194_ '3 - (##vector-length _self94212_))))) + (##vector-length _self94194_))))) (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 (_g9383893841_ _g9383993843_) + (lambda (_g9382093823_ _g9382193825_) (gx#core-apply-user-expander__% - _g9383893841_ - _g9383993843_ + _g9382093823_ + _g9382193825_ '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 (_g9370993712_ _g9371093714_) + (lambda (_g9369193694_ _g9369293696_) (gx#core-apply-user-expander__% - _g9370993712_ - _g9371093714_ + _g9369193694_ + _g9369293696_ '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 (_ctx93580_) - (let* ((_path93582_ - (##structure-ref _ctx93580_ '7 gx#module-context::t '#f)) - (_path93584_ - (if (pair? _path93582_) (last _path93582_) _path93582_))) - (if (string? _path93584_) _path93584_ '#f)))) + (lambda (_ctx93562_) + (let* ((_path93564_ + (##structure-ref _ctx93562_ '7 gx#module-context::t '#f)) + (_path93566_ + (if (pair? _path93564_) (last _path93564_) _path93564_))) + (if (string? _path93566_) _path93566_ '#f)))) (define gx#import-module__% - (lambda (_path93556_ _reload?93557_ _eval?93558_) - (let ((_ctx93560_ + (lambda (_path93538_ _reload?93539_ _eval?93540_) + (let ((_ctx93542_ ((gx#current-expander-module-import) - _path93556_ - _reload?93557_))) - (if (and _ctx93560_ _eval?93558_) - (gx#eval-module _ctx93560_) + _path93538_ + _reload?93539_))) + (if (and _ctx93542_ _eval?93540_) + (gx#eval-module _ctx93542_) '#!void) - _ctx93560_))) + _ctx93542_))) (define gx#import-module__0 - (lambda (_path93565_) - (let* ((_reload?93567_ '#f) (_eval?93569_ '#f)) - (gx#import-module__% _path93565_ _reload?93567_ _eval?93569_)))) + (lambda (_path93547_) + (let* ((_reload?93549_ '#f) (_eval?93551_ '#f)) + (gx#import-module__% _path93547_ _reload?93549_ _eval?93551_)))) (define gx#import-module__1 - (lambda (_path93571_ _reload?93572_) - (let ((_eval?93574_ '#f)) - (gx#import-module__% _path93571_ _reload?93572_ _eval?93574_)))) + (lambda (_path93553_ _reload?93554_) + (let ((_eval?93556_ '#f)) + (gx#import-module__% _path93553_ _reload?93554_ _eval?93556_)))) (define gx#import-module - (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_) + (lambda _g94554_ + (let ((_g94553_ (##length _g94554_))) + (cond ((##fx= _g94553_ 1) + (apply (lambda (_path93547_) + (gx#import-module__0 _path93547_)) + _g94554_)) + ((##fx= _g94553_ 2) + (apply (lambda (_path93553_ _reload?93554_) + (gx#import-module__1 _path93553_ _reload?93554_)) + _g94554_)) + ((##fx= _g94553_ 3) + (apply (lambda (_path93558_ _reload?93559_ _eval?93560_) (gx#import-module__% - _path93576_ - _reload?93577_ - _eval?93578_)) - _g94572_)) + _path93558_ + _reload?93559_ + _eval?93560_)) + _g94554_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g94572_)))))) + _g94554_)))))) (define gx#eval-module - (lambda (_mod93553_) ((gx#current-expander-module-eval) _mod93553_))) + (lambda (_mod93535_) ((gx#current-expander-module-eval) _mod93535_))) (define gx#core-eval-module - (lambda (_obj93538_) - (letrec ((_force-e93540_ - (lambda (_getf93549_ _e93550_) + (lambda (_obj93520_) + (letrec ((_force-e93522_ + (lambda (_getf93531_ _e93532_) (call-with-parameters - (lambda () (force (_getf93549_ _e93550_))) + (lambda () (force (_getf93531_ _e93532_))) gx#current-expander-context - _e93550_ + _e93532_ gx#current-expander-phi '0)))) - (let _recur93542_ ((_e93544_ _obj93538_)) - (if (##structure-instance-of? _e93544_ 'gx#module-context::t) + (let _recur93524_ ((_e93526_ _obj93520_)) + (if (##structure-instance-of? _e93526_ 'gx#module-context::t) (begin - (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_ + (let ((_$e93528_ (gx#core-context-prelude__% _e93526_))) + (if _$e93528_ (_recur93524_ _$e93528_) '#!void)) + (_force-e93522_ gx#module-context-e _e93526_)) + (if (##structure-instance-of? _e93526_ 'gx#prelude-context::t) + (_force-e93522_ gx#prelude-context-e _e93526_) + (if (gx#stx-string? _e93526_) + (_recur93524_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _e93544_))) - (if (gx#core-library-module-path? _e93544_) - (_recur93542_ + (gx#core-resolve-module-path__0 _e93526_))) + (if (gx#core-library-module-path? _e93526_) + (_recur93524_ (gx#import-module__0 - (gx#core-resolve-library-module-path _e93544_))) - (error '"Cannot eval module" _obj93538_))))))))) + (gx#core-resolve-library-module-path _e93526_))) + (error '"Cannot eval module" _obj93520_))))))))) (define gx#core-context-prelude__% - (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_ + (lambda (_ctx93503_) + (let _lp93505_ ((_e93507_ _ctx93503_)) + (if (or (##structure-instance-of? _e93507_ 'gx#module-context::t) + (##structure-instance-of? _e93507_ 'gx#local-context::t)) + (_lp93505_ + (##unchecked-structure-ref _e93507_ '3 gx#phi-context::t '#f)) + (if (##structure-instance-of? _e93507_ 'gx#prelude-context::t) + _e93507_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_ctx93534_ (gx#current-expander-context))) - (gx#core-context-prelude__% _ctx93534_)))) + (let ((_ctx93516_ (gx#current-expander-context))) + (gx#core-context-prelude__% _ctx93516_)))) (define gx#core-context-prelude - (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_)) + (lambda _g94556_ + (let ((_g94555_ (##length _g94556_))) + (cond ((##fx= _g94555_ 0) + (apply (lambda () (gx#core-context-prelude__0)) _g94556_)) + ((##fx= _g94555_ 1) + (apply (lambda (_ctx93518_) + (gx#core-context-prelude__% _ctx93518_)) + _g94556_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g94574_)))))) + _g94556_)))))) (define gx#core-module->prelude-context - (lambda (_ctx93513_) - (let ((_$e93515_ (hash-get gx#__module-registry _ctx93513_))) - (if _$e93515_ - _$e93515_ - (let ((_pre93518_ - (let ((__obj94565 + (lambda (_ctx93495_) + (let ((_$e93497_ (hash-get gx#__module-registry _ctx93495_))) + (if _$e93497_ + _$e93497_ + (let ((_pre93500_ + (let ((__obj94547 (##structure gx#prelude-context::t '#f @@ -742,51 +742,51 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj94565 _ctx93513_) - __obj94565))) - (hash-put! gx#__module-registry _ctx93513_ _pre93518_) - _pre93518_))))) + (gx#prelude-context:::init! __obj94547 _ctx93495_) + __obj94547))) + (hash-put! gx#__module-registry _ctx93495_ _pre93500_) + _pre93500_))))) (define gx#core-import-module__% - (lambda (_rpath93394_ _reload?93395_) - (letrec ((_import-source93397_ - (lambda (_path93482_) - (if (member _path93482_ (gx#current-expander-path)) - (error '"Cyclic expansion" _path93482_) + (lambda (_rpath93376_ _reload?93377_) + (letrec ((_import-source93379_ + (lambda (_path93464_) + (if (member _path93464_ (gx#current-expander-path)) + (error '"Cyclic expansion" _path93464_) '#!void) (call-with-parameters (lambda () - (let ((_g94575_ (gx#core-read-module _path93482_))) + (let ((_g94557_ (gx#core-read-module _path93464_))) (begin - (let ((_g94576_ - (if (##values? _g94575_) - (##vector-length _g94575_) + (let ((_g94558_ + (if (##values? _g94557_) + (##vector-length _g94557_) 1))) - (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 (not (##fx= _g94558_ 4)) + (error "Context expects 4 values" _g94558_))) + (let ((_pre93467_ (##vector-ref _g94557_ 0)) + (_id93468_ (##vector-ref _g94557_ 1)) + (_ns93469_ (##vector-ref _g94557_ 2)) + (_body93470_ (##vector-ref _g94557_ 3))) + (let* ((_prelude93475_ (if (##structure-instance-of? - _pre93485_ + _pre93467_ 'gx#prelude-context::t) - _pre93485_ + _pre93467_ (if (##structure-instance-of? - _pre93485_ + _pre93467_ 'gx#module-context::t) (gx#core-module->prelude-context - _pre93485_) - (if (string? _pre93485_) + _pre93467_) + (if (string? _pre93467_) (gx#core-module->prelude-context (gx#core-import-module__0 - _pre93485_)) - (if (not _pre93485_) - (let ((_$e93490_ + _pre93467_)) + (if (not _pre93467_) + (let ((_$e93472_ (gx#current-expander-module-prelude))) - (if _$e93490_ - _$e93490_ - (let ((__obj94566 + (if _$e93472_ + _$e93472_ + (let ((__obj94548 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure gx#prelude-context::t @@ -798,14 +798,14 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj94566 '#f) - __obj94566))) + (gx#prelude-context:::init! __obj94548 '#f) + __obj94548))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"Cannot import module; unknown prelude" - _rpath93394_ - _pre93485_)))))) - (_ctx93495_ - (let ((__obj94567 + _rpath93376_ + _pre93467_)))))) + (_ctx93477_ + (let ((__obj94549 (##structure gx#module-context::t '#f @@ -820,44 +820,44 @@ '#f '#f))) (gx#module-context:::init! - __obj94567 - _id93486_ - _prelude93493_ - _ns93487_ - _path93482_) - __obj94567)) - (_body93497_ + __obj94549 + _id93468_ + _prelude93475_ + _ns93469_ + _path93464_) + __obj94549)) + (_body93479_ (gx#core-expand-module-begin - _body93488_ - _ctx93495_)) - (_body93499_ + _body93470_ + _ctx93477_)) + (_body93481_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _body93497_) - _path93482_ - _ctx93495_ + (gx#core-cons '%#begin _body93479_) + _path93464_ + _ctx93477_ '()))) (##unchecked-structure-set! - _ctx93495_ + _ctx93477_ (make-promise - (lambda () (gx#eval-syntax* _body93499_))) + (lambda () (gx#eval-syntax* _body93481_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx93495_ - _body93499_ + _ctx93477_ + _body93481_ '11 gx#module-context::t '#f) (hash-put! gx#__module-registry - _path93482_ - _ctx93495_) + _path93464_ + _ctx93477_) (hash-put! gx#__module-registry - _id93486_ - _ctx93495_) - _ctx93495_))))) + _id93468_ + _ctx93477_) + _ctx93477_))))) 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 _path93482_ (gx#current-expander-path)) + (cons _path93464_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_import-submodule93398_ - (lambda (_rpath93410_) - (let* ((_rpath9341193418_ _rpath93410_) - (_E9341393422_ + (_import-submodule93380_ + (lambda (_rpath93392_) + (let* ((_rpath9339393400_ _rpath93392_) + (_E9339593404_ (lambda () - (error '"No clause matching" _rpath9341193418_))) - (_K9341493470_ - (lambda (_refs93425_ _origin93426_) - (let ((_ctx93428_ - (if _origin93426_ + (error '"No clause matching" _rpath9339393400_))) + (_K9339693452_ + (lambda (_refs93407_ _origin93408_) + (let ((_ctx93410_ + (if _origin93408_ (gx#core-import-module__% - _origin93426_ - _reload?93395_) + _origin93408_ + _reload?93377_) (gx#current-expander-context)))) - (let _lp93430_ ((_rest93432_ _refs93425_) - (_ctx93433_ _ctx93428_)) - (let* ((_rest9343493442_ _rest93432_) - (_else9343693450_ - (lambda () _ctx93433_)) - (_K9343893458_ - (lambda (_rest93453_ _id93454_) - (let ((_bind93456_ + (let _lp93412_ ((_rest93414_ _refs93407_) + (_ctx93415_ _ctx93410_)) + (let* ((_rest9341693424_ _rest93414_) + (_else9341893432_ + (lambda () _ctx93415_)) + (_K9342093440_ + (lambda (_rest93435_ _id93436_) + (let ((_bind93438_ (gx#resolve-identifier__% - _id93454_ + _id93436_ '0 - _ctx93433_))) + _ctx93415_))) (if (and (##structure-direct-instance-of? - _bind93456_ + _bind93438_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind93456_ + _bind93438_ '4 gx#syntax-binding::t '#f) 'gx#module-context::t)) - (_lp93430_ - _rest93453_ + (_lp93412_ + _rest93435_ (##unchecked-structure-ref - _bind93456_ + _bind93438_ '4 gx#syntax-binding::t '#f)) (error '"Cannot import submodule; not bound as a module" - _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_) + _rpath93392_ + _id93436_ + _bind93438_)))))) + (if (##pair? _rest9341693424_) + (let ((_hd9342193443_ + (##car _rest9341693424_)) + (_tl9342293445_ + (##cdr _rest9341693424_))) + (let* ((_id93448_ _hd9342193443_) + (_rest93450_ _tl9342293445_)) + (_K9342093440_ + _rest93450_ + _id93448_))) + (_else9341893432_)))))))) + (if (##pair? _rpath9339393400_) + (let ((_hd9339793455_ (##car _rpath9339393400_)) + (_tl9339893457_ (##cdr _rpath9339393400_))) + (let* ((_origin93460_ _hd9339793455_) + (_refs93462_ _tl9339893457_)) + (_K9339693452_ _refs93462_ _origin93460_))) + (_E9339593404_)))))) + (let ((_$e93382_ + (if (not _reload?93377_) + (hash-get gx#__module-registry _rpath93376_) '#f))) - (if _$e93400_ - (values _$e93400_) - (if (list? _rpath93394_) - (_import-submodule93398_ _rpath93394_) - (if (gx#core-library-module-path? _rpath93394_) - (let ((_ctx93403_ + (if _$e93382_ + (values _$e93382_) + (if (list? _rpath93376_) + (_import-submodule93380_ _rpath93376_) + (if (gx#core-library-module-path? _rpath93376_) + (let ((_ctx93385_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _rpath93394_) - _reload?93395_))) + _rpath93376_) + _reload?93377_))) (hash-put! gx#__module-registry - _rpath93394_ - _ctx93403_) - _ctx93403_) - (let* ((_npath93405_ (path-normalize _rpath93394_)) - (_$e93407_ - (if (not _reload?93395_) + _rpath93376_ + _ctx93385_) + _ctx93385_) + (let* ((_npath93387_ (path-normalize _rpath93376_)) + (_$e93389_ + (if (not _reload?93377_) (hash-get gx#__module-registry - _npath93405_) + _npath93387_) '#f))) - (if _$e93407_ - _$e93407_ - (_import-source93397_ _npath93405_)))))))))) + (if _$e93389_ + _$e93389_ + (_import-source93379_ _npath93387_)))))))))) (define gx#core-import-module__0 - (lambda (_rpath93506_) - (let ((_reload?93508_ '#f)) - (gx#core-import-module__% _rpath93506_ _reload?93508_)))) + (lambda (_rpath93488_) + (let ((_reload?93490_ '#f)) + (gx#core-import-module__% _rpath93488_ _reload?93490_)))) (define gx#core-import-module - (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_) + (lambda _g94560_ + (let ((_g94559_ (##length _g94560_))) + (cond ((##fx= _g94559_ 1) + (apply (lambda (_rpath93488_) + (gx#core-import-module__0 _rpath93488_)) + _g94560_)) + ((##fx= _g94559_ 2) + (apply (lambda (_rpath93492_ _reload?93493_) (gx#core-import-module__% - _rpath93510_ - _reload?93511_)) - _g94578_)) + _rpath93492_ + _reload?93493_)) + _g94560_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g94578_)))))) + _g94560_)))))) (define gx#core-read-module - (lambda (_path93383_) + (lambda (_path93365_) (with-catch - (lambda (_exn93385_) - (if (and (datum-parsing-exception? _exn93385_) - (eq? (datum-parsing-exception-filepos _exn93385_) '0)) - (gx#core-read-module/lang _path93383_) + (lambda (_exn93367_) + (if (and (datum-parsing-exception? _exn93367_) + (eq? (datum-parsing-exception-filepos _exn93367_) '0)) + (gx#core-read-module/lang _path93365_) (gx#raise-syntax-error 'read-module '"error reading module" - _path93383_ + _path93365_ (call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_g9338793389_) - (display-exception _exn93385_ _g9338793389_)))) + (lambda (_g9336993371_) + (display-exception _exn93367_ _g9336993371_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _path93383_))))) + (lambda () (gx#core-read-module/sexp _path93365_))))) (define gx#core-read-module/sexp - (lambda (_path93246_) - (let _lp93248_ ((_body93250_ (read-syntax-from-file _path93246_)) - (_pre93251_ '#f) - (_ns93252_ '#f) - (_pkg93253_ '#f)) - (let* ((_e9325493278_ _body93250_) - (_E9327093300_ + (lambda (_path93228_) + (let _lp93230_ ((_body93232_ (read-syntax-from-file _path93228_)) + (_pre93233_ '#f) + (_ns93234_ '#f) + (_pkg93235_ '#f)) + (let* ((_e9323693260_ _body93232_) + (_E9325293282_ (lambda () - (let ((_g94579_ - (if _pkg93253_ - (values _pre93251_ _ns93252_ _pkg93253_) + (let ((_g94561_ + (if _pkg93235_ + (values _pre93233_ _ns93234_ _pkg93235_) (gx#core-read-module-package - _path93246_ - _pre93251_ - _ns93252_)))) + _path93228_ + _pre93233_ + _ns93234_)))) (begin - (let ((_g94580_ - (if (##values? _g94579_) - (##vector-length _g94579_) + (let ((_g94562_ + (if (##values? _g94561_) + (##vector-length _g94561_) 1))) - (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 (not (##fx= _g94562_ 3)) + (error "Context expects 3 values" _g94562_))) + (let ((_pre93264_ (##vector-ref _g94561_ 0)) + (_ns93265_ (##vector-ref _g94561_ 1)) + (_pkg93266_ (##vector-ref _g94561_ 2))) + (let* ((_prelude93268_ (if (gx#core-bound-module-prelude? - _pre93282_) - (gx#syntax-local-e__0 _pre93282_) + _pre93264_) + (gx#syntax-local-e__0 _pre93264_) (if (gx#core-library-module-path? - _pre93282_) + _pre93264_) (gx#core-resolve-library-module-path - _pre93282_) - (if (gx#stx-string? _pre93282_) + _pre93264_) + (if (gx#stx-string? _pre93264_) (gx#core-resolve-module-path__% - _pre93282_ - _path93246_) - (gx#stx-e _pre93282_))))) - (_path-id93288_ - (gx#core-module-path->namespace _path93246_)) - (_pkg-id93290_ - (if _pkg93284_ + _pre93264_ + _path93228_) + (gx#stx-e _pre93264_))))) + (_path-id93270_ + (gx#core-module-path->namespace _path93228_)) + (_pkg-id93272_ + (if _pkg93266_ (string-append - _pkg93284_ + _pkg93266_ '"/" - _path-id93288_) - _path-id93288_)) - (_module-id93292_ - (string->symbol _pkg-id93290_)) - (_module-ns93297_ - (if (eq? _ns93283_ '#!void) + _path-id93270_) + _path-id93270_)) + (_module-id93274_ + (string->symbol _pkg-id93272_)) + (_module-ns93279_ + (if (eq? _ns93265_ '#!void) '#f - (let ((_$e93294_ _ns93283_)) - (if _$e93294_ - _$e93294_ - _pkg-id93290_))))) - (values _prelude93286_ - _module-id93292_ - _module-ns93297_ - _body93250_))))))) - (_E9326393329_ + (let ((_$e93276_ _ns93265_)) + (if _$e93276_ + _$e93276_ + _pkg-id93272_))))) + (values _prelude93268_ + _module-id93274_ + _module-ns93279_ + _body93232_))))))) + (_E9324593311_ (lambda () - (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 (gx#stx-pair? _e9323693260_) + (let ((_e9325393286_ (gx#syntax-e _e9323693260_))) + (let ((_hd9325493289_ (##car _e9325393286_)) + (_tl9325593291_ (##cdr _e9325393286_))) + (if (eq? (gx#stx-e _hd9325493289_) 'package:) + (if (gx#stx-pair? _tl9325593291_) + (let ((_e9325693294_ + (gx#syntax-e _tl9325593291_))) + (let ((_hd9325793297_ + (##car _e9325693294_)) + (_tl9325893299_ + (##cdr _e9325693294_))) + (let* ((_pkg93302_ _hd9325793297_) + (_rest93304_ _tl9325893299_)) (if '#t - (let ((_pkg93327_ + (let ((_pkg93309_ (if (gx#identifier? - _pkg93320_) + _pkg93302_) (symbol->string (gx#stx-e - _pkg93320_)) + _pkg93302_)) (if (or (gx#stx-string? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pkg93320_) - (gx#stx-false? _pkg93320_)) - (gx#stx-e _pkg93320_) + _pkg93302_) + (gx#stx-false? _pkg93302_)) + (gx#stx-e _pkg93302_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _pkg93320_))))) + _pkg93302_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp93248_ - _rest93322_ - _pre93251_ - _ns93252_ - _pkg93327_)) - (_E9327093300_))))) - (_E9327093300_)) - (_E9327093300_)))) - (_E9327093300_)))) - (_E9325693355_ + (_lp93230_ + _rest93304_ + _pre93233_ + _ns93234_ + _pkg93309_)) + (_E9325293282_))))) + (_E9325293282_)) + (_E9325293282_)))) + (_E9325293282_)))) + (_E9323893337_ (lambda () - (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 (gx#stx-pair? _e9323693260_) + (let ((_e9324693315_ (gx#syntax-e _e9323693260_))) + (let ((_hd9324793318_ (##car _e9324693315_)) + (_tl9324893320_ (##cdr _e9324693315_))) + (if (eq? (gx#stx-e _hd9324793318_) 'namespace:) + (if (gx#stx-pair? _tl9324893320_) + (let ((_e9324993323_ + (gx#syntax-e _tl9324893320_))) + (let ((_hd9325093326_ + (##car _e9324993323_)) + (_tl9325193328_ + (##cdr _e9324993323_))) + (let* ((_ns93331_ _hd9325093326_) + (_rest93333_ _tl9325193328_)) (if '#t - (let ((_ns93353_ + (let ((_ns93335_ (if (gx#identifier? - _ns93349_) + _ns93331_) (symbol->string - (gx#stx-e _ns93349_)) + (gx#stx-e _ns93331_)) (if (gx#stx-string? - _ns93349_) + _ns93331_) (gx#stx-e - _ns93349_) + _ns93331_) (if (gx#stx-false? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _ns93349_) + _ns93331_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _ns93349_)))))) + _ns93331_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp93248_ - _rest93351_ - _pre93251_ - _ns93353_ - _pkg93253_)) - (_E9326393329_))))) - (_E9326393329_)) - (_E9326393329_)))) - (_E9326393329_)))) - (_E9325593379_ + (_lp93230_ + _rest93333_ + _pre93233_ + _ns93335_ + _pkg93235_)) + (_E9324593311_))))) + (_E9324593311_)) + (_E9324593311_)))) + (_E9324593311_)))) + (_E9323793361_ (lambda () - (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 (gx#stx-pair? _e9323693260_) + (let ((_e9323993341_ (gx#syntax-e _e9323693260_))) + (let ((_hd9324093344_ (##car _e9323993341_)) + (_tl9324193346_ (##cdr _e9323993341_))) + (if (eq? (gx#stx-e _hd9324093344_) 'prelude:) + (if (gx#stx-pair? _tl9324193346_) + (let ((_e9324293349_ + (gx#syntax-e _tl9324193346_))) + (let ((_hd9324393352_ + (##car _e9324293349_)) + (_tl9324493354_ + (##cdr _e9324293349_))) + (let* ((_prelude93357_ _hd9324393352_) + (_rest93359_ _tl9324493354_)) (if '#t - (_lp93248_ - _rest93377_ - _prelude93375_ - _ns93252_ - _pkg93253_) - (_E9325693355_))))) - (_E9325693355_)) - (_E9325693355_)))) - (_E9325693355_))))) - (_E9325593379_))))) + (_lp93230_ + _rest93359_ + _prelude93357_ + _ns93234_ + _pkg93235_) + (_E9323893337_))))) + (_E9323893337_)) + (_E9323893337_)))) + (_E9323893337_))))) + (_E9323793361_))))) (define gx#core-read-module/lang - (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_) + (lambda (_path93055_) + (letrec ((_default-read-module-body93057_ + (lambda (_inp93220_) + (let _lp93222_ ((_body93224_ '())) + (let ((_next93226_ (read-syntax _inp93220_))) + (if (eof-object? _next93226_) + (reverse _body93224_) + (_lp93222_ (cons _next93226_ _body93224_))))))) + (_read-body93058_ + (lambda (_inp93139_ + _pre93140_ + _ns93141_ + _pkg93142_ + _args93143_) + (let ((_g94563_ + (if _pkg93142_ + (values _pre93140_ _ns93141_ _pkg93142_) (gx#core-read-module-package - _path93073_ - _pre93158_ - _ns93159_)))) + _path93055_ + _pre93140_ + _ns93141_)))) (begin - (let ((_g94582_ - (if (##values? _g94581_) - (##vector-length _g94581_) + (let ((_g94564_ + (if (##values? _g94563_) + (##vector-length _g94563_) 1))) - (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_ + (if (not (##fx= _g94564_ 3)) + (error "Context expects 3 values" _g94564_))) + (let ((_pre93145_ (##vector-ref _g94563_ 0)) + (_ns93146_ (##vector-ref _g94563_ 1)) + (_pkg93147_ (##vector-ref _g94563_ 2))) + (let* ((_prelude93149_ + (gx#import-module__0 _pre93145_)) + (_read-module-body93203_ + (let ((_$e93195_ + (find (lambda (_e9315093152_) + (let* ((_g9315493164_ + _e9315093152_) + (_else9315693172_ (lambda () '#f)) - (_K9317693194_ + (_K9315893176_ (lambda () '#t))) (if (##structure-direct-instance-of? - _g9317293182_ + _g9315493164_ 'gx#module-export::t) - (let* ((_e9317793197_ + (let* ((_e9315993179_ (##unchecked-structure-ref - _g9317293182_ + _g9315493164_ '1 gx#module-export::t '#f)) - (_e9317893200_ + (_e9316093182_ (##unchecked-structure-ref - _g9317293182_ + _g9315493164_ '2 gx#module-export::t '#f)) - (_e9317993203_ + (_e9316193185_ (##unchecked-structure-ref - _g9317293182_ + _g9315493164_ '3 gx#module-export::t '#f))) - (if (##eq? _e9317993203_ + (if (##eq? _e9316193185_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1) - (let ((_e9318093206_ + (let ((_e9316293188_ (##unchecked-structure-ref - _g9317293182_ + _g9315493164_ '4 gx#module-export::t '#f))) - (if ((lambda (_g9320893210_) - (eq? _g9320893210_ 'read-module-body)) - _e9318093206_) - (_K9317693194_) - (_else9317493190_))) - (_else9317493190_))) - (_else9317493190_)))) + (if ((lambda (_g9319093192_) + (eq? _g9319093192_ 'read-module-body)) + _e9316293188_) + (_K9315893176_) + (_else9315693172_))) + (_else9315693172_))) + (_else9315693172_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _prelude93167_ + _prelude93149_ '9 gx#module-context::t '#f)))) - (if _$e93213_ - ((lambda (_xport93216_) - (let ((_proc93219_ + (if _$e93195_ + ((lambda (_xport93198_) + (let ((_proc93201_ (with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _xport93216_) + _xport93198_) '1 gx#binding::t '#f)))))) - (if (procedure? _proc93219_) - _proc93219_ + (if (procedure? _proc93201_) + _proc93201_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _path93073_ - _pre93163_ - _proc93219_)))) - _$e93213_) - _default-read-module-body93075_))) - (_path-id93223_ - (gx#core-module-path->namespace _path93073_)) - (_pkg-id93225_ - (if _pkg93165_ + _path93055_ + _pre93145_ + _proc93201_)))) + _$e93195_) + _default-read-module-body93057_))) + (_path-id93205_ + (gx#core-module-path->namespace _path93055_)) + (_pkg-id93207_ + (if _pkg93147_ (string-append - _pkg93165_ + _pkg93147_ '"/" - _path-id93223_) - _path-id93223_)) - (_module-id93227_ - (string->symbol _pkg-id93225_)) - (_module-ns93232_ - (let ((_$e93229_ _ns93164_)) - (if _$e93229_ _$e93229_ _pkg-id93225_))) - (_body93235_ + _path-id93205_) + _path-id93205_)) + (_module-id93209_ + (string->symbol _pkg-id93207_)) + (_module-ns93214_ + (let ((_$e93211_ _ns93146_)) + (if _$e93211_ _$e93211_ _pkg-id93207_))) + (_body93217_ (call-with-parameters (lambda () - (_read-module-body93221_ _inp93157_)) + (_read-module-body93203_ _inp93139_)) gx#current-module-reader-path - _path93073_ + _path93055_ gx#current-module-reader-args - _args93161_))) - (values _prelude93167_ - _module-id93227_ - _module-ns93232_ - _body93235_))))))) - (_string-e93077_ - (lambda (_obj93154_ _what93155_) - (if (string? _obj93154_) - _obj93154_ - (if (symbol? _obj93154_) - (symbol->string _obj93154_) + _args93143_))) + (values _prelude93149_ + _module-id93209_ + _module-ns93214_ + _body93217_))))))) + (_string-e93059_ + (lambda (_obj93136_ _what93137_) + (if (string? _obj93136_) + _obj93136_ + (if (symbol? _obj93136_) + (symbol->string _obj93136_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _what93155_) - _path93073_ - _obj93154_))))) - (_read-lang-args93078_ - (lambda (_inp93109_ _args93110_) - (let* ((_args9311193119_ _args93110_) - (_else9311393127_ + (string-append '"Illegal module " _what93137_) + _path93055_ + _obj93136_))))) + (_read-lang-args93060_ + (lambda (_inp93091_ _args93092_) + (let* ((_args9309393101_ _args93092_) + (_else9309593109_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _path93073_))) - (_K9311593142_ - (lambda (_args93130_ _prelude93131_) - (let* ((_pkg93133_ - (pgetq__0 'package: _args93130_)) - (_pkg93135_ - (if _pkg93133_ - (_string-e93077_ - _pkg93133_ + _path93055_))) + (_K9309793124_ + (lambda (_args93112_ _prelude93113_) + (let* ((_pkg93115_ + (pgetq__0 'package: _args93112_)) + (_pkg93117_ + (if _pkg93115_ + (_string-e93059_ + _pkg93115_ '"package") '#f)) - (_ns93137_ - (pgetq__0 'namespace: _args93130_)) - (_ns93139_ - (if _ns93137_ - (_string-e93077_ - _ns93137_ + (_ns93119_ + (pgetq__0 'namespace: _args93112_)) + (_ns93121_ + (if _ns93119_ + (_string-e93059_ + _ns93119_ '"namespace") '#f))) - (_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_ + (_read-body93058_ + _inp93091_ + _prelude93113_ + _ns93121_ + _pkg93117_ + _args93112_))))) + (if (##pair? _args9309393101_) + (let ((_hd9309893127_ (##car _args9309393101_)) + (_tl9309993129_ (##cdr _args9309393101_))) + (let* ((_prelude93132_ _hd9309893127_) + (_args93134_ _tl9309993129_)) + (_K9309793124_ _args93134_ _prelude93132_))) + (_else9309593109_))))) + (_read-lang93061_ + (lambda (_inp93066_) + (let* ((_head93068_ (read-line _inp93066_)) + (_$e93070_ (string-index__0 _head93068_ '#\space))) + (if _$e93070_ + ((lambda (_ix93073_) + (let ((_lang93075_ + (substring _head93068_ '0 _ix93073_))) + (if (equal? _lang93075_ '"#lang") + (let* ((_rest93077_ (substring - _head93086_ - (fx+ _ix93091_ '1) - (string-length _head93086_))) - (_args93106_ + _head93068_ + (fx+ _ix93073_ '1) + (string-length _head93068_))) + (_args93088_ (with-catch - (lambda (_g9309693098_) + (lambda (_g9307893080_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _path93073_ - _g9309693098_)) + _path93055_ + _g9307893080_)) (lambda () (call-with-input-string - _rest93095_ - (lambda (_g9310193103_) + _rest93077_ + (lambda (_g9308393085_) (read-all - _g9310193103_ + _g9308393085_ read))))))) - (_read-lang-args93078_ - _inp93084_ - _args93106_)) + (_read-lang-args93060_ + _inp93066_ + _args93088_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path93073_)))) - _$e93088_) + _path93055_)))) + _$e93070_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path93073_))))) - (_read-e93080_ - (lambda (_inp93082_) - (if (eq? (peek-char _inp93082_) '#\#) - (_read-lang93079_ _inp93082_) + _path93055_))))) + (_read-e93062_ + (lambda (_inp93064_) + (if (eq? (peek-char _inp93064_) '#\#) + (_read-lang93061_ _inp93064_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path93073_))))) - (gx#call-with-input-source-file _path93073_ _read-e93080_)))) + _path93055_))))) + (gx#call-with-input-source-file _path93055_ _read-e93062_)))) (define gx#core-read-module-package - (lambda (_path93027_ _pre93028_ _ns93029_) - (letrec ((_string-e93031_ - (lambda (_e93071_) - (if (symbol? _e93071_) - (symbol->string _e93071_) - (if (string? _e93071_) - _e93071_ + (lambda (_path93009_ _pre93010_ _ns93011_) + (letrec ((_string-e93013_ + (lambda (_e93053_) + (if (symbol? _e93053_) + (symbol->string _e93053_) + (if (string? _e93053_) + _e93053_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _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_ '"/") + _e93053_)))))) + (let _lp93015_ ((_dir93017_ (path-directory _path93009_)) + (_pkg-path93018_ '())) + (let ((_gerbil.pkg93020_ (path-expand '"gerbil.pkg" _dir93017_))) + (if (file-exists? _gerbil.pkg93020_) + (let ((_plist93022_ + (gx#core-library-package-plist__% _dir93017_ '#t))) + (if (null? _plist93022_) + (let ((_pkg93024_ + (if (not (null? _pkg-path93018_)) + (string-join _pkg-path93018_ '"/") '#f))) - (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_ '"/") + (values _pre93010_ _ns93011_ _pkg93024_)) + (if (list? _plist93022_) + (let* ((_root93026_ + (pgetq__0 'package: _plist93022_)) + (_pkg93030_ + (let ((_pkg-path93028_ + (if _root93026_ + (cons (_string-e93013_ + _root93026_) + _pkg-path93018_) + _pkg-path93018_))) + (if (not (null? _pkg-path93028_)) + (string-join _pkg-path93028_ '"/") '#f))) - (_ns93055_ - (let ((_ns93053_ - (let ((_$e93050_ _ns93029_)) - (if _$e93050_ - _$e93050_ + (_ns93037_ + (let ((_ns93035_ + (let ((_$e93032_ _ns93011_)) + (if _$e93032_ + _$e93032_ (pgetq__0 'namespace: - _plist93040_))))) - (if _ns93053_ - (_string-e93031_ _ns93053_) + _plist93022_))))) + (if _ns93035_ + (_string-e93013_ _ns93035_) '#f))) - (_pre93060_ - (let ((_$e93057_ _pre93028_)) - (if _$e93057_ - _$e93057_ - (pgetq__0 'prelude: _plist93040_))))) - (values _pre93060_ _ns93055_ _pkg93048_)) + (_pre93042_ + (let ((_$e93039_ _pre93010_)) + (if _$e93039_ + _$e93039_ + (pgetq__0 'prelude: _plist93022_))))) + (values _pre93042_ _ns93037_ _pkg93030_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _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_))))))))))) + _plist93022_)))) + (let ((_dir*93045_ + (path-strip-trailing-directory-separator _dir93017_))) + (if (or (string-empty? _dir*93045_) + (equal? _dir93017_ _dir*93045_)) + (values _pre93010_ _ns93011_ '#f) + (let ((_xpath93050_ (path-strip-directory _dir*93045_)) + (_xdir93051_ (path-directory _dir*93045_))) + (_lp93015_ + _xdir93051_ + (cons _xpath93050_ _pkg-path93018_))))))))))) (define gx#core-module-path->namespace - (lambda (_path93025_) - (path-strip-extension (path-strip-directory _path93025_)))) + (lambda (_path93007_) + (path-strip-extension (path-strip-directory _path93007_)))) (define gx#core-module-path->id - (lambda (_path93023_) - (string->symbol (gx#core-module-path->namespace _path93023_)))) + (lambda (_path93005_) + (string->symbol (gx#core-module-path->namespace _path93005_)))) (define gx#core-resolve-module-path__% - (lambda (_stx-path93002_ _rel93003_) - (let* ((_path93005_ (gx#stx-e _stx-path93002_)) - (_path93007_ - (if (string-empty? (path-extension _path93005_)) - (string-append _path93005_ '".ss") - _path93005_))) + (lambda (_stx-path92984_ _rel92985_) + (let* ((_path92987_ (gx#stx-e _stx-path92984_)) + (_path92989_ + (if (string-empty? (path-extension _path92987_)) + (string-append _path92987_ '".ss") + _path92987_))) (gx#core-resolve-path__% - _path93007_ - (let ((_$e93010_ (gx#stx-source _stx-path93002_))) - (if _$e93010_ _$e93010_ _rel93003_)))))) + _path92989_ + (let ((_$e92992_ (gx#stx-source _stx-path92984_))) + (if _$e92992_ _$e92992_ _rel92985_)))))) (define gx#core-resolve-module-path__0 - (lambda (_stx-path93016_) - (let ((_rel93018_ '#f)) - (gx#core-resolve-module-path__% _stx-path93016_ _rel93018_)))) + (lambda (_stx-path92998_) + (let ((_rel93000_ '#f)) + (gx#core-resolve-module-path__% _stx-path92998_ _rel93000_)))) (define gx#core-resolve-module-path - (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_) + (lambda _g94566_ + (let ((_g94565_ (##length _g94566_))) + (cond ((##fx= _g94565_ 1) + (apply (lambda (_stx-path92998_) + (gx#core-resolve-module-path__0 _stx-path92998_)) + _g94566_)) + ((##fx= _g94565_ 2) + (apply (lambda (_stx-path93002_ _rel93003_) (gx#core-resolve-module-path__% - _stx-path93020_ - _rel93021_)) - _g94584_)) + _stx-path93002_ + _rel93003_)) + _g94566_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g94584_)))))) + _g94566_)))))) (define gx#core-resolve-library-module-path - (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") + (lambda (_libpath92870_) + (let* ((_spath92872_ (symbol->string (gx#stx-e _libpath92870_))) + (_spath92874_ + (substring _spath92872_ '1 (string-length _spath92872_))) + (_ext92876_ (path-extension _spath92874_)) + (_ssi92878_ + (if (string-empty? _ext92876_) + (string-append _spath92874_ '".ssi") (string-append - (path-strip-extension _spath92892_) + (path-strip-extension _spath92874_) '".ssi"))) - (_srcs92900_ - (if (string-empty? _ext92894_) - (map (lambda (_ext92898_) - (string-append _spath92892_ _ext92898_)) + (_srcs92882_ + (if (string-empty? _ext92876_) + (map (lambda (_ext92880_) + (string-append _spath92874_ _ext92880_)) '(".ss" ".sld" ".scm")) - (cons _spath92892_ '())))) - (let _lp92903_ ((_rest92905_ (load-path))) - (let* ((_rest9290692915_ _rest92905_) - (_E9290992919_ + (cons _spath92874_ '())))) + (let _lp92885_ ((_rest92887_ (load-path))) + (let* ((_rest9288892897_ _rest92887_) + (_E9289192901_ (lambda () - (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_ + (error '"No clause matching" _rest9288892897_)))) + (let ((_K9289392971_ + (lambda (_rest92912_ _dir92913_) + (letrec ((_resolve92915_ + (lambda (_ssi92927_ _srcs92928_) + (let ((_compiled-path92930_ + (path-expand _ssi92927_ _dir92913_))) + (if (file-exists? _compiled-path92930_) + (path-normalize _compiled-path92930_) + (let _lpr92932_ ((_rest-src92934_ + _srcs92928_)) + (let* ((_rest-src9293592943_ + _rest-src92934_) + (_else9293792951_ (lambda () - (_lp92903_ _rest92930_))) - (_K9295792977_ - (lambda (_rest-src92972_ - _src92973_) - (let ((_src-path92975_ + (_lp92885_ _rest92912_))) + (_K9293992959_ + (lambda (_rest-src92954_ + _src92955_) + (let ((_src-path92957_ (path-expand - _src92973_ - _dir92931_))) + _src92955_ + _dir92913_))) (if (file-exists? - _src-path92975_) + _src-path92957_) (path-normalize - _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_ + _src-path92957_) + (_lpr92932_ + _rest-src92954_)))))) + (if (##pair? _rest-src9293592943_) + (let ((_hd9294092962_ + (##car _rest-src9293592943_)) + (_tl9294192964_ + (##cdr _rest-src9293592943_))) + (let* ((_src92967_ + _hd9294092962_) + (_rest-src92969_ + _tl9294192964_)) + (_K9293992959_ + _rest-src92969_ + _src92967_))) + (_else9293792951_))))))))) + (let ((_$e92917_ (gx#core-library-package-path-prefix - _dir92931_))) - (if _$e92935_ - ((lambda (_prefix92938_) + _dir92913_))) + (if _$e92917_ + ((lambda (_prefix92920_) (if (string-prefix? - _prefix92938_ - _spath92892_) - (let ((_ssi92942_ + _prefix92920_ + _spath92874_) + (let ((_ssi92924_ (substring - _ssi92896_ - (string-length _prefix92938_) - (string-length _ssi92896_))) - (_srcs92943_ - (map (lambda (_src92940_) + _ssi92878_ + (string-length _prefix92920_) + (string-length _ssi92878_))) + (_srcs92925_ + (map (lambda (_src92922_) (substring - _src92940_ + _src92922_ (string-length - _prefix92938_) + _prefix92920_) (string-length - _src92940_))) - _srcs92900_))) - (_resolve92933_ - _ssi92942_ - _srcs92943_)) - (_lp92903_ _rest92930_))) - _$e92935_) - (_resolve92933_ _ssi92896_ _srcs92900_)))))) - (_K9291092924_ + _src92922_))) + _srcs92882_))) + (_resolve92915_ + _ssi92924_ + _srcs92925_)) + (_lp92885_ _rest92912_))) + _$e92917_) + (_resolve92915_ _ssi92878_ _srcs92882_)))))) + (_K9289292906_ (lambda () (gx#raise-syntax-error '#f '"Cannot find library module" - _libpath92888_)))) - (let ((_try-match9290892927_ + _libpath92870_)))) + (let ((_try-match9289092909_ (lambda () - (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_))))))))) + (if (##null? _rest9288892897_) + (_K9289292906_) + (_E9289192901_))))) + (if (##pair? _rest9288892897_) + (let ((_tl9289592976_ (##cdr _rest9288892897_)) + (_hd9289492974_ (##car _rest9288892897_))) + (let ((_dir92979_ _hd9289492974_) + (_rest92981_ _tl9289592976_)) + (_K9289392971_ _rest92981_ _dir92979_))) + (_try-match9289092909_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_modpath92861_) - (letrec ((_resolve92863_ - (lambda (_path92880_ _base92881_) - (let ((_$e92883_ (string-rindex__0 _base92881_ '#\/))) - (if _$e92883_ - ((lambda (_idx92886_) + (lambda (_modpath92843_) + (letrec ((_resolve92845_ + (lambda (_path92862_ _base92863_) + (let ((_$e92865_ (string-rindex__0 _base92863_ '#\/))) + (if _$e92865_ + ((lambda (_idx92868_) (gx#core-resolve-library-module-path (string->symbol (string-append '":" - (substring _base92881_ '0 _idx92886_) + (substring _base92863_ '0 _idx92868_) '"/" - _path92880_)))) - _$e92883_) + _path92862_)))) + _$e92865_) (gx#core-resolve-library-module-path (string->symbol - (string-append '":" _path92880_)))))))) - (let ((_spath92865_ (symbol->string (gx#stx-e _modpath92861_))) - (_mod92866_ + (string-append '":" _path92862_)))))))) + (let ((_spath92847_ (symbol->string (gx#stx-e _modpath92843_))) + (_mod92848_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _mod92866_ + (if _mod92848_ '#!void (gx#raise-syntax-error '#f '"Cannot resolve relative module path; not in module context" - _modpath92861_)) - (let ((_mpath92868_ + _modpath92843_)) + (let ((_mpath92850_ (symbol->string (##structure-ref - _mod92866_ + _mod92848_ '1 gx#expander-context::t '#f)))) - (let _lp92870_ ((_spath92872_ _spath92865_) - (_mpath92873_ _mpath92868_)) - (if (string-prefix? '"../" _spath92872_) - (let ((_$e92875_ (string-rindex__0 _mpath92873_ '#\/))) - (if _$e92875_ - ((lambda (_idx92878_) - (_lp92870_ + (let _lp92852_ ((_spath92854_ _spath92847_) + (_mpath92855_ _mpath92850_)) + (if (string-prefix? '"../" _spath92854_) + (let ((_$e92857_ (string-rindex__0 _mpath92855_ '#\/))) + (if _$e92857_ + ((lambda (_idx92860_) + (_lp92852_ (substring - _spath92872_ + _spath92854_ '3 - (string-length _spath92872_)) - (substring _mpath92873_ '0 _idx92878_))) - _$e92875_) + (string-length _spath92854_)) + (substring _mpath92855_ '0 _idx92860_))) + _$e92857_) (gx#raise-syntax-error '#f '"Cannot resolve relative module path; illegal traversal" - _modpath92861_))) - (if (string-prefix? '"./" _spath92872_) - (_lp92870_ + _modpath92843_))) + (if (string-prefix? '"./" _spath92854_) + (_lp92852_ (substring - _spath92872_ + _spath92854_ '2 - (string-length _spath92872_)) - _mpath92873_) - (_resolve92863_ _spath92872_ _mpath92873_))))))))) + (string-length _spath92854_)) + _mpath92855_) + (_resolve92845_ _spath92854_ _mpath92855_))))))))) (define gx#core-library-package-path-prefix - (lambda (_dir92854_) - (let ((_$e92856_ + (lambda (_dir92836_) + (let ((_$e92838_ (pgetq__0 'package: - (gx#core-library-package-plist__0 _dir92854_)))) - (if _$e92856_ - ((lambda (_pkg92859_) - (string-append (symbol->string _pkg92859_) '"/")) - _$e92856_) + (gx#core-library-package-plist__0 _dir92836_)))) + (if _$e92838_ + ((lambda (_pkg92841_) + (string-append (symbol->string _pkg92841_) '"/")) + _$e92838_) '#f)))) (define gx#core-library-package-plist__% - (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_ + (lambda (_dir92810_ _exists?92811_) + (let ((_$e92813_ (hash-get gx#__module-pkg-cache _dir92810_))) + (if _$e92813_ + (values _$e92813_) + (let* ((_gerbil.pkg92816_ (path-expand '"gerbil.pkg" _dir92810_)) + (_plist92823_ + (if (or _exists?92811_ (file-exists? _gerbil.pkg92816_)) + (let ((_e92821_ (gx#call-with-input-source-file - _gerbil.pkg92834_ + _gerbil.pkg92816_ read))) - (if (eof-object? _e92839_) + (if (eof-object? _e92821_) '() - (if (list? _e92839_) - _e92839_ + (if (list? _e92821_) + _e92821_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _gerbil.pkg92834_ - _e92839_)))) + _gerbil.pkg92816_ + _e92821_)))) '()))) - (hash-put! gx#__module-pkg-cache _dir92828_ _plist92841_) - _plist92841_))))) + (hash-put! gx#__module-pkg-cache _dir92810_ _plist92823_) + _plist92823_))))) (define gx#core-library-package-plist__0 - (lambda (_dir92847_) - (let ((_exists?92849_ '#f)) - (gx#core-library-package-plist__% _dir92847_ _exists?92849_)))) + (lambda (_dir92829_) + (let ((_exists?92831_ '#f)) + (gx#core-library-package-plist__% _dir92829_ _exists?92831_)))) (define gx#core-library-package-plist - (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_) + (lambda _g94568_ + (let ((_g94567_ (##length _g94568_))) + (cond ((##fx= _g94567_ 1) + (apply (lambda (_dir92829_) + (gx#core-library-package-plist__0 _dir92829_)) + _g94568_)) + ((##fx= _g94567_ 2) + (apply (lambda (_dir92833_ _exists?92834_) (gx#core-library-package-plist__% - _dir92851_ - _exists?92852_)) - _g94586_)) + _dir92833_ + _exists?92834_)) + _g94568_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g94586_)))))) + _g94568_)))))) (define gx#core-library-module-path? - (lambda (_stx92825_) (gx#core-special-module-path? _stx92825_ '#\:))) + (lambda (_stx92807_) (gx#core-special-module-path? _stx92807_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_stx92823_) (gx#core-special-module-path? _stx92823_ '#\.))) + (lambda (_stx92805_) (gx#core-special-module-path? _stx92805_ '#\.))) (define gx#core-special-module-path? - (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_) + (lambda (_stx92800_ _char92801_) + (if (gx#identifier? _stx92800_) + (if (interned-symbol? (gx#stx-e _stx92800_)) + (let ((_str92803_ (symbol->string (gx#stx-e _stx92800_)))) + (if (fx> (string-length _str92803_) '1) + (eq? (string-ref _str92803_ '0) _char92801_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_stx92812_) + (lambda (_stx92794_) (gx#core-bound-identifier?__% - _stx92812_ - (lambda (_g9281392815_) - (gx#expander-binding?__% _g9281392815_ gx#prelude-context?))))) + _stx92794_ + (lambda (_g9279592797_) + (gx#expander-binding?__% _g9279592797_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_stx92806_) + (lambda (_stx92788_) (gx#core-bound-identifier?__% - _stx92806_ - (lambda (_g9280792809_) - (gx#expander-binding?__% _g9280792809_ gx#module-context?))))) + _stx92788_ + (lambda (_g9278992791_) + (gx#expander-binding?__% _g9278992791_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_stx92793_) - (letrec ((_module-prelude?92795_ - (lambda (_e92801_) - (let ((_$e92803_ + (lambda (_stx92775_) + (letrec ((_module-prelude?92777_ + (lambda (_e92783_) + (let ((_$e92785_ (##structure-instance-of? - _e92801_ + _e92783_ 'gx#module-context::t))) - (if _$e92803_ - _$e92803_ + (if _$e92785_ + _$e92785_ (##structure-instance-of? - _e92801_ + _e92783_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _stx92793_ - (lambda (_g9279692798_) + _stx92775_ + (lambda (_g9277892780_) (gx#expander-binding?__% - _g9279692798_ - _module-prelude?92795_)))))) + _g9277892780_ + _module-prelude?92777_)))))) (define gx#core-bind-import!__% - (lambda (_in92723_ _ctx92724_ _force-weak?92725_) - (let* ((_in9272692735_ _in92723_) - (_E9272892739_ - (lambda () (error '"No clause matching" _in9272692735_))) - (_K9272992752_ - (lambda (_weak?92742_ _phi92743_ _key92744_ _source92745_) + (lambda (_in92705_ _ctx92706_ _force-weak?92707_) + (let* ((_in9270892717_ _in92705_) + (_E9271092721_ + (lambda () (error '"No clause matching" _in9270892717_))) + (_K9271192734_ + (lambda (_weak?92724_ _phi92725_ _key92726_ _source92727_) (gx#core-bind!__% - _key92744_ - (let ((_e92747_ - (gx#core-resolve-module-export _source92745_))) + _key92726_ + (let ((_e92729_ + (gx#core-resolve-module-export _source92727_))) (##structure gx#import-binding::t - (##unchecked-structure-ref _e92747_ '1 gx#binding::t '#f) - _key92744_ - _phi92743_ - _e92747_ + (##unchecked-structure-ref _e92729_ '1 gx#binding::t '#f) + _key92726_ + _phi92725_ + _e92729_ (##unchecked-structure-ref - _source92745_ + _source92727_ '1 gx#module-export::t '#f) - (let ((_$e92749_ _force-weak?92725_)) - (if _$e92749_ _$e92749_ _weak?92742_)))) + (let ((_$e92731_ _force-weak?92707_)) + (if _$e92731_ _$e92731_ _weak?92724_)))) gx#core-context-rebind? - _phi92743_ - _ctx92724_)))) + _phi92725_ + _ctx92706_)))) (if (##structure-direct-instance-of? - _in9272692735_ + _in9270892717_ 'gx#module-import::t) - (let* ((_e9273092755_ + (let* ((_e9271292737_ (##unchecked-structure-ref - _in9272692735_ + _in9270892717_ '1 gx#module-import::t '#f)) - (_source92758_ _e9273092755_) - (_e9273192760_ + (_source92740_ _e9271292737_) + (_e9271392742_ (##unchecked-structure-ref - _in9272692735_ + _in9270892717_ '2 gx#module-import::t '#f)) - (_key92763_ _e9273192760_) - (_e9273292765_ + (_key92745_ _e9271392742_) + (_e9271492747_ (##unchecked-structure-ref - _in9272692735_ + _in9270892717_ '3 gx#module-import::t '#f)) - (_phi92768_ _e9273292765_) - (_e9273392770_ + (_phi92750_ _e9271492747_) + (_e9271592752_ (##unchecked-structure-ref - _in9272692735_ + _in9270892717_ '4 gx#module-import::t '#f)) - (_weak?92773_ _e9273392770_)) - (_K9272992752_ - _weak?92773_ - _phi92768_ - _key92763_ - _source92758_)) - (_E9272892739_))))) + (_weak?92755_ _e9271592752_)) + (_K9271192734_ + _weak?92755_ + _phi92750_ + _key92745_ + _source92740_)) + (_E9271092721_))))) (define gx#core-bind-import!__0 - (lambda (_in92778_) - (let* ((_ctx92780_ (gx#current-expander-context)) - (_force-weak?92782_ '#f)) - (gx#core-bind-import!__% _in92778_ _ctx92780_ _force-weak?92782_)))) + (lambda (_in92760_) + (let* ((_ctx92762_ (gx#current-expander-context)) + (_force-weak?92764_ '#f)) + (gx#core-bind-import!__% _in92760_ _ctx92762_ _force-weak?92764_)))) (define gx#core-bind-import!__1 - (lambda (_in92784_ _ctx92785_) - (let ((_force-weak?92787_ '#f)) - (gx#core-bind-import!__% _in92784_ _ctx92785_ _force-weak?92787_)))) + (lambda (_in92766_ _ctx92767_) + (let ((_force-weak?92769_ '#f)) + (gx#core-bind-import!__% _in92766_ _ctx92767_ _force-weak?92769_)))) (define gx#core-bind-import! - (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_) + (lambda _g94570_ + (let ((_g94569_ (##length _g94570_))) + (cond ((##fx= _g94569_ 1) + (apply (lambda (_in92760_) + (gx#core-bind-import!__0 _in92760_)) + _g94570_)) + ((##fx= _g94569_ 2) + (apply (lambda (_in92766_ _ctx92767_) + (gx#core-bind-import!__1 _in92766_ _ctx92767_)) + _g94570_)) + ((##fx= _g94569_ 3) + (apply (lambda (_in92771_ _ctx92772_ _force-weak?92773_) (gx#core-bind-import!__% - _in92789_ - _ctx92790_ - _force-weak?92791_)) - _g94588_)) + _in92771_ + _ctx92772_ + _force-weak?92773_)) + _g94570_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g94588_)))))) + _g94570_)))))) (define gx#core-bind-weak-import!__% - (lambda (_in92709_ _ctx92710_) - (gx#core-bind-import!__% _in92709_ _ctx92710_ '#t))) + (lambda (_in92691_ _ctx92692_) + (gx#core-bind-import!__% _in92691_ _ctx92692_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_in92715_) - (let ((_ctx92717_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _in92715_ _ctx92717_)))) + (lambda (_in92697_) + (let ((_ctx92699_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _in92697_ _ctx92699_)))) (define gx#core-bind-weak-import! - (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_)) + (lambda _g94572_ + (let ((_g94571_ (##length _g94572_))) + (cond ((##fx= _g94571_ 1) + (apply (lambda (_in92697_) + (gx#core-bind-weak-import!__0 _in92697_)) + _g94572_)) + ((##fx= _g94571_ 2) + (apply (lambda (_in92701_ _ctx92702_) + (gx#core-bind-weak-import!__% _in92701_ _ctx92702_)) + _g94572_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g94590_)))))) + _g94572_)))))) (define gx#core-resolve-module-export - (lambda (_out92600_) - (letrec ((_subst92602_ - (lambda (_key92648_) - (let* ((_key9264992657_ _key92648_) - (_else9265192665_ (lambda () _key92648_)) - (_K9265392696_ - (lambda (_mark92668_ _id92669_) - (let* ((_mark9267092676_ _mark92668_) - (_E9267292680_ + (lambda (_out92582_) + (letrec ((_subst92584_ + (lambda (_key92630_) + (let* ((_key9263192639_ _key92630_) + (_else9263392647_ (lambda () _key92630_)) + (_K9263592678_ + (lambda (_mark92650_ _id92651_) + (let* ((_mark9265292658_ _mark92650_) + (_E9265492662_ (lambda () (error '"No clause matching" - _mark9267092676_))) - (_K9267392688_ - (lambda (_subst92683_) - (let ((_$e92685_ - (if _subst92683_ + _mark9265292658_))) + (_K9265592670_ + (lambda (_subst92665_) + (let ((_$e92667_ + (if _subst92665_ (hash-get - _subst92683_ - _id92669_) + _subst92665_ + _id92651_) '#f))) - (if _$e92685_ - _$e92685_ + (if _$e92667_ + _$e92667_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _key92648_)))))) + _key92630_)))))) (if (##structure-instance-of? - _mark9267092676_ + _mark9265292658_ 'gx#expander-mark::t) - (let* ((_e9267492691_ + (let* ((_e9265692673_ (##unchecked-structure-ref - _mark9267092676_ + _mark9265292658_ '1 gx#expander-mark::t '#f)) - (_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_) + (_subst92676_ _e9265692673_)) + (_K9265592670_ _subst92676_)) + (_E9265492662_)))))) + (if (##pair? _key9263192639_) + (let ((_hd9263692681_ (##car _key9263192639_)) + (_tl9263792683_ (##cdr _key9263192639_))) + (let* ((_id92686_ _hd9263692681_) + (_mark92688_ _tl9263792683_)) + (_K9263592678_ _mark92688_ _id92686_))) + (_else9263392647_)))))) + (let* ((_out9258592595_ _out92582_) + (_E9258792599_ + (lambda () (error '"No clause matching" _out9258592595_))) + (_K9258892606_ + (lambda (_phi92602_ _key92603_ _ctx92604_) (gx#core-context-resolve - (gx#core-context-shift _ctx92622_ _phi92620_) - (_subst92602_ _key92621_))))) + (gx#core-context-shift _ctx92604_ _phi92602_) + (_subst92584_ _key92603_))))) (if (##structure-direct-instance-of? - _out9260392613_ + _out9258592595_ 'gx#module-export::t) - (let* ((_e9260792627_ + (let* ((_e9258992609_ (##unchecked-structure-ref - _out9260392613_ + _out9258592595_ '1 gx#module-export::t '#f)) - (_ctx92630_ _e9260792627_) - (_e9260892632_ + (_ctx92612_ _e9258992609_) + (_e9259092614_ (##unchecked-structure-ref - _out9260392613_ + _out9258592595_ '2 gx#module-export::t '#f)) - (_key92635_ _e9260892632_) - (_e9260992637_ + (_key92617_ _e9259092614_) + (_e9259192619_ (##unchecked-structure-ref - _out9260392613_ + _out9258592595_ '3 gx#module-export::t '#f)) - (_phi92640_ _e9260992637_) - (_e9261092642_ + (_phi92622_ _e9259192619_) + (_e9259292624_ (##unchecked-structure-ref - _out9260392613_ + _out9258592595_ '4 gx#module-export::t '#f)) - (_e9261192645_ + (_e9259392627_ (##unchecked-structure-ref - _out9260392613_ + _out9258592595_ '5 gx#module-export::t '#f))) - (_K9260692624_ _phi92640_ _key92635_ _ctx92630_)) - (_E9260592617_)))))) + (_K9258892606_ _phi92622_ _key92617_ _ctx92612_)) + (_E9258792599_)))))) (define gx#core-module-export->import__% - (lambda (_out92525_ _rename92526_ _dphi92527_) - (let* ((_out9252892538_ _out92525_) - (_E9253092542_ - (lambda () (error '"No clause matching" _out9252892538_))) - (_K9253192554_ - (lambda (_weak?92545_ - _name92546_ - _phi92547_ - _key92548_ - _ctx92549_) + (lambda (_out92507_ _rename92508_ _dphi92509_) + (let* ((_out9251092520_ _out92507_) + (_E9251292524_ + (lambda () (error '"No clause matching" _out9251092520_))) + (_K9251392536_ + (lambda (_weak?92527_ + _name92528_ + _phi92529_ + _key92530_ + _ctx92531_) (##structure gx#module-import::t - _out92525_ - (let ((_$e92551_ _rename92526_)) - (if _$e92551_ _$e92551_ _name92546_)) - (fx+ _phi92547_ _dphi92527_) - _weak?92545_)))) + _out92507_ + (let ((_$e92533_ _rename92508_)) + (if _$e92533_ _$e92533_ _name92528_)) + (fx+ _phi92529_ _dphi92509_) + _weak?92527_)))) (if (##structure-direct-instance-of? - _out9252892538_ + _out9251092520_ 'gx#module-export::t) - (let* ((_e9253292557_ + (let* ((_e9251492539_ (##unchecked-structure-ref - _out9252892538_ + _out9251092520_ '1 gx#module-export::t '#f)) - (_ctx92560_ _e9253292557_) - (_e9253392562_ + (_ctx92542_ _e9251492539_) + (_e9251592544_ (##unchecked-structure-ref - _out9252892538_ + _out9251092520_ '2 gx#module-export::t '#f)) - (_key92565_ _e9253392562_) - (_e9253492567_ + (_key92547_ _e9251592544_) + (_e9251692549_ (##unchecked-structure-ref - _out9252892538_ + _out9251092520_ '3 gx#module-export::t '#f)) - (_phi92570_ _e9253492567_) - (_e9253592572_ + (_phi92552_ _e9251692549_) + (_e9251792554_ (##unchecked-structure-ref - _out9252892538_ + _out9251092520_ '4 gx#module-export::t '#f)) - (_name92575_ _e9253592572_) - (_e9253692577_ + (_name92557_ _e9251792554_) + (_e9251892559_ (##unchecked-structure-ref - _out9252892538_ + _out9251092520_ '5 gx#module-export::t '#f)) - (_weak?92580_ _e9253692577_)) - (_K9253192554_ - _weak?92580_ - _name92575_ - _phi92570_ - _key92565_ - _ctx92560_)) - (_E9253092542_))))) + (_weak?92562_ _e9251892559_)) + (_K9251392536_ + _weak?92562_ + _name92557_ + _phi92552_ + _key92547_ + _ctx92542_)) + (_E9251292524_))))) (define gx#core-module-export->import__0 - (lambda (_out92585_) - (let* ((_rename92587_ '#f) (_dphi92589_ '0)) + (lambda (_out92567_) + (let* ((_rename92569_ '#f) (_dphi92571_ '0)) (gx#core-module-export->import__% - _out92585_ - _rename92587_ - _dphi92589_)))) + _out92567_ + _rename92569_ + _dphi92571_)))) (define gx#core-module-export->import__1 - (lambda (_out92591_ _rename92592_) - (let ((_dphi92594_ '0)) + (lambda (_out92573_ _rename92574_) + (let ((_dphi92576_ '0)) (gx#core-module-export->import__% - _out92591_ - _rename92592_ - _dphi92594_)))) + _out92573_ + _rename92574_ + _dphi92576_)))) (define gx#core-module-export->import - (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_) + (lambda _g94574_ + (let ((_g94573_ (##length _g94574_))) + (cond ((##fx= _g94573_ 1) + (apply (lambda (_out92567_) + (gx#core-module-export->import__0 _out92567_)) + _g94574_)) + ((##fx= _g94573_ 2) + (apply (lambda (_out92573_ _rename92574_) (gx#core-module-export->import__1 - _out92591_ - _rename92592_)) - _g94592_)) - ((##fx= _g94591_ 3) - (apply (lambda (_out92596_ _rename92597_ _dphi92598_) + _out92573_ + _rename92574_)) + _g94574_)) + ((##fx= _g94573_ 3) + (apply (lambda (_out92578_ _rename92579_ _dphi92580_) (gx#core-module-export->import__% - _out92596_ - _rename92597_ - _dphi92598_)) - _g94592_)) + _out92578_ + _rename92579_ + _dphi92580_)) + _g94574_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g94592_)))))) + _g94574_)))))) (define gx#core-expand-module% - (lambda (_stx92427_) - (letrec ((_make-context92429_ - (lambda (_id92506_) - (let* ((_super92508_ (gx#current-expander-context)) - (_bind-id92510_ (gx#stx-e _id92506_)) - (_mod-id92512_ + (lambda (_stx92409_) + (letrec ((_make-context92411_ + (lambda (_id92488_) + (let* ((_super92490_ (gx#current-expander-context)) + (_bind-id92492_ (gx#stx-e _id92488_)) + (_mod-id92494_ (if (##structure-instance-of? - _super92508_ + _super92490_ 'gx#module-context::t) (make-symbol__1 (##structure-ref - _super92508_ + _super92490_ '1 gx#expander-context::t '#f) '"~" - _bind-id92510_) - _bind-id92510_)) - (_ns92514_ (symbol->string _mod-id92512_)) - (_path92521_ + _bind-id92492_) + _bind-id92492_)) + (_ns92496_ (symbol->string _mod-id92494_)) + (_path92503_ (if (##structure-instance-of? - _super92508_ + _super92490_ 'gx#module-context::t) - (let ((_path92516_ + (let ((_path92498_ (##unchecked-structure-ref - _super92508_ + _super92490_ '7 gx#module-context::t '#f))) - (if (or (pair? _path92516_) - (null? _path92516_)) - (cons _bind-id92510_ _path92516_) - (if (not _path92516_) - _bind-id92510_ - (cons _bind-id92510_ - (cons _path92516_ '()))))) - _bind-id92510_))) - (let ((__obj94568 + (if (or (pair? _path92498_) + (null? _path92498_)) + (cons _bind-id92492_ _path92498_) + (if (not _path92498_) + _bind-id92492_ + (cons _bind-id92492_ + (cons _path92498_ '()))))) + _bind-id92492_))) + (let ((__obj94550 (##structure gx#module-context::t '#f @@ -2156,893 +2156,893 @@ '#f '#f))) (gx#module-context:::init! - __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_) + __obj94550 + _mod-id92494_ + _super92490_ + _ns92496_ + _path92503_) + __obj94550)))) + (_valid-module-id?92412_ + (lambda (_id92463_) + (let* ((_str92465_ (symbol->string _id92463_)) + (_len92467_ (string-length _str92465_))) + (if (fx>= _len92467_ '1) + (let _loop92470_ ((_index92472_ + (fx- (string-length _str92465_) '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)) + (if (fx>= _index92472_ '0) + (let ((_c92474_ + (string-ref _str92465_ _index92472_))) + (if (or (and (char>=? _c92474_ '#\a) + (char<=? _c92474_ '#\z)) + (and (char>=? _c92474_ '#\A) + (char<=? _c92474_ '#\Z)) + (and (char>=? _c92474_ '#\0) + (char<=? _c92474_ '#\9)) + (char=? _c92474_ '#\_) + (char=? _c92474_ '#\-)) + (_loop92470_ (fx- _index92472_ '1)) '#f)) '#t)) '#f))))) - (let* ((_e9243192441_ _stx92427_) - (_E9243392445_ + (let* ((_e9241392423_ _stx92409_) + (_E9241592427_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9243192441_))) - (_E9243292477_ + _e9241392423_))) + (_E9241492459_ (lambda () - (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_ + (if (gx#stx-pair? _e9241392423_) + (let ((_e9241692431_ (gx#syntax-e _e9241392423_))) + (let ((_hd9241792434_ (##car _e9241692431_)) + (_tl9241892436_ (##cdr _e9241692431_))) + (if (gx#stx-pair? _tl9241892436_) + (let ((_e9241992439_ + (gx#syntax-e _tl9241892436_))) + (let ((_hd9242092442_ (##car _e9241992439_)) + (_tl9242192444_ (##cdr _e9241992439_))) + (let* ((_id92447_ _hd9242092442_) + (_body92449_ _tl9242192444_)) + (if (and (gx#identifier? _id92447_) + (gx#stx-list? _body92449_)) + (if (_valid-module-id?92412_ (gx#stx-e (gx#datum->syntax__0 '#f 'id))) - (let* ((_ctx92469_ - (_make-context92429_ - _id92465_)) - (_body92471_ + (let* ((_ctx92451_ + (_make-context92411_ + _id92447_)) + (_body92453_ (gx#core-expand-module-begin - _body92467_ - _ctx92469_)) - (_body92473_ + _body92449_ + _ctx92451_)) + (_body92455_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body92471_) + _body92453_) (gx#stx-source - _stx92427_)))) + _stx92409_)))) (##unchecked-structure-set! - _ctx92469_ + _ctx92451_ (make-promise (lambda () (gx#eval-syntax* - _body92473_))) + _body92455_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx92469_ - _body92473_ + _ctx92451_ + _body92455_ '11 gx#module-context::t '#f) (gx#core-bind-syntax!__0 - _id92465_ - _ctx92469_) + _id92447_ + _ctx92451_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _id92465_) - _body92473_) - (gx#stx-source _stx92427_))) + _id92447_) + _body92455_) + (gx#stx-source _stx92409_))) (gx#raise-syntax-error '#f '"invalid module id; allowed characters are A-Z,a-z,0-9,_,-" - _stx92427_ + _stx92409_ (gx#datum->syntax__0 '#f 'id))) - (_E9243392445_))))) - (_E9243392445_)))) - (_E9243392445_))))) - (_E9243292477_))))) + (_E9241592427_))))) + (_E9241592427_)))) + (_E9241592427_))))) + (_E9241492459_))))) (define gx#core-expand-module-begin - (lambda (_body92393_ _ctx92394_) + (lambda (_body92375_ _ctx92376_) (call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_stx92397_ - (gx#core-expand-head (cons '%%begin-module _body92393_))) - (_e9239892405_ _stx92397_) - (_E9240092409_ + (let* ((_stx92379_ + (gx#core-expand-head (cons '%%begin-module _body92375_))) + (_e9238092387_ _stx92379_) + (_E9238292391_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _stx92397_))) - (_E9239992423_ + _stx92379_))) + (_E9238192405_ (lambda () - (if (gx#stx-pair? _e9239892405_) - (let ((_e9240192413_ (gx#syntax-e _e9239892405_))) - (let ((_hd9240292416_ (##car _e9240192413_)) - (_tl9240392418_ (##cdr _e9240192413_))) - (if (and (gx#identifier? _hd9240292416_) + (if (gx#stx-pair? _e9238092387_) + (let ((_e9238392395_ (gx#syntax-e _e9238092387_))) + (let ((_hd9238492398_ (##car _e9238392395_)) + (_tl9238592400_ (##cdr _e9238392395_))) + (if (and (gx#identifier? _hd9238492398_) (gx#core-identifier=? - _hd9240292416_ + _hd9238492398_ '%#begin-module)) - (let ((_body92421_ _tl9240392418_)) + (let ((_body92403_ _tl9238592400_)) (if '#t - (if (gx#sealed-syntax? _stx92397_) - _body92421_ + (if (gx#sealed-syntax? _stx92379_) + _body92403_ (gx#core-expand-module-body - _body92421_)) - (_E9240092409_))) - (_E9240092409_)))) - (_E9240092409_))))) - (_E9239992423_))) + _body92403_)) + (_E9238292391_))) + (_E9238292391_)))) + (_E9238292391_))))) + (_E9238192405_))) gx#current-expander-context - _ctx92394_ + _ctx92376_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_body92189_) - (letrec ((_expand-special92191_ - (lambda (_hd92320_ _K92321_ _rest92322_ _r92323_) - (let* ((_e9232492341_ _hd92320_) - (_E9233692345_ + (lambda (_body92171_) + (letrec ((_expand-special92173_ + (lambda (_hd92302_ _K92303_ _rest92304_ _r92305_) + (let* ((_e9230692323_ _hd92302_) + (_E9231892327_ (lambda () - (_K92321_ - _rest92322_ - (cons (gx#core-expand-top _hd92320_) - _r92323_)))) - (_E9232692357_ + (_K92303_ + _rest92304_ + (cons (gx#core-expand-top _hd92302_) + _r92305_)))) + (_E9230892339_ (lambda () - (if (gx#stx-pair? _e9232492341_) - (let ((_e9233792349_ - (gx#syntax-e _e9232492341_))) - (let ((_hd9233892352_ - (##car _e9233792349_)) - (_tl9233992354_ - (##cdr _e9233792349_))) - (if (and (gx#identifier? _hd9233892352_) + (if (gx#stx-pair? _e9230692323_) + (let ((_e9231992331_ + (gx#syntax-e _e9230692323_))) + (let ((_hd9232092334_ + (##car _e9231992331_)) + (_tl9232192336_ + (##cdr _e9231992331_))) + (if (and (gx#identifier? _hd9232092334_) (gx#core-identifier=? - _hd9233892352_ + _hd9232092334_ '%#export)) (if '#t - (_K92321_ - _rest92322_ - (cons _hd92320_ _r92323_)) - (_E9233692345_)) - (_E9233692345_)))) - (_E9233692345_)))) - (_E9232592389_ + (_K92303_ + _rest92304_ + (cons _hd92302_ _r92305_)) + (_E9231892327_)) + (_E9231892327_)))) + (_E9231892327_)))) + (_E9230792371_ (lambda () - (if (gx#stx-pair? _e9232492341_) - (let ((_e9232792361_ - (gx#syntax-e _e9232492341_))) - (let ((_hd9232892364_ - (##car _e9232792361_)) - (_tl9232992366_ - (##cdr _e9232792361_))) - (if (and (gx#identifier? _hd9232892364_) + (if (gx#stx-pair? _e9230692323_) + (let ((_e9230992343_ + (gx#syntax-e _e9230692323_))) + (let ((_hd9231092346_ + (##car _e9230992343_)) + (_tl9231192348_ + (##cdr _e9230992343_))) + (if (and (gx#identifier? _hd9231092346_) (gx#core-identifier=? - _hd9232892364_ + _hd9231092346_ '%#define-values)) - (if (gx#stx-pair? _tl9232992366_) - (let ((_e9233092369_ + (if (gx#stx-pair? _tl9231192348_) + (let ((_e9231292351_ (gx#syntax-e - _tl9232992366_))) - (let ((_hd9233192372_ - (##car _e9233092369_)) - (_tl9233292374_ - (##cdr _e9233092369_))) - (let ((_hd-bind92377_ - _hd9233192372_)) + _tl9231192348_))) + (let ((_hd9231392354_ + (##car _e9231292351_)) + (_tl9231492356_ + (##cdr _e9231292351_))) + (let ((_hd-bind92359_ + _hd9231392354_)) (if (gx#stx-pair? - _tl9233292374_) - (let ((_e9233392379_ + _tl9231492356_) + (let ((_e9231592361_ (gx#syntax-e - _tl9233292374_))) - (let ((_hd9233492382_ + _tl9231492356_))) + (let ((_hd9231692364_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e9233392379_)) - (_tl9233592384_ (##cdr _e9233392379_))) - (let ((_expr92387_ _hd9233492382_)) - (if (gx#stx-null? _tl9233592384_) - (if (gx#core-bind-values? _hd-bind92377_) + (##car _e9231592361_)) + (_tl9231792366_ (##cdr _e9231592361_))) + (let ((_expr92369_ _hd9231692364_)) + (if (gx#stx-null? _tl9231792366_) + (if (gx#core-bind-values? _hd-bind92359_) (begin - (gx#core-bind-values!__0 _hd-bind92377_) - (_K92321_ - _rest92322_ - (cons _hd92320_ _r92323_))) - (_E9232692357_)) - (_E9232692357_))))) - (_E9232692357_))))) + (gx#core-bind-values!__0 _hd-bind92359_) + (_K92303_ + _rest92304_ + (cons _hd92302_ _r92305_))) + (_E9230892339_)) + (_E9230892339_))))) + (_E9230892339_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_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_ + (_E9230892339_)) + (_E9230892339_)))) + (_E9230892339_))))) + (_E9230792371_)))) + (_expand-body92174_ + (lambda (_rbody92176_) + (let _lp92178_ ((_rest92180_ _rbody92176_) + (_body92181_ '())) + (let* ((_rest9218292190_ _rest92180_) + (_else9218492198_ (lambda () _body92181_)) + (_K9218692290_ + (lambda (_rest92201_ _hd92202_) + (let* ((_e9220392224_ _hd92202_) + (_E9221992228_ (lambda () - (_lp92196_ - _rest92219_ + (_lp92178_ + _rest92201_ (cons (gx#core-expand-expression - _hd92220_) - _body92199_)))) - (_E9223392260_ + _hd92202_) + _body92181_)))) + (_E9221592242_ (lambda () - (if (gx#stx-pair? _e9222192242_) - (let ((_e9223892250_ + (if (gx#stx-pair? _e9220392224_) + (let ((_e9222092232_ (gx#syntax-e - _e9222192242_))) - (let ((_hd9223992253_ - (##car _e9223892250_)) - (_tl9224092255_ - (##cdr _e9223892250_))) - (let ((_form92258_ - _hd9223992253_)) + _e9220392224_))) + (let ((_hd9222192235_ + (##car _e9222092232_)) + (_tl9222292237_ + (##cdr _e9222092232_))) + (let ((_form92240_ + _hd9222192235_)) (if (gx#core-bound-identifier?__% - _form92258_ + _form92240_ gx#special-form-binding?) - (_lp92196_ - _rest92219_ - (cons _hd92220_ - _body92199_)) - (_E9223792246_))))) - (_E9223792246_)))) - (_E9222392272_ + (_lp92178_ + _rest92201_ + (cons _hd92202_ + _body92181_)) + (_E9221992228_))))) + (_E9221992228_)))) + (_E9220592254_ (lambda () - (if (gx#stx-pair? _e9222192242_) - (let ((_e9223492264_ + (if (gx#stx-pair? _e9220392224_) + (let ((_e9221692246_ (gx#syntax-e - _e9222192242_))) - (let ((_hd9223592267_ - (##car _e9223492264_)) - (_tl9223692269_ - (##cdr _e9223492264_))) + _e9220392224_))) + (let ((_hd9221792249_ + (##car _e9221692246_)) + (_tl9221892251_ + (##cdr _e9221692246_))) (if (and (gx#identifier? - _hd9223592267_) + _hd9221792249_) (gx#core-identifier=? - _hd9223592267_ + _hd9221792249_ '%#export)) (if '#t - (_lp92196_ - _rest92219_ + (_lp92178_ + _rest92201_ (cons (gx#core-expand-export%__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd92220_) - _body92199_)) - (_E9223392260_)) - (_E9223392260_)))) + _hd92202_) + _body92181_)) + (_E9221592242_)) + (_E9221592242_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9223392260_)))) - (_E9222292304_ + (_E9221592242_)))) + (_E9220492286_ (lambda () - (if (gx#stx-pair? _e9222192242_) - (let ((_e9222492276_ + (if (gx#stx-pair? _e9220392224_) + (let ((_e9220692258_ (gx#syntax-e - _e9222192242_))) - (let ((_hd9222592279_ - (##car _e9222492276_)) - (_tl9222692281_ - (##cdr _e9222492276_))) + _e9220392224_))) + (let ((_hd9220792261_ + (##car _e9220692258_)) + (_tl9220892263_ + (##cdr _e9220692258_))) (if (and (gx#identifier? - _hd9222592279_) + _hd9220792261_) (gx#core-identifier=? - _hd9222592279_ + _hd9220792261_ '%#define-values)) (if (gx#stx-pair? - _tl9222692281_) - (let ((_e9222792284_ + _tl9220892263_) + (let ((_e9220992266_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (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_) + (gx#syntax-e _tl9220892263_))) + (let ((_hd9221092269_ (##car _e9220992266_)) + (_tl9221192271_ (##cdr _e9220992266_))) + (let ((_hd-bind92274_ _hd9221092269_)) + (if (gx#stx-pair? _tl9221192271_) + (let ((_e9221292276_ (gx#syntax-e _tl9221192271_))) + (let ((_hd9221392279_ (##car _e9221292276_)) + (_tl9221492281_ (##cdr _e9221292276_))) + (let ((_expr92284_ _hd9221392279_)) + (if (gx#stx-null? _tl9221492281_) (if '#t - (_lp92196_ - _rest92219_ + (_lp92178_ + _rest92201_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _hd-bind92292_) + _hd-bind92274_) (gx#core-expand-expression - _expr92302_)) - (gx#stx-source _hd92220_)) - _body92199_)) - (_E9222392272_)) - (_E9222392272_))))) - (_E9222392272_))))) - (_E9222392272_)) - (_E9222392272_)))) + _expr92284_)) + (gx#stx-source _hd92202_)) + _body92181_)) + (_E9220592254_)) + (_E9220592254_))))) + (_E9220592254_))))) + (_E9220592254_)) + (_E9220592254_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9222392272_))))) - (_E9222292304_))))) - (if (##pair? _rest9220092208_) - (let ((_hd9220592311_ (##car _rest9220092208_)) - (_tl9220692313_ (##cdr _rest9220092208_))) - (let* ((_hd92316_ _hd9220592311_) - (_rest92318_ _tl9220692313_)) - (_K9220492308_ _rest92318_ _hd92316_))) - (_else9220292216_))))))) - (_expand-body92192_ + (_E9220592254_))))) + (_E9220492286_))))) + (if (##pair? _rest9218292190_) + (let ((_hd9218792293_ (##car _rest9218292190_)) + (_tl9218892295_ (##cdr _rest9218292190_))) + (let* ((_hd92298_ _hd9218792293_) + (_rest92300_ _tl9218892295_)) + (_K9218692290_ _rest92300_ _hd92298_))) + (_else9218492198_))))))) + (_expand-body92174_ (gx#core-expand-block__% - (cons '%#begin-module _body92189_) - _expand-special92191_ + (cons '%#begin-module _body92171_) + _expand-special92173_ '#f values))))) (define gx#core-expand-import/export - (lambda (_stx92032_ - _expanded?92033_ - _method92034_ - _current-phi92035_ - _expand192036_) - (letrec ((_K92038_ - (lambda (_rest92156_ _r92157_) - (let* ((_e9215892165_ _rest92156_) - (_E9216092169_ (lambda () _r92157_)) - (_E9215992185_ + (lambda (_stx92014_ + _expanded?92015_ + _method92016_ + _current-phi92017_ + _expand192018_) + (letrec ((_K92020_ + (lambda (_rest92138_ _r92139_) + (let* ((_e9214092147_ _rest92138_) + (_E9214292151_ (lambda () _r92139_)) + (_E9214192167_ (lambda () - (if (gx#stx-pair? _e9215892165_) - (let ((_e9216192173_ - (gx#syntax-e _e9215892165_))) - (let ((_hd9216292176_ - (##car _e9216192173_)) - (_tl9216392178_ - (##cdr _e9216192173_))) - (let* ((_hd92181_ _hd9216292176_) - (_rest92183_ _tl9216392178_)) + (if (gx#stx-pair? _e9214092147_) + (let ((_e9214392155_ + (gx#syntax-e _e9214092147_))) + (let ((_hd9214492158_ + (##car _e9214392155_)) + (_tl9214592160_ + (##cdr _e9214392155_))) + (let* ((_hd92163_ _hd9214492158_) + (_rest92165_ _tl9214592160_)) (if '#t - (_step92039_ - _hd92181_ - _rest92183_ - _r92157_) - (_E9216092169_))))) - (_E9216092169_))))) - (_E9215992185_)))) - (_step92039_ - (lambda (_hd92070_ _rest92071_ _r92072_) - (let* ((_e9207392091_ _hd92070_) - (_E9208692095_ + (_step92021_ + _hd92163_ + _rest92165_ + _r92139_) + (_E9214292151_))))) + (_E9214292151_))))) + (_E9214192167_)))) + (_step92021_ + (lambda (_hd92052_ _rest92053_ _r92054_) + (let* ((_e9205592073_ _hd92052_) + (_E9206892077_ (lambda () - (if (_expanded?92033_ (gx#stx-e _hd92070_)) - (_K92038_ - _rest92071_ - (cons (gx#stx-e _hd92070_) _r92072_)) - (_expand192036_ - _hd92070_ - _K92038_ - _rest92071_ - _r92072_)))) - (_E9208292111_ + (if (_expanded?92015_ (gx#stx-e _hd92052_)) + (_K92020_ + _rest92053_ + (cons (gx#stx-e _hd92052_) _r92054_)) + (_expand192018_ + _hd92052_ + _K92020_ + _rest92053_ + _r92054_)))) + (_E9206492093_ (lambda () - (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#stx-pair? _e9205592073_) + (let ((_e9206992081_ + (gx#syntax-e _e9205592073_))) + (let ((_hd9207092084_ + (##car _e9206992081_)) + (_tl9207192086_ + (##cdr _e9206992081_))) + (let* ((_macro92089_ _hd9207092084_) + (_body92091_ _tl9207192086_)) (if (gx#core-bound-identifier?__% - _macro92107_ + _macro92089_ gx#syntax-binding?) - (_K92038_ + (_K92020_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _macro92107_) - _hd92070_ - _method92034_) - _rest92071_) - _r92072_) - (_E9208692095_))))) - (_E9208692095_)))) - (_E9207592125_ + _macro92089_) + _hd92052_ + _method92016_) + _rest92053_) + _r92054_) + (_E9206892077_))))) + (_E9206892077_)))) + (_E9205792107_ (lambda () - (if (gx#stx-pair? _e9207392091_) - (let ((_e9208392115_ - (gx#syntax-e _e9207392091_))) - (let ((_hd9208492118_ - (##car _e9208392115_)) - (_tl9208592120_ - (##cdr _e9208392115_))) - (if (eq? (gx#stx-e _hd9208492118_) + (if (gx#stx-pair? _e9205592073_) + (let ((_e9206592097_ + (gx#syntax-e _e9205592073_))) + (let ((_hd9206692100_ + (##car _e9206592097_)) + (_tl9206792102_ + (##cdr _e9206592097_))) + (if (eq? (gx#stx-e _hd9206692100_) 'begin:) - (let ((_body92123_ _tl9208592120_)) + (let ((_body92105_ _tl9206792102_)) (if '#t - (_K92038_ + (_K92020_ (gx#stx-foldr cons - _rest92071_ - _body92123_) - _r92072_) - (_E9208292111_))) - (_E9208292111_)))) - (_E9208292111_)))) - (_E9207492152_ + _rest92053_ + _body92105_) + _r92054_) + (_E9206492093_))) + (_E9206492093_)))) + (_E9206492093_)))) + (_E9205692134_ (lambda () - (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_ + (if (gx#stx-pair? _e9205592073_) + (let ((_e9205892111_ + (gx#syntax-e _e9205592073_))) + (let ((_hd9205992114_ + (##car _e9205892111_)) + (_tl9206092116_ + (##cdr _e9205892111_))) + (if (eq? (gx#stx-e _hd9205992114_) 'phi:) + (if (gx#stx-pair? _tl9206092116_) + (let ((_e9206192119_ (gx#syntax-e - _tl9207892134_))) - (let ((_hd9208092140_ - (##car _e9207992137_)) - (_tl9208192142_ - (##cdr _e9207992137_))) - (let* ((_dphi92145_ - _hd9208092140_) - (_body92147_ - _tl9208192142_)) + _tl9206092116_))) + (let ((_hd9206292122_ + (##car _e9206192119_)) + (_tl9206392124_ + (##cdr _e9206192119_))) + (let* ((_dphi92127_ + _hd9206292122_) + (_body92129_ + _tl9206392124_)) (if (gx#stx-fixnum? - _dphi92145_) - (let ((_rbody92150_ + _dphi92127_) + (let ((_rbody92132_ (call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_K92038_ _body92147_ '())) - _current-phi92035_ - (fx+ (gx#stx-e _dphi92145_) (_current-phi92035_))))) - (_K92038_ _rest92071_ (foldr1 cons _r92072_ _rbody92150_))) - (_E9207592125_))))) + (_K92020_ _body92129_ '())) + _current-phi92017_ + (fx+ (gx#stx-e _dphi92127_) (_current-phi92017_))))) + (_K92020_ _rest92053_ (foldr1 cons _r92054_ _rbody92132_))) + (_E9205792107_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9207592125_)) - (_E9207592125_)))) - (_E9207592125_))))) - (_E9207492152_))))) - (let* ((_e9204092047_ _stx92032_) - (_E9204292051_ + (_E9205792107_)) + (_E9205792107_)))) + (_E9205792107_))))) + (_E9205692134_))))) + (let* ((_e9202292029_ _stx92014_) + (_E9202492033_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9204092047_))) - (_E9204192066_ + _e9202292029_))) + (_E9202392048_ (lambda () - (if (gx#stx-pair? _e9204092047_) - (let ((_e9204392055_ (gx#syntax-e _e9204092047_))) - (let ((_hd9204492058_ (##car _e9204392055_)) - (_tl9204592060_ (##cdr _e9204392055_))) - (let ((_body92063_ _tl9204592060_)) + (if (gx#stx-pair? _e9202292029_) + (let ((_e9202592037_ (gx#syntax-e _e9202292029_))) + (let ((_hd9202692040_ (##car _e9202592037_)) + (_tl9202792042_ (##cdr _e9202592037_))) + (let ((_body92045_ _tl9202792042_)) (if '#t - (if (_current-phi92035_) - (_K92038_ _body92063_ '()) + (if (_current-phi92017_) + (_K92020_ _body92045_ '()) (call-with-parameters - (lambda () (_K92038_ _body92063_ '())) - _current-phi92035_ + (lambda () (_K92020_ _body92045_ '())) + _current-phi92017_ (gx#current-expander-phi))) - (_E9204292051_))))) - (_E9204292051_))))) - (_E9204192066_))))) + (_E9202492033_))))) + (_E9202492033_))))) + (_E9202392048_))))) (define gx#core-expand-import%__% - (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_ + (lambda (_stx91681_ _internal-expand?91682_) + (letrec ((_expand191684_ + (lambda (_hd91994_ _K91995_ _rest91996_ _r91997_) + (if (gx#core-bound-module? _hd91994_) + (_import191685_ + (gx#syntax-local-e__0 _hd91994_) + _K91995_ + _rest91996_ + _r91997_) + (if (gx#core-library-module-path? _hd91994_) + (_import191685_ (gx#import-module__0 - (gx#core-resolve-library-module-path _hd92012_)) - _K92013_ - _rest92014_ - _r92015_) + (gx#core-resolve-library-module-path _hd91994_)) + _K91995_ + _rest91996_ + _r91997_) (if (gx#core-library-relative-module-path? - _hd92012_) - (_import191703_ + _hd91994_) + (_import191685_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _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_) + _hd91994_)) + _K91995_ + _rest91996_ + _r91997_) + (let ((_e91999_ (gx#stx-e _hd91994_))) + (if (pair? _e91999_) + (let ((_$e92001_ + (gx#stx-e (car _e91999_)))) + (if (eq? 'spec: _$e92001_) + (_import-spec91688_ + _hd91994_ + _K91995_ + _rest91996_ + _r91997_) + (if (eq? 'in: _$e92001_) + (_import-submodule91686_ + _hd91994_ + _K91995_ + _rest91996_ + _r91997_) + (if (eq? 'runtime: _$e92001_) + (_import-runtime91687_ + _hd91994_ + _K91995_ + _rest91996_ + _r91997_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx91699_ - _hd92012_))))) - (if (string? _e92017_) - (_import191703_ + _stx91681_ + _hd91994_))))) + (if (string? _e91999_) + (_import191685_ (gx#import-module__0 (gx#core-resolve-module-path__% - _hd92012_ - (gx#stx-source _stx91699_))) - _K92013_ - _rest92014_ - _r92015_) + _hd91994_ + (gx#stx-source _stx91681_))) + _K91995_ + _rest91996_ + _r91997_) (if (##structure-instance-of? - _e92017_ + _e91999_ 'gx#module-context::t) - (_K92013_ - _rest92014_ - (cons _e92017_ _r92015_)) + (_K91995_ + _rest91996_ + (cons _e91999_ _r91997_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx91699_ - _hd92012_)))))))))) - (_import191703_ - (lambda (_ctx92001_ _K92002_ _rest92003_ _r92004_) - (let ((_dphi92006_ + _stx91681_ + _hd91994_)))))))))) + (_import191685_ + (lambda (_ctx91983_ _K91984_ _rest91985_ _r91986_) + (let ((_dphi91988_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_K92002_ - _rest92003_ + (_K91984_ + _rest91985_ (cons (##structure gx#import-set::t - _ctx92001_ - _dphi92006_ - (map (lambda (_g9200792009_) + _ctx91983_ + _dphi91988_ + (map (lambda (_g9198991991_) (gx#core-module-export->import__% - _g9200792009_ + _g9198991991_ '#f - _dphi92006_)) + _dphi91988_)) (##unchecked-structure-ref - _ctx92001_ + _ctx91983_ '9 gx#module-context::t '#f))) - _r92004_))))) - (_import-submodule91704_ - (lambda (_hd91968_ _K91969_ _rest91970_ _r91971_) - (let* ((_e9197291979_ _hd91968_) - (_E9197491983_ + _r91986_))))) + (_import-submodule91686_ + (lambda (_hd91950_ _K91951_ _rest91952_ _r91953_) + (let* ((_e9195491961_ _hd91950_) + (_E9195691965_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9197291979_))) - (_E9197391997_ + _e9195491961_))) + (_E9195591979_ (lambda () - (if (gx#stx-pair? _e9197291979_) - (let ((_e9197591987_ - (gx#syntax-e _e9197291979_))) - (let ((_hd9197691990_ - (##car _e9197591987_)) - (_tl9197791992_ - (##cdr _e9197591987_))) - (let ((_spath91995_ _tl9197791992_)) + (if (gx#stx-pair? _e9195491961_) + (let ((_e9195791969_ + (gx#syntax-e _e9195491961_))) + (let ((_hd9195891972_ + (##car _e9195791969_)) + (_tl9195991974_ + (##cdr _e9195791969_))) + (let ((_spath91977_ _tl9195991974_)) (if '#t - (_import191703_ - (_import-spec-source91707_ - _spath91995_) - _K91969_ - _rest91970_ - _r91971_) - (_E9197491983_))))) - (_E9197491983_))))) - (_E9197391997_)))) - (_import-runtime91705_ - (lambda (_hd91935_ _K91936_ _rest91937_ _r91938_) - (let* ((_e9193991946_ _hd91935_) - (_E9194191950_ + (_import191685_ + (_import-spec-source91689_ + _spath91977_) + _K91951_ + _rest91952_ + _r91953_) + (_E9195691965_))))) + (_E9195691965_))))) + (_E9195591979_)))) + (_import-runtime91687_ + (lambda (_hd91917_ _K91918_ _rest91919_ _r91920_) + (let* ((_e9192191928_ _hd91917_) + (_E9192391932_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9193991946_))) - (_E9194091964_ + _e9192191928_))) + (_E9192291946_ (lambda () - (if (gx#stx-pair? _e9193991946_) - (let ((_e9194291954_ - (gx#syntax-e _e9193991946_))) - (let ((_hd9194391957_ - (##car _e9194291954_)) - (_tl9194491959_ - (##cdr _e9194291954_))) - (let ((_spath91962_ _tl9194491959_)) + (if (gx#stx-pair? _e9192191928_) + (let ((_e9192491936_ + (gx#syntax-e _e9192191928_))) + (let ((_hd9192591939_ + (##car _e9192491936_)) + (_tl9192691941_ + (##cdr _e9192491936_))) + (let ((_spath91944_ _tl9192691941_)) (if '#t - (_K91936_ - _rest91937_ - (cons (_import-spec-source91707_ - _spath91962_) - _r91938_)) - (_E9194191950_))))) - (_E9194191950_))))) - (_E9194091964_)))) - (_import-spec91706_ - (lambda (_hd91774_ _K91775_ _rest91776_ _r91777_) - (let* ((_e9177891795_ _hd91774_) - (_E9178791799_ + (_K91918_ + _rest91919_ + (cons (_import-spec-source91689_ + _spath91944_) + _r91920_)) + (_E9192391932_))))) + (_E9192391932_))))) + (_E9192291946_)))) + (_import-spec91688_ + (lambda (_hd91756_ _K91757_ _rest91758_ _r91759_) + (let* ((_e9176091777_ _hd91756_) + (_E9176991781_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9177891795_))) - (_E9178091909_ + _e9176091777_))) + (_E9176291891_ (lambda () - (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 (gx#stx-pair? _e9176091777_) + (let ((_e9177091785_ + (gx#syntax-e _e9176091777_))) + (let ((_hd9177191788_ + (##car _e9177091785_)) + (_tl9177291790_ + (##cdr _e9177091785_))) + (if (gx#stx-pair? _tl9177291790_) + (let ((_e9177391793_ + (gx#syntax-e _tl9177291790_))) + (let ((_hd9177491796_ + (##car _e9177391793_)) + (_tl9177591798_ + (##cdr _e9177391793_))) + (let* ((_path91801_ + _hd9177491796_) + (_specs91803_ + _tl9177591798_)) (if '#t - (let ((_src-ctx91823_ - (_import-spec-source91707_ - _path91819_)) - (_exports91824_ + (let ((_src-ctx91805_ + (_import-spec-source91689_ + _path91801_)) + (_exports91806_ (make-hash-table)) - (_specs91825_ + (_specs91807_ (gx#syntax->list - _specs91821_))) + _specs91803_))) (for-each - (lambda (_out91827_) + (lambda (_out91809_) (hash-put! - _exports91824_ + _exports91806_ (cons (##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _out91827_ + _out91809_ '3 gx#module-export::t '#f) (##unchecked-structure-ref - _out91827_ + _out91809_ '4 gx#module-export::t '#f)) - _out91827_)) + _out91809_)) (##unchecked-structure-ref - _src-ctx91823_ + _src-ctx91805_ '9 gx#module-context::t '#f)) - (_K91775_ - _rest91776_ - (foldl1 (lambda (_spec91829_ _r91830_) - (let* ((_e9183191847_ _spec91829_) - (_E9183391851_ + (_K91757_ + _rest91758_ + (foldl1 (lambda (_spec91811_ _r91812_) + (let* ((_e9181391829_ _spec91811_) + (_E9181591833_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9183191847_))) - (_E9183291905_ + _e9181391829_))) + (_E9181491887_ (lambda () - (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_ + (if (gx#stx-pair? _e9181391829_) + (let ((_e9181691837_ + (gx#syntax-e _e9181391829_))) + (let ((_hd9181791840_ + (##car _e9181691837_)) + (_tl9181891842_ + (##cdr _e9181691837_))) + (let ((_phi91845_ _hd9181791840_)) + (if (gx#stx-pair? _tl9181891842_) + (let ((_e9181991847_ (gx#syntax-e - _tl9183691860_))) - (let ((_hd9183891868_ - (##car _e9183791865_)) - (_tl9183991870_ - (##cdr _e9183791865_))) - (let ((_name91873_ - _hd9183891868_)) + _tl9181891842_))) + (let ((_hd9182091850_ + (##car _e9181991847_)) + (_tl9182191852_ + (##cdr _e9181991847_))) + (let ((_name91855_ + _hd9182091850_)) (if (gx#stx-pair? - _tl9183991870_) - (let ((_e9184091875_ + _tl9182191852_) + (let ((_e9182291857_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (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#syntax-e _tl9182191852_))) + (let ((_hd9182391860_ (##car _e9182291857_)) + (_tl9182491862_ (##cdr _e9182291857_))) + (let ((_src-phi91865_ _hd9182391860_)) + (if (gx#stx-pair? _tl9182491862_) + (let ((_e9182591867_ + (gx#syntax-e _tl9182491862_))) + (let ((_hd9182691870_ (##car _e9182591867_)) + (_tl9182791872_ (##cdr _e9182591867_))) + (let ((_src-name91875_ _hd9182691870_)) + (if (gx#stx-null? _tl9182791872_) + (if (and (gx#stx-fixnum? _src-phi91865_) (gx#identifier? - _src-name91893_) - (gx#stx-fixnum? _phi91863_) - (gx#identifier? _name91873_)) - (let ((_src-phi91895_ - (gx#stx-e _src-phi91883_)) - (_src-name91896_ + _src-name91875_) + (gx#stx-fixnum? _phi91845_) + (gx#identifier? _name91855_)) + (let ((_src-phi91877_ + (gx#stx-e _src-phi91865_)) + (_src-name91878_ (gx#core-identifier-key - _src-name91893_)) - (_phi91897_ - (gx#stx-e _phi91863_)) - (_name91898_ + _src-name91875_)) + (_phi91879_ + (gx#stx-e _phi91845_)) + (_name91880_ (gx#core-identifier-key - _name91873_))) - (let ((_$e91900_ + _name91855_))) + (let ((_$e91882_ (hash-get - _exports91824_ - (cons _src-phi91895_ - _src-name91896_)))) - (if _$e91900_ - ((lambda (_out91903_) + _exports91806_ + (cons _src-phi91877_ + _src-name91878_)))) + (if _$e91882_ + ((lambda (_out91885_) (cons (gx#core-module-export->import__% - _out91903_ - _name91898_ - (fx- _phi91897_ + _out91885_ + _name91880_ + (fx- _phi91879_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _src-phi91895_)) - _r91830_)) + _src-phi91877_)) + _r91812_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e91900_) + _$e91882_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _stx91699_ - _hd91774_)))) - (_E9183391851_)) - (_E9183391851_))))) - (_E9183391851_))))) - (_E9183391851_))))) + _stx91681_ + _hd91756_)))) + (_E9181591833_)) + (_E9181591833_))))) + (_E9181591833_))))) + (_E9181591833_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9183391851_))))) - (_E9183391851_))))) - (_E9183291905_))) - _r91777_ - _specs91825_))) + (_E9181591833_))))) + (_E9181591833_))))) + (_E9181491887_))) + _r91759_ + _specs91807_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9178791799_))))) - (_E9178791799_)))) - (_E9178791799_)))) - (_E9177991931_ + (_E9176991781_))))) + (_E9176991781_)))) + (_E9176991781_)))) + (_E9176191913_ (lambda () - (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-pair? _e9176091777_) + (let ((_e9176391895_ + (gx#syntax-e _e9176091777_))) + (let ((_hd9176491898_ + (##car _e9176391895_)) + (_tl9176591900_ + (##cdr _e9176391895_))) + (if (gx#stx-pair? _tl9176591900_) + (let ((_e9176691903_ + (gx#syntax-e _tl9176591900_))) + (let ((_hd9176791906_ + (##car _e9176691903_)) + (_tl9176891908_ + (##cdr _e9176691903_))) + (let ((_path91911_ + _hd9176791906_)) (if (gx#stx-null? - _tl9178691926_) + _tl9176891908_) (if '#t - (_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_ + (_K91757_ + _rest91758_ + (cons (_import-spec-source91689_ + _path91911_) + _r91759_)) + (_E9176291891_)) + (_E9176291891_))))) + (_E9176291891_)))) + (_E9176291891_))))) + (_E9176191913_)))) + (_import-spec-source91689_ + (lambda (_spath91754_) + (gx#core-import-nested-module _spath91754_ _stx91681_))) + (_import!91690_ + (lambda (_rbody91703_) + (letrec* ((_current-ctx91705_ (gx#current-expander-context)) - (_deps91724_ (make-hash-table-eq)) - (_bind!91725_ - (lambda (_hd91770_) + (_deps91706_ (make-hash-table-eq)) + (_bind!91707_ + (lambda (_hd91752_) (gx#core-bind-import!__1 - _hd91770_ - _current-ctx91723_)))) - (let _lp91727_ ((_rest91729_ _rbody91721_) - (_body91730_ '())) - (let* ((_rest9173191739_ _rest91729_) - (_else9173391749_ + _hd91752_ + _current-ctx91705_)))) + (let _lp91709_ ((_rest91711_ _rbody91703_) + (_body91712_ '())) + (let* ((_rest9171391721_ _rest91711_) + (_else9171591731_ (lambda () (if (##structure-instance-of? - _current-ctx91723_ + _current-ctx91705_ 'gx#module-context::t) (##unchecked-structure-set! - _current-ctx91723_ + _current-ctx91705_ (foldl1 cons (##unchecked-structure-ref - _current-ctx91723_ + _current-ctx91705_ '8 gx#module-context::t '#f) - _body91730_) + _body91712_) '8 gx#module-context::t '#f) '#!void) (hash-for-each - (lambda (_ctx91747_ _g94593_) - (gx#eval-module _ctx91747_)) - _deps91724_) - _body91730_)) - (_K9173591758_ - (lambda (_rest91752_ _hd91753_) + (lambda (_ctx91729_ _g94575_) + (gx#eval-module _ctx91729_)) + _deps91706_) + _body91712_)) + (_K9171791740_ + (lambda (_rest91734_ _hd91735_) (if (##structure-direct-instance-of? - _hd91753_ + _hd91735_ 'gx#module-import::t) (begin - (_bind!91725_ _hd91753_) + (_bind!91707_ _hd91735_) (if (and (fxpositive? (##unchecked-structure-ref - _hd91753_ + _hd91735_ '3 gx#module-import::t '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _hd91753_ + _hd91735_ '1 gx#module-import::t '#f) @@ -3050,10 +3050,10 @@ gx#module-export::t '#f))) (hash-put! - _deps91724_ + _deps91706_ (##unchecked-structure-ref (##unchecked-structure-ref - _hd91753_ + _hd91735_ '1 gx#module-import::t '#f) @@ -3063,155 +3063,155 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _hd91753_ + _hd91735_ 'gx#import-set::t) (begin (for-each - _bind!91725_ + _bind!91707_ (##unchecked-structure-ref - _hd91753_ + _hd91735_ '3 gx#import-set::t '#f)) (if (fxpositive? (##unchecked-structure-ref - _hd91753_ + _hd91735_ '2 gx#import-set::t '#f)) (hash-put! - _deps91724_ + _deps91706_ (##unchecked-structure-ref - _hd91753_ + _hd91735_ '1 gx#import-set::t '#f) '#t) '#!void)) - (let ((_$e91755_ + (let ((_$e91737_ (##structure-instance-of? - _hd91753_ + _hd91735_ 'gx#module-context::t))) - (if _$e91755_ - _$e91755_ + (if _$e91737_ + _$e91737_ (gx#raise-syntax-error '#f '"Unexpected import" - _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_ + _stx91681_ + _hd91735_))))) + (_lp91709_ + _rest91734_ + (cons _hd91735_ _body91712_))))) + (if (##pair? _rest9171391721_) + (let ((_hd9171891743_ (##car _rest9171391721_)) + (_tl9171991745_ (##cdr _rest9171391721_))) + (let* ((_hd91748_ _hd9171891743_) + (_rest91750_ _tl9171991745_)) + (_K9171791740_ _rest91750_ _hd91748_))) + (_else9171591731_))))))) + (_expanded-import?91691_ + (lambda (_e91695_) + (let ((_$e91697_ (##structure-direct-instance-of? - _e91713_ + _e91695_ 'gx#import-set::t))) - (if _$e91715_ - _$e91715_ - (let ((_$e91718_ + (if _$e91697_ + _$e91697_ + (let ((_$e91700_ (##structure-direct-instance-of? - _e91713_ + _e91695_ 'gx#module-import::t))) - (if _$e91718_ - _$e91718_ + (if _$e91700_ + _$e91700_ (##structure-instance-of? - _e91713_ + _e91695_ 'gx#module-context::t)))))))) - (let ((_rbody91711_ + (let ((_rbody91693_ (gx#core-expand-import/export - _stx91699_ - _expanded-import?91709_ + _stx91681_ + _expanded-import?91691_ 'apply-import-expander gx#current-import-expander-phi - _expand191702_))) - (if _internal-expand?91700_ - (reverse _rbody91711_) + _expand191684_))) + (if _internal-expand?91682_ + (reverse _rbody91693_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_import!91708_ _rbody91711_)) - (gx#stx-source _stx91699_))))))) + (gx#core-cons '%#import (_import!91690_ _rbody91693_)) + (gx#stx-source _stx91681_))))))) (define gx#core-expand-import%__0 - (lambda (_stx92025_) - (let ((_internal-expand?92027_ '#f)) - (gx#core-expand-import%__% _stx92025_ _internal-expand?92027_)))) + (lambda (_stx92007_) + (let ((_internal-expand?92009_ '#f)) + (gx#core-expand-import%__% _stx92007_ _internal-expand?92009_)))) (define gx#core-expand-import% - (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_) + (lambda _g94577_ + (let ((_g94576_ (##length _g94577_))) + (cond ((##fx= _g94576_ 1) + (apply (lambda (_stx92007_) + (gx#core-expand-import%__0 _stx92007_)) + _g94577_)) + ((##fx= _g94576_ 2) + (apply (lambda (_stx92011_ _internal-expand?92012_) (gx#core-expand-import%__% - _stx92029_ - _internal-expand?92030_)) - _g94595_)) + _stx92011_ + _internal-expand?92012_)) + _g94577_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g94595_)))))) + _g94577_)))))) (define gx#core-import-nested-module - (lambda (_spath91626_ _where91627_) - (let* ((_e9162891635_ _spath91626_) - (_E9163091639_ + (lambda (_spath91608_ _where91609_) + (let* ((_e9161091617_ _spath91608_) + (_E9161291621_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9162891635_))) - (_E9162991694_ + _e9161091617_))) + (_E9161191676_ (lambda () - (if (gx#stx-pair? _e9162891635_) - (let ((_e9163191643_ (gx#syntax-e _e9162891635_))) - (let ((_hd9163291646_ (##car _e9163191643_)) - (_tl9163391648_ (##cdr _e9163191643_))) - (let* ((_origin91651_ _hd9163291646_) - (_sub91653_ _tl9163391648_)) + (if (gx#stx-pair? _e9161091617_) + (let ((_e9161391625_ (gx#syntax-e _e9161091617_))) + (let ((_hd9161491628_ (##car _e9161391625_)) + (_tl9161591630_ (##cdr _e9161391625_))) + (let* ((_origin91633_ _hd9161491628_) + (_sub91635_ _tl9161591630_)) (if '#t - (let ((_origin-ctx91655_ - (if (gx#stx-false? _origin91651_) + (let ((_origin-ctx91637_ + (if (gx#stx-false? _origin91633_) (gx#current-expander-context) (gx#import-module__0 - _origin91651_)))) - (let _lp91657_ ((_rest91659_ _sub91653_) - (_ctx91660_ - _origin-ctx91655_)) - (let* ((_e9166191668_ _rest91659_) - (_E9166391672_ - (lambda () _ctx91660_)) - (_E9166291690_ + _origin91633_)))) + (let _lp91639_ ((_rest91641_ _sub91635_) + (_ctx91642_ + _origin-ctx91637_)) + (let* ((_e9164391650_ _rest91641_) + (_E9164591654_ + (lambda () _ctx91642_)) + (_E9164491672_ (lambda () - (if (gx#stx-pair? _e9166191668_) - (let ((_e9166491676_ + (if (gx#stx-pair? _e9164391650_) + (let ((_e9164691658_ (gx#syntax-e - _e9166191668_))) - (let ((_hd9166591679_ - (##car _e9166491676_)) - (_tl9166691681_ - (##cdr _e9166491676_))) - (let* ((_id91684_ - _hd9166591679_) - (_rest91686_ - _tl9166691681_)) + _e9164391650_))) + (let ((_hd9164791661_ + (##car _e9164691658_)) + (_tl9164891663_ + (##cdr _e9164691658_))) + (let* ((_id91666_ + _hd9164791661_) + (_rest91668_ + _tl9164891663_)) (if '#t - (let ((_bind91688_ + (let ((_bind91670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#resolve-identifier__% _id91684_ '0 _ctx91660_))) + (gx#resolve-identifier__% _id91666_ '0 _ctx91642_))) (if (and (##structure-direct-instance-of? - _bind91688_ + _bind91670_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind91688_ + _bind91670_ '4 gx#syntax-binding::t '#f) @@ -3220,821 +3220,821 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _where91627_ - _spath91626_ - _id91684_)) - (_lp91657_ - _rest91686_ + _where91609_ + _spath91608_ + _id91666_)) + (_lp91639_ + _rest91668_ (##unchecked-structure-ref - _bind91688_ + _bind91670_ '4 gx#syntax-binding::t '#f))) - (_E9166391672_))))) + (_E9164591654_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9166391672_))))) - (_E9166291690_)))) - (_E9163091639_))))) - (_E9163091639_))))) - (_E9162991694_)))) + (_E9164591654_))))) + (_E9164491672_)))) + (_E9161291621_))))) + (_E9161291621_))))) + (_E9161191676_)))) (define gx#core-expand-import-source - (lambda (_hd91624_) + (lambda (_hd91606_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _hd91624_ '())) + (cons 'import-internal% (cons _hd91606_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_stx91132_ _internal-expand?91133_) - (letrec* ((_make-export__9452494525_ - (lambda (_bind91572_ _phi91573_ _ctx91574_ _name91575_) - (let* ((_key91577_ + (lambda (_stx91114_ _internal-expand?91115_) + (letrec* ((_make-export__9450694507_ + (lambda (_bind91554_ _phi91555_ _ctx91556_ _name91557_) + (let* ((_key91559_ (##unchecked-structure-ref - _bind91572_ + _bind91554_ '2 gx#binding::t '#f)) - (_export-key91579_ - (if _name91575_ - (gx#core-identifier-key _name91575_) - _key91577_))) + (_export-key91561_ + (if _name91557_ + (gx#core-identifier-key _name91557_) + _key91559_))) (##structure gx#module-export::t - _ctx91574_ - _key91577_ - _phi91573_ - _export-key91579_ - (let ((_$e91582_ + _ctx91556_ + _key91559_ + _phi91555_ + _export-key91561_ + (let ((_$e91564_ (##structure-instance-of? - _bind91572_ + _bind91554_ 'gx#extern-binding::t))) - (if _$e91582_ - _$e91582_ + (if _$e91564_ + _$e91564_ (##structure-direct-instance-of? - _bind91572_ + _bind91554_ 'gx#import-binding::t))))))) - (_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_)) + (_make-export__0__9450894511_ + (lambda (_bind91570_) + (let* ((_phi91572_ (gx#current-export-expander-phi)) + (_ctx91574_ (gx#current-expander-context)) + (_name91576_ '#f)) + (_make-export__9450694507_ + _bind91570_ + _phi91572_ + _ctx91574_ + _name91576_)))) + (_make-export__1__9450994512_ + (lambda (_bind91578_ _phi91579_) + (let* ((_ctx91581_ (gx#current-expander-context)) + (_name91583_ '#f)) + (_make-export__9450694507_ + _bind91578_ + _phi91579_ + _ctx91581_ + _name91583_)))) + (_make-export__2__9451094513_ + (lambda (_bind91585_ _phi91586_ _ctx91587_) + (let ((_name91589_ '#f)) + (_make-export__9450694507_ + _bind91585_ + _phi91586_ + _ctx91587_ + _name91589_)))) + (_make-export91117_ + (lambda _g94579_ + (let ((_g94578_ (##length _g94579_))) + (cond ((##fx= _g94578_ 1) + (apply (lambda (_bind91570_) + (_make-export__0__9450894511_ + _bind91570_)) + _g94579_)) + ((##fx= _g94578_ 2) + (apply (lambda (_bind91578_ _phi91579_) + (_make-export__1__9450994512_ + _bind91578_ + _phi91579_)) + _g94579_)) + ((##fx= _g94578_ 3) + (apply (lambda (_bind91585_ + _phi91586_ + _ctx91587_) + (_make-export__2__9451094513_ + _bind91585_ + _phi91586_ + _ctx91587_)) + _g94579_)) + ((##fx= _g94578_ 4) + (apply (lambda (_bind91591_ + _phi91592_ + _ctx91593_ + _name91594_) + (_make-export__9450694507_ + _bind91591_ + _phi91592_ + _ctx91593_ + _name91594_)) + _g94579_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g94597_)))))) - (_expand191136_ - (lambda (_hd91285_ _K91286_ _rest91287_ _r91288_) - (let* ((_e9128991321_ _hd91285_) - (_E9131691325_ + _g94579_)))))) + (_expand191118_ + (lambda (_hd91267_ _K91268_ _rest91269_ _r91270_) + (let* ((_e9127191303_ _hd91267_) + (_E9129891307_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _stx91132_ - _hd91285_))) - (_E9130691404_ + _stx91114_ + _hd91267_))) + (_E9128891386_ (lambda () - (if (gx#stx-pair? _e9128991321_) - (let ((_e9131791329_ - (gx#syntax-e _e9128991321_))) - (let ((_hd9131891332_ - (##car _e9131791329_)) - (_tl9131991334_ - (##cdr _e9131791329_))) - (if (eq? (gx#stx-e _hd9131891332_) + (if (gx#stx-pair? _e9127191303_) + (let ((_e9129991311_ + (gx#syntax-e _e9127191303_))) + (let ((_hd9130091314_ + (##car _e9129991311_)) + (_tl9130191316_ + (##cdr _e9129991311_))) + (if (eq? (gx#stx-e _hd9130091314_) 'import:) - (let ((_in91337_ _tl9131991334_)) - (if (gx#stx-list? _in91337_) - (let _lp91339_ ((_in-rest91341_ + (let ((_in91319_ _tl9130191316_)) + (if (gx#stx-list? _in91319_) + (let _lp91321_ ((_in-rest91323_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in91337_) - (_r91342_ _r91288_)) + _in91319_) + (_r91324_ _r91270_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e9134391350_ - _in-rest91341_) - (_E9134591354_ + (let* ((_e9132591332_ + _in-rest91323_) + (_E9132791336_ (lambda () - (_K91286_ - _rest91287_ - _r91342_))) - (_E9134491400_ + (_K91268_ + _rest91269_ + _r91324_))) + (_E9132691382_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e9134391350_) - (let ((_e9134691358_ (gx#syntax-e _e9134391350_))) - (let ((_hd9134791361_ (##car _e9134691358_)) - (_tl9134891363_ (##cdr _e9134691358_))) - (let* ((_hd91366_ _hd9134791361_) - (_in-rest91368_ _tl9134891363_)) + _e9132591332_) + (let ((_e9132891340_ (gx#syntax-e _e9132591332_))) + (let ((_hd9132991343_ (##car _e9132891340_)) + (_tl9133091345_ (##cdr _e9132891340_))) + (let* ((_hd91348_ _hd9132991343_) + (_in-rest91350_ _tl9133091345_)) (if '#t - (let ((_src91398_ - (if (gx#core-bound-module? _hd91366_) - (gx#syntax-local-e__0 _hd91366_) + (let ((_src91380_ + (if (gx#core-bound-module? _hd91348_) + (gx#syntax-local-e__0 _hd91348_) (if (gx#core-library-module-path? - _hd91366_) + _hd91348_) (gx#import-module__0 (gx#core-resolve-library-module-path - _hd91366_)) + _hd91348_)) (if (gx#core-library-relative-module-path? - _hd91366_) + _hd91348_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd91366_)) + _hd91348_)) (if (gx#stx-string? - _hd91366_) + _hd91348_) (gx#import-module__0 (gx#core-resolve-module-path__% - _hd91366_ + _hd91348_ (gx#stx-source - _stx91132_))) - (let* ((_e9136991376_ + _stx91114_))) + (let* ((_e9135191358_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd91366_) - (_E9137191380_ + _hd91348_) + (_E9135391362_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _stx91132_ - _hd91366_))) - (_E9137091394_ + _stx91114_ + _hd91348_))) + (_E9135291376_ (lambda () - (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 (gx#stx-pair? _e9135191358_) + (let ((_e9135491366_ + (gx#syntax-e _e9135191358_))) + (let ((_hd9135591369_ (##car _e9135491366_)) + (_tl9135691371_ (##cdr _e9135491366_))) + (if (eq? (gx#stx-e _hd9135591369_) 'in:) + (let ((_spath91374_ _tl9135691371_)) (if '#t (gx#core-import-nested-module - _spath91392_ - _stx91132_) - (_E9137191380_))) - (_E9137191380_)))) - (_E9137191380_))))) - (_E9137091394_)))))))) + _spath91374_ + _stx91114_) + (_E9135391362_))) + (_E9135391362_)))) + (_E9135391362_))))) + (_E9135291376_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp91339_ - _in-rest91368_ - (_export-imports91137_ - _src91398_ - _r91342_))) - (_E9134591354_))))) - (_E9134591354_))))) + (_lp91321_ + _in-rest91350_ + (_export-imports91119_ + _src91380_ + _r91324_))) + (_E9132791336_))))) + (_E9132791336_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9134491400_))) - (_E9131691325_))) - (_E9131691325_)))) - (_E9131691325_)))) - (_E9129391443_ + (_E9132691382_))) + (_E9129891307_))) + (_E9129891307_)))) + (_E9129891307_)))) + (_E9127591425_ (lambda () - (if (gx#stx-pair? _e9128991321_) - (let ((_e9130791408_ - (gx#syntax-e _e9128991321_))) - (let ((_hd9130891411_ - (##car _e9130791408_)) - (_tl9130991413_ - (##cdr _e9130791408_))) - (if (eq? (gx#stx-e _hd9130891411_) + (if (gx#stx-pair? _e9127191303_) + (let ((_e9128991390_ + (gx#syntax-e _e9127191303_))) + (let ((_hd9129091393_ + (##car _e9128991390_)) + (_tl9129191395_ + (##cdr _e9128991390_))) + (if (eq? (gx#stx-e _hd9129091393_) 'rename:) - (if (gx#stx-pair? _tl9130991413_) - (let ((_e9131091416_ + (if (gx#stx-pair? _tl9129191395_) + (let ((_e9129291398_ (gx#syntax-e - _tl9130991413_))) - (let ((_hd9131191419_ - (##car _e9131091416_)) - (_tl9131291421_ - (##cdr _e9131091416_))) - (let ((_id91424_ - _hd9131191419_)) + _tl9129191395_))) + (let ((_hd9129391401_ + (##car _e9129291398_)) + (_tl9129491403_ + (##cdr _e9129291398_))) + (let ((_id91406_ + _hd9129391401_)) (if (gx#stx-pair? - _tl9131291421_) - (let ((_e9131391426_ + _tl9129491403_) + (let ((_e9129591408_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl9131291421_))) - (let ((_hd9131491429_ (##car _e9131391426_)) - (_tl9131591431_ (##cdr _e9131391426_))) - (let ((_name91434_ _hd9131491429_)) - (if (gx#stx-null? _tl9131591431_) + _tl9129491403_))) + (let ((_hd9129691411_ (##car _e9129591408_)) + (_tl9129791413_ (##cdr _e9129591408_))) + (let ((_name91416_ _hd9129691411_)) + (if (gx#stx-null? _tl9129791413_) (if '#t - (let* ((_phi91436_ + (let* ((_phi91418_ (gx#current-export-expander-phi)) - (_$e91438_ + (_$e91420_ (gx#core-resolve-identifier__1 - _id91424_ - _phi91436_))) - (if _$e91438_ - ((lambda (_bind91441_) - (_K91286_ - _rest91287_ - (cons (_make-export__9452494525_ - _bind91441_ - _phi91436_ + _id91406_ + _phi91418_))) + (if _$e91420_ + ((lambda (_bind91423_) + (_K91268_ + _rest91269_ + (cons (_make-export__9450694507_ + _bind91423_ + _phi91418_ (gx#current-expander-context) - _name91434_) - _r91288_))) - _$e91438_) + _name91416_) + _r91270_))) + _$e91420_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx91132_ - _hd91285_ - _id91424_))) - (_E9130691404_)) - (_E9130691404_))))) - (_E9130691404_))))) + _stx91114_ + _hd91267_ + _id91406_))) + (_E9128891386_)) + (_E9128891386_))))) + (_E9128891386_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9130691404_)) - (_E9130691404_)))) - (_E9130691404_)))) - (_E9129291492_ + (_E9128891386_)) + (_E9128891386_)))) + (_E9128891386_)))) + (_E9127491474_ (lambda () - (if (gx#stx-pair? _e9128991321_) - (let ((_e9129491447_ - (gx#syntax-e _e9128991321_))) - (let ((_hd9129591450_ - (##car _e9129491447_)) - (_tl9129691452_ - (##cdr _e9129491447_))) - (if (eq? (gx#stx-e _hd9129591450_) + (if (gx#stx-pair? _e9127191303_) + (let ((_e9127691429_ + (gx#syntax-e _e9127191303_))) + (let ((_hd9127791432_ + (##car _e9127691429_)) + (_tl9127891434_ + (##cdr _e9127691429_))) + (if (eq? (gx#stx-e _hd9127791432_) 'spec:) - (if (gx#stx-pair? _tl9129691452_) - (let ((_e9129791455_ + (if (gx#stx-pair? _tl9127891434_) + (let ((_e9127991437_ (gx#syntax-e - _tl9129691452_))) - (let ((_hd9129891458_ - (##car _e9129791455_)) - (_tl9129991460_ - (##cdr _e9129791455_))) - (let ((_phi91463_ - _hd9129891458_)) + _tl9127891434_))) + (let ((_hd9128091440_ + (##car _e9127991437_)) + (_tl9128191442_ + (##cdr _e9127991437_))) + (let ((_phi91445_ + _hd9128091440_)) (if (gx#stx-pair? - _tl9129991460_) - (let ((_e9130091465_ + _tl9128191442_) + (let ((_e9128291447_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _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_ + _tl9128191442_))) + (let ((_hd9128391450_ (##car _e9128291447_)) + (_tl9128491452_ (##cdr _e9128291447_))) + (let ((_id91455_ _hd9128391450_)) + (if (gx#stx-pair? _tl9128491452_) + (let ((_e9128591457_ (gx#syntax-e _tl9128491452_))) + (let ((_hd9128691460_ (##car _e9128591457_)) + (_tl9128791462_ (##cdr _e9128591457_))) + (let ((_name91465_ _hd9128691460_)) + (if (gx#stx-null? _tl9128791462_) + (if (and (gx#stx-fixnum? _phi91445_) + (gx#identifier? _id91455_) + (gx#identifier? _name91465_)) + (let* ((_phi91467_ + (gx#stx-e _phi91445_)) + (_$e91469_ (gx#core-resolve-identifier__1 - _id91473_ - _phi91485_))) - (if _$e91487_ - ((lambda (_bind91490_) - (_K91286_ - _rest91287_ - (cons (_make-export__9452494525_ - _bind91490_ - _phi91485_ + _id91455_ + _phi91467_))) + (if _$e91469_ + ((lambda (_bind91472_) + (_K91268_ + _rest91269_ + (cons (_make-export__9450694507_ + _bind91472_ + _phi91467_ (gx#current-expander-context) - _name91483_) - _r91288_))) - _$e91487_) + _name91465_) + _r91270_))) + _$e91469_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx91132_ - _hd91285_ - _id91473_))) - (_E9129391443_)) - (_E9129391443_))))) - (_E9129391443_))))) - (_E9129391443_))))) + _stx91114_ + _hd91267_ + _id91455_))) + (_E9127591425_)) + (_E9127591425_))))) + (_E9127591425_))))) + (_E9127591425_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9129391443_)) - (_E9129391443_)))) - (_E9129391443_)))) - (_E9129191503_ + (_E9127591425_)) + (_E9127591425_)))) + (_E9127591425_)))) + (_E9127391485_ (lambda () - (let ((_id91496_ _e9128991321_)) - (if (gx#identifier? _id91496_) - (let ((_$e91498_ + (let ((_id91478_ _e9127191303_)) + (if (gx#identifier? _id91478_) + (let ((_$e91480_ (gx#core-resolve-identifier__1 - _id91496_ + _id91478_ (gx#current-export-expander-phi)))) - (if _$e91498_ - ((lambda (_bind91501_) - (_K91286_ - _rest91287_ - (cons (_make-export__0__9452694529_ - _bind91501_) - _r91288_))) - _$e91498_) + (if _$e91480_ + ((lambda (_bind91483_) + (_K91268_ + _rest91269_ + (cons (_make-export__0__9450894511_ + _bind91483_) + _r91270_))) + _$e91480_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx91132_ - _hd91285_))) - (_E9129291492_))))) - (_E9129091567_ + _stx91114_ + _hd91267_))) + (_E9127491474_))))) + (_E9127291549_ (lambda () - (if (eq? (gx#stx-e _e9128991321_) '#t) + (if (eq? (gx#stx-e _e9127191303_) '#t) (if '#t - (let* ((_current-ctx91507_ + (let* ((_current-ctx91489_ (gx#current-expander-context)) - (_current-phi91509_ + (_current-phi91491_ (gx#current-export-expander-phi)) - (_phi-ctx91511_ + (_phi-ctx91493_ (gx#core-context-shift - _current-ctx91507_ - _current-phi91509_)) - (_phi-bind91513_ + _current-ctx91489_ + _current-phi91491_)) + (_phi-bind91495_ (hash->list (##unchecked-structure-ref - _phi-ctx91511_ + _phi-ctx91493_ '2 gx#expander-context::t '#f)))) - (let _lp91516_ ((_bind-rest91518_ - _phi-bind91513_) - (_set91519_ '())) - (let* ((_bind-rest9152091530_ - _bind-rest91518_) - (_else9152291538_ + (let _lp91498_ ((_bind-rest91500_ + _phi-bind91495_) + (_set91501_ '())) + (let* ((_bind-rest9150291512_ + _bind-rest91500_) + (_else9150491520_ (lambda () - (_K91286_ - _rest91287_ + (_K91268_ + _rest91269_ (cons (##structure gx#export-set::t '#f - _current-phi91509_ - _set91519_) - _r91288_)))) - (_K9152491548_ - (lambda (_bind-rest91541_ - _bind91542_ - _key91543_) + _current-phi91491_ + _set91501_) + _r91270_)))) + (_K9150691530_ + (lambda (_bind-rest91523_ + _bind91524_ + _key91525_) (if (or (##structure-direct-instance-of? - _bind91542_ + _bind91524_ 'gx#import-binding::t) (gx#private-feature-binding? - _bind91542_)) - (_lp91516_ - _bind-rest91541_ - _set91519_) - (_lp91516_ - _bind-rest91541_ - (cons (_make-export__2__9452894531_ + _bind91524_)) + (_lp91498_ + _bind-rest91523_ + _set91501_) + (_lp91498_ + _bind-rest91523_ + (cons (_make-export__2__9451094513_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind91542_ - _current-phi91509_ - _current-ctx91507_) - _set91519_)))))) + _bind91524_ + _current-phi91491_ + _current-ctx91489_) + _set91501_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (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_ + (if (##pair? _bind-rest9150291512_) + (let ((_hd9150791533_ + (##car _bind-rest9150291512_)) + (_tl9150891535_ + (##cdr _bind-rest9150291512_))) + (if (##pair? _hd9150791533_) + (let ((_hd9150991538_ + (##car _hd9150791533_)) + (_tl9151091540_ + (##cdr _hd9150791533_))) + (let* ((_key91543_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd9152791556_) - (_bind91563_ _tl9152891558_) - (_bind-rest91565_ _tl9152691553_)) - (_K9152491548_ _bind-rest91565_ _bind91563_ _key91561_))) - (_else9152291538_))) + _hd9150991538_) + (_bind91545_ _tl9151091540_) + (_bind-rest91547_ _tl9150891535_)) + (_K9150691530_ _bind-rest91547_ _bind91545_ _key91543_))) + (_else9150491520_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else9152291538_))))) - (_E9129191503_)) - (_E9129191503_))))) - (_E9129091567_)))) - (_export-imports91137_ - (lambda (_src91161_ _r91162_) - (letrec* ((_current-ctx91164_ + (_else9150491520_))))) + (_E9127391485_)) + (_E9127391485_))))) + (_E9127291549_)))) + (_export-imports91119_ + (lambda (_src91143_ _r91144_) + (letrec* ((_current-ctx91146_ (gx#current-expander-context)) - (_current-phi91165_ + (_current-phi91147_ (gx#current-export-expander-phi)) - (_import->export91166_ - (lambda (_in91247_) - (let* ((_in9124891256_ _in91247_) - (_E9125091260_ + (_import->export91148_ + (lambda (_in91229_) + (let* ((_in9123091238_ _in91229_) + (_E9123291242_ (lambda () (error '"No clause matching" - _in9124891256_))) - (_K9125191267_ - (lambda (_phi91263_ - _key91264_ - _out91265_) + _in9123091238_))) + (_K9123391249_ + (lambda (_phi91245_ + _key91246_ + _out91247_) (##structure gx#module-export::t - _current-ctx91164_ - _key91264_ - _phi91263_ - _key91264_ + _current-ctx91146_ + _key91246_ + _phi91245_ + _key91246_ '#t)))) (if (##structure-direct-instance-of? - _in9124891256_ + _in9123091238_ 'gx#module-import::t) - (let* ((_e9125291270_ + (let* ((_e9123491252_ (##unchecked-structure-ref - _in9124891256_ + _in9123091238_ '1 gx#module-import::t '#f)) - (_out91273_ _e9125291270_) - (_e9125391275_ + (_out91255_ _e9123491252_) + (_e9123591257_ (##unchecked-structure-ref - _in9124891256_ + _in9123091238_ '2 gx#module-import::t '#f)) - (_key91278_ _e9125391275_) - (_e9125491280_ + (_key91260_ _e9123591257_) + (_e9123691262_ (##unchecked-structure-ref - _in9124891256_ + _in9123091238_ '3 gx#module-import::t '#f)) - (_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_ + (_phi91265_ _e9123691262_)) + (_K9123391249_ + _phi91265_ + _key91260_ + _out91255_)) + (_E9123291242_))))) + (_fold-e91149_ + (lambda (_in91151_ _r91152_) + (let* ((_in9115391167_ _in91151_) + (_else9115691175_ + (lambda () _r91152_))) + (let ((_K9116291211_ + (lambda (_phi91207_ + _key91208_ + _out91209_) + (if (and (fx= _phi91207_ + _current-phi91147_) + (eq? _src91143_ (##unchecked-structure-ref - _out91227_ + _out91209_ '1 gx#module-export::t '#f))) - (cons (_import->export91166_ - _in91169_) - _r91170_) - _r91170_))) - (_K9117691204_ - (lambda (_imports91197_ - _phi91198_ - _ctx91199_) - (if (and (fx= _phi91198_ - _current-phi91165_) - (eq? _src91161_ - _ctx91199_)) - (foldl1 (lambda (_in91201_ + (cons (_import->export91148_ + _in91151_) + _r91152_) + _r91152_))) + (_K9115891186_ + (lambda (_imports91179_ + _phi91180_ + _ctx91181_) + (if (and (fx= _phi91180_ + _current-phi91147_) + (eq? _src91143_ + _ctx91181_)) + (foldl1 (lambda (_in91183_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r91202_) - (cons (_import->export91166_ _in91201_) _r91202_)) - _r91170_ - _imports91197_) + _r91184_) + (cons (_import->export91148_ _in91183_) _r91184_)) + _r91152_ + _imports91179_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r91170_)))) - (let ((_try-match9117391222_ + _r91152_)))) + (let ((_try-match9115591204_ (lambda () (if (##structure-direct-instance-of? - _in9117191185_ + _in9115391167_ 'gx#import-set::t) - (let* ((_e9117791207_ + (let* ((_e9115991189_ (##unchecked-structure-ref - _in9117191185_ + _in9115391167_ '1 gx#import-set::t '#f)) - (_e9117891212_ + (_e9116091194_ (##unchecked-structure-ref - _in9117191185_ + _in9115391167_ '2 gx#import-set::t '#f)) - (_e9117991217_ + (_e9116191199_ (##unchecked-structure-ref - _in9117191185_ + _in9115391167_ '3 gx#import-set::t '#f))) - (let ((_ctx91210_ - _e9117791207_) - (_phi91215_ - _e9117891212_) - (_imports91220_ - _e9117991217_)) - (_K9117691204_ - _imports91220_ - _phi91215_ - _ctx91210_))) - (_else9117491193_))))) + (let ((_ctx91192_ + _e9115991189_) + (_phi91197_ + _e9116091194_) + (_imports91202_ + _e9116191199_)) + (_K9115891186_ + _imports91202_ + _phi91197_ + _ctx91192_))) + (_else9115691175_))))) (if (##structure-direct-instance-of? - _in9117191185_ + _in9115391167_ 'gx#module-import::t) - (let* ((_e9118191232_ + (let* ((_e9116391214_ (##unchecked-structure-ref - _in9117191185_ + _in9115391167_ '1 gx#module-import::t '#f)) - (_e9118291237_ + (_e9116491219_ (##unchecked-structure-ref - _in9117191185_ + _in9115391167_ '2 gx#module-import::t '#f)) - (_e9118391242_ + (_e9116591224_ (##unchecked-structure-ref - _in9117191185_ + _in9115391167_ '3 gx#module-import::t '#f))) - (let ((_out91235_ _e9118191232_) - (_key91240_ _e9118291237_) - (_phi91245_ _e9118391242_)) - (_K9118091229_ - _phi91245_ - _key91240_ - _out91235_))) - (_try-match9117391222_)))))))) + (let ((_out91217_ _e9116391214_) + (_key91222_ _e9116491219_) + (_phi91227_ _e9116591224_)) + (_K9116291211_ + _phi91227_ + _key91222_ + _out91217_))) + (_try-match9115591204_)))))))) (cons (##structure gx#export-set::t - _src91161_ - _current-phi91165_ - (foldl1 _fold-e91167_ + _src91143_ + _current-phi91147_ + (foldl1 _fold-e91149_ '() (##unchecked-structure-ref - _current-ctx91164_ + _current-ctx91146_ '8 gx#module-context::t '#f))) - _r91162_)))) - (_export!91138_ - (lambda (_rbody91151_) - (letrec* ((_current-ctx91153_ + _r91144_)))) + (_export!91120_ + (lambda (_rbody91133_) + (letrec* ((_current-ctx91135_ (gx#current-expander-context)) - (_fold-e91154_ - (lambda (_out91158_ _r91159_) + (_fold-e91136_ + (lambda (_out91140_ _r91141_) (if (##structure-direct-instance-of? - _out91158_ + _out91140_ 'gx#module-export::t) - (cons _out91158_ _r91159_) + (cons _out91140_ _r91141_) (if (##structure-direct-instance-of? - _out91158_ + _out91140_ 'gx#export-set::t) (foldl1 cons - _r91159_ + _r91141_ (##unchecked-structure-ref - _out91158_ + _out91140_ '3 gx#export-set::t '#f)) - _r91159_))))) - (let ((_body91156_ (reverse _rbody91151_))) + _r91141_))))) + (let ((_body91138_ (reverse _rbody91133_))) (##unchecked-structure-set! - _current-ctx91153_ - (foldl1 _fold-e91154_ + _current-ctx91135_ + (foldl1 _fold-e91136_ (##unchecked-structure-ref - _current-ctx91153_ + _current-ctx91135_ '9 gx#module-context::t '#f) - _body91156_) + _body91138_) '9 gx#module-context::t '#f) - _body91156_)))) - (_expanded-export?91139_ - (lambda (_e91146_) - (let ((_$e91148_ + _body91138_)))) + (_expanded-export?91121_ + (lambda (_e91128_) + (let ((_$e91130_ (##structure-direct-instance-of? - _e91146_ + _e91128_ 'gx#module-export::t))) - (if _$e91148_ - _$e91148_ + (if _$e91130_ + _$e91130_ (##structure-direct-instance-of? - _e91146_ + _e91128_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _internal-expand?91133_) - (let ((_rbody91144_ + _internal-expand?91115_) + (let ((_rbody91126_ (gx#core-expand-import/export - _stx91132_ - _expanded-export?91139_ + _stx91114_ + _expanded-export?91121_ 'apply-export-expander gx#current-export-expander-phi - _expand191136_))) - (if _internal-expand?91133_ - (reverse _rbody91144_) + _expand191118_))) + (if _internal-expand?91115_ + (reverse _rbody91126_) (gx#core-quote-syntax__1 - (gx#core-cons '%#export (_export!91138_ _rbody91144_)) - (gx#stx-source _stx91132_)))) + (gx#core-cons '%#export (_export!91120_ _rbody91126_)) + (gx#stx-source _stx91114_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _stx91132_)) + (gx#stx-source _stx91114_)) (gx#raise-syntax-error '#f '"Illegal context" - _stx91132_)))))) + _stx91114_)))))) (define gx#core-expand-export%__0 - (lambda (_stx91617_) - (let ((_internal-expand?91619_ '#f)) - (gx#core-expand-export%__% _stx91617_ _internal-expand?91619_)))) + (lambda (_stx91599_) + (let ((_internal-expand?91601_ '#f)) + (gx#core-expand-export%__% _stx91599_ _internal-expand?91601_)))) (define gx#core-expand-export% - (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_) + (lambda _g94581_ + (let ((_g94580_ (##length _g94581_))) + (cond ((##fx= _g94580_ 1) + (apply (lambda (_stx91599_) + (gx#core-expand-export%__0 _stx91599_)) + _g94581_)) + ((##fx= _g94580_ 2) + (apply (lambda (_stx91603_ _internal-expand?91604_) (gx#core-expand-export%__% - _stx91621_ - _internal-expand?91622_)) - _g94599_)) + _stx91603_ + _internal-expand?91604_)) + _g94581_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g94599_)))))) + _g94581_)))))) (define gx#core-expand-export-source - (lambda (_hd91129_) + (lambda (_hd91111_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _hd91129_ '())) + (cons 'export-macro% (cons _hd91111_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_stx91099_) - (let* ((_e9110091107_ _stx91099_) - (_E9110291111_ + (lambda (_stx91081_) + (let* ((_e9108291089_ _stx91081_) + (_E9108491093_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9110091107_))) - (_E9110191125_ + _e9108291089_))) + (_E9108391107_ (lambda () - (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_) + (if (gx#stx-pair? _e9108291089_) + (let ((_e9108591097_ (gx#syntax-e _e9108291089_))) + (let ((_hd9108691100_ (##car _e9108591097_)) + (_tl9108791102_ (##cdr _e9108591097_))) + (let ((_body91105_ _tl9108791102_)) + (if (gx#identifier-list? _body91105_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _body91123_) + _body91105_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _body91123_)) - (gx#stx-source _stx91099_))) - (_E9110291111_))))) - (_E9110291111_))))) - (_E9110191125_)))) + _body91105_)) + (gx#stx-source _stx91081_))) + (_E9108491093_))))) + (_E9108491093_))))) + (_E9108391107_)))) (define gx#core-bind-feature!__% - (lambda (_id91065_ _private?91066_ _phi91067_ _ctx91068_) + (lambda (_id91047_ _private?91048_ _phi91049_ _ctx91050_) (gx#core-bind-syntax!__% - _id91065_ - ((if _private?91066_ + _id91047_ + ((if _private?91048_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _id91065_)) - _private?91066_ - _phi91067_ - _ctx91068_))) + (gx#stx-e _id91047_)) + _private?91048_ + _phi91049_ + _ctx91050_))) (define gx#core-bind-feature!__0 - (lambda (_id91073_) - (let* ((_private?91075_ '#f) - (_phi91077_ (gx#current-expander-phi)) - (_ctx91079_ (gx#current-expander-context))) + (lambda (_id91055_) + (let* ((_private?91057_ '#f) + (_phi91059_ (gx#current-expander-phi)) + (_ctx91061_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id91073_ - _private?91075_ - _phi91077_ - _ctx91079_)))) + _id91055_ + _private?91057_ + _phi91059_ + _ctx91061_)))) (define gx#core-bind-feature!__1 - (lambda (_id91081_ _private?91082_) - (let* ((_phi91084_ (gx#current-expander-phi)) - (_ctx91086_ (gx#current-expander-context))) + (lambda (_id91063_ _private?91064_) + (let* ((_phi91066_ (gx#current-expander-phi)) + (_ctx91068_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id91081_ - _private?91082_ - _phi91084_ - _ctx91086_)))) + _id91063_ + _private?91064_ + _phi91066_ + _ctx91068_)))) (define gx#core-bind-feature!__2 - (lambda (_id91088_ _private?91089_ _phi91090_) - (let ((_ctx91092_ (gx#current-expander-context))) + (lambda (_id91070_ _private?91071_ _phi91072_) + (let ((_ctx91074_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id91088_ - _private?91089_ - _phi91090_ - _ctx91092_)))) + _id91070_ + _private?91071_ + _phi91072_ + _ctx91074_)))) (define gx#core-bind-feature! - (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_) + (lambda _g94583_ + (let ((_g94582_ (##length _g94583_))) + (cond ((##fx= _g94582_ 1) + (apply (lambda (_id91055_) + (gx#core-bind-feature!__0 _id91055_)) + _g94583_)) + ((##fx= _g94582_ 2) + (apply (lambda (_id91063_ _private?91064_) + (gx#core-bind-feature!__1 _id91063_ _private?91064_)) + _g94583_)) + ((##fx= _g94582_ 3) + (apply (lambda (_id91070_ _private?91071_ _phi91072_) (gx#core-bind-feature!__2 - _id91088_ - _private?91089_ - _phi91090_)) - _g94601_)) - ((##fx= _g94600_ 4) - (apply (lambda (_id91094_ - _private?91095_ - _phi91096_ - _ctx91097_) + _id91070_ + _private?91071_ + _phi91072_)) + _g94583_)) + ((##fx= _g94582_ 4) + (apply (lambda (_id91076_ + _private?91077_ + _phi91078_ + _ctx91079_) (gx#core-bind-feature!__% - _id91094_ - _private?91095_ - _phi91096_ - _ctx91097_)) - _g94601_)) + _id91076_ + _private?91077_ + _phi91078_ + _ctx91079_)) + _g94583_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g94601_)))))))) + _g94583_)))))))) diff --git a/src/bootstrap/gerbil/expander/module~1.scm b/src/bootstrap/gerbil/expander/module~1.scm index 47df75582..8cc14eeed 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]#_g94603_| + (define |gx[1]#_g94585_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g94605_| + (define |gx[1]#_g94587_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g94607_| + (define |gx[1]#_g94589_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94614_| + (define |gx[1]#_g94596_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94617_| + (define |gx[1]#_g94599_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94620_| + (define |gx[1]#_g94602_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g94623_| + (define |gx[1]#_g94605_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g94630_| + (define |gx[1]#_g94612_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94633_| + (define |gx[1]#_g94615_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94636_| + (define |gx[1]#_g94618_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94639_| + (define |gx[1]#_g94621_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94646_| + (define |gx[1]#_g94628_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94649_| + (define |gx[1]#_g94631_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94652_| + (define |gx[1]#_g94634_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g94655_| + (define |gx[1]#_g94637_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g94662_| + (define |gx[1]#_g94644_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94665_| + (define |gx[1]#_g94647_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94668_| + (define |gx[1]#_g94650_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94671_| + (define |gx[1]#_g94653_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94673_| + (define |gx[1]#_g94655_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g94675_| + (define |gx[1]#_g94657_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g94677_| + (define |gx[1]#_g94659_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94685_| + (define |gx[1]#_g94667_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94688_| + (define |gx[1]#_g94670_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g94691_| + (define |gx[1]#_g94673_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94694_| + (define |gx[1]#_g94676_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g94697_| + (define |gx[1]#_g94679_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g94705_| + (define |gx[1]#_g94687_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94708_| + (define |gx[1]#_g94690_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94711_| + (define |gx[1]#_g94693_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94714_| + (define |gx[1]#_g94696_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94717_| + (define |gx[1]#_g94699_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94725_| + (define |gx[1]#_g94707_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94728_| + (define |gx[1]#_g94710_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g94731_| + (define |gx[1]#_g94713_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94734_| + (define |gx[1]#_g94716_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g94737_| + (define |gx[1]#_g94719_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g94745_| + (define |gx[1]#_g94727_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94748_| + (define |gx[1]#_g94730_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94751_| + (define |gx[1]#_g94733_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94754_| + (define |gx[1]#_g94736_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94757_| + (define |gx[1]#_g94739_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94759_| + (define |gx[1]#_g94741_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g94761_| + (define |gx[1]#_g94743_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g94763_| + (define |gx[1]#_g94745_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94769_| + (define |gx[1]#_g94751_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g94772_| + (define |gx[1]#_g94754_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94775_| + (define |gx[1]#_g94757_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g94781_| + (define |gx[1]#_g94763_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94784_| + (define |gx[1]#_g94766_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94787_| + (define |gx[1]#_g94769_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94793_| + (define |gx[1]#_g94775_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g94796_| + (define |gx[1]#_g94778_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94799_| + (define |gx[1]#_g94781_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g94805_| + (define |gx[1]#_g94787_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94808_| + (define |gx[1]#_g94790_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94811_| + (define |gx[1]#_g94793_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94813_| + (define |gx[1]#_g94795_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g94815_| + (define |gx[1]#_g94797_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g94817_| + (define |gx[1]#_g94799_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94823_| + (define |gx[1]#_g94805_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g94826_| + (define |gx[1]#_g94808_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94829_| + (define |gx[1]#_g94811_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g94835_| + (define |gx[1]#_g94817_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94838_| + (define |gx[1]#_g94820_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94841_| + (define |gx[1]#_g94823_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94847_| + (define |gx[1]#_g94829_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g94850_| + (define |gx[1]#_g94832_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94853_| + (define |gx[1]#_g94835_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g94859_| + (define |gx[1]#_g94841_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94862_| + (define |gx[1]#_g94844_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94865_| + (define |gx[1]#_g94847_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94868_| + (define |gx[1]#_g94850_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g94870_| + (define |gx[1]#_g94852_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g94872_| + (define |gx[1]#_g94854_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g94874_| + (define |gx[1]#_g94856_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94880_| + (define |gx[1]#_g94862_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g94883_| + (define |gx[1]#_g94865_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94886_| + (define |gx[1]#_g94868_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g94892_| + (define |gx[1]#_g94874_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94895_| + (define |gx[1]#_g94877_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94898_| + (define |gx[1]#_g94880_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94904_| + (define |gx[1]#_g94886_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g94907_| + (define |gx[1]#_g94889_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94910_| + (define |gx[1]#_g94892_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g94916_| + (define |gx[1]#_g94898_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94919_| + (define |gx[1]#_g94901_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94922_| + (define |gx[1]#_g94904_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94926_| + (define |gx[1]#_g94908_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g94928_| + (define |gx[1]#_g94910_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g94930_| + (define |gx[1]#_g94912_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94936_| + (define |gx[1]#_g94918_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g94939_| + (define |gx[1]#_g94921_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94942_| + (define |gx[1]#_g94924_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g94948_| + (define |gx[1]#_g94930_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94951_| + (define |gx[1]#_g94933_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94954_| + (define |gx[1]#_g94936_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94960_| + (define |gx[1]#_g94942_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g94963_| + (define |gx[1]#_g94945_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g94966_| + (define |gx[1]#_g94948_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g94972_| + (define |gx[1]#_g94954_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94975_| + (define |gx[1]#_g94957_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94978_| + (define |gx[1]#_g94960_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g94982_| + (define |gx[1]#_g94964_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g94984_| + (define |gx[1]#_g94966_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g94986_| + (define |gx[1]#_g94968_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g94988_| + (define |gx[1]#_g94970_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g94990_| + (define |gx[1]#_g94972_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g94996_| + (define |gx[1]#_g94978_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g94999_| + (define |gx[1]#_g94981_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g95002_| + (define |gx[1]#_g94984_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g95008_| + (define |gx[1]#_g94990_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g95011_| + (define |gx[1]#_g94993_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g95014_| + (define |gx[1]#_g94996_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g95020_| + (define |gx[1]#_g95002_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g95023_| + (define |gx[1]#_g95005_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g95026_| + (define |gx[1]#_g95008_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g95032_| + (define |gx[1]#_g95014_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g95035_| + (define |gx[1]#_g95017_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g95038_| + (define |gx[1]#_g95020_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! @@ -842,7 +842,7 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj94556 + (let ((__obj94538 (let () (declare (not safe)) (##structure @@ -866,7 +866,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94556 + __obj94538 '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! - __obj94556 + __obj94538 'module-import '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -882,7 +882,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94556 + __obj94538 '(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! - __obj94556 + __obj94538 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -898,7 +898,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94556 + __obj94538 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -906,7 +906,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94556 + __obj94538 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -914,7 +914,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94556 + __obj94538 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -922,178 +922,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94556 + __obj94538 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94602 |gx[1]#_g94603_|)) + (let ((__tmp94584 |gx[1]#_g94585_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94556 - __tmp94602 + __obj94538 + __tmp94584 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94604 |gx[1]#_g94605_|)) + (let ((__tmp94586 |gx[1]#_g94587_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94556 - __tmp94604 + __obj94538 + __tmp94586 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94606 |gx[1]#_g94607_|)) + (let ((__tmp94588 |gx[1]#_g94589_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94556 - __tmp94606 + __obj94538 + __tmp94588 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94608 - (let ((__tmp94621 - (let ((__tmp94622 |gx[1]#_g94623_|)) + (let ((__tmp94590 + (let ((__tmp94603 + (let ((__tmp94604 |gx[1]#_g94605_|)) (declare (not safe)) - (cons 'source __tmp94622))) - (__tmp94609 - (let ((__tmp94618 - (let ((__tmp94619 |gx[1]#_g94620_|)) + (cons 'source __tmp94604))) + (__tmp94591 + (let ((__tmp94600 + (let ((__tmp94601 |gx[1]#_g94602_|)) (declare (not safe)) - (cons 'name __tmp94619))) - (__tmp94610 - (let ((__tmp94615 - (let ((__tmp94616 |gx[1]#_g94617_|)) + (cons 'name __tmp94601))) + (__tmp94592 + (let ((__tmp94597 + (let ((__tmp94598 |gx[1]#_g94599_|)) (declare (not safe)) - (cons 'phi __tmp94616))) - (__tmp94611 - (let ((__tmp94612 - (let ((__tmp94613 |gx[1]#_g94614_|)) + (cons 'phi __tmp94598))) + (__tmp94593 + (let ((__tmp94594 + (let ((__tmp94595 |gx[1]#_g94596_|)) (declare (not safe)) - (cons 'weak? __tmp94613)))) + (cons 'weak? __tmp94595)))) (declare (not safe)) - (cons __tmp94612 '())))) + (cons __tmp94594 '())))) (declare (not safe)) - (cons __tmp94615 __tmp94611)))) + (cons __tmp94597 __tmp94593)))) (declare (not safe)) - (cons __tmp94618 __tmp94610)))) + (cons __tmp94600 __tmp94592)))) (declare (not safe)) - (cons __tmp94621 __tmp94609)))) + (cons __tmp94603 __tmp94591)))) (declare (not safe)) (##unchecked-structure-set! - __obj94556 - __tmp94608 + __obj94538 + __tmp94590 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94624 - (let ((__tmp94637 - (let ((__tmp94638 |gx[1]#_g94639_|)) + (let ((__tmp94606 + (let ((__tmp94619 + (let ((__tmp94620 |gx[1]#_g94621_|)) (declare (not safe)) - (cons 'source __tmp94638))) - (__tmp94625 - (let ((__tmp94634 - (let ((__tmp94635 |gx[1]#_g94636_|)) + (cons 'source __tmp94620))) + (__tmp94607 + (let ((__tmp94616 + (let ((__tmp94617 |gx[1]#_g94618_|)) (declare (not safe)) - (cons 'name __tmp94635))) - (__tmp94626 - (let ((__tmp94631 - (let ((__tmp94632 |gx[1]#_g94633_|)) + (cons 'name __tmp94617))) + (__tmp94608 + (let ((__tmp94613 + (let ((__tmp94614 |gx[1]#_g94615_|)) (declare (not safe)) - (cons 'phi __tmp94632))) - (__tmp94627 - (let ((__tmp94628 - (let ((__tmp94629 |gx[1]#_g94630_|)) + (cons 'phi __tmp94614))) + (__tmp94609 + (let ((__tmp94610 + (let ((__tmp94611 |gx[1]#_g94612_|)) (declare (not safe)) - (cons 'weak? __tmp94629)))) + (cons 'weak? __tmp94611)))) (declare (not safe)) - (cons __tmp94628 '())))) + (cons __tmp94610 '())))) (declare (not safe)) - (cons __tmp94631 __tmp94627)))) + (cons __tmp94613 __tmp94609)))) (declare (not safe)) - (cons __tmp94634 __tmp94626)))) + (cons __tmp94616 __tmp94608)))) (declare (not safe)) - (cons __tmp94637 __tmp94625)))) + (cons __tmp94619 __tmp94607)))) (declare (not safe)) (##unchecked-structure-set! - __obj94556 - __tmp94624 + __obj94538 + __tmp94606 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94640 - (let ((__tmp94653 - (let ((__tmp94654 |gx[1]#_g94655_|)) + (let ((__tmp94622 + (let ((__tmp94635 + (let ((__tmp94636 |gx[1]#_g94637_|)) (declare (not safe)) - (cons 'source __tmp94654))) - (__tmp94641 - (let ((__tmp94650 - (let ((__tmp94651 |gx[1]#_g94652_|)) + (cons 'source __tmp94636))) + (__tmp94623 + (let ((__tmp94632 + (let ((__tmp94633 |gx[1]#_g94634_|)) (declare (not safe)) - (cons 'name __tmp94651))) - (__tmp94642 - (let ((__tmp94647 - (let ((__tmp94648 |gx[1]#_g94649_|)) + (cons 'name __tmp94633))) + (__tmp94624 + (let ((__tmp94629 + (let ((__tmp94630 |gx[1]#_g94631_|)) (declare (not safe)) - (cons 'phi __tmp94648))) - (__tmp94643 - (let ((__tmp94644 - (let ((__tmp94645 |gx[1]#_g94646_|)) + (cons 'phi __tmp94630))) + (__tmp94625 + (let ((__tmp94626 + (let ((__tmp94627 |gx[1]#_g94628_|)) (declare (not safe)) - (cons 'weak? __tmp94645)))) + (cons 'weak? __tmp94627)))) (declare (not safe)) - (cons __tmp94644 '())))) + (cons __tmp94626 '())))) (declare (not safe)) - (cons __tmp94647 __tmp94643)))) + (cons __tmp94629 __tmp94625)))) (declare (not safe)) - (cons __tmp94650 __tmp94642)))) + (cons __tmp94632 __tmp94624)))) (declare (not safe)) - (cons __tmp94653 __tmp94641)))) + (cons __tmp94635 __tmp94623)))) (declare (not safe)) (##unchecked-structure-set! - __obj94556 - __tmp94640 + __obj94538 + __tmp94622 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94656 - (let ((__tmp94669 - (let ((__tmp94670 |gx[1]#_g94671_|)) + (let ((__tmp94638 + (let ((__tmp94651 + (let ((__tmp94652 |gx[1]#_g94653_|)) (declare (not safe)) - (cons 'source __tmp94670))) - (__tmp94657 - (let ((__tmp94666 - (let ((__tmp94667 |gx[1]#_g94668_|)) + (cons 'source __tmp94652))) + (__tmp94639 + (let ((__tmp94648 + (let ((__tmp94649 |gx[1]#_g94650_|)) (declare (not safe)) - (cons 'name __tmp94667))) - (__tmp94658 - (let ((__tmp94663 - (let ((__tmp94664 |gx[1]#_g94665_|)) + (cons 'name __tmp94649))) + (__tmp94640 + (let ((__tmp94645 + (let ((__tmp94646 |gx[1]#_g94647_|)) (declare (not safe)) - (cons 'phi __tmp94664))) - (__tmp94659 - (let ((__tmp94660 - (let ((__tmp94661 |gx[1]#_g94662_|)) + (cons 'phi __tmp94646))) + (__tmp94641 + (let ((__tmp94642 + (let ((__tmp94643 |gx[1]#_g94644_|)) (declare (not safe)) - (cons 'weak? __tmp94661)))) + (cons 'weak? __tmp94643)))) (declare (not safe)) - (cons __tmp94660 '())))) + (cons __tmp94642 '())))) (declare (not safe)) - (cons __tmp94663 __tmp94659)))) + (cons __tmp94645 __tmp94641)))) (declare (not safe)) - (cons __tmp94666 __tmp94658)))) + (cons __tmp94648 __tmp94640)))) (declare (not safe)) - (cons __tmp94669 __tmp94657)))) + (cons __tmp94651 __tmp94639)))) (declare (not safe)) (##unchecked-structure-set! - __obj94556 - __tmp94656 + __obj94538 + __tmp94638 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj94556)) + __obj94538)) (define |gx[:0:]#module-export| - (let ((__obj94557 + (let ((__obj94539 (let () (declare (not safe)) (##structure @@ -1117,7 +1117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94557 + __obj94539 '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! - __obj94557 + __obj94539 'module-export '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1133,7 +1133,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94557 + __obj94539 '(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! - __obj94557 + __obj94539 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1149,7 +1149,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94557 + __obj94539 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1157,7 +1157,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94557 + __obj94539 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1165,7 +1165,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94557 + __obj94539 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1173,210 +1173,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94557 + __obj94539 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94672 |gx[1]#_g94673_|)) + (let ((__tmp94654 |gx[1]#_g94655_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94557 - __tmp94672 + __obj94539 + __tmp94654 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94674 |gx[1]#_g94675_|)) + (let ((__tmp94656 |gx[1]#_g94657_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94557 - __tmp94674 + __obj94539 + __tmp94656 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94676 |gx[1]#_g94677_|)) + (let ((__tmp94658 |gx[1]#_g94659_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94557 - __tmp94676 + __obj94539 + __tmp94658 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94678 - (let ((__tmp94695 - (let ((__tmp94696 |gx[1]#_g94697_|)) + (let ((__tmp94660 + (let ((__tmp94677 + (let ((__tmp94678 |gx[1]#_g94679_|)) (declare (not safe)) - (cons 'context __tmp94696))) - (__tmp94679 - (let ((__tmp94692 - (let ((__tmp94693 |gx[1]#_g94694_|)) + (cons 'context __tmp94678))) + (__tmp94661 + (let ((__tmp94674 + (let ((__tmp94675 |gx[1]#_g94676_|)) (declare (not safe)) - (cons 'key __tmp94693))) - (__tmp94680 - (let ((__tmp94689 - (let ((__tmp94690 |gx[1]#_g94691_|)) + (cons 'key __tmp94675))) + (__tmp94662 + (let ((__tmp94671 + (let ((__tmp94672 |gx[1]#_g94673_|)) (declare (not safe)) - (cons 'phi __tmp94690))) - (__tmp94681 - (let ((__tmp94686 - (let ((__tmp94687 |gx[1]#_g94688_|)) + (cons 'phi __tmp94672))) + (__tmp94663 + (let ((__tmp94668 + (let ((__tmp94669 |gx[1]#_g94670_|)) (declare (not safe)) - (cons 'name __tmp94687))) - (__tmp94682 - (let ((__tmp94683 - (let ((__tmp94684 - |gx[1]#_g94685_|)) + (cons 'name __tmp94669))) + (__tmp94664 + (let ((__tmp94665 + (let ((__tmp94666 + |gx[1]#_g94667_|)) (declare (not safe)) - (cons 'weak? __tmp94684)))) + (cons 'weak? __tmp94666)))) (declare (not safe)) - (cons __tmp94683 '())))) + (cons __tmp94665 '())))) (declare (not safe)) - (cons __tmp94686 __tmp94682)))) + (cons __tmp94668 __tmp94664)))) (declare (not safe)) - (cons __tmp94689 __tmp94681)))) + (cons __tmp94671 __tmp94663)))) (declare (not safe)) - (cons __tmp94692 __tmp94680)))) + (cons __tmp94674 __tmp94662)))) (declare (not safe)) - (cons __tmp94695 __tmp94679)))) + (cons __tmp94677 __tmp94661)))) (declare (not safe)) (##unchecked-structure-set! - __obj94557 - __tmp94678 + __obj94539 + __tmp94660 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94698 - (let ((__tmp94715 - (let ((__tmp94716 |gx[1]#_g94717_|)) + (let ((__tmp94680 + (let ((__tmp94697 + (let ((__tmp94698 |gx[1]#_g94699_|)) (declare (not safe)) - (cons 'context __tmp94716))) - (__tmp94699 - (let ((__tmp94712 - (let ((__tmp94713 |gx[1]#_g94714_|)) + (cons 'context __tmp94698))) + (__tmp94681 + (let ((__tmp94694 + (let ((__tmp94695 |gx[1]#_g94696_|)) (declare (not safe)) - (cons 'key __tmp94713))) - (__tmp94700 - (let ((__tmp94709 - (let ((__tmp94710 |gx[1]#_g94711_|)) + (cons 'key __tmp94695))) + (__tmp94682 + (let ((__tmp94691 + (let ((__tmp94692 |gx[1]#_g94693_|)) (declare (not safe)) - (cons 'phi __tmp94710))) - (__tmp94701 - (let ((__tmp94706 - (let ((__tmp94707 |gx[1]#_g94708_|)) + (cons 'phi __tmp94692))) + (__tmp94683 + (let ((__tmp94688 + (let ((__tmp94689 |gx[1]#_g94690_|)) (declare (not safe)) - (cons 'name __tmp94707))) - (__tmp94702 - (let ((__tmp94703 - (let ((__tmp94704 - |gx[1]#_g94705_|)) + (cons 'name __tmp94689))) + (__tmp94684 + (let ((__tmp94685 + (let ((__tmp94686 + |gx[1]#_g94687_|)) (declare (not safe)) - (cons 'weak? __tmp94704)))) + (cons 'weak? __tmp94686)))) (declare (not safe)) - (cons __tmp94703 '())))) + (cons __tmp94685 '())))) (declare (not safe)) - (cons __tmp94706 __tmp94702)))) + (cons __tmp94688 __tmp94684)))) (declare (not safe)) - (cons __tmp94709 __tmp94701)))) + (cons __tmp94691 __tmp94683)))) (declare (not safe)) - (cons __tmp94712 __tmp94700)))) + (cons __tmp94694 __tmp94682)))) (declare (not safe)) - (cons __tmp94715 __tmp94699)))) + (cons __tmp94697 __tmp94681)))) (declare (not safe)) (##unchecked-structure-set! - __obj94557 - __tmp94698 + __obj94539 + __tmp94680 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94718 - (let ((__tmp94735 - (let ((__tmp94736 |gx[1]#_g94737_|)) + (let ((__tmp94700 + (let ((__tmp94717 + (let ((__tmp94718 |gx[1]#_g94719_|)) (declare (not safe)) - (cons 'context __tmp94736))) - (__tmp94719 - (let ((__tmp94732 - (let ((__tmp94733 |gx[1]#_g94734_|)) + (cons 'context __tmp94718))) + (__tmp94701 + (let ((__tmp94714 + (let ((__tmp94715 |gx[1]#_g94716_|)) (declare (not safe)) - (cons 'key __tmp94733))) - (__tmp94720 - (let ((__tmp94729 - (let ((__tmp94730 |gx[1]#_g94731_|)) + (cons 'key __tmp94715))) + (__tmp94702 + (let ((__tmp94711 + (let ((__tmp94712 |gx[1]#_g94713_|)) (declare (not safe)) - (cons 'phi __tmp94730))) - (__tmp94721 - (let ((__tmp94726 - (let ((__tmp94727 |gx[1]#_g94728_|)) + (cons 'phi __tmp94712))) + (__tmp94703 + (let ((__tmp94708 + (let ((__tmp94709 |gx[1]#_g94710_|)) (declare (not safe)) - (cons 'name __tmp94727))) - (__tmp94722 - (let ((__tmp94723 - (let ((__tmp94724 - |gx[1]#_g94725_|)) + (cons 'name __tmp94709))) + (__tmp94704 + (let ((__tmp94705 + (let ((__tmp94706 + |gx[1]#_g94707_|)) (declare (not safe)) - (cons 'weak? __tmp94724)))) + (cons 'weak? __tmp94706)))) (declare (not safe)) - (cons __tmp94723 '())))) + (cons __tmp94705 '())))) (declare (not safe)) - (cons __tmp94726 __tmp94722)))) + (cons __tmp94708 __tmp94704)))) (declare (not safe)) - (cons __tmp94729 __tmp94721)))) + (cons __tmp94711 __tmp94703)))) (declare (not safe)) - (cons __tmp94732 __tmp94720)))) + (cons __tmp94714 __tmp94702)))) (declare (not safe)) - (cons __tmp94735 __tmp94719)))) + (cons __tmp94717 __tmp94701)))) (declare (not safe)) (##unchecked-structure-set! - __obj94557 - __tmp94718 + __obj94539 + __tmp94700 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94738 - (let ((__tmp94755 - (let ((__tmp94756 |gx[1]#_g94757_|)) + (let ((__tmp94720 + (let ((__tmp94737 + (let ((__tmp94738 |gx[1]#_g94739_|)) (declare (not safe)) - (cons 'context __tmp94756))) - (__tmp94739 - (let ((__tmp94752 - (let ((__tmp94753 |gx[1]#_g94754_|)) + (cons 'context __tmp94738))) + (__tmp94721 + (let ((__tmp94734 + (let ((__tmp94735 |gx[1]#_g94736_|)) (declare (not safe)) - (cons 'key __tmp94753))) - (__tmp94740 - (let ((__tmp94749 - (let ((__tmp94750 |gx[1]#_g94751_|)) + (cons 'key __tmp94735))) + (__tmp94722 + (let ((__tmp94731 + (let ((__tmp94732 |gx[1]#_g94733_|)) (declare (not safe)) - (cons 'phi __tmp94750))) - (__tmp94741 - (let ((__tmp94746 - (let ((__tmp94747 |gx[1]#_g94748_|)) + (cons 'phi __tmp94732))) + (__tmp94723 + (let ((__tmp94728 + (let ((__tmp94729 |gx[1]#_g94730_|)) (declare (not safe)) - (cons 'name __tmp94747))) - (__tmp94742 - (let ((__tmp94743 - (let ((__tmp94744 - |gx[1]#_g94745_|)) + (cons 'name __tmp94729))) + (__tmp94724 + (let ((__tmp94725 + (let ((__tmp94726 + |gx[1]#_g94727_|)) (declare (not safe)) - (cons 'weak? __tmp94744)))) + (cons 'weak? __tmp94726)))) (declare (not safe)) - (cons __tmp94743 '())))) + (cons __tmp94725 '())))) (declare (not safe)) - (cons __tmp94746 __tmp94742)))) + (cons __tmp94728 __tmp94724)))) (declare (not safe)) - (cons __tmp94749 __tmp94741)))) + (cons __tmp94731 __tmp94723)))) (declare (not safe)) - (cons __tmp94752 __tmp94740)))) + (cons __tmp94734 __tmp94722)))) (declare (not safe)) - (cons __tmp94755 __tmp94739)))) + (cons __tmp94737 __tmp94721)))) (declare (not safe)) (##unchecked-structure-set! - __obj94557 - __tmp94738 + __obj94539 + __tmp94720 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj94557)) + __obj94539)) (define |gx[:0:]#import-set| - (let ((__obj94558 + (let ((__obj94540 (let () (declare (not safe)) (##structure @@ -1400,7 +1400,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94558 + __obj94540 '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! - __obj94558 + __obj94540 'import-set '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1416,7 +1416,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94558 + __obj94540 '(source phi imports) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -1424,7 +1424,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94558 + __obj94540 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1432,7 +1432,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94558 + __obj94540 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1440,7 +1440,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94558 + __obj94540 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1448,7 +1448,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94558 + __obj94540 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1456,150 +1456,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94558 + __obj94540 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94758 |gx[1]#_g94759_|)) + (let ((__tmp94740 |gx[1]#_g94741_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94558 - __tmp94758 + __obj94540 + __tmp94740 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94760 |gx[1]#_g94761_|)) + (let ((__tmp94742 |gx[1]#_g94743_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94558 - __tmp94760 + __obj94540 + __tmp94742 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94762 |gx[1]#_g94763_|)) + (let ((__tmp94744 |gx[1]#_g94745_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94558 - __tmp94762 + __obj94540 + __tmp94744 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94764 - (let ((__tmp94773 - (let ((__tmp94774 |gx[1]#_g94775_|)) + (let ((__tmp94746 + (let ((__tmp94755 + (let ((__tmp94756 |gx[1]#_g94757_|)) (declare (not safe)) - (cons 'source __tmp94774))) - (__tmp94765 - (let ((__tmp94770 - (let ((__tmp94771 |gx[1]#_g94772_|)) + (cons 'source __tmp94756))) + (__tmp94747 + (let ((__tmp94752 + (let ((__tmp94753 |gx[1]#_g94754_|)) (declare (not safe)) - (cons 'phi __tmp94771))) - (__tmp94766 - (let ((__tmp94767 - (let ((__tmp94768 |gx[1]#_g94769_|)) + (cons 'phi __tmp94753))) + (__tmp94748 + (let ((__tmp94749 + (let ((__tmp94750 |gx[1]#_g94751_|)) (declare (not safe)) - (cons 'imports __tmp94768)))) + (cons 'imports __tmp94750)))) (declare (not safe)) - (cons __tmp94767 '())))) + (cons __tmp94749 '())))) (declare (not safe)) - (cons __tmp94770 __tmp94766)))) + (cons __tmp94752 __tmp94748)))) (declare (not safe)) - (cons __tmp94773 __tmp94765)))) + (cons __tmp94755 __tmp94747)))) (declare (not safe)) (##unchecked-structure-set! - __obj94558 - __tmp94764 + __obj94540 + __tmp94746 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94776 - (let ((__tmp94785 - (let ((__tmp94786 |gx[1]#_g94787_|)) + (let ((__tmp94758 + (let ((__tmp94767 + (let ((__tmp94768 |gx[1]#_g94769_|)) (declare (not safe)) - (cons 'source __tmp94786))) - (__tmp94777 - (let ((__tmp94782 - (let ((__tmp94783 |gx[1]#_g94784_|)) + (cons 'source __tmp94768))) + (__tmp94759 + (let ((__tmp94764 + (let ((__tmp94765 |gx[1]#_g94766_|)) (declare (not safe)) - (cons 'phi __tmp94783))) - (__tmp94778 - (let ((__tmp94779 - (let ((__tmp94780 |gx[1]#_g94781_|)) + (cons 'phi __tmp94765))) + (__tmp94760 + (let ((__tmp94761 + (let ((__tmp94762 |gx[1]#_g94763_|)) (declare (not safe)) - (cons 'imports __tmp94780)))) + (cons 'imports __tmp94762)))) (declare (not safe)) - (cons __tmp94779 '())))) + (cons __tmp94761 '())))) (declare (not safe)) - (cons __tmp94782 __tmp94778)))) + (cons __tmp94764 __tmp94760)))) (declare (not safe)) - (cons __tmp94785 __tmp94777)))) + (cons __tmp94767 __tmp94759)))) (declare (not safe)) (##unchecked-structure-set! - __obj94558 - __tmp94776 + __obj94540 + __tmp94758 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94788 - (let ((__tmp94797 - (let ((__tmp94798 |gx[1]#_g94799_|)) + (let ((__tmp94770 + (let ((__tmp94779 + (let ((__tmp94780 |gx[1]#_g94781_|)) (declare (not safe)) - (cons 'source __tmp94798))) - (__tmp94789 - (let ((__tmp94794 - (let ((__tmp94795 |gx[1]#_g94796_|)) + (cons 'source __tmp94780))) + (__tmp94771 + (let ((__tmp94776 + (let ((__tmp94777 |gx[1]#_g94778_|)) (declare (not safe)) - (cons 'phi __tmp94795))) - (__tmp94790 - (let ((__tmp94791 - (let ((__tmp94792 |gx[1]#_g94793_|)) + (cons 'phi __tmp94777))) + (__tmp94772 + (let ((__tmp94773 + (let ((__tmp94774 |gx[1]#_g94775_|)) (declare (not safe)) - (cons 'imports __tmp94792)))) + (cons 'imports __tmp94774)))) (declare (not safe)) - (cons __tmp94791 '())))) + (cons __tmp94773 '())))) (declare (not safe)) - (cons __tmp94794 __tmp94790)))) + (cons __tmp94776 __tmp94772)))) (declare (not safe)) - (cons __tmp94797 __tmp94789)))) + (cons __tmp94779 __tmp94771)))) (declare (not safe)) (##unchecked-structure-set! - __obj94558 - __tmp94788 + __obj94540 + __tmp94770 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94800 - (let ((__tmp94809 - (let ((__tmp94810 |gx[1]#_g94811_|)) + (let ((__tmp94782 + (let ((__tmp94791 + (let ((__tmp94792 |gx[1]#_g94793_|)) (declare (not safe)) - (cons 'source __tmp94810))) - (__tmp94801 - (let ((__tmp94806 - (let ((__tmp94807 |gx[1]#_g94808_|)) + (cons 'source __tmp94792))) + (__tmp94783 + (let ((__tmp94788 + (let ((__tmp94789 |gx[1]#_g94790_|)) (declare (not safe)) - (cons 'phi __tmp94807))) - (__tmp94802 - (let ((__tmp94803 - (let ((__tmp94804 |gx[1]#_g94805_|)) + (cons 'phi __tmp94789))) + (__tmp94784 + (let ((__tmp94785 + (let ((__tmp94786 |gx[1]#_g94787_|)) (declare (not safe)) - (cons 'imports __tmp94804)))) + (cons 'imports __tmp94786)))) (declare (not safe)) - (cons __tmp94803 '())))) + (cons __tmp94785 '())))) (declare (not safe)) - (cons __tmp94806 __tmp94802)))) + (cons __tmp94788 __tmp94784)))) (declare (not safe)) - (cons __tmp94809 __tmp94801)))) + (cons __tmp94791 __tmp94783)))) (declare (not safe)) (##unchecked-structure-set! - __obj94558 - __tmp94800 + __obj94540 + __tmp94782 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj94558)) + __obj94540)) (define |gx[:0:]#export-set| - (let ((__obj94559 + (let ((__obj94541 (let () (declare (not safe)) (##structure @@ -1623,7 +1623,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94559 + __obj94541 '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! - __obj94559 + __obj94541 'export-set '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1639,7 +1639,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94559 + __obj94541 '(source phi exports) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -1647,7 +1647,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94559 + __obj94541 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1655,7 +1655,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94559 + __obj94541 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1663,7 +1663,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94559 + __obj94541 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1671,7 +1671,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94559 + __obj94541 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1679,150 +1679,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94559 + __obj94541 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94812 |gx[1]#_g94813_|)) + (let ((__tmp94794 |gx[1]#_g94795_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94559 - __tmp94812 + __obj94541 + __tmp94794 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94814 |gx[1]#_g94815_|)) + (let ((__tmp94796 |gx[1]#_g94797_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94559 - __tmp94814 + __obj94541 + __tmp94796 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94816 |gx[1]#_g94817_|)) + (let ((__tmp94798 |gx[1]#_g94799_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94559 - __tmp94816 + __obj94541 + __tmp94798 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94818 - (let ((__tmp94827 - (let ((__tmp94828 |gx[1]#_g94829_|)) + (let ((__tmp94800 + (let ((__tmp94809 + (let ((__tmp94810 |gx[1]#_g94811_|)) (declare (not safe)) - (cons 'source __tmp94828))) - (__tmp94819 - (let ((__tmp94824 - (let ((__tmp94825 |gx[1]#_g94826_|)) + (cons 'source __tmp94810))) + (__tmp94801 + (let ((__tmp94806 + (let ((__tmp94807 |gx[1]#_g94808_|)) (declare (not safe)) - (cons 'phi __tmp94825))) - (__tmp94820 - (let ((__tmp94821 - (let ((__tmp94822 |gx[1]#_g94823_|)) + (cons 'phi __tmp94807))) + (__tmp94802 + (let ((__tmp94803 + (let ((__tmp94804 |gx[1]#_g94805_|)) (declare (not safe)) - (cons 'exports __tmp94822)))) + (cons 'exports __tmp94804)))) (declare (not safe)) - (cons __tmp94821 '())))) + (cons __tmp94803 '())))) (declare (not safe)) - (cons __tmp94824 __tmp94820)))) + (cons __tmp94806 __tmp94802)))) (declare (not safe)) - (cons __tmp94827 __tmp94819)))) + (cons __tmp94809 __tmp94801)))) (declare (not safe)) (##unchecked-structure-set! - __obj94559 - __tmp94818 + __obj94541 + __tmp94800 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94830 - (let ((__tmp94839 - (let ((__tmp94840 |gx[1]#_g94841_|)) + (let ((__tmp94812 + (let ((__tmp94821 + (let ((__tmp94822 |gx[1]#_g94823_|)) (declare (not safe)) - (cons 'source __tmp94840))) - (__tmp94831 - (let ((__tmp94836 - (let ((__tmp94837 |gx[1]#_g94838_|)) + (cons 'source __tmp94822))) + (__tmp94813 + (let ((__tmp94818 + (let ((__tmp94819 |gx[1]#_g94820_|)) (declare (not safe)) - (cons 'phi __tmp94837))) - (__tmp94832 - (let ((__tmp94833 - (let ((__tmp94834 |gx[1]#_g94835_|)) + (cons 'phi __tmp94819))) + (__tmp94814 + (let ((__tmp94815 + (let ((__tmp94816 |gx[1]#_g94817_|)) (declare (not safe)) - (cons 'exports __tmp94834)))) + (cons 'exports __tmp94816)))) (declare (not safe)) - (cons __tmp94833 '())))) + (cons __tmp94815 '())))) (declare (not safe)) - (cons __tmp94836 __tmp94832)))) + (cons __tmp94818 __tmp94814)))) (declare (not safe)) - (cons __tmp94839 __tmp94831)))) + (cons __tmp94821 __tmp94813)))) (declare (not safe)) (##unchecked-structure-set! - __obj94559 - __tmp94830 + __obj94541 + __tmp94812 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94842 - (let ((__tmp94851 - (let ((__tmp94852 |gx[1]#_g94853_|)) + (let ((__tmp94824 + (let ((__tmp94833 + (let ((__tmp94834 |gx[1]#_g94835_|)) (declare (not safe)) - (cons 'source __tmp94852))) - (__tmp94843 - (let ((__tmp94848 - (let ((__tmp94849 |gx[1]#_g94850_|)) + (cons 'source __tmp94834))) + (__tmp94825 + (let ((__tmp94830 + (let ((__tmp94831 |gx[1]#_g94832_|)) (declare (not safe)) - (cons 'phi __tmp94849))) - (__tmp94844 - (let ((__tmp94845 - (let ((__tmp94846 |gx[1]#_g94847_|)) + (cons 'phi __tmp94831))) + (__tmp94826 + (let ((__tmp94827 + (let ((__tmp94828 |gx[1]#_g94829_|)) (declare (not safe)) - (cons 'exports __tmp94846)))) + (cons 'exports __tmp94828)))) (declare (not safe)) - (cons __tmp94845 '())))) + (cons __tmp94827 '())))) (declare (not safe)) - (cons __tmp94848 __tmp94844)))) + (cons __tmp94830 __tmp94826)))) (declare (not safe)) - (cons __tmp94851 __tmp94843)))) + (cons __tmp94833 __tmp94825)))) (declare (not safe)) (##unchecked-structure-set! - __obj94559 - __tmp94842 + __obj94541 + __tmp94824 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94854 - (let ((__tmp94863 - (let ((__tmp94864 |gx[1]#_g94865_|)) + (let ((__tmp94836 + (let ((__tmp94845 + (let ((__tmp94846 |gx[1]#_g94847_|)) (declare (not safe)) - (cons 'source __tmp94864))) - (__tmp94855 - (let ((__tmp94860 - (let ((__tmp94861 |gx[1]#_g94862_|)) + (cons 'source __tmp94846))) + (__tmp94837 + (let ((__tmp94842 + (let ((__tmp94843 |gx[1]#_g94844_|)) (declare (not safe)) - (cons 'phi __tmp94861))) - (__tmp94856 - (let ((__tmp94857 - (let ((__tmp94858 |gx[1]#_g94859_|)) + (cons 'phi __tmp94843))) + (__tmp94838 + (let ((__tmp94839 + (let ((__tmp94840 |gx[1]#_g94841_|)) (declare (not safe)) - (cons 'exports __tmp94858)))) + (cons 'exports __tmp94840)))) (declare (not safe)) - (cons __tmp94857 '())))) + (cons __tmp94839 '())))) (declare (not safe)) - (cons __tmp94860 __tmp94856)))) + (cons __tmp94842 __tmp94838)))) (declare (not safe)) - (cons __tmp94863 __tmp94855)))) + (cons __tmp94845 __tmp94837)))) (declare (not safe)) (##unchecked-structure-set! - __obj94559 - __tmp94854 + __obj94541 + __tmp94836 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj94559)) + __obj94541)) (define |gx[:0:]#import-expander| - (let ((__obj94560 + (let ((__obj94542 (let () (declare (not safe)) (##structure @@ -1846,7 +1846,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94560 + __obj94542 '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! - __obj94560 + __obj94542 'import-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1862,26 +1862,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94560 + __obj94542 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94866 - (let ((__tmp94867 |gx[1]#_g94868_|)) + (let ((__tmp94848 + (let ((__tmp94849 |gx[1]#_g94850_|)) (declare (not safe)) - (cons __tmp94867 '())))) + (cons __tmp94849 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj94560 - __tmp94866 + __obj94542 + __tmp94848 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj94560 + __obj94542 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1889,7 +1889,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94560 + __obj94542 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1897,7 +1897,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94560 + __obj94542 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1905,150 +1905,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94560 + __obj94542 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94869 |gx[1]#_g94870_|)) + (let ((__tmp94851 |gx[1]#_g94852_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94560 - __tmp94869 + __obj94542 + __tmp94851 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94871 |gx[1]#_g94872_|)) + (let ((__tmp94853 |gx[1]#_g94854_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94560 - __tmp94871 + __obj94542 + __tmp94853 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94873 |gx[1]#_g94874_|)) + (let ((__tmp94855 |gx[1]#_g94856_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94560 - __tmp94873 + __obj94542 + __tmp94855 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94875 - (let ((__tmp94884 - (let ((__tmp94885 |gx[1]#_g94886_|)) + (let ((__tmp94857 + (let ((__tmp94866 + (let ((__tmp94867 |gx[1]#_g94868_|)) (declare (not safe)) - (cons 'context __tmp94885))) - (__tmp94876 - (let ((__tmp94881 - (let ((__tmp94882 |gx[1]#_g94883_|)) + (cons 'context __tmp94867))) + (__tmp94858 + (let ((__tmp94863 + (let ((__tmp94864 |gx[1]#_g94865_|)) (declare (not safe)) - (cons 'phi __tmp94882))) - (__tmp94877 - (let ((__tmp94878 - (let ((__tmp94879 |gx[1]#_g94880_|)) + (cons 'phi __tmp94864))) + (__tmp94859 + (let ((__tmp94860 + (let ((__tmp94861 |gx[1]#_g94862_|)) (declare (not safe)) - (cons 'e __tmp94879)))) + (cons 'e __tmp94861)))) (declare (not safe)) - (cons __tmp94878 '())))) + (cons __tmp94860 '())))) (declare (not safe)) - (cons __tmp94881 __tmp94877)))) + (cons __tmp94863 __tmp94859)))) (declare (not safe)) - (cons __tmp94884 __tmp94876)))) + (cons __tmp94866 __tmp94858)))) (declare (not safe)) (##unchecked-structure-set! - __obj94560 - __tmp94875 + __obj94542 + __tmp94857 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94887 - (let ((__tmp94896 - (let ((__tmp94897 |gx[1]#_g94898_|)) + (let ((__tmp94869 + (let ((__tmp94878 + (let ((__tmp94879 |gx[1]#_g94880_|)) (declare (not safe)) - (cons 'context __tmp94897))) - (__tmp94888 - (let ((__tmp94893 - (let ((__tmp94894 |gx[1]#_g94895_|)) + (cons 'context __tmp94879))) + (__tmp94870 + (let ((__tmp94875 + (let ((__tmp94876 |gx[1]#_g94877_|)) (declare (not safe)) - (cons 'phi __tmp94894))) - (__tmp94889 - (let ((__tmp94890 - (let ((__tmp94891 |gx[1]#_g94892_|)) + (cons 'phi __tmp94876))) + (__tmp94871 + (let ((__tmp94872 + (let ((__tmp94873 |gx[1]#_g94874_|)) (declare (not safe)) - (cons 'e __tmp94891)))) + (cons 'e __tmp94873)))) (declare (not safe)) - (cons __tmp94890 '())))) + (cons __tmp94872 '())))) (declare (not safe)) - (cons __tmp94893 __tmp94889)))) + (cons __tmp94875 __tmp94871)))) (declare (not safe)) - (cons __tmp94896 __tmp94888)))) + (cons __tmp94878 __tmp94870)))) (declare (not safe)) (##unchecked-structure-set! - __obj94560 - __tmp94887 + __obj94542 + __tmp94869 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94899 - (let ((__tmp94908 - (let ((__tmp94909 |gx[1]#_g94910_|)) + (let ((__tmp94881 + (let ((__tmp94890 + (let ((__tmp94891 |gx[1]#_g94892_|)) (declare (not safe)) - (cons 'context __tmp94909))) - (__tmp94900 - (let ((__tmp94905 - (let ((__tmp94906 |gx[1]#_g94907_|)) + (cons 'context __tmp94891))) + (__tmp94882 + (let ((__tmp94887 + (let ((__tmp94888 |gx[1]#_g94889_|)) (declare (not safe)) - (cons 'phi __tmp94906))) - (__tmp94901 - (let ((__tmp94902 - (let ((__tmp94903 |gx[1]#_g94904_|)) + (cons 'phi __tmp94888))) + (__tmp94883 + (let ((__tmp94884 + (let ((__tmp94885 |gx[1]#_g94886_|)) (declare (not safe)) - (cons 'e __tmp94903)))) + (cons 'e __tmp94885)))) (declare (not safe)) - (cons __tmp94902 '())))) + (cons __tmp94884 '())))) (declare (not safe)) - (cons __tmp94905 __tmp94901)))) + (cons __tmp94887 __tmp94883)))) (declare (not safe)) - (cons __tmp94908 __tmp94900)))) + (cons __tmp94890 __tmp94882)))) (declare (not safe)) (##unchecked-structure-set! - __obj94560 - __tmp94899 + __obj94542 + __tmp94881 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94911 - (let ((__tmp94920 - (let ((__tmp94921 |gx[1]#_g94922_|)) + (let ((__tmp94893 + (let ((__tmp94902 + (let ((__tmp94903 |gx[1]#_g94904_|)) (declare (not safe)) - (cons 'context __tmp94921))) - (__tmp94912 - (let ((__tmp94917 - (let ((__tmp94918 |gx[1]#_g94919_|)) + (cons 'context __tmp94903))) + (__tmp94894 + (let ((__tmp94899 + (let ((__tmp94900 |gx[1]#_g94901_|)) (declare (not safe)) - (cons 'phi __tmp94918))) - (__tmp94913 - (let ((__tmp94914 - (let ((__tmp94915 |gx[1]#_g94916_|)) + (cons 'phi __tmp94900))) + (__tmp94895 + (let ((__tmp94896 + (let ((__tmp94897 |gx[1]#_g94898_|)) (declare (not safe)) - (cons 'e __tmp94915)))) + (cons 'e __tmp94897)))) (declare (not safe)) - (cons __tmp94914 '())))) + (cons __tmp94896 '())))) (declare (not safe)) - (cons __tmp94917 __tmp94913)))) + (cons __tmp94899 __tmp94895)))) (declare (not safe)) - (cons __tmp94920 __tmp94912)))) + (cons __tmp94902 __tmp94894)))) (declare (not safe)) (##unchecked-structure-set! - __obj94560 - __tmp94911 + __obj94542 + __tmp94893 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj94560)) + __obj94542)) (define |gx[:0:]#export-expander| - (let ((__obj94561 + (let ((__obj94543 (let () (declare (not safe)) (##structure @@ -2072,7 +2072,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94561 + __obj94543 '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! - __obj94561 + __obj94543 'export-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2088,26 +2088,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94561 + __obj94543 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94923 - (let ((__tmp94924 |gx[1]#_g94868_|)) + (let ((__tmp94905 + (let ((__tmp94906 |gx[1]#_g94850_|)) (declare (not safe)) - (cons __tmp94924 '())))) + (cons __tmp94906 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj94561 - __tmp94923 + __obj94543 + __tmp94905 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj94561 + __obj94543 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2115,7 +2115,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94561 + __obj94543 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2123,7 +2123,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94561 + __obj94543 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2131,150 +2131,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94561 + __obj94543 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94925 |gx[1]#_g94926_|)) + (let ((__tmp94907 |gx[1]#_g94908_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94561 - __tmp94925 + __obj94543 + __tmp94907 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94927 |gx[1]#_g94928_|)) + (let ((__tmp94909 |gx[1]#_g94910_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94561 - __tmp94927 + __obj94543 + __tmp94909 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94929 |gx[1]#_g94930_|)) + (let ((__tmp94911 |gx[1]#_g94912_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94561 - __tmp94929 + __obj94543 + __tmp94911 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94931 - (let ((__tmp94940 - (let ((__tmp94941 |gx[1]#_g94942_|)) + (let ((__tmp94913 + (let ((__tmp94922 + (let ((__tmp94923 |gx[1]#_g94924_|)) (declare (not safe)) - (cons 'context __tmp94941))) - (__tmp94932 - (let ((__tmp94937 - (let ((__tmp94938 |gx[1]#_g94939_|)) + (cons 'context __tmp94923))) + (__tmp94914 + (let ((__tmp94919 + (let ((__tmp94920 |gx[1]#_g94921_|)) (declare (not safe)) - (cons 'phi __tmp94938))) - (__tmp94933 - (let ((__tmp94934 - (let ((__tmp94935 |gx[1]#_g94936_|)) + (cons 'phi __tmp94920))) + (__tmp94915 + (let ((__tmp94916 + (let ((__tmp94917 |gx[1]#_g94918_|)) (declare (not safe)) - (cons 'e __tmp94935)))) + (cons 'e __tmp94917)))) (declare (not safe)) - (cons __tmp94934 '())))) + (cons __tmp94916 '())))) (declare (not safe)) - (cons __tmp94937 __tmp94933)))) + (cons __tmp94919 __tmp94915)))) (declare (not safe)) - (cons __tmp94940 __tmp94932)))) + (cons __tmp94922 __tmp94914)))) (declare (not safe)) (##unchecked-structure-set! - __obj94561 - __tmp94931 + __obj94543 + __tmp94913 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94943 - (let ((__tmp94952 - (let ((__tmp94953 |gx[1]#_g94954_|)) + (let ((__tmp94925 + (let ((__tmp94934 + (let ((__tmp94935 |gx[1]#_g94936_|)) (declare (not safe)) - (cons 'context __tmp94953))) - (__tmp94944 - (let ((__tmp94949 - (let ((__tmp94950 |gx[1]#_g94951_|)) + (cons 'context __tmp94935))) + (__tmp94926 + (let ((__tmp94931 + (let ((__tmp94932 |gx[1]#_g94933_|)) (declare (not safe)) - (cons 'phi __tmp94950))) - (__tmp94945 - (let ((__tmp94946 - (let ((__tmp94947 |gx[1]#_g94948_|)) + (cons 'phi __tmp94932))) + (__tmp94927 + (let ((__tmp94928 + (let ((__tmp94929 |gx[1]#_g94930_|)) (declare (not safe)) - (cons 'e __tmp94947)))) + (cons 'e __tmp94929)))) (declare (not safe)) - (cons __tmp94946 '())))) + (cons __tmp94928 '())))) (declare (not safe)) - (cons __tmp94949 __tmp94945)))) + (cons __tmp94931 __tmp94927)))) (declare (not safe)) - (cons __tmp94952 __tmp94944)))) + (cons __tmp94934 __tmp94926)))) (declare (not safe)) (##unchecked-structure-set! - __obj94561 - __tmp94943 + __obj94543 + __tmp94925 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94955 - (let ((__tmp94964 - (let ((__tmp94965 |gx[1]#_g94966_|)) + (let ((__tmp94937 + (let ((__tmp94946 + (let ((__tmp94947 |gx[1]#_g94948_|)) (declare (not safe)) - (cons 'context __tmp94965))) - (__tmp94956 - (let ((__tmp94961 - (let ((__tmp94962 |gx[1]#_g94963_|)) + (cons 'context __tmp94947))) + (__tmp94938 + (let ((__tmp94943 + (let ((__tmp94944 |gx[1]#_g94945_|)) (declare (not safe)) - (cons 'phi __tmp94962))) - (__tmp94957 - (let ((__tmp94958 - (let ((__tmp94959 |gx[1]#_g94960_|)) + (cons 'phi __tmp94944))) + (__tmp94939 + (let ((__tmp94940 + (let ((__tmp94941 |gx[1]#_g94942_|)) (declare (not safe)) - (cons 'e __tmp94959)))) + (cons 'e __tmp94941)))) (declare (not safe)) - (cons __tmp94958 '())))) + (cons __tmp94940 '())))) (declare (not safe)) - (cons __tmp94961 __tmp94957)))) + (cons __tmp94943 __tmp94939)))) (declare (not safe)) - (cons __tmp94964 __tmp94956)))) + (cons __tmp94946 __tmp94938)))) (declare (not safe)) (##unchecked-structure-set! - __obj94561 - __tmp94955 + __obj94543 + __tmp94937 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94967 - (let ((__tmp94976 - (let ((__tmp94977 |gx[1]#_g94978_|)) + (let ((__tmp94949 + (let ((__tmp94958 + (let ((__tmp94959 |gx[1]#_g94960_|)) (declare (not safe)) - (cons 'context __tmp94977))) - (__tmp94968 - (let ((__tmp94973 - (let ((__tmp94974 |gx[1]#_g94975_|)) + (cons 'context __tmp94959))) + (__tmp94950 + (let ((__tmp94955 + (let ((__tmp94956 |gx[1]#_g94957_|)) (declare (not safe)) - (cons 'phi __tmp94974))) - (__tmp94969 - (let ((__tmp94970 - (let ((__tmp94971 |gx[1]#_g94972_|)) + (cons 'phi __tmp94956))) + (__tmp94951 + (let ((__tmp94952 + (let ((__tmp94953 |gx[1]#_g94954_|)) (declare (not safe)) - (cons 'e __tmp94971)))) + (cons 'e __tmp94953)))) (declare (not safe)) - (cons __tmp94970 '())))) + (cons __tmp94952 '())))) (declare (not safe)) - (cons __tmp94973 __tmp94969)))) + (cons __tmp94955 __tmp94951)))) (declare (not safe)) - (cons __tmp94976 __tmp94968)))) + (cons __tmp94958 __tmp94950)))) (declare (not safe)) (##unchecked-structure-set! - __obj94561 - __tmp94967 + __obj94543 + __tmp94949 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj94561)) + __obj94543)) (define |gx[:0:]#import-export-expander| - (let ((__obj94562 + (let ((__obj94544 (let () (declare (not safe)) (##structure @@ -2298,7 +2298,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94562 + __obj94544 '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! - __obj94562 + __obj94544 'import-export-expander '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -2314,30 +2314,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94562 + __obj94544 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94979 - (let ((__tmp94983 |gx[1]#_g94984_|) - (__tmp94980 - (let ((__tmp94981 |gx[1]#_g94982_|)) + (let ((__tmp94961 + (let ((__tmp94965 |gx[1]#_g94966_|) + (__tmp94962 + (let ((__tmp94963 |gx[1]#_g94964_|)) (declare (not safe)) - (cons __tmp94981 '())))) + (cons __tmp94963 '())))) (declare (not safe)) - (cons __tmp94983 __tmp94980)))) + (cons __tmp94965 __tmp94962)))) (declare (not safe)) (##unchecked-structure-set! - __obj94562 - __tmp94979 + __obj94544 + __tmp94961 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj94562 + __obj94544 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -2345,7 +2345,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94562 + __obj94544 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -2353,7 +2353,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94562 + __obj94544 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -2361,145 +2361,145 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj94562 + __obj94544 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94985 |gx[1]#_g94986_|)) + (let ((__tmp94967 |gx[1]#_g94968_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94562 - __tmp94985 + __obj94544 + __tmp94967 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94987 |gx[1]#_g94988_|)) + (let ((__tmp94969 |gx[1]#_g94970_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94562 - __tmp94987 + __obj94544 + __tmp94969 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94989 |gx[1]#_g94990_|)) + (let ((__tmp94971 |gx[1]#_g94972_|)) (declare (not safe)) (##unchecked-structure-set! - __obj94562 - __tmp94989 + __obj94544 + __tmp94971 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp94991 - (let ((__tmp95000 - (let ((__tmp95001 |gx[1]#_g95002_|)) + (let ((__tmp94973 + (let ((__tmp94982 + (let ((__tmp94983 |gx[1]#_g94984_|)) (declare (not safe)) - (cons 'context __tmp95001))) - (__tmp94992 - (let ((__tmp94997 - (let ((__tmp94998 |gx[1]#_g94999_|)) + (cons 'context __tmp94983))) + (__tmp94974 + (let ((__tmp94979 + (let ((__tmp94980 |gx[1]#_g94981_|)) (declare (not safe)) - (cons 'phi __tmp94998))) - (__tmp94993 - (let ((__tmp94994 - (let ((__tmp94995 |gx[1]#_g94996_|)) + (cons 'phi __tmp94980))) + (__tmp94975 + (let ((__tmp94976 + (let ((__tmp94977 |gx[1]#_g94978_|)) (declare (not safe)) - (cons 'e __tmp94995)))) + (cons 'e __tmp94977)))) (declare (not safe)) - (cons __tmp94994 '())))) + (cons __tmp94976 '())))) (declare (not safe)) - (cons __tmp94997 __tmp94993)))) + (cons __tmp94979 __tmp94975)))) (declare (not safe)) - (cons __tmp95000 __tmp94992)))) + (cons __tmp94982 __tmp94974)))) (declare (not safe)) (##unchecked-structure-set! - __obj94562 - __tmp94991 + __obj94544 + __tmp94973 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp95003 - (let ((__tmp95012 - (let ((__tmp95013 |gx[1]#_g95014_|)) + (let ((__tmp94985 + (let ((__tmp94994 + (let ((__tmp94995 |gx[1]#_g94996_|)) (declare (not safe)) - (cons 'context __tmp95013))) - (__tmp95004 - (let ((__tmp95009 - (let ((__tmp95010 |gx[1]#_g95011_|)) + (cons 'context __tmp94995))) + (__tmp94986 + (let ((__tmp94991 + (let ((__tmp94992 |gx[1]#_g94993_|)) (declare (not safe)) - (cons 'phi __tmp95010))) - (__tmp95005 - (let ((__tmp95006 - (let ((__tmp95007 |gx[1]#_g95008_|)) + (cons 'phi __tmp94992))) + (__tmp94987 + (let ((__tmp94988 + (let ((__tmp94989 |gx[1]#_g94990_|)) (declare (not safe)) - (cons 'e __tmp95007)))) + (cons 'e __tmp94989)))) (declare (not safe)) - (cons __tmp95006 '())))) + (cons __tmp94988 '())))) (declare (not safe)) - (cons __tmp95009 __tmp95005)))) + (cons __tmp94991 __tmp94987)))) (declare (not safe)) - (cons __tmp95012 __tmp95004)))) + (cons __tmp94994 __tmp94986)))) (declare (not safe)) (##unchecked-structure-set! - __obj94562 - __tmp95003 + __obj94544 + __tmp94985 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp95015 - (let ((__tmp95024 - (let ((__tmp95025 |gx[1]#_g95026_|)) + (let ((__tmp94997 + (let ((__tmp95006 + (let ((__tmp95007 |gx[1]#_g95008_|)) (declare (not safe)) - (cons 'context __tmp95025))) - (__tmp95016 - (let ((__tmp95021 - (let ((__tmp95022 |gx[1]#_g95023_|)) + (cons 'context __tmp95007))) + (__tmp94998 + (let ((__tmp95003 + (let ((__tmp95004 |gx[1]#_g95005_|)) (declare (not safe)) - (cons 'phi __tmp95022))) - (__tmp95017 - (let ((__tmp95018 - (let ((__tmp95019 |gx[1]#_g95020_|)) + (cons 'phi __tmp95004))) + (__tmp94999 + (let ((__tmp95000 + (let ((__tmp95001 |gx[1]#_g95002_|)) (declare (not safe)) - (cons 'e __tmp95019)))) + (cons 'e __tmp95001)))) (declare (not safe)) - (cons __tmp95018 '())))) + (cons __tmp95000 '())))) (declare (not safe)) - (cons __tmp95021 __tmp95017)))) + (cons __tmp95003 __tmp94999)))) (declare (not safe)) - (cons __tmp95024 __tmp95016)))) + (cons __tmp95006 __tmp94998)))) (declare (not safe)) (##unchecked-structure-set! - __obj94562 - __tmp95015 + __obj94544 + __tmp94997 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp95027 - (let ((__tmp95036 - (let ((__tmp95037 |gx[1]#_g95038_|)) + (let ((__tmp95009 + (let ((__tmp95018 + (let ((__tmp95019 |gx[1]#_g95020_|)) (declare (not safe)) - (cons 'context __tmp95037))) - (__tmp95028 - (let ((__tmp95033 - (let ((__tmp95034 |gx[1]#_g95035_|)) + (cons 'context __tmp95019))) + (__tmp95010 + (let ((__tmp95015 + (let ((__tmp95016 |gx[1]#_g95017_|)) (declare (not safe)) - (cons 'phi __tmp95034))) - (__tmp95029 - (let ((__tmp95030 - (let ((__tmp95031 |gx[1]#_g95032_|)) + (cons 'phi __tmp95016))) + (__tmp95011 + (let ((__tmp95012 + (let ((__tmp95013 |gx[1]#_g95014_|)) (declare (not safe)) - (cons 'e __tmp95031)))) + (cons 'e __tmp95013)))) (declare (not safe)) - (cons __tmp95030 '())))) + (cons __tmp95012 '())))) (declare (not safe)) - (cons __tmp95033 __tmp95029)))) + (cons __tmp95015 __tmp95011)))) (declare (not safe)) - (cons __tmp95036 __tmp95028)))) + (cons __tmp95018 __tmp95010)))) (declare (not safe)) (##unchecked-structure-set! - __obj94562 - __tmp95027 + __obj94544 + __tmp95009 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj94562)))) + __obj94544)))) diff --git a/src/bootstrap/gerbil/expander/root~0.scm b/src/bootstrap/gerbil/expander/root~0.scm index c14df4386..bb039480a 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 1710833424) + (define gerbil/expander/root::timestamp 1710943498) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,582 +262,582 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_self97235_ _bind?97236_) - (if (##fx< '2 (##structure-length _self97235_)) + (lambda (_self97217_ _bind?97218_) + (if (##fx< '2 (##structure-length _self97217_)) (begin (##unchecked-structure-set! - _self97235_ + _self97217_ 'root '1 - (##structure-type _self97235_) + (##structure-type _self97217_) '#f) (##unchecked-structure-set! - _self97235_ + _self97217_ (make-hash-table-eq) '2 - (##structure-type _self97235_) + (##structure-type _self97217_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self97235_ + _self97217_ '2 - (##vector-length _self97235_))) - (if _bind?97236_ + (##vector-length _self97217_))) + (if _bind?97218_ (begin - (let ((__method97287 - (method-ref _self97235_ 'bind-core-syntax-expanders!))) - (if __method97287 - (__method97287 _self97235_) + (let ((__method97269 + (method-ref _self97217_ 'bind-core-syntax-expanders!))) + (if __method97269 + (__method97269 _self97217_) (error '"Missing method" - _self97235_ + _self97217_ 'bind-core-syntax-expanders!))) - (let ((__method97288 - (method-ref _self97235_ 'bind-core-macro-expanders!))) - (if __method97288 - (__method97288 _self97235_) + (let ((__method97270 + (method-ref _self97217_ 'bind-core-macro-expanders!))) + (if __method97270 + (__method97270 _self97217_) (error '"Missing method" - _self97235_ + _self97217_ 'bind-core-macro-expanders!))) - (let ((__method97289 - (method-ref _self97235_ 'bind-core-features!))) - (if __method97289 - (__method97289 _self97235_) + (let ((__method97271 + (method-ref _self97217_ 'bind-core-features!))) + (if __method97271 + (__method97271 _self97217_) (error '"Missing method" - _self97235_ + _self97217_ 'bind-core-features!)))) '#!void))) (define gx#root-context:::init!__0 - (lambda (_self97241_) - (let ((_bind?97243_ '#t)) - (gx#root-context:::init!__% _self97241_ _bind?97243_)))) + (lambda (_self97223_) + (let ((_bind?97225_ '#t)) + (gx#root-context:::init!__% _self97223_ _bind?97225_)))) (define gx#root-context:::init! - (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_) + (lambda _g97274_ + (let ((_g97273_ (##length _g97274_))) + (cond ((##fx= _g97273_ 1) + (apply (lambda (_self97223_) + (gx#root-context:::init!__0 _self97223_)) + _g97274_)) + ((##fx= _g97273_ 2) + (apply (lambda (_self97227_ _bind?97228_) (gx#root-context:::init!__% - _self97245_ - _bind?97246_)) - _g97292_)) + _self97227_ + _bind?97228_)) + _g97274_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g97292_)))))) + _g97274_)))))) (define gx#root-context:::init!::specialize - (lambda (__klass97247 __method-table97248) - (let ((__bind-core-features!97249 + (lambda (__klass97229 __method-table97230) + (let ((__bind-core-features!97231 (make-promise (lambda () - (let ((__method97252 + (let ((__method97234 (symbolic-table-ref - __method-table97248 + __method-table97230 'bind-core-features! '#f))) - (if __method97252 - __method97252 + (if __method97234 + __method97234 (error '"Missing method" 'bind-core-features!)))))) - (__bind-core-macro-expanders!97250 + (__bind-core-syntax-expanders!97232 (make-promise (lambda () - (let ((__method97253 + (let ((__method97235 (symbolic-table-ref - __method-table97248 - 'bind-core-macro-expanders! + __method-table97230 + 'bind-core-syntax-expanders! '#f))) - (if __method97253 - __method97253 + (if __method97235 + __method97235 (error '"Missing method" - 'bind-core-macro-expanders!)))))) - (__bind-core-syntax-expanders!97251 + 'bind-core-syntax-expanders!)))))) + (__bind-core-macro-expanders!97233 (make-promise (lambda () - (let ((__method97254 + (let ((__method97236 (symbolic-table-ref - __method-table97248 - 'bind-core-syntax-expanders! + __method-table97230 + 'bind-core-macro-expanders! '#f))) - (if __method97254 - __method97254 + (if __method97236 + __method97236 (error '"Missing method" - 'bind-core-syntax-expanders!))))))) - (let ((_opt-lambda9723397238_ - (lambda (_self97235_ _bind?97236_) - (if (##fx< '2 (##structure-length _self97235_)) + 'bind-core-macro-expanders!))))))) + (let ((_opt-lambda9721597220_ + (lambda (_self97217_ _bind?97218_) + (if (##fx< '2 (##structure-length _self97217_)) (begin (##unchecked-structure-set! - _self97235_ + _self97217_ 'root '1 - (##structure-type _self97235_) + (##structure-type _self97217_) '#f) (##unchecked-structure-set! - _self97235_ + _self97217_ (make-hash-table-eq) '2 - (##structure-type _self97235_) + (##structure-type _self97217_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self97235_ + _self97217_ '2 - (##vector-length _self97235_))) - (if _bind?97236_ + (##vector-length _self97217_))) + (if _bind?97218_ (begin - ((force __bind-core-syntax-expanders!97251) - _self97235_) - ((force __bind-core-macro-expanders!97250) - _self97235_) - ((force __bind-core-features!97249) _self97235_)) + ((force __bind-core-syntax-expanders!97232) + _self97217_) + ((force __bind-core-macro-expanders!97233) + _self97217_) + ((force __bind-core-features!97231) _self97217_)) '#!void)))) - (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_)) + (lambda _g97276_ + (let ((_g97275_ (##length _g97276_))) + (cond ((##fx= _g97275_ 1) + (apply (lambda (_self97223_) + (let ((_bind?97225_ '#t)) + (_opt-lambda9721597220_ + _self97223_ + _bind?97225_))) + _g97276_)) + ((##fx= _g97275_ 2) + (apply (lambda (_self97227_ _bind?97228_) + (_opt-lambda9721597220_ + _self97227_ + _bind?97228_)) + _g97276_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g97294_))))))))) + _g97276_))))))))) (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 (_self97091_ _super97092_) - (let ((_super97100_ - (let ((_$e97094_ _super97092_)) - (if _$e97094_ - _$e97094_ - (let ((_$e97097_ (gx#core-context-root__0))) - (if _$e97097_ - _$e97097_ - (let ((__obj97290 + (lambda (_self97073_ _super97074_) + (let ((_super97082_ + (let ((_$e97076_ _super97074_)) + (if _$e97076_ + _$e97076_ + (let ((_$e97079_ (gx#core-context-root__0))) + (if _$e97079_ + _$e97079_ + (let ((__obj97272 (##structure gx#root-context::t '#f '#f))) - (gx#root-context:::init! __obj97290) - __obj97290))))))) - (if (##fx< '5 (##structure-length _self97091_)) + (gx#root-context:::init! __obj97272) + __obj97272))))))) + (if (##fx< '5 (##structure-length _self97073_)) (begin (##unchecked-structure-set! - _self97091_ + _self97073_ 'top '1 - (##structure-type _self97091_) + (##structure-type _self97073_) '#f) (##unchecked-structure-set! - _self97091_ + _self97073_ (make-hash-table-eq) '2 - (##structure-type _self97091_) + (##structure-type _self97073_) '#f) (##unchecked-structure-set! - _self97091_ - _super97100_ + _self97073_ + _super97082_ '3 - (##structure-type _self97091_) + (##structure-type _self97073_) '#f) (##unchecked-structure-set! - _self97091_ + _self97073_ '#f '4 - (##structure-type _self97091_) + (##structure-type _self97073_) '#f) (##unchecked-structure-set! - _self97091_ + _self97073_ '#f '5 - (##structure-type _self97091_) + (##structure-type _self97073_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self97091_ + _self97073_ '5 - (##vector-length _self97091_)))))) + (##vector-length _self97073_)))))) (define gx#top-context:::init!__0 - (lambda (_self97105_) - (let ((_super97107_ '#f)) - (gx#top-context:::init!__% _self97105_ _super97107_)))) + (lambda (_self97087_) + (let ((_super97089_ '#f)) + (gx#top-context:::init!__% _self97087_ _super97089_)))) (define gx#top-context:::init! - (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_)) + (lambda _g97278_ + (let ((_g97277_ (##length _g97278_))) + (cond ((##fx= _g97277_ 1) + (apply (lambda (_self97087_) + (gx#top-context:::init!__0 _self97087_)) + _g97278_)) + ((##fx= _g97277_ 2) + (apply (lambda (_self97091_ _super97092_) + (gx#top-context:::init!__% _self97091_ _super97092_)) + _g97278_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g97296_)))))) + _g97278_)))))) (bind-method!__% gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_self96822_ _bindings96823_) + (lambda (_self96804_ _bindings96805_) (for-each - (lambda (_bind96825_) - (let* ((_bind9682696833_ _bind96825_) - (_E9682896837_ - (lambda () (error '"No clause matching" _bind9682696833_))) - (_K9682996946_ - (lambda (_rest96840_ _id96841_) + (lambda (_bind96807_) + (let* ((_bind9680896815_ _bind96807_) + (_E9681096819_ + (lambda () (error '"No clause matching" _bind9680896815_))) + (_K9681196928_ + (lambda (_rest96822_ _id96823_) (gx#core-context-put! - _self96822_ - _id96841_ + _self96804_ + _id96823_ (##structure gx#syntax-binding::t - _id96841_ - _id96841_ + _id96823_ + _id96823_ '#f - (let* ((_rest9684296853_ _rest96840_) - (_E9684496857_ + (let* ((_rest9682496835_ _rest96822_) + (_E9682696839_ (lambda () (error '"No clause matching" - _rest9684296853_))) - (_K9684596922_ - (lambda (_compiler96860_ - _expander96861_ - _key96862_) - ((let* ((_key9686396876_ _key96862_) - (_E9686996880_ + _rest9682496835_))) + (_K9682796904_ + (lambda (_compiler96842_ + _expander96843_ + _key96844_) + ((let* ((_key9684596858_ _key96844_) + (_E9685196862_ (lambda () (error '"No clause matching" - _key9686396876_)))) - (let ((_K9687496916_ + _key9684596858_)))) + (let ((_K9685696898_ (lambda () gx#make-top-special-form)) - (_K9687396909_ + (_K9685596891_ (lambda () gx#make-module-special-form)) - (_K9687296901_ + (_K9685496883_ (lambda () gx#make-definition-form)) - (_K9687196893_ + (_K9685396875_ (lambda () gx#make-special-form)) - (_K9687096885_ + (_K9685296867_ (lambda () gx#make-expression-form))) - (let* ((_try-match9686896888_ + (let* ((_try-match9685096870_ (lambda () - (if (##eq? _key9686396876_ + (if (##eq? _key9684596858_ 'expr:) - (_K9687096885_) - (_E9686996880_)))) - (_try-match9686796896_ + (_K9685296867_) + (_E9685196862_)))) + (_try-match9684996878_ (lambda () - (if (##eq? _key9686396876_ + (if (##eq? _key9684596858_ 'special:) - (_K9687196893_) - (_try-match9686896888_)))) - (_try-match9686696904_ + (_K9685396875_) + (_try-match9685096870_)))) + (_try-match9684896886_ (lambda () - (if (##eq? _key9686396876_ + (if (##eq? _key9684596858_ 'define:) - (_K9687296901_) - (_try-match9686796896_)))) - (_try-match9686596912_ + (_K9685496883_) + (_try-match9684996878_)))) + (_try-match9684796894_ (lambda () - (if (##eq? _key9686396876_ + (if (##eq? _key9684596858_ 'module:) - (_K9687396909_) - (_try-match9686696904_))))) - (if (##eq? _key9686396876_ 'top:) - (_K9687496916_) - (_try-match9686596912_))))) - _expander96861_ - _id96841_ - (let ((_$e96919_ _compiler96860_)) - (if _$e96919_ - _$e96919_ + (_K9685596891_) + (_try-match9684896886_))))) + (if (##eq? _key9684596858_ 'top:) + (_K9685696898_) + (_try-match9684796894_))))) + _expander96843_ + _id96823_ + (let ((_$e96901_ _compiler96842_)) + (if _$e96901_ + _$e96901_ gx#core-compile-top-error)))))) - (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_))) + (if (##pair? _rest9682496835_) + (let ((_hd9682896907_ (##car _rest9682496835_)) + (_tl9682996909_ (##cdr _rest9682496835_))) + (let ((_key96912_ _hd9682896907_)) + (if (##pair? _tl9682996909_) + (let ((_hd9683096914_ + (##car _tl9682996909_)) + (_tl9683196916_ + (##cdr _tl9682996909_))) + (let ((_expander96919_ _hd9683096914_)) + (if (##pair? _tl9683196916_) + (let ((_hd9683296921_ + (##car _tl9683196916_)) + (_tl9683396923_ + (##cdr _tl9683196916_))) + (let ((_compiler96926_ + _hd9683296921_)) + (if (##null? _tl9683396923_) + (_K9682796904_ + _compiler96926_ + _expander96919_ + _key96912_) + (_E9682696839_)))) + (_E9682696839_)))) + (_E9682696839_)))) + (_E9682696839_)))))))) + (if (##pair? _bind9680896815_) + (let ((_hd9681296931_ (##car _bind9680896815_)) + (_tl9681396933_ (##cdr _bind9680896815_))) + (let* ((_id96936_ _hd9681296931_) + (_rest96938_ _tl9681396933_)) + (_K9681196928_ _rest96938_ _id96936_))) + (_E9681096819_)))) + _bindings96805_))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_self96961_) - (let ((_bindings96963_ gx#*core-syntax-expanders*)) + (lambda (_self96943_) + (let ((_bindings96945_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _self96961_ - _bindings96963_)))) + _self96943_ + _bindings96945_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g97298_ - (let ((_g97297_ (##length _g97298_))) - (cond ((##fx= _g97297_ 1) - (apply (lambda (_self96961_) + (lambda _g97280_ + (let ((_g97279_ (##length _g97280_))) + (cond ((##fx= _g97279_ 1) + (apply (lambda (_self96943_) (gx#expander-context::bind-core-syntax-expanders!__0 - _self96961_)) - _g97298_)) - ((##fx= _g97297_ 2) - (apply (lambda (_self96965_ _bindings96966_) + _self96943_)) + _g97280_)) + ((##fx= _g97279_ 2) + (apply (lambda (_self96947_ _bindings96948_) (gx#expander-context::bind-core-syntax-expanders!__% - _self96965_ - _bindings96966_)) - _g97298_)) + _self96947_ + _bindings96948_)) + _g97280_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g97298_)))))) + _g97280_)))))) (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 (_self96594_ _bindings96595_) + (lambda (_self96576_ _bindings96577_) (for-each - (lambda (_bind96597_) - (let* ((_bind9659896605_ _bind96597_) - (_E9660096609_ - (lambda () (error '"No clause matching" _bind9659896605_))) - (_K9660196677_ - (lambda (_rest96612_ _id96613_) + (lambda (_bind96579_) + (let* ((_bind9658096587_ _bind96579_) + (_E9658296591_ + (lambda () (error '"No clause matching" _bind9658096587_))) + (_K9658396659_ + (lambda (_rest96594_ _id96595_) (gx#core-context-put! - _self96594_ - _id96613_ + _self96576_ + _id96595_ (##structure gx#syntax-binding::t - _id96613_ - _id96613_ + _id96595_ + _id96595_ '#f - (let* ((_rest9661496629_ _rest96612_) - (_E9661896633_ + (let* ((_rest9659696611_ _rest96594_) + (_E9660096615_ (lambda () (error '"No clause matching" - _rest9661496629_)))) - (let ((_K9662396662_ - (lambda (_core-id96660_) + _rest9659696611_)))) + (let ((_K9660596644_ + (lambda (_core-id96642_) (##structure gx#rename-macro-expander::t - _core-id96660_))) - (_K9662096647_ - (lambda (_proc96645_) + _core-id96642_))) + (_K9660296629_ + (lambda (_proc96627_) (##structure gx#macro-expander::t - _proc96645_))) - (_K9661996638_ + _proc96627_))) + (_K9660196620_ (lambda () (##structure gx#reserved-expander::t - _id96613_)))) - (let ((_try-match9661796641_ + _id96595_)))) + (let ((_try-match9659996623_ (lambda () - (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_)) + (if (##null? _rest9659696611_) + (_K9660196620_) + (_E9660096615_))))) + (if (##pair? _rest9659696611_) + (let ((_tl9660796649_ + (##cdr _rest9659696611_)) + (_hd9660696647_ + (##car _rest9659696611_))) + (if (##eq? _hd9660696647_ '=>) + (if (##pair? _tl9660796649_) + (let ((_tl9660996654_ + (##cdr _tl9660796649_)) + (_hd9660896652_ + (##car _tl9660796649_))) + (if (##null? _tl9660996654_) + (let ((_core-id96657_ + _hd9660896652_)) (##structure gx#rename-macro-expander::t - _core-id96675_)) - (_E9661896633_))) - (if (##null? _tl9662596667_) - (let ((_proc96655_ - _hd9662496665_)) + _core-id96657_)) + (_E9660096615_))) + (if (##null? _tl9660796649_) + (let ((_proc96637_ + _hd9660696647_)) (##structure gx#macro-expander::t - _proc96655_)) - (_E9661896633_))) - (if (##null? _tl9662596667_) - (let ((_proc96655_ _hd9662496665_)) + _proc96637_)) + (_E9660096615_))) + (if (##null? _tl9660796649_) + (let ((_proc96637_ _hd9660696647_)) (##structure gx#macro-expander::t - _proc96655_)) - (_E9661896633_)))) - (_try-match9661796641_)))))))))) - (if (##pair? _bind9659896605_) - (let ((_hd9660296680_ (##car _bind9659896605_)) - (_tl9660396682_ (##cdr _bind9659896605_))) - (let* ((_id96685_ _hd9660296680_) - (_rest96687_ _tl9660396682_)) - (_K9660196677_ _rest96687_ _id96685_))) - (_E9660096609_)))) - _bindings96595_))) + _proc96637_)) + (_E9660096615_)))) + (_try-match9659996623_)))))))))) + (if (##pair? _bind9658096587_) + (let ((_hd9658496662_ (##car _bind9658096587_)) + (_tl9658596664_ (##cdr _bind9658096587_))) + (let* ((_id96667_ _hd9658496662_) + (_rest96669_ _tl9658596664_)) + (_K9658396659_ _rest96669_ _id96667_))) + (_E9658296591_)))) + _bindings96577_))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_self96692_) - (let ((_bindings96694_ gx#*core-macro-expanders*)) + (lambda (_self96674_) + (let ((_bindings96676_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _self96692_ - _bindings96694_)))) + _self96674_ + _bindings96676_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g97300_ - (let ((_g97299_ (##length _g97300_))) - (cond ((##fx= _g97299_ 1) - (apply (lambda (_self96692_) + (lambda _g97282_ + (let ((_g97281_ (##length _g97282_))) + (cond ((##fx= _g97281_ 1) + (apply (lambda (_self96674_) (gx#expander-context::bind-core-macro-expanders!__0 - _self96692_)) - _g97300_)) - ((##fx= _g97299_ 2) - (apply (lambda (_self96696_ _bindings96697_) + _self96674_)) + _g97282_)) + ((##fx= _g97281_ 2) + (apply (lambda (_self96678_ _bindings96679_) (gx#expander-context::bind-core-macro-expanders!__% - _self96696_ - _bindings96697_)) - _g97300_)) + _self96678_ + _bindings96679_)) + _g97282_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g97300_)))))) + _g97282_)))))) (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 (_self96338_) - (letrec ((_linux-variant?96340_ - (lambda (_sys-type96439_) - (let* ((_g9644096448_ + (lambda (_self96320_) + (letrec ((_linux-variant?96322_ + (lambda (_sys-type96421_) + (let* ((_g9642296430_ (string-split - (symbol->string _sys-type96439_) + (symbol->string _sys-type96421_) '#\-)) - (_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_ + (_else9642496438_ (lambda () '#f)) + (_K9642696443_ + (lambda (_rest96441_) (not (null? _rest96441_))))) + (if (##pair? _g9642296430_) + (let ((_hd9642796446_ (##car _g9642296430_)) + (_tl9642896448_ (##cdr _g9642296430_))) + (if (equal? _hd9642796446_ '"linux") + (let ((_rest96451_ _tl9642896448_)) + (_K9642696443_ _rest96451_)) + (_else9642496438_))) + (_else9642496438_))))) + (_bsd-variant96323_ + (lambda (_sys-type96380_) + (let ((_sys-type-str96382_ + (symbol->string _sys-type96380_))) + (let _lp96384_ ((_rest96386_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_rest9640596413_ _rest96404_) - (_else9640796421_ (lambda () '#f)) - (_K9640996427_ - (lambda (_rest96424_ _sys96425_) + (let* ((_rest9638796395_ _rest96386_) + (_else9638996403_ (lambda () '#f)) + (_K9639196409_ + (lambda (_rest96406_ _sys96407_) (if (string-prefix? - _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_) + _sys96407_ + _sys-type-str96382_) + _sys96407_ + (_lp96384_ _rest96406_))))) + (if (##pair? _rest9638796395_) + (let ((_hd9639296412_ (##car _rest9638796395_)) + (_tl9639396414_ (##cdr _rest9638796395_))) + (let* ((_sys96417_ _hd9639296412_) + (_rest96419_ _tl9639396414_)) + (_K9639196409_ _rest96419_ _sys96417_))) + (_else9638996403_)))))))) + (gx#core-bind-feature!__% 'gerbil '#f '0 _self96320_) + (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self96320_) + (let* ((_g9632496336_ (system-type)) + (_else9632696344_ (lambda () '#!void)) + (_K9632896356_ + (lambda (_sys-type96347_ _sys-vendor96348_ _sys-cpu96349_) (gx#core-bind-feature!__% - _sys-cpu96367_ + _sys-cpu96349_ '#f '0 - _self96338_) + _self96320_) (gx#core-bind-feature!__% - _sys-type96365_ + _sys-type96347_ '#f '0 - _self96338_) - (if (_linux-variant?96340_ _sys-type96365_) + _self96320_) + (if (_linux-variant?96322_ _sys-type96347_) (gx#core-bind-feature!__% (string->symbol '"linux") '#f '0 - _self96338_) - (let ((_$e96369_ (_bsd-variant96341_ _sys-type96365_))) - (if _$e96369_ - ((lambda (_sys-prefix96372_) + _self96320_) + (let ((_$e96351_ (_bsd-variant96323_ _sys-type96347_))) + (if _$e96351_ + ((lambda (_sys-prefix96354_) (gx#core-bind-feature!__% (string->symbol '"bsd") '#f '0 - _self96338_) + _self96320_) (gx#core-bind-feature!__% - (string->symbol _sys-prefix96372_) + (string->symbol _sys-prefix96354_) '#f '0 - _self96338_)) - _$e96369_) + _self96320_)) + _$e96351_) '#!void)))))) - (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_) + (if (##pair? _g9632496336_) + (let ((_hd9632996359_ (##car _g9632496336_)) + (_tl9633096361_ (##cdr _g9632496336_))) + (let ((_sys-cpu96364_ _hd9632996359_)) + (if (##pair? _tl9633096361_) + (let ((_hd9633196366_ (##car _tl9633096361_)) + (_tl9633296368_ (##cdr _tl9633096361_))) + (let ((_sys-vendor96371_ _hd9633196366_)) + (if (##pair? _tl9633296368_) + (let ((_hd9633396373_ (##car _tl9633296368_)) + (_tl9633496375_ (##cdr _tl9633296368_))) + (let ((_sys-type96378_ _hd9633396373_)) + (if (##null? _tl9633496375_) + (_K9632896356_ + _sys-type96378_ + _sys-vendor96371_ + _sys-cpu96364_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self96338_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self96320_) '#!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 7641b9ccc..6859e18e3 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 1710833424) + (define gerbil/expander/stxcase::timestamp 1710943498) (begin (define gx#syntax-pattern::t - (let ((__tmp98652 (list gx#expander::t)) - (__tmp98650 - (let ((__tmp98651 + (let ((__tmp98634 (list gx#expander::t)) + (__tmp98632 + (let ((__tmp98633 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp98651 '())))) + (cons __tmp98633 '())))) (declare (not safe)) (make-class-type 'gx#syntax-pattern::t 'syntax-pattern - __tmp98652 + __tmp98634 '(id depth) - __tmp98650 + __tmp98632 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _$args98647_ - (apply make-instance gx#syntax-pattern::t _$args98647_))) + (lambda _$args98629_ + (apply make-instance gx#syntax-pattern::t _$args98629_))) (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 (_self98644_ _stx98645_) + (lambda (_self98626_ _stx98627_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _stx98645_)))) + _stx98627_)))) (let () (declare (not safe)) (bind-method!__% @@ -88,699 +88,699 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_stx98126_) - (letrec ((_generate98128_ - (lambda (_e98355_) - (letrec ((_BUG98357_ - (lambda (_q98519_) + (lambda (_stx98108_) + (letrec ((_generate98110_ + (lambda (_e98337_) + (letrec ((_BUG98339_ + (lambda (_q98501_) (let () (declare (not safe)) (error '"BUG: syntax; generate" - _stx98126_ - _e98355_ - _q98519_)))) - (_local-pattern-e98358_ - (lambda (_pat98517_) - (let ((__tmp98653 + _stx98108_ + _e98337_ + _q98501_)))) + (_local-pattern-e98340_ + (lambda (_pat98499_) + (let ((__tmp98635 (##structure-ref - _pat98517_ + _pat98499_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp98653)))) - (_getvar98359_ - (lambda (_q98514_ _vars98515_) + (gx#syntax-local-rewrap __tmp98635)))) + (_getvar98341_ + (lambda (_q98496_ _vars98497_) (let () (declare (not safe)) (assgetq__% - _q98514_ - _vars98515_ - _BUG98357_)))) - (_getarg98360_ - (lambda (_arg98480_ _vars98481_) - (let* ((_arg9848298489_ _arg98480_) - (_E9848498493_ + _q98496_ + _vars98497_ + _BUG98339_)))) + (_getarg98342_ + (lambda (_arg98462_ _vars98463_) + (let* ((_arg9846498471_ _arg98462_) + (_E9846698475_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _arg9848298489_)))) - (_K9848598502_ - (lambda (_e98496_ _tag98497_) - (let ((_$e98499_ _tag98497_)) + _arg9846498471_)))) + (_K9846798484_ + (lambda (_e98478_ _tag98479_) + (let ((_$e98481_ _tag98479_)) (if (let () (declare (not safe)) - (eq? 'ref _$e98499_)) + (eq? 'ref _$e98481_)) (let () (declare (not safe)) - (_getvar98359_ - _e98496_ - _vars98481_)) + (_getvar98341_ + _e98478_ + _vars98463_)) (if (let () (declare (not safe)) - (eq? 'pattern _$e98499_)) + (eq? 'pattern _$e98481_)) (let () (declare (not safe)) - (_local-pattern-e98358_ - _e98496_)) + (_local-pattern-e98340_ + _e98478_)) (let () (declare (not safe)) - (_BUG98357_ - _arg98480_)))))))) + (_BUG98339_ + _arg98462_)))))))) (if (let () (declare (not safe)) - (##pair? _arg9848298489_)) - (let ((_hd9848698505_ + (##pair? _arg9846498471_)) + (let ((_hd9846898487_ (let () (declare (not safe)) - (##car _arg9848298489_))) - (_tl9848798507_ + (##car _arg9846498471_))) + (_tl9846998489_ (let () (declare (not safe)) - (##cdr _arg9848298489_)))) - (let* ((_tag98510_ _hd9848698505_) - (_e98512_ _tl9848798507_)) + (##cdr _arg9846498471_)))) + (let* ((_tag98492_ _hd9846898487_) + (_e98494_ _tl9846998489_)) (declare (not safe)) - (_K9848598502_ _e98512_ _tag98510_))) + (_K9846798484_ _e98494_ _tag98492_))) (let () (declare (not safe)) - (_E9848498493_))))))) - (let _recur98362_ ((_e98364_ _e98355_) (_vars98365_ '())) - (let* ((_e9836698373_ _e98364_) - (_E9836898377_ + (_E9846698475_))))))) + (let _recur98344_ ((_e98346_ _e98337_) (_vars98347_ '())) + (let* ((_e9834898355_ _e98346_) + (_E9835098359_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9836698373_)))) - (_K9836998468_ - (lambda (_body98380_ _tag98381_) - (let ((_$e98383_ _tag98381_)) + _e9834898355_)))) + (_K9835198450_ + (lambda (_body98362_ _tag98363_) + (let ((_$e98365_ _tag98363_)) (if (let () (declare (not safe)) - (eq? 'datum _$e98383_)) + (eq? 'datum _$e98365_)) (let () (declare (not safe)) - (gx#core-list 'quote _body98380_)) + (gx#core-list 'quote _body98362_)) (if (let () (declare (not safe)) - (eq? 'term _$e98383_)) - (let ((_id98386_ + (eq? 'term _$e98365_)) + (let ((_id98368_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _body98380_)))) + _body98362_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id98386_ + _id98368_ 'gx#identifier-wrap::t)) - (let ((_marks98388_ + (let ((_marks98370_ (let () (declare (not safe)) (##unchecked-structure-ref - _id98386_ + _id98368_ '3 gx#identifier-wrap::t '#f)))) (if (let () (declare (not safe)) - (null? _marks98388_)) - (let ((__tmp98681 + (null? _marks98370_)) + (let ((__tmp98663 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _body98380_)))) + (gx#core-list 'quote _body98362_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp98681)) - (let ((__tmp98680 + (gx#core-list 'datum->syntax '#f __tmp98663)) + (let ((__tmp98662 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _body98380_))) - (__tmp98679 + (gx#core-list 'quote-syntax _body98362_))) + (__tmp98661 (let () (declare (not safe)) - (gx#core-list 'quote _body98380_)))) + (gx#core-list 'quote _body98362_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp98680 - __tmp98679 + __tmp98662 + __tmp98661 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id98386_ + _id98368_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _body98380_)) + _body98362_)) (let () (declare (not safe)) - (_BUG98357_ - _e98364_))))) + (_BUG98339_ + _e98346_))))) (if (let () (declare (not safe)) - (eq? 'pattern _$e98383_)) + (eq? 'pattern _$e98365_)) (let () (declare (not safe)) - (_local-pattern-e98358_ - _body98380_)) + (_local-pattern-e98340_ + _body98362_)) (if (let () (declare (not safe)) - (eq? 'ref _$e98383_)) + (eq? 'ref _$e98365_)) (let () (declare (not safe)) - (_getvar98359_ - _body98380_ - _vars98365_)) + (_getvar98341_ + _body98362_ + _vars98347_)) (if (let () (declare (not safe)) (eq? 'cons - _$e98383_)) - (let ((__tmp98677 - (let ((__tmp98678 + _$e98365_)) + (let ((__tmp98659 + (let ((__tmp98660 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _body98380_))) + (car _body98362_))) (declare (not safe)) - (_recur98362_ __tmp98678 _vars98365_))) - (__tmp98675 - (let ((__tmp98676 (cdr _body98380_))) + (_recur98344_ __tmp98660 _vars98347_))) + (__tmp98657 + (let ((__tmp98658 (cdr _body98362_))) (declare (not safe)) - (_recur98362_ __tmp98676 _vars98365_)))) + (_recur98344_ __tmp98658 _vars98347_)))) (declare (not safe)) - (gx#core-list 'cons __tmp98677 __tmp98675)) - (if (let () (declare (not safe)) (eq? 'vector _$e98383_)) - (let ((__tmp98674 + (gx#core-list 'cons __tmp98659 __tmp98657)) + (if (let () (declare (not safe)) (eq? 'vector _$e98365_)) + (let ((__tmp98656 (let () (declare (not safe)) - (_recur98362_ _body98380_ _vars98365_)))) + (_recur98344_ _body98362_ _vars98347_)))) (declare (not safe)) - (gx#core-list 'list->vector __tmp98674)) - (if (let () (declare (not safe)) (eq? 'box _$e98383_)) - (let ((__tmp98673 + (gx#core-list 'list->vector __tmp98656)) + (if (let () (declare (not safe)) (eq? 'box _$e98365_)) + (let ((__tmp98655 (let () (declare (not safe)) - (_recur98362_ _body98380_ _vars98365_)))) + (_recur98344_ _body98362_ _vars98347_)))) (declare (not safe)) - (gx#core-list 'box __tmp98673)) + (gx#core-list 'box __tmp98655)) (if (let () (declare (not safe)) - (eq? 'splice _$e98383_)) - (let* ((_body9838998400_ _body98380_) - (_E9839198404_ + (eq? 'splice _$e98365_)) + (let* ((_body9837198382_ _body98362_) + (_E9837398386_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _body9838998400_)))) - (_K9839298442_ - (lambda (_args98407_ - _iv98408_ - _hd98409_ - _depth98410_) - (let* ((_targets98416_ - (map (lambda (_g9841198413_) + _body9837198382_)))) + (_K9837498424_ + (lambda (_args98389_ + _iv98390_ + _hd98391_ + _depth98392_) + (let* ((_targets98398_ + (map (lambda (_g9839398395_) (let () (declare (not safe)) - (_getarg98360_ - _g9841198413_ - _vars98365_))) - _args98407_)) - (_fold-in98418_ + (_getarg98342_ + _g9839398395_ + _vars98347_))) + _args98389_)) + (_fold-in98400_ (let () (declare (not safe)) - (gx#gentemps _args98407_))) - (_fold-out98420_ + (gx#gentemps _args98389_))) + (_fold-out98402_ (let () (declare (not safe)) (gx#genident__0))) - (_lambda-args98422_ - (let ((__tmp98654 + (_lambda-args98404_ + (let ((__tmp98636 (let () (declare (not safe)) - (cons _fold-out98420_ + (cons _fold-out98402_ '())))) (declare (not safe)) (foldr1 cons - __tmp98654 - _fold-in98418_))) - (_lambda-body98439_ - (if (fx> _depth98410_ '1) - (let ((_r-args98430_ - (map (lambda (_arg98424_) - (let ((__tmp98659 + __tmp98636 + _fold-in98400_))) + (_lambda-body98421_ + (if (fx> _depth98392_ '1) + (let ((_r-args98412_ + (map (lambda (_arg98406_) + (let ((__tmp98641 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _arg98424_))) + (cdr _arg98406_))) (declare (not safe)) - (cons 'ref __tmp98659))) - _args98407_)) - (_r-vars98431_ - (let ((__tmp98660 - (lambda (_arg98426_ _var98427_ _r98428_) - (let ((__tmp98661 - (let ((__tmp98662 (cdr _arg98426_))) + (cons 'ref __tmp98641))) + _args98389_)) + (_r-vars98413_ + (let ((__tmp98642 + (lambda (_arg98408_ _var98409_ _r98410_) + (let ((__tmp98643 + (let ((__tmp98644 (cdr _arg98408_))) (declare (not safe)) - (cons __tmp98662 _var98427_)))) + (cons __tmp98644 _var98409_)))) (declare (not safe)) - (cons __tmp98661 _r98428_))))) + (cons __tmp98643 _r98410_))))) (declare (not safe)) - (foldr2 __tmp98660 - _vars98365_ - _args98407_ - _fold-in98418_)))) + (foldr2 __tmp98642 + _vars98347_ + _args98389_ + _fold-in98400_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp98663 - (let ((__tmp98664 + (let ((__tmp98645 + (let ((__tmp98646 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp98668 + (let ((__tmp98650 (let () (declare (not safe)) - (fx- _depth98410_ '1))) - (__tmp98665 - (let ((__tmp98666 - (let ((__tmp98667 + (fx- _depth98392_ '1))) + (__tmp98647 + (let ((__tmp98648 + (let ((__tmp98649 (let () (declare (not safe)) - (cons 'var _fold-out98420_)))) + (cons 'var _fold-out98402_)))) (declare (not safe)) - (cons __tmp98667 _r-args98430_)))) + (cons __tmp98649 _r-args98412_)))) (declare (not safe)) - (cons _hd98409_ __tmp98666)))) + (cons _hd98391_ __tmp98648)))) (declare (not safe)) - (cons __tmp98668 __tmp98665)))) + (cons __tmp98650 __tmp98647)))) (declare (not safe)) - (cons 'splice __tmp98664)))) + (cons 'splice __tmp98646)))) (declare (not safe)) - (_recur98362_ __tmp98663 _r-vars98431_))) + (_recur98344_ __tmp98645 _r-vars98413_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_hd-vars98437_ - (let ((__tmp98655 + (let* ((_hd-vars98419_ + (let ((__tmp98637 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_arg98433_ _var98434_ _r98435_) - (let ((__tmp98656 - (let ((__tmp98657 (cdr _arg98433_))) + (lambda (_arg98415_ _var98416_ _r98417_) + (let ((__tmp98638 + (let ((__tmp98639 (cdr _arg98415_))) (declare (not safe)) - (cons __tmp98657 _var98434_)))) + (cons __tmp98639 _var98416_)))) (declare (not safe)) - (cons __tmp98656 _r98435_))))) + (cons __tmp98638 _r98417_))))) (declare (not safe)) - (foldr2 __tmp98655 - _vars98365_ - _args98407_ - _fold-in98418_))) - (__tmp98658 + (foldr2 __tmp98637 + _vars98347_ + _args98389_ + _fold-in98400_))) + (__tmp98640 (let () (declare (not safe)) - (_recur98362_ _hd98409_ _hd-vars98437_)))) + (_recur98344_ _hd98391_ _hd-vars98419_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp98658 - _fold-out98420_))))) - (let ((__tmp98672 - (if (fx> (length _targets98416_) + __tmp98640 + _fold-out98402_))))) + (let ((__tmp98654 + (if (fx> (length _targets98398_) '1) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _targets98416_)) + _targets98398_)) '#!void)) - (__tmp98669 - (let ((__tmp98671 + (__tmp98651 + (let ((__tmp98653 (let () (declare (not safe)) (gx#core-list 'lambda% - _lambda-args98422_ - _lambda-body98439_))) - (__tmp98670 + _lambda-args98404_ + _lambda-body98421_))) + (__tmp98652 (let () (declare (not safe)) - (_recur98362_ - _iv98408_ - _vars98365_)))) + (_recur98344_ + _iv98390_ + _vars98347_)))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp98671 - __tmp98670 - _targets98416_)))) + __tmp98653 + __tmp98652 + _targets98398_)))) (declare (not safe)) (gx#core-list 'begin - __tmp98672 - __tmp98669)))))) + __tmp98654 + __tmp98651)))))) (if (let () (declare (not safe)) - (##pair? _body9838998400_)) - (let ((_hd9839398445_ + (##pair? _body9837198382_)) + (let ((_hd9837598427_ (let () (declare (not safe)) - (##car _body9838998400_))) - (_tl9839498447_ + (##car _body9837198382_))) + (_tl9837698429_ (let () (declare (not safe)) - (##cdr _body9838998400_)))) - (let ((_depth98450_ _hd9839398445_)) + (##cdr _body9837198382_)))) + (let ((_depth98432_ _hd9837598427_)) (if (let () (declare (not safe)) - (##pair? _tl9839498447_)) - (let ((_hd9839598452_ + (##pair? _tl9837698429_)) + (let ((_hd9837798434_ (let () (declare (not safe)) - (##car _tl9839498447_))) - (_tl9839698454_ + (##car _tl9837698429_))) + (_tl9837898436_ (let () (declare (not safe)) - (##cdr _tl9839498447_)))) - (let ((_hd98457_ _hd9839598452_)) + (##cdr _tl9837698429_)))) + (let ((_hd98439_ _hd9837798434_)) (if (let () (declare (not safe)) - (##pair? _tl9839698454_)) - (let ((_hd9839798459_ + (##pair? _tl9837898436_)) + (let ((_hd9837998441_ (let () (declare (not safe)) - (##car _tl9839698454_))) - (_tl9839898461_ + (##car _tl9837898436_))) + (_tl9838098443_ (let () (declare (not safe)) - (##cdr _tl9839698454_)))) - (let* ((_iv98464_ - _hd9839798459_) - (_args98466_ - _tl9839898461_)) + (##cdr _tl9837898436_)))) + (let* ((_iv98446_ + _hd9837998441_) + (_args98448_ + _tl9838098443_)) (declare (not safe)) - (_K9839298442_ - _args98466_ - _iv98464_ - _hd98457_ - _depth98450_))) + (_K9837498424_ + _args98448_ + _iv98446_ + _hd98439_ + _depth98432_))) (let () (declare (not safe)) - (_E9839198404_))))) + (_E9837398386_))))) (let () (declare (not safe)) - (_E9839198404_))))) + (_E9837398386_))))) (let () (declare (not safe)) - (_E9839198404_)))) + (_E9837398386_)))) (if (let () (declare (not safe)) - (eq? 'var _$e98383_)) - _body98380_ + (eq? 'var _$e98365_)) + _body98362_ (let () (declare (not safe)) - (_BUG98357_ _e98364_))))))))))))))) + (_BUG98339_ _e98346_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9836698373_)) - (let ((_hd9837098471_ + (##pair? _e9834898355_)) + (let ((_hd9835298453_ (let () (declare (not safe)) - (##car _e9836698373_))) - (_tl9837198473_ + (##car _e9834898355_))) + (_tl9835398455_ (let () (declare (not safe)) - (##cdr _e9836698373_)))) - (let* ((_tag98476_ _hd9837098471_) - (_body98478_ _tl9837198473_)) + (##cdr _e9834898355_)))) + (let* ((_tag98458_ _hd9835298453_) + (_body98460_ _tl9835398455_)) (declare (not safe)) - (_K9836998468_ _body98478_ _tag98476_))) + (_K9835198450_ _body98460_ _tag98458_))) (let () (declare (not safe)) - (_E9836898377_)))))))) - (_parse98129_ - (lambda (_e98170_) - (letrec ((_make-cons98172_ - (lambda (_hd98347_ _tl98348_) - (let ((_g98682_ _hd98347_) - (_g98684_ _tl98348_)) + (_E9835098359_)))))))) + (_parse98111_ + (lambda (_e98152_) + (letrec ((_make-cons98154_ + (lambda (_hd98329_ _tl98330_) + (let ((_g98664_ _hd98329_) + (_g98666_ _tl98330_)) (begin - (let ((_g98683_ + (let ((_g98665_ (let () (declare (not safe)) - (if (##values? _g98682_) - (##vector-length _g98682_) + (if (##values? _g98664_) + (##vector-length _g98664_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98683_ 2))) + (##fx= _g98665_ 2))) (error "Context expects 2 values" - _g98683_))) - (let ((_g98685_ + _g98665_))) + (let ((_g98667_ (let () (declare (not safe)) - (if (##values? _g98684_) - (##vector-length _g98684_) + (if (##values? _g98666_) + (##vector-length _g98666_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98685_ 2))) + (##fx= _g98667_ 2))) (error "Context expects 2 values" - _g98685_))) - (let ((_hd-e98350_ + _g98667_))) + (let ((_hd-e98332_ (let () (declare (not safe)) - (##vector-ref _g98682_ 0))) - (_hd-vars98351_ + (##vector-ref _g98664_ 0))) + (_hd-vars98333_ (let () (declare (not safe)) - (##vector-ref _g98682_ 1)))) - (let ((_tl-e98352_ + (##vector-ref _g98664_ 1)))) + (let ((_tl-e98334_ (let () (declare (not safe)) - (##vector-ref _g98684_ 0))) - (_tl-vars98353_ + (##vector-ref _g98666_ 0))) + (_tl-vars98335_ (let () (declare (not safe)) - (##vector-ref _g98684_ 1)))) - (values (let ((__tmp98686 + (##vector-ref _g98666_ 1)))) + (values (let ((__tmp98668 (let () (declare (not safe)) - (cons _hd-e98350_ - _tl-e98352_)))) + (cons _hd-e98332_ + _tl-e98334_)))) (declare (not safe)) - (cons 'cons __tmp98686)) - (append _hd-vars98351_ - _tl-vars98353_)))))))) - (_make-splice98173_ - (lambda (_where98286_ - _depth98287_ - _hd98288_ - _tl98289_) - (let ((_g98687_ _hd98288_) - (_g98689_ _tl98289_)) + (cons 'cons __tmp98668)) + (append _hd-vars98333_ + _tl-vars98335_)))))))) + (_make-splice98155_ + (lambda (_where98268_ + _depth98269_ + _hd98270_ + _tl98271_) + (let ((_g98669_ _hd98270_) + (_g98671_ _tl98271_)) (begin - (let ((_g98688_ + (let ((_g98670_ (let () (declare (not safe)) - (if (##values? _g98687_) - (##vector-length _g98687_) + (if (##values? _g98669_) + (##vector-length _g98669_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98688_ 2))) + (##fx= _g98670_ 2))) (error "Context expects 2 values" - _g98688_))) - (let ((_g98690_ + _g98670_))) + (let ((_g98672_ (let () (declare (not safe)) - (if (##values? _g98689_) - (##vector-length _g98689_) + (if (##values? _g98671_) + (##vector-length _g98671_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98690_ 2))) + (##fx= _g98672_ 2))) (error "Context expects 2 values" - _g98690_))) - (let ((_hd-e98291_ + _g98672_))) + (let ((_hd-e98273_ (let () (declare (not safe)) - (##vector-ref _g98687_ 0))) - (_hd-vars98292_ + (##vector-ref _g98669_ 0))) + (_hd-vars98274_ (let () (declare (not safe)) - (##vector-ref _g98687_ 1)))) - (let ((_tl-e98293_ + (##vector-ref _g98669_ 1)))) + (let ((_tl-e98275_ (let () (declare (not safe)) - (##vector-ref _g98689_ 0))) - (_tl-vars98294_ + (##vector-ref _g98671_ 0))) + (_tl-vars98276_ (let () (declare (not safe)) - (##vector-ref _g98689_ 1)))) - (let _lp98296_ ((_rest98298_ - _hd-vars98292_) - (_targets98299_ '()) - (_vars98300_ - _tl-vars98294_)) - (let* ((_rest9830198311_ _rest98298_) - (_else9830398319_ + (##vector-ref _g98671_ 1)))) + (let _lp98278_ ((_rest98280_ + _hd-vars98274_) + (_targets98281_ '()) + (_vars98282_ + _tl-vars98276_)) + (let* ((_rest9828398293_ _rest98280_) + (_else9828598301_ (lambda () (if (let () (declare (not safe)) - (null? _targets98299_)) + (null? _targets98281_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx98126_ - _where98286_)) - (values (let ((__tmp98691 + _stx98108_ + _where98268_)) + (values (let ((__tmp98673 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp98692 - (let ((__tmp98693 + (let ((__tmp98674 + (let ((__tmp98675 (let () (declare (not safe)) - (cons _tl-e98293_ - _targets98299_)))) + (cons _tl-e98275_ + _targets98281_)))) (declare (not safe)) - (cons _hd-e98291_ __tmp98693)))) + (cons _hd-e98273_ __tmp98675)))) (declare (not safe)) - (cons _depth98287_ __tmp98692)))) + (cons _depth98269_ __tmp98674)))) (declare (not safe)) - (cons 'splice __tmp98691)) - _vars98300_)))) + (cons 'splice __tmp98673)) + _vars98282_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K9830598328_ - (lambda (_rest98322_ - _hd-pat98323_ - _hd-depth*98324_) - (let ((_hd-depth98326_ - (fx- _hd-depth*98324_ - _depth98287_))) + (_K9828798310_ + (lambda (_rest98304_ + _hd-pat98305_ + _hd-depth*98306_) + (let ((_hd-depth98308_ + (fx- _hd-depth*98306_ + _depth98269_))) (if (fxpositive? - _hd-depth98326_) - (let ((__tmp98698 + _hd-depth98308_) + (let ((__tmp98680 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp98699 + (let ((__tmp98681 (let () (declare (not safe)) - (cons 'ref _hd-pat98323_)))) + (cons 'ref _hd-pat98305_)))) (declare (not safe)) - (cons __tmp98699 _targets98299_))) - (__tmp98696 - (let ((__tmp98697 + (cons __tmp98681 _targets98281_))) + (__tmp98678 + (let ((__tmp98679 (let () (declare (not safe)) - (cons _hd-depth98326_ _hd-pat98323_)))) + (cons _hd-depth98308_ _hd-pat98305_)))) (declare (not safe)) - (cons __tmp98697 _vars98300_)))) + (cons __tmp98679 _vars98282_)))) (declare (not safe)) - (_lp98296_ _rest98322_ __tmp98698 __tmp98696)) - (if (let () (declare (not safe)) (fxzero? _hd-depth98326_)) - (let ((__tmp98694 - (let ((__tmp98695 + (_lp98278_ _rest98304_ __tmp98680 __tmp98678)) + (if (let () (declare (not safe)) (fxzero? _hd-depth98308_)) + (let ((__tmp98676 + (let ((__tmp98677 (let () (declare (not safe)) - (cons 'pattern _hd-pat98323_)))) + (cons 'pattern _hd-pat98305_)))) (declare (not safe)) - (cons __tmp98695 _targets98299_)))) + (cons __tmp98677 _targets98281_)))) (declare (not safe)) - (_lp98296_ _rest98322_ __tmp98694 _vars98300_)) + (_lp98278_ _rest98304_ __tmp98676 _vars98282_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _stx98126_ - _where98286_)))))))) + _stx98108_ + _where98268_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest9830198311_)) - (let ((_hd9830698331_ + (##pair? _rest9828398293_)) + (let ((_hd9828898313_ (let () (declare (not safe)) - (##car _rest9830198311_))) - (_tl9830798333_ + (##car _rest9828398293_))) + (_tl9828998315_ (let () (declare (not safe)) - (##cdr _rest9830198311_)))) + (##cdr _rest9828398293_)))) (if (let () (declare (not safe)) - (##pair? _hd9830698331_)) - (let ((_hd9830898336_ + (##pair? _hd9828898313_)) + (let ((_hd9829098318_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd9830698331_))) - (_tl9830998338_ - (let () (declare (not safe)) (##cdr _hd9830698331_)))) - (let* ((_hd-depth*98341_ _hd9830898336_) - (_hd-pat98343_ _tl9830998338_) - (_rest98345_ _tl9830798333_)) + (##car _hd9828898313_))) + (_tl9829198320_ + (let () (declare (not safe)) (##cdr _hd9828898313_)))) + (let* ((_hd-depth*98323_ _hd9829098318_) + (_hd-pat98325_ _tl9829198320_) + (_rest98327_ _tl9828998315_)) (declare (not safe)) - (_K9830598328_ _rest98345_ _hd-pat98343_ _hd-depth*98341_))) - (let () (declare (not safe)) (_else9830398319_)))) + (_K9828798310_ _rest98327_ _hd-pat98325_ _hd-depth*98323_))) + (let () (declare (not safe)) (_else9828598301_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else9830398319_))))))))))) - (_recur98174_ - (lambda (_e98179_ _is-e?98180_) - (if (_is-e?98180_ _e98179_) + (_else9828598301_))))))))))) + (_recur98156_ + (lambda (_e98161_ _is-e?98162_) + (if (_is-e?98162_ _e98161_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _stx98126_)) + _stx98108_)) (if (let () (declare (not safe)) - (gx#syntax-local-pattern? _e98179_)) - (let* ((_pat98182_ + (gx#syntax-local-pattern? _e98161_)) + (let* ((_pat98164_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _e98179_))) - (_depth98184_ + _e98161_))) + (_depth98166_ (##structure-ref - _pat98182_ + _pat98164_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _depth98184_) + (if (fxpositive? _depth98166_) (values (let () (declare (not safe)) - (cons 'ref _pat98182_)) - (let ((__tmp98715 + (cons 'ref _pat98164_)) + (let ((__tmp98697 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _depth98184_ _pat98182_)))) + (cons _depth98166_ _pat98164_)))) (declare (not safe)) - (cons __tmp98715 '()))) + (cons __tmp98697 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (let () (declare (not safe)) (cons 'pattern - _pat98182_)) + _pat98164_)) '()))) (if (let () (declare (not safe)) - (gx#identifier? _e98179_)) + (gx#identifier? _e98161_)) (values (let () (declare (not safe)) - (cons 'term _e98179_)) + (cons 'term _e98161_)) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _e98179_)) - (let* ((_e9818698193_ _e98179_) - (_E9818898197_ + (gx#stx-pair? _e98161_)) + (let* ((_e9816898175_ _e98161_) + (_E9817098179_ (lambda () (let () (declare @@ -788,2429 +788,2429 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9818698193_)))) - (_E9818798276_ + _e9816898175_)))) + (_E9816998258_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _e9818698193_)) - (let ((_e9818998201_ + (gx#stx-pair? _e9816898175_)) + (let ((_e9817198183_ (let () (declare (not safe)) - (gx#syntax-e _e9818698193_)))) - (let ((_hd9819098204_ + (gx#syntax-e _e9816898175_)))) + (let ((_hd9817298186_ (let () (declare (not safe)) - (##car _e9818998201_))) - (_tl9819198206_ + (##car _e9817198183_))) + (_tl9817398188_ (let () (declare (not safe)) - (##cdr _e9818998201_)))) - (let* ((_hd98209_ _hd9819098204_) - (_rest98211_ _tl9819198206_)) + (##cdr _e9817198183_)))) + (let* ((_hd98191_ _hd9817298186_) + (_rest98193_ _tl9817398188_)) (if '#t - (if (_is-e?98180_ _hd98209_) - (let* ((_e9821298219_ _rest98211_) - (_E9821498223_ + (if (_is-e?98162_ _hd98191_) + (let* ((_e9819498201_ _rest98193_) + (_E9819698205_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _stx98126_ - _e98179_)))) - (_E9821398237_ + _stx98108_ + _e98161_)))) + (_E9819598219_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e9821298219_)) - (let ((_e9821598227_ + _e9819498201_)) + (let ((_e9819798209_ (let () (declare (not safe)) (gx#syntax-e - _e9821298219_)))) - (let ((_hd9821698230_ + _e9819498201_)))) + (let ((_hd9819898212_ (let () (declare (not safe)) - (##car _e9821598227_))) - (_tl9821798232_ + (##car _e9819798209_))) + (_tl9819998214_ (let () (declare (not safe)) - (##cdr _e9821598227_)))) - (let ((_rest98235_ - _hd9821698230_)) + (##cdr _e9819798209_)))) + (let ((_rest98217_ + _hd9819898212_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl9821798232_)) + _tl9819998214_)) (if '#t (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_recur98174_ _rest98235_ false)) - (let () (declare (not safe)) (_E9821498223_))) - (let () (declare (not safe)) (_E9821498223_)))))) + (_recur98156_ _rest98217_ false)) + (let () (declare (not safe)) (_E9819698205_))) + (let () (declare (not safe)) (_E9819698205_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9821498223_)))))) + (_E9819698205_)))))) (let () (declare (not safe)) - (_E9821398237_))) - (let _lp98241_ ((_rest98243_ _rest98211_) - (_depth98244_ '0)) - (let* ((_e9824598252_ _rest98243_) - (_E9824798256_ + (_E9819598219_))) + (let _lp98223_ ((_rest98225_ _rest98193_) + (_depth98226_ '0)) + (let* ((_e9822798234_ _rest98225_) + (_E9822998238_ (lambda () - (if (fxpositive? _depth98244_) - (let ((__tmp98709 + (if (fxpositive? _depth98226_) + (let ((__tmp98691 (let () (declare (not safe)) - (_recur98174_ - _hd98209_ - _is-e?98180_))) - (__tmp98708 + (_recur98156_ + _hd98191_ + _is-e?98162_))) + (__tmp98690 (let () (declare (not safe)) - (_recur98174_ - _rest98243_ - _is-e?98180_)))) + (_recur98156_ + _rest98225_ + _is-e?98162_)))) (declare (not safe)) - (_make-splice98173_ - _e98179_ - _depth98244_ - __tmp98709 - __tmp98708)) - (let ((__tmp98707 + (_make-splice98155_ + _e98161_ + _depth98226_ + __tmp98691 + __tmp98690)) + (let ((__tmp98689 (let () (declare (not safe)) - (_recur98174_ - _hd98209_ - _is-e?98180_))) - (__tmp98706 + (_recur98156_ + _hd98191_ + _is-e?98162_))) + (__tmp98688 (let () (declare (not safe)) - (_recur98174_ - _rest98243_ - _is-e?98180_)))) + (_recur98156_ + _rest98225_ + _is-e?98162_)))) (declare (not safe)) - (_make-cons98172_ - __tmp98707 - __tmp98706))))) - (_E9824698272_ + (_make-cons98154_ + __tmp98689 + __tmp98688))))) + (_E9822898254_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e9824598252_)) - (let ((_e9824898260_ + _e9822798234_)) + (let ((_e9823098242_ (let () (declare (not safe)) (gx#syntax-e - _e9824598252_)))) - (let ((_hd9824998263_ + _e9822798234_)))) + (let ((_hd9823198245_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e9824898260_))) - (_tl9825098265_ - (let () (declare (not safe)) (##cdr _e9824898260_)))) - (let* ((_rest-hd98268_ _hd9824998263_) - (_rest-tl98270_ _tl9825098265_)) + (##car _e9823098242_))) + (_tl9823298247_ + (let () (declare (not safe)) (##cdr _e9823098242_)))) + (let* ((_rest-hd98250_ _hd9823198245_) + (_rest-tl98252_ _tl9823298247_)) (if '#t - (if (_is-e?98180_ _rest-hd98268_) - (let ((__tmp98714 + (if (_is-e?98162_ _rest-hd98250_) + (let ((__tmp98696 (let () (declare (not safe)) - (fx+ _depth98244_ '1)))) + (fx+ _depth98226_ '1)))) (declare (not safe)) - (_lp98241_ _rest-tl98270_ __tmp98714)) - (if (fxpositive? _depth98244_) - (let ((__tmp98713 + (_lp98223_ _rest-tl98252_ __tmp98696)) + (if (fxpositive? _depth98226_) + (let ((__tmp98695 (let () (declare (not safe)) - (_recur98174_ _hd98209_ _is-e?98180_))) - (__tmp98712 + (_recur98156_ _hd98191_ _is-e?98162_))) + (__tmp98694 (let () (declare (not safe)) - (_recur98174_ - _rest98243_ - _is-e?98180_)))) + (_recur98156_ + _rest98225_ + _is-e?98162_)))) (declare (not safe)) - (_make-splice98173_ - _e98179_ - _depth98244_ - __tmp98713 - __tmp98712)) - (let ((__tmp98711 + (_make-splice98155_ + _e98161_ + _depth98226_ + __tmp98695 + __tmp98694)) + (let ((__tmp98693 (let () (declare (not safe)) - (_recur98174_ _hd98209_ _is-e?98180_))) - (__tmp98710 + (_recur98156_ _hd98191_ _is-e?98162_))) + (__tmp98692 (let () (declare (not safe)) - (_recur98174_ - _rest98243_ - _is-e?98180_)))) + (_recur98156_ + _rest98225_ + _is-e?98162_)))) (declare (not safe)) - (_make-cons98172_ __tmp98711 __tmp98710)))) - (let () (declare (not safe)) (_E9824798256_)))))) + (_make-cons98154_ __tmp98693 __tmp98692)))) + (let () (declare (not safe)) (_E9822998238_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9824798256_)))))) + (_E9822998238_)))))) (let () (declare (not safe)) - (_E9824698272_))))) + (_E9822898254_))))) (let () (declare (not safe)) - (_E9818898197_)))))) - (let () (declare (not safe)) (_E9818898197_)))))) + (_E9817098179_)))))) + (let () (declare (not safe)) (_E9817098179_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9818798276_))) + (_E9816998258_))) (if (let () (declare (not safe)) (gx#stx-vector? - _e98179_)) - (let ((_g98703_ - (let ((__tmp98705 + _e98161_)) + (let ((_g98685_ + (let ((__tmp98687 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (vector->list (let () (declare (not safe)) - (gx#stx-unwrap__0 _e98179_))))) + (gx#stx-unwrap__0 _e98161_))))) (declare (not safe)) - (_recur98174_ __tmp98705 _is-e?98180_)))) + (_recur98156_ __tmp98687 _is-e?98162_)))) (begin - (let ((_g98704_ + (let ((_g98686_ (let () (declare (not safe)) - (if (##values? _g98703_) - (##vector-length _g98703_) + (if (##values? _g98685_) + (##vector-length _g98685_) 1)))) - (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_ + (if (not (let () (declare (not safe)) (##fx= _g98686_ 2))) + (error "Context expects 2 values" _g98686_))) + (let ((_e98262_ + (let () (declare (not safe)) (##vector-ref _g98685_ 0))) + (_vars98263_ (let () (declare (not safe)) - (##vector-ref _g98703_ 1)))) - (values (let () (declare (not safe)) (cons 'vector _e98280_)) - _vars98281_)))) + (##vector-ref _g98685_ 1)))) + (values (let () (declare (not safe)) (cons 'vector _e98262_)) + _vars98263_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _e98179_)) - (let ((_g98700_ - (let ((__tmp98702 + _e98161_)) + (let ((_g98682_ + (let ((__tmp98684 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (unbox (let () (declare (not safe)) - (gx#stx-unwrap__0 _e98179_))))) + (gx#stx-unwrap__0 _e98161_))))) (declare (not safe)) - (_recur98174_ __tmp98702 _is-e?98180_)))) + (_recur98156_ __tmp98684 _is-e?98162_)))) (begin - (let ((_g98701_ + (let ((_g98683_ (let () (declare (not safe)) - (if (##values? _g98700_) - (##vector-length _g98700_) + (if (##values? _g98682_) + (##vector-length _g98682_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98701_ 2))) - (error "Context expects 2 values" _g98701_))) - (let ((_e98283_ + (##fx= _g98683_ 2))) + (error "Context expects 2 values" _g98683_))) + (let ((_e98265_ (let () (declare (not safe)) - (##vector-ref _g98700_ 0))) - (_vars98284_ + (##vector-ref _g98682_ 0))) + (_vars98266_ (let () (declare (not safe)) - (##vector-ref _g98700_ 1)))) + (##vector-ref _g98682_ 1)))) (values (let () (declare (not safe)) - (cons 'box _e98283_)) - _vars98284_)))) - (values (let () (declare (not safe)) (cons 'datum _e98179_)) + (cons 'box _e98265_)) + _vars98266_)))) + (values (let () (declare (not safe)) (cons 'datum _e98161_)) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g98716_ + (let ((_g98698_ (let () (declare (not safe)) - (_recur98174_ _e98170_ gx#ellipsis?)))) + (_recur98156_ _e98152_ gx#ellipsis?)))) (begin - (let ((_g98717_ + (let ((_g98699_ (let () (declare (not safe)) - (if (##values? _g98716_) - (##vector-length _g98716_) + (if (##values? _g98698_) + (##vector-length _g98698_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98717_ 2))) - (error "Context expects 2 values" _g98717_))) - (let ((_tree98176_ + (##fx= _g98699_ 2))) + (error "Context expects 2 values" _g98699_))) + (let ((_tree98158_ (let () (declare (not safe)) - (##vector-ref _g98716_ 0))) - (_vars98177_ + (##vector-ref _g98698_ 0))) + (_vars98159_ (let () (declare (not safe)) - (##vector-ref _g98716_ 1)))) + (##vector-ref _g98698_ 1)))) (if (let () (declare (not safe)) - (null? _vars98177_)) - _tree98176_ + (null? _vars98159_)) + _tree98158_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _stx98126_ - _vars98177_)))))))))) - (let* ((_e9813098140_ _stx98126_) - (_E9813298144_ + _stx98108_ + _vars98159_)))))))))) + (let* ((_e9811298122_ _stx98108_) + (_E9811498126_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _stx98126_)))) - (_E9813198166_ + _stx98108_)))) + (_E9811398148_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9813098140_)) - (let ((_e9813398148_ + (gx#stx-pair? _e9811298122_)) + (let ((_e9811598130_ (let () (declare (not safe)) - (gx#syntax-e _e9813098140_)))) - (let ((_hd9813498151_ + (gx#syntax-e _e9811298122_)))) + (let ((_hd9811698133_ (let () (declare (not safe)) - (##car _e9813398148_))) - (_tl9813598153_ + (##car _e9811598130_))) + (_tl9811798135_ (let () (declare (not safe)) - (##cdr _e9813398148_)))) + (##cdr _e9811598130_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9813598153_)) - (let ((_e9813698156_ + (gx#stx-pair? _tl9811798135_)) + (let ((_e9811898138_ (let () (declare (not safe)) - (gx#syntax-e _tl9813598153_)))) - (let ((_hd9813798159_ + (gx#syntax-e _tl9811798135_)))) + (let ((_hd9811998141_ (let () (declare (not safe)) - (##car _e9813698156_))) - (_tl9813898161_ + (##car _e9811898138_))) + (_tl9812098143_ (let () (declare (not safe)) - (##cdr _e9813698156_)))) - (let ((_form98164_ _hd9813798159_)) + (##cdr _e9811898138_)))) + (let ((_form98146_ _hd9811998141_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl9813898161_)) + (gx#stx-null? _tl9812098143_)) (if '#t - (let ((__tmp98719 - (let ((__tmp98720 + (let ((__tmp98701 + (let ((__tmp98702 (let () (declare (not safe)) - (_parse98129_ - _form98164_)))) + (_parse98111_ + _form98146_)))) (declare (not safe)) - (_generate98128_ - __tmp98720))) - (__tmp98718 + (_generate98110_ + __tmp98702))) + (__tmp98700 (let () (declare (not safe)) (gx#stx-source - _stx98126_)))) + _stx98108_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp98719 - __tmp98718)) + __tmp98701 + __tmp98700)) (let () (declare (not safe)) - (_E9813298144_))) + (_E9811498126_))) (let () (declare (not safe)) - (_E9813298144_)))))) + (_E9811498126_)))))) (let () (declare (not safe)) - (_E9813298144_))))) - (let () (declare (not safe)) (_E9813298144_)))))) - (let () (declare (not safe)) (_E9813198166_)))))) + (_E9811498126_))))) + (let () (declare (not safe)) (_E9811498126_)))))) + (let () (declare (not safe)) (_E9811398148_)))))) (define gx#macro-expand-syntax-case__% - (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 + (lambda (_stx97372_ _identifier=?97373_ _unwrap-e97374_ _wrap-e97375_) + (letrec ((_generate-bindings97377_ + (lambda (_target97972_ + _ids97973_ + _clauses97974_ + _clause-ids97975_ + _E97976_) + (letrec ((_generate197978_ + (lambda (_clause98075_ _clause-id98076_ _E98077_) + (let ((__tmp98707 (let () (declare (not safe)) - (cons _clause-id98094_ '()))) - (__tmp98721 - (let ((__tmp98722 - (let ((__tmp98724 + (cons _clause-id98076_ '()))) + (__tmp98703 + (let ((__tmp98704 + (let ((__tmp98706 (let () (declare (not safe)) - (cons _target97990_ + (cons _target97972_ '()))) - (__tmp98723 + (__tmp98705 (let () (declare (not safe)) - (_generate-clause97397_ - _target97990_ - _ids97991_ - _clause98093_ - _E98095_)))) + (_generate-clause97379_ + _target97972_ + _ids97973_ + _clause98075_ + _E98077_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp98724 - __tmp98723)))) + __tmp98706 + __tmp98705)))) (declare (not safe)) - (cons __tmp98722 '())))) + (cons __tmp98704 '())))) (declare (not safe)) - (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_ + (cons __tmp98707 __tmp98703))))) + (let _lp97980_ ((_rest97982_ _clauses97974_) + (_rest-ids97983_ _clause-ids97975_) + (_bindings97984_ '())) + (let* ((_rest9798597993_ _rest97982_) + (_else9798798001_ (lambda () _bindings97984_)) + (_K9798998063_ + (lambda (_rest98004_ _clause98005_) + (let* ((_rest-ids9800698013_ _rest-ids97983_) + (_E9800898017_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _rest-ids9802498031_)))) - (_K9802798069_ - (lambda (_rest-ids98038_ - _clause-id98039_) - (let* ((_rest-ids9804098048_ - _rest-ids98038_) - (_else9804298056_ + _rest-ids9800698013_)))) + (_K9800998051_ + (lambda (_rest-ids98020_ + _clause-id98021_) + (let* ((_rest-ids9802298030_ + _rest-ids98020_) + (_else9802498038_ (lambda () - (let ((__tmp98726 + (let ((__tmp98708 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_generate197996_ - _clause98023_ - _clause-id98039_ - _E97994_)))) + (_generate197978_ + _clause98005_ + _clause-id98021_ + _E97976_)))) (declare (not safe)) - (cons __tmp98726 _bindings98002_)))) + (cons __tmp98708 _bindings97984_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K9804498061_ - (lambda (_next-clause-id98059_) - (let ((__tmp98727 - (let ((__tmp98728 + (_K9802698043_ + (lambda (_next-clause-id98041_) + (let ((__tmp98709 + (let ((__tmp98710 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_generate197996_ - _clause98023_ - _clause-id98039_ - _next-clause-id98059_)))) + (_generate197978_ + _clause98005_ + _clause-id98021_ + _next-clause-id98041_)))) (declare (not safe)) - (cons __tmp98728 _bindings98002_)))) + (cons __tmp98710 _bindings97984_)))) (declare (not safe)) - (_lp97998_ _rest98022_ _rest-ids98038_ __tmp98727))))) + (_lp97980_ _rest98004_ _rest-ids98020_ __tmp98709))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest-ids9804098048_)) - (let* ((_hd9804598064_ + (##pair? _rest-ids9802298030_)) + (let* ((_hd9802798046_ (let () (declare (not safe)) - (##car _rest-ids9804098048_))) - (_next-clause-id98067_ - _hd9804598064_)) + (##car _rest-ids9802298030_))) + (_next-clause-id98049_ + _hd9802798046_)) (declare (not safe)) - (_K9804498061_ - _next-clause-id98067_)) + (_K9802698043_ + _next-clause-id98049_)) (let () (declare (not safe)) - (_else9804298056_))))))) + (_else9802498038_))))))) (if (let () (declare (not safe)) - (##pair? _rest-ids9802498031_)) - (let ((_hd9802898072_ + (##pair? _rest-ids9800698013_)) + (let ((_hd9801098054_ (let () (declare (not safe)) - (##car _rest-ids9802498031_))) - (_tl9802998074_ + (##car _rest-ids9800698013_))) + (_tl9801198056_ (let () (declare (not safe)) - (##cdr _rest-ids9802498031_)))) - (let* ((_clause-id98077_ - _hd9802898072_) - (_rest-ids98079_ - _tl9802998074_)) + (##cdr _rest-ids9800698013_)))) + (let* ((_clause-id98059_ + _hd9801098054_) + (_rest-ids98061_ + _tl9801198056_)) (declare (not safe)) - (_K9802798069_ - _rest-ids98079_ - _clause-id98077_))) + (_K9800998051_ + _rest-ids98061_ + _clause-id98059_))) (let () (declare (not safe)) - (_E9802698035_))))))) + (_E9800898017_))))))) (if (let () (declare (not safe)) - (##pair? _rest9800398011_)) - (let ((_hd9800898084_ + (##pair? _rest9798597993_)) + (let ((_hd9799098066_ (let () (declare (not safe)) - (##car _rest9800398011_))) - (_tl9800998086_ + (##car _rest9798597993_))) + (_tl9799198068_ (let () (declare (not safe)) - (##cdr _rest9800398011_)))) - (let* ((_clause98089_ _hd9800898084_) - (_rest98091_ _tl9800998086_)) + (##cdr _rest9798597993_)))) + (let* ((_clause98071_ _hd9799098066_) + (_rest98073_ _tl9799198068_)) (declare (not safe)) - (_K9800798081_ _rest98091_ _clause98089_))) + (_K9798998063_ _rest98073_ _clause98071_))) (let () (declare (not safe)) - (_else9800598019_)))))))) - (_generate-body97396_ - (lambda (_bindings97950_ _body97951_) - (let _recur97953_ ((_rest97955_ _bindings97950_)) - (let* ((_rest9795697964_ _rest97955_) - (_else9795897972_ (lambda () _body97951_)) - (_K9796097978_ - (lambda (_rest97975_ _hd97976_) - (let ((__tmp98730 + (_else9798798001_)))))))) + (_generate-body97378_ + (lambda (_bindings97932_ _body97933_) + (let _recur97935_ ((_rest97937_ _bindings97932_)) + (let* ((_rest9793897946_ _rest97937_) + (_else9794097954_ (lambda () _body97933_)) + (_K9794297960_ + (lambda (_rest97957_ _hd97958_) + (let ((__tmp98712 (let () (declare (not safe)) - (cons _hd97976_ '()))) - (__tmp98729 + (cons _hd97958_ '()))) + (__tmp98711 (let () (declare (not safe)) - (_recur97953_ _rest97975_)))) + (_recur97935_ _rest97957_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp98730 - __tmp98729))))) + __tmp98712 + __tmp98711))))) (if (let () (declare (not safe)) - (##pair? _rest9795697964_)) - (let ((_hd9796197981_ + (##pair? _rest9793897946_)) + (let ((_hd9794397963_ (let () (declare (not safe)) - (##car _rest9795697964_))) - (_tl9796297983_ + (##car _rest9793897946_))) + (_tl9794497965_ (let () (declare (not safe)) - (##cdr _rest9795697964_)))) - (let* ((_hd97986_ _hd9796197981_) - (_rest97988_ _tl9796297983_)) + (##cdr _rest9793897946_)))) + (let* ((_hd97968_ _hd9794397963_) + (_rest97970_ _tl9794497965_)) (declare (not safe)) - (_K9796097978_ _rest97988_ _hd97986_))) + (_K9794297960_ _rest97970_ _hd97968_))) (let () (declare (not safe)) - (_else9795897972_))))))) - (_generate-clause97397_ - (lambda (_target97813_ _ids97814_ _clause97815_ _E97816_) - (letrec ((_generate197818_ - (lambda (_hd97905_ _fender97906_ _body97907_) - (let ((_g98731_ + (_else9794097954_))))))) + (_generate-clause97379_ + (lambda (_target97795_ _ids97796_ _clause97797_ _E97798_) + (letrec ((_generate197800_ + (lambda (_hd97887_ _fender97888_ _body97889_) + (let ((_g98713_ (let () (declare (not safe)) - (_parse-clause97399_ - _hd97905_ - _ids97814_)))) + (_parse-clause97381_ + _hd97887_ + _ids97796_)))) (begin - (let ((_g98732_ + (let ((_g98714_ (let () (declare (not safe)) - (if (##values? _g98731_) - (##vector-length _g98731_) + (if (##values? _g98713_) + (##vector-length _g98713_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98732_ 2))) + (##fx= _g98714_ 2))) (error "Context expects 2 values" - _g98732_))) - (let ((_e97909_ + _g98714_))) + (let ((_e97891_ (let () (declare (not safe)) - (##vector-ref _g98731_ 0))) - (_mvars97910_ + (##vector-ref _g98713_ 0))) + (_mvars97892_ (let () (declare (not safe)) - (##vector-ref _g98731_ 1)))) - (let* ((_pvars97912_ + (##vector-ref _g98713_ 1)))) + (let* ((_pvars97894_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _mvars97910_)))) - (_E97914_ - (let ((__tmp98733 + _mvars97892_)))) + (_E97896_ + (let ((__tmp98715 (let () (declare (not safe)) - (cons _target97813_ + (cons _target97795_ '())))) (declare (not safe)) - (cons _E97816_ __tmp98733))) - (_K97947_ - (let ((__tmp98734 - (let ((__tmp98736 - (map (lambda (_mvar97916_ + (cons _E97798_ __tmp98715))) + (_K97929_ + (let ((__tmp98716 + (let ((__tmp98718 + (map (lambda (_mvar97898_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pvar97917_) - (let* ((_mvar9791897925_ _mvar97916_) - (_E9792097929_ + _pvar97899_) + (let* ((_mvar9790097907_ _mvar97898_) + (_E9790297911_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _mvar9791897925_)))) - (_K9792197935_ - (lambda (_depth97932_ _id97933_) - (let ((__tmp98737 - (let ((__tmp98738 - (let ((__tmp98740 + _mvar9790097907_)))) + (_K9790397917_ + (lambda (_depth97914_ _id97915_) + (let ((__tmp98719 + (let ((__tmp98720 + (let ((__tmp98722 (let () (declare (not safe)) (gx#core-list 'quote - _id97933_))) - (__tmp98739 + _id97915_))) + (__tmp98721 (let () (declare (not safe)) (gx#core-list 'quote - _pvar97917_)))) + _pvar97899_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp98740 - __tmp98739 - _depth97932_)))) + __tmp98722 + __tmp98721 + _depth97914_)))) (declare (not safe)) - (cons __tmp98738 '())))) + (cons __tmp98720 '())))) (declare (not safe)) - (cons _id97933_ __tmp98737))))) + (cons _id97915_ __tmp98719))))) (if (let () (declare (not safe)) - (##pair? _mvar9791897925_)) - (let ((_hd9792297938_ + (##pair? _mvar9790097907_)) + (let ((_hd9790497920_ (let () (declare (not safe)) - (##car _mvar9791897925_))) - (_tl9792397940_ + (##car _mvar9790097907_))) + (_tl9790597922_ (let () (declare (not safe)) - (##cdr _mvar9791897925_)))) - (let* ((_id97943_ _hd9792297938_) - (_depth97945_ _tl9792397940_)) + (##cdr _mvar9790097907_)))) + (let* ((_id97925_ _hd9790497920_) + (_depth97927_ _tl9790597922_)) (declare (not safe)) - (_K9792197935_ _depth97945_ _id97943_))) + (_K9790397917_ _depth97927_ _id97925_))) (let () (declare (not safe)) - (_E9792097929_))))) - _mvars97910_ - _pvars97912_)) - (__tmp98735 - (if (let () (declare (not safe)) (eq? _fender97906_ '#t)) - _body97907_ + (_E9790297911_))))) + _mvars97892_ + _pvars97894_)) + (__tmp98717 + (if (let () (declare (not safe)) (eq? _fender97888_ '#t)) + _body97889_ (let () (declare (not safe)) (gx#core-list 'if - _fender97906_ - _body97907_ - _E97914_))))) + _fender97888_ + _body97889_ + _E97896_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp98736 __tmp98735)))) + (gx#core-list 'let-syntax __tmp98718 __tmp98717)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _pvars97912_ - __tmp98734)))) + _pvars97894_ + __tmp98716)))) (let () (declare (not safe)) - (_generate-match97398_ - _hd97905_ - _target97813_ - _e97909_ - _mvars97910_ - _K97947_ - _E97914_))))))))) - (let* ((_e9781997839_ _clause97815_) - (_E9782897843_ + (_generate-match97380_ + _hd97887_ + _target97795_ + _e97891_ + _mvars97892_ + _K97929_ + _E97896_))))))))) + (let* ((_e9780197821_ _clause97797_) + (_E9781097825_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9781997839_)))) - (_E9782197877_ + _e9780197821_)))) + (_E9780397859_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9781997839_)) - (let ((_e9782997847_ + (gx#stx-pair? _e9780197821_)) + (let ((_e9781197829_ (let () (declare (not safe)) - (gx#syntax-e _e9781997839_)))) - (let ((_hd9783097850_ + (gx#syntax-e _e9780197821_)))) + (let ((_hd9781297832_ (let () (declare (not safe)) - (##car _e9782997847_))) - (_tl9783197852_ + (##car _e9781197829_))) + (_tl9781397834_ (let () (declare (not safe)) - (##cdr _e9782997847_)))) - (let ((_hd97855_ _hd9783097850_)) + (##cdr _e9781197829_)))) + (let ((_hd97837_ _hd9781297832_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9783197852_)) - (let ((_e9783297857_ + (gx#stx-pair? _tl9781397834_)) + (let ((_e9781497839_ (let () (declare (not safe)) (gx#syntax-e - _tl9783197852_)))) - (let ((_hd9783397860_ + _tl9781397834_)))) + (let ((_hd9781597842_ (let () (declare (not safe)) - (##car _e9783297857_))) - (_tl9783497862_ + (##car _e9781497839_))) + (_tl9781697844_ (let () (declare (not safe)) - (##cdr _e9783297857_)))) - (let ((_fender97865_ - _hd9783397860_)) + (##cdr _e9781497839_)))) + (let ((_fender97847_ + _hd9781597842_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl9783497862_)) - (let ((_e9783597867_ + _tl9781697844_)) + (let ((_e9781797849_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl9783497862_)))) - (let ((_hd9783697870_ - (let () (declare (not safe)) (##car _e9783597867_))) - (_tl9783797872_ - (let () (declare (not safe)) (##cdr _e9783597867_)))) - (let ((_body97875_ _hd9783697870_)) + (gx#syntax-e _tl9781697844_)))) + (let ((_hd9781897852_ + (let () (declare (not safe)) (##car _e9781797849_))) + (_tl9781997854_ + (let () (declare (not safe)) (##cdr _e9781797849_)))) + (let ((_body97857_ _hd9781897852_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl9783797872_)) + (gx#stx-null? _tl9781997854_)) (if '#t (let () (declare (not safe)) - (_generate197818_ - _hd97855_ - _fender97865_ - _body97875_)) - (let () (declare (not safe)) (_E9782897843_))) - (let () (declare (not safe)) (_E9782897843_)))))) - (let () (declare (not safe)) (_E9782897843_)))))) + (_generate197800_ + _hd97837_ + _fender97847_ + _body97857_)) + (let () (declare (not safe)) (_E9781097825_))) + (let () (declare (not safe)) (_E9781097825_)))))) + (let () (declare (not safe)) (_E9781097825_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9782897843_)))))) + (_E9781097825_)))))) (let () (declare (not safe)) - (_E9782897843_))))) - (_E9782097901_ + (_E9781097825_))))) + (_E9780297883_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9781997839_)) - (let ((_e9782297881_ + (gx#stx-pair? _e9780197821_)) + (let ((_e9780497863_ (let () (declare (not safe)) - (gx#syntax-e _e9781997839_)))) - (let ((_hd9782397884_ + (gx#syntax-e _e9780197821_)))) + (let ((_hd9780597866_ (let () (declare (not safe)) - (##car _e9782297881_))) - (_tl9782497886_ + (##car _e9780497863_))) + (_tl9780697868_ (let () (declare (not safe)) - (##cdr _e9782297881_)))) - (let ((_hd97889_ _hd9782397884_)) + (##cdr _e9780497863_)))) + (let ((_hd97871_ _hd9780597866_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9782497886_)) - (let ((_e9782597891_ + (gx#stx-pair? _tl9780697868_)) + (let ((_e9780797873_ (let () (declare (not safe)) (gx#syntax-e - _tl9782497886_)))) - (let ((_hd9782697894_ + _tl9780697868_)))) + (let ((_hd9780897876_ (let () (declare (not safe)) - (##car _e9782597891_))) - (_tl9782797896_ + (##car _e9780797873_))) + (_tl9780997878_ (let () (declare (not safe)) - (##cdr _e9782597891_)))) - (let ((_body97899_ - _hd9782697894_)) + (##cdr _e9780797873_)))) + (let ((_body97881_ + _hd9780897876_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl9782797896_)) + _tl9780997878_)) (if '#t (let () (declare (not safe)) - (_generate197818_ - _hd97889_ + (_generate197800_ + _hd97871_ '#t - _body97899_)) + _body97881_)) (let () (declare (not safe)) - (_E9782197877_))) + (_E9780397859_))) (let () (declare (not safe)) - (_E9782197877_)))))) + (_E9780397859_)))))) (let () (declare (not safe)) - (_E9782197877_)))))) + (_E9780397859_)))))) (let () (declare (not safe)) - (_E9782197877_)))))) - (let () (declare (not safe)) (_E9782097901_)))))) - (_generate-match97398_ - (lambda (_where97562_ - _target97563_ - _hd97564_ - _mvars97565_ - _K97566_ - _E97567_) - (letrec ((_BUG97569_ - (lambda (_q97811_) + (_E9780397859_)))))) + (let () (declare (not safe)) (_E9780297883_)))))) + (_generate-match97380_ + (lambda (_where97544_ + _target97545_ + _hd97546_ + _mvars97547_ + _K97548_ + _E97549_) + (letrec ((_BUG97551_ + (lambda (_q97793_) (let () (declare (not safe)) (error '"BUG: syntax-case; generate" - _stx97390_ - _hd97564_ - _q97811_)))) - (_recur97570_ - (lambda (_e97661_ - _vars97662_ - _target97663_ - _E97664_ - _k97665_) - (let* ((_e9766697673_ _e97661_) - (_E9766897677_ + _stx97372_ + _hd97546_ + _q97793_)))) + (_recur97552_ + (lambda (_e97643_ + _vars97644_ + _target97645_ + _E97646_ + _k97647_) + (let* ((_e9764897655_ _e97643_) + (_E9765097659_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9766697673_)))) - (_K9766997799_ - (lambda (_body97680_ _tag97681_) - (let ((_$e97683_ _tag97681_)) + _e9764897655_)))) + (_K9765197781_ + (lambda (_body97662_ _tag97663_) + (let ((_$e97665_ _tag97663_)) (if (let () (declare (not safe)) - (eq? 'any _$e97683_)) - (_k97665_ _vars97662_) + (eq? 'any _$e97665_)) + (_k97647_ _vars97644_) (if (let () (declare (not safe)) - (eq? 'id _$e97683_)) - (let ((__tmp98847 + (eq? 'id _$e97665_)) + (let ((__tmp98829 (let () (declare (not safe)) (gx#core-list 'identifier? - _target97663_))) - (__tmp98843 - (let ((__tmp98845 + _target97645_))) + (__tmp98825 + (let ((__tmp98827 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp98846 + (let ((__tmp98828 (let () (declare (not safe)) - (gx#core-list _wrap-e97393_ _body97680_)))) + (gx#core-list _wrap-e97375_ _body97662_)))) (declare (not safe)) (gx#core-list - _identifier=?97391_ - __tmp98846 - _target97663_))) - (__tmp98844 (_k97665_ _vars97662_))) + _identifier=?97373_ + __tmp98828 + _target97645_))) + (__tmp98826 (_k97647_ _vars97644_))) (declare (not safe)) - (gx#core-list 'if __tmp98845 __tmp98844 _E97664_)))) + (gx#core-list 'if __tmp98827 __tmp98826 _E97646_)))) (declare (not safe)) - (gx#core-list 'if __tmp98847 __tmp98843 _E97664_)) + (gx#core-list 'if __tmp98829 __tmp98825 _E97646_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (eq? 'var _$e97683_)) - (_k97665_ - (let ((__tmp98842 + (eq? 'var _$e97665_)) + (_k97647_ + (let ((__tmp98824 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body97680_ _target97663_)))) + (cons _body97662_ _target97645_)))) (declare (not safe)) - (cons __tmp98842 _vars97662_))) - (if (let () (declare (not safe)) (eq? 'cons _$e97683_)) - (let ((_$e97686_ + (cons __tmp98824 _vars97644_))) + (if (let () (declare (not safe)) (eq? 'cons _$e97665_)) + (let ((_$e97668_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$hd97687_ + (_$hd97669_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl97688_ + (_$tl97670_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp98841 + (let ((__tmp98823 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _target97663_))) - (__tmp98822 - (let ((__tmp98836 - (let ((__tmp98837 - (let ((__tmp98840 + (gx#core-list 'stx-pair? _target97645_))) + (__tmp98804 + (let ((__tmp98818 + (let ((__tmp98819 + (let ((__tmp98822 (let () (declare (not safe)) - (cons _$e97686_ '()))) - (__tmp98838 - (let ((__tmp98839 + (cons _$e97668_ '()))) + (__tmp98820 + (let ((__tmp98821 (let () (declare (not safe)) (gx#core-list - _unwrap-e97392_ - _target97663_)))) + _unwrap-e97374_ + _target97645_)))) (declare (not safe)) - (cons __tmp98839 '())))) + (cons __tmp98821 '())))) (declare (not safe)) - (cons __tmp98840 __tmp98838)))) + (cons __tmp98822 __tmp98820)))) (declare (not safe)) - (cons __tmp98837 '()))) - (__tmp98823 - (let ((__tmp98826 - (let ((__tmp98832 - (let ((__tmp98835 + (cons __tmp98819 '()))) + (__tmp98805 + (let ((__tmp98808 + (let ((__tmp98814 + (let ((__tmp98817 (let () (declare (not safe)) - (cons _$hd97687_ + (cons _$hd97669_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp98833 - (let ((__tmp98834 + (__tmp98815 + (let ((__tmp98816 (let () (declare (not safe)) - (gx#core-list '##car _$e97686_)))) + (gx#core-list '##car _$e97668_)))) (declare (not safe)) - (cons __tmp98834 '())))) + (cons __tmp98816 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp98835 - __tmp98833))) - (__tmp98827 - (let ((__tmp98828 - (let ((__tmp98831 + (cons __tmp98817 + __tmp98815))) + (__tmp98809 + (let ((__tmp98810 + (let ((__tmp98813 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tl97688_ '()))) - (__tmp98829 - (let ((__tmp98830 + (cons _$tl97670_ '()))) + (__tmp98811 + (let ((__tmp98812 (let () (declare (not safe)) - (gx#core-list '##cdr _$e97686_)))) + (gx#core-list '##cdr _$e97668_)))) (declare (not safe)) - (cons __tmp98830 '())))) + (cons __tmp98812 '())))) (declare (not safe)) - (cons __tmp98831 __tmp98829)))) + (cons __tmp98813 __tmp98811)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp98828 '())))) + (cons __tmp98810 '())))) (declare (not safe)) - (cons __tmp98832 __tmp98827))) - (__tmp98824 - (let* ((_body9768997696_ - _body97680_) - (_E9769197700_ + (cons __tmp98814 __tmp98809))) + (__tmp98806 + (let* ((_body9767197678_ + _body97662_) + (_E9767397682_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _body9768997696_)))) - (_K9769297708_ - (lambda (_tl97703_ - _hd97704_) - (let ((__tmp98825 - (lambda (_vars97706_) + _body9767197678_)))) + (_K9767497690_ + (lambda (_tl97685_ + _hd97686_) + (let ((__tmp98807 + (lambda (_vars97688_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_recur97570_ - _tl97703_ - _vars97706_ - _$tl97688_ - _E97664_ - _k97665_))))) + (_recur97552_ + _tl97685_ + _vars97688_ + _$tl97670_ + _E97646_ + _k97647_))))) (declare (not safe)) - (_recur97570_ - _hd97704_ - _vars97662_ - _$hd97687_ - _E97664_ - __tmp98825))))) + (_recur97552_ + _hd97686_ + _vars97644_ + _$hd97669_ + _E97646_ + __tmp98807))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _body9768997696_)) - (let ((_hd9769397711_ + (##pair? _body9767197678_)) + (let ((_hd9767597693_ (let () (declare (not safe)) - (##car _body9768997696_))) - (_tl9769497713_ + (##car _body9767197678_))) + (_tl9767697695_ (let () (declare (not safe)) - (##cdr _body9768997696_)))) - (let* ((_hd97716_ - _hd9769397711_) - (_tl97718_ - _tl9769497713_)) + (##cdr _body9767197678_)))) + (let* ((_hd97698_ + _hd9767597693_) + (_tl97700_ + _tl9767697695_)) (declare (not safe)) - (_K9769297708_ - _tl97718_ - _hd97716_))) + (_K9767497690_ + _tl97700_ + _hd97698_))) (let () (declare (not safe)) - (_E9769197700_)))))) + (_E9767397682_)))))) (declare (not safe)) (gx#core-list 'let-values - __tmp98826 - __tmp98824)))) + __tmp98808 + __tmp98806)))) (declare (not safe)) (gx#core-list 'let-values - __tmp98836 - __tmp98823)))) + __tmp98818 + __tmp98805)))) (declare (not safe)) - (gx#core-list 'if __tmp98841 __tmp98822 _E97664_))) - (if (let () (declare (not safe)) (eq? 'splice _$e97683_)) - (let* ((_body9771997726_ _body97680_) - (_E9772197730_ + (gx#core-list 'if __tmp98823 __tmp98804 _E97646_))) + (if (let () (declare (not safe)) (eq? 'splice _$e97665_)) + (let* ((_body9770197708_ _body97662_) + (_E9770397712_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _body9771997726_)))) - (_K9772297781_ - (lambda (_tl97733_ _hd97734_) - (let* ((_rlen97736_ + _body9770197708_)))) + (_K9770497763_ + (lambda (_tl97715_ _hd97716_) + (let* ((_rlen97718_ (let () (declare (not safe)) - (_splice-rlen97571_ _tl97733_))) - (_$target97738_ + (_splice-rlen97553_ _tl97715_))) + (_$target97720_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_$hd97740_ + (_$hd97722_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl97742_ + (_$tl97724_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_$lp97744_ + (_$lp97726_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_$lp-e97746_ + (_$lp-e97728_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$lp-hd97748_ + (_$lp-hd97730_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_$lp-tl97750_ + (_$lp-tl97732_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_svars97752_ + (_svars97734_ (let () (declare (not safe)) - (_splice-vars97572_ _hd97734_))) - (_lvars97754_ + (_splice-vars97554_ _hd97716_))) + (_lvars97736_ (let () (declare (not safe)) - (gx#gentemps _svars97752_))) - (_tlvars97756_ + (gx#gentemps _svars97734_))) + (_tlvars97738_ (let () (declare (not safe)) - (gx#gentemps _svars97752_))) - (_linit97760_ - (map (lambda (_var97758_) + (gx#gentemps _svars97734_))) + (_linit97742_ + (map (lambda (_var97740_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _lvars97754_))) - (letrec ((_make-loop97763_ - (lambda (_vars97767_) - (let ((__tmp98773 - (let ((__tmp98774 - (let ((__tmp98810 + _lvars97736_))) + (letrec ((_make-loop97745_ + (lambda (_vars97749_) + (let ((__tmp98755 + (let ((__tmp98756 + (let ((__tmp98792 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp97744_ '()))) - (__tmp98775 - (let ((__tmp98776 - (let ((__tmp98809 + (cons _$lp97726_ '()))) + (__tmp98757 + (let ((__tmp98758 + (let ((__tmp98791 (let () (declare (not safe)) - (cons _$hd97740_ _lvars97754_))) - (__tmp98777 - (let ((__tmp98808 + (cons _$hd97722_ _lvars97736_))) + (__tmp98759 + (let ((__tmp98790 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _$hd97740_))) - (__tmp98786 - (let ((__tmp98803 - (let ((__tmp98804 - (let ((__tmp98807 + _$hd97722_))) + (__tmp98768 + (let ((__tmp98785 + (let ((__tmp98786 + (let ((__tmp98789 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp-e97746_ '()))) - (__tmp98805 - (let ((__tmp98806 + (cons _$lp-e97728_ '()))) + (__tmp98787 + (let ((__tmp98788 (let () (declare (not safe)) (gx#core-list - _unwrap-e97392_ - _$hd97740_)))) + _unwrap-e97374_ + _$hd97722_)))) (declare (not safe)) - (cons __tmp98806 '())))) + (cons __tmp98788 '())))) (declare (not safe)) - (cons __tmp98807 __tmp98805)))) + (cons __tmp98789 __tmp98787)))) (declare (not safe)) - (cons __tmp98804 '()))) - (__tmp98787 - (let ((__tmp98793 - (let ((__tmp98799 - (let ((__tmp98802 + (cons __tmp98786 '()))) + (__tmp98769 + (let ((__tmp98775 + (let ((__tmp98781 + (let ((__tmp98784 (let () (declare (not safe)) - (cons _$lp-hd97748_ '()))) - (__tmp98800 - (let ((__tmp98801 + (cons _$lp-hd97730_ '()))) + (__tmp98782 + (let ((__tmp98783 (let () (declare (not safe)) (gx#core-list '##car - _$lp-e97746_)))) + _$lp-e97728_)))) (declare (not safe)) - (cons __tmp98801 '())))) + (cons __tmp98783 '())))) (declare (not safe)) - (cons __tmp98802 __tmp98800))) - (__tmp98794 - (let ((__tmp98795 - (let ((__tmp98798 + (cons __tmp98784 __tmp98782))) + (__tmp98776 + (let ((__tmp98777 + (let ((__tmp98780 (let () (declare (not safe)) - (cons _$lp-tl97750_ '()))) - (__tmp98796 - (let ((__tmp98797 + (cons _$lp-tl97732_ '()))) + (__tmp98778 + (let ((__tmp98779 (let () (declare (not safe)) (gx#core-list '##cdr - _$lp-e97746_)))) + _$lp-e97728_)))) (declare (not safe)) - (cons __tmp98797 '())))) + (cons __tmp98779 '())))) (declare (not safe)) - (cons __tmp98798 __tmp98796)))) + (cons __tmp98780 __tmp98778)))) (declare (not safe)) - (cons __tmp98795 '())))) + (cons __tmp98777 '())))) (declare (not safe)) - (cons __tmp98799 __tmp98794))) - (__tmp98788 - (let ((__tmp98789 - (lambda (_hdvars97769_) - (let ((__tmp98790 - (let ((__tmp98791 - (map (lambda (_svar97771_ - _lvar97772_) - (let ((__tmp98792 + (cons __tmp98781 __tmp98776))) + (__tmp98770 + (let ((__tmp98771 + (lambda (_hdvars97751_) + (let ((__tmp98772 + (let ((__tmp98773 + (map (lambda (_svar97753_ + _lvar97754_) + (let ((__tmp98774 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq__% _svar97771_ _hdvars97769_ _BUG97569_)))) + (assgetq__% _svar97753_ _hdvars97751_ _BUG97551_)))) (declare (not safe)) - (gx#core-list 'cons __tmp98792 _lvar97772_))) + (gx#core-list 'cons __tmp98774 _lvar97754_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _svars97752_ - _lvars97754_))) + _svars97734_ + _lvars97736_))) (declare (not safe)) - (cons _$lp-tl97750_ __tmp98791)))) + (cons _$lp-tl97732_ __tmp98773)))) (declare (not safe)) - (cons _$lp97744_ __tmp98790))))) + (cons _$lp97726_ __tmp98772))))) (declare (not safe)) - (_recur97570_ - _hd97734_ + (_recur97552_ + _hd97716_ '() - _$lp-hd97748_ - _E97664_ - __tmp98789)))) + _$lp-hd97730_ + _E97646_ + __tmp98771)))) (declare (not safe)) - (gx#core-list 'let-values __tmp98793 __tmp98788)))) + (gx#core-list 'let-values __tmp98775 __tmp98770)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp98803 - __tmp98787))) - (__tmp98778 - (let ((__tmp98782 - (map (lambda (_lvar97774_ + __tmp98785 + __tmp98769))) + (__tmp98760 + (let ((__tmp98764 + (map (lambda (_lvar97756_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tlvar97775_) - (let ((__tmp98785 + _tlvar97757_) + (let ((__tmp98767 (let () (declare (not safe)) - (cons _tlvar97775_ '()))) - (__tmp98783 - (let ((__tmp98784 + (cons _tlvar97757_ '()))) + (__tmp98765 + (let ((__tmp98766 (let () (declare (not safe)) - (gx#core-list 'reverse _lvar97774_)))) + (gx#core-list 'reverse _lvar97756_)))) (declare (not safe)) - (cons __tmp98784 '())))) + (cons __tmp98766 '())))) (declare (not safe)) - (cons __tmp98785 __tmp98783))) - _lvars97754_ - _tlvars97756_)) - (__tmp98779 - (_k97665_ - (let ((__tmp98780 - (lambda (_svar97777_ _tlvar97778_ _r97779_) - (let ((__tmp98781 + (cons __tmp98767 __tmp98765))) + _lvars97736_ + _tlvars97738_)) + (__tmp98761 + (_k97647_ + (let ((__tmp98762 + (lambda (_svar97759_ _tlvar97760_ _r97761_) + (let ((__tmp98763 (let () (declare (not safe)) - (cons _svar97777_ _tlvar97778_)))) + (cons _svar97759_ _tlvar97760_)))) (declare (not safe)) - (cons __tmp98781 _r97779_))))) + (cons __tmp98763 _r97761_))))) (declare (not safe)) - (foldl2 __tmp98780 - _vars97767_ - _svars97752_ - _tlvars97756_))))) + (foldl2 __tmp98762 + _vars97749_ + _svars97734_ + _tlvars97738_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp98782 - __tmp98779)))) + __tmp98764 + __tmp98761)))) (declare (not safe)) (gx#core-list 'if - __tmp98808 - __tmp98786 - __tmp98778)))) + __tmp98790 + __tmp98768 + __tmp98760)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp98809 - __tmp98777)))) + __tmp98791 + __tmp98759)))) (declare (not safe)) - (cons __tmp98776 '())))) + (cons __tmp98758 '())))) (declare (not safe)) - (cons __tmp98810 __tmp98775)))) + (cons __tmp98792 __tmp98757)))) (declare (not safe)) - (cons __tmp98774 '()))) - (__tmp98771 - (let ((__tmp98772 + (cons __tmp98756 '()))) + (__tmp98753 + (let ((__tmp98754 (let () (declare (not safe)) - (cons _$target97738_ _linit97760_)))) + (cons _$target97720_ _linit97742_)))) (declare (not safe)) - (cons _$lp97744_ __tmp98772)))) + (cons _$lp97726_ __tmp98754)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp98773 - __tmp98771))))) - (let ((_body97765_ - (let ((__tmp98812 - (let ((__tmp98813 - (let ((__tmp98816 + __tmp98755 + __tmp98753))))) + (let ((_body97747_ + (let ((__tmp98794 + (let ((__tmp98795 + (let ((__tmp98798 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp98817 + (let ((__tmp98799 (let () (declare (not safe)) - (cons _$tl97742_ '())))) + (cons _$tl97724_ '())))) (declare (not safe)) - (cons _$target97738_ __tmp98817))) - (__tmp98814 - (let ((__tmp98815 + (cons _$target97720_ __tmp98799))) + (__tmp98796 + (let ((__tmp98797 (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _target97663_ - _rlen97736_)))) + _target97645_ + _rlen97718_)))) (declare (not safe)) - (cons __tmp98815 '())))) + (cons __tmp98797 '())))) (declare (not safe)) - (cons __tmp98816 __tmp98814)))) + (cons __tmp98798 __tmp98796)))) (declare (not safe)) - (cons __tmp98813 '()))) + (cons __tmp98795 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp98811 + (__tmp98793 (let () (declare (not safe)) - (_recur97570_ - _tl97733_ - _vars97662_ - _$tl97742_ - _E97664_ - _make-loop97763_)))) + (_recur97552_ + _tl97715_ + _vars97644_ + _$tl97724_ + _E97646_ + _make-loop97745_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp98812 - __tmp98811)))) - (let ((__tmp98821 + __tmp98794 + __tmp98793)))) + (let ((__tmp98803 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _target97663_))) - (__tmp98818 + _target97645_))) + (__tmp98800 (if (let () (declare (not safe)) - (zero? _rlen97736_)) - _body97765_ - (let ((__tmp98819 - (let ((__tmp98820 + (zero? _rlen97718_)) + _body97747_ + (let ((__tmp98801 + (let ((__tmp98802 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _target97663_)))) + (gx#core-list 'stx-length _target97645_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp98820 _rlen97736_)))) + (gx#core-list 'fx>= __tmp98802 _rlen97718_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp98819 - _body97765_ - _E97664_))))) + __tmp98801 + _body97747_ + _E97646_))))) (declare (not safe)) (gx#core-list 'if - __tmp98821 - __tmp98818 - _E97664_)))))))) + __tmp98803 + __tmp98800 + _E97646_)))))))) (if (let () (declare (not safe)) - (##pair? _body9771997726_)) - (let ((_hd9772397784_ + (##pair? _body9770197708_)) + (let ((_hd9770597766_ (let () (declare (not safe)) - (##car _body9771997726_))) - (_tl9772497786_ + (##car _body9770197708_))) + (_tl9770697768_ (let () (declare (not safe)) - (##cdr _body9771997726_)))) - (let* ((_hd97789_ _hd9772397784_) - (_tl97791_ _tl9772497786_)) + (##cdr _body9770197708_)))) + (let* ((_hd97771_ _hd9770597766_) + (_tl97773_ _tl9770697768_)) (declare (not safe)) - (_K9772297781_ _tl97791_ _hd97789_))) - (let () (declare (not safe)) (_E9772197730_)))) - (if (let () (declare (not safe)) (eq? 'null _$e97683_)) - (let ((__tmp98770 + (_K9770497763_ _tl97773_ _hd97771_))) + (let () (declare (not safe)) (_E9770397712_)))) + (if (let () (declare (not safe)) (eq? 'null _$e97665_)) + (let ((__tmp98752 (let () (declare (not safe)) - (gx#core-list 'stx-null? _target97663_))) - (__tmp98769 (_k97665_ _vars97662_))) + (gx#core-list 'stx-null? _target97645_))) + (__tmp98751 (_k97647_ _vars97644_))) (declare (not safe)) (gx#core-list 'if - __tmp98770 - __tmp98769 - _E97664_)) + __tmp98752 + __tmp98751 + _E97646_)) (if (let () (declare (not safe)) - (eq? 'vector _$e97683_)) - (let ((_$e97793_ + (eq? 'vector _$e97665_)) + (let ((_$e97775_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp98768 + (let ((__tmp98750 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _target97663_))) - (__tmp98760 - (let ((__tmp98762 - (let ((__tmp98763 - (let ((__tmp98767 + _target97645_))) + (__tmp98742 + (let ((__tmp98744 + (let ((__tmp98745 + (let ((__tmp98749 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$e97793_ '()))) - (__tmp98764 - (let ((__tmp98765 - (let ((__tmp98766 + (cons _$e97775_ '()))) + (__tmp98746 + (let ((__tmp98747 + (let ((__tmp98748 (let () (declare (not safe)) (gx#core-list - _unwrap-e97392_ - _target97663_)))) + _unwrap-e97374_ + _target97645_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp98766)))) + (gx#core-list 'vector->list __tmp98748)))) (declare (not safe)) - (cons __tmp98765 '())))) + (cons __tmp98747 '())))) (declare (not safe)) - (cons __tmp98767 __tmp98764)))) + (cons __tmp98749 __tmp98746)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp98763 '()))) - (__tmp98761 + (cons __tmp98745 '()))) + (__tmp98743 (let () (declare (not safe)) - (_recur97570_ - _body97680_ - _vars97662_ - _$e97793_ - _E97664_ - _k97665_)))) + (_recur97552_ + _body97662_ + _vars97644_ + _$e97775_ + _E97646_ + _k97647_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp98762 - __tmp98761)))) + __tmp98744 + __tmp98743)))) (declare (not safe)) (gx#core-list 'if - __tmp98768 - __tmp98760 - _E97664_))) + __tmp98750 + __tmp98742 + _E97646_))) (if (let () (declare (not safe)) - (eq? 'box _$e97683_)) - (let ((_$e97795_ + (eq? 'box _$e97665_)) + (let ((_$e97777_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp98759 + (let ((__tmp98741 (let () (declare (not safe)) (gx#core-list 'stx-box? - _target97663_))) - (__tmp98751 - (let ((__tmp98753 - (let ((__tmp98754 - (let ((__tmp98758 + _target97645_))) + (__tmp98733 + (let ((__tmp98735 + (let ((__tmp98736 + (let ((__tmp98740 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _$e97795_ '()))) - (__tmp98755 - (let ((__tmp98756 - (let ((__tmp98757 + (let () (declare (not safe)) (cons _$e97777_ '()))) + (__tmp98737 + (let ((__tmp98738 + (let ((__tmp98739 (let () (declare (not safe)) (gx#core-list - _unwrap-e97392_ - _target97663_)))) + _unwrap-e97374_ + _target97645_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp98757)))) + (gx#core-list 'unbox __tmp98739)))) (declare (not safe)) - (cons __tmp98756 '())))) + (cons __tmp98738 '())))) (declare (not safe)) - (cons __tmp98758 __tmp98755)))) + (cons __tmp98740 __tmp98737)))) (declare (not safe)) - (cons __tmp98754 '()))) + (cons __tmp98736 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp98752 + (__tmp98734 (let () (declare (not safe)) - (_recur97570_ - _body97680_ - _vars97662_ - _$e97795_ - _E97664_ - _k97665_)))) + (_recur97552_ + _body97662_ + _vars97644_ + _$e97777_ + _E97646_ + _k97647_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp98753 - __tmp98752)))) + __tmp98735 + __tmp98734)))) (declare (not safe)) (gx#core-list 'if - __tmp98759 - __tmp98751 - _E97664_))) + __tmp98741 + __tmp98733 + _E97646_))) (if (let () (declare (not safe)) - (eq? 'datum _$e97683_)) - (let ((_$e97797_ + (eq? 'datum _$e97665_)) + (let ((_$e97779_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp98750 + (let ((__tmp98732 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _target97663_))) - (__tmp98741 - (let ((__tmp98745 - (let ((__tmp98746 - (let ((__tmp98749 + _target97645_))) + (__tmp98723 + (let ((__tmp98727 + (let ((__tmp98728 + (let ((__tmp98731 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$e97797_ '()))) - (__tmp98747 - (let ((__tmp98748 + (cons _$e97779_ '()))) + (__tmp98729 + (let ((__tmp98730 (let () (declare (not safe)) - (gx#core-list 'stx-e _target97663_)))) + (gx#core-list 'stx-e _target97645_)))) (declare (not safe)) - (cons __tmp98748 '())))) + (cons __tmp98730 '())))) (declare (not safe)) - (cons __tmp98749 __tmp98747)))) + (cons __tmp98731 __tmp98729)))) (declare (not safe)) - (cons __tmp98746 '()))) - (__tmp98742 - (let ((__tmp98744 + (cons __tmp98728 '()))) + (__tmp98724 + (let ((__tmp98726 (let () (declare (not safe)) - (gx#core-list 'equal? _$e97797_ _body97680_))) - (__tmp98743 (_k97665_ _vars97662_))) + (gx#core-list 'equal? _$e97779_ _body97662_))) + (__tmp98725 (_k97647_ _vars97644_))) (declare (not safe)) - (gx#core-list 'if __tmp98744 __tmp98743 _E97664_)))) + (gx#core-list 'if __tmp98726 __tmp98725 _E97646_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp98745 - __tmp98742)))) + __tmp98727 + __tmp98724)))) (declare (not safe)) (gx#core-list 'if - __tmp98750 - __tmp98741 - _E97664_))) + __tmp98732 + __tmp98723 + _E97646_))) (let () (declare (not safe)) - (_BUG97569_ _e97661_))))))))))))))) + (_BUG97551_ _e97643_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9766697673_)) - (let ((_hd9767097802_ + (##pair? _e9764897655_)) + (let ((_hd9765297784_ (let () (declare (not safe)) - (##car _e9766697673_))) - (_tl9767197804_ + (##car _e9764897655_))) + (_tl9765397786_ (let () (declare (not safe)) - (##cdr _e9766697673_)))) - (let* ((_tag97807_ _hd9767097802_) - (_body97809_ _tl9767197804_)) + (##cdr _e9764897655_)))) + (let* ((_tag97789_ _hd9765297784_) + (_body97791_ _tl9765397786_)) (declare (not safe)) - (_K9766997799_ - _body97809_ - _tag97807_))) + (_K9765197781_ + _body97791_ + _tag97789_))) (let () (declare (not safe)) - (_E9766897677_)))))) - (_splice-rlen97571_ - (lambda (_e97623_) - (let _lp97625_ ((_e97627_ _e97623_) - (_n97628_ '0)) - (let* ((_e9762997636_ _e97627_) - (_E9763197640_ + (_E9765097659_)))))) + (_splice-rlen97553_ + (lambda (_e97605_) + (let _lp97607_ ((_e97609_ _e97605_) + (_n97610_ '0)) + (let* ((_e9761197618_ _e97609_) + (_E9761397622_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9762997636_)))) - (_K9763297649_ - (lambda (_body97643_ _tag97644_) - (let ((_$e97646_ _tag97644_)) + _e9761197618_)))) + (_K9761497631_ + (lambda (_body97625_ _tag97626_) + (let ((_$e97628_ _tag97626_)) (if (let () (declare (not safe)) - (eq? 'splice _$e97646_)) + (eq? 'splice _$e97628_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _stx97390_ - _where97562_)) + _stx97372_ + _where97544_)) (if (let () (declare (not safe)) - (eq? 'cons _$e97646_)) - (let ((__tmp98849 - (cdr _body97643_)) - (__tmp98848 + (eq? 'cons _$e97628_)) + (let ((__tmp98831 + (cdr _body97625_)) + (__tmp98830 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (fx+ _n97628_ '1)))) + (fx+ _n97610_ '1)))) (declare (not safe)) - (_lp97625_ __tmp98849 __tmp98848)) - _n97628_)))))) + (_lp97607_ __tmp98831 __tmp98830)) + _n97610_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9762997636_)) - (let ((_hd9763397652_ + (##pair? _e9761197618_)) + (let ((_hd9761597634_ (let () (declare (not safe)) - (##car _e9762997636_))) - (_tl9763497654_ + (##car _e9761197618_))) + (_tl9761697636_ (let () (declare (not safe)) - (##cdr _e9762997636_)))) - (let* ((_tag97657_ _hd9763397652_) - (_body97659_ _tl9763497654_)) + (##cdr _e9761197618_)))) + (let* ((_tag97639_ _hd9761597634_) + (_body97641_ _tl9761697636_)) (declare (not safe)) - (_K9763297649_ - _body97659_ - _tag97657_))) + (_K9761497631_ + _body97641_ + _tag97639_))) (let () (declare (not safe)) - (_E9763197640_))))))) - (_splice-vars97572_ - (lambda (_e97579_) - (let _recur97581_ ((_e97583_ _e97579_) - (_vars97584_ '())) - (let* ((_e9758597592_ _e97583_) - (_E9758797596_ + (_E9761397622_))))))) + (_splice-vars97554_ + (lambda (_e97561_) + (let _recur97563_ ((_e97565_ _e97561_) + (_vars97566_ '())) + (let* ((_e9756797574_ _e97565_) + (_E9756997578_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _e9758597592_)))) - (_K9758897611_ - (lambda (_body97599_ _tag97600_) - (let ((_$e97602_ _tag97600_)) + _e9756797574_)))) + (_K9757097593_ + (lambda (_body97581_ _tag97582_) + (let ((_$e97584_ _tag97582_)) (if (let () (declare (not safe)) - (eq? 'var _$e97602_)) + (eq? 'var _$e97584_)) (let () (declare (not safe)) - (cons _body97599_ - _vars97584_)) + (cons _body97581_ + _vars97566_)) (if (or (let () (declare (not safe)) (eq? 'cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e97602_)) - (let () (declare (not safe)) (eq? 'splice _$e97602_))) - (let ((__tmp98852 (cdr _body97599_)) - (__tmp98850 - (let ((__tmp98851 (car _body97599_))) + _$e97584_)) + (let () (declare (not safe)) (eq? 'splice _$e97584_))) + (let ((__tmp98834 (cdr _body97581_)) + (__tmp98832 + (let ((__tmp98833 (car _body97581_))) (declare (not safe)) - (_recur97581_ __tmp98851 _vars97584_)))) + (_recur97563_ __tmp98833 _vars97566_)))) (declare (not safe)) - (_recur97581_ __tmp98852 __tmp98850)) - (if (or (let () (declare (not safe)) (eq? 'vector _$e97602_)) - (let () (declare (not safe)) (eq? 'box _$e97602_))) + (_recur97563_ __tmp98834 __tmp98832)) + (if (or (let () (declare (not safe)) (eq? 'vector _$e97584_)) + (let () (declare (not safe)) (eq? 'box _$e97584_))) (let () (declare (not safe)) - (_recur97581_ _body97599_ _vars97584_)) - _vars97584_))))))) + (_recur97563_ _body97581_ _vars97566_)) + _vars97566_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e9758597592_)) - (let ((_hd9758997614_ + (##pair? _e9756797574_)) + (let ((_hd9757197596_ (let () (declare (not safe)) - (##car _e9758597592_))) - (_tl9759097616_ + (##car _e9756797574_))) + (_tl9757297598_ (let () (declare (not safe)) - (##cdr _e9758597592_)))) - (let* ((_tag97619_ _hd9758997614_) - (_body97621_ _tl9759097616_)) + (##cdr _e9756797574_)))) + (let* ((_tag97601_ _hd9757197596_) + (_body97603_ _tl9757297598_)) (declare (not safe)) - (_K9758897611_ - _body97621_ - _tag97619_))) + (_K9757097593_ + _body97603_ + _tag97601_))) (let () (declare (not safe)) - (_E9758797596_))))))) - (_make-body97573_ - (lambda (_vars97575_) - (let ((__tmp98853 - (map (lambda (_mvar97577_) - (let ((__tmp98854 - (car _mvar97577_))) + (_E9756997578_))))))) + (_make-body97555_ + (lambda (_vars97557_) + (let ((__tmp98835 + (map (lambda (_mvar97559_) + (let ((__tmp98836 + (car _mvar97559_))) (declare (not safe)) (assgetq__% - __tmp98854 - _vars97575_ - _BUG97569_))) - _mvars97565_))) + __tmp98836 + _vars97557_ + _BUG97551_))) + _mvars97547_))) (declare (not safe)) - (cons _K97566_ __tmp98853))))) + (cons _K97548_ __tmp98835))))) (let () (declare (not safe)) - (_recur97570_ - _hd97564_ + (_recur97552_ + _hd97546_ '() - _target97563_ - _E97567_ - _make-body97573_))))) - (_parse-clause97399_ - (lambda (_hd97468_ _ids97469_) - (let _recur97471_ ((_e97473_ _hd97468_) - (_vars97474_ '()) - (_depth97475_ '0)) + _target97545_ + _E97549_ + _make-body97555_))))) + (_parse-clause97381_ + (lambda (_hd97450_ _ids97451_) + (let _recur97453_ ((_e97455_ _hd97450_) + (_vars97456_ '()) + (_depth97457_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _e97473_)) + (gx#identifier? _e97455_)) (if (let () (declare (not safe)) - (gx#underscore? _e97473_)) - (values '(any) _vars97474_) + (gx#underscore? _e97455_)) + (values '(any) _vars97456_) (if (let () (declare (not safe)) - (gx#ellipsis? _e97473_)) + (gx#ellipsis? _e97455_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx97390_ - _hd97468_)) - (if (let ((__tmp98870 - (lambda (_id97477_) + _stx97372_ + _hd97450_)) + (if (let ((__tmp98852 + (lambda (_id97459_) (let () (declare (not safe)) (gx#bound-identifier=? - _e97473_ - _id97477_))))) + _e97455_ + _id97459_))))) (declare (not safe)) - (find __tmp98870 _ids97469_)) + (find __tmp98852 _ids97451_)) (values (let () (declare (not safe)) - (cons 'id _e97473_)) - _vars97474_) - (if (let ((__tmp98868 - (lambda (_var97479_) - (let ((__tmp98869 - (car _var97479_))) + (cons 'id _e97455_)) + _vars97456_) + (if (let ((__tmp98850 + (lambda (_var97461_) + (let ((__tmp98851 + (car _var97461_))) (declare (not safe)) (gx#bound-identifier=? - _e97473_ - __tmp98869))))) + _e97455_ + __tmp98851))))) (declare (not safe)) - (find __tmp98868 _vars97474_)) + (find __tmp98850 _vars97456_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _stx97390_ - _e97473_)) + _stx97372_ + _e97455_)) (values (let () (declare (not safe)) - (cons 'var _e97473_)) - (let ((__tmp98867 + (cons 'var _e97455_)) + (let ((__tmp98849 (let () (declare (not safe)) - (cons _e97473_ + (cons _e97455_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _depth97475_)))) + _depth97457_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp98867 - _vars97474_))))))) + (cons __tmp98849 + _vars97456_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _e97473_)) - (let* ((_e9748097487_ _e97473_) - (_E9748297491_ + (gx#stx-pair? _e97455_)) + (let* ((_e9746297469_ _e97455_) + (_E9746497473_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9748097487_)))) - (_E9748197552_ + _e9746297469_)))) + (_E9746397534_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9748097487_)) - (let ((_e9748397495_ + (gx#stx-pair? _e9746297469_)) + (let ((_e9746597477_ (let () (declare (not safe)) (gx#syntax-e - _e9748097487_)))) - (let ((_hd9748497498_ + _e9746297469_)))) + (let ((_hd9746697480_ (let () (declare (not safe)) - (##car _e9748397495_))) - (_tl9748597500_ + (##car _e9746597477_))) + (_tl9746797482_ (let () (declare (not safe)) - (##cdr _e9748397495_)))) - (let* ((_hd97503_ - _hd9748497498_) - (_rest97505_ - _tl9748597500_)) + (##cdr _e9746597477_)))) + (let* ((_hd97485_ + _hd9746697480_) + (_rest97487_ + _tl9746797482_)) (if '#t - (let* ((_make-pair97520_ - (lambda (_tag97507_ + (let* ((_make-pair97502_ + (lambda (_tag97489_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd97508_ - _tl97509_) - (let* ((_hd-depth97511_ + _hd97490_ + _tl97491_) + (let* ((_hd-depth97493_ (if (let () (declare (not safe)) - (eq? _tag97507_ 'splice)) + (eq? _tag97489_ 'splice)) (let () (declare (not safe)) - (fx+ _depth97475_ '1)) - _depth97475_)) - (_g98862_ + (fx+ _depth97457_ '1)) + _depth97457_)) + (_g98844_ (let () (declare (not safe)) - (_recur97471_ - _hd97508_ - _vars97474_ - _hd-depth97511_)))) + (_recur97453_ + _hd97490_ + _vars97456_ + _hd-depth97493_)))) (begin - (let ((_g98863_ + (let ((_g98845_ (let () (declare (not safe)) - (if (##values? _g98862_) - (##vector-length _g98862_) + (if (##values? _g98844_) + (##vector-length _g98844_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98863_ 2))) - (error "Context expects 2 values" _g98863_))) - (let ((_hd97513_ + (##fx= _g98845_ 2))) + (error "Context expects 2 values" _g98845_))) + (let ((_hd97495_ (let () (declare (not safe)) - (##vector-ref _g98862_ 0))) - (_vars97514_ + (##vector-ref _g98844_ 0))) + (_vars97496_ (let () (declare (not safe)) - (##vector-ref _g98862_ 1)))) - (let ((_g98864_ + (##vector-ref _g98844_ 1)))) + (let ((_g98846_ (let () (declare (not safe)) - (_recur97471_ - _tl97509_ - _vars97514_ - _depth97475_)))) + (_recur97453_ + _tl97491_ + _vars97496_ + _depth97457_)))) (begin - (let ((_g98865_ + (let ((_g98847_ (let () (declare (not safe)) - (if (##values? _g98864_) - (##vector-length _g98864_) + (if (##values? _g98846_) + (##vector-length _g98846_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98865_ 2))) + (##fx= _g98847_ 2))) (error "Context expects 2 values" - _g98865_))) - (let ((_tl97516_ + _g98847_))) + (let ((_tl97498_ (let () (declare (not safe)) - (##vector-ref _g98864_ 0))) - (_vars97517_ + (##vector-ref _g98846_ 0))) + (_vars97499_ (let () (declare (not safe)) - (##vector-ref _g98864_ 1)))) + (##vector-ref _g98846_ 1)))) (let () - (values (let ((__tmp98866 + (values (let ((__tmp98848 (let () (declare (not safe)) - (cons _hd97513_ - _tl97516_)))) + (cons _hd97495_ + _tl97498_)))) (declare (not safe)) - (cons _tag97507_ __tmp98866)) - _vars97517_)))))))))) - (_e9752197528_ _rest97505_) - (_E9752397532_ + (cons _tag97489_ __tmp98848)) + _vars97499_)))))))))) + (_e9750397510_ _rest97487_) + (_E9750597514_ (lambda () (let () (declare (not safe)) - (_make-pair97520_ 'cons _hd97503_ _rest97505_)))) - (_E9752297548_ + (_make-pair97502_ 'cons _hd97485_ _rest97487_)))) + (_E9750497530_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9752197528_)) - (let ((_e9752497536_ + (gx#stx-pair? _e9750397510_)) + (let ((_e9750697518_ (let () (declare (not safe)) - (gx#syntax-e _e9752197528_)))) - (let ((_hd9752597539_ + (gx#syntax-e _e9750397510_)))) + (let ((_hd9750797521_ (let () (declare (not safe)) - (##car _e9752497536_))) - (_tl9752697541_ + (##car _e9750697518_))) + (_tl9750897523_ (let () (declare (not safe)) - (##cdr _e9752497536_)))) - (let* ((_rest-hd97544_ _hd9752597539_) - (_rest-tl97546_ _tl9752697541_)) + (##cdr _e9750697518_)))) + (let* ((_rest-hd97526_ _hd9750797521_) + (_rest-tl97528_ _tl9750897523_)) (if '#t (if (let () (declare (not safe)) - (gx#ellipsis? _rest-hd97544_)) + (gx#ellipsis? _rest-hd97526_)) (let () (declare (not safe)) - (_make-pair97520_ + (_make-pair97502_ 'splice - _hd97503_ - _rest-tl97546_)) + _hd97485_ + _rest-tl97528_)) (let () (declare (not safe)) - (_make-pair97520_ + (_make-pair97502_ 'cons - _hd97503_ - _rest97505_))) + _hd97485_ + _rest97487_))) (let () (declare (not safe)) - (_E9752397532_)))))) - (let () (declare (not safe)) (_E9752397532_)))))) - (let () (declare (not safe)) (_E9752297548_))) - (let () (declare (not safe)) (_E9748297491_)))))) + (_E9750597514_)))))) + (let () (declare (not safe)) (_E9750597514_)))))) + (let () (declare (not safe)) (_E9750497530_))) + (let () (declare (not safe)) (_E9746497473_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9748297491_)))))) - (let () (declare (not safe)) (_E9748197552_))) + (_E9746497473_)))))) + (let () (declare (not safe)) (_E9746397534_))) (if (let () (declare (not safe)) - (gx#stx-null? _e97473_)) - (values '(null) _vars97474_) + (gx#stx-null? _e97455_)) + (values '(null) _vars97456_) (if (let () (declare (not safe)) - (gx#stx-vector? _e97473_)) - (let ((_g98859_ - (let ((__tmp98861 + (gx#stx-vector? _e97455_)) + (let ((_g98841_ + (let ((__tmp98843 (vector->list (let () (declare (not safe)) (gx#syntax-e - _e97473_))))) + _e97455_))))) (declare (not safe)) - (_recur97471_ - __tmp98861 - _vars97474_ - _depth97475_)))) + (_recur97453_ + __tmp98843 + _vars97456_ + _depth97457_)))) (begin - (let ((_g98860_ + (let ((_g98842_ (let () (declare (not safe)) - (if (##values? _g98859_) + (if (##values? _g98841_) (##vector-length - _g98859_) + _g98841_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98860_ 2))) + (##fx= _g98842_ 2))) (error "Context expects 2 values" - _g98860_))) - (let ((_e97556_ + _g98842_))) + (let ((_e97538_ (let () (declare (not safe)) - (##vector-ref _g98859_ 0))) - (_vars97557_ + (##vector-ref _g98841_ 0))) + (_vars97539_ (let () (declare (not safe)) - (##vector-ref _g98859_ 1)))) + (##vector-ref _g98841_ 1)))) (values (let () (declare (not safe)) - (cons 'vector _e97556_)) - _vars97557_)))) + (cons 'vector _e97538_)) + _vars97539_)))) (if (let () (declare (not safe)) - (gx#stx-box? _e97473_)) - (let ((_g98856_ - (let ((__tmp98858 + (gx#stx-box? _e97455_)) + (let ((_g98838_ + (let ((__tmp98840 (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _e97473_))))) + (gx#syntax-e _e97455_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_recur97471_ - __tmp98858 - _vars97474_ - _depth97475_)))) + (_recur97453_ + __tmp98840 + _vars97456_ + _depth97457_)))) (begin - (let ((_g98857_ + (let ((_g98839_ (let () (declare (not safe)) - (if (##values? _g98856_) + (if (##values? _g98838_) (##vector-length - _g98856_) + _g98838_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g98857_ 2))) + (##fx= _g98839_ 2))) (error "Context expects 2 values" - _g98857_))) - (let ((_e97559_ + _g98839_))) + (let ((_e97541_ (let () (declare (not safe)) (##vector-ref - _g98856_ + _g98838_ 0))) - (_vars97560_ + (_vars97542_ (let () (declare (not safe)) (##vector-ref - _g98856_ + _g98838_ 1)))) (values (let () (declare (not safe)) - (cons 'box _e97559_)) - _vars97560_)))) + (cons 'box _e97541_)) + _vars97542_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _e97473_)) - (values (let ((__tmp98855 + (gx#stx-datum? _e97455_)) + (values (let ((__tmp98837 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _e97473_)))) + (gx#stx-e _e97455_)))) (declare (not safe)) - (cons 'datum __tmp98855)) - _vars97474_) + (cons 'datum __tmp98837)) + _vars97456_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _stx97390_ - _e97473_)))))))))))) - (let* ((_e9740097413_ _stx97390_) - (_E9740297417_ + _stx97372_ + _e97455_)))))))))))) + (let* ((_e9738297395_ _stx97372_) + (_E9738497399_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9740097413_)))) - (_E9740197464_ + _e9738297395_)))) + (_E9738397446_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e9740097413_)) - (let ((_e9740397421_ + (gx#stx-pair? _e9738297395_)) + (let ((_e9738597403_ (let () (declare (not safe)) - (gx#syntax-e _e9740097413_)))) - (let ((_hd9740497424_ + (gx#syntax-e _e9738297395_)))) + (let ((_hd9738697406_ (let () (declare (not safe)) - (##car _e9740397421_))) - (_tl9740597426_ + (##car _e9738597403_))) + (_tl9738797408_ (let () (declare (not safe)) - (##cdr _e9740397421_)))) + (##cdr _e9738597403_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9740597426_)) - (let ((_e9740697429_ + (gx#stx-pair? _tl9738797408_)) + (let ((_e9738897411_ (let () (declare (not safe)) - (gx#syntax-e _tl9740597426_)))) - (let ((_hd9740797432_ + (gx#syntax-e _tl9738797408_)))) + (let ((_hd9738997414_ (let () (declare (not safe)) - (##car _e9740697429_))) - (_tl9740897434_ + (##car _e9738897411_))) + (_tl9739097416_ (let () (declare (not safe)) - (##cdr _e9740697429_)))) - (let ((_expr97437_ _hd9740797432_)) + (##cdr _e9738897411_)))) + (let ((_expr97419_ _hd9738997414_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl9740897434_)) - (let ((_e9740997439_ + (gx#stx-pair? _tl9739097416_)) + (let ((_e9739197421_ (let () (declare (not safe)) (gx#syntax-e - _tl9740897434_)))) - (let ((_hd9741097442_ + _tl9739097416_)))) + (let ((_hd9739297424_ (let () (declare (not safe)) - (##car _e9740997439_))) - (_tl9741197444_ + (##car _e9739197421_))) + (_tl9739397426_ (let () (declare (not safe)) - (##cdr _e9740997439_)))) - (let* ((_ids97447_ - _hd9741097442_) - (_clauses97449_ - _tl9741197444_)) + (##cdr _e9739197421_)))) + (let* ((_ids97429_ + _hd9739297424_) + (_clauses97431_ + _tl9739397426_)) (if '#t - (if (let ((__tmp98888 + (if (let ((__tmp98870 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier-list? _ids97447_)))) + (gx#identifier-list? _ids97429_)))) (declare (not safe)) - (not __tmp98888)) + (not __tmp98870)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _stx97390_ - _ids97447_)) - (if (let ((__tmp98887 + _stx97372_ + _ids97429_)) + (if (let ((__tmp98869 (let () (declare (not safe)) - (gx#stx-list? _clauses97449_)))) + (gx#stx-list? _clauses97431_)))) (declare (not safe)) - (not __tmp98887)) + (not __tmp98869)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _stx97390_)) - (let* ((_ids97451_ + _stx97372_)) + (let* ((_ids97433_ (let () (declare (not safe)) - (gx#syntax->list _ids97447_))) - (_clauses97453_ + (gx#syntax->list _ids97429_))) + (_clauses97435_ (let () (declare (not safe)) - (gx#syntax->list _clauses97449_))) - (_clause-ids97455_ + (gx#syntax->list _clauses97431_))) + (_clause-ids97437_ (let () (declare (not safe)) - (gx#gentemps _clauses97453_))) - (_E97457_ + (gx#gentemps _clauses97435_))) + (_E97439_ (let () (declare (not safe)) (gx#genident__0))) - (_target97459_ + (_target97441_ (let () (declare (not safe)) (gx#genident__0))) - (_first97461_ + (_first97443_ (if (let () (declare (not safe)) - (null? _clauses97453_)) - _E97457_ - (car _clause-ids97455_)))) - (let ((__tmp98872 - (let ((__tmp98873 - (let ((__tmp98875 - (let ((__tmp98880 - (let ((__tmp98881 - (let ((__tmp98886 + (null? _clauses97435_)) + _E97439_ + (car _clause-ids97437_)))) + (let ((__tmp98854 + (let ((__tmp98855 + (let ((__tmp98857 + (let ((__tmp98862 + (let ((__tmp98863 + (let ((__tmp98868 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _E97457_ '()))) - (__tmp98882 - (let ((__tmp98883 - (let ((__tmp98885 + (cons _E97439_ '()))) + (__tmp98864 + (let ((__tmp98865 + (let ((__tmp98867 (let () (declare (not safe)) - (cons _target97459_ '()))) - (__tmp98884 + (cons _target97441_ '()))) + (__tmp98866 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _target97459_)))) + _target97441_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp98885 - __tmp98884)))) + __tmp98867 + __tmp98866)))) (declare (not safe)) - (cons __tmp98883 '())))) + (cons __tmp98865 '())))) (declare (not safe)) - (cons __tmp98886 __tmp98882)))) + (cons __tmp98868 __tmp98864)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp98881 '()))) - (__tmp98876 - (let ((__tmp98879 + (cons __tmp98863 '()))) + (__tmp98858 + (let ((__tmp98861 (let () (declare (not safe)) - (_generate-bindings97395_ - _target97459_ - _ids97451_ - _clauses97453_ - _clause-ids97455_ - _E97457_))) - (__tmp98877 - (let ((__tmp98878 + (_generate-bindings97377_ + _target97441_ + _ids97433_ + _clauses97435_ + _clause-ids97437_ + _E97439_))) + (__tmp98859 + (let ((__tmp98860 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr97437_ '())))) + (cons _expr97419_ '())))) (declare (not safe)) - (cons _first97461_ __tmp98878)))) + (cons _first97443_ __tmp98860)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_generate-body97396_ - __tmp98879 - __tmp98877)))) + (_generate-body97378_ + __tmp98861 + __tmp98859)))) (declare (not safe)) (gx#core-list 'let-values - __tmp98880 - __tmp98876))) - (__tmp98874 + __tmp98862 + __tmp98858))) + (__tmp98856 (let () (declare (not safe)) - (gx#stx-source _stx97390_)))) + (gx#stx-source _stx97372_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp98875 - __tmp98874)))) + __tmp98857 + __tmp98856)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp98873))) - (__tmp98871 + __tmp98855))) + (__tmp98853 (let () (declare (not safe)) - (gx#stx-source _stx97390_)))) + (gx#stx-source _stx97372_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp98872 __tmp98871))))) + (gx#stx-wrap-source __tmp98854 __tmp98853))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E9740297417_)))))) + (_E9738497399_)))))) (let () (declare (not safe)) - (_E9740297417_)))))) + (_E9738497399_)))))) (let () (declare (not safe)) - (_E9740297417_))))) - (let () (declare (not safe)) (_E9740297417_)))))) - (let () (declare (not safe)) (_E9740197464_)))))) + (_E9738497399_))))) + (let () (declare (not safe)) (_E9738497399_)))))) + (let () (declare (not safe)) (_E9738397446_)))))) (define gx#macro-expand-syntax-case__0 - (lambda (_stx98100_) - (let* ((_identifier=?98102_ 'free-identifier=?) - (_unwrap-e98104_ 'syntax-e) - (_wrap-e98106_ 'quote-syntax)) + (lambda (_stx98082_) + (let* ((_identifier=?98084_ 'free-identifier=?) + (_unwrap-e98086_ 'syntax-e) + (_wrap-e98088_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx98100_ - _identifier=?98102_ - _unwrap-e98104_ - _wrap-e98106_)))) + _stx98082_ + _identifier=?98084_ + _unwrap-e98086_ + _wrap-e98088_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_stx98108_ _identifier=?98109_) - (let* ((_unwrap-e98111_ 'syntax-e) (_wrap-e98113_ 'quote-syntax)) + (lambda (_stx98090_ _identifier=?98091_) + (let* ((_unwrap-e98093_ 'syntax-e) (_wrap-e98095_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx98108_ - _identifier=?98109_ - _unwrap-e98111_ - _wrap-e98113_)))) + _stx98090_ + _identifier=?98091_ + _unwrap-e98093_ + _wrap-e98095_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_stx98115_ _identifier=?98116_ _unwrap-e98117_) - (let ((_wrap-e98119_ 'quote-syntax)) + (lambda (_stx98097_ _identifier=?98098_ _unwrap-e98099_) + (let ((_wrap-e98101_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx98115_ - _identifier=?98116_ - _unwrap-e98117_ - _wrap-e98119_)))) + _stx98097_ + _identifier=?98098_ + _unwrap-e98099_ + _wrap-e98101_)))) (define gx#macro-expand-syntax-case - (lambda _g98890_ - (let ((_g98889_ (let () (declare (not safe)) (##length _g98890_)))) - (cond ((let () (declare (not safe)) (##fx= _g98889_ 1)) - (apply (lambda (_stx98100_) + (lambda _g98872_ + (let ((_g98871_ (let () (declare (not safe)) (##length _g98872_)))) + (cond ((let () (declare (not safe)) (##fx= _g98871_ 1)) + (apply (lambda (_stx98082_) (let () (declare (not safe)) - (gx#macro-expand-syntax-case__0 _stx98100_))) - _g98890_)) - ((let () (declare (not safe)) (##fx= _g98889_ 2)) - (apply (lambda (_stx98108_ _identifier=?98109_) + (gx#macro-expand-syntax-case__0 _stx98082_))) + _g98872_)) + ((let () (declare (not safe)) (##fx= _g98871_ 2)) + (apply (lambda (_stx98090_ _identifier=?98091_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__1 - _stx98108_ - _identifier=?98109_))) - _g98890_)) - ((let () (declare (not safe)) (##fx= _g98889_ 3)) - (apply (lambda (_stx98115_ - _identifier=?98116_ - _unwrap-e98117_) + _stx98090_ + _identifier=?98091_))) + _g98872_)) + ((let () (declare (not safe)) (##fx= _g98871_ 3)) + (apply (lambda (_stx98097_ + _identifier=?98098_ + _unwrap-e98099_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__2 - _stx98115_ - _identifier=?98116_ - _unwrap-e98117_))) - _g98890_)) - ((let () (declare (not safe)) (##fx= _g98889_ 4)) - (apply (lambda (_stx98121_ - _identifier=?98122_ - _unwrap-e98123_ - _wrap-e98124_) + _stx98097_ + _identifier=?98098_ + _unwrap-e98099_))) + _g98872_)) + ((let () (declare (not safe)) (##fx= _g98871_ 4)) + (apply (lambda (_stx98103_ + _identifier=?98104_ + _unwrap-e98105_ + _wrap-e98106_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx98121_ - _identifier=?98122_ - _unwrap-e98123_ - _wrap-e98124_))) - _g98890_)) + _stx98103_ + _identifier=?98104_ + _unwrap-e98105_ + _wrap-e98106_))) + _g98872_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g98890_)))))) + _g98872_)))))) (define gx#syntax-local-pattern? - (lambda (_stx97387_) - (if (let () (declare (not safe)) (gx#identifier? _stx97387_)) - (let ((__tmp98891 + (lambda (_stx97369_) + (if (let () (declare (not safe)) (gx#identifier? _stx97369_)) + (let ((__tmp98873 (let () (declare (not safe)) - (gx#syntax-local-e__% _stx97387_ false)))) + (gx#syntax-local-e__% _stx97369_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp98891 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp98873 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (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_)) + (lambda (_hd97327_ . _rest97328_) + (let ((_len97330_ (length _hd97327_))) + (let _lp97332_ ((_rest97334_ _rest97328_)) + (let* ((_rest9733597343_ _rest97334_) + (_else9733797351_ (lambda () '#!void)) + (_K9733997357_ + (lambda (_rest97354_ _hd97355_) + (if (fx= _len97330_ (length _hd97355_)) + (let () (declare (not safe)) (_lp97332_ _rest97354_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _hd97373_)))))) - (if (let () (declare (not safe)) (##pair? _rest9735397361_)) - (let ((_hd9735897378_ + _hd97355_)))))) + (if (let () (declare (not safe)) (##pair? _rest9733597343_)) + (let ((_hd9734097360_ (let () (declare (not safe)) - (##car _rest9735397361_))) - (_tl9735997380_ + (##car _rest9733597343_))) + (_tl9734197362_ (let () (declare (not safe)) - (##cdr _rest9735397361_)))) - (let* ((_hd97383_ _hd9735897378_) - (_rest97385_ _tl9735997380_)) + (##cdr _rest9733597343_)))) + (let* ((_hd97365_ _hd9734097360_) + (_rest97367_ _tl9734197362_)) (declare (not safe)) - (_K9735797375_ _rest97385_ _hd97383_))) + (_K9733997357_ _rest97367_ _hd97365_))) '#!void)))))) (define gx#syntax-split-splice - (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 (_stx97285_ _n97286_) + (let _lp97288_ ((_rest97290_ _stx97285_) (_r97291_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _rest97290_)) + (let* ((_g9729297299_ + (let () (declare (not safe)) (gx#syntax-e _rest97290_))) + (_E9729497303_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _g9731097317_)))) - (_K9731397327_ - (lambda (_rest97324_ _hd97325_) - (let ((__tmp98896 + (error '"No clause matching" _g9729297299_)))) + (_K9729597309_ + (lambda (_rest97306_ _hd97307_) + (let ((__tmp98878 (let () (declare (not safe)) - (cons _hd97325_ _r97309_)))) + (cons _hd97307_ _r97291_)))) (declare (not safe)) - (_lp97306_ _rest97324_ __tmp98896))))) - (if (let () (declare (not safe)) (##pair? _g9731097317_)) - (let ((_hd9731497330_ - (let () (declare (not safe)) (##car _g9731097317_))) - (_tl9731597332_ + (_lp97288_ _rest97306_ __tmp98878))))) + (if (let () (declare (not safe)) (##pair? _g9729297299_)) + (let ((_hd9729697312_ + (let () (declare (not safe)) (##car _g9729297299_))) + (_tl9729797314_ (let () (declare (not safe)) - (##cdr _g9731097317_)))) - (let* ((_hd97335_ _hd9731497330_) - (_rest97337_ _tl9731597332_)) + (##cdr _g9729297299_)))) + (let* ((_hd97317_ _hd9729697312_) + (_rest97319_ _tl9729797314_)) (declare (not safe)) - (_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_))) + (_K9729597309_ _rest97319_ _hd97317_))) + (let () (declare (not safe)) (_E9729497303_)))) + (let _lp97321_ ((_n97323_ _n97286_) + (_l97324_ _r97291_) + (_r97325_ _rest97290_)) + (if (let () (declare (not safe)) (null? _l97324_)) + (values _l97324_ _r97325_) + (if (fxpositive? _n97323_) + (let ((__tmp98877 + (let () (declare (not safe)) (fx- _n97323_ '1))) + (__tmp98876 (cdr _l97324_)) + (__tmp98874 + (let ((__tmp98875 (car _l97324_))) (declare (not safe)) - (cons __tmp98893 _r97343_)))) + (cons __tmp98875 _r97325_)))) (declare (not safe)) - (_lp97339_ __tmp98895 __tmp98894 __tmp98892)) - (values (reverse _l97342_) _r97343_)))))))))) + (_lp97321_ __tmp98877 __tmp98876 __tmp98874)) + (values (reverse _l97324_) _r97325_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase~1.scm b/src/bootstrap/gerbil/expander/stxcase~1.scm index 5201326e8..0e7135bea 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]#_g98899_| + (define |gx[1]#_g98881_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g98901_| + (define |gx[1]#_g98883_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g98903_| + (define |gx[1]#_g98885_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g98905_| + (define |gx[1]#_g98887_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g98911_| + (define |gx[1]#_g98893_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g98914_| + (define |gx[1]#_g98896_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g98917_| + (define |gx[1]#_g98899_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g98923_| + (define |gx[1]#_g98905_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g98926_| + (define |gx[1]#_g98908_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g98929_| + (define |gx[1]#_g98911_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g98935_| + (define |gx[1]#_g98917_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g98938_| + (define |gx[1]#_g98920_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g98941_| + (define |gx[1]#_g98923_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g98947_| + (define |gx[1]#_g98929_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g98950_| + (define |gx[1]#_g98932_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g98953_| + (define |gx[1]#_g98935_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! @@ -113,7 +113,7 @@ (gx#current-expander-context) '())) (define |gx[:0:]#syntax-pattern| - (let ((__obj98649 + (let ((__obj98631 (let () (declare (not safe)) (##structure @@ -137,7 +137,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98649 + __obj98631 '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! - __obj98649 + __obj98631 'syntax-pattern '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -153,26 +153,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98649 + __obj98631 '(id depth) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98897 - (let ((__tmp98898 |gx[1]#_g98899_|)) + (let ((__tmp98879 + (let ((__tmp98880 |gx[1]#_g98881_|)) (declare (not safe)) - (cons __tmp98898 '())))) + (cons __tmp98880 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj98649 - __tmp98897 + __obj98631 + __tmp98879 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj98649 + __obj98631 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -180,7 +180,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98649 + __obj98631 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -188,7 +188,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98649 + __obj98631 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -196,145 +196,145 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj98649 + __obj98631 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98900 |gx[1]#_g98901_|)) + (let ((__tmp98882 |gx[1]#_g98883_|)) (declare (not safe)) (##unchecked-structure-set! - __obj98649 - __tmp98900 + __obj98631 + __tmp98882 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98902 |gx[1]#_g98903_|)) + (let ((__tmp98884 |gx[1]#_g98885_|)) (declare (not safe)) (##unchecked-structure-set! - __obj98649 - __tmp98902 + __obj98631 + __tmp98884 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98904 |gx[1]#_g98905_|)) + (let ((__tmp98886 |gx[1]#_g98887_|)) (declare (not safe)) (##unchecked-structure-set! - __obj98649 - __tmp98904 + __obj98631 + __tmp98886 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98906 - (let ((__tmp98915 - (let ((__tmp98916 |gx[1]#_g98917_|)) + (let ((__tmp98888 + (let ((__tmp98897 + (let ((__tmp98898 |gx[1]#_g98899_|)) (declare (not safe)) - (cons 'id __tmp98916))) - (__tmp98907 - (let ((__tmp98912 - (let ((__tmp98913 |gx[1]#_g98914_|)) + (cons 'id __tmp98898))) + (__tmp98889 + (let ((__tmp98894 + (let ((__tmp98895 |gx[1]#_g98896_|)) (declare (not safe)) - (cons 'depth __tmp98913))) - (__tmp98908 - (let ((__tmp98909 - (let ((__tmp98910 |gx[1]#_g98911_|)) + (cons 'depth __tmp98895))) + (__tmp98890 + (let ((__tmp98891 + (let ((__tmp98892 |gx[1]#_g98893_|)) (declare (not safe)) - (cons 'e __tmp98910)))) + (cons 'e __tmp98892)))) (declare (not safe)) - (cons __tmp98909 '())))) + (cons __tmp98891 '())))) (declare (not safe)) - (cons __tmp98912 __tmp98908)))) + (cons __tmp98894 __tmp98890)))) (declare (not safe)) - (cons __tmp98915 __tmp98907)))) + (cons __tmp98897 __tmp98889)))) (declare (not safe)) (##unchecked-structure-set! - __obj98649 - __tmp98906 + __obj98631 + __tmp98888 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98918 - (let ((__tmp98927 - (let ((__tmp98928 |gx[1]#_g98929_|)) + (let ((__tmp98900 + (let ((__tmp98909 + (let ((__tmp98910 |gx[1]#_g98911_|)) (declare (not safe)) - (cons 'id __tmp98928))) - (__tmp98919 - (let ((__tmp98924 - (let ((__tmp98925 |gx[1]#_g98926_|)) + (cons 'id __tmp98910))) + (__tmp98901 + (let ((__tmp98906 + (let ((__tmp98907 |gx[1]#_g98908_|)) (declare (not safe)) - (cons 'depth __tmp98925))) - (__tmp98920 - (let ((__tmp98921 - (let ((__tmp98922 |gx[1]#_g98923_|)) + (cons 'depth __tmp98907))) + (__tmp98902 + (let ((__tmp98903 + (let ((__tmp98904 |gx[1]#_g98905_|)) (declare (not safe)) - (cons 'e __tmp98922)))) + (cons 'e __tmp98904)))) (declare (not safe)) - (cons __tmp98921 '())))) + (cons __tmp98903 '())))) (declare (not safe)) - (cons __tmp98924 __tmp98920)))) + (cons __tmp98906 __tmp98902)))) (declare (not safe)) - (cons __tmp98927 __tmp98919)))) + (cons __tmp98909 __tmp98901)))) (declare (not safe)) (##unchecked-structure-set! - __obj98649 - __tmp98918 + __obj98631 + __tmp98900 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98930 - (let ((__tmp98939 - (let ((__tmp98940 |gx[1]#_g98941_|)) + (let ((__tmp98912 + (let ((__tmp98921 + (let ((__tmp98922 |gx[1]#_g98923_|)) (declare (not safe)) - (cons 'id __tmp98940))) - (__tmp98931 - (let ((__tmp98936 - (let ((__tmp98937 |gx[1]#_g98938_|)) + (cons 'id __tmp98922))) + (__tmp98913 + (let ((__tmp98918 + (let ((__tmp98919 |gx[1]#_g98920_|)) (declare (not safe)) - (cons 'depth __tmp98937))) - (__tmp98932 - (let ((__tmp98933 - (let ((__tmp98934 |gx[1]#_g98935_|)) + (cons 'depth __tmp98919))) + (__tmp98914 + (let ((__tmp98915 + (let ((__tmp98916 |gx[1]#_g98917_|)) (declare (not safe)) - (cons 'e __tmp98934)))) + (cons 'e __tmp98916)))) (declare (not safe)) - (cons __tmp98933 '())))) + (cons __tmp98915 '())))) (declare (not safe)) - (cons __tmp98936 __tmp98932)))) + (cons __tmp98918 __tmp98914)))) (declare (not safe)) - (cons __tmp98939 __tmp98931)))) + (cons __tmp98921 __tmp98913)))) (declare (not safe)) (##unchecked-structure-set! - __obj98649 - __tmp98930 + __obj98631 + __tmp98912 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp98942 - (let ((__tmp98951 - (let ((__tmp98952 |gx[1]#_g98953_|)) + (let ((__tmp98924 + (let ((__tmp98933 + (let ((__tmp98934 |gx[1]#_g98935_|)) (declare (not safe)) - (cons 'id __tmp98952))) - (__tmp98943 - (let ((__tmp98948 - (let ((__tmp98949 |gx[1]#_g98950_|)) + (cons 'id __tmp98934))) + (__tmp98925 + (let ((__tmp98930 + (let ((__tmp98931 |gx[1]#_g98932_|)) (declare (not safe)) - (cons 'depth __tmp98949))) - (__tmp98944 - (let ((__tmp98945 - (let ((__tmp98946 |gx[1]#_g98947_|)) + (cons 'depth __tmp98931))) + (__tmp98926 + (let ((__tmp98927 + (let ((__tmp98928 |gx[1]#_g98929_|)) (declare (not safe)) - (cons 'e __tmp98946)))) + (cons 'e __tmp98928)))) (declare (not safe)) - (cons __tmp98945 '())))) + (cons __tmp98927 '())))) (declare (not safe)) - (cons __tmp98948 __tmp98944)))) + (cons __tmp98930 __tmp98926)))) (declare (not safe)) - (cons __tmp98951 __tmp98943)))) + (cons __tmp98933 __tmp98925)))) (declare (not safe)) (##unchecked-structure-set! - __obj98649 - __tmp98942 + __obj98631 + __tmp98924 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj98649))) + __obj98631))) diff --git a/src/bootstrap/gerbil/expander/stx~0.scm b/src/bootstrap/gerbil/expander/stx~0.scm index f5571bea6..bd0a650b6 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 1710833424) + (define gerbil/expander/stx::timestamp 1710943497) (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 _$args82842_ - (apply make-instance gx#identifier-wrap::t _$args82842_))) + (lambda _$args82824_ + (apply make-instance gx#identifier-wrap::t _$args82824_))) (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 _$args82839_ - (apply make-instance gx#syntax-wrap::t _$args82839_))) + (lambda _$args82821_ + (apply make-instance gx#syntax-wrap::t _$args82821_))) (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 _$args82836_ - (apply make-instance gx#syntax-quote::t _$args82836_))) + (lambda _$args82818_ + (apply make-instance gx#syntax-quote::t _$args82818_))) (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 (_stx82834_) (symbol? (gx#stx-e _stx82834_)))) + (lambda (_stx82816_) (symbol? (gx#stx-e _stx82816_)))) (define gx#identifier-quote? - (lambda (_stx82832_) - (if (##structure-direct-instance-of? _stx82832_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _stx82832_ '1 gx#AST::t '#f)) + (lambda (_stx82814_) + (if (##structure-direct-instance-of? _stx82814_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _stx82814_ '1 gx#AST::t '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_stx82830_) - (if (##structure-direct-instance-of? _stx82830_ 'gx#syntax-quote::t) + (lambda (_stx82812_) + (if (##structure-direct-instance-of? _stx82812_ 'gx#syntax-quote::t) '#t - (if (##structure-direct-instance-of? _stx82830_ 'gx#syntax-wrap::t) + (if (##structure-direct-instance-of? _stx82812_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _stx82830_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx82812_ '1 gx#AST::t '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_stx82828_) - (if (##structure-direct-instance-of? _stx82828_ 'gx#syntax-quote::t) - _stx82828_ - (if (##structure-direct-instance-of? _stx82828_ 'gx#syntax-wrap::t) + (lambda (_stx82810_) + (if (##structure-direct-instance-of? _stx82810_ 'gx#syntax-quote::t) + _stx82810_ + (if (##structure-direct-instance-of? _stx82810_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _stx82828_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx82810_ '1 gx#AST::t '#f)) '#f)))) (define gx#syntax-e - (lambda (_stx82811_) - (if (##structure-direct-instance-of? _stx82811_ 'gx#syntax-wrap::t) - (let _lp82813_ ((_e82815_ + (lambda (_stx82793_) + (if (##structure-direct-instance-of? _stx82793_ 'gx#syntax-wrap::t) + (let _lp82795_ ((_e82797_ (##unchecked-structure-ref - _stx82811_ + _stx82793_ '1 gx#AST::t '#f)) - (_marks82816_ + (_marks82798_ (cons (##unchecked-structure-ref - _stx82811_ + _stx82793_ '3 gx#syntax-wrap::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) + (if (##structure? _e82797_) + (let ((_$e82800_ (##type-id (##structure-type _e82797_)))) + (if (eq? 'gx#syntax-wrap::t _$e82800_) + (_lp82795_ + (##unchecked-structure-ref _e82797_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e82815_ + _e82797_ '3 gx#syntax-wrap::t '#f) - _marks82816_)) - (if (or (eq? 'gx#syntax-quote::t _$e82818_) - (eq? 'gx#identifier-wrap::t _$e82818_)) + _marks82798_)) + (if (or (eq? 'gx#syntax-quote::t _$e82800_) + (eq? 'gx#identifier-wrap::t _$e82800_)) (##unchecked-structure-ref - _e82815_ + _e82797_ '1 gx#AST::t '#f) - (if (eq? 'gerbil#AST::t _$e82818_) - (_lp82813_ + (if (eq? 'gerbil#AST::t _$e82800_) + (_lp82795_ (##unchecked-structure-ref - _e82815_ + _e82797_ '1 gx#AST::t '#f) - _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_) + _marks82798_) + _e82797_)))) + (if (null? _marks82798_) + _e82797_ + (if (pair? _e82797_) + (cons (gx#stx-wrap (car _e82797_) _marks82798_) + (gx#stx-wrap (cdr _e82797_) _marks82798_)) + (if (vector? _e82797_) (vector-map - (lambda (_g8282382825_) - (gx#stx-wrap _g8282382825_ _marks82816_)) - _e82815_) - (if (box? _e82815_) + (lambda (_g8280582807_) + (gx#stx-wrap _g8280582807_ _marks82798_)) + _e82797_) + (if (box? _e82797_) (box (gx#stx-wrap - (unbox _e82815_) - _marks82816_)) - _e82815_)))))) - (if (##structure-instance-of? _stx82811_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx82811_ '1 gx#AST::t '#f) - _stx82811_)))) + (unbox _e82797_) + _marks82798_)) + _e82797_)))))) + (if (##structure-instance-of? _stx82793_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx82793_ '1 gx#AST::t '#f) + _stx82793_)))) (define gx#syntax->datum - (lambda (_stx82809_) - (if (##structure-instance-of? _stx82809_ 'gerbil#AST::t) + (lambda (_stx82791_) + (if (##structure-instance-of? _stx82791_ 'gerbil#AST::t) (gx#syntax->datum - (##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_)))))) + (##unchecked-structure-ref _stx82791_ '1 gx#AST::t '#f)) + (if (pair? _stx82791_) + (cons (gx#syntax->datum (car _stx82791_)) + (gx#syntax->datum (cdr _stx82791_))) + (if (vector? _stx82791_) + (vector-map gx#syntax->datum _stx82791_) + (if (box? _stx82791_) + (box (gx#syntax->datum (unbox _stx82791_))) + _stx82791_)))))) (define gx#datum->syntax__% - (lambda (_stx82752_ _datum82753_ _src82754_ _quote?82755_) - (letrec ((_wrap-datum82757_ - (lambda (_e82781_ _marks82782_) - (_wrap-inner82759_ - _e82781_ - (lambda (_g8278382785_) + (lambda (_stx82734_ _datum82735_ _src82736_ _quote?82737_) + (letrec ((_wrap-datum82739_ + (lambda (_e82763_ _marks82764_) + (_wrap-inner82741_ + _e82763_ + (lambda (_g8276582767_) (##structure gx#identifier-wrap::t - _g8278382785_ - _src82754_ - _marks82782_))))) - (_wrap-quote82758_ - (lambda (_e82773_ _ctx82774_ _marks82775_) - (_wrap-inner82759_ - _e82773_ - (lambda (_g8277682778_) + _g8276582767_ + _src82736_ + _marks82764_))))) + (_wrap-quote82740_ + (lambda (_e82755_ _ctx82756_ _marks82757_) + (_wrap-inner82741_ + _e82755_ + (lambda (_g8275882760_) (##structure gx#syntax-quote::t - _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_ + _g8275882760_ + _src82736_ + _ctx82756_ + _marks82757_))))) + (_wrap-inner82741_ + (lambda (_e82748_ _wrap-e82749_) + (let _recur82751_ ((_e82753_ _e82748_)) + (if (symbol? _e82753_) + (_wrap-e82749_ _e82753_) + (if (pair? _e82753_) + (cons (_recur82751_ (car _e82753_)) + (_recur82751_ (cdr _e82753_))) + (if (vector? _e82753_) + (vector-map _recur82751_ _e82753_) + (if (box? _e82753_) + (box (_recur82751_ (unbox _e82753_))) + _e82753_))))))) + (_wrap-outer82742_ + (lambda (_e82746_) + (if (##structure-instance-of? _e82746_ 'gerbil#AST::t) + _e82746_ + (##structure gx#AST::t _e82746_ _src82736_))))) + (if (##structure-instance-of? _datum82735_ 'gerbil#AST::t) + _datum82735_ + (if (not _stx82734_) + (##structure gx#AST::t _datum82735_ _src82736_) + (if (gx#identifier? _stx82734_) + (let ((_stx82744_ (gx#stx-unwrap__0 _stx82734_))) + (_wrap-outer82742_ (if (##structure-direct-instance-of? - _stx82762_ + _stx82744_ 'gx#syntax-quote::t) - (if _quote?82755_ - (_wrap-quote82758_ - _datum82753_ + (if _quote?82737_ + (_wrap-quote82740_ + _datum82735_ (##unchecked-structure-ref - _stx82762_ + _stx82744_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _stx82762_ + _stx82744_ '4 gx#syntax-quote::t '#f)) - (_wrap-datum82757_ - _datum82753_ + (_wrap-datum82739_ + _datum82735_ (##unchecked-structure-ref - _stx82762_ + _stx82744_ '4 gx#syntax-quote::t '#f))) - (_wrap-datum82757_ - _datum82753_ + (_wrap-datum82739_ + _datum82735_ (##unchecked-structure-ref - _stx82762_ + _stx82744_ '3 gx#identifier-wrap::t '#f))))) (error '"Bad template syntax; expected identifier" - _stx82752_))))))) + _stx82734_))))))) (define gx#datum->syntax__0 - (lambda (_stx82791_ _datum82792_) - (let* ((_src82794_ '#f) (_quote?82796_ '#t)) + (lambda (_stx82773_ _datum82774_) + (let* ((_src82776_ '#f) (_quote?82778_ '#t)) (gx#datum->syntax__% - _stx82791_ - _datum82792_ - _src82794_ - _quote?82796_)))) + _stx82773_ + _datum82774_ + _src82776_ + _quote?82778_)))) (define gx#datum->syntax__1 - (lambda (_stx82798_ _datum82799_ _src82800_) - (let ((_quote?82802_ '#t)) + (lambda (_stx82780_ _datum82781_ _src82782_) + (let ((_quote?82784_ '#t)) (gx#datum->syntax__% - _stx82798_ - _datum82799_ - _src82800_ - _quote?82802_)))) + _stx82780_ + _datum82781_ + _src82782_ + _quote?82784_)))) (define gx#datum->syntax - (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_) + (lambda _g82905_ + (let ((_g82904_ (##length _g82905_))) + (cond ((##fx= _g82904_ 2) + (apply (lambda (_stx82773_ _datum82774_) + (gx#datum->syntax__0 _stx82773_ _datum82774_)) + _g82905_)) + ((##fx= _g82904_ 3) + (apply (lambda (_stx82780_ _datum82781_ _src82782_) (gx#datum->syntax__1 - _stx82798_ - _datum82799_ - _src82800_)) - _g82923_)) - ((##fx= _g82922_ 4) - (apply (lambda (_stx82804_ - _datum82805_ - _src82806_ - _quote?82807_) + _stx82780_ + _datum82781_ + _src82782_)) + _g82905_)) + ((##fx= _g82904_ 4) + (apply (lambda (_stx82786_ + _datum82787_ + _src82788_ + _quote?82789_) (gx#datum->syntax__% - _stx82804_ - _datum82805_ - _src82806_ - _quote?82807_)) - _g82923_)) + _stx82786_ + _datum82787_ + _src82788_ + _quote?82789_)) + _g82905_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g82923_)))))) + _g82905_)))))) (define gx#stx-unwrap__% - (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) + (lambda (_stx82710_ _marks82711_) + (let _lp82713_ ((_e82715_ _stx82710_) + (_marks82716_ _marks82711_) + (_src82717_ (gx#stx-source _stx82710_))) + (if (##structure-direct-instance-of? _e82715_ 'gx#syntax-wrap::t) + (_lp82713_ + (##unchecked-structure-ref _e82715_ '1 gx#AST::t '#f) (gx#apply-mark - (##unchecked-structure-ref _e82733_ '3 gx#syntax-wrap::t '#f) - _marks82734_) - (##unchecked-structure-ref _e82733_ '2 gx#AST::t '#f)) + (##unchecked-structure-ref _e82715_ '3 gx#syntax-wrap::t '#f) + _marks82716_) + (##unchecked-structure-ref _e82715_ '2 gx#AST::t '#f)) (if (##structure-direct-instance-of? - _e82733_ + _e82715_ 'gx#identifier-wrap::t) - (if (null? _marks82734_) - _e82733_ + (if (null? _marks82716_) + _e82715_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _e82733_ '1 gx#AST::t '#f) - (##unchecked-structure-ref _e82733_ '2 gx#AST::t '#f) + (##unchecked-structure-ref _e82715_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _e82715_ '2 gx#AST::t '#f) (foldl1 gx#apply-mark (##unchecked-structure-ref - _e82733_ + _e82715_ '3 gx#identifier-wrap::t '#f) - _marks82734_))) + _marks82716_))) (if (##structure-direct-instance-of? - _e82733_ + _e82715_ 'gx#syntax-quote::t) - _e82733_ - (if (##structure-instance-of? _e82733_ 'gerbil#AST::t) - (_lp82731_ + _e82715_ + (if (##structure-instance-of? _e82715_ 'gerbil#AST::t) + (_lp82713_ (##unchecked-structure-ref - _e82733_ + _e82715_ '1 gx#AST::t '#f) - _marks82734_ + _marks82716_ (##unchecked-structure-ref - _e82733_ + _e82715_ '2 gx#AST::t '#f)) - (if (symbol? _e82733_) + (if (symbol? _e82715_) (##structure gx#identifier-wrap::t - _e82733_ - _src82735_ - (reverse _marks82734_)) - (if (null? _marks82734_) - _e82733_ - (if (pair? _e82733_) + _e82715_ + _src82717_ + (reverse _marks82716_)) + (if (null? _marks82716_) + _e82715_ + (if (pair? _e82715_) (cons (gx#stx-wrap - (car _e82733_) - _marks82734_) + (car _e82715_) + _marks82716_) (gx#stx-wrap - (cdr _e82733_) - _marks82734_)) - (if (vector? _e82733_) + (cdr _e82715_) + _marks82716_)) + (if (vector? _e82715_) (vector-map - (lambda (_g8273682738_) + (lambda (_g8271882720_) (gx#stx-wrap - _g8273682738_ - _marks82734_)) - _e82733_) - (if (box? _e82733_) + _g8271882720_ + _marks82716_)) + _e82715_) + (if (box? _e82715_) (box (gx#stx-wrap - (unbox _e82733_) - _marks82734_)) - _e82733_)))))))))))) + (unbox _e82715_) + _marks82716_)) + _e82715_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_stx82744_) - (let ((_marks82746_ '())) (gx#stx-unwrap__% _stx82744_ _marks82746_)))) + (lambda (_stx82726_) + (let ((_marks82728_ '())) (gx#stx-unwrap__% _stx82726_ _marks82728_)))) (define gx#stx-unwrap - (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_)) + (lambda _g82907_ + (let ((_g82906_ (##length _g82907_))) + (cond ((##fx= _g82906_ 1) + (apply (lambda (_stx82726_) (gx#stx-unwrap__0 _stx82726_)) + _g82907_)) + ((##fx= _g82906_ 2) + (apply (lambda (_stx82730_ _marks82731_) + (gx#stx-unwrap__% _stx82730_ _marks82731_)) + _g82907_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g82925_)))))) + _g82907_)))))) (define gx#stx-wrap - (lambda (_stx82721_ _marks82722_) - (foldl1 (lambda (_mark82724_ _stx82725_) - (gx#stx-apply-mark _stx82725_ _mark82724_)) - _stx82721_ - _marks82722_))) + (lambda (_stx82703_ _marks82704_) + (foldl1 (lambda (_mark82706_ _stx82707_) + (gx#stx-apply-mark _stx82707_ _mark82706_)) + _stx82703_ + _marks82704_))) (define gx#stx-rewrap - (lambda (_stx82715_ _marks82716_) - (foldr1 (lambda (_mark82718_ _stx82719_) - (gx#stx-apply-mark _stx82719_ _mark82718_)) - _stx82715_ - _marks82716_))) + (lambda (_stx82697_ _marks82698_) + (foldr1 (lambda (_mark82700_ _stx82701_) + (gx#stx-apply-mark _stx82701_ _mark82700_)) + _stx82697_ + _marks82698_))) (define gx#stx-apply-mark - (lambda (_stx82712_ _mark82713_) - (if (##structure-direct-instance-of? _stx82712_ 'gx#syntax-quote::t) - _stx82712_ + (lambda (_stx82694_ _mark82695_) + (if (##structure-direct-instance-of? _stx82694_ 'gx#syntax-quote::t) + _stx82694_ (if (and (##structure-direct-instance-of? - _stx82712_ + _stx82694_ 'gx#syntax-wrap::t) - (eq? _mark82713_ + (eq? _mark82695_ (##unchecked-structure-ref - _stx82712_ + _stx82694_ '3 gx#syntax-wrap::t '#f))) - (##unchecked-structure-ref _stx82712_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _stx82694_ '1 gx#AST::t '#f) (##structure gx#syntax-wrap::t - _stx82712_ - (gx#stx-source _stx82712_) - _mark82713_))))) + _stx82694_ + (gx#stx-source _stx82694_) + _mark82695_))))) (define gx#apply-mark - (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_))))) + (lambda (_mark82658_ _marks82659_) + (let* ((_marks8266082668_ _marks82659_) + (_else8266282676_ (lambda () (cons _mark82658_ _marks82659_))) + (_K8266482682_ + (lambda (_rest82679_ _hd82680_) + (if (eq? _mark82658_ _hd82680_) + _rest82679_ + (cons _mark82658_ _marks82659_))))) + (if (##pair? _marks8266082668_) + (let ((_hd8266582685_ (##car _marks8266082668_)) + (_tl8266682687_ (##cdr _marks8266082668_))) + (let* ((_hd82690_ _hd8266582685_) (_rest82692_ _tl8266682687_)) + (_K8266482682_ _rest82692_ _hd82690_))) + (_else8266282676_))))) (define gx#stx-e - (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_)))) + (lambda (_stx82656_) + (if (##structure-direct-instance-of? _stx82656_ 'gx#syntax-wrap::t) + (gx#stx-e (##unchecked-structure-ref _stx82656_ '1 gx#AST::t '#f)) + (if (##structure-instance-of? _stx82656_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx82656_ '1 gx#AST::t '#f) + _stx82656_)))) (define gx#stx-source - (lambda (_stx82672_) - (if (##structure-instance-of? _stx82672_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx82672_ '2 gx#AST::t '#f) + (lambda (_stx82654_) + (if (##structure-instance-of? _stx82654_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx82654_ '2 gx#AST::t '#f) '#f))) (define gx#stx-wrap-source - (lambda (_stx82666_ _src82667_) - (if (or (##structure-instance-of? _stx82666_ 'gerbil#AST::t) - (not _src82667_)) - _stx82666_ - (##structure gx#AST::t _stx82666_ _src82667_)))) + (lambda (_stx82648_ _src82649_) + (if (or (##structure-instance-of? _stx82648_ 'gerbil#AST::t) + (not _src82649_)) + _stx82648_ + (##structure gx#AST::t _stx82648_ _src82649_)))) (define gx#stx-datum? - (lambda (_stx82664_) (gx#self-quoting? (gx#stx-e _stx82664_)))) + (lambda (_stx82646_) (gx#self-quoting? (gx#stx-e _stx82646_)))) (define gx#self-quoting? - (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_)))) + (lambda (_x82629_) + (let ((_$e82631_ (immediate? _x82629_))) + (if _$e82631_ + _$e82631_ + (let ((_$e82634_ (number? _x82629_))) + (if _$e82634_ + _$e82634_ + (let ((_$e82637_ (keyword? _x82629_))) + (if _$e82637_ + _$e82637_ + (let ((_$e82640_ (string? _x82629_))) + (if _$e82640_ + _$e82640_ + (let ((_$e82643_ (vector? _x82629_))) + (if _$e82643_ + _$e82643_ + (u8vector? _x82629_))))))))))))) + (define gx#stx-boolean? (lambda (_e82627_) (boolean? (gx#stx-e _e82627_)))) + (define gx#stx-keyword? (lambda (_e82625_) (keyword? (gx#stx-e _e82625_)))) + (define gx#stx-char? (lambda (_e82623_) (char? (gx#stx-e _e82623_)))) + (define gx#stx-number? (lambda (_e82621_) (number? (gx#stx-e _e82621_)))) + (define gx#stx-fixnum? (lambda (_e82619_) (fixnum? (gx#stx-e _e82619_)))) + (define gx#stx-string? (lambda (_e82617_) (string? (gx#stx-e _e82617_)))) + (define gx#stx-null? (lambda (_e82615_) (null? (gx#stx-e _e82615_)))) + (define gx#stx-pair? (lambda (_e82613_) (pair? (gx#stx-e _e82613_)))) (define gx#stx-list? - (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_))))))) + (lambda (_e82575_) + (let* ((_g8257682585_ (gx#stx-e _e82575_)) + (_E8257982589_ + (lambda () (error '"No clause matching" _g8257682585_)))) + (let ((_K8258182605_ + (lambda (_rest82603_) (gx#stx-list? _rest82603_))) + (_K8258082595_ (lambda (_tail82593_) (null? _tail82593_)))) + (if (##pair? _g8257682585_) + (let* ((_tl8258382608_ (##cdr _g8257682585_)) + (_rest82611_ _tl8258382608_)) + (gx#stx-list? _rest82611_)) + (let ((_tail82598_ _g8257682585_)) (null? _tail82598_))))))) (define gx#stx-pair/null? - (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_)))) + (lambda (_e82568_) + (let* ((_e82570_ (gx#stx-e _e82568_)) (_$e82572_ (pair? _e82570_))) + (if _$e82572_ _$e82572_ (null? _e82570_))))) + (define gx#stx-vector? (lambda (_e82566_) (vector? (gx#stx-e _e82566_)))) + (define gx#stx-box? (lambda (_e82564_) (box? (gx#stx-e _e82564_)))) (define gx#stx-eq? - (lambda (_x82579_ _y82580_) - (eq? (gx#stx-e _x82579_) (gx#stx-e _y82580_)))) + (lambda (_x82561_ _y82562_) + (eq? (gx#stx-e _x82561_) (gx#stx-e _y82562_)))) (define gx#stx-eqv? - (lambda (_x82576_ _y82577_) - (eqv? (gx#stx-e _x82576_) (gx#stx-e _y82577_)))) + (lambda (_x82558_ _y82559_) + (eqv? (gx#stx-e _x82558_) (gx#stx-e _y82559_)))) (define gx#stx-equal? - (lambda (_x82573_ _y82574_) - (equal? (gx#stx-e _x82573_) (gx#stx-e _y82574_)))) - (define gx#stx-false? (lambda (_x82571_) (not (gx#stx-e _x82571_)))) + (lambda (_x82555_ _y82556_) + (equal? (gx#stx-e _x82555_) (gx#stx-e _y82556_)))) + (define gx#stx-false? (lambda (_x82553_) (not (gx#stx-e _x82553_)))) (define gx#stx-identifier - (lambda (_template82568_ . _args82569_) + (lambda (_template82550_ . _args82551_) (gx#datum->syntax__1 - _template82568_ - (apply make-symbol (gx#syntax->datum _args82569_)) - (gx#stx-source _template82568_)))) + _template82550_ + (apply make-symbol (gx#syntax->datum _args82551_)) + (gx#stx-source _template82550_)))) (define gx#stx-identifier-marks - (lambda (_stx82566_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx82566_)))) + (lambda (_stx82548_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx82548_)))) (define gx#stx-identifier-marks* - (lambda (_stx82564_) - (if (##structure-direct-instance-of? _stx82564_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _stx82564_ '3 gx#identifier-wrap::t '#f) + (lambda (_stx82546_) + (if (##structure-direct-instance-of? _stx82546_ 'gx#identifier-wrap::t) + (##unchecked-structure-ref _stx82546_ '3 gx#identifier-wrap::t '#f) (if (##structure-direct-instance-of? - _stx82564_ + _stx82546_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _stx82564_ + _stx82546_ '4 gx#syntax-quote::t '#f) (error '"Bad wrap; expected unwrapped identifier" - _stx82564_))))) + _stx82546_))))) (define gx#stx-identifier-context - (lambda (_stx82560_) - (let ((_stx82562_ (gx#stx-unwrap__0 _stx82560_))) - (if (gx#identifier-quote? _stx82562_) - (##unchecked-structure-ref _stx82562_ '3 gx#syntax-quote::t '#f) + (lambda (_stx82542_) + (let ((_stx82544_ (gx#stx-unwrap__0 _stx82542_))) + (if (gx#identifier-quote? _stx82544_) + (##unchecked-structure-ref _stx82544_ '3 gx#syntax-quote::t '#f) '#f)))) (define gx#identifier-list? - (lambda (_stx82515_) - (let* ((_g8251682526_ (gx#stx-e _stx82515_)) - (_else8251982534_ (lambda () '#f))) - (let ((_K8252282548_ - (lambda (_rest82545_ _hd82546_) - (if (gx#identifier? _hd82546_) - (gx#identifier-list? _rest82545_) + (lambda (_stx82497_) + (let* ((_g8249882508_ (gx#stx-e _stx82497_)) + (_else8250182516_ (lambda () '#f))) + (let ((_K8250482530_ + (lambda (_rest82527_ _hd82528_) + (if (gx#identifier? _hd82528_) + (gx#identifier-list? _rest82527_) '#f))) - (_K8252182539_ (lambda () '#t))) - (let ((_try-match8251882542_ + (_K8250382521_ (lambda () '#t))) + (let ((_try-match8250082524_ (lambda () - (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_))))))) + (if (##null? _g8249882508_) + (_K8250382521_) + (_else8250182516_))))) + (if (##pair? _g8249882508_) + (let ((_tl8250682535_ (##cdr _g8249882508_)) + (_hd8250582533_ (##car _g8249882508_))) + (let ((_hd82538_ _hd8250582533_) + (_rest82540_ _tl8250682535_)) + (_K8250482530_ _rest82540_ _hd82538_))) + (_try-match8250082524_))))))) (define gx#genident__% - (lambda (_e82492_ _src82493_) + (lambda (_e82474_ _src82475_) (gx#stx-wrap-source - (gensym (let ((_e82495_ (gx#stx-e _e82492_))) - (if (interned-symbol? _e82495_) _e82495_ 'g))) - (let ((_$e82497_ (gx#stx-source _e82492_))) - (if _$e82497_ _$e82497_ _src82493_))))) + (gensym (let ((_e82477_ (gx#stx-e _e82474_))) + (if (interned-symbol? _e82477_) _e82477_ 'g))) + (let ((_$e82479_ (gx#stx-source _e82474_))) + (if _$e82479_ _$e82479_ _src82475_))))) (define gx#genident__0 (lambda () - (let* ((_e82504_ 'g) (_src82506_ '#f)) - (gx#genident__% _e82504_ _src82506_)))) + (let* ((_e82486_ 'g) (_src82488_ '#f)) + (gx#genident__% _e82486_ _src82488_)))) (define gx#genident__1 - (lambda (_e82508_) - (let ((_src82510_ '#f)) (gx#genident__% _e82508_ _src82510_)))) + (lambda (_e82490_) + (let ((_src82492_ '#f)) (gx#genident__% _e82490_ _src82492_)))) (define gx#genident - (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_)) + (lambda _g82909_ + (let ((_g82908_ (##length _g82909_))) + (cond ((##fx= _g82908_ 0) + (apply (lambda () (gx#genident__0)) _g82909_)) + ((##fx= _g82908_ 1) + (apply (lambda (_e82490_) (gx#genident__1 _e82490_)) + _g82909_)) + ((##fx= _g82908_ 2) + (apply (lambda (_e82494_ _src82495_) + (gx#genident__% _e82494_ _src82495_)) + _g82909_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g82927_)))))) + _g82909_)))))) (define gx#gentemps - (lambda (_stx-lst82489_) (gx#stx-map1 gx#genident _stx-lst82489_))) + (lambda (_stx-lst82471_) (gx#stx-map1 gx#genident _stx-lst82471_))) (define gx#syntax->list - (lambda (_stx82487_) (gx#stx-map1 values _stx82487_))) + (lambda (_stx82469_) (gx#stx-map1 values _stx82469_))) (define gx#stx-car - (lambda (_stx82484_) + (lambda (_stx82466_) (declare (safe)) - (car (let () (declare (not safe)) (gx#syntax-e _stx82484_))))) + (car (let () (declare (not safe)) (gx#syntax-e _stx82466_))))) (define gx#stx-cdr - (lambda (_stx82481_) + (lambda (_stx82463_) (declare (safe)) - (cdr (let () (declare (not safe)) (gx#syntax-e _stx82481_))))) + (cdr (let () (declare (not safe)) (gx#syntax-e _stx82463_))))) (define gx#stx-length - (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_)))))) + (lambda (_stx82428_) + (let _lp82430_ ((_rest82432_ _stx82428_) (_n82433_ '0)) + (let* ((_g8243482442_ (gx#stx-e _rest82432_)) + (_else8243682450_ (lambda () _n82433_)) + (_K8243882455_ + (lambda (_rest82453_) + (_lp82430_ _rest82453_ (fx+ _n82433_ '1))))) + (if (##pair? _g8243482442_) + (let* ((_tl8244082458_ (##cdr _g8243482442_)) + (_rest82461_ _tl8244082458_)) + (_K8243882455_ _rest82461_)) + (_else8243682450_)))))) (define gx#stx-for-each - (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_)) + (lambda _g82911_ + (let ((_g82910_ (##length _g82911_))) + (cond ((##fx= _g82910_ 2) + (apply (lambda (_f82421_ _stx82422_) + (gx#stx-for-each1 _f82421_ _stx82422_)) + _g82911_)) + ((##fx= _g82910_ 3) + (apply (lambda (_f82424_ _xstx82425_ _ystx82426_) + (gx#stx-for-each2 _f82424_ _xstx82425_ _ystx82426_)) + _g82911_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g82929_)))))) + _g82911_)))))) (define gx#stx-for-each1 - (lambda (_f82389_ _stx82390_) - (if (procedure? _f82389_) + (lambda (_f82371_ _stx82372_) + (if (procedure? _f82371_) '#!void - (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_ + (error '"expected procedure" _f82371_)) + (let _lp82374_ ((_rest82376_ _stx82372_)) + (let* ((_g8237782387_ (gx#syntax-e _rest82376_)) + (_else8238082395_ (lambda () (_f82371_ _rest82376_)))) + (let ((_K8238382409_ + (lambda (_rest82406_ _hd82407_) + (_f82371_ _hd82407_) + (_lp82374_ _rest82406_))) + (_K8238282400_ (lambda () '#!void))) + (let ((_try-match8237982403_ (lambda () - (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_)))))))) + (if (##null? _g8237782387_) + (_K8238282400_) + (_else8238082395_))))) + (if (##pair? _g8237782387_) + (let ((_tl8238582414_ (##cdr _g8237782387_)) + (_hd8238482412_ (##car _g8237782387_))) + (let ((_hd82417_ _hd8238482412_) + (_rest82419_ _tl8238582414_)) + (_K8238382409_ _rest82419_ _hd82417_))) + (_try-match8237982403_)))))))) (define gx#stx-for-each2 - (lambda (_f82294_ _xstx82295_ _ystx82296_) - (if (procedure? _f82294_) + (lambda (_f82276_ _xstx82277_ _ystx82278_) + (if (procedure? _f82276_) '#!void - (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_ + (error '"expected procedure" _f82276_)) + (let _lp82280_ ((_xrest82282_ _xstx82277_) (_yrest82283_ _ystx82278_)) + (let* ((_g8228482294_ (gx#syntax-e _xrest82282_)) + (_else8228782302_ (lambda () '#!void))) + (let ((_K8229082359_ + (lambda (_xrest82328_ _xhd82329_) + (let* ((_g8233082337_ (gx#syntax-e _yrest82283_)) + (_E8233282341_ (lambda () - (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_ + (error '"No clause matching" _g8233082337_))) + (_K8233382347_ + (lambda (_yrest82344_ _yhd82345_) + (_f82276_ _xhd82329_ _yhd82345_) + (_lp82280_ _xrest82328_ _yrest82344_)))) + (if (##pair? _g8233082337_) + (let ((_hd8233482350_ (##car _g8233082337_)) + (_tl8233582352_ (##cdr _g8233082337_))) + (let* ((_yhd82355_ _hd8233482350_) + (_yrest82357_ _tl8233582352_)) + (_K8233382347_ _yrest82357_ _yhd82355_))) + (_E8233282341_))))) + (_K8228982322_ (lambda () - (let* ((_yrest8232482329_ _yrest82301_) - (_E8232682333_ + (let* ((_yrest8230682311_ _yrest82283_) + (_E8230882315_ (lambda () (error '"No clause matching" - _yrest8232482329_))) - (_K8232782337_ - (lambda () (_f82294_ _xrest82300_ _yrest82301_)))) - (if (not (gx#stx-null? _yrest8232482329_)) - (_K8232782337_) - (_E8232682333_)))))) - (let ((_try-match8230482343_ + _yrest8230682311_))) + (_K8230982319_ + (lambda () (_f82276_ _xrest82282_ _yrest82283_)))) + (if (not (gx#stx-null? _yrest8230682311_)) + (_K8230982319_) + (_E8230882315_)))))) + (let ((_try-match8228682325_ (lambda () - (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_)))))))) + (if (not (null? _g8228482294_)) + (_K8228982322_) + (_else8228782302_))))) + (if (##pair? _g8228482294_) + (let ((_tl8229282364_ (##cdr _g8228482294_)) + (_hd8229182362_ (##car _g8228482294_))) + (let ((_xhd82367_ _hd8229182362_) + (_xrest82369_ _tl8229282364_)) + (_K8229082359_ _xrest82369_ _xhd82367_))) + (_try-match8228682325_)))))))) (define gx#stx-map - (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_)) + (lambda _g82913_ + (let ((_g82912_ (##length _g82913_))) + (cond ((##fx= _g82912_ 2) + (apply (lambda (_f82269_ _stx82270_) + (gx#stx-map1 _f82269_ _stx82270_)) + _g82913_)) + ((##fx= _g82912_ 3) + (apply (lambda (_f82272_ _xstx82273_ _ystx82274_) + (gx#stx-map2 _f82272_ _xstx82273_ _ystx82274_)) + _g82913_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g82931_)))))) + _g82913_)))))) (define gx#stx-map1 - (lambda (_f82237_ _stx82238_) - (if (procedure? _f82237_) + (lambda (_f82219_ _stx82220_) + (if (procedure? _f82219_) '#!void - (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_ + (error '"expected procedure" _f82219_)) + (let _recur82222_ ((_rest82224_ _stx82220_)) + (let* ((_g8222582235_ (gx#syntax-e _rest82224_)) + (_else8222882243_ (lambda () (_f82219_ _rest82224_)))) + (let ((_K8223182257_ + (lambda (_rest82254_ _hd82255_) + (cons (_f82219_ _hd82255_) (_recur82222_ _rest82254_)))) + (_K8223082248_ (lambda () '()))) + (let ((_try-match8222782251_ (lambda () - (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_)))))))) + (if (##null? _g8222582235_) + (_K8223082248_) + (_else8222882243_))))) + (if (##pair? _g8222582235_) + (let ((_tl8223382262_ (##cdr _g8222582235_)) + (_hd8223282260_ (##car _g8222582235_))) + (let ((_hd82265_ _hd8223282260_) + (_rest82267_ _tl8223382262_)) + (_K8223182257_ _rest82267_ _hd82265_))) + (_try-match8222782251_)))))))) (define gx#stx-map2 - (lambda (_f82142_ _xstx82143_ _ystx82144_) - (if (procedure? _f82142_) + (lambda (_f82124_ _xstx82125_ _ystx82126_) + (if (procedure? _f82124_) '#!void - (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_ + (error '"expected procedure" _f82124_)) + (let _recur82128_ ((_xrest82130_ _xstx82125_) + (_yrest82131_ _ystx82126_)) + (let* ((_g8213282142_ (gx#syntax-e _xrest82130_)) + (_else8213582150_ (lambda () '()))) + (let ((_K8213882207_ + (lambda (_xrest82176_ _xhd82177_) + (let* ((_g8217882185_ (gx#syntax-e _yrest82131_)) + (_E8218082189_ (lambda () - (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_ + (error '"No clause matching" _g8217882185_))) + (_K8218182195_ + (lambda (_yrest82192_ _yhd82193_) + (cons (_f82124_ _xhd82177_ _yhd82193_) + (_recur82128_ + _xrest82176_ + _yrest82192_))))) + (if (##pair? _g8217882185_) + (let ((_hd8218282198_ (##car _g8217882185_)) + (_tl8218382200_ (##cdr _g8217882185_))) + (let* ((_yhd82203_ _hd8218282198_) + (_yrest82205_ _tl8218382200_)) + (_K8218182195_ _yrest82205_ _yhd82203_))) + (_E8218082189_))))) + (_K8213782170_ (lambda () - (let* ((_yrest8217282177_ _yrest82149_) - (_E8217482181_ + (let* ((_yrest8215482159_ _yrest82131_) + (_E8215682163_ (lambda () (error '"No clause matching" - _yrest8217282177_))) - (_K8217582185_ - (lambda () (_f82142_ _xrest82148_ _yrest82149_)))) - (if (not (gx#stx-null? _yrest8217282177_)) - (_K8217582185_) - (_E8217482181_)))))) - (let ((_try-match8215282191_ + _yrest8215482159_))) + (_K8215782167_ + (lambda () (_f82124_ _xrest82130_ _yrest82131_)))) + (if (not (gx#stx-null? _yrest8215482159_)) + (_K8215782167_) + (_E8215682163_)))))) + (let ((_try-match8213482173_ (lambda () - (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_)))))))) + (if (not (null? _g8213282142_)) + (_K8213782170_) + (_else8213582150_))))) + (if (##pair? _g8213282142_) + (let ((_tl8214082212_ (##cdr _g8213282142_)) + (_hd8213982210_ (##car _g8213282142_))) + (let ((_xhd82215_ _hd8213982210_) + (_xrest82217_ _tl8214082212_)) + (_K8213882207_ _xrest82217_ _xhd82215_))) + (_try-match8213482173_)))))))) (define gx#stx-andmap - (lambda (_f82092_ _stx82093_) - (if (procedure? _f82092_) + (lambda (_f82074_ _stx82075_) + (if (procedure? _f82074_) '#!void - (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_ + (error '"expected procedure" _f82074_)) + (let _lp82077_ ((_rest82079_ _stx82075_)) + (let* ((_g8208082090_ (gx#syntax-e _rest82079_)) + (_else8208382098_ (lambda () (_f82074_ _rest82079_)))) + (let ((_K8208682112_ + (lambda (_rest82109_ _hd82110_) + (if (_f82074_ _hd82110_) (_lp82077_ _rest82109_) '#f))) + (_K8208582103_ (lambda () '#t))) + (let ((_try-match8208282106_ (lambda () - (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_)))))))) + (if (##null? _g8208082090_) + (_K8208582103_) + (_else8208382098_))))) + (if (##pair? _g8208082090_) + (let ((_tl8208882117_ (##cdr _g8208082090_)) + (_hd8208782115_ (##car _g8208082090_))) + (let ((_hd82120_ _hd8208782115_) + (_rest82122_ _tl8208882117_)) + (_K8208682112_ _rest82122_ _hd82120_))) + (_try-match8208282106_)))))))) (define gx#stx-ormap - (lambda (_f82039_ _stx82040_) - (if (procedure? _f82039_) + (lambda (_f82021_ _stx82022_) + (if (procedure? _f82021_) '#!void - (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_ + (error '"expected procedure" _f82021_)) + (let _lp82024_ ((_rest82026_ _stx82022_)) + (let* ((_g8202782037_ (gx#syntax-e _rest82026_)) + (_else8203082045_ (lambda () (_f82021_ _rest82026_)))) + (let ((_K8203382062_ + (lambda (_rest82056_ _hd82057_) + (let ((_$e82059_ (_f82021_ _hd82057_))) + (if _$e82059_ _$e82059_ (_lp82024_ _rest82056_))))) + (_K8203282050_ (lambda () '#f))) + (let ((_try-match8202982053_ (lambda () - (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_)))))))) + (if (##null? _g8202782037_) + (_K8203282050_) + (_else8203082045_))))) + (if (##pair? _g8202782037_) + (let ((_tl8203582067_ (##cdr _g8202782037_)) + (_hd8203482065_ (##car _g8202782037_))) + (let ((_hd82070_ _hd8203482065_) + (_rest82072_ _tl8203582067_)) + (_K8203382062_ _rest82072_ _hd82070_))) + (_try-match8202982053_)))))))) (define gx#stx-foldl - (lambda (_f81987_ _iv81988_ _stx81989_) - (if (procedure? _f81987_) + (lambda (_f81969_ _iv81970_ _stx81971_) + (if (procedure? _f81969_) '#!void - (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_ + (error '"expected procedure" _f81969_)) + (let _lp81973_ ((_r81975_ _iv81970_) (_rest81976_ _stx81971_)) + (let* ((_g8197781987_ (gx#syntax-e _rest81976_)) + (_else8198081995_ + (lambda () (_f81969_ _rest81976_ _r81975_)))) + (let ((_K8198382009_ + (lambda (_rest82006_ _hd82007_) + (_lp81973_ (_f81969_ _hd82007_ _r81975_) _rest82006_))) + (_K8198282000_ (lambda () _r81975_))) + (let ((_try-match8197982003_ (lambda () - (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_)))))))) + (if (##null? _g8197781987_) + (_K8198282000_) + (_else8198081995_))))) + (if (##pair? _g8197781987_) + (let ((_tl8198582014_ (##cdr _g8197781987_)) + (_hd8198482012_ (##car _g8197781987_))) + (let ((_hd82017_ _hd8198482012_) + (_rest82019_ _tl8198582014_)) + (_K8198382009_ _rest82019_ _hd82017_))) + (_try-match8197982003_)))))))) (define gx#stx-foldr - (lambda (_f81936_ _iv81937_ _stx81938_) - (if (procedure? _f81936_) + (lambda (_f81918_ _iv81919_ _stx81920_) + (if (procedure? _f81918_) '#!void - (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_ + (error '"expected procedure" _f81918_)) + (let _recur81922_ ((_rest81924_ _stx81920_)) + (let* ((_g8192581935_ (gx#syntax-e _rest81924_)) + (_else8192881943_ + (lambda () (_f81918_ _rest81924_ _iv81919_)))) + (let ((_K8193181957_ + (lambda (_rest81954_ _hd81955_) + (_f81918_ _hd81955_ (_recur81922_ _rest81954_)))) + (_K8193081948_ (lambda () _iv81919_))) + (let ((_try-match8192781951_ (lambda () - (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_)))))))) + (if (##null? _g8192581935_) + (_K8193081948_) + (_else8192881943_))))) + (if (##pair? _g8192581935_) + (let ((_tl8193381962_ (##cdr _g8192581935_)) + (_hd8193281960_ (##car _g8192581935_))) + (let ((_hd81965_ _hd8193281960_) + (_rest81967_ _tl8193381962_)) + (_K8193181957_ _rest81967_ _hd81965_))) + (_try-match8192781951_)))))))) (define gx#stx-reverse - (lambda (_stx81934_) (gx#stx-foldl cons '() _stx81934_))) + (lambda (_stx81916_) (gx#stx-foldl cons '() _stx81916_))) (define gx#stx-last - (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_)))))) + (lambda (_stx81877_) + (let _lp81879_ ((_rest81881_ _stx81877_)) + (let* ((_g8188281890_ (gx#syntax-e _rest81881_)) + (_else8188481898_ (lambda () _rest81881_)) + (_K8188681904_ + (lambda (_rest81901_ _hd81902_) + (if (gx#stx-null? _rest81901_) + _hd81902_ + (_lp81879_ _rest81901_))))) + (if (##pair? _g8188281890_) + (let ((_hd8188781907_ (##car _g8188281890_)) + (_tl8188881909_ (##cdr _g8188281890_))) + (let* ((_hd81912_ _hd8188781907_) + (_rest81914_ _tl8188881909_)) + (_K8188681904_ _rest81914_ _hd81912_))) + (_else8188481898_)))))) (define gx#stx-last-pair - (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_)))))) + (lambda (_stx81848_) + (let _lp81850_ ((_hd81852_ _stx81848_)) + (let* ((_g8185381860_ (gx#syntax-e _hd81852_)) + (_E8185581864_ + (lambda () (error '"No clause matching" _g8185381860_))) + (_K8185681869_ + (lambda (_rest81867_) + (if (gx#stx-pair? _rest81867_) + (_lp81850_ _rest81867_) + _hd81852_)))) + (if (##pair? _g8185381860_) + (let* ((_tl8185881872_ (##cdr _g8185381860_)) + (_rest81875_ _tl8185881872_)) + (_K8185681869_ _rest81875_)) + (_E8185581864_)))))) (define gx#stx-list-tail - (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_)))) + (lambda (_stx81817_ _k81818_) + (let _lp81820_ ((_rest81822_ _stx81817_) (_k81823_ _k81818_)) + (if (fxpositive? _k81823_) + (let* ((_g8182481831_ (gx#syntax-e _rest81822_)) + (_E8182681835_ + (lambda () (error '"No clause matching" _g8182481831_))) + (_K8182781840_ + (lambda (_rest81838_) + (_lp81820_ _rest81838_ (fx- _k81823_ '1))))) + (if (##pair? _g8182481831_) + (let* ((_tl8182981843_ (##cdr _g8182481831_)) + (_rest81846_ _tl8182981843_)) + (_K8182781840_ _rest81846_)) + (_E8182681835_))) + _rest81822_)))) (define gx#stx-list-ref - (lambda (_stx81832_ _k81833_) - (gx#stx-car (gx#stx-list-tail _stx81832_ _k81833_)))) + (lambda (_stx81814_ _k81815_) + (gx#stx-car (gx#stx-list-tail _stx81814_ _k81815_)))) (define gx#stx-plist?__% - (lambda (_stx81744_ _key?81745_) - (if (procedure? _key?81745_) + (lambda (_stx81726_ _key?81727_) + (if (procedure? _key?81727_) '#!void - (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_))) + (error '"expected procedure" _key?81727_)) + (let _lp81729_ ((_rest81731_ _stx81726_)) + (let* ((_g8173281742_ (gx#stx-e _rest81731_)) + (_else8173581750_ (lambda () '#f))) + (let ((_K8173881792_ + (lambda (_rest81761_ _hd81762_) + (if (_key?81727_ _hd81762_) + (let* ((_g8176381771_ (gx#stx-e _rest81761_)) + (_else8176581779_ (lambda () '#f)) + (_K8176781784_ + (lambda (_rest81782_) + (_lp81729_ _rest81782_)))) + (if (##pair? _g8176381771_) + (let* ((_tl8176981787_ (##cdr _g8176381771_)) + (_rest81790_ _tl8176981787_)) + (_lp81729_ _rest81790_)) + (_else8176581779_))) '#f))) - (_K8175581773_ (lambda () '#t))) - (let ((_try-match8175281776_ + (_K8173781755_ (lambda () '#t))) + (let ((_try-match8173481758_ (lambda () - (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_)))))))) + (if (##null? _g8173281742_) + (_K8173781755_) + (_else8173581750_))))) + (if (##pair? _g8173281742_) + (let ((_tl8174081797_ (##cdr _g8173281742_)) + (_hd8173981795_ (##car _g8173281742_))) + (let ((_hd81800_ _hd8173981795_) + (_rest81802_ _tl8174081797_)) + (_K8173881792_ _rest81802_ _hd81800_))) + (_try-match8173481758_)))))))) (define gx#stx-plist?__0 - (lambda (_stx81825_) - (let ((_key?81827_ gx#stx-keyword?)) - (gx#stx-plist?__% _stx81825_ _key?81827_)))) + (lambda (_stx81807_) + (let ((_key?81809_ gx#stx-keyword?)) + (gx#stx-plist?__% _stx81807_ _key?81809_)))) (define gx#stx-plist? - (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_)) + (lambda _g82915_ + (let ((_g82914_ (##length _g82915_))) + (cond ((##fx= _g82914_ 1) + (apply (lambda (_stx81807_) (gx#stx-plist?__0 _stx81807_)) + _g82915_)) + ((##fx= _g82914_ 2) + (apply (lambda (_stx81811_ _key?81812_) + (gx#stx-plist?__% _stx81811_ _key?81812_)) + _g82915_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g82933_)))))) + _g82915_)))))) (define gx#stx-getq__% - (lambda (_key81662_ _stx81663_ _key=?81664_) - (if (procedure? _key=?81664_) + (lambda (_key81644_ _stx81645_ _key=?81646_) + (if (procedure? _key=?81646_) '#!void - (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_ + (error '"expected procedure" _key=?81646_)) + (let _lp81648_ ((_rest81650_ _stx81645_)) + (let* ((_g8165181659_ (gx#syntax-e _rest81650_)) + (_else8165381667_ (lambda () '#f)) + (_K8165581701_ + (lambda (_rest81670_ _hd81671_) + (let* ((_g8167281679_ (gx#syntax-e _rest81670_)) + (_E8167481683_ (lambda () - (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_)))))) + (error '"No clause matching" _g8167281679_))) + (_K8167581689_ + (lambda (_rest81686_ _val81687_) + (if (_key=?81646_ _hd81671_ _key81644_) + _val81687_ + (_lp81648_ _rest81686_))))) + (if (##pair? _g8167281679_) + (let ((_hd8167681692_ (##car _g8167281679_)) + (_tl8167781694_ (##cdr _g8167281679_))) + (let* ((_val81697_ _hd8167681692_) + (_rest81699_ _tl8167781694_)) + (_K8167581689_ _rest81699_ _val81697_))) + (_E8167481683_)))))) + (if (##pair? _g8165181659_) + (let ((_hd8165681704_ (##car _g8165181659_)) + (_tl8165781706_ (##cdr _g8165181659_))) + (let* ((_hd81709_ _hd8165681704_) + (_rest81711_ _tl8165781706_)) + (_K8165581701_ _rest81711_ _hd81709_))) + (_else8165381667_)))))) (define gx#stx-getq__0 - (lambda (_key81734_ _stx81735_) - (let ((_key=?81737_ gx#stx-eq?)) - (gx#stx-getq__% _key81734_ _stx81735_ _key=?81737_)))) + (lambda (_key81716_ _stx81717_) + (let ((_key=?81719_ gx#stx-eq?)) + (gx#stx-getq__% _key81716_ _stx81717_ _key=?81719_)))) (define gx#stx-getq - (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_)) + (lambda _g82917_ + (let ((_g82916_ (##length _g82917_))) + (cond ((##fx= _g82916_ 2) + (apply (lambda (_key81716_ _stx81717_) + (gx#stx-getq__0 _key81716_ _stx81717_)) + _g82917_)) + ((##fx= _g82916_ 3) + (apply (lambda (_key81721_ _stx81722_ _key=?81723_) + (gx#stx-getq__% _key81721_ _stx81722_ _key=?81723_)) + _g82917_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g82935_)))))))) + _g82917_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx~1.scm b/src/bootstrap/gerbil/expander/stx~1.scm index d60fffff5..9509612e2 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]#_g82938_| + (define |gx[1]#_g82920_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g82940_| + (define |gx[1]#_g82922_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g82942_| + (define |gx[1]#_g82924_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g82944_| + (define |gx[1]#_g82926_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g82950_| + (define |gx[1]#_g82932_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g82953_| + (define |gx[1]#_g82935_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g82956_| + (define |gx[1]#_g82938_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g82962_| + (define |gx[1]#_g82944_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g82965_| + (define |gx[1]#_g82947_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g82968_| + (define |gx[1]#_g82950_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g82974_| + (define |gx[1]#_g82956_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g82977_| + (define |gx[1]#_g82959_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g82980_| + (define |gx[1]#_g82962_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g82986_| + (define |gx[1]#_g82968_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g82989_| + (define |gx[1]#_g82971_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g82992_| + (define |gx[1]#_g82974_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g82996_| + (define |gx[1]#_g82978_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g82998_| + (define |gx[1]#_g82980_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g83000_| + (define |gx[1]#_g82982_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g83006_| + (define |gx[1]#_g82988_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g83009_| + (define |gx[1]#_g82991_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g83012_| + (define |gx[1]#_g82994_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g83018_| + (define |gx[1]#_g83000_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83021_| + (define |gx[1]#_g83003_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83024_| + (define |gx[1]#_g83006_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83030_| + (define |gx[1]#_g83012_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g83033_| + (define |gx[1]#_g83015_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g83036_| + (define |gx[1]#_g83018_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g83042_| + (define |gx[1]#_g83024_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83045_| + (define |gx[1]#_g83027_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83048_| + (define |gx[1]#_g83030_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83052_| + (define |gx[1]#_g83034_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g83054_| + (define |gx[1]#_g83036_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g83056_| + (define |gx[1]#_g83038_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g83063_| + (define |gx[1]#_g83045_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g83066_| + (define |gx[1]#_g83048_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g83069_| + (define |gx[1]#_g83051_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g83072_| + (define |gx[1]#_g83054_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g83079_| + (define |gx[1]#_g83061_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83082_| + (define |gx[1]#_g83064_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83085_| + (define |gx[1]#_g83067_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83088_| + (define |gx[1]#_g83070_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83095_| + (define |gx[1]#_g83077_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g83098_| + (define |gx[1]#_g83080_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g83101_| + (define |gx[1]#_g83083_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g83104_| + (define |gx[1]#_g83086_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g83111_| + (define |gx[1]#_g83093_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83114_| + (define |gx[1]#_g83096_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83117_| + (define |gx[1]#_g83099_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g83120_| + (define |gx[1]#_g83102_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj82919 + (let ((__obj82901 (let () (declare (not safe)) (##structure @@ -371,7 +371,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82919 + __obj82901 '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! - __obj82919 + __obj82901 'syntax '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -387,26 +387,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82919 + __obj82901 '(marks) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82936 - (let ((__tmp82937 |gx[1]#_g82938_|)) + (let ((__tmp82918 + (let ((__tmp82919 |gx[1]#_g82920_|)) (declare (not safe)) - (cons __tmp82937 '())))) + (cons __tmp82919 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj82919 - __tmp82936 + __obj82901 + __tmp82918 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82919 + __obj82901 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -414,7 +414,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82919 + __obj82901 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -422,7 +422,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82919 + __obj82901 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -430,150 +430,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82919 + __obj82901 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82939 |gx[1]#_g82940_|)) + (let ((__tmp82921 |gx[1]#_g82922_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82919 - __tmp82939 + __obj82901 + __tmp82921 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82941 |gx[1]#_g82942_|)) + (let ((__tmp82923 |gx[1]#_g82924_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82919 - __tmp82941 + __obj82901 + __tmp82923 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82943 |gx[1]#_g82944_|)) + (let ((__tmp82925 |gx[1]#_g82926_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82919 - __tmp82943 + __obj82901 + __tmp82925 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82945 - (let ((__tmp82954 - (let ((__tmp82955 |gx[1]#_g82956_|)) + (let ((__tmp82927 + (let ((__tmp82936 + (let ((__tmp82937 |gx[1]#_g82938_|)) (declare (not safe)) - (cons 'marks __tmp82955))) - (__tmp82946 - (let ((__tmp82951 - (let ((__tmp82952 |gx[1]#_g82953_|)) + (cons 'marks __tmp82937))) + (__tmp82928 + (let ((__tmp82933 + (let ((__tmp82934 |gx[1]#_g82935_|)) (declare (not safe)) - (cons 'e __tmp82952))) - (__tmp82947 - (let ((__tmp82948 - (let ((__tmp82949 |gx[1]#_g82950_|)) + (cons 'e __tmp82934))) + (__tmp82929 + (let ((__tmp82930 + (let ((__tmp82931 |gx[1]#_g82932_|)) (declare (not safe)) - (cons 'source __tmp82949)))) + (cons 'source __tmp82931)))) (declare (not safe)) - (cons __tmp82948 '())))) + (cons __tmp82930 '())))) (declare (not safe)) - (cons __tmp82951 __tmp82947)))) + (cons __tmp82933 __tmp82929)))) (declare (not safe)) - (cons __tmp82954 __tmp82946)))) + (cons __tmp82936 __tmp82928)))) (declare (not safe)) (##unchecked-structure-set! - __obj82919 - __tmp82945 + __obj82901 + __tmp82927 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82957 - (let ((__tmp82966 - (let ((__tmp82967 |gx[1]#_g82968_|)) + (let ((__tmp82939 + (let ((__tmp82948 + (let ((__tmp82949 |gx[1]#_g82950_|)) (declare (not safe)) - (cons 'marks __tmp82967))) - (__tmp82958 - (let ((__tmp82963 - (let ((__tmp82964 |gx[1]#_g82965_|)) + (cons 'marks __tmp82949))) + (__tmp82940 + (let ((__tmp82945 + (let ((__tmp82946 |gx[1]#_g82947_|)) (declare (not safe)) - (cons 'e __tmp82964))) - (__tmp82959 - (let ((__tmp82960 - (let ((__tmp82961 |gx[1]#_g82962_|)) + (cons 'e __tmp82946))) + (__tmp82941 + (let ((__tmp82942 + (let ((__tmp82943 |gx[1]#_g82944_|)) (declare (not safe)) - (cons 'source __tmp82961)))) + (cons 'source __tmp82943)))) (declare (not safe)) - (cons __tmp82960 '())))) + (cons __tmp82942 '())))) (declare (not safe)) - (cons __tmp82963 __tmp82959)))) + (cons __tmp82945 __tmp82941)))) (declare (not safe)) - (cons __tmp82966 __tmp82958)))) + (cons __tmp82948 __tmp82940)))) (declare (not safe)) (##unchecked-structure-set! - __obj82919 - __tmp82957 + __obj82901 + __tmp82939 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82969 - (let ((__tmp82978 - (let ((__tmp82979 |gx[1]#_g82980_|)) + (let ((__tmp82951 + (let ((__tmp82960 + (let ((__tmp82961 |gx[1]#_g82962_|)) (declare (not safe)) - (cons 'marks __tmp82979))) - (__tmp82970 - (let ((__tmp82975 - (let ((__tmp82976 |gx[1]#_g82977_|)) + (cons 'marks __tmp82961))) + (__tmp82952 + (let ((__tmp82957 + (let ((__tmp82958 |gx[1]#_g82959_|)) (declare (not safe)) - (cons 'e __tmp82976))) - (__tmp82971 - (let ((__tmp82972 - (let ((__tmp82973 |gx[1]#_g82974_|)) + (cons 'e __tmp82958))) + (__tmp82953 + (let ((__tmp82954 + (let ((__tmp82955 |gx[1]#_g82956_|)) (declare (not safe)) - (cons 'source __tmp82973)))) + (cons 'source __tmp82955)))) (declare (not safe)) - (cons __tmp82972 '())))) + (cons __tmp82954 '())))) (declare (not safe)) - (cons __tmp82975 __tmp82971)))) + (cons __tmp82957 __tmp82953)))) (declare (not safe)) - (cons __tmp82978 __tmp82970)))) + (cons __tmp82960 __tmp82952)))) (declare (not safe)) (##unchecked-structure-set! - __obj82919 - __tmp82969 + __obj82901 + __tmp82951 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82981 - (let ((__tmp82990 - (let ((__tmp82991 |gx[1]#_g82992_|)) + (let ((__tmp82963 + (let ((__tmp82972 + (let ((__tmp82973 |gx[1]#_g82974_|)) (declare (not safe)) - (cons 'marks __tmp82991))) - (__tmp82982 - (let ((__tmp82987 - (let ((__tmp82988 |gx[1]#_g82989_|)) + (cons 'marks __tmp82973))) + (__tmp82964 + (let ((__tmp82969 + (let ((__tmp82970 |gx[1]#_g82971_|)) (declare (not safe)) - (cons 'e __tmp82988))) - (__tmp82983 - (let ((__tmp82984 - (let ((__tmp82985 |gx[1]#_g82986_|)) + (cons 'e __tmp82970))) + (__tmp82965 + (let ((__tmp82966 + (let ((__tmp82967 |gx[1]#_g82968_|)) (declare (not safe)) - (cons 'source __tmp82985)))) + (cons 'source __tmp82967)))) (declare (not safe)) - (cons __tmp82984 '())))) + (cons __tmp82966 '())))) (declare (not safe)) - (cons __tmp82987 __tmp82983)))) + (cons __tmp82969 __tmp82965)))) (declare (not safe)) - (cons __tmp82990 __tmp82982)))) + (cons __tmp82972 __tmp82964)))) (declare (not safe)) (##unchecked-structure-set! - __obj82919 - __tmp82981 + __obj82901 + __tmp82963 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj82919)) + __obj82901)) (define |gx[:0:]#syntax-wrap| - (let ((__obj82920 + (let ((__obj82902 (let () (declare (not safe)) (##structure @@ -597,7 +597,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82920 + __obj82902 '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! - __obj82920 + __obj82902 'syntax '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -613,26 +613,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82920 + __obj82902 '(mark) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82993 - (let ((__tmp82994 |gx[1]#_g82938_|)) + (let ((__tmp82975 + (let ((__tmp82976 |gx[1]#_g82920_|)) (declare (not safe)) - (cons __tmp82994 '())))) + (cons __tmp82976 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj82920 - __tmp82993 + __obj82902 + __tmp82975 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82920 + __obj82902 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -640,7 +640,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82920 + __obj82902 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -648,7 +648,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82920 + __obj82902 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -656,150 +656,150 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82920 + __obj82902 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82995 |gx[1]#_g82996_|)) + (let ((__tmp82977 |gx[1]#_g82978_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82920 - __tmp82995 + __obj82902 + __tmp82977 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82997 |gx[1]#_g82998_|)) + (let ((__tmp82979 |gx[1]#_g82980_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82920 - __tmp82997 + __obj82902 + __tmp82979 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp82999 |gx[1]#_g83000_|)) + (let ((__tmp82981 |gx[1]#_g82982_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82920 - __tmp82999 + __obj82902 + __tmp82981 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83001 - (let ((__tmp83010 - (let ((__tmp83011 |gx[1]#_g83012_|)) + (let ((__tmp82983 + (let ((__tmp82992 + (let ((__tmp82993 |gx[1]#_g82994_|)) (declare (not safe)) - (cons 'mark __tmp83011))) - (__tmp83002 - (let ((__tmp83007 - (let ((__tmp83008 |gx[1]#_g83009_|)) + (cons 'mark __tmp82993))) + (__tmp82984 + (let ((__tmp82989 + (let ((__tmp82990 |gx[1]#_g82991_|)) (declare (not safe)) - (cons 'e __tmp83008))) - (__tmp83003 - (let ((__tmp83004 - (let ((__tmp83005 |gx[1]#_g83006_|)) + (cons 'e __tmp82990))) + (__tmp82985 + (let ((__tmp82986 + (let ((__tmp82987 |gx[1]#_g82988_|)) (declare (not safe)) - (cons 'source __tmp83005)))) + (cons 'source __tmp82987)))) (declare (not safe)) - (cons __tmp83004 '())))) + (cons __tmp82986 '())))) (declare (not safe)) - (cons __tmp83007 __tmp83003)))) + (cons __tmp82989 __tmp82985)))) (declare (not safe)) - (cons __tmp83010 __tmp83002)))) + (cons __tmp82992 __tmp82984)))) (declare (not safe)) (##unchecked-structure-set! - __obj82920 - __tmp83001 + __obj82902 + __tmp82983 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83013 - (let ((__tmp83022 - (let ((__tmp83023 |gx[1]#_g83024_|)) + (let ((__tmp82995 + (let ((__tmp83004 + (let ((__tmp83005 |gx[1]#_g83006_|)) (declare (not safe)) - (cons 'mark __tmp83023))) - (__tmp83014 - (let ((__tmp83019 - (let ((__tmp83020 |gx[1]#_g83021_|)) + (cons 'mark __tmp83005))) + (__tmp82996 + (let ((__tmp83001 + (let ((__tmp83002 |gx[1]#_g83003_|)) (declare (not safe)) - (cons 'e __tmp83020))) - (__tmp83015 - (let ((__tmp83016 - (let ((__tmp83017 |gx[1]#_g83018_|)) + (cons 'e __tmp83002))) + (__tmp82997 + (let ((__tmp82998 + (let ((__tmp82999 |gx[1]#_g83000_|)) (declare (not safe)) - (cons 'source __tmp83017)))) + (cons 'source __tmp82999)))) (declare (not safe)) - (cons __tmp83016 '())))) + (cons __tmp82998 '())))) (declare (not safe)) - (cons __tmp83019 __tmp83015)))) + (cons __tmp83001 __tmp82997)))) (declare (not safe)) - (cons __tmp83022 __tmp83014)))) + (cons __tmp83004 __tmp82996)))) (declare (not safe)) (##unchecked-structure-set! - __obj82920 - __tmp83013 + __obj82902 + __tmp82995 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83025 - (let ((__tmp83034 - (let ((__tmp83035 |gx[1]#_g83036_|)) + (let ((__tmp83007 + (let ((__tmp83016 + (let ((__tmp83017 |gx[1]#_g83018_|)) (declare (not safe)) - (cons 'mark __tmp83035))) - (__tmp83026 - (let ((__tmp83031 - (let ((__tmp83032 |gx[1]#_g83033_|)) + (cons 'mark __tmp83017))) + (__tmp83008 + (let ((__tmp83013 + (let ((__tmp83014 |gx[1]#_g83015_|)) (declare (not safe)) - (cons 'e __tmp83032))) - (__tmp83027 - (let ((__tmp83028 - (let ((__tmp83029 |gx[1]#_g83030_|)) + (cons 'e __tmp83014))) + (__tmp83009 + (let ((__tmp83010 + (let ((__tmp83011 |gx[1]#_g83012_|)) (declare (not safe)) - (cons 'source __tmp83029)))) + (cons 'source __tmp83011)))) (declare (not safe)) - (cons __tmp83028 '())))) + (cons __tmp83010 '())))) (declare (not safe)) - (cons __tmp83031 __tmp83027)))) + (cons __tmp83013 __tmp83009)))) (declare (not safe)) - (cons __tmp83034 __tmp83026)))) + (cons __tmp83016 __tmp83008)))) (declare (not safe)) (##unchecked-structure-set! - __obj82920 - __tmp83025 + __obj82902 + __tmp83007 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83037 - (let ((__tmp83046 - (let ((__tmp83047 |gx[1]#_g83048_|)) + (let ((__tmp83019 + (let ((__tmp83028 + (let ((__tmp83029 |gx[1]#_g83030_|)) (declare (not safe)) - (cons 'mark __tmp83047))) - (__tmp83038 - (let ((__tmp83043 - (let ((__tmp83044 |gx[1]#_g83045_|)) + (cons 'mark __tmp83029))) + (__tmp83020 + (let ((__tmp83025 + (let ((__tmp83026 |gx[1]#_g83027_|)) (declare (not safe)) - (cons 'e __tmp83044))) - (__tmp83039 - (let ((__tmp83040 - (let ((__tmp83041 |gx[1]#_g83042_|)) + (cons 'e __tmp83026))) + (__tmp83021 + (let ((__tmp83022 + (let ((__tmp83023 |gx[1]#_g83024_|)) (declare (not safe)) - (cons 'source __tmp83041)))) + (cons 'source __tmp83023)))) (declare (not safe)) - (cons __tmp83040 '())))) + (cons __tmp83022 '())))) (declare (not safe)) - (cons __tmp83043 __tmp83039)))) + (cons __tmp83025 __tmp83021)))) (declare (not safe)) - (cons __tmp83046 __tmp83038)))) + (cons __tmp83028 __tmp83020)))) (declare (not safe)) (##unchecked-structure-set! - __obj82920 - __tmp83037 + __obj82902 + __tmp83019 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj82920)) + __obj82902)) (define |gx[:0:]#syntax-quote| - (let ((__obj82921 + (let ((__obj82903 (let () (declare (not safe)) (##structure @@ -823,7 +823,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82921 + __obj82903 '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! - __obj82921 + __obj82903 'syntax '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -839,26 +839,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82921 + __obj82903 '(context marks) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83049 - (let ((__tmp83050 |gx[1]#_g82938_|)) + (let ((__tmp83031 + (let ((__tmp83032 |gx[1]#_g82920_|)) (declare (not safe)) - (cons __tmp83050 '())))) + (cons __tmp83032 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj82921 - __tmp83049 + __obj82903 + __tmp83031 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj82921 + __obj82903 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -866,7 +866,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82921 + __obj82903 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -874,7 +874,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82921 + __obj82903 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -882,173 +882,173 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj82921 + __obj82903 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83051 |gx[1]#_g83052_|)) + (let ((__tmp83033 |gx[1]#_g83034_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82921 - __tmp83051 + __obj82903 + __tmp83033 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83053 |gx[1]#_g83054_|)) + (let ((__tmp83035 |gx[1]#_g83036_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82921 - __tmp83053 + __obj82903 + __tmp83035 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83055 |gx[1]#_g83056_|)) + (let ((__tmp83037 |gx[1]#_g83038_|)) (declare (not safe)) (##unchecked-structure-set! - __obj82921 - __tmp83055 + __obj82903 + __tmp83037 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83057 - (let ((__tmp83070 - (let ((__tmp83071 |gx[1]#_g83072_|)) + (let ((__tmp83039 + (let ((__tmp83052 + (let ((__tmp83053 |gx[1]#_g83054_|)) (declare (not safe)) - (cons 'context __tmp83071))) - (__tmp83058 - (let ((__tmp83067 - (let ((__tmp83068 |gx[1]#_g83069_|)) + (cons 'context __tmp83053))) + (__tmp83040 + (let ((__tmp83049 + (let ((__tmp83050 |gx[1]#_g83051_|)) (declare (not safe)) - (cons 'marks __tmp83068))) - (__tmp83059 - (let ((__tmp83064 - (let ((__tmp83065 |gx[1]#_g83066_|)) + (cons 'marks __tmp83050))) + (__tmp83041 + (let ((__tmp83046 + (let ((__tmp83047 |gx[1]#_g83048_|)) (declare (not safe)) - (cons 'e __tmp83065))) - (__tmp83060 - (let ((__tmp83061 - (let ((__tmp83062 |gx[1]#_g83063_|)) + (cons 'e __tmp83047))) + (__tmp83042 + (let ((__tmp83043 + (let ((__tmp83044 |gx[1]#_g83045_|)) (declare (not safe)) - (cons 'source __tmp83062)))) + (cons 'source __tmp83044)))) (declare (not safe)) - (cons __tmp83061 '())))) + (cons __tmp83043 '())))) (declare (not safe)) - (cons __tmp83064 __tmp83060)))) + (cons __tmp83046 __tmp83042)))) (declare (not safe)) - (cons __tmp83067 __tmp83059)))) + (cons __tmp83049 __tmp83041)))) (declare (not safe)) - (cons __tmp83070 __tmp83058)))) + (cons __tmp83052 __tmp83040)))) (declare (not safe)) (##unchecked-structure-set! - __obj82921 - __tmp83057 + __obj82903 + __tmp83039 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83073 - (let ((__tmp83086 - (let ((__tmp83087 |gx[1]#_g83088_|)) + (let ((__tmp83055 + (let ((__tmp83068 + (let ((__tmp83069 |gx[1]#_g83070_|)) (declare (not safe)) - (cons 'context __tmp83087))) - (__tmp83074 - (let ((__tmp83083 - (let ((__tmp83084 |gx[1]#_g83085_|)) + (cons 'context __tmp83069))) + (__tmp83056 + (let ((__tmp83065 + (let ((__tmp83066 |gx[1]#_g83067_|)) (declare (not safe)) - (cons 'marks __tmp83084))) - (__tmp83075 - (let ((__tmp83080 - (let ((__tmp83081 |gx[1]#_g83082_|)) + (cons 'marks __tmp83066))) + (__tmp83057 + (let ((__tmp83062 + (let ((__tmp83063 |gx[1]#_g83064_|)) (declare (not safe)) - (cons 'e __tmp83081))) - (__tmp83076 - (let ((__tmp83077 - (let ((__tmp83078 |gx[1]#_g83079_|)) + (cons 'e __tmp83063))) + (__tmp83058 + (let ((__tmp83059 + (let ((__tmp83060 |gx[1]#_g83061_|)) (declare (not safe)) - (cons 'source __tmp83078)))) + (cons 'source __tmp83060)))) (declare (not safe)) - (cons __tmp83077 '())))) + (cons __tmp83059 '())))) (declare (not safe)) - (cons __tmp83080 __tmp83076)))) + (cons __tmp83062 __tmp83058)))) (declare (not safe)) - (cons __tmp83083 __tmp83075)))) + (cons __tmp83065 __tmp83057)))) (declare (not safe)) - (cons __tmp83086 __tmp83074)))) + (cons __tmp83068 __tmp83056)))) (declare (not safe)) (##unchecked-structure-set! - __obj82921 - __tmp83073 + __obj82903 + __tmp83055 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83089 - (let ((__tmp83102 - (let ((__tmp83103 |gx[1]#_g83104_|)) + (let ((__tmp83071 + (let ((__tmp83084 + (let ((__tmp83085 |gx[1]#_g83086_|)) (declare (not safe)) - (cons 'context __tmp83103))) - (__tmp83090 - (let ((__tmp83099 - (let ((__tmp83100 |gx[1]#_g83101_|)) + (cons 'context __tmp83085))) + (__tmp83072 + (let ((__tmp83081 + (let ((__tmp83082 |gx[1]#_g83083_|)) (declare (not safe)) - (cons 'marks __tmp83100))) - (__tmp83091 - (let ((__tmp83096 - (let ((__tmp83097 |gx[1]#_g83098_|)) + (cons 'marks __tmp83082))) + (__tmp83073 + (let ((__tmp83078 + (let ((__tmp83079 |gx[1]#_g83080_|)) (declare (not safe)) - (cons 'e __tmp83097))) - (__tmp83092 - (let ((__tmp83093 - (let ((__tmp83094 |gx[1]#_g83095_|)) + (cons 'e __tmp83079))) + (__tmp83074 + (let ((__tmp83075 + (let ((__tmp83076 |gx[1]#_g83077_|)) (declare (not safe)) - (cons 'source __tmp83094)))) + (cons 'source __tmp83076)))) (declare (not safe)) - (cons __tmp83093 '())))) + (cons __tmp83075 '())))) (declare (not safe)) - (cons __tmp83096 __tmp83092)))) + (cons __tmp83078 __tmp83074)))) (declare (not safe)) - (cons __tmp83099 __tmp83091)))) + (cons __tmp83081 __tmp83073)))) (declare (not safe)) - (cons __tmp83102 __tmp83090)))) + (cons __tmp83084 __tmp83072)))) (declare (not safe)) (##unchecked-structure-set! - __obj82921 - __tmp83089 + __obj82903 + __tmp83071 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp83105 - (let ((__tmp83118 - (let ((__tmp83119 |gx[1]#_g83120_|)) + (let ((__tmp83087 + (let ((__tmp83100 + (let ((__tmp83101 |gx[1]#_g83102_|)) (declare (not safe)) - (cons 'context __tmp83119))) - (__tmp83106 - (let ((__tmp83115 - (let ((__tmp83116 |gx[1]#_g83117_|)) + (cons 'context __tmp83101))) + (__tmp83088 + (let ((__tmp83097 + (let ((__tmp83098 |gx[1]#_g83099_|)) (declare (not safe)) - (cons 'marks __tmp83116))) - (__tmp83107 - (let ((__tmp83112 - (let ((__tmp83113 |gx[1]#_g83114_|)) + (cons 'marks __tmp83098))) + (__tmp83089 + (let ((__tmp83094 + (let ((__tmp83095 |gx[1]#_g83096_|)) (declare (not safe)) - (cons 'e __tmp83113))) - (__tmp83108 - (let ((__tmp83109 - (let ((__tmp83110 |gx[1]#_g83111_|)) + (cons 'e __tmp83095))) + (__tmp83090 + (let ((__tmp83091 + (let ((__tmp83092 |gx[1]#_g83093_|)) (declare (not safe)) - (cons 'source __tmp83110)))) + (cons 'source __tmp83092)))) (declare (not safe)) - (cons __tmp83109 '())))) + (cons __tmp83091 '())))) (declare (not safe)) - (cons __tmp83112 __tmp83108)))) + (cons __tmp83094 __tmp83090)))) (declare (not safe)) - (cons __tmp83115 __tmp83107)))) + (cons __tmp83097 __tmp83089)))) (declare (not safe)) - (cons __tmp83118 __tmp83106)))) + (cons __tmp83100 __tmp83088)))) (declare (not safe)) (##unchecked-structure-set! - __obj82921 - __tmp83105 + __obj82903 + __tmp83087 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj82921)))) + __obj82903)))) diff --git a/src/bootstrap/gerbil/expander/top~0.scm b/src/bootstrap/gerbil/expander/top~0.scm index 4c26ec931..e6b6f0e35 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 1710833424) + (define gerbil/expander/top::timestamp 1710943497) (begin (declare (not safe)) (define gx#core-expand-begin% - (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_)))) + (lambda (_stx90989_) + (letrec ((_expand-special90991_ + (lambda (_hd90993_ _K90994_ _rest90995_ _r90996_) + (_K90994_ + _rest90995_ + (cons (gx#core-expand-top _hd90993_) _r90996_))))) + (gx#core-expand-block__0 _stx90989_ _expand-special90991_)))) (define gx#core-expand-begin-syntax% - (lambda (_stx90760_) - (letrec ((_expand-special90762_ - (lambda (_hd90882_ _K90883_ _rest90884_ _r90885_) - (let* ((_K90889_ - (lambda (_e90887_) - (_K90883_ _rest90884_ (cons _e90887_ _r90885_)))) - (_e9089090919_ _hd90882_) - (_E9091490923_ + (lambda (_stx90742_) + (letrec ((_expand-special90744_ + (lambda (_hd90864_ _K90865_ _rest90866_ _r90867_) + (let* ((_K90871_ + (lambda (_e90869_) + (_K90865_ _rest90866_ (cons _e90869_ _r90867_)))) + (_e9087290901_ _hd90864_) + (_E9089690905_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9089090919_))) - (_E9091090935_ + _e9087290901_))) + (_E9089290917_ (lambda () - (if (gx#stx-pair? _e9089090919_) - (let ((_e9091590927_ - (gx#syntax-e _e9089090919_))) - (let ((_hd9091690930_ - (##car _e9091590927_)) - (_tl9091790932_ - (##cdr _e9091590927_))) - (if (and (gx#identifier? _hd9091690930_) + (if (gx#stx-pair? _e9087290901_) + (let ((_e9089790909_ + (gx#syntax-e _e9087290901_))) + (let ((_hd9089890912_ + (##car _e9089790909_)) + (_tl9089990914_ + (##cdr _e9089790909_))) + (if (and (gx#identifier? _hd9089890912_) (gx#core-identifier=? - _hd9091690930_ + _hd9089890912_ '%#define-runtime)) (if '#t - (_K90889_ + (_K90871_ (gx#core-expand-define-runtime% - _hd90882_)) - (_E9091490923_)) - (_E9091490923_)))) - (_E9091490923_)))) - (_E9090690947_ + _hd90864_)) + (_E9089690905_)) + (_E9089690905_)))) + (_E9089690905_)))) + (_E9088890929_ (lambda () - (if (gx#stx-pair? _e9089090919_) - (let ((_e9091190939_ - (gx#syntax-e _e9089090919_))) - (let ((_hd9091290942_ - (##car _e9091190939_)) - (_tl9091390944_ - (##cdr _e9091190939_))) - (if (and (gx#identifier? _hd9091290942_) + (if (gx#stx-pair? _e9087290901_) + (let ((_e9089390921_ + (gx#syntax-e _e9087290901_))) + (let ((_hd9089490924_ + (##car _e9089390921_)) + (_tl9089590926_ + (##cdr _e9089390921_))) + (if (and (gx#identifier? _hd9089490924_) (gx#core-identifier=? - _hd9091290942_ + _hd9089490924_ '%#define-alias)) (if '#t - (_K90889_ + (_K90871_ (gx#core-expand-define-alias% - _hd90882_)) - (_E9091090935_)) - (_E9091090935_)))) - (_E9091090935_)))) - (_E9089690959_ + _hd90864_)) + (_E9089290917_)) + (_E9089290917_)))) + (_E9089290917_)))) + (_E9087890941_ (lambda () - (if (gx#stx-pair? _e9089090919_) - (let ((_e9090790951_ - (gx#syntax-e _e9089090919_))) - (let ((_hd9090890954_ - (##car _e9090790951_)) - (_tl9090990956_ - (##cdr _e9090790951_))) - (if (and (gx#identifier? _hd9090890954_) + (if (gx#stx-pair? _e9087290901_) + (let ((_e9088990933_ + (gx#syntax-e _e9087290901_))) + (let ((_hd9089090936_ + (##car _e9088990933_)) + (_tl9089190938_ + (##cdr _e9088990933_))) + (if (and (gx#identifier? _hd9089090936_) (gx#core-identifier=? - _hd9090890954_ + _hd9089090936_ '%#define-syntax)) (if '#t - (_K90889_ + (_K90871_ (gx#core-expand-define-syntax% - _hd90882_)) - (_E9090690947_)) - (_E9090690947_)))) - (_E9090690947_)))) - (_E9089290991_ + _hd90864_)) + (_E9088890929_)) + (_E9088890929_)))) + (_E9088890929_)))) + (_E9087490973_ (lambda () - (if (gx#stx-pair? _e9089090919_) - (let ((_e9089790963_ - (gx#syntax-e _e9089090919_))) - (let ((_hd9089890966_ - (##car _e9089790963_)) - (_tl9089990968_ - (##cdr _e9089790963_))) - (if (and (gx#identifier? _hd9089890966_) + (if (gx#stx-pair? _e9087290901_) + (let ((_e9087990945_ + (gx#syntax-e _e9087290901_))) + (let ((_hd9088090948_ + (##car _e9087990945_)) + (_tl9088190950_ + (##cdr _e9087990945_))) + (if (and (gx#identifier? _hd9088090948_) (gx#core-identifier=? - _hd9089890966_ + _hd9088090948_ '%#define-values)) - (if (gx#stx-pair? _tl9089990968_) - (let ((_e9090090971_ + (if (gx#stx-pair? _tl9088190950_) + (let ((_e9088290953_ (gx#syntax-e - _tl9089990968_))) - (let ((_hd9090190974_ - (##car _e9090090971_)) - (_tl9090290976_ - (##cdr _e9090090971_))) - (let ((_hd-bind90979_ - _hd9090190974_)) + _tl9088190950_))) + (let ((_hd9088390956_ + (##car _e9088290953_)) + (_tl9088490958_ + (##cdr _e9088290953_))) + (let ((_hd-bind90961_ + _hd9088390956_)) (if (gx#stx-pair? - _tl9090290976_) - (let ((_e9090390981_ + _tl9088490958_) + (let ((_e9088590963_ (gx#syntax-e - _tl9090290976_))) - (let ((_hd9090490984_ + _tl9088490958_))) + (let ((_hd9088690966_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e9090390981_)) - (_tl9090590986_ (##cdr _e9090390981_))) - (let ((_expr90989_ _hd9090490984_)) - (if (gx#stx-null? _tl9090590986_) - (if (gx#core-bind-values? _hd-bind90979_) + (##car _e9088590963_)) + (_tl9088790968_ (##cdr _e9088590963_))) + (let ((_expr90971_ _hd9088690966_)) + (if (gx#stx-null? _tl9088790968_) + (if (gx#core-bind-values? _hd-bind90961_) (begin - (gx#core-bind-values!__0 _hd-bind90979_) - (_K90889_ _hd90882_)) - (_E9089690959_)) - (_E9089690959_))))) - (_E9089690959_))))) + (gx#core-bind-values!__0 _hd-bind90961_) + (_K90871_ _hd90864_)) + (_E9087890941_)) + (_E9087890941_))))) + (_E9087890941_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9089690959_)) - (_E9089690959_)))) - (_E9089690959_)))) - (_E9089191003_ + (_E9087890941_)) + (_E9087890941_)))) + (_E9087890941_)))) + (_E9087390985_ (lambda () - (if (gx#stx-pair? _e9089090919_) - (let ((_e9089390995_ - (gx#syntax-e _e9089090919_))) - (let ((_hd9089490998_ - (##car _e9089390995_)) - (_tl9089591000_ - (##cdr _e9089390995_))) - (if (and (gx#identifier? _hd9089490998_) + (if (gx#stx-pair? _e9087290901_) + (let ((_e9087590977_ + (gx#syntax-e _e9087290901_))) + (let ((_hd9087690980_ + (##car _e9087590977_)) + (_tl9087790982_ + (##cdr _e9087590977_))) + (if (and (gx#identifier? _hd9087690980_) (gx#core-identifier=? - _hd9089490998_ + _hd9087690980_ '%#begin-syntax)) (if '#t - (_K90889_ + (_K90871_ (gx#core-expand-begin-syntax% - _hd90882_)) - (_E9089290991_)) - (_E9089290991_)))) - (_E9089290991_))))) - (_E9089191003_)))) - (_eval-body90763_ - (lambda (_rbody90771_) - (let _lp90773_ ((_rest90775_ _rbody90771_) - (_body90776_ '()) - (_ebody90777_ '())) - (let* ((_rest9077890786_ _rest90775_) - (_else9078090794_ + _hd90864_)) + (_E9087490973_)) + (_E9087490973_)))) + (_E9087490973_))))) + (_E9087390985_)))) + (_eval-body90745_ + (lambda (_rbody90753_) + (let _lp90755_ ((_rest90757_ _rbody90753_) + (_body90758_ '()) + (_ebody90759_ '())) + (let* ((_rest9076090768_ _rest90757_) + (_else9076290776_ (lambda () - (values _body90776_ + (values _body90758_ (gx#eval-syntax* (gx#core-quote-syntax__1 - (gx#core-cons '%#begin _ebody90777_) - (gx#stx-source _stx90760_)))))) - (_K9078290870_ - (lambda (_rest90797_ _hd90798_) - (let* ((_e9079990816_ _hd90798_) - (_E9081190820_ + (gx#core-cons '%#begin _ebody90759_) + (gx#stx-source _stx90742_)))))) + (_K9076490852_ + (lambda (_rest90779_ _hd90780_) + (let* ((_e9078190798_ _hd90780_) + (_E9079390802_ (lambda () - (_lp90773_ - _rest90797_ - (cons _hd90798_ _body90776_) - (cons _hd90798_ _ebody90777_)))) - (_E9080190832_ + (_lp90755_ + _rest90779_ + (cons _hd90780_ _body90758_) + (cons _hd90780_ _ebody90759_)))) + (_E9078390814_ (lambda () - (if (gx#stx-pair? _e9079990816_) - (let ((_e9081290824_ + (if (gx#stx-pair? _e9078190798_) + (let ((_e9079490806_ (gx#syntax-e - _e9079990816_))) - (let ((_hd9081390827_ - (##car _e9081290824_)) - (_tl9081490829_ - (##cdr _e9081290824_))) + _e9078190798_))) + (let ((_hd9079590809_ + (##car _e9079490806_)) + (_tl9079690811_ + (##cdr _e9079490806_))) (if (and (gx#identifier? - _hd9081390827_) + _hd9079590809_) (gx#core-identifier=? - _hd9081390827_ + _hd9079590809_ '%#begin-syntax)) (if '#t - (_lp90773_ - _rest90797_ - (cons _hd90798_ + (_lp90755_ + _rest90779_ + (cons _hd90780_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body90776_) - _ebody90777_) - (_E9081190820_)) - (_E9081190820_)))) + _body90758_) + _ebody90759_) + (_E9079390802_)) + (_E9079390802_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9081190820_)))) - (_E9080090866_ + (_E9079390802_)))) + (_E9078290848_ (lambda () - (if (gx#stx-pair? _e9079990816_) - (let ((_e9080290836_ + (if (gx#stx-pair? _e9078190798_) + (let ((_e9078490818_ (gx#syntax-e - _e9079990816_))) - (let ((_hd9080390839_ - (##car _e9080290836_)) - (_tl9080490841_ - (##cdr _e9080290836_))) + _e9078190798_))) + (let ((_hd9078590821_ + (##car _e9078490818_)) + (_tl9078690823_ + (##cdr _e9078490818_))) (if (and (gx#identifier? - _hd9080390839_) + _hd9078590821_) (gx#core-identifier=? - _hd9080390839_ + _hd9078590821_ '%#define-values)) (if (gx#stx-pair? - _tl9080490841_) - (let ((_e9080590844_ + _tl9078690823_) + (let ((_e9078790826_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (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_) + (gx#syntax-e _tl9078690823_))) + (let ((_hd9078890829_ (##car _e9078790826_)) + (_tl9078990831_ (##cdr _e9078790826_))) + (let ((_hd-bind90834_ _hd9078890829_)) + (if (gx#stx-pair? _tl9078990831_) + (let ((_e9079090836_ (gx#syntax-e _tl9078990831_))) + (let ((_hd9079190839_ (##car _e9079090836_)) + (_tl9079290841_ (##cdr _e9079090836_))) + (let ((_expr90844_ _hd9079190839_)) + (if (gx#stx-null? _tl9079290841_) (if '#t - (let ((_ehd90864_ + (let ((_ehd90846_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _hd-bind90852_) + _hd-bind90834_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr90862_) + _expr90844_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _hd90798_)))) - (_lp90773_ - _rest90797_ - (cons _ehd90864_ _body90776_) - (cons _ehd90864_ _ebody90777_))) - (_E9080190832_)) - (_E9080190832_))))) - (_E9080190832_))))) - (_E9080190832_)) - (_E9080190832_)))) + (gx#stx-source _hd90780_)))) + (_lp90755_ + _rest90779_ + (cons _ehd90846_ _body90758_) + (cons _ehd90846_ _ebody90759_))) + (_E9078390814_)) + (_E9078390814_))))) + (_E9078390814_))))) + (_E9078390814_)) + (_E9078390814_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9080190832_))))) - (_E9080090866_))))) - (if (##pair? _rest9077890786_) - (let ((_hd9078390873_ (##car _rest9077890786_)) - (_tl9078490875_ (##cdr _rest9077890786_))) - (let* ((_hd90878_ _hd9078390873_) - (_rest90880_ _tl9078490875_)) - (_K9078290870_ _rest90880_ _hd90878_))) - (_else9078090794_))))))) + (_E9078390814_))))) + (_E9078290848_))))) + (if (##pair? _rest9076090768_) + (let ((_hd9076590855_ (##car _rest9076090768_)) + (_tl9076690857_ (##cdr _rest9076090768_))) + (let* ((_hd90860_ _hd9076590855_) + (_rest90862_ _tl9076690857_)) + (_K9076490852_ _rest90862_ _hd90860_))) + (_else9076290776_))))))) (call-with-parameters (lambda () - (let* ((_rbody90766_ + (let* ((_rbody90748_ (gx#core-expand-block__1 - _stx90760_ - _expand-special90762_ + _stx90742_ + _expand-special90744_ '#f)) - (_g91030_ (_eval-body90763_ _rbody90766_))) + (_g91012_ (_eval-body90745_ _rbody90748_))) (begin - (let ((_g91031_ - (if (##values? _g91030_) - (##vector-length _g91030_) + (let ((_g91013_ + (if (##values? _g91012_) + (##vector-length _g91012_) 1))) - (if (not (##fx= _g91031_ 2)) - (error "Context expects 2 values" _g91031_))) - (let ((_expanded-body90768_ (##vector-ref _g91030_ 0)) - (_value90769_ (##vector-ref _g91030_ 1))) + (if (not (##fx= _g91013_ 2)) + (error "Context expects 2 values" _g91013_))) + (let ((_expanded-body90750_ (##vector-ref _g91012_ 0)) + (_value90751_ (##vector-ref _g91012_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _expanded-body90768_) + (gx#core-cons '%#begin-syntax _expanded-body90750_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _value90769_ '()))) - (gx#stx-source _stx90760_)))))) + (cons _value90751_ '()))) + (gx#stx-source _stx90742_)))))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_stx90730_) - (let* ((_e9073190738_ _stx90730_) - (_E9073390742_ + (lambda (_stx90712_) + (let* ((_e9071390720_ _stx90712_) + (_E9071590724_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9073190738_))) - (_E9073290756_ + _e9071390720_))) + (_E9071490738_ (lambda () - (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_) + (if (gx#stx-pair? _e9071390720_) + (let ((_e9071690728_ (gx#syntax-e _e9071390720_))) + (let ((_hd9071790731_ (##car _e9071690728_)) + (_tl9071890733_ (##cdr _e9071690728_))) + (let ((_body90736_ _tl9071890733_)) + (if (gx#stx-list? _body90736_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _body90754_) - (gx#stx-source _stx90730_)) - (_E9073390742_))))) - (_E9073390742_))))) - (_E9073290756_)))) + (gx#core-cons '%#begin-foreign _body90736_) + (gx#stx-source _stx90712_)) + (_E9071590724_))))) + (_E9071590724_))))) + (_E9071490738_)))) (define gx#core-expand-begin-module% - (lambda (_stx90728_) - (gx#raise-syntax-error '#f '"Illegal expansion" _stx90728_))) + (lambda (_stx90710_) + (gx#raise-syntax-error '#f '"Illegal expansion" _stx90710_))) (define gx#core-expand-begin-annotation% - (lambda (_stx90674_) - (let* ((_e9067590688_ _stx90674_) - (_E9067790692_ + (lambda (_stx90656_) + (let* ((_e9065790670_ _stx90656_) + (_E9065990674_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9067590688_))) - (_E9067690724_ + _e9065790670_))) + (_E9065890706_ (lambda () - (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 (gx#stx-pair? _e9065790670_) + (let ((_e9066090678_ (gx#syntax-e _e9065790670_))) + (let ((_hd9066190681_ (##car _e9066090678_)) + (_tl9066290683_ (##cdr _e9066090678_))) + (if (gx#stx-pair? _tl9066290683_) + (let ((_e9066390686_ + (gx#syntax-e _tl9066290683_))) + (let ((_hd9066490689_ (##car _e9066390686_)) + (_tl9066590691_ (##cdr _e9066390686_))) + (let ((_ann90694_ _hd9066490689_)) + (if (gx#stx-pair? _tl9066590691_) + (let ((_e9066690696_ + (gx#syntax-e _tl9066590691_))) + (let ((_hd9066790699_ + (##car _e9066690696_)) + (_tl9066890701_ + (##cdr _e9066690696_))) + (let ((_expr90704_ _hd9066790699_)) + (if (gx#stx-null? _tl9066890701_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _ann90712_ + (cons _ann90694_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-expand-expression _expr90722_) '()))) - (gx#stx-source _stx90674_)) - (_E9067790692_)) + (cons (gx#core-expand-expression _expr90704_) '()))) + (gx#stx-source _stx90656_)) + (_E9065990674_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9067790692_))))) - (_E9067790692_))))) - (_E9067790692_)))) - (_E9067790692_))))) - (_E9067690724_)))) + (_E9065990674_))))) + (_E9065990674_))))) + (_E9065990674_)))) + (_E9065990674_))))) + (_E9065890706_)))) (define gx#core-expand-local-block - (lambda (_stx90398_ _body90399_) - (letrec ((_expand-special90401_ - (lambda (_hd90669_ _K90670_ _rest90671_ _r90672_) - (_K90670_ + (lambda (_stx90380_ _body90381_) + (letrec ((_expand-special90383_ + (lambda (_hd90651_ _K90652_ _rest90653_ _r90654_) + (_K90652_ '() - (cons (_expand-internal90402_ _hd90669_ _rest90671_) - _r90672_)))) - (_expand-internal90402_ - (lambda (_hd90665_ _rest90666_) + (cons (_expand-internal90384_ _hd90651_ _rest90653_) + _r90654_)))) + (_expand-internal90384_ + (lambda (_hd90647_ _rest90648_) (call-with-parameters (lambda () - (_wrap-internal90404_ + (_wrap-internal90386_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _hd90665_ _rest90666_)) - (gx#stx-source _stx90398_)) - _expand-internal-special90403_ + (cons '%#begin (cons _hd90647_ _rest90648_)) + (gx#stx-source _stx90380_)) + _expand-internal-special90385_ '#f))) gx#current-expander-context - (let ((__obj91024 + (let ((__obj91006 (##structure gx#local-context::t '#f @@ -386,717 +386,717 @@ '#f '#f '#f))) - (gx#local-context:::init! __obj91024) - __obj91024)))) - (_expand-internal-special90403_ - (lambda (_hd90560_ _K90561_ _rest90562_ _r90563_) - (let* ((_e9056490589_ _hd90560_) - (_E9058490593_ + (gx#local-context:::init! __obj91006) + __obj91006)))) + (_expand-internal-special90385_ + (lambda (_hd90542_ _K90543_ _rest90544_ _r90545_) + (let* ((_e9054690571_ _hd90542_) + (_E9056690575_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9056490589_))) - (_E9058090605_ + _e9054690571_))) + (_E9056290587_ (lambda () - (if (gx#stx-pair? _e9056490589_) - (let ((_e9058590597_ - (gx#syntax-e _e9056490589_))) - (let ((_hd9058690600_ - (##car _e9058590597_)) - (_tl9058790602_ - (##cdr _e9058590597_))) - (if (and (gx#identifier? _hd9058690600_) + (if (gx#stx-pair? _e9054690571_) + (let ((_e9056790579_ + (gx#syntax-e _e9054690571_))) + (let ((_hd9056890582_ + (##car _e9056790579_)) + (_tl9056990584_ + (##cdr _e9056790579_))) + (if (and (gx#identifier? _hd9056890582_) (gx#core-identifier=? - _hd9058690600_ + _hd9056890582_ '%#declare)) (if '#t - (_K90561_ - _rest90562_ + (_K90543_ + _rest90544_ (cons (gx#core-expand-declare% - _hd90560_) - _r90563_)) - (_E9058490593_)) - (_E9058490593_)))) - (_E9058490593_)))) - (_E9057690617_ + _hd90542_) + _r90545_)) + (_E9056690575_)) + (_E9056690575_)))) + (_E9056690575_)))) + (_E9055890599_ (lambda () - (if (gx#stx-pair? _e9056490589_) - (let ((_e9058190609_ - (gx#syntax-e _e9056490589_))) - (let ((_hd9058290612_ - (##car _e9058190609_)) - (_tl9058390614_ - (##cdr _e9058190609_))) - (if (and (gx#identifier? _hd9058290612_) + (if (gx#stx-pair? _e9054690571_) + (let ((_e9056390591_ + (gx#syntax-e _e9054690571_))) + (let ((_hd9056490594_ + (##car _e9056390591_)) + (_tl9056590596_ + (##cdr _e9056390591_))) + (if (and (gx#identifier? _hd9056490594_) (gx#core-identifier=? - _hd9058290612_ + _hd9056490594_ '%#define-alias)) (if '#t (begin (gx#core-expand-define-alias% - _hd90560_) - (_K90561_ - _rest90562_ - _r90563_)) - (_E9058090605_)) - (_E9058090605_)))) - (_E9058090605_)))) - (_E9056690629_ + _hd90542_) + (_K90543_ + _rest90544_ + _r90545_)) + (_E9056290587_)) + (_E9056290587_)))) + (_E9056290587_)))) + (_E9054890611_ (lambda () - (if (gx#stx-pair? _e9056490589_) - (let ((_e9057790621_ - (gx#syntax-e _e9056490589_))) - (let ((_hd9057890624_ - (##car _e9057790621_)) - (_tl9057990626_ - (##cdr _e9057790621_))) - (if (and (gx#identifier? _hd9057890624_) + (if (gx#stx-pair? _e9054690571_) + (let ((_e9055990603_ + (gx#syntax-e _e9054690571_))) + (let ((_hd9056090606_ + (##car _e9055990603_)) + (_tl9056190608_ + (##cdr _e9055990603_))) + (if (and (gx#identifier? _hd9056090606_) (gx#core-identifier=? - _hd9057890624_ + _hd9056090606_ '%#define-syntax)) (if '#t (begin (gx#core-expand-define-syntax% - _hd90560_) - (_K90561_ - _rest90562_ - _r90563_)) - (_E9057690617_)) - (_E9057690617_)))) - (_E9057690617_)))) - (_E9056590661_ + _hd90542_) + (_K90543_ + _rest90544_ + _r90545_)) + (_E9055890599_)) + (_E9055890599_)))) + (_E9055890599_)))) + (_E9054790643_ (lambda () - (if (gx#stx-pair? _e9056490589_) - (let ((_e9056790633_ - (gx#syntax-e _e9056490589_))) - (let ((_hd9056890636_ - (##car _e9056790633_)) - (_tl9056990638_ - (##cdr _e9056790633_))) - (if (and (gx#identifier? _hd9056890636_) + (if (gx#stx-pair? _e9054690571_) + (let ((_e9054990615_ + (gx#syntax-e _e9054690571_))) + (let ((_hd9055090618_ + (##car _e9054990615_)) + (_tl9055190620_ + (##cdr _e9054990615_))) + (if (and (gx#identifier? _hd9055090618_) (gx#core-identifier=? - _hd9056890636_ + _hd9055090618_ '%#define-values)) - (if (gx#stx-pair? _tl9056990638_) - (let ((_e9057090641_ + (if (gx#stx-pair? _tl9055190620_) + (let ((_e9055290623_ (gx#syntax-e - _tl9056990638_))) - (let ((_hd9057190644_ - (##car _e9057090641_)) - (_tl9057290646_ - (##cdr _e9057090641_))) - (let ((_hd-bind90649_ - _hd9057190644_)) + _tl9055190620_))) + (let ((_hd9055390626_ + (##car _e9055290623_)) + (_tl9055490628_ + (##cdr _e9055290623_))) + (let ((_hd-bind90631_ + _hd9055390626_)) (if (gx#stx-pair? - _tl9057290646_) - (let ((_e9057390651_ + _tl9055490628_) + (let ((_e9055590633_ (gx#syntax-e - _tl9057290646_))) - (let ((_hd9057490654_ + _tl9055490628_))) + (let ((_hd9055690636_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e9057390651_)) - (_tl9057590656_ (##cdr _e9057390651_))) - (let ((_expr90659_ _hd9057490654_)) - (if (gx#stx-null? _tl9057590656_) - (if (gx#core-bind-values? _hd-bind90649_) + (##car _e9055590633_)) + (_tl9055790638_ (##cdr _e9055590633_))) + (let ((_expr90641_ _hd9055690636_)) + (if (gx#stx-null? _tl9055790638_) + (if (gx#core-bind-values? _hd-bind90631_) (begin - (gx#core-bind-values!__0 _hd-bind90649_) - (_K90561_ - _rest90562_ - (cons _hd90560_ _r90563_))) - (_E9056690629_)) - (_E9056690629_))))) - (_E9056690629_))))) + (gx#core-bind-values!__0 _hd-bind90631_) + (_K90543_ + _rest90544_ + (cons _hd90542_ _r90545_))) + (_E9054890611_)) + (_E9054890611_))))) + (_E9054890611_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9056690629_)) - (_E9056690629_)))) - (_E9056690629_))))) - (_E9056590661_)))) - (_wrap-internal90404_ - (lambda (_rbody90406_) - (let _lp90408_ ((_rest90410_ _rbody90406_) - (_decls90411_ '()) - (_bind90412_ '()) - (_body90413_ '())) - (let* ((_e9041490421_ _rest90410_) - (_E9041690470_ + (_E9054890611_)) + (_E9054890611_)))) + (_E9054890611_))))) + (_E9054790643_)))) + (_wrap-internal90386_ + (lambda (_rbody90388_) + (let _lp90390_ ((_rest90392_ _rbody90388_) + (_decls90393_ '()) + (_bind90394_ '()) + (_body90395_ '())) + (let* ((_e9039690403_ _rest90392_) + (_E9039890452_ (lambda () - (let* ((_body90465_ - (let* ((_body9042490434_ _body90413_) - (_else9042790442_ + (let* ((_body90447_ + (let* ((_body9040690416_ _body90395_) + (_else9040990424_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body90413_) + _body90395_) (gx#stx-source - _stx90398_))))) - (let ((_K9043290462_ + _stx90380_))))) + (let ((_K9041490444_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _stx90398_))) - (_K9042990448_ - (lambda (_expr90446_) - _expr90446_))) - (let ((_try-match9042690458_ + _stx90380_))) + (_K9041190430_ + (lambda (_expr90428_) + _expr90428_))) + (let ((_try-match9040890440_ (lambda () - (if (##pair? _body9042490434_) - (let ((_tl9043190453_ - (##cdr _body9042490434_)) - (_hd9043090451_ - (##car _body9042490434_))) - (if (##null? _tl9043190453_) - (let ((_expr90456_ + (if (##pair? _body9040690416_) + (let ((_tl9041390435_ + (##cdr _body9040690416_)) + (_hd9041290433_ + (##car _body9040690416_))) + (if (##null? _tl9041390435_) + (let ((_expr90438_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd9043090451_)) - (_K9042990448_ _expr90456_)) - (_else9042790442_))) - (_else9042790442_))))) + _hd9041290433_)) + (_K9041190430_ _expr90438_)) + (_else9040990424_))) + (_else9040990424_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##null? _body9042490434_) - (_K9043290462_) - (_try-match9042690458_)))))) - (_body90467_ - (if (null? _bind90412_) - _body90465_ + (if (##null? _body9040690416_) + (_K9041490444_) + (_try-match9040890440_)))))) + (_body90449_ + (if (null? _bind90394_) + _body90447_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _bind90412_ - (cons _body90465_ + (cons _bind90394_ + (cons _body90447_ '()))) - (gx#stx-source _stx90398_))))) - (if (null? _decls90411_) - _body90467_ + (gx#stx-source _stx90380_))))) + (if (null? _decls90393_) + _body90449_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _decls90411_ - (cons _body90467_ '()))) - (gx#stx-source _stx90398_)))))) - (_E9041590556_ + (cons _decls90393_ + (cons _body90449_ '()))) + (gx#stx-source _stx90380_)))))) + (_E9039790538_ (lambda () - (if (gx#stx-pair? _e9041490421_) - (let ((_e9041790474_ - (gx#syntax-e _e9041490421_))) - (let ((_hd9041890477_ - (##car _e9041790474_)) - (_tl9041990479_ - (##cdr _e9041790474_))) - (let* ((_hd90482_ _hd9041890477_) - (_rest90484_ _tl9041990479_)) + (if (gx#stx-pair? _e9039690403_) + (let ((_e9039990456_ + (gx#syntax-e _e9039690403_))) + (let ((_hd9040090459_ + (##car _e9039990456_)) + (_tl9040190461_ + (##cdr _e9039990456_))) + (let* ((_hd90464_ _hd9040090459_) + (_rest90466_ _tl9040190461_)) (if '#t - (let* ((_e9048590502_ _hd90482_) - (_E9049790506_ + (let* ((_e9046790484_ _hd90464_) + (_E9047990488_ (lambda () - (if (null? _bind90412_) - (_lp90408_ - _rest90484_ - _decls90411_ - _bind90412_ - (cons _hd90482_ + (if (null? _bind90394_) + (_lp90390_ + _rest90466_ + _decls90393_ + _bind90394_ + (cons _hd90464_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body90413_)) - (_lp90408_ - _rest90484_ - _decls90411_ - (cons (cons '#f (cons _hd90482_ '())) _bind90412_) - _body90413_)))) + _body90395_)) + (_lp90390_ + _rest90466_ + _decls90393_ + (cons (cons '#f (cons _hd90464_ '())) _bind90394_) + _body90395_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9048790520_ + (_E9046990502_ (lambda () (if (gx#stx-pair? - _e9048590502_) - (let ((_e9049890510_ + _e9046790484_) + (let ((_e9048090492_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e9048590502_))) - (let ((_hd9049990513_ (##car _e9049890510_)) - (_tl9050090515_ (##cdr _e9049890510_))) - (if (and (gx#identifier? _hd9049990513_) + (gx#syntax-e _e9046790484_))) + (let ((_hd9048190495_ (##car _e9048090492_)) + (_tl9048290497_ (##cdr _e9048090492_))) + (if (and (gx#identifier? _hd9048190495_) (gx#core-identifier=? - _hd9049990513_ + _hd9048190495_ '%#declare)) - (let ((_xdecls90518_ _tl9050090515_)) + (let ((_xdecls90500_ _tl9048290497_)) (if '#t - (_lp90408_ - _rest90484_ + (_lp90390_ + _rest90466_ (gx#stx-foldr cons - _decls90411_ - _xdecls90518_) - _bind90412_ - _body90413_) - (_E9049790506_))) - (_E9049790506_)))) - (_E9049790506_)))) + _decls90393_ + _xdecls90500_) + _bind90394_ + _body90395_) + (_E9047990488_))) + (_E9047990488_)))) + (_E9047990488_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9048690552_ + (_E9046890534_ (lambda () (if (gx#stx-pair? - _e9048590502_) - (let ((_e9048890524_ + _e9046790484_) + (let ((_e9047090506_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e9048590502_))) - (let ((_hd9048990527_ (##car _e9048890524_)) - (_tl9049090529_ (##cdr _e9048890524_))) - (if (and (gx#identifier? _hd9048990527_) + (gx#syntax-e _e9046790484_))) + (let ((_hd9047190509_ (##car _e9047090506_)) + (_tl9047290511_ (##cdr _e9047090506_))) + (if (and (gx#identifier? _hd9047190509_) (gx#core-identifier=? - _hd9048990527_ + _hd9047190509_ '%#define-values)) - (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-pair? _tl9047290511_) + (let ((_e9047390514_ + (gx#syntax-e _tl9047290511_))) + (let ((_hd9047490517_ (##car _e9047390514_)) + (_tl9047590519_ (##cdr _e9047390514_))) + (let ((_hd-bind90522_ _hd9047490517_)) + (if (gx#stx-pair? _tl9047590519_) + (let ((_e9047690524_ + (gx#syntax-e _tl9047590519_))) + (let ((_hd9047790527_ + (##car _e9047690524_)) + (_tl9047890529_ + (##cdr _e9047690524_))) + (let ((_expr90532_ + _hd9047790527_)) (if (gx#stx-null? - _tl9049690547_) + _tl9047890529_) (if '#t - (_lp90408_ - _rest90484_ - _decls90411_ + (_lp90390_ + _rest90466_ + _decls90393_ (cons (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-bind90540_) - (cons (gx#core-expand-expression _expr90550_) + _hd-bind90522_) + (cons (gx#core-expand-expression _expr90532_) '())) - _bind90412_) - _body90413_) - (_E9048790520_)) + _bind90394_) + _body90395_) + (_E9046990502_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9048790520_))))) - (_E9048790520_))))) - (_E9048790520_)) - (_E9048790520_)))) - (_E9048790520_))))) + (_E9046990502_))))) + (_E9046990502_))))) + (_E9046990502_)) + (_E9046990502_)))) + (_E9046990502_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9048690552_)) - (_E9041690470_))))) - (_E9041690470_))))) - (_E9041590556_)))))) + (_E9046890534_)) + (_E9039890452_))))) + (_E9039890452_))))) + (_E9039790538_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _body90399_) - (gx#stx-source _stx90398_)) - _expand-special90401_)))) + (cons '%#begin _body90381_) + (gx#stx-source _stx90380_)) + _expand-special90383_)))) (define gx#core-expand-declare% - (lambda (_stx90336_) - (let* ((_e9033790344_ _stx90336_) - (_E9033990348_ + (lambda (_stx90318_) + (let* ((_e9031990326_ _stx90318_) + (_E9032190330_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9033790344_))) - (_E9033890394_ + _e9031990326_))) + (_E9032090376_ (lambda () - (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_) + (if (gx#stx-pair? _e9031990326_) + (let ((_e9032290334_ (gx#syntax-e _e9031990326_))) + (let ((_hd9032390337_ (##car _e9032290334_)) + (_tl9032490339_ (##cdr _e9032290334_))) + (let ((_body90342_ _tl9032490339_)) + (if (gx#stx-list? _body90342_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_decl90362_) - (let* ((_e9036390370_ _decl90362_) - (_E9036590374_ + (lambda (_decl90344_) + (let* ((_e9034590352_ _decl90344_) + (_E9034790356_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9036390370_))) - (_E9036490390_ + _e9034590352_))) + (_E9034690372_ (lambda () - (if (gx#stx-pair? _e9036390370_) - (let ((_e9036690378_ + (if (gx#stx-pair? _e9034590352_) + (let ((_e9034890360_ (gx#syntax-e - _e9036390370_))) - (let ((_hd9036790381_ - (##car _e9036690378_)) - (_tl9036890383_ - (##cdr _e9036690378_))) - (let* ((_head90386_ - _hd9036790381_) - (_args90388_ - _tl9036890383_)) + _e9034590352_))) + (let ((_hd9034990363_ + (##car _e9034890360_)) + (_tl9035090365_ + (##cdr _e9034890360_))) + (let* ((_head90368_ + _hd9034990363_) + (_args90370_ + _tl9035090365_)) (if (gx#stx-list? - _args90388_) + _args90370_) (gx#stx-map1 gx#core-quote-syntax - _decl90362_) - (_E9036590374_))))) - (_E9036590374_))))) - (_E9036490390_))) - _body90360_)) - (gx#stx-source _stx90336_)) - (_E9033990348_))))) - (_E9033990348_))))) - (_E9033890394_)))) + _decl90344_) + (_E9034790356_))))) + (_E9034790356_))))) + (_E9034690372_))) + _body90342_)) + (gx#stx-source _stx90318_)) + (_E9032190330_))))) + (_E9032190330_))))) + (_E9032090376_)))) (define gx#core-expand-extern% - (lambda (_stx90240_) - (let* ((_e9024190248_ _stx90240_) - (_E9024390252_ + (lambda (_stx90222_) + (let* ((_e9022390230_ _stx90222_) + (_E9022590234_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9024190248_))) - (_E9024290332_ + _e9022390230_))) + (_E9022490314_ (lambda () - (if (gx#stx-pair? _e9024190248_) - (let ((_e9024490256_ (gx#syntax-e _e9024190248_))) - (let ((_hd9024590259_ (##car _e9024490256_)) - (_tl9024690261_ (##cdr _e9024490256_))) - (let ((_body90264_ _tl9024690261_)) + (if (gx#stx-pair? _e9022390230_) + (let ((_e9022690238_ (gx#syntax-e _e9022390230_))) + (let ((_hd9022790241_ (##car _e9022690238_)) + (_tl9022890243_ (##cdr _e9022690238_))) + (let ((_body90246_ _tl9022890243_)) (if '#t - (let _lp90266_ ((_rest90268_ _body90264_) - (_r90269_ '())) - (let* ((_e9027090284_ _rest90268_) - (_E9028290288_ + (let _lp90248_ ((_rest90250_ _body90246_) + (_r90251_ '())) + (let* ((_e9025290266_ _rest90250_) + (_E9026490270_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _stx90240_))) - (_E9027290292_ + _stx90222_))) + (_E9025490274_ (lambda () - (if (gx#stx-null? _e9027090284_) + (if (gx#stx-null? _e9025290266_) (if '#t (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _r90269_)) + (reverse _r90251_)) (gx#stx-source - _stx90240_)) - (_E9028290288_)) - (_E9028290288_)))) - (_E9027190328_ + _stx90222_)) + (_E9026490270_)) + (_E9026490270_)))) + (_E9025390310_ (lambda () - (if (gx#stx-pair? _e9027090284_) - (let ((_e9027390296_ + (if (gx#stx-pair? _e9025290266_) + (let ((_e9025590278_ (gx#syntax-e - _e9027090284_))) - (let ((_hd9027490299_ - (##car _e9027390296_)) - (_tl9027590301_ - (##cdr _e9027390296_))) + _e9025290266_))) + (let ((_hd9025690281_ + (##car _e9025590278_)) + (_tl9025790283_ + (##cdr _e9025590278_))) (if (gx#stx-pair? - _hd9027490299_) - (let ((_e9027690304_ + _hd9025690281_) + (let ((_e9025890286_ (gx#syntax-e - _hd9027490299_))) - (let ((_hd9027790307_ + _hd9025690281_))) + (let ((_hd9025990289_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##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_))) + (##car _e9025890286_)) + (_tl9026090291_ (##cdr _e9025890286_))) + (let ((_id90294_ _hd9025990289_)) + (if (gx#stx-pair? _tl9026090291_) + (let ((_e9026190296_ (gx#syntax-e _tl9026090291_))) + (let ((_hd9026290299_ (##car _e9026190296_)) + (_tl9026390301_ (##cdr _e9026190296_))) + (let ((_eid90304_ _hd9026290299_)) + (if (gx#stx-null? _tl9026390301_) + (let ((_rest90306_ _tl9025790283_)) + (if (and (gx#identifier? _id90294_) + (gx#identifier? _eid90304_)) + (let ((_eid90308_ + (gx#stx-e _eid90304_))) (gx#core-bind-extern!__0 - _id90312_ - _eid90326_) - (_lp90266_ - _rest90324_ + _id90294_ + _eid90308_) + (_lp90248_ + _rest90306_ (cons (cons (gx#core-quote-syntax__0 - _id90312_) - (cons _eid90326_ '())) - _r90269_))) - (_E9027290292_))) - (_E9027290292_))))) - (_E9027290292_))))) - (_E9027290292_)))) + _id90294_) + (cons _eid90308_ '())) + _r90251_))) + (_E9025490274_))) + (_E9025490274_))))) + (_E9025490274_))))) + (_E9025490274_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9027290292_))))) - (_E9027190328_))) - (_E9024390252_))))) - (_E9024390252_))))) - (_E9024290332_)))) + (_E9025490274_))))) + (_E9025390310_))) + (_E9022590234_))))) + (_E9022590234_))))) + (_E9022490314_)))) (define gx#core-expand-define-values% - (lambda (_stx90186_) - (let* ((_e9018790200_ _stx90186_) - (_E9018990204_ + (lambda (_stx90168_) + (let* ((_e9016990182_ _stx90168_) + (_E9017190186_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9018790200_))) - (_E9018890236_ + _e9016990182_))) + (_E9017090218_ (lambda () - (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#stx-pair? _e9016990182_) + (let ((_e9017290190_ (gx#syntax-e _e9016990182_))) + (let ((_hd9017390193_ (##car _e9017290190_)) + (_tl9017490195_ (##cdr _e9017290190_))) + (if (gx#stx-pair? _tl9017490195_) + (let ((_e9017590198_ + (gx#syntax-e _tl9017490195_))) + (let ((_hd9017690201_ (##car _e9017590198_)) + (_tl9017790203_ (##cdr _e9017590198_))) + (let ((_hd90206_ _hd9017690201_)) + (if (gx#stx-pair? _tl9017790203_) + (let ((_e9017890208_ + (gx#syntax-e _tl9017790203_))) + (let ((_hd9017990211_ + (##car _e9017890208_)) + (_tl9018090213_ + (##cdr _e9017890208_))) + (let ((_expr90216_ _hd9017990211_)) + (if (gx#stx-null? _tl9018090213_) (if (gx#core-bind-values? - _hd90224_) + _hd90206_) (begin (gx#core-bind-values!__0 - _hd90224_) + _hd90206_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd90224_) - (cons (gx#core-expand-expression _expr90234_) + _hd90206_) + (cons (gx#core-expand-expression _expr90216_) '()))) - (gx#stx-source _stx90186_))) - (_E9018990204_)) + (gx#stx-source _stx90168_))) + (_E9017190186_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9018990204_))))) - (_E9018990204_))))) - (_E9018990204_)))) - (_E9018990204_))))) - (_E9018890236_)))) + (_E9017190186_))))) + (_E9017190186_))))) + (_E9017190186_)))) + (_E9017190186_))))) + (_E9017090218_)))) (define gx#core-expand-define-runtime% - (lambda (_stx90130_) - (let* ((_e9013190144_ _stx90130_) - (_E9013390148_ + (lambda (_stx90112_) + (let* ((_e9011390126_ _stx90112_) + (_E9011590130_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9013190144_))) - (_E9013290182_ + _e9011390126_))) + (_E9011490164_ (lambda () - (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 (gx#stx-pair? _e9011390126_) + (let ((_e9011690134_ (gx#syntax-e _e9011390126_))) + (let ((_hd9011790137_ (##car _e9011690134_)) + (_tl9011890139_ (##cdr _e9011690134_))) + (if (gx#stx-pair? _tl9011890139_) + (let ((_e9011990142_ + (gx#syntax-e _tl9011890139_))) + (let ((_hd9012090145_ (##car _e9011990142_)) + (_tl9012190147_ (##cdr _e9011990142_))) + (let ((_id90150_ _hd9012090145_)) + (if (gx#stx-pair? _tl9012190147_) + (let ((_e9012290152_ + (gx#syntax-e _tl9012190147_))) + (let ((_hd9012390155_ + (##car _e9012290152_)) + (_tl9012490157_ + (##cdr _e9012290152_))) + (let ((_binding-id90160_ + _hd9012390155_)) + (if (gx#stx-null? _tl9012490157_) (if (and (gx#identifier? - _id90168_) + _id90150_) (gx#identifier? - _binding-id90178_)) - (let ((_eid90180_ + _binding-id90160_)) + (let ((_eid90162_ (gx#stx-e - _binding-id90178_))) + _binding-id90160_))) (gx#core-bind-runtime-reference!__0 - _id90168_ - _eid90180_) + _id90150_ + _eid90162_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id90168_) - (cons _eid90180_ '()))))) - (_E9013390148_)) + _id90150_) + (cons _eid90162_ '()))))) + (_E9011590130_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9013390148_))))) - (_E9013390148_))))) - (_E9013390148_)))) - (_E9013390148_))))) - (_E9013290182_)))) + (_E9011590130_))))) + (_E9011590130_))))) + (_E9011590130_)))) + (_E9011590130_))))) + (_E9011490164_)))) (define gx#core-expand-define-syntax% - (lambda (_stx90073_) - (let* ((_e9007490087_ _stx90073_) - (_E9007690091_ + (lambda (_stx90055_) + (let* ((_e9005690069_ _stx90055_) + (_E9005890073_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9007490087_))) - (_E9007590126_ + _e9005690069_))) + (_E9005790108_ (lambda () - (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#stx-pair? _e9005690069_) + (let ((_e9005990077_ (gx#syntax-e _e9005690069_))) + (let ((_hd9006090080_ (##car _e9005990077_)) + (_tl9006190082_ (##cdr _e9005990077_))) + (if (gx#stx-pair? _tl9006190082_) + (let ((_e9006290085_ + (gx#syntax-e _tl9006190082_))) + (let ((_hd9006390088_ (##car _e9006290085_)) + (_tl9006490090_ (##cdr _e9006290085_))) + (let ((_id90093_ _hd9006390088_)) + (if (gx#stx-pair? _tl9006490090_) + (let ((_e9006590095_ + (gx#syntax-e _tl9006490090_))) + (let ((_hd9006690098_ + (##car _e9006590095_)) + (_tl9006790100_ + (##cdr _e9006590095_))) + (let ((_expr90103_ _hd9006690098_)) + (if (gx#stx-null? _tl9006790100_) (if (gx#identifier? - _id90111_) - (let ((_g91032_ + _id90093_) + (let ((_g91014_ (gx#core-expand-expression+1 - _expr90121_))) + _expr90103_))) (begin - (let ((_g91033_ + (let ((_g91015_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g91032_) - (##vector-length _g91032_) + (if (##values? _g91014_) + (##vector-length _g91014_) 1))) - (if (not (##fx= _g91033_ 2)) - (error "Context expects 2 values" _g91033_))) - (let ((_e-stx90123_ (##vector-ref _g91032_ 0)) - (_e90124_ (##vector-ref _g91032_ 1))) + (if (not (##fx= _g91015_ 2)) + (error "Context expects 2 values" _g91015_))) + (let ((_e-stx90105_ (##vector-ref _g91014_ 0)) + (_e90106_ (##vector-ref _g91014_ 1))) (begin - (gx#core-bind-syntax!__0 _id90111_ _e90124_) + (gx#core-bind-syntax!__0 _id90093_ _e90106_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _id90111_) - (cons _e-stx90123_ '()))) - (gx#stx-source _stx90073_)))))) - (_E9007690091_)) + (cons (gx#core-quote-syntax__0 _id90093_) + (cons _e-stx90105_ '()))) + (gx#stx-source _stx90055_)))))) + (_E9005890073_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9007690091_))))) - (_E9007690091_))))) - (_E9007690091_)))) - (_E9007690091_))))) - (_E9007590126_)))) + (_E9005890073_))))) + (_E9005890073_))))) + (_E9005890073_)))) + (_E9005890073_))))) + (_E9005790108_)))) (define gx#core-expand-define-alias% - (lambda (_stx90017_) - (let* ((_e9001890031_ _stx90017_) - (_E9002090035_ + (lambda (_stx89999_) + (let* ((_e9000090013_ _stx89999_) + (_E9000290017_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e9001890031_))) - (_E9001990069_ + _e9000090013_))) + (_E9000190051_ (lambda () - (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 (gx#stx-pair? _e9000090013_) + (let ((_e9000390021_ (gx#syntax-e _e9000090013_))) + (let ((_hd9000490024_ (##car _e9000390021_)) + (_tl9000590026_ (##cdr _e9000390021_))) + (if (gx#stx-pair? _tl9000590026_) + (let ((_e9000690029_ + (gx#syntax-e _tl9000590026_))) + (let ((_hd9000790032_ (##car _e9000690029_)) + (_tl9000890034_ (##cdr _e9000690029_))) + (let ((_id90037_ _hd9000790032_)) + (if (gx#stx-pair? _tl9000890034_) + (let ((_e9000990039_ + (gx#syntax-e _tl9000890034_))) + (let ((_hd9001090042_ + (##car _e9000990039_)) + (_tl9001190044_ + (##cdr _e9000990039_))) + (let ((_alias-id90047_ + _hd9001090042_)) + (if (gx#stx-null? _tl9001190044_) (if (and (gx#identifier? - _id90055_) + _id90037_) (gx#identifier? - _alias-id90065_)) - (let ((_alias-id90067_ + _alias-id90047_)) + (let ((_alias-id90049_ (gx#core-quote-syntax__0 - _alias-id90065_))) + _alias-id90047_))) (gx#core-bind-alias!__0 - _id90055_ - _alias-id90067_) + _id90037_ + _alias-id90049_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id90055_) - (cons _alias-id90067_ '()))))) - (_E9002090035_)) + _id90037_) + (cons _alias-id90049_ '()))))) + (_E9000290017_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E9002090035_))))) - (_E9002090035_))))) - (_E9002090035_)))) - (_E9002090035_))))) - (_E9001990069_)))) + (_E9000290017_))))) + (_E9000290017_))))) + (_E9000290017_)))) + (_E9000290017_))))) + (_E9000190051_)))) (define gx#core-expand-lambda%__% - (lambda (_stx89960_ _wrap?89961_) - (let* ((_e8996289972_ _stx89960_) - (_E8996489976_ + (lambda (_stx89942_ _wrap?89943_) + (let* ((_e8994489954_ _stx89942_) + (_E8994689958_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8996289972_))) - (_E8996390003_ + _e8994489954_))) + (_E8994589985_ (lambda () - (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_) + (if (gx#stx-pair? _e8994489954_) + (let ((_e8994789962_ (gx#syntax-e _e8994489954_))) + (let ((_hd8994889965_ (##car _e8994789962_)) + (_tl8994989967_ (##cdr _e8994789962_))) + (if (gx#stx-pair? _tl8994989967_) + (let ((_e8995089970_ + (gx#syntax-e _tl8994989967_))) + (let ((_hd8995189973_ (##car _e8995089970_)) + (_tl8995289975_ (##cdr _e8995089970_))) + (let* ((_hd89978_ _hd8995189973_) + (_body89980_ _tl8995289975_)) + (if (gx#core-bind-values? _hd89978_) (call-with-parameters (lambda () - (gx#core-bind-values!__0 _hd89996_) - (let ((_body90001_ + (gx#core-bind-values!__0 _hd89978_) + (let ((_body89983_ (cons (gx#core-quote-bind-values - _hd89996_) + _hd89978_) (cons (gx#core-expand-local-block - _stx89960_ - _body89998_) + _stx89942_ + _body89980_) '())))) - (if _wrap?89961_ + (if _wrap?89943_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _body90001_) - (gx#stx-source _stx89960_)) - _body90001_))) + _body89983_) + (gx#stx-source _stx89942_)) + _body89983_))) gx#current-expander-context - (let ((__obj91025 + (let ((__obj91007 (##structure gx#local-context::t '#f @@ -1105,116 +1105,116 @@ '#f '#f))) (gx#local-context:::init! - __obj91025) - __obj91025)) - (_E8996489976_))))) - (_E8996489976_)))) - (_E8996489976_))))) - (_E8996390003_)))) + __obj91007) + __obj91007)) + (_E8994689958_))))) + (_E8994689958_)))) + (_E8994689958_))))) + (_E8994589985_)))) (define gx#core-expand-lambda%__0 - (lambda (_stx90010_) - (let ((_wrap?90012_ '#t)) - (gx#core-expand-lambda%__% _stx90010_ _wrap?90012_)))) + (lambda (_stx89992_) + (let ((_wrap?89994_ '#t)) + (gx#core-expand-lambda%__% _stx89992_ _wrap?89994_)))) (define gx#core-expand-lambda% - (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_)) + (lambda _g91017_ + (let ((_g91016_ (##length _g91017_))) + (cond ((##fx= _g91016_ 1) + (apply (lambda (_stx89992_) + (gx#core-expand-lambda%__0 _stx89992_)) + _g91017_)) + ((##fx= _g91016_ 2) + (apply (lambda (_stx89996_ _wrap?89997_) + (gx#core-expand-lambda%__% _stx89996_ _wrap?89997_)) + _g91017_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g91035_)))))) + _g91017_)))))) (define gx#core-expand-case-lambda% - (lambda (_stx89924_) - (let* ((_e8992589932_ _stx89924_) - (_E8992789936_ + (lambda (_stx89906_) + (let* ((_e8990789914_ _stx89906_) + (_E8990989918_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8992589932_))) - (_E8992689955_ + _e8990789914_))) + (_E8990889937_ (lambda () - (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_) + (if (gx#stx-pair? _e8990789914_) + (let ((_e8991089922_ (gx#syntax-e _e8990789914_))) + (let ((_hd8991189925_ (##car _e8991089922_)) + (_tl8991289927_ (##cdr _e8991089922_))) + (let ((_clauses89930_ _tl8991289927_)) + (if (gx#stx-list? _clauses89930_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_clause89950_) + (lambda (_clause89932_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _clause89950_) - (let ((_$e89952_ - (gx#stx-source _clause89950_))) - (if _$e89952_ - _$e89952_ - (gx#stx-source _stx89924_)))) + _clause89932_) + (let ((_$e89934_ + (gx#stx-source _clause89932_))) + (if _$e89934_ + _$e89934_ + (gx#stx-source _stx89906_)))) '#f)) - _clauses89948_)) - (gx#stx-source _stx89924_)) - (_E8992789936_))))) - (_E8992789936_))))) - (_E8992689955_)))) + _clauses89930_)) + (gx#stx-source _stx89906_)) + (_E8990989918_))))) + (_E8990989918_))))) + (_E8990889937_)))) (define gx#core-expand-let-values% - (lambda (_stx89878_) - (let* ((_e8987989889_ _stx89878_) - (_E8988189893_ + (lambda (_stx89860_) + (let* ((_e8986189871_ _stx89860_) + (_E8986389875_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8987989889_))) - (_E8988089920_ + _e8986189871_))) + (_E8986289902_ (lambda () - (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_ + (if (gx#stx-pair? _e8986189871_) + (let ((_e8986489879_ (gx#syntax-e _e8986189871_))) + (let ((_hd8986589882_ (##car _e8986489879_)) + (_tl8986689884_ (##cdr _e8986489879_))) + (if (gx#stx-pair? _tl8986689884_) + (let ((_e8986789887_ + (gx#syntax-e _tl8986689884_))) + (let ((_hd8986889890_ (##car _e8986789887_)) + (_tl8986989892_ (##cdr _e8986789887_))) + (let* ((_hd89895_ _hd8986889890_) + (_body89897_ _tl8986989892_)) + (if (gx#core-expand-let-bind? _hd89895_) + (let ((_expressions89899_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd89913_))) + _hd89895_))) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd89913_) + _hd89895_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd89913_ - _expressions89917_) + _hd89895_ + _expressions89899_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _stx89878_ - _body89915_) + _stx89860_ + _body89897_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx89878_))) + (gx#stx-source _stx89860_))) gx#current-expander-context - (let ((__obj91026 + (let ((__obj91008 (##structure gx#local-context::t '#f @@ -1223,56 +1223,56 @@ '#f '#f))) (gx#local-context:::init! - __obj91026) - __obj91026))) - (_E8988189893_))))) - (_E8988189893_)))) - (_E8988189893_))))) - (_E8988089920_)))) + __obj91008) + __obj91008))) + (_E8986389875_))))) + (_E8986389875_)))) + (_E8986389875_))))) + (_E8986289902_)))) (define gx#core-expand-letrec-values%__% - (lambda (_stx89823_ _form89824_) - (let* ((_e8982589835_ _stx89823_) - (_E8982789839_ + (lambda (_stx89805_ _form89806_) + (let* ((_e8980789817_ _stx89805_) + (_E8980989821_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8982589835_))) - (_E8982689864_ + _e8980789817_))) + (_E8980889846_ (lambda () - (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_) + (if (gx#stx-pair? _e8980789817_) + (let ((_e8981089825_ (gx#syntax-e _e8980789817_))) + (let ((_hd8981189828_ (##car _e8981089825_)) + (_tl8981289830_ (##cdr _e8981089825_))) + (if (gx#stx-pair? _tl8981289830_) + (let ((_e8981389833_ + (gx#syntax-e _tl8981289830_))) + (let ((_hd8981489836_ (##car _e8981389833_)) + (_tl8981589838_ (##cdr _e8981389833_))) + (let* ((_hd89841_ _hd8981489836_) + (_body89843_ _tl8981589838_)) + (if (gx#core-expand-let-bind? _hd89841_) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd89859_) + _hd89841_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _form89824_) + _form89806_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd89859_ + _hd89841_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd89859_)) + _hd89841_)) (cons (gx#core-expand-local-block - _stx89823_ - _body89861_) + _stx89805_ + _body89843_) '()))) - (gx#stx-source _stx89823_))) + (gx#stx-source _stx89805_))) gx#current-expander-context - (let ((__obj91027 + (let ((__obj91009 (##structure gx#local-context::t '#f @@ -1281,197 +1281,197 @@ '#f '#f))) (gx#local-context:::init! - __obj91027) - __obj91027)) - (_E8982789839_))))) - (_E8982789839_)))) - (_E8982789839_))))) - (_E8982689864_)))) + __obj91009) + __obj91009)) + (_E8980989821_))))) + (_E8980989821_)))) + (_E8980989821_))))) + (_E8980889846_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_stx89871_) - (let ((_form89873_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _stx89871_ _form89873_)))) + (lambda (_stx89853_) + (let ((_form89855_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _stx89853_ _form89855_)))) (define gx#core-expand-letrec-values% - (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_) + (lambda _g91019_ + (let ((_g91018_ (##length _g91019_))) + (cond ((##fx= _g91018_ 1) + (apply (lambda (_stx89853_) + (gx#core-expand-letrec-values%__0 _stx89853_)) + _g91019_)) + ((##fx= _g91018_ 2) + (apply (lambda (_stx89857_ _form89858_) (gx#core-expand-letrec-values%__% - _stx89875_ - _form89876_)) - _g91037_)) + _stx89857_ + _form89858_)) + _g91019_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g91037_)))))) + _g91019_)))))) (define gx#core-expand-letrec*-values% - (lambda (_stx89820_) - (gx#core-expand-letrec-values%__% _stx89820_ '%#letrec*-values))) + (lambda (_stx89802_) + (gx#core-expand-letrec-values%__% _stx89802_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_stx89777_) - (if (gx#stx-list? _stx89777_) + (lambda (_stx89759_) + (if (gx#stx-list? _stx89759_) (gx#stx-andmap - (lambda (_bind89779_) - (let* ((_e8978089790_ _bind89779_) - (_E8978289794_ (lambda () '#f)) - (_E8978189816_ + (lambda (_bind89761_) + (let* ((_e8976289772_ _bind89761_) + (_E8976489776_ (lambda () '#f)) + (_E8976389798_ (lambda () - (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 (gx#stx-pair? _e8976289772_) + (let ((_e8976589780_ (gx#syntax-e _e8976289772_))) + (let ((_hd8976689783_ (##car _e8976589780_)) + (_tl8976789785_ (##cdr _e8976589780_))) + (let ((_hd89788_ _hd8976689783_)) + (if (gx#stx-pair? _tl8976789785_) + (let ((_e8976889790_ + (gx#syntax-e _tl8976789785_))) + (let ((_hd8976989793_ + (##car _e8976889790_)) + (_tl8977089795_ + (##cdr _e8976889790_))) + (if (gx#stx-null? _tl8977089795_) (if '#t (gx#core-bind-values? - _hd89806_) - (_E8978289794_)) - (_E8978289794_)))) - (_E8978289794_))))) - (_E8978289794_))))) - (_E8978189816_))) - _stx89777_) + _hd89788_) + (_E8976489776_)) + (_E8976489776_)))) + (_E8976489776_))))) + (_E8976489776_))))) + (_E8976389798_))) + _stx89759_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_bind89736_) - (let* ((_e8973789747_ _bind89736_) - (_E8973989751_ + (lambda (_bind89718_) + (let* ((_e8971989729_ _bind89718_) + (_E8972189733_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8973789747_))) - (_E8973889773_ + _e8971989729_))) + (_E8972089755_ (lambda () - (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 (gx#stx-pair? _e8971989729_) + (let ((_e8972289737_ (gx#syntax-e _e8971989729_))) + (let ((_hd8972389740_ (##car _e8972289737_)) + (_tl8972489742_ (##cdr _e8972289737_))) + (if (gx#stx-pair? _tl8972489742_) + (let ((_e8972589745_ + (gx#syntax-e _tl8972489742_))) + (let ((_hd8972689748_ (##car _e8972589745_)) + (_tl8972789750_ (##cdr _e8972589745_))) + (let ((_expr89753_ _hd8972689748_)) + (if (gx#stx-null? _tl8972789750_) (if '#t (gx#core-expand-expression - _expr89771_) - (_E8973989751_)) - (_E8973989751_))))) - (_E8973989751_)))) - (_E8973989751_))))) - (_E8973889773_)))) + _expr89753_) + (_E8972189733_)) + (_E8972189733_))))) + (_E8972189733_)))) + (_E8972189733_))))) + (_E8972089755_)))) (define gx#core-expand-let-bind-values! - (lambda (_bind89695_) - (let* ((_e8969689706_ _bind89695_) - (_E8969889710_ + (lambda (_bind89677_) + (let* ((_e8967889688_ _bind89677_) + (_E8968089692_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8969689706_))) - (_E8969789732_ + _e8967889688_))) + (_E8967989714_ (lambda () - (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 (gx#stx-pair? _e8967889688_) + (let ((_e8968189696_ (gx#syntax-e _e8967889688_))) + (let ((_hd8968289699_ (##car _e8968189696_)) + (_tl8968389701_ (##cdr _e8968189696_))) + (let ((_hd89704_ _hd8968289699_)) + (if (gx#stx-pair? _tl8968389701_) + (let ((_e8968489706_ + (gx#syntax-e _tl8968389701_))) + (let ((_hd8968589709_ (##car _e8968489706_)) + (_tl8968689711_ (##cdr _e8968489706_))) + (if (gx#stx-null? _tl8968689711_) (if '#t - (gx#core-bind-values!__0 _hd89722_) - (_E8969889710_)) - (_E8969889710_)))) - (_E8969889710_))))) - (_E8969889710_))))) - (_E8969789732_)))) + (gx#core-bind-values!__0 _hd89704_) + (_E8968089692_)) + (_E8968089692_)))) + (_E8968089692_))))) + (_E8968089692_))))) + (_E8967989714_)))) (define gx#core-expand-let-bind-quote - (lambda (_bind89653_ _expr89654_) - (let* ((_e8965589665_ _bind89653_) - (_E8965789669_ + (lambda (_bind89635_ _expr89636_) + (let* ((_e8963789647_ _bind89635_) + (_E8963989651_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8965589665_))) - (_E8965689691_ + _e8963789647_))) + (_E8963889673_ (lambda () - (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 (gx#stx-pair? _e8963789647_) + (let ((_e8964089655_ (gx#syntax-e _e8963789647_))) + (let ((_hd8964189658_ (##car _e8964089655_)) + (_tl8964289660_ (##cdr _e8964089655_))) + (let ((_hd89663_ _hd8964189658_)) + (if (gx#stx-pair? _tl8964289660_) + (let ((_e8964389665_ + (gx#syntax-e _tl8964289660_))) + (let ((_hd8964489668_ (##car _e8964389665_)) + (_tl8964589670_ (##cdr _e8964389665_))) + (if (gx#stx-null? _tl8964589670_) (if '#t (cons (gx#core-quote-bind-values - _hd89681_) - (cons _expr89654_ '())) - (_E8965789669_)) - (_E8965789669_)))) - (_E8965789669_))))) - (_E8965789669_))))) - (_E8965689691_)))) + _hd89663_) + (cons _expr89636_ '())) + (_E8963989651_)) + (_E8963989651_)))) + (_E8963989651_))))) + (_E8963989651_))))) + (_E8963889673_)))) (define gx#core-expand-let-syntax% - (lambda (_stx89607_) - (let* ((_e8960889618_ _stx89607_) - (_E8961089622_ + (lambda (_stx89589_) + (let* ((_e8959089600_ _stx89589_) + (_E8959289604_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8960889618_))) - (_E8960989649_ + _e8959089600_))) + (_E8959189631_ (lambda () - (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#stx-pair? _e8959089600_) + (let ((_e8959389608_ (gx#syntax-e _e8959089600_))) + (let ((_hd8959489611_ (##car _e8959389608_)) + (_tl8959589613_ (##cdr _e8959389608_))) + (if (gx#stx-pair? _tl8959589613_) + (let ((_e8959689616_ + (gx#syntax-e _tl8959589613_))) + (let ((_hd8959789619_ (##car _e8959689616_)) + (_tl8959889621_ (##cdr _e8959689616_))) + (let* ((_hd89624_ _hd8959789619_) + (_body89626_ _tl8959889621_)) (if (gx#core-expand-let-bind-syntax? - _hd89642_) - (let ((_expanders89646_ + _hd89624_) + (let ((_expanders89628_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd89642_))) + _hd89624_))) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd89642_ - _expanders89646_) + _hd89624_ + _expanders89628_) (gx#core-expand-local-block - _stx89607_ - _body89644_)) + _stx89589_ + _body89626_)) gx#current-expander-context - (let ((__obj91028 + (let ((__obj91010 (##structure gx#local-context::t '#f @@ -1480,60 +1480,60 @@ '#f '#f))) (gx#local-context:::init! - __obj91028) - __obj91028))) - (_E8961089622_))))) - (_E8961089622_)))) - (_E8961089622_))))) - (_E8960989649_)))) + __obj91010) + __obj91010))) + (_E8959289604_))))) + (_E8959289604_)))) + (_E8959289604_))))) + (_E8959189631_)))) (define gx#core-expand-letrec-syntax% - (lambda (_stx89556_) - (let* ((_e8955789567_ _stx89556_) - (_E8955989571_ + (lambda (_stx89538_) + (let* ((_e8953989549_ _stx89538_) + (_E8954189553_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8955789567_))) - (_E8955889603_ + _e8953989549_))) + (_E8954089585_ (lambda () - (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#stx-pair? _e8953989549_) + (let ((_e8954289557_ (gx#syntax-e _e8953989549_))) + (let ((_hd8954389560_ (##car _e8954289557_)) + (_tl8954489562_ (##cdr _e8954289557_))) + (if (gx#stx-pair? _tl8954489562_) + (let ((_e8954589565_ + (gx#syntax-e _tl8954489562_))) + (let ((_hd8954689568_ (##car _e8954589565_)) + (_tl8954789570_ (##cdr _e8954589565_))) + (let* ((_hd89573_ _hd8954689568_) + (_body89575_ _tl8954789570_)) (if (gx#core-expand-let-bind-syntax? - _hd89591_) + _hd89573_) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd89591_ + _hd89573_ (make-list - (gx#stx-length _hd89591_) + (gx#stx-length _hd89573_) '#!void)) (gx#stx-for-each2 - (lambda (_g8959589598_ - _g8959689600_) + (lambda (_g8957789580_ + _g8957889582_) (gx#core-expand-let-bind-syntax!__% - _g8959589598_ - _g8959689600_ + _g8957789580_ + _g8957889582_ '#t)) - _hd89591_ + _hd89573_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd89591_)) + _hd89573_)) (gx#core-expand-local-block - _stx89556_ - _body89593_)) + _stx89538_ + _body89575_)) gx#current-expander-context - (let ((__obj91029 + (let ((__obj91011 (##structure gx#local-context::t '#f @@ -1542,1851 +1542,1851 @@ '#f '#f))) (gx#local-context:::init! - __obj91029) - __obj91029)) - (_E8955989571_))))) - (_E8955989571_)))) - (_E8955989571_))))) - (_E8955889603_)))) + __obj91011) + __obj91011)) + (_E8954189553_))))) + (_E8954189553_)))) + (_E8954189553_))))) + (_E8954089585_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_stx89513_) - (if (gx#stx-list? _stx89513_) + (lambda (_stx89495_) + (if (gx#stx-list? _stx89495_) (gx#stx-andmap - (lambda (_bind89515_) - (let* ((_e8951689526_ _bind89515_) - (_E8951889530_ (lambda () '#f)) - (_E8951789552_ + (lambda (_bind89497_) + (let* ((_e8949889508_ _bind89497_) + (_E8950089512_ (lambda () '#f)) + (_E8949989534_ (lambda () - (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 (gx#stx-pair? _e8949889508_) + (let ((_e8950189516_ (gx#syntax-e _e8949889508_))) + (let ((_hd8950289519_ (##car _e8950189516_)) + (_tl8950389521_ (##cdr _e8950189516_))) + (let ((_hd89524_ _hd8950289519_)) + (if (gx#stx-pair? _tl8950389521_) + (let ((_e8950489526_ + (gx#syntax-e _tl8950389521_))) + (let ((_hd8950589529_ + (##car _e8950489526_)) + (_tl8950689531_ + (##cdr _e8950489526_))) + (if (gx#stx-null? _tl8950689531_) (if '#t - (gx#identifier? _hd89542_) - (_E8951889530_)) - (_E8951889530_)))) - (_E8951889530_))))) - (_E8951889530_))))) - (_E8951789552_))) - _stx89513_) + (gx#identifier? _hd89524_) + (_E8950089512_)) + (_E8950089512_)))) + (_E8950089512_))))) + (_E8950089512_))))) + (_E8949989534_))) + _stx89495_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_bind89470_) - (let* ((_e8947189481_ _bind89470_) - (_E8947389485_ + (lambda (_bind89452_) + (let* ((_e8945389463_ _bind89452_) + (_E8945589467_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8947189481_))) - (_E8947289509_ + _e8945389463_))) + (_E8945489491_ (lambda () - (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 (gx#stx-pair? _e8945389463_) + (let ((_e8945689471_ (gx#syntax-e _e8945389463_))) + (let ((_hd8945789474_ (##car _e8945689471_)) + (_tl8945889476_ (##cdr _e8945689471_))) + (if (gx#stx-pair? _tl8945889476_) + (let ((_e8945989479_ + (gx#syntax-e _tl8945889476_))) + (let ((_hd8946089482_ (##car _e8945989479_)) + (_tl8946189484_ (##cdr _e8945989479_))) + (let ((_expr89487_ _hd8946089482_)) + (if (gx#stx-null? _tl8946189484_) (if '#t - (let ((_g91038_ + (let ((_g91020_ (gx#core-expand-expression+1 - _expr89505_))) + _expr89487_))) (begin - (let ((_g91039_ - (if (##values? _g91038_) + (let ((_g91021_ + (if (##values? _g91020_) (##vector-length - _g91038_) + _g91020_) 1))) - (if (not (##fx= _g91039_ 2)) + (if (not (##fx= _g91021_ 2)) (error "Context expects 2 values" - _g91039_))) - (let ((_e89507_ + _g91021_))) + (let ((_e89489_ (##vector-ref - _g91038_ + _g91020_ 1))) - _e89507_))) - (_E8947389485_)) - (_E8947389485_))))) - (_E8947389485_)))) - (_E8947389485_))))) - (_E8947289509_)))) + _e89489_))) + (_E8945589467_)) + (_E8945589467_))))) + (_E8945589467_)))) + (_E8945589467_))))) + (_E8945489491_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_bind89415_ _e89416_ _rebind?89417_) - (let* ((_e8941889428_ _bind89415_) - (_E8942089432_ + (lambda (_bind89397_ _e89398_ _rebind?89399_) + (let* ((_e8940089410_ _bind89397_) + (_E8940289414_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8941889428_))) - (_E8941989454_ + _e8940089410_))) + (_E8940189436_ (lambda () - (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 (gx#stx-pair? _e8940089410_) + (let ((_e8940389418_ (gx#syntax-e _e8940089410_))) + (let ((_hd8940489421_ (##car _e8940389418_)) + (_tl8940589423_ (##cdr _e8940389418_))) + (let ((_id89426_ _hd8940489421_)) + (if (gx#stx-pair? _tl8940589423_) + (let ((_e8940689428_ + (gx#syntax-e _tl8940589423_))) + (let ((_hd8940789431_ (##car _e8940689428_)) + (_tl8940889433_ (##cdr _e8940689428_))) + (if (gx#stx-null? _tl8940889433_) (if '#t (gx#core-bind-syntax!__1 - _id89444_ - _e89416_ - _rebind?89417_) - (_E8942089432_)) - (_E8942089432_)))) - (_E8942089432_))))) - (_E8942089432_))))) - (_E8941989454_)))) + _id89426_ + _e89398_ + _rebind?89399_) + (_E8940289414_)) + (_E8940289414_)))) + (_E8940289414_))))) + (_E8940289414_))))) + (_E8940189436_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_bind89461_ _e89462_) - (let ((_rebind?89464_ '#f)) + (lambda (_bind89443_ _e89444_) + (let ((_rebind?89446_ '#f)) (gx#core-expand-let-bind-syntax!__% - _bind89461_ - _e89462_ - _rebind?89464_)))) + _bind89443_ + _e89444_ + _rebind?89446_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g91041_ - (let ((_g91040_ (##length _g91041_))) - (cond ((##fx= _g91040_ 2) - (apply (lambda (_bind89461_ _e89462_) + (lambda _g91023_ + (let ((_g91022_ (##length _g91023_))) + (cond ((##fx= _g91022_ 2) + (apply (lambda (_bind89443_ _e89444_) (gx#core-expand-let-bind-syntax!__0 - _bind89461_ - _e89462_)) - _g91041_)) - ((##fx= _g91040_ 3) - (apply (lambda (_bind89466_ _e89467_ _rebind?89468_) + _bind89443_ + _e89444_)) + _g91023_)) + ((##fx= _g91022_ 3) + (apply (lambda (_bind89448_ _e89449_ _rebind?89450_) (gx#core-expand-let-bind-syntax!__% - _bind89466_ - _e89467_ - _rebind?89468_)) - _g91041_)) + _bind89448_ + _e89449_ + _rebind?89450_)) + _g91023_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g91041_)))))) + _g91023_)))))) (define gx#core-expand-expression% - (lambda (_stx89373_) - (let* ((_e8937489384_ _stx89373_) - (_E8937689388_ + (lambda (_stx89355_) + (let* ((_e8935689366_ _stx89355_) + (_E8935889370_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8937489384_))) - (_E8937589410_ + _e8935689366_))) + (_E8935789392_ (lambda () - (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 (gx#stx-pair? _e8935689366_) + (let ((_e8935989374_ (gx#syntax-e _e8935689366_))) + (let ((_hd8936089377_ (##car _e8935989374_)) + (_tl8936189379_ (##cdr _e8935989374_))) + (if (gx#stx-pair? _tl8936189379_) + (let ((_e8936289382_ + (gx#syntax-e _tl8936189379_))) + (let ((_hd8936389385_ (##car _e8936289382_)) + (_tl8936489387_ (##cdr _e8936289382_))) + (let ((_expr89390_ _hd8936389385_)) + (if (gx#stx-null? _tl8936489387_) (if '#t (gx#core-expand-expression - _expr89408_) - (_E8937689388_)) - (_E8937689388_))))) - (_E8937689388_)))) - (_E8937689388_))))) - (_E8937589410_)))) + _expr89390_) + (_E8935889370_)) + (_E8935889370_))))) + (_E8935889370_)))) + (_E8935889370_))))) + (_E8935789392_)))) (define gx#core-expand-quote% - (lambda (_stx89332_) - (let* ((_e8933389343_ _stx89332_) - (_E8933589347_ + (lambda (_stx89314_) + (let* ((_e8931589325_ _stx89314_) + (_E8931789329_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8933389343_))) - (_E8933489369_ + _e8931589325_))) + (_E8931689351_ (lambda () - (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 (gx#stx-pair? _e8931589325_) + (let ((_e8931889333_ (gx#syntax-e _e8931589325_))) + (let ((_hd8931989336_ (##car _e8931889333_)) + (_tl8932089338_ (##cdr _e8931889333_))) + (if (gx#stx-pair? _tl8932089338_) + (let ((_e8932189341_ + (gx#syntax-e _tl8932089338_))) + (let ((_hd8932289344_ (##car _e8932189341_)) + (_tl8932389346_ (##cdr _e8932189341_))) + (let ((_e89349_ _hd8932289344_)) + (if (gx#stx-null? _tl8932389346_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _e89367_) + _e89349_) '())) - (gx#stx-source _stx89332_)) - (_E8933589347_)) - (_E8933589347_))))) - (_E8933589347_)))) - (_E8933589347_))))) - (_E8933489369_)))) + (gx#stx-source _stx89314_)) + (_E8931789329_)) + (_E8931789329_))))) + (_E8931789329_)))) + (_E8931789329_))))) + (_E8931689351_)))) (define gx#core-expand-quote-syntax% - (lambda (_stx89291_) - (let* ((_e8929289302_ _stx89291_) - (_E8929489306_ + (lambda (_stx89273_) + (let* ((_e8927489284_ _stx89273_) + (_E8927689288_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8929289302_))) - (_E8929389328_ + _e8927489284_))) + (_E8927589310_ (lambda () - (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 (gx#stx-pair? _e8927489284_) + (let ((_e8927789292_ (gx#syntax-e _e8927489284_))) + (let ((_hd8927889295_ (##car _e8927789292_)) + (_tl8927989297_ (##cdr _e8927789292_))) + (if (gx#stx-pair? _tl8927989297_) + (let ((_e8928089300_ + (gx#syntax-e _tl8927989297_))) + (let ((_hd8928189303_ (##car _e8928089300_)) + (_tl8928289305_ (##cdr _e8928089300_))) + (let ((_e89308_ _hd8928189303_)) + (if (gx#stx-null? _tl8928289305_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _e89326_) + _e89308_) '())) - (gx#stx-source _stx89291_)) - (_E8929489306_)) - (_E8929489306_))))) - (_E8929489306_)))) - (_E8929489306_))))) - (_E8929389328_)))) + (gx#stx-source _stx89273_)) + (_E8927689288_)) + (_E8927689288_))))) + (_E8927689288_)))) + (_E8927689288_))))) + (_E8927589310_)))) (define gx#core-expand-call% - (lambda (_stx89248_) - (let* ((_e8924989259_ _stx89248_) - (_E8925189263_ + (lambda (_stx89230_) + (let* ((_e8923189241_ _stx89230_) + (_E8923389245_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8924989259_))) - (_E8925089287_ + _e8923189241_))) + (_E8923289269_ (lambda () - (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_) + (if (gx#stx-pair? _e8923189241_) + (let ((_e8923489249_ (gx#syntax-e _e8923189241_))) + (let ((_hd8923589252_ (##car _e8923489249_)) + (_tl8923689254_ (##cdr _e8923489249_))) + (if (gx#stx-pair? _tl8923689254_) + (let ((_e8923789257_ + (gx#syntax-e _tl8923689254_))) + (let ((_hd8923889260_ (##car _e8923789257_)) + (_tl8923989262_ (##cdr _e8923789257_))) + (let* ((_rator89265_ _hd8923889260_) + (_args89267_ _tl8923989262_)) + (if (gx#stx-list? _args89267_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _rator89283_) + _rator89265_) (gx#stx-map1 gx#core-expand-expression - _args89285_)) - (gx#stx-source _stx89248_)) - (_E8925189263_))))) - (_E8925189263_)))) - (_E8925189263_))))) - (_E8925089287_)))) + _args89267_)) + (gx#stx-source _stx89230_)) + (_E8923389245_))))) + (_E8923389245_)))) + (_E8923389245_))))) + (_E8923289269_)))) (define gx#core-expand-if% - (lambda (_stx89181_) - (let* ((_e8918289198_ _stx89181_) - (_E8918489202_ + (lambda (_stx89163_) + (let* ((_e8916489180_ _stx89163_) + (_E8916689184_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8918289198_))) - (_E8918389244_ + _e8916489180_))) + (_E8916589226_ (lambda () - (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_ + (if (gx#stx-pair? _e8916489180_) + (let ((_e8916789188_ (gx#syntax-e _e8916489180_))) + (let ((_hd8916889191_ (##car _e8916789188_)) + (_tl8916989193_ (##cdr _e8916789188_))) + (if (gx#stx-pair? _tl8916989193_) + (let ((_e8917089196_ + (gx#syntax-e _tl8916989193_))) + (let ((_hd8917189199_ (##car _e8917089196_)) + (_tl8917289201_ (##cdr _e8917089196_))) + (let ((_test89204_ _hd8917189199_)) + (if (gx#stx-pair? _tl8917289201_) + (let ((_e8917389206_ + (gx#syntax-e _tl8917289201_))) + (let ((_hd8917489209_ + (##car _e8917389206_)) + (_tl8917589211_ + (##cdr _e8917389206_))) + (let ((_K89214_ _hd8917489209_)) + (if (gx#stx-pair? _tl8917589211_) + (let ((_e8917689216_ (gx#syntax-e - _tl8919389229_))) - (let ((_hd8919589237_ - (##car _e8919489234_)) - (_tl8919689239_ - (##cdr _e8919489234_))) - (let ((_E89242_ - _hd8919589237_)) + _tl8917589211_))) + (let ((_hd8917789219_ + (##car _e8917689216_)) + (_tl8917889221_ + (##cdr _e8917689216_))) + (let ((_E89224_ + _hd8917789219_)) (if (gx#stx-null? - _tl8919689239_) + _tl8917889221_) (if '#t (gx#core-quote-syntax__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#core-quote-syntax__0 '%#if) - (cons (gx#core-expand-expression _test89222_) - (cons (gx#core-expand-expression _K89232_) + (cons (gx#core-expand-expression _test89204_) + (cons (gx#core-expand-expression _K89214_) (cons (gx#core-expand-expression - _E89242_) + _E89224_) '())))) - (gx#stx-source _stx89181_)) - (_E8918489202_)) - (_E8918489202_))))) + (gx#stx-source _stx89163_)) + (_E8916689184_)) + (_E8916689184_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8918489202_))))) - (_E8918489202_))))) - (_E8918489202_)))) - (_E8918489202_))))) - (_E8918389244_)))) + (_E8916689184_))))) + (_E8916689184_))))) + (_E8916689184_)))) + (_E8916689184_))))) + (_E8916589226_)))) (define gx#core-expand-ref% - (lambda (_stx89140_) - (let* ((_e8914189151_ _stx89140_) - (_E8914389155_ + (lambda (_stx89122_) + (let* ((_e8912389133_ _stx89122_) + (_E8912589137_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8914189151_))) - (_E8914289177_ + _e8912389133_))) + (_E8912489159_ (lambda () - (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_) + (if (gx#stx-pair? _e8912389133_) + (let ((_e8912689141_ (gx#syntax-e _e8912389133_))) + (let ((_hd8912789144_ (##car _e8912689141_)) + (_tl8912889146_ (##cdr _e8912689141_))) + (if (gx#stx-pair? _tl8912889146_) + (let ((_e8912989149_ + (gx#syntax-e _tl8912889146_))) + (let ((_hd8913089152_ (##car _e8912989149_)) + (_tl8913189154_ (##cdr _e8912989149_))) + (let ((_id89157_ _hd8913089152_)) + (if (gx#stx-null? _tl8913189154_) + (if (gx#identifier? _id89157_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _id89175_ - _stx89140_) + _id89157_ + _stx89122_) '())) - (gx#stx-source _stx89140_)) - (_E8914389155_)) - (_E8914389155_))))) - (_E8914389155_)))) - (_E8914389155_))))) - (_E8914289177_)))) + (gx#stx-source _stx89122_)) + (_E8912589137_)) + (_E8912589137_))))) + (_E8912589137_)))) + (_E8912589137_))))) + (_E8912489159_)))) (define gx#core-expand-setq% - (lambda (_stx89086_) - (let* ((_e8908789100_ _stx89086_) - (_E8908989104_ + (lambda (_stx89068_) + (let* ((_e8906989082_ _stx89068_) + (_E8907189086_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8908789100_))) - (_E8908889136_ + _e8906989082_))) + (_E8907089118_ (lambda () - (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#stx-pair? _e8906989082_) + (let ((_e8907289090_ (gx#syntax-e _e8906989082_))) + (let ((_hd8907389093_ (##car _e8907289090_)) + (_tl8907489095_ (##cdr _e8907289090_))) + (if (gx#stx-pair? _tl8907489095_) + (let ((_e8907589098_ + (gx#syntax-e _tl8907489095_))) + (let ((_hd8907689101_ (##car _e8907589098_)) + (_tl8907789103_ (##cdr _e8907589098_))) + (let ((_id89106_ _hd8907689101_)) + (if (gx#stx-pair? _tl8907789103_) + (let ((_e8907889108_ + (gx#syntax-e _tl8907789103_))) + (let ((_hd8907989111_ + (##car _e8907889108_)) + (_tl8908089113_ + (##cdr _e8907889108_))) + (let ((_expr89116_ _hd8907989111_)) + (if (gx#stx-null? _tl8908089113_) (if (gx#identifier? - _id89124_) + _id89106_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id89124_ - _stx89086_) - (cons (gx#core-expand-expression _expr89134_) '()))) - (gx#stx-source _stx89086_)) - (_E8908989104_)) + _id89106_ + _stx89068_) + (cons (gx#core-expand-expression _expr89116_) '()))) + (gx#stx-source _stx89068_)) + (_E8907189086_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8908989104_))))) - (_E8908989104_))))) - (_E8908989104_)))) - (_E8908989104_))))) - (_E8908889136_)))) + (_E8907189086_))))) + (_E8907189086_))))) + (_E8907189086_)))) + (_E8907189086_))))) + (_E8907089118_)))) (define gx#macro-expand-extern - (lambda (_stx88934_) - (letrec ((_generate88936_ - (lambda (_body88966_) - (let _lp88968_ ((_rest88970_ _body88966_) - (_ns88971_ (gx#core-context-namespace__0)) - (_r88972_ '())) - (let* ((_e8897388988_ _rest88970_) - (_E8898688992_ + (lambda (_stx88916_) + (letrec ((_generate88918_ + (lambda (_body88948_) + (let _lp88950_ ((_rest88952_ _body88948_) + (_ns88953_ (gx#core-context-namespace__0)) + (_r88954_ '())) + (let* ((_e8895588970_ _rest88952_) + (_E8896888974_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8897388988_))) - (_E8898288996_ + _e8895588970_))) + (_E8896488978_ (lambda () - (if (gx#stx-null? _e8897388988_) - (if '#t (reverse _r88972_) (_E8898688992_)) - (_E8898688992_)))) - (_E8897589053_ + (if (gx#stx-null? _e8895588970_) + (if '#t (reverse _r88954_) (_E8896888974_)) + (_E8896888974_)))) + (_E8895789035_ (lambda () - (if (gx#stx-pair? _e8897388988_) - (let ((_e8898389000_ - (gx#syntax-e _e8897388988_))) - (let ((_hd8898489003_ - (##car _e8898389000_)) - (_tl8898589005_ - (##cdr _e8898389000_))) - (let* ((_hd89008_ _hd8898489003_) - (_rest89010_ _tl8898589005_)) + (if (gx#stx-pair? _e8895588970_) + (let ((_e8896588982_ + (gx#syntax-e _e8895588970_))) + (let ((_hd8896688985_ + (##car _e8896588982_)) + (_tl8896788987_ + (##cdr _e8896588982_))) + (let* ((_hd88990_ _hd8896688985_) + (_rest88992_ _tl8896788987_)) (if '#t - (if (gx#identifier? _hd89008_) - (_lp88968_ - _rest89010_ - _ns88971_ - (cons (cons _hd89008_ - (cons (if _ns88971_ + (if (gx#identifier? _hd88990_) + (_lp88950_ + _rest88992_ + _ns88953_ + (cons (cons _hd88990_ + (cons (if _ns88953_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _hd89008_ - _ns88971_ + _hd88990_ + _ns88953_ '"#" - _hd89008_) - _hd89008_) + _hd88990_) + _hd88990_) '())) - _r88972_)) + _r88954_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e8901189021_ - _hd89008_) - (_E8901389025_ + (let* ((_e8899389003_ + _hd88990_) + (_E8899589007_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8901189021_))) - (_E8901289049_ + _e8899389003_))) + (_E8899489031_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _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_) + _e8899389003_) + (let ((_e8899689011_ (gx#syntax-e _e8899389003_))) + (let ((_hd8899789014_ (##car _e8899689011_)) + (_tl8899889016_ (##cdr _e8899689011_))) + (let ((_id89019_ _hd8899789014_)) + (if (gx#stx-pair? _tl8899889016_) + (let ((_e8899989021_ + (gx#syntax-e _tl8899889016_))) + (let ((_hd8900089024_ + (##car _e8899989021_)) + (_tl8900189026_ + (##cdr _e8899989021_))) + (let ((_eid89029_ _hd8900089024_)) + (if (gx#stx-null? _tl8900189026_) + (if (and (gx#identifier? _id89019_) (gx#identifier? - _eid89047_)) - (_lp88968_ - _rest89010_ - _ns88971_ - (cons (cons _id89037_ - (cons _eid89047_ + _eid89029_)) + (_lp88950_ + _rest88992_ + _ns88953_ + (cons (cons _id89019_ + (cons _eid89029_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _r88972_)) + _r88954_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8901389025_)) - (_E8901389025_))))) - (_E8901389025_))))) - (_E8901389025_))))) + (_E8899589007_)) + (_E8899589007_))))) + (_E8899589007_))))) + (_E8899589007_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8901289049_))) - (_E8898288996_))))) - (_E8898288996_)))) - (_E8897489082_ + (_E8899489031_))) + (_E8896488978_))))) + (_E8896488978_)))) + (_E8895689064_ (lambda () - (if (gx#stx-pair? _e8897388988_) - (let ((_e8897689057_ - (gx#syntax-e _e8897388988_))) - (let ((_hd8897789060_ - (##car _e8897689057_)) - (_tl8897889062_ - (##cdr _e8897689057_))) - (if (eq? (gx#stx-e _hd8897789060_) + (if (gx#stx-pair? _e8895588970_) + (let ((_e8895889039_ + (gx#syntax-e _e8895588970_))) + (let ((_hd8895989042_ + (##car _e8895889039_)) + (_tl8896089044_ + (##cdr _e8895889039_))) + (if (eq? (gx#stx-e _hd8895989042_) 'namespace:) - (if (gx#stx-pair? _tl8897889062_) - (let ((_e8897989065_ + (if (gx#stx-pair? _tl8896089044_) + (let ((_e8896189047_ (gx#syntax-e - _tl8897889062_))) - (let ((_hd8898089068_ - (##car _e8897989065_)) - (_tl8898189070_ - (##cdr _e8897989065_))) - (let* ((_ns89073_ - _hd8898089068_) - (_rest89075_ - _tl8898189070_)) + _tl8896089044_))) + (let ((_hd8896289050_ + (##car _e8896189047_)) + (_tl8896389052_ + (##cdr _e8896189047_))) + (let* ((_ns89055_ + _hd8896289050_) + (_rest89057_ + _tl8896389052_)) (if '#t - (let ((_ns89080_ + (let ((_ns89062_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (gx#identifier? _ns89073_) - (symbol->string (gx#stx-e _ns89073_)) - (if (or (gx#stx-string? _ns89073_) - (gx#stx-false? _ns89073_)) - (gx#stx-e _ns89073_) + (if (gx#identifier? _ns89055_) + (symbol->string (gx#stx-e _ns89055_)) + (if (or (gx#stx-string? _ns89055_) + (gx#stx-false? _ns89055_)) + (gx#stx-e _ns89055_) (gx#raise-syntax-error '#f '"Bad syntax; extern expects namespace identifier" - _stx88934_ - _ns89073_))))) - (_lp88968_ _rest89075_ _ns89080_ _r88972_)) - (_E8897589053_))))) + _stx88916_ + _ns89055_))))) + (_lp88950_ _rest89057_ _ns89062_ _r88954_)) + (_E8895789035_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8897589053_)) - (_E8897589053_)))) - (_E8897589053_))))) - (_E8897489082_)))))) - (let* ((_e8893788944_ _stx88934_) - (_E8893988948_ + (_E8895789035_)) + (_E8895789035_)))) + (_E8895789035_))))) + (_E8895689064_)))))) + (let* ((_e8891988926_ _stx88916_) + (_E8892188930_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8893788944_))) - (_E8893888962_ + _e8891988926_))) + (_E8892088944_ (lambda () - (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_) + (if (gx#stx-pair? _e8891988926_) + (let ((_e8892288934_ (gx#syntax-e _e8891988926_))) + (let ((_hd8892388937_ (##car _e8892288934_)) + (_tl8892488939_ (##cdr _e8892288934_))) + (let ((_body88942_ _tl8892488939_)) + (if (gx#stx-list? _body88942_) (gx#core-cons '%#extern - (_generate88936_ _body88960_)) - (_E8893988948_))))) - (_E8893988948_))))) - (_E8893888962_))))) + (_generate88918_ _body88942_)) + (_E8892188930_))))) + (_E8892188930_))))) + (_E8892088944_))))) (define gx#macro-expand-define-values - (lambda (_stx88880_) - (let* ((_e8888188894_ _stx88880_) - (_E8888388898_ + (lambda (_stx88862_) + (let* ((_e8886388876_ _stx88862_) + (_E8886588880_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8888188894_))) - (_E8888288930_ + _e8886388876_))) + (_E8886488912_ (lambda () - (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-pair? _e8886388876_) + (let ((_e8886688884_ (gx#syntax-e _e8886388876_))) + (let ((_hd8886788887_ (##car _e8886688884_)) + (_tl8886888889_ (##cdr _e8886688884_))) + (if (gx#stx-pair? _tl8886888889_) + (let ((_e8886988892_ + (gx#syntax-e _tl8886888889_))) + (let ((_hd8887088895_ (##car _e8886988892_)) + (_tl8887188897_ (##cdr _e8886988892_))) + (let ((_hd88900_ _hd8887088895_)) + (if (gx#stx-pair? _tl8887188897_) + (let ((_e8887288902_ + (gx#syntax-e _tl8887188897_))) + (let ((_hd8887388905_ + (##car _e8887288902_)) + (_tl8887488907_ + (##cdr _e8887288902_))) + (let ((_expr88910_ _hd8887388905_)) + (if (gx#stx-null? _tl8887488907_) (if (gx#stx-andmap gx#identifier? - _hd88918_) + _hd88900_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _hd88918_) - (cons _expr88928_ '()))) - (_E8888388898_)) + _hd88900_) + (cons _expr88910_ '()))) + (_E8886588880_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8888388898_))))) - (_E8888388898_))))) - (_E8888388898_)))) - (_E8888388898_))))) - (_E8888288930_)))) + (_E8886588880_))))) + (_E8886588880_))))) + (_E8886588880_)))) + (_E8886588880_))))) + (_E8886488912_)))) (define gx#macro-expand-define-syntax - (lambda (_stx88826_) - (let* ((_e8882788840_ _stx88826_) - (_E8882988844_ + (lambda (_stx88808_) + (let* ((_e8880988822_ _stx88808_) + (_E8881188826_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8882788840_))) - (_E8882888876_ + _e8880988822_))) + (_E8881088858_ (lambda () - (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#stx-pair? _e8880988822_) + (let ((_e8881288830_ (gx#syntax-e _e8880988822_))) + (let ((_hd8881388833_ (##car _e8881288830_)) + (_tl8881488835_ (##cdr _e8881288830_))) + (if (gx#stx-pair? _tl8881488835_) + (let ((_e8881588838_ + (gx#syntax-e _tl8881488835_))) + (let ((_hd8881688841_ (##car _e8881588838_)) + (_tl8881788843_ (##cdr _e8881588838_))) + (let ((_hd88846_ _hd8881688841_)) + (if (gx#stx-pair? _tl8881788843_) + (let ((_e8881888848_ + (gx#syntax-e _tl8881788843_))) + (let ((_hd8881988851_ + (##car _e8881888848_)) + (_tl8882088853_ + (##cdr _e8881888848_))) + (let ((_expr88856_ _hd8881988851_)) + (if (gx#stx-null? _tl8882088853_) (if (gx#identifier? - _hd88864_) + _hd88846_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _hd88864_ + (cons _hd88846_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _expr88874_ '()))) - (_E8882988844_)) + (cons _expr88856_ '()))) + (_E8881188826_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8882988844_))))) - (_E8882988844_))))) - (_E8882988844_)))) - (_E8882988844_))))) - (_E8882888876_)))) + (_E8881188826_))))) + (_E8881188826_))))) + (_E8881188826_)))) + (_E8881188826_))))) + (_E8881088858_)))) (define gx#macro-expand-define-alias - (lambda (_stx88772_) - (let* ((_e8877388786_ _stx88772_) - (_E8877588790_ + (lambda (_stx88754_) + (let* ((_e8875588768_ _stx88754_) + (_E8875788772_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8877388786_))) - (_E8877488822_ + _e8875588768_))) + (_E8875688804_ (lambda () - (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 (gx#stx-pair? _e8875588768_) + (let ((_e8875888776_ (gx#syntax-e _e8875588768_))) + (let ((_hd8875988779_ (##car _e8875888776_)) + (_tl8876088781_ (##cdr _e8875888776_))) + (if (gx#stx-pair? _tl8876088781_) + (let ((_e8876188784_ + (gx#syntax-e _tl8876088781_))) + (let ((_hd8876288787_ (##car _e8876188784_)) + (_tl8876388789_ (##cdr _e8876188784_))) + (let ((_id88792_ _hd8876288787_)) + (if (gx#stx-pair? _tl8876388789_) + (let ((_e8876488794_ + (gx#syntax-e _tl8876388789_))) + (let ((_hd8876588797_ + (##car _e8876488794_)) + (_tl8876688799_ + (##cdr _e8876488794_))) + (let ((_alias-id88802_ + _hd8876588797_)) + (if (gx#stx-null? _tl8876688799_) (if (and (gx#identifier? - _id88810_) + _id88792_) (gx#identifier? - _alias-id88820_)) + _alias-id88802_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _id88810_ + (cons _id88792_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _alias-id88820_ '()))) - (_E8877588790_)) + (cons _alias-id88802_ '()))) + (_E8875788772_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8877588790_))))) - (_E8877588790_))))) - (_E8877588790_)))) - (_E8877588790_))))) - (_E8877488822_)))) + (_E8875788772_))))) + (_E8875788772_))))) + (_E8875788772_)))) + (_E8875788772_))))) + (_E8875688804_)))) (define gx#macro-expand-lambda% - (lambda (_stx88729_) - (let* ((_e8873088740_ _stx88729_) - (_E8873288744_ + (lambda (_stx88711_) + (let* ((_e8871288722_ _stx88711_) + (_E8871488726_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8873088740_))) - (_E8873188768_ + _e8871288722_))) + (_E8871388750_ (lambda () - (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 (gx#stx-pair? _e8871288722_) + (let ((_e8871588730_ (gx#syntax-e _e8871288722_))) + (let ((_hd8871688733_ (##car _e8871588730_)) + (_tl8871788735_ (##cdr _e8871588730_))) + (if (gx#stx-pair? _tl8871788735_) + (let ((_e8871888738_ + (gx#syntax-e _tl8871788735_))) + (let ((_hd8871988741_ (##car _e8871888738_)) + (_tl8872088743_ (##cdr _e8871888738_))) + (let* ((_hd88746_ _hd8871988741_) + (_body88748_ _tl8872088743_)) (if (and (gx#stx-andmap gx#identifier? - _hd88764_) - (gx#stx-list? _body88766_) - (not (gx#stx-null? _body88766_))) + _hd88746_) + (gx#stx-list? _body88748_) + (not (gx#stx-null? _body88748_))) (gx#core-cons* '%#lambda (gx#stx-map1 gx#user-binding-identifier - _hd88764_) - _body88766_) - (_E8873288744_))))) - (_E8873288744_)))) - (_E8873288744_))))) - (_E8873188768_)))) + _hd88746_) + _body88748_) + (_E8871488726_))))) + (_E8871488726_)))) + (_E8871488726_))))) + (_E8871388750_)))) (define gx#macro-expand-case-lambda - (lambda (_stx88665_) - (letrec ((_generate88667_ - (lambda (_clause88697_) - (let* ((_e8869888705_ _clause88697_) - (_E8870088709_ + (lambda (_stx88647_) + (letrec ((_generate88649_ + (lambda (_clause88679_) + (let* ((_e8868088687_ _clause88679_) + (_E8868288691_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _stx88665_ - _clause88697_))) - (_E8869988725_ + _stx88647_ + _clause88679_))) + (_E8868188707_ (lambda () - (if (gx#stx-pair? _e8869888705_) - (let ((_e8870188713_ - (gx#syntax-e _e8869888705_))) - (let ((_hd8870288716_ - (##car _e8870188713_)) - (_tl8870388718_ - (##cdr _e8870188713_))) - (let* ((_hd88721_ _hd8870288716_) - (_body88723_ _tl8870388718_)) + (if (gx#stx-pair? _e8868088687_) + (let ((_e8868388695_ + (gx#syntax-e _e8868088687_))) + (let ((_hd8868488698_ + (##car _e8868388695_)) + (_tl8868588700_ + (##cdr _e8868388695_))) + (let* ((_hd88703_ _hd8868488698_) + (_body88705_ _tl8868588700_)) (if (and (gx#stx-andmap gx#identifier? - _hd88721_) - (gx#stx-list? _body88723_) + _hd88703_) + (gx#stx-list? _body88705_) (not (gx#stx-null? - _body88723_))) + _body88705_))) (gx#stx-wrap-source (cons (gx#stx-map1 gx#user-binding-identifier - _hd88721_) - _body88723_) - (gx#stx-source _clause88697_)) - (_E8870088709_))))) - (_E8870088709_))))) - (_E8869988725_))))) - (let* ((_e8866888675_ _stx88665_) - (_E8867088679_ + _hd88703_) + _body88705_) + (gx#stx-source _clause88679_)) + (_E8868288691_))))) + (_E8868288691_))))) + (_E8868188707_))))) + (let* ((_e8865088657_ _stx88647_) + (_E8865288661_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8866888675_))) - (_E8866988693_ + _e8865088657_))) + (_E8865188675_ (lambda () - (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_) + (if (gx#stx-pair? _e8865088657_) + (let ((_e8865388665_ (gx#syntax-e _e8865088657_))) + (let ((_hd8865488668_ (##car _e8865388665_)) + (_tl8865588670_ (##cdr _e8865388665_))) + (let ((_clauses88673_ _tl8865588670_)) + (if (gx#stx-list? _clauses88673_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _generate88667_ - _clauses88691_)) - (_E8867088679_))))) - (_E8867088679_))))) - (_E8866988693_))))) + _generate88649_ + _clauses88673_)) + (_E8865288661_))))) + (_E8865288661_))))) + (_E8865188675_))))) (define gx#macro-expand-let-values__% - (lambda (_stx88566_ _form88567_) - (letrec ((_generate88569_ - (lambda (_bind88612_) - (let* ((_e8861388623_ _bind88612_) - (_E8861588627_ + (lambda (_stx88548_ _form88549_) + (letrec ((_generate88551_ + (lambda (_bind88594_) + (let* ((_e8859588605_ _bind88594_) + (_E8859788609_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _stx88566_ - _bind88612_))) - (_E8861488651_ + _stx88548_ + _bind88594_))) + (_E8859688633_ (lambda () - (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_ + (if (gx#stx-pair? _e8859588605_) + (let ((_e8859888613_ + (gx#syntax-e _e8859588605_))) + (let ((_hd8859988616_ + (##car _e8859888613_)) + (_tl8860088618_ + (##cdr _e8859888613_))) + (let ((_ids88621_ _hd8859988616_)) + (if (gx#stx-pair? _tl8860088618_) + (let ((_e8860188623_ (gx#syntax-e - _tl8861888636_))) - (let ((_hd8862088644_ - (##car _e8861988641_)) - (_tl8862188646_ - (##cdr _e8861988641_))) - (let ((_expr88649_ - _hd8862088644_)) + _tl8860088618_))) + (let ((_hd8860288626_ + (##car _e8860188623_)) + (_tl8860388628_ + (##cdr _e8860188623_))) + (let ((_expr88631_ + _hd8860288626_)) (if (gx#stx-null? - _tl8862188646_) + _tl8860388628_) (if (gx#stx-andmap gx#identifier? - _ids88639_) + _ids88621_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _ids88639_) - (cons _expr88649_ '())) - (_E8861588627_)) - (_E8861588627_))))) + _ids88621_) + (cons _expr88631_ '())) + (_E8859788609_)) + (_E8859788609_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8861588627_))))) - (_E8861588627_))))) - (_E8861488651_))))) - (let* ((_e8857088580_ _stx88566_) - (_E8857288584_ + (_E8859788609_))))) + (_E8859788609_))))) + (_E8859688633_))))) + (let* ((_e8855288562_ _stx88548_) + (_E8855488566_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8857088580_))) - (_E8857188608_ + _e8855288562_))) + (_E8855388590_ (lambda () - (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_) + (if (gx#stx-pair? _e8855288562_) + (let ((_e8855588570_ (gx#syntax-e _e8855288562_))) + (let ((_hd8855688573_ (##car _e8855588570_)) + (_tl8855788575_ (##cdr _e8855588570_))) + (if (gx#stx-pair? _tl8855788575_) + (let ((_e8855888578_ + (gx#syntax-e _tl8855788575_))) + (let ((_hd8855988581_ (##car _e8855888578_)) + (_tl8856088583_ (##cdr _e8855888578_))) + (let* ((_hd88586_ _hd8855988581_) + (_body88588_ _tl8856088583_)) + (if (and (gx#stx-list? _hd88586_) + (gx#stx-list? _body88588_) (not (gx#stx-null? - _body88606_))) + _body88588_))) (gx#core-cons* - _form88567_ + _form88549_ (gx#stx-map1 - _generate88569_ - _hd88604_) - _body88606_) - (_E8857288584_))))) - (_E8857288584_)))) - (_E8857288584_))))) - (_E8857188608_))))) + _generate88551_ + _hd88586_) + _body88588_) + (_E8855488566_))))) + (_E8855488566_)))) + (_E8855488566_))))) + (_E8855388590_))))) (define gx#macro-expand-let-values__0 - (lambda (_stx88658_) - (let ((_form88660_ '%#let-values)) - (gx#macro-expand-let-values__% _stx88658_ _form88660_)))) + (lambda (_stx88640_) + (let ((_form88642_ '%#let-values)) + (gx#macro-expand-let-values__% _stx88640_ _form88642_)))) (define gx#macro-expand-let-values - (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_) + (lambda _g91025_ + (let ((_g91024_ (##length _g91025_))) + (cond ((##fx= _g91024_ 1) + (apply (lambda (_stx88640_) + (gx#macro-expand-let-values__0 _stx88640_)) + _g91025_)) + ((##fx= _g91024_ 2) + (apply (lambda (_stx88644_ _form88645_) (gx#macro-expand-let-values__% - _stx88662_ - _form88663_)) - _g91043_)) + _stx88644_ + _form88645_)) + _g91025_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g91043_)))))) + _g91025_)))))) (define gx#macro-expand-letrec-values - (lambda (_stx88563_) - (gx#macro-expand-let-values__% _stx88563_ '%#letrec-values))) + (lambda (_stx88545_) + (gx#macro-expand-let-values__% _stx88545_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_stx88561_) - (gx#macro-expand-let-values__% _stx88561_ '%#letrec*-values))) + (lambda (_stx88543_) + (gx#macro-expand-let-values__% _stx88543_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_stx88452_) - (let* ((_e8845388479_ _stx88452_) - (_E8846588483_ + (lambda (_stx88434_) + (let* ((_e8843588461_ _stx88434_) + (_E8844788465_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e8845388479_))) - (_E8845588525_ + _e8843588461_))) + (_E8843788507_ (lambda () - (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_ + (if (gx#stx-pair? _e8843588461_) + (let ((_e8844888469_ (gx#syntax-e _e8843588461_))) + (let ((_hd8844988472_ (##car _e8844888469_)) + (_tl8845088474_ (##cdr _e8844888469_))) + (if (gx#stx-pair? _tl8845088474_) + (let ((_e8845188477_ + (gx#syntax-e _tl8845088474_))) + (let ((_hd8845288480_ (##car _e8845188477_)) + (_tl8845388482_ (##cdr _e8845188477_))) + (let ((_test88485_ _hd8845288480_)) + (if (gx#stx-pair? _tl8845388482_) + (let ((_e8845488487_ + (gx#syntax-e _tl8845388482_))) + (let ((_hd8845588490_ + (##car _e8845488487_)) + (_tl8845688492_ + (##cdr _e8845488487_))) + (let ((_K88495_ _hd8845588490_)) + (if (gx#stx-pair? _tl8845688492_) + (let ((_e8845788497_ (gx#syntax-e - _tl8847488510_))) - (let ((_hd8847688518_ - (##car _e8847588515_)) - (_tl8847788520_ - (##cdr _e8847588515_))) - (let ((_E88523_ - _hd8847688518_)) + _tl8845688492_))) + (let ((_hd8845888500_ + (##car _e8845788497_)) + (_tl8845988502_ + (##cdr _e8845788497_))) + (let ((_E88505_ + _hd8845888500_)) (if (gx#stx-null? - _tl8847788520_) + _tl8845988502_) (if '#t (gx#core-list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if - _test88503_ - _K88513_ - _E88523_) - (_E8846588483_)) - (_E8846588483_))))) + _test88485_ + _K88495_ + _E88505_) + (_E8844788465_)) + (_E8844788465_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E8846588483_))))) - (_E8846588483_))))) - (_E8846588483_)))) - (_E8846588483_)))) - (_E8845488557_ + (_E8844788465_))))) + (_E8844788465_))))) + (_E8844788465_)))) + (_E8844788465_)))) + (_E8843688539_ (lambda () - (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 (gx#stx-pair? _e8843588461_) + (let ((_e8843888511_ (gx#syntax-e _e8843588461_))) + (let ((_hd8843988514_ (##car _e8843888511_)) + (_tl8844088516_ (##cdr _e8843888511_))) + (if (gx#stx-pair? _tl8844088516_) + (let ((_e8844188519_ + (gx#syntax-e _tl8844088516_))) + (let ((_hd8844288522_ (##car _e8844188519_)) + (_tl8844388524_ (##cdr _e8844188519_))) + (let ((_test88527_ _hd8844288522_)) + (if (gx#stx-pair? _tl8844388524_) + (let ((_e8844488529_ + (gx#syntax-e _tl8844388524_))) + (let ((_hd8844588532_ + (##car _e8844488529_)) + (_tl8844688534_ + (##cdr _e8844488529_))) + (let ((_K88537_ _hd8844588532_)) + (if (gx#stx-null? _tl8844688534_) (if '#t (gx#core-list '%#if - _test88545_ - _K88555_ + _test88527_ + _K88537_ '#!void) - (_E8845588525_)) - (_E8845588525_))))) - (_E8845588525_))))) - (_E8845588525_)))) - (_E8845588525_))))) - (_E8845488557_)))) + (_E8843788507_)) + (_E8843788507_))))) + (_E8843788507_))))) + (_E8843788507_)))) + (_E8843788507_))))) + (_E8843688539_)))) (define gx#free-identifier=? - (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) + (lambda (_xid88422_ _yid88423_) + (let ((_xe88425_ (gx#resolve-identifier__0 _xid88422_)) + (_ye88426_ (gx#resolve-identifier__0 _yid88423_))) + (if (and _xe88425_ _ye88426_) + (let ((_$e88428_ (eq? _xe88425_ _ye88426_))) + (if _$e88428_ + _$e88428_ + (if (##structure-instance-of? _xe88425_ 'gx#binding::t) + (if (##structure-instance-of? _ye88426_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _xe88443_ + _xe88425_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _ye88444_ + _ye88426_ '1 gx#binding::t '#f)) '#f) '#f))) - (if (or _xe88443_ _ye88444_) + (if (or _xe88425_ _ye88426_) '#f - (gx#stx-eq? _xid88440_ _yid88441_)))))) + (gx#stx-eq? _xid88422_ _yid88423_)))))) (define gx#bound-identifier=? - (lambda (_xid88424_ _yid88425_) - (letrec ((_context88427_ - (lambda (_e88438_) + (lambda (_xid88406_ _yid88407_) + (letrec ((_context88409_ + (lambda (_e88420_) (if (##structure-direct-instance-of? - _e88438_ + _e88420_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _e88438_ + _e88420_ '3 gx#syntax-quote::t '#f) (gx#current-expander-context)))) - (_marks88428_ - (lambda (_e88436_) - (if (symbol? _e88436_) + (_marks88410_ + (lambda (_e88418_) + (if (symbol? _e88418_) '() (if (##structure-direct-instance-of? - _e88436_ + _e88418_ 'gx#identifier-wrap::t) (##unchecked-structure-ref - _e88436_ + _e88418_ '3 gx#identifier-wrap::t '#f) (##unchecked-structure-ref - _e88436_ + _e88418_ '4 gx#syntax-quote::t '#f))))) - (_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_)) + (_unwrap88411_ + (lambda (_e88416_) + (if (symbol? _e88416_) + _e88416_ + (gx#syntax-local-unwrap _e88416_))))) + (let ((_x88413_ (_unwrap88411_ _xid88406_)) + (_y88414_ (_unwrap88411_ _yid88407_))) + (if (gx#stx-eq? _x88413_ _y88414_) + (if (eq? (_context88409_ _x88413_) (_context88409_ _y88414_)) + (equal? (_marks88410_ _x88413_) (_marks88410_ _y88414_)) '#f) '#f))))) (define gx#underscore? - (lambda (_stx88422_) - (if (gx#identifier? _stx88422_) - (gx#core-identifier=? _stx88422_ '_) + (lambda (_stx88404_) + (if (gx#identifier? _stx88404_) + (gx#core-identifier=? _stx88404_ '_) '#f))) (define gx#ellipsis? - (lambda (_stx88420_) - (if (gx#identifier? _stx88420_) - (gx#core-identifier=? _stx88420_ '...) + (lambda (_stx88402_) + (if (gx#identifier? _stx88402_) + (gx#core-identifier=? _stx88402_ '...) '#f))) (define gx#user-binding-identifier - (lambda (_x88418_) - (if (gx#identifier? _x88418_) - (if (not (gx#underscore? _x88418_)) _x88418_ '#f) + (lambda (_x88400_) + (if (gx#identifier? _x88400_) + (if (not (gx#underscore? _x88400_)) _x88400_ '#f) '#f))) (define gx#check-duplicate-identifiers__% - (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_)) + (lambda (_stx88346_ _where88347_) + (let _lp88349_ ((_rest88351_ (gx#syntax->list _stx88346_))) + (let* ((_rest8835288360_ _rest88351_) + (_else8835488368_ (lambda () '#t)) + (_K8835688378_ + (lambda (_rest88371_ _hd88372_) + (if (not (gx#identifier? _hd88372_)) (gx#raise-syntax-error '#f '"Bad identifier" - _where88365_ - _hd88390_) - (if (find (lambda (_g8839188393_) + _where88347_ + _hd88372_) + (if (find (lambda (_g8837388375_) (gx#bound-identifier=? - _g8839188393_ - _hd88390_)) - _rest88389_) + _g8837388375_ + _hd88372_)) + _rest88371_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _where88365_ - _hd88390_) - (_lp88367_ _rest88389_)))))) - (if (##pair? _rest8837088378_) - (let ((_hd8837588399_ (##car _rest8837088378_)) - (_tl8837688401_ (##cdr _rest8837088378_))) - (let* ((_hd88404_ _hd8837588399_) - (_rest88406_ _tl8837688401_)) - (_K8837488396_ _rest88406_ _hd88404_))) - (_else8837288386_)))))) + _where88347_ + _hd88372_) + (_lp88349_ _rest88371_)))))) + (if (##pair? _rest8835288360_) + (let ((_hd8835788381_ (##car _rest8835288360_)) + (_tl8835888383_ (##cdr _rest8835288360_))) + (let* ((_hd88386_ _hd8835788381_) + (_rest88388_ _tl8835888383_)) + (_K8835688378_ _rest88388_ _hd88386_))) + (_else8835488368_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_stx88411_) - (let ((_where88413_ _stx88411_)) - (gx#check-duplicate-identifiers__% _stx88411_ _where88413_)))) + (lambda (_stx88393_) + (let ((_where88395_ _stx88393_)) + (gx#check-duplicate-identifiers__% _stx88393_ _where88395_)))) (define gx#check-duplicate-identifiers - (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_) + (lambda _g91027_ + (let ((_g91026_ (##length _g91027_))) + (cond ((##fx= _g91026_ 1) + (apply (lambda (_stx88393_) + (gx#check-duplicate-identifiers__0 _stx88393_)) + _g91027_)) + ((##fx= _g91026_ 2) + (apply (lambda (_stx88397_ _where88398_) (gx#check-duplicate-identifiers__% - _stx88415_ - _where88416_)) - _g91045_)) + _stx88397_ + _where88398_)) + _g91027_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g91045_)))))) + _g91027_)))))) (define gx#core-bind-values? - (lambda (_stx88356_) + (lambda (_stx88338_) (gx#stx-andmap - (lambda (_x88358_) - (let ((_$e88360_ (gx#identifier? _x88358_))) - (if _$e88360_ _$e88360_ (gx#stx-false? _x88358_)))) - _stx88356_))) + (lambda (_x88340_) + (let ((_$e88342_ (gx#identifier? _x88340_))) + (if _$e88342_ _$e88342_ (gx#stx-false? _x88340_)))) + _stx88338_))) (define gx#core-bind-values!__% - (lambda (_stx88320_ _rebind?88321_ _phi88322_ _ctx88323_) + (lambda (_stx88302_ _rebind?88303_ _phi88304_ _ctx88305_) (gx#stx-for-each1 - (lambda (_id88325_) - (if (gx#identifier? _id88325_) + (lambda (_id88307_) + (if (gx#identifier? _id88307_) (gx#core-bind-runtime!__% - _id88325_ - _rebind?88321_ - _phi88322_ - _ctx88323_) + _id88307_ + _rebind?88303_ + _phi88304_ + _ctx88305_) '#!void)) - _stx88320_))) + _stx88302_))) (define gx#core-bind-values!__0 - (lambda (_stx88330_) - (let* ((_rebind?88332_ '#f) - (_phi88334_ (gx#current-expander-phi)) - (_ctx88336_ (gx#current-expander-context))) + (lambda (_stx88312_) + (let* ((_rebind?88314_ '#f) + (_phi88316_ (gx#current-expander-phi)) + (_ctx88318_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx88330_ - _rebind?88332_ - _phi88334_ - _ctx88336_)))) + _stx88312_ + _rebind?88314_ + _phi88316_ + _ctx88318_)))) (define gx#core-bind-values!__1 - (lambda (_stx88338_ _rebind?88339_) - (let* ((_phi88341_ (gx#current-expander-phi)) - (_ctx88343_ (gx#current-expander-context))) + (lambda (_stx88320_ _rebind?88321_) + (let* ((_phi88323_ (gx#current-expander-phi)) + (_ctx88325_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx88338_ - _rebind?88339_ - _phi88341_ - _ctx88343_)))) + _stx88320_ + _rebind?88321_ + _phi88323_ + _ctx88325_)))) (define gx#core-bind-values!__2 - (lambda (_stx88345_ _rebind?88346_ _phi88347_) - (let ((_ctx88349_ (gx#current-expander-context))) + (lambda (_stx88327_ _rebind?88328_ _phi88329_) + (let ((_ctx88331_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx88345_ - _rebind?88346_ - _phi88347_ - _ctx88349_)))) + _stx88327_ + _rebind?88328_ + _phi88329_ + _ctx88331_)))) (define gx#core-bind-values! - (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_) + (lambda _g91029_ + (let ((_g91028_ (##length _g91029_))) + (cond ((##fx= _g91028_ 1) + (apply (lambda (_stx88312_) + (gx#core-bind-values!__0 _stx88312_)) + _g91029_)) + ((##fx= _g91028_ 2) + (apply (lambda (_stx88320_ _rebind?88321_) + (gx#core-bind-values!__1 _stx88320_ _rebind?88321_)) + _g91029_)) + ((##fx= _g91028_ 3) + (apply (lambda (_stx88327_ _rebind?88328_ _phi88329_) (gx#core-bind-values!__2 - _stx88345_ - _rebind?88346_ - _phi88347_)) - _g91047_)) - ((##fx= _g91046_ 4) - (apply (lambda (_stx88351_ - _rebind?88352_ - _phi88353_ - _ctx88354_) + _stx88327_ + _rebind?88328_ + _phi88329_)) + _g91029_)) + ((##fx= _g91028_ 4) + (apply (lambda (_stx88333_ + _rebind?88334_ + _phi88335_ + _ctx88336_) (gx#core-bind-values!__% - _stx88351_ - _rebind?88352_ - _phi88353_ - _ctx88354_)) - _g91047_)) + _stx88333_ + _rebind?88334_ + _phi88335_ + _ctx88336_)) + _g91029_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g91047_)))))) + _g91029_)))))) (define gx#core-quote-bind-values - (lambda (_stx88315_) + (lambda (_stx88297_) (gx#stx-map1 - (lambda (_x88317_) - (if (gx#identifier? _x88317_) - (gx#core-quote-syntax__0 _x88317_) + (lambda (_x88299_) + (if (gx#identifier? _x88299_) + (gx#core-quote-syntax__0 _x88299_) '#f)) - _stx88315_))) + _stx88297_))) (define gx#core-runtime-ref? - (lambda (_stx88308_) - (if (gx#identifier? _stx88308_) - (let* ((_bind88310_ (gx#resolve-identifier__0 _stx88308_)) - (_$e88312_ (not _bind88310_))) - (if _$e88312_ - _$e88312_ + (lambda (_stx88290_) + (if (gx#identifier? _stx88290_) + (let* ((_bind88292_ (gx#resolve-identifier__0 _stx88290_)) + (_$e88294_ (not _bind88292_))) + (if _$e88294_ + _$e88294_ (##structure-instance-of? - _bind88310_ + _bind88292_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (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_) + (lambda (_id88282_ _form88283_) + (let ((_bind88285_ (gx#resolve-identifier__0 _id88282_))) + (if (##structure-instance-of? _bind88285_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _id88282_) + (if (not _bind88285_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _id88300_))) - (gx#core-quote-syntax__0 _id88300_) + (gx#core-extern-symbol? (gx#stx-e _id88282_))) + (gx#core-quote-syntax__0 _id88282_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _form88301_ - _id88300_)) + _form88283_ + _id88282_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _form88301_ - _id88300_)))))) + _form88283_ + _id88282_)))))) (define gx#core-bind-runtime!__% - (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) + (lambda (_id88241_ _rebind?88242_ _phi88243_ _ctx88244_) + (let* ((_key88246_ (gx#core-identifier-key _id88241_)) + (_eid88248_ + (gx#make-binding-id__% _key88246_ '#f _phi88243_ _ctx88244_)) + (_bind88250_ + (if (##structure-instance-of? _ctx88244_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid88266_ - _key88264_ - _phi88261_ - _ctx88262_) + _eid88248_ + _key88246_ + _phi88243_ + _ctx88244_) (if (##structure-instance-of? - _ctx88262_ + _ctx88244_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid88266_ - _key88264_ - _phi88261_) + _eid88248_ + _key88246_ + _phi88243_) (if (##structure-instance-of? - _ctx88262_ + _ctx88244_ 'gx#local-context::t) (##structure gx#local-binding::t - _eid88266_ - _key88264_ - _phi88261_) + _eid88248_ + _key88246_ + _phi88243_) (##structure gx#runtime-binding::t - _eid88266_ - _key88264_ - _phi88261_)))))) + _eid88248_ + _key88246_ + _phi88243_)))))) (gx#bind-identifier!__% - _id88259_ - _bind88268_ - _rebind?88260_ - _phi88261_ - _ctx88262_)))) + _id88241_ + _bind88250_ + _rebind?88242_ + _phi88243_ + _ctx88244_)))) (define gx#core-bind-runtime!__0 - (lambda (_id88274_) - (let* ((_rebind?88276_ '#f) - (_phi88278_ (gx#current-expander-phi)) - (_ctx88280_ (gx#current-expander-context))) + (lambda (_id88256_) + (let* ((_rebind?88258_ '#f) + (_phi88260_ (gx#current-expander-phi)) + (_ctx88262_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id88274_ - _rebind?88276_ - _phi88278_ - _ctx88280_)))) + _id88256_ + _rebind?88258_ + _phi88260_ + _ctx88262_)))) (define gx#core-bind-runtime!__1 - (lambda (_id88282_ _rebind?88283_) - (let* ((_phi88285_ (gx#current-expander-phi)) - (_ctx88287_ (gx#current-expander-context))) + (lambda (_id88264_ _rebind?88265_) + (let* ((_phi88267_ (gx#current-expander-phi)) + (_ctx88269_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id88282_ - _rebind?88283_ - _phi88285_ - _ctx88287_)))) + _id88264_ + _rebind?88265_ + _phi88267_ + _ctx88269_)))) (define gx#core-bind-runtime!__2 - (lambda (_id88289_ _rebind?88290_ _phi88291_) - (let ((_ctx88293_ (gx#current-expander-context))) + (lambda (_id88271_ _rebind?88272_ _phi88273_) + (let ((_ctx88275_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id88289_ - _rebind?88290_ - _phi88291_ - _ctx88293_)))) + _id88271_ + _rebind?88272_ + _phi88273_ + _ctx88275_)))) (define gx#core-bind-runtime! - (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_) + (lambda _g91031_ + (let ((_g91030_ (##length _g91031_))) + (cond ((##fx= _g91030_ 1) + (apply (lambda (_id88256_) + (gx#core-bind-runtime!__0 _id88256_)) + _g91031_)) + ((##fx= _g91030_ 2) + (apply (lambda (_id88264_ _rebind?88265_) + (gx#core-bind-runtime!__1 _id88264_ _rebind?88265_)) + _g91031_)) + ((##fx= _g91030_ 3) + (apply (lambda (_id88271_ _rebind?88272_ _phi88273_) (gx#core-bind-runtime!__2 - _id88289_ - _rebind?88290_ - _phi88291_)) - _g91049_)) - ((##fx= _g91048_ 4) - (apply (lambda (_id88295_ - _rebind?88296_ - _phi88297_ - _ctx88298_) + _id88271_ + _rebind?88272_ + _phi88273_)) + _g91031_)) + ((##fx= _g91030_ 4) + (apply (lambda (_id88277_ + _rebind?88278_ + _phi88279_ + _ctx88280_) (gx#core-bind-runtime!__% - _id88295_ - _rebind?88296_ - _phi88297_ - _ctx88298_)) - _g91049_)) + _id88277_ + _rebind?88278_ + _phi88279_ + _ctx88280_)) + _g91031_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g91049_)))))) + _g91031_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_id88214_ _eid88215_ _rebind?88216_ _phi88217_ _ctx88218_) - (let* ((_key88220_ (gx#core-identifier-key _id88214_)) - (_bind88222_ - (if (##structure-instance-of? _ctx88218_ 'gx#module-context::t) + (lambda (_id88196_ _eid88197_ _rebind?88198_ _phi88199_ _ctx88200_) + (let* ((_key88202_ (gx#core-identifier-key _id88196_)) + (_bind88204_ + (if (##structure-instance-of? _ctx88200_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid88215_ - _key88220_ - _phi88217_ - _ctx88218_) + _eid88197_ + _key88202_ + _phi88199_ + _ctx88200_) (if (##structure-instance-of? - _ctx88218_ + _ctx88200_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid88215_ - _key88220_ - _phi88217_) + _eid88197_ + _key88202_ + _phi88199_) (##structure gx#runtime-binding::t - _eid88215_ - _key88220_ - _phi88217_))))) + _eid88197_ + _key88202_ + _phi88199_))))) (gx#bind-identifier!__% - _id88214_ - _bind88222_ - _rebind?88216_ - _phi88217_ - _ctx88218_)))) + _id88196_ + _bind88204_ + _rebind?88198_ + _phi88199_ + _ctx88200_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_id88228_ _eid88229_) - (let* ((_rebind?88231_ '#f) - (_phi88233_ (gx#current-expander-phi)) - (_ctx88235_ (gx#current-expander-context))) + (lambda (_id88210_ _eid88211_) + (let* ((_rebind?88213_ '#f) + (_phi88215_ (gx#current-expander-phi)) + (_ctx88217_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id88228_ - _eid88229_ - _rebind?88231_ - _phi88233_ - _ctx88235_)))) + _id88210_ + _eid88211_ + _rebind?88213_ + _phi88215_ + _ctx88217_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_id88237_ _eid88238_ _rebind?88239_) - (let* ((_phi88241_ (gx#current-expander-phi)) - (_ctx88243_ (gx#current-expander-context))) + (lambda (_id88219_ _eid88220_ _rebind?88221_) + (let* ((_phi88223_ (gx#current-expander-phi)) + (_ctx88225_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id88237_ - _eid88238_ - _rebind?88239_ - _phi88241_ - _ctx88243_)))) + _id88219_ + _eid88220_ + _rebind?88221_ + _phi88223_ + _ctx88225_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_id88245_ _eid88246_ _rebind?88247_ _phi88248_) - (let ((_ctx88250_ (gx#current-expander-context))) + (lambda (_id88227_ _eid88228_ _rebind?88229_ _phi88230_) + (let ((_ctx88232_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id88245_ - _eid88246_ - _rebind?88247_ - _phi88248_ - _ctx88250_)))) + _id88227_ + _eid88228_ + _rebind?88229_ + _phi88230_ + _ctx88232_)))) (define gx#core-bind-runtime-reference! - (lambda _g91051_ - (let ((_g91050_ (##length _g91051_))) - (cond ((##fx= _g91050_ 2) - (apply (lambda (_id88228_ _eid88229_) + (lambda _g91033_ + (let ((_g91032_ (##length _g91033_))) + (cond ((##fx= _g91032_ 2) + (apply (lambda (_id88210_ _eid88211_) (gx#core-bind-runtime-reference!__0 - _id88228_ - _eid88229_)) - _g91051_)) - ((##fx= _g91050_ 3) - (apply (lambda (_id88237_ _eid88238_ _rebind?88239_) + _id88210_ + _eid88211_)) + _g91033_)) + ((##fx= _g91032_ 3) + (apply (lambda (_id88219_ _eid88220_ _rebind?88221_) (gx#core-bind-runtime-reference!__1 - _id88237_ - _eid88238_ - _rebind?88239_)) - _g91051_)) - ((##fx= _g91050_ 4) - (apply (lambda (_id88245_ - _eid88246_ - _rebind?88247_ - _phi88248_) + _id88219_ + _eid88220_ + _rebind?88221_)) + _g91033_)) + ((##fx= _g91032_ 4) + (apply (lambda (_id88227_ + _eid88228_ + _rebind?88229_ + _phi88230_) (gx#core-bind-runtime-reference!__2 - _id88245_ - _eid88246_ - _rebind?88247_ - _phi88248_)) - _g91051_)) - ((##fx= _g91050_ 5) - (apply (lambda (_id88252_ - _eid88253_ - _rebind?88254_ - _phi88255_ - _ctx88256_) + _id88227_ + _eid88228_ + _rebind?88229_ + _phi88230_)) + _g91033_)) + ((##fx= _g91032_ 5) + (apply (lambda (_id88234_ + _eid88235_ + _rebind?88236_ + _phi88237_ + _ctx88238_) (gx#core-bind-runtime-reference!__% - _id88252_ - _eid88253_ - _rebind?88254_ - _phi88255_ - _ctx88256_)) - _g91051_)) + _id88234_ + _eid88235_ + _rebind?88236_ + _phi88237_ + _ctx88238_)) + _g91033_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g91051_)))))) + _g91033_)))))) (define gx#core-bind-extern!__% - (lambda (_id88174_ _eid88175_ _rebind?88176_ _phi88177_ _ctx88178_) + (lambda (_id88156_ _eid88157_ _rebind?88158_ _phi88159_ _ctx88160_) (gx#bind-identifier!__% - _id88174_ + _id88156_ (##structure gx#extern-binding::t - _eid88175_ - (gx#core-identifier-key _id88174_) - _phi88177_) - _rebind?88176_ - _phi88177_ - _ctx88178_))) + _eid88157_ + (gx#core-identifier-key _id88156_) + _phi88159_) + _rebind?88158_ + _phi88159_ + _ctx88160_))) (define gx#core-bind-extern!__0 - (lambda (_id88183_ _eid88184_) - (let* ((_rebind?88186_ '#f) - (_phi88188_ (gx#current-expander-phi)) - (_ctx88190_ (gx#current-expander-context))) + (lambda (_id88165_ _eid88166_) + (let* ((_rebind?88168_ '#f) + (_phi88170_ (gx#current-expander-phi)) + (_ctx88172_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id88183_ - _eid88184_ - _rebind?88186_ - _phi88188_ - _ctx88190_)))) + _id88165_ + _eid88166_ + _rebind?88168_ + _phi88170_ + _ctx88172_)))) (define gx#core-bind-extern!__1 - (lambda (_id88192_ _eid88193_ _rebind?88194_) - (let* ((_phi88196_ (gx#current-expander-phi)) - (_ctx88198_ (gx#current-expander-context))) + (lambda (_id88174_ _eid88175_ _rebind?88176_) + (let* ((_phi88178_ (gx#current-expander-phi)) + (_ctx88180_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id88192_ - _eid88193_ - _rebind?88194_ - _phi88196_ - _ctx88198_)))) + _id88174_ + _eid88175_ + _rebind?88176_ + _phi88178_ + _ctx88180_)))) (define gx#core-bind-extern!__2 - (lambda (_id88200_ _eid88201_ _rebind?88202_ _phi88203_) - (let ((_ctx88205_ (gx#current-expander-context))) + (lambda (_id88182_ _eid88183_ _rebind?88184_ _phi88185_) + (let ((_ctx88187_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id88200_ - _eid88201_ - _rebind?88202_ - _phi88203_ - _ctx88205_)))) + _id88182_ + _eid88183_ + _rebind?88184_ + _phi88185_ + _ctx88187_)))) (define gx#core-bind-extern! - (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_) + (lambda _g91035_ + (let ((_g91034_ (##length _g91035_))) + (cond ((##fx= _g91034_ 2) + (apply (lambda (_id88165_ _eid88166_) + (gx#core-bind-extern!__0 _id88165_ _eid88166_)) + _g91035_)) + ((##fx= _g91034_ 3) + (apply (lambda (_id88174_ _eid88175_ _rebind?88176_) (gx#core-bind-extern!__1 - _id88192_ - _eid88193_ - _rebind?88194_)) - _g91053_)) - ((##fx= _g91052_ 4) - (apply (lambda (_id88200_ - _eid88201_ - _rebind?88202_ - _phi88203_) + _id88174_ + _eid88175_ + _rebind?88176_)) + _g91035_)) + ((##fx= _g91034_ 4) + (apply (lambda (_id88182_ + _eid88183_ + _rebind?88184_ + _phi88185_) (gx#core-bind-extern!__2 - _id88200_ - _eid88201_ - _rebind?88202_ - _phi88203_)) - _g91053_)) - ((##fx= _g91052_ 5) - (apply (lambda (_id88207_ - _eid88208_ - _rebind?88209_ - _phi88210_ - _ctx88211_) + _id88182_ + _eid88183_ + _rebind?88184_ + _phi88185_)) + _g91035_)) + ((##fx= _g91034_ 5) + (apply (lambda (_id88189_ + _eid88190_ + _rebind?88191_ + _phi88192_ + _ctx88193_) (gx#core-bind-extern!__% - _id88207_ - _eid88208_ - _rebind?88209_ - _phi88210_ - _ctx88211_)) - _g91053_)) + _id88189_ + _eid88190_ + _rebind?88191_ + _phi88192_ + _ctx88193_)) + _g91035_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g91053_)))))) + _g91035_)))))) (define gx#core-bind-syntax!__% - (lambda (_id88128_ _e88129_ _rebind?88130_ _phi88131_ _ctx88132_) + (lambda (_id88110_ _e88111_ _rebind?88112_ _phi88113_ _ctx88114_) (gx#bind-identifier!__% - _id88128_ - (let ((_key88137_ (gx#core-identifier-key _id88128_)) - (_e88138_ - (if (or (##structure-instance-of? _e88129_ 'gx#expander::t) + _id88110_ + (let ((_key88119_ (gx#core-identifier-key _id88110_)) + (_e88120_ + (if (or (##structure-instance-of? _e88111_ 'gx#expander::t) (##structure-instance-of? - _e88129_ + _e88111_ 'gx#expander-context::t)) - _e88129_ + _e88111_ (##structure gx#user-expander::t - _e88129_ - _ctx88132_ - _phi88131_)))) + _e88111_ + _ctx88114_ + _phi88113_)))) (##structure gx#syntax-binding::t - (gx#make-binding-id__% _key88137_ '#t _phi88131_ _ctx88132_) - _key88137_ - _phi88131_ - _e88138_)) - _rebind?88130_ - _phi88131_ - _ctx88132_))) + (gx#make-binding-id__% _key88119_ '#t _phi88113_ _ctx88114_) + _key88119_ + _phi88113_ + _e88120_)) + _rebind?88112_ + _phi88113_ + _ctx88114_))) (define gx#core-bind-syntax!__0 - (lambda (_id88143_ _e88144_) - (let* ((_rebind?88146_ '#f) - (_phi88148_ (gx#current-expander-phi)) - (_ctx88150_ (gx#current-expander-context))) + (lambda (_id88125_ _e88126_) + (let* ((_rebind?88128_ '#f) + (_phi88130_ (gx#current-expander-phi)) + (_ctx88132_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id88143_ - _e88144_ - _rebind?88146_ - _phi88148_ - _ctx88150_)))) + _id88125_ + _e88126_ + _rebind?88128_ + _phi88130_ + _ctx88132_)))) (define gx#core-bind-syntax!__1 - (lambda (_id88152_ _e88153_ _rebind?88154_) - (let* ((_phi88156_ (gx#current-expander-phi)) - (_ctx88158_ (gx#current-expander-context))) + (lambda (_id88134_ _e88135_ _rebind?88136_) + (let* ((_phi88138_ (gx#current-expander-phi)) + (_ctx88140_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id88152_ - _e88153_ - _rebind?88154_ - _phi88156_ - _ctx88158_)))) + _id88134_ + _e88135_ + _rebind?88136_ + _phi88138_ + _ctx88140_)))) (define gx#core-bind-syntax!__2 - (lambda (_id88160_ _e88161_ _rebind?88162_ _phi88163_) - (let ((_ctx88165_ (gx#current-expander-context))) + (lambda (_id88142_ _e88143_ _rebind?88144_ _phi88145_) + (let ((_ctx88147_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id88160_ - _e88161_ - _rebind?88162_ - _phi88163_ - _ctx88165_)))) + _id88142_ + _e88143_ + _rebind?88144_ + _phi88145_ + _ctx88147_)))) (define gx#core-bind-syntax! - (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_) + (lambda _g91037_ + (let ((_g91036_ (##length _g91037_))) + (cond ((##fx= _g91036_ 2) + (apply (lambda (_id88125_ _e88126_) + (gx#core-bind-syntax!__0 _id88125_ _e88126_)) + _g91037_)) + ((##fx= _g91036_ 3) + (apply (lambda (_id88134_ _e88135_ _rebind?88136_) (gx#core-bind-syntax!__1 - _id88152_ - _e88153_ - _rebind?88154_)) - _g91055_)) - ((##fx= _g91054_ 4) - (apply (lambda (_id88160_ _e88161_ _rebind?88162_ _phi88163_) + _id88134_ + _e88135_ + _rebind?88136_)) + _g91037_)) + ((##fx= _g91036_ 4) + (apply (lambda (_id88142_ _e88143_ _rebind?88144_ _phi88145_) (gx#core-bind-syntax!__2 - _id88160_ - _e88161_ - _rebind?88162_ - _phi88163_)) - _g91055_)) - ((##fx= _g91054_ 5) - (apply (lambda (_id88167_ - _e88168_ - _rebind?88169_ - _phi88170_ - _ctx88171_) + _id88142_ + _e88143_ + _rebind?88144_ + _phi88145_)) + _g91037_)) + ((##fx= _g91036_ 5) + (apply (lambda (_id88149_ + _e88150_ + _rebind?88151_ + _phi88152_ + _ctx88153_) (gx#core-bind-syntax!__% - _id88167_ - _e88168_ - _rebind?88169_ - _phi88170_ - _ctx88171_)) - _g91055_)) + _id88149_ + _e88150_ + _rebind?88151_ + _phi88152_ + _ctx88153_)) + _g91037_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g91055_)))))) + _g91037_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_id88111_ _e88112_ _rebind?88113_) + (lambda (_id88093_ _e88094_ _rebind?88095_) (gx#core-bind-syntax!__% - _id88111_ - _e88112_ - _rebind?88113_ + _id88093_ + _e88094_ + _rebind?88095_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_id88118_ _e88119_) - (let ((_rebind?88121_ '#f)) - (gx#core-bind-root-syntax!__% _id88118_ _e88119_ _rebind?88121_)))) + (lambda (_id88100_ _e88101_) + (let ((_rebind?88103_ '#f)) + (gx#core-bind-root-syntax!__% _id88100_ _e88101_ _rebind?88103_)))) (define gx#core-bind-root-syntax! - (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_) + (lambda _g91039_ + (let ((_g91038_ (##length _g91039_))) + (cond ((##fx= _g91038_ 2) + (apply (lambda (_id88100_ _e88101_) + (gx#core-bind-root-syntax!__0 _id88100_ _e88101_)) + _g91039_)) + ((##fx= _g91038_ 3) + (apply (lambda (_id88105_ _e88106_ _rebind?88107_) (gx#core-bind-root-syntax!__% - _id88123_ - _e88124_ - _rebind?88125_)) - _g91057_)) + _id88105_ + _e88106_ + _rebind?88107_)) + _g91039_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g91057_)))))) + _g91039_)))))) (define gx#core-bind-alias!__% - (lambda (_id88069_ _alias-id88070_ _rebind?88071_ _phi88072_ _ctx88073_) + (lambda (_id88051_ _alias-id88052_ _rebind?88053_ _phi88054_ _ctx88055_) (gx#bind-identifier!__% - _id88069_ - (let ((_key88075_ (gx#core-identifier-key _id88069_))) + _id88051_ + (let ((_key88057_ (gx#core-identifier-key _id88051_))) (##structure gx#alias-binding::t - (gx#make-binding-id__% _key88075_ '#t _phi88072_ _ctx88073_) - _key88075_ - _phi88072_ - _alias-id88070_)) - _rebind?88071_ - _phi88072_ - _ctx88073_))) + (gx#make-binding-id__% _key88057_ '#t _phi88054_ _ctx88055_) + _key88057_ + _phi88054_ + _alias-id88052_)) + _rebind?88053_ + _phi88054_ + _ctx88055_))) (define gx#core-bind-alias!__0 - (lambda (_id88080_ _alias-id88081_) - (let* ((_rebind?88083_ '#f) - (_phi88085_ (gx#current-expander-phi)) - (_ctx88087_ (gx#current-expander-context))) + (lambda (_id88062_ _alias-id88063_) + (let* ((_rebind?88065_ '#f) + (_phi88067_ (gx#current-expander-phi)) + (_ctx88069_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id88080_ - _alias-id88081_ - _rebind?88083_ - _phi88085_ - _ctx88087_)))) + _id88062_ + _alias-id88063_ + _rebind?88065_ + _phi88067_ + _ctx88069_)))) (define gx#core-bind-alias!__1 - (lambda (_id88089_ _alias-id88090_ _rebind?88091_) - (let* ((_phi88093_ (gx#current-expander-phi)) - (_ctx88095_ (gx#current-expander-context))) + (lambda (_id88071_ _alias-id88072_ _rebind?88073_) + (let* ((_phi88075_ (gx#current-expander-phi)) + (_ctx88077_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id88089_ - _alias-id88090_ - _rebind?88091_ - _phi88093_ - _ctx88095_)))) + _id88071_ + _alias-id88072_ + _rebind?88073_ + _phi88075_ + _ctx88077_)))) (define gx#core-bind-alias!__2 - (lambda (_id88097_ _alias-id88098_ _rebind?88099_ _phi88100_) - (let ((_ctx88102_ (gx#current-expander-context))) + (lambda (_id88079_ _alias-id88080_ _rebind?88081_ _phi88082_) + (let ((_ctx88084_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id88097_ - _alias-id88098_ - _rebind?88099_ - _phi88100_ - _ctx88102_)))) + _id88079_ + _alias-id88080_ + _rebind?88081_ + _phi88082_ + _ctx88084_)))) (define gx#core-bind-alias! - (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_) + (lambda _g91041_ + (let ((_g91040_ (##length _g91041_))) + (cond ((##fx= _g91040_ 2) + (apply (lambda (_id88062_ _alias-id88063_) + (gx#core-bind-alias!__0 _id88062_ _alias-id88063_)) + _g91041_)) + ((##fx= _g91040_ 3) + (apply (lambda (_id88071_ _alias-id88072_ _rebind?88073_) (gx#core-bind-alias!__1 - _id88089_ - _alias-id88090_ - _rebind?88091_)) - _g91059_)) - ((##fx= _g91058_ 4) - (apply (lambda (_id88097_ - _alias-id88098_ - _rebind?88099_ - _phi88100_) + _id88071_ + _alias-id88072_ + _rebind?88073_)) + _g91041_)) + ((##fx= _g91040_ 4) + (apply (lambda (_id88079_ + _alias-id88080_ + _rebind?88081_ + _phi88082_) (gx#core-bind-alias!__2 - _id88097_ - _alias-id88098_ - _rebind?88099_ - _phi88100_)) - _g91059_)) - ((##fx= _g91058_ 5) - (apply (lambda (_id88104_ - _alias-id88105_ - _rebind?88106_ - _phi88107_ - _ctx88108_) + _id88079_ + _alias-id88080_ + _rebind?88081_ + _phi88082_)) + _g91041_)) + ((##fx= _g91040_ 5) + (apply (lambda (_id88086_ + _alias-id88087_ + _rebind?88088_ + _phi88089_ + _ctx88090_) (gx#core-bind-alias!__% - _id88104_ - _alias-id88105_ - _rebind?88106_ - _phi88107_ - _ctx88108_)) - _g91059_)) + _id88086_ + _alias-id88087_ + _rebind?88088_ + _phi88089_ + _ctx88090_)) + _g91041_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g91059_)))))) + _g91041_)))))) (define gx#make-binding-id__% - (lambda (_key88026_ _syntax?88027_ _phi88028_ _ctx88029_) - (if (uninterned-symbol? _key88026_) + (lambda (_key88008_ _syntax?88009_ _phi88010_ _ctx88011_) + (if (uninterned-symbol? _key88008_) (gensym 'L) - (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_ + (if (pair? _key88008_) + (gensym (car _key88008_)) + (if (##structure-instance-of? _ctx88011_ 'gx#top-context::t) + (let ((_ns88013_ + (gx#core-context-namespace__% _ctx88011_))) + (if (and (fxzero? _phi88010_) (not _syntax?88009_)) + (if _ns88013_ + (make-symbol__1 _ns88013_ '"#" _key88008_) + _key88008_) + (if _syntax?88009_ (make-symbol__1 - (let ((_$e88033_ _ns88031_)) - (if _$e88033_ _$e88033_ '"")) + (let ((_$e88015_ _ns88013_)) + (if _$e88015_ _$e88015_ '"")) '"[:" - (number->string _phi88028_) + (number->string _phi88010_) '":]#" - _key88026_) + _key88008_) (make-symbol__1 - (let ((_$e88036_ _ns88031_)) - (if _$e88036_ _$e88036_ '"")) + (let ((_$e88018_ _ns88013_)) + (if _$e88018_ _$e88018_ '"")) '"[" - (number->string _phi88028_) + (number->string _phi88010_) '"]#" - _key88026_)))) - (gensym _key88026_)))))) + _key88008_)))) + (gensym _key88008_)))))) (define gx#make-binding-id__0 - (lambda (_key88042_) - (let* ((_syntax?88044_ '#f) - (_phi88046_ (gx#current-expander-phi)) - (_ctx88048_ (gx#current-expander-context))) + (lambda (_key88024_) + (let* ((_syntax?88026_ '#f) + (_phi88028_ (gx#current-expander-phi)) + (_ctx88030_ (gx#current-expander-context))) (gx#make-binding-id__% - _key88042_ - _syntax?88044_ - _phi88046_ - _ctx88048_)))) + _key88024_ + _syntax?88026_ + _phi88028_ + _ctx88030_)))) (define gx#make-binding-id__1 - (lambda (_key88050_ _syntax?88051_) - (let* ((_phi88053_ (gx#current-expander-phi)) - (_ctx88055_ (gx#current-expander-context))) + (lambda (_key88032_ _syntax?88033_) + (let* ((_phi88035_ (gx#current-expander-phi)) + (_ctx88037_ (gx#current-expander-context))) (gx#make-binding-id__% - _key88050_ - _syntax?88051_ - _phi88053_ - _ctx88055_)))) + _key88032_ + _syntax?88033_ + _phi88035_ + _ctx88037_)))) (define gx#make-binding-id__2 - (lambda (_key88057_ _syntax?88058_ _phi88059_) - (let ((_ctx88061_ (gx#current-expander-context))) + (lambda (_key88039_ _syntax?88040_ _phi88041_) + (let ((_ctx88043_ (gx#current-expander-context))) (gx#make-binding-id__% - _key88057_ - _syntax?88058_ - _phi88059_ - _ctx88061_)))) + _key88039_ + _syntax?88040_ + _phi88041_ + _ctx88043_)))) (define gx#make-binding-id - (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_) + (lambda _g91043_ + (let ((_g91042_ (##length _g91043_))) + (cond ((##fx= _g91042_ 1) + (apply (lambda (_key88024_) + (gx#make-binding-id__0 _key88024_)) + _g91043_)) + ((##fx= _g91042_ 2) + (apply (lambda (_key88032_ _syntax?88033_) + (gx#make-binding-id__1 _key88032_ _syntax?88033_)) + _g91043_)) + ((##fx= _g91042_ 3) + (apply (lambda (_key88039_ _syntax?88040_ _phi88041_) (gx#make-binding-id__2 - _key88057_ - _syntax?88058_ - _phi88059_)) - _g91061_)) - ((##fx= _g91060_ 4) - (apply (lambda (_key88063_ - _syntax?88064_ - _phi88065_ - _ctx88066_) + _key88039_ + _syntax?88040_ + _phi88041_)) + _g91043_)) + ((##fx= _g91042_ 4) + (apply (lambda (_key88045_ + _syntax?88046_ + _phi88047_ + _ctx88048_) (gx#make-binding-id__% - _key88063_ - _syntax?88064_ - _phi88065_ - _ctx88066_)) - _g91061_)) + _key88045_ + _syntax?88046_ + _phi88047_ + _ctx88048_)) + _g91043_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g91061_)))))))) + _g91043_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3~0.scm b/src/bootstrap/gerbil/runtime/c3~0.scm index be8688ceb..eb2f15968 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 1710833423) + (define gerbil/runtime/c3::timestamp 1710943496) (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 5f6bbfa4b..2223d1c00 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 1710833423) + (define gerbil/runtime/control::timestamp 1710943496) (begin (define make-promise (lambda (_thunk62139_) diff --git a/src/bootstrap/gerbil/runtime/error~0.scm b/src/bootstrap/gerbil/runtime/error~0.scm index 3d4130619..917f6ff08 100644 --- a/src/bootstrap/gerbil/runtime/error~0.scm +++ b/src/bootstrap/gerbil/runtime/error~0.scm @@ -1,35 +1,35 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/error::timestamp 1710833423) + (define gerbil/runtime/error::timestamp 1710943497) (begin (define Exception::t - (let ((__tmp68201 (list))) + (let ((__tmp68183 (list))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Exception::t 'Exception - __tmp68201 + __tmp68183 '() '() '#f))) (define Exception? (let () (declare (not safe)) (make-class-predicate Exception::t))) (define make-Exception - (lambda _$args68169_ (apply make-instance Exception::t _$args68169_))) + (lambda _$args68151_ (apply make-instance Exception::t _$args68151_))) (define StackTrace::t - (let ((__tmp68202 (list))) + (let ((__tmp68184 (list))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#StackTrace::t 'StackTrace - __tmp68202 + __tmp68184 '(continuation) '() '#f))) (define StackTrace? (let () (declare (not safe)) (make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _$args68166_ (apply make-instance StackTrace::t _$args68166_))) + (lambda _$args68148_ (apply make-instance StackTrace::t _$args68148_))) (define StackTrace-continuation (let () (declare (not safe)) @@ -47,19 +47,19 @@ (declare (not safe)) (make-class-slot-unchecked-mutator StackTrace::t 'continuation))) (define Error::t - (let ((__tmp68203 (list StackTrace::t Exception::t))) + (let ((__tmp68185 (list StackTrace::t Exception::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Error::t 'Error - __tmp68203 + __tmp68185 '(message irritants where) '((transparent: . #t)) ':init!))) (define Error? (let () (declare (not safe)) (make-class-predicate Error::t))) (define make-Error - (lambda _$args68163_ (apply make-instance Error::t _$args68163_))) + (lambda _$args68145_ (apply make-instance Error::t _$args68145_))) (define Error-message (let () (declare (not safe)) @@ -121,20 +121,20 @@ (declare (not safe)) (make-class-slot-unchecked-mutator Error::t 'continuation))) (define RuntimeException::t - (let ((__tmp68204 (list StackTrace::t Exception::t))) + (let ((__tmp68186 (list StackTrace::t Exception::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#RuntimeException::t 'RuntimeException - __tmp68204 + __tmp68186 '(exception) '((transparent: . #t)) '#f))) (define RuntimeException? (let () (declare (not safe)) (make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _$args68160_ - (apply make-instance RuntimeException::t _$args68160_))) + (lambda _$args68142_ + (apply make-instance RuntimeException::t _$args68142_))) (define RuntimeException-exception (let () (declare (not safe)) @@ -170,148 +170,148 @@ (declare (not safe)) (make-class-slot-unchecked-mutator RuntimeException::t 'continuation))) (define gerbil-exception-handler-hook - (lambda (_exn68155_ _continue68156_) - (let ((_exn68158_ + (lambda (_exn68137_ _continue68138_) + (let ((_exn68140_ (let () (declare (not safe)) - (wrap-runtime-exception _exn68155_)))) + (wrap-runtime-exception _exn68137_)))) (declare (not safe)) - (##repl-exception-handler-hook _exn68158_ _continue68156_)))) + (##repl-exception-handler-hook _exn68140_ _continue68138_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_exn68151_) + (lambda (_exn68133_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn68151_)) + (class-instance? StackTrace::t _exn68133_)) (if (let () (declare (not safe)) - (unchecked-slot-ref _exn68151_ 'continuation)) + (unchecked-slot-ref _exn68133_ 'continuation)) '#!void - (let ((__tmp68205 - (lambda (_cont68153_) + (let ((__tmp68187 + (lambda (_cont68135_) (let () (declare (not safe)) (unchecked-slot-set! - _exn68151_ + _exn68133_ 'continuation - _cont68153_))))) + _cont68135_))))) (declare (not safe)) - (##continuation-capture __tmp68205))) + (##continuation-capture __tmp68187))) '#!void) - (let () (declare (not safe)) (##raise _exn68151_)))) + (let () (declare (not safe)) (##raise _exn68133_)))) (define error - (lambda (_message68148_ . _irritants68149_) - (raise (let ((__obj68195 + (lambda (_message68130_ . _irritants68131_) + (raise (let ((__obj68177 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj68195 - _message68148_ + __obj68177 + _message68130_ 'irritants: - _irritants68149_) - __obj68195)))) + _irritants68131_) + __obj68177)))) (define with-exception-handler - (lambda (_handler68141_ _thunk68142_) - (if (let () (declare (not safe)) (procedure? _handler68141_)) + (lambda (_handler68123_ _thunk68124_) + (if (let () (declare (not safe)) (procedure? _handler68123_)) '#!void - (raise (let ((__obj68196 + (raise (let ((__obj68178 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj68196 + __obj68178 '"expected procedure" 'where: 'with-exception-handler 'irritants: - (let () (declare (not safe)) (cons _handler68141_ '()))) - __obj68196))) - (if (let () (declare (not safe)) (procedure? _thunk68142_)) + (let () (declare (not safe)) (cons _handler68123_ '()))) + __obj68178))) + (if (let () (declare (not safe)) (procedure? _thunk68124_)) '#!void - (raise (let ((__obj68197 + (raise (let ((__obj68179 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj68197 + __obj68179 '"expected procedure" 'where: 'with-exception-hander 'irritants: - (let () (declare (not safe)) (cons _thunk68142_ '()))) - __obj68197))) - (let ((__tmp68206 - (lambda (_exn68144_) - (let ((_exn68146_ + (let () (declare (not safe)) (cons _thunk68124_ '()))) + __obj68179))) + (let ((__tmp68188 + (lambda (_exn68126_) + (let ((_exn68128_ (let () (declare (not safe)) - (wrap-runtime-exception _exn68144_)))) - (_handler68141_ _exn68146_))))) + (wrap-runtime-exception _exn68126_)))) + (_handler68123_ _exn68128_))))) (declare (not safe)) - (##with-exception-handler __tmp68206 _thunk68142_)))) + (##with-exception-handler __tmp68188 _thunk68124_)))) (define with-catch - (lambda (_handler68134_ _thunk68135_) - (if (let () (declare (not safe)) (procedure? _handler68134_)) + (lambda (_handler68116_ _thunk68117_) + (if (let () (declare (not safe)) (procedure? _handler68116_)) '#!void - (raise (let ((__obj68198 + (raise (let ((__obj68180 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj68198 + __obj68180 '"expected procedure" 'where: 'with-exception-handler 'irritants: - (let () (declare (not safe)) (cons _handler68134_ '()))) - __obj68198))) - (if (let () (declare (not safe)) (procedure? _thunk68135_)) + (let () (declare (not safe)) (cons _handler68116_ '()))) + __obj68180))) + (if (let () (declare (not safe)) (procedure? _thunk68117_)) '#!void - (raise (let ((__obj68199 + (raise (let ((__obj68181 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj68199 + __obj68181 '"expected procedure" 'where: 'with-exception-hander 'irritants: - (let () (declare (not safe)) (cons _thunk68135_ '()))) - __obj68199))) - (let ((__tmp68207 - (lambda (_cont68137_) + (let () (declare (not safe)) (cons _thunk68117_ '()))) + __obj68181))) + (let ((__tmp68189 + (lambda (_cont68119_) (with-exception-handler - (lambda (_exn68139_) + (lambda (_exn68121_) (let () (declare (not safe)) (##continuation-graft - _cont68137_ - _handler68134_ - _exn68139_))) - _thunk68135_)))) + _cont68119_ + _handler68116_ + _exn68121_))) + _thunk68117_)))) (declare (not safe)) - (##continuation-capture __tmp68207)))) + (##continuation-capture __tmp68189)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_exn68125_) + (lambda (_exn68107_) (if (or (let () (declare (not safe)) - (heap-overflow-exception? _exn68125_)) + (heap-overflow-exception? _exn68107_)) (let () (declare (not safe)) - (stack-overflow-exception? _exn68125_))) - _exn68125_ + (stack-overflow-exception? _exn68107_))) + _exn68107_ (if (let () (declare (not safe)) - (class-instance? Exception::t _exn68125_)) - _exn68125_ - (if (macro-exception? _exn68125_) - (let ((_rte68130_ - (let ((__obj68200 + (class-instance? Exception::t _exn68107_)) + _exn68107_ + (if (macro-exception? _exn68107_) + (let ((_rte68112_ + (let ((__obj68182 (let () (declare (not safe)) (##structure @@ -321,147 +321,147 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68200 - _exn68125_ + __obj68182 + _exn68107_ '2 RuntimeException::t '#f)) - __obj68200))) - (let ((__tmp68208 - (lambda (_cont68132_) - (let ((__tmp68209 + __obj68182))) + (let ((__tmp68190 + (lambda (_cont68114_) + (let ((__tmp68191 (let () (declare (not safe)) - (##continuation-next _cont68132_)))) + (##continuation-next _cont68114_)))) (declare (not safe)) (unchecked-slot-set! - _rte68130_ + _rte68112_ 'continuation - __tmp68209))))) + __tmp68191))))) (declare (not safe)) - (##continuation-capture __tmp68208)) - _rte68130_) - _exn68125_))))) + (##continuation-capture __tmp68190)) + _rte68112_) + _exn68107_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_obj68120_) - (let ((_$e68122_ + (lambda (_obj68102_) + (let ((_$e68104_ (let () (declare (not safe)) - (class-instance? Error::t _obj68120_)))) - (if _$e68122_ - _$e68122_ - (let () (declare (not safe)) (error-exception? _obj68120_)))))) + (class-instance? Error::t _obj68102_)))) + (if _$e68104_ + _$e68104_ + (let () (declare (not safe)) (error-exception? _obj68102_)))))) (define error-message - (lambda (_obj68118_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj68118_)) + (lambda (_obj68100_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj68100_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj68118_ 'message)) - (if (let () (declare (not safe)) (error-exception? _obj68118_)) + (unchecked-slot-ref _obj68100_ 'message)) + (if (let () (declare (not safe)) (error-exception? _obj68100_)) (let () (declare (not safe)) - (error-exception-message _obj68118_)) + (error-exception-message _obj68100_)) '#f)))) (define error-irritants - (lambda (_obj68116_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj68116_)) + (lambda (_obj68098_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj68098_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj68116_ 'irritants)) - (if (let () (declare (not safe)) (error-exception? _obj68116_)) + (unchecked-slot-ref _obj68098_ 'irritants)) + (if (let () (declare (not safe)) (error-exception? _obj68098_)) (let () (declare (not safe)) - (error-exception-parameters _obj68116_)) + (error-exception-parameters _obj68098_)) '#f)))) (define error-trace - (lambda (_obj68114_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj68114_)) + (lambda (_obj68096_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj68096_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj68114_ 'where)) + (unchecked-slot-ref _obj68096_ 'where)) '#f))) (define display-exception__% - (lambda (_e68096_ _port68097_) - (let ((_$e68099_ + (lambda (_e68078_ _port68079_) + (let ((_$e68081_ (let () (declare (not safe)) - (method-ref _e68096_ 'display-exception)))) - (if _$e68099_ - ((lambda (_f68102_) (_f68102_ _e68096_ _port68097_)) _$e68099_) + (method-ref _e68078_ 'display-exception)))) + (if _$e68081_ + ((lambda (_f68084_) (_f68084_ _e68078_ _port68079_)) _$e68081_) (let () (declare (not safe)) - (##default-display-exception _e68096_ _port68097_)))))) + (##default-display-exception _e68078_ _port68079_)))))) (define display-exception__0 - (lambda (_e68107_) - (let ((_port68109_ (current-error-port))) + (lambda (_e68089_) + (let ((_port68091_ (current-error-port))) (declare (not safe)) - (display-exception__% _e68107_ _port68109_)))) + (display-exception__% _e68089_ _port68091_)))) (define display-exception - (lambda _g68211_ - (let ((_g68210_ (let () (declare (not safe)) (##length _g68211_)))) - (cond ((let () (declare (not safe)) (##fx= _g68210_ 1)) - (apply (lambda (_e68107_) + (lambda _g68193_ + (let ((_g68192_ (let () (declare (not safe)) (##length _g68193_)))) + (cond ((let () (declare (not safe)) (##fx= _g68192_ 1)) + (apply (lambda (_e68089_) (let () (declare (not safe)) - (display-exception__0 _e68107_))) - _g68211_)) - ((let () (declare (not safe)) (##fx= _g68210_ 2)) - (apply (lambda (_e68111_ _port68112_) + (display-exception__0 _e68089_))) + _g68193_)) + ((let () (declare (not safe)) (##fx= _g68192_ 2)) + (apply (lambda (_e68093_ _port68094_) (let () (declare (not safe)) - (display-exception__% _e68111_ _port68112_))) - _g68211_)) + (display-exception__% _e68093_ _port68094_))) + _g68193_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g68211_)))))) + _g68193_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_self68085_ _message68086_ . _rest68087_) - (let ((_message68093_ - (if (let () (declare (not safe)) (string? _message68086_)) - _message68086_ + (lambda (_self68067_ _message68068_ . _rest68069_) + (let ((_message68075_ + (if (let () (declare (not safe)) (string? _message68068_)) + _message68068_ (call-with-output-string '"" - (lambda (_g6808868090_) - (display _message68086_ _g6808868090_)))))) + (lambda (_g6807068072_) + (display _message68068_ _g6807068072_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _self68085_ 'message _message68093_)) - (apply class-instance-init! _self68085_ _rest68087_)))) + (unchecked-slot-set! _self68067_ 'message _message68075_)) + (apply class-instance-init! _self68067_ _rest68069_)))) (define Error:::init!::specialize - (lambda (__klass68171 __method-table68172) - (let ((__message68173 - (let ((__slot68174 + (lambda (__klass68153 __method-table68154) + (let ((__message68155 + (let ((__slot68156 (let () (declare (not safe)) - (class-slot-offset __klass68171 'message)))) - (if __slot68174 - __slot68174 + (class-slot-offset __klass68153 'message)))) + (if __slot68156 + __slot68156 (let () (declare (not safe)) (error '"Unknown slot" 'message)))))) - (lambda (_self68085_ _message68086_ . _rest68087_) - (let ((_message68093_ - (if (let () (declare (not safe)) (string? _message68086_)) - _message68086_ + (lambda (_self68067_ _message68068_ . _rest68069_) + (let ((_message68075_ + (if (let () (declare (not safe)) (string? _message68068_)) + _message68068_ (call-with-output-string '"" - (lambda (_g6808868090_) - (display _message68086_ _g6808868090_)))))) + (lambda (_g6807068072_) + (display _message68068_ _g6807068072_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _self68085_ - _message68093_ - __message68173 - __klass68171 + _self68067_ + _message68075_ + __message68155 + __klass68153 '#f)) - (apply class-instance-init! _self68085_ _rest68087_)))))) + (apply class-instance-init! _self68067_ _rest68069_)))))) (let () (declare (not safe)) (bind-specializer! Error:::init! Error:::init!::specialize)) @@ -470,198 +470,198 @@ (bind-method!__% Error::t ':init! Error:::init! '#f)) (define dump-stack-trace? (make-parameter '#f)) (define Error::display-exception - (lambda (_self67943_ _port67944_) - (let ((_tmp-port67946_ (open-output-string)) - (_display-error-newline67947_ - (> (output-port-column _port67944_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port67946_)) - (let ((__tmp68212 + (lambda (_self67925_ _port67926_) + (let ((_tmp-port67928_ (open-output-string)) + (_display-error-newline67929_ + (> (output-port-column _port67926_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port67928_)) + (let ((__tmp68194 (lambda () - (if _display-error-newline67947_ (newline) '#!void) + (if _display-error-newline67929_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e67950_ + (let ((_$e67932_ (let () (declare (not safe)) - (unchecked-slot-ref _self67943_ 'where)))) - (if _$e67950_ (display _$e67950_) (display '"?"))) - (let ((__tmp68213 - (let ((__tmp68214 (object-type _self67943_))) + (unchecked-slot-ref _self67925_ 'where)))) + (if _$e67932_ (display _$e67932_) (display '"?"))) + (let ((__tmp68195 + (let ((__tmp68196 (object-type _self67925_))) (declare (not safe)) - (##type-name __tmp68214)))) + (##type-name __tmp68196)))) (declare (not safe)) - (display* '" [" __tmp68213 '"]: ")) - (let ((__tmp68215 + (display* '" [" __tmp68195 '"]: ")) + (let ((__tmp68197 (let () (declare (not safe)) - (unchecked-slot-ref _self67943_ 'message)))) + (unchecked-slot-ref _self67925_ 'message)))) (declare (not safe)) - (displayln __tmp68215)) - (let ((_irritants67953_ + (displayln __tmp68197)) + (let ((_irritants67935_ (let () (declare (not safe)) - (unchecked-slot-ref _self67943_ 'irritants)))) - (if (let () (declare (not safe)) (null? _irritants67953_)) + (unchecked-slot-ref _self67925_ 'irritants)))) + (if (let () (declare (not safe)) (null? _irritants67935_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj67955_) - (write _obj67955_) + (lambda (_obj67937_) + (write _obj67937_) (write-char '#\space)) - _irritants67953_) + _irritants67935_) (newline)))) (if (and (let () (declare (not safe)) - (class-instance? StackTrace::t _self67943_)) + (class-instance? StackTrace::t _self67925_)) (dump-stack-trace?)) - (let ((_cont6795667958_ + (let ((_cont6793867940_ (let () (declare (not safe)) (unchecked-slot-ref - _self67943_ + _self67925_ 'continuation)))) - (if _cont6795667958_ - (let ((_cont67961_ _cont6795667958_)) + (if _cont6793867940_ + (let ((_cont67943_ _cont6793867940_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) - (display-continuation-backtrace _cont67961_)) + (display-continuation-backtrace _cont67943_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp68212 + __tmp68194 current-output-port - _tmp-port67946_)) - (let ((__tmp68216 (get-output-string _tmp-port67946_))) + _tmp-port67928_)) + (let ((__tmp68198 (get-output-string _tmp-port67928_))) (declare (not safe)) - (##write-string __tmp68216 _port67944_))))) + (##write-string __tmp68198 _port67926_))))) (define Error::display-exception::specialize - (lambda (__klass68175 __method-table68176) - (let ((__message68177 - (let ((__slot68181 + (lambda (__klass68157 __method-table68158) + (let ((__continuation68159 + (let ((__slot68163 (let () (declare (not safe)) - (class-slot-offset __klass68175 'message)))) - (if __slot68181 - __slot68181 + (class-slot-offset __klass68157 'continuation)))) + (if __slot68163 + __slot68163 (let () (declare (not safe)) - (error '"Unknown slot" 'message))))) - (__irritants68178 - (let ((__slot68182 + (error '"Unknown slot" 'continuation))))) + (__message68160 + (let ((__slot68164 (let () (declare (not safe)) - (class-slot-offset __klass68175 'irritants)))) - (if __slot68182 - __slot68182 + (class-slot-offset __klass68157 'message)))) + (if __slot68164 + __slot68164 (let () (declare (not safe)) - (error '"Unknown slot" 'irritants))))) - (__where68179 - (let ((__slot68183 + (error '"Unknown slot" 'message))))) + (__irritants68161 + (let ((__slot68165 (let () (declare (not safe)) - (class-slot-offset __klass68175 'where)))) - (if __slot68183 - __slot68183 + (class-slot-offset __klass68157 'irritants)))) + (if __slot68165 + __slot68165 (let () (declare (not safe)) - (error '"Unknown slot" 'where))))) - (__continuation68180 - (let ((__slot68184 + (error '"Unknown slot" 'irritants))))) + (__where68162 + (let ((__slot68166 (let () (declare (not safe)) - (class-slot-offset __klass68175 'continuation)))) - (if __slot68184 - __slot68184 + (class-slot-offset __klass68157 'where)))) + (if __slot68166 + __slot68166 (let () (declare (not safe)) - (error '"Unknown slot" 'continuation)))))) - (lambda (_self67943_ _port67944_) - (let ((_tmp-port67946_ (open-output-string)) - (_display-error-newline67947_ - (> (output-port-column _port67944_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port67946_)) - (let ((__tmp68217 + (error '"Unknown slot" 'where)))))) + (lambda (_self67925_ _port67926_) + (let ((_tmp-port67928_ (open-output-string)) + (_display-error-newline67929_ + (> (output-port-column _port67926_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port67928_)) + (let ((__tmp68199 (lambda () - (if _display-error-newline67947_ (newline) '#!void) + (if _display-error-newline67929_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e67950_ + (let ((_$e67932_ (let () (declare (not safe)) (##unchecked-structure-ref - _self67943_ - __where68179 - __klass68175 + _self67925_ + __where68162 + __klass68157 '#f)))) - (if _$e67950_ (display _$e67950_) (display '"?"))) - (let ((__tmp68218 - (let ((__tmp68219 (object-type _self67943_))) + (if _$e67932_ (display _$e67932_) (display '"?"))) + (let ((__tmp68200 + (let ((__tmp68201 (object-type _self67925_))) (declare (not safe)) - (##type-name __tmp68219)))) + (##type-name __tmp68201)))) (declare (not safe)) - (display* '" [" __tmp68218 '"]: ")) - (let ((__tmp68220 + (display* '" [" __tmp68200 '"]: ")) + (let ((__tmp68202 (let () (declare (not safe)) (##unchecked-structure-ref - _self67943_ - __message68177 - __klass68175 + _self67925_ + __message68160 + __klass68157 '#f)))) (declare (not safe)) - (displayln __tmp68220)) - (let ((_irritants67953_ + (displayln __tmp68202)) + (let ((_irritants67935_ (let () (declare (not safe)) (##unchecked-structure-ref - _self67943_ - __irritants68178 - __klass68175 + _self67925_ + __irritants68161 + __klass68157 '#f)))) (if (let () (declare (not safe)) - (null? _irritants67953_)) + (null? _irritants67935_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj67955_) - (write _obj67955_) + (lambda (_obj67937_) + (write _obj67937_) (write-char '#\space)) - _irritants67953_) + _irritants67935_) (newline)))) (if (and (let () (declare (not safe)) - (class-instance? StackTrace::t _self67943_)) + (class-instance? StackTrace::t _self67925_)) (dump-stack-trace?)) - (let ((_cont6795667958_ + (let ((_cont6793867940_ (let () (declare (not safe)) (##unchecked-structure-ref - _self67943_ - __continuation68180 - __klass68175 + _self67925_ + __continuation68159 + __klass68157 '#f)))) - (if _cont6795667958_ - (let ((_cont67961_ _cont6795667958_)) + (if _cont6793867940_ + (let ((_cont67943_ _cont6793867940_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _cont67961_)) + _cont67943_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp68217 + __tmp68199 current-output-port - _tmp-port67946_)) - (let ((__tmp68221 (get-output-string _tmp-port67946_))) + _tmp-port67928_)) + (let ((__tmp68203 (get-output-string _tmp-port67928_))) (declare (not safe)) - (##write-string __tmp68221 _port67944_))))))) + (##write-string __tmp68203 _port67926_))))))) (let () (declare (not safe)) (bind-specializer! @@ -675,89 +675,89 @@ Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_self67810_ _port67811_) - (let ((_tmp-port67813_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port67813_)) - (let ((__tmp68222 + (lambda (_self67792_ _port67793_) + (let ((_tmp-port67795_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port67795_)) + (let ((__tmp68204 (let () (declare (not safe)) - (unchecked-slot-ref _self67810_ 'exception)))) + (unchecked-slot-ref _self67792_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp68222 _tmp-port67813_)) + (##default-display-exception __tmp68204 _tmp-port67795_)) (if (dump-stack-trace?) - (let ((_cont6781467816_ + (let ((_cont6779667798_ (let () (declare (not safe)) - (unchecked-slot-ref _self67810_ 'continuation)))) - (if _cont6781467816_ - (let ((_cont67819_ _cont6781467816_)) - (display '"--- continuation backtrace:" _tmp-port67813_) - (newline _tmp-port67813_) + (unchecked-slot-ref _self67792_ 'continuation)))) + (if _cont6779667798_ + (let ((_cont67801_ _cont6779667798_)) + (display '"--- continuation backtrace:" _tmp-port67795_) + (newline _tmp-port67795_) (display-continuation-backtrace - _cont67819_ - _tmp-port67813_)) + _cont67801_ + _tmp-port67795_)) '#f)) '#!void) - (let ((__tmp68223 (get-output-string _tmp-port67813_))) + (let ((__tmp68205 (get-output-string _tmp-port67795_))) (declare (not safe)) - (##write-string __tmp68223 _port67811_))))) + (##write-string __tmp68205 _port67793_))))) (define RuntimeException::display-exception::specialize - (lambda (__klass68185 __method-table68186) - (let ((__exception68187 - (let ((__slot68189 + (lambda (__klass68167 __method-table68168) + (let ((__continuation68169 + (let ((__slot68171 (let () (declare (not safe)) - (class-slot-offset __klass68185 'exception)))) - (if __slot68189 - __slot68189 + (class-slot-offset __klass68167 'continuation)))) + (if __slot68171 + __slot68171 (let () (declare (not safe)) - (error '"Unknown slot" 'exception))))) - (__continuation68188 - (let ((__slot68190 + (error '"Unknown slot" 'continuation))))) + (__exception68170 + (let ((__slot68172 (let () (declare (not safe)) - (class-slot-offset __klass68185 'continuation)))) - (if __slot68190 - __slot68190 + (class-slot-offset __klass68167 'exception)))) + (if __slot68172 + __slot68172 (let () (declare (not safe)) - (error '"Unknown slot" 'continuation)))))) - (lambda (_self67810_ _port67811_) - (let ((_tmp-port67813_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port67813_)) - (let ((__tmp68224 + (error '"Unknown slot" 'exception)))))) + (lambda (_self67792_ _port67793_) + (let ((_tmp-port67795_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port67795_)) + (let ((__tmp68206 (let () (declare (not safe)) (##unchecked-structure-ref - _self67810_ - __exception68187 - __klass68185 + _self67792_ + __exception68170 + __klass68167 '#f)))) (declare (not safe)) - (##default-display-exception __tmp68224 _tmp-port67813_)) + (##default-display-exception __tmp68206 _tmp-port67795_)) (if (dump-stack-trace?) - (let ((_cont6781467816_ + (let ((_cont6779667798_ (let () (declare (not safe)) (##unchecked-structure-ref - _self67810_ - __continuation68188 - __klass68185 + _self67792_ + __continuation68169 + __klass68167 '#f)))) - (if _cont6781467816_ - (let ((_cont67819_ _cont6781467816_)) + (if _cont6779667798_ + (let ((_cont67801_ _cont6779667798_)) (display '"--- continuation backtrace:" - _tmp-port67813_) - (newline _tmp-port67813_) + _tmp-port67795_) + (newline _tmp-port67795_) (display-continuation-backtrace - _cont67819_ - _tmp-port67813_)) + _cont67801_ + _tmp-port67795_)) '#f)) '#!void) - (let ((__tmp68225 (get-output-string _tmp-port67813_))) + (let ((__tmp68207 (get-output-string _tmp-port67795_))) (declare (not safe)) - (##write-string __tmp68225 _port67811_))))))) + (##write-string __tmp68207 _port67793_))))))) (let () (declare (not safe)) (bind-specializer! @@ -771,4092 +771,4092 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_port67682_) - (if (macro-character-port? _port67682_) - (let ((_old-width67684_ - (macro-character-port-output-width _port67682_))) + (lambda (_port67664_) + (if (macro-character-port? _port67664_) + (let ((_old-width67666_ + (macro-character-port-output-width _port67664_))) (macro-character-port-output-width-set! - _port67682_ - (lambda (_port67686_) '256)) - _old-width67684_) + _port67664_ + (lambda (_port67668_) '256)) + _old-width67666_) '#!void))) (define reset-port-width! - (lambda (_port67679_ _old-width67680_) - (if (macro-character-port? _port67679_) + (lambda (_port67661_ _old-width67662_) + (if (macro-character-port? _port67661_) (macro-character-port-output-width-set! - _port67679_ - _old-width67680_) + _port67661_ + _old-width67662_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_e67677_) + (lambda (_e67659_) (macro-readenv-filepos (let () (declare (not safe)) - (datum-parsing-exception-readenv _e67677_))))) + (datum-parsing-exception-readenv _e67659_))))) (define abandoned-mutex-exception? - (lambda (_exn67671_) + (lambda (_exn67653_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67671_)) - (let ((_e67674_ + (class-instance? RuntimeException::t _exn67653_)) + (let ((_e67656_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67671_ 'exception)))) - (macro-abandoned-mutex-exception? _e67674_)) - (macro-abandoned-mutex-exception? _exn67671_)))) + (unchecked-slot-ref _exn67653_ 'exception)))) + (macro-abandoned-mutex-exception? _e67656_)) + (macro-abandoned-mutex-exception? _exn67653_)))) (define cfun-conversion-exception? - (lambda (_exn67667_) + (lambda (_exn67649_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67667_)) - (let ((_e67669_ + (class-instance? RuntimeException::t _exn67649_)) + (let ((_e67651_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67667_ 'exception)))) - (macro-cfun-conversion-exception? _e67669_)) - (macro-cfun-conversion-exception? _exn67667_)))) + (unchecked-slot-ref _exn67649_ 'exception)))) + (macro-cfun-conversion-exception? _e67651_)) + (macro-cfun-conversion-exception? _exn67649_)))) (define cfun-conversion-exception-arguments - (lambda (_exn67663_) + (lambda (_exn67645_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67663_)) - (let ((_e67665_ + (class-instance? RuntimeException::t _exn67645_)) + (let ((_e67647_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67663_ 'exception)))) - (if (macro-cfun-conversion-exception? _e67665_) - (macro-cfun-conversion-exception-arguments _e67665_) - (let ((__tmp68228 - (let ((__tmp68229 + (unchecked-slot-ref _exn67645_ 'exception)))) + (if (macro-cfun-conversion-exception? _e67647_) + (macro-cfun-conversion-exception-arguments _e67647_) + (let ((__tmp68210 + (let ((__tmp68211 (let () (declare (not safe)) - (cons _e67665_ '())))) + (cons _e67647_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp68229)))) + __tmp68211)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp68228)))) - (if (macro-cfun-conversion-exception? _exn67663_) - (macro-cfun-conversion-exception-arguments _exn67663_) - (let ((__tmp68226 - (let ((__tmp68227 + __tmp68210)))) + (if (macro-cfun-conversion-exception? _exn67645_) + (macro-cfun-conversion-exception-arguments _exn67645_) + (let ((__tmp68208 + (let ((__tmp68209 (let () (declare (not safe)) - (cons _exn67663_ '())))) + (cons _exn67645_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp68227)))) + __tmp68209)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp68226)))))) + __tmp68208)))))) (define cfun-conversion-exception-code - (lambda (_exn67659_) + (lambda (_exn67641_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67659_)) - (let ((_e67661_ + (class-instance? RuntimeException::t _exn67641_)) + (let ((_e67643_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67659_ 'exception)))) - (if (macro-cfun-conversion-exception? _e67661_) - (macro-cfun-conversion-exception-code _e67661_) - (let ((__tmp68232 - (let ((__tmp68233 + (unchecked-slot-ref _exn67641_ 'exception)))) + (if (macro-cfun-conversion-exception? _e67643_) + (macro-cfun-conversion-exception-code _e67643_) + (let ((__tmp68214 + (let ((__tmp68215 (let () (declare (not safe)) - (cons _e67661_ '())))) + (cons _e67643_ '())))) (declare (not safe)) - (cons 'cfun-conversion-exception-code __tmp68233)))) + (cons 'cfun-conversion-exception-code __tmp68215)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp68232)))) - (if (macro-cfun-conversion-exception? _exn67659_) - (macro-cfun-conversion-exception-code _exn67659_) - (let ((__tmp68230 - (let ((__tmp68231 + __tmp68214)))) + (if (macro-cfun-conversion-exception? _exn67641_) + (macro-cfun-conversion-exception-code _exn67641_) + (let ((__tmp68212 + (let ((__tmp68213 (let () (declare (not safe)) - (cons _exn67659_ '())))) + (cons _exn67641_ '())))) (declare (not safe)) - (cons 'cfun-conversion-exception-code __tmp68231)))) + (cons 'cfun-conversion-exception-code __tmp68213)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp68230)))))) + __tmp68212)))))) (define cfun-conversion-exception-message - (lambda (_exn67655_) + (lambda (_exn67637_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67655_)) - (let ((_e67657_ + (class-instance? RuntimeException::t _exn67637_)) + (let ((_e67639_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67655_ 'exception)))) - (if (macro-cfun-conversion-exception? _e67657_) - (macro-cfun-conversion-exception-message _e67657_) - (let ((__tmp68236 - (let ((__tmp68237 + (unchecked-slot-ref _exn67637_ 'exception)))) + (if (macro-cfun-conversion-exception? _e67639_) + (macro-cfun-conversion-exception-message _e67639_) + (let ((__tmp68218 + (let ((__tmp68219 (let () (declare (not safe)) - (cons _e67657_ '())))) + (cons _e67639_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp68237)))) + __tmp68219)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp68236)))) - (if (macro-cfun-conversion-exception? _exn67655_) - (macro-cfun-conversion-exception-message _exn67655_) - (let ((__tmp68234 - (let ((__tmp68235 + __tmp68218)))) + (if (macro-cfun-conversion-exception? _exn67637_) + (macro-cfun-conversion-exception-message _exn67637_) + (let ((__tmp68216 + (let ((__tmp68217 (let () (declare (not safe)) - (cons _exn67655_ '())))) + (cons _exn67637_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp68235)))) + __tmp68217)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp68234)))))) + __tmp68216)))))) (define cfun-conversion-exception-procedure - (lambda (_exn67649_) + (lambda (_exn67631_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67649_)) - (let ((_e67652_ + (class-instance? RuntimeException::t _exn67631_)) + (let ((_e67634_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67649_ 'exception)))) - (if (macro-cfun-conversion-exception? _e67652_) - (macro-cfun-conversion-exception-procedure _e67652_) - (let ((__tmp68240 - (let ((__tmp68241 + (unchecked-slot-ref _exn67631_ 'exception)))) + (if (macro-cfun-conversion-exception? _e67634_) + (macro-cfun-conversion-exception-procedure _e67634_) + (let ((__tmp68222 + (let ((__tmp68223 (let () (declare (not safe)) - (cons _e67652_ '())))) + (cons _e67634_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp68241)))) + __tmp68223)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp68240)))) - (if (macro-cfun-conversion-exception? _exn67649_) - (macro-cfun-conversion-exception-procedure _exn67649_) - (let ((__tmp68238 - (let ((__tmp68239 + __tmp68222)))) + (if (macro-cfun-conversion-exception? _exn67631_) + (macro-cfun-conversion-exception-procedure _exn67631_) + (let ((__tmp68220 + (let ((__tmp68221 (let () (declare (not safe)) - (cons _exn67649_ '())))) + (cons _exn67631_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp68239)))) + __tmp68221)))) (declare (not safe)) (error '"not an instance" 'cfun-conversion-exception? - __tmp68238)))))) + __tmp68220)))))) (define datum-parsing-exception? - (lambda (_exn67645_) + (lambda (_exn67627_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67645_)) - (let ((_e67647_ + (class-instance? RuntimeException::t _exn67627_)) + (let ((_e67629_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67645_ 'exception)))) - (macro-datum-parsing-exception? _e67647_)) - (macro-datum-parsing-exception? _exn67645_)))) + (unchecked-slot-ref _exn67627_ 'exception)))) + (macro-datum-parsing-exception? _e67629_)) + (macro-datum-parsing-exception? _exn67627_)))) (define datum-parsing-exception-kind - (lambda (_exn67641_) + (lambda (_exn67623_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67641_)) - (let ((_e67643_ + (class-instance? RuntimeException::t _exn67623_)) + (let ((_e67625_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67641_ 'exception)))) - (if (macro-datum-parsing-exception? _e67643_) - (macro-datum-parsing-exception-kind _e67643_) - (let ((__tmp68244 - (let ((__tmp68245 + (unchecked-slot-ref _exn67623_ 'exception)))) + (if (macro-datum-parsing-exception? _e67625_) + (macro-datum-parsing-exception-kind _e67625_) + (let ((__tmp68226 + (let ((__tmp68227 (let () (declare (not safe)) - (cons _e67643_ '())))) + (cons _e67625_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp68245)))) + (cons 'datum-parsing-exception-kind __tmp68227)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp68244)))) - (if (macro-datum-parsing-exception? _exn67641_) - (macro-datum-parsing-exception-kind _exn67641_) - (let ((__tmp68242 - (let ((__tmp68243 + __tmp68226)))) + (if (macro-datum-parsing-exception? _exn67623_) + (macro-datum-parsing-exception-kind _exn67623_) + (let ((__tmp68224 + (let ((__tmp68225 (let () (declare (not safe)) - (cons _exn67641_ '())))) + (cons _exn67623_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp68243)))) + (cons 'datum-parsing-exception-kind __tmp68225)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp68242)))))) + __tmp68224)))))) (define datum-parsing-exception-parameters - (lambda (_exn67637_) + (lambda (_exn67619_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67637_)) - (let ((_e67639_ + (class-instance? RuntimeException::t _exn67619_)) + (let ((_e67621_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67637_ 'exception)))) - (if (macro-datum-parsing-exception? _e67639_) - (macro-datum-parsing-exception-parameters _e67639_) - (let ((__tmp68248 - (let ((__tmp68249 + (unchecked-slot-ref _exn67619_ 'exception)))) + (if (macro-datum-parsing-exception? _e67621_) + (macro-datum-parsing-exception-parameters _e67621_) + (let ((__tmp68230 + (let ((__tmp68231 (let () (declare (not safe)) - (cons _e67639_ '())))) + (cons _e67621_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp68249)))) + __tmp68231)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp68248)))) - (if (macro-datum-parsing-exception? _exn67637_) - (macro-datum-parsing-exception-parameters _exn67637_) - (let ((__tmp68246 - (let ((__tmp68247 + __tmp68230)))) + (if (macro-datum-parsing-exception? _exn67619_) + (macro-datum-parsing-exception-parameters _exn67619_) + (let ((__tmp68228 + (let ((__tmp68229 (let () (declare (not safe)) - (cons _exn67637_ '())))) + (cons _exn67619_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp68247)))) + __tmp68229)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp68246)))))) + __tmp68228)))))) (define datum-parsing-exception-readenv - (lambda (_exn67631_) + (lambda (_exn67613_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67631_)) - (let ((_e67634_ + (class-instance? RuntimeException::t _exn67613_)) + (let ((_e67616_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67631_ 'exception)))) - (if (macro-datum-parsing-exception? _e67634_) - (macro-datum-parsing-exception-readenv _e67634_) - (let ((__tmp68252 - (let ((__tmp68253 + (unchecked-slot-ref _exn67613_ 'exception)))) + (if (macro-datum-parsing-exception? _e67616_) + (macro-datum-parsing-exception-readenv _e67616_) + (let ((__tmp68234 + (let ((__tmp68235 (let () (declare (not safe)) - (cons _e67634_ '())))) + (cons _e67616_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp68253)))) + __tmp68235)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp68252)))) - (if (macro-datum-parsing-exception? _exn67631_) - (macro-datum-parsing-exception-readenv _exn67631_) - (let ((__tmp68250 - (let ((__tmp68251 + __tmp68234)))) + (if (macro-datum-parsing-exception? _exn67613_) + (macro-datum-parsing-exception-readenv _exn67613_) + (let ((__tmp68232 + (let ((__tmp68233 (let () (declare (not safe)) - (cons _exn67631_ '())))) + (cons _exn67613_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-readenv __tmp68251)))) + (cons 'datum-parsing-exception-readenv __tmp68233)))) (declare (not safe)) (error '"not an instance" 'datum-parsing-exception? - __tmp68250)))))) + __tmp68232)))))) (define deadlock-exception? - (lambda (_exn67625_) + (lambda (_exn67607_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67625_)) - (let ((_e67628_ + (class-instance? RuntimeException::t _exn67607_)) + (let ((_e67610_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67625_ 'exception)))) - (macro-deadlock-exception? _e67628_)) - (macro-deadlock-exception? _exn67625_)))) + (unchecked-slot-ref _exn67607_ 'exception)))) + (macro-deadlock-exception? _e67610_)) + (macro-deadlock-exception? _exn67607_)))) (define divide-by-zero-exception? - (lambda (_exn67621_) + (lambda (_exn67603_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67621_)) - (let ((_e67623_ + (class-instance? RuntimeException::t _exn67603_)) + (let ((_e67605_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67621_ 'exception)))) - (macro-divide-by-zero-exception? _e67623_)) - (macro-divide-by-zero-exception? _exn67621_)))) + (unchecked-slot-ref _exn67603_ 'exception)))) + (macro-divide-by-zero-exception? _e67605_)) + (macro-divide-by-zero-exception? _exn67603_)))) (define divide-by-zero-exception-arguments - (lambda (_exn67617_) + (lambda (_exn67599_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67617_)) - (let ((_e67619_ + (class-instance? RuntimeException::t _exn67599_)) + (let ((_e67601_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67617_ 'exception)))) - (if (macro-divide-by-zero-exception? _e67619_) - (macro-divide-by-zero-exception-arguments _e67619_) - (let ((__tmp68256 - (let ((__tmp68257 + (unchecked-slot-ref _exn67599_ 'exception)))) + (if (macro-divide-by-zero-exception? _e67601_) + (macro-divide-by-zero-exception-arguments _e67601_) + (let ((__tmp68238 + (let ((__tmp68239 (let () (declare (not safe)) - (cons _e67619_ '())))) + (cons _e67601_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp68257)))) + __tmp68239)))) (declare (not safe)) (error '"not an instance" 'divide-by-zero-exception? - __tmp68256)))) - (if (macro-divide-by-zero-exception? _exn67617_) - (macro-divide-by-zero-exception-arguments _exn67617_) - (let ((__tmp68254 - (let ((__tmp68255 + __tmp68238)))) + (if (macro-divide-by-zero-exception? _exn67599_) + (macro-divide-by-zero-exception-arguments _exn67599_) + (let ((__tmp68236 + (let ((__tmp68237 (let () (declare (not safe)) - (cons _exn67617_ '())))) + (cons _exn67599_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp68255)))) + __tmp68237)))) (declare (not safe)) (error '"not an instance" 'divide-by-zero-exception? - __tmp68254)))))) + __tmp68236)))))) (define divide-by-zero-exception-procedure - (lambda (_exn67611_) + (lambda (_exn67593_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67611_)) - (let ((_e67614_ + (class-instance? RuntimeException::t _exn67593_)) + (let ((_e67596_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67611_ 'exception)))) - (if (macro-divide-by-zero-exception? _e67614_) - (macro-divide-by-zero-exception-procedure _e67614_) - (let ((__tmp68260 - (let ((__tmp68261 + (unchecked-slot-ref _exn67593_ 'exception)))) + (if (macro-divide-by-zero-exception? _e67596_) + (macro-divide-by-zero-exception-procedure _e67596_) + (let ((__tmp68242 + (let ((__tmp68243 (let () (declare (not safe)) - (cons _e67614_ '())))) + (cons _e67596_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp68261)))) + __tmp68243)))) (declare (not safe)) (error '"not an instance" 'divide-by-zero-exception? - __tmp68260)))) - (if (macro-divide-by-zero-exception? _exn67611_) - (macro-divide-by-zero-exception-procedure _exn67611_) - (let ((__tmp68258 - (let ((__tmp68259 + __tmp68242)))) + (if (macro-divide-by-zero-exception? _exn67593_) + (macro-divide-by-zero-exception-procedure _exn67593_) + (let ((__tmp68240 + (let ((__tmp68241 (let () (declare (not safe)) - (cons _exn67611_ '())))) + (cons _exn67593_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp68259)))) + __tmp68241)))) (declare (not safe)) (error '"not an instance" 'divide-by-zero-exception? - __tmp68258)))))) + __tmp68240)))))) (define error-exception? - (lambda (_exn67607_) + (lambda (_exn67589_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67607_)) - (let ((_e67609_ + (class-instance? RuntimeException::t _exn67589_)) + (let ((_e67591_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67607_ 'exception)))) - (macro-error-exception? _e67609_)) - (macro-error-exception? _exn67607_)))) + (unchecked-slot-ref _exn67589_ 'exception)))) + (macro-error-exception? _e67591_)) + (macro-error-exception? _exn67589_)))) (define error-exception-message - (lambda (_exn67603_) + (lambda (_exn67585_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67603_)) - (let ((_e67605_ + (class-instance? RuntimeException::t _exn67585_)) + (let ((_e67587_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67603_ 'exception)))) - (if (macro-error-exception? _e67605_) - (macro-error-exception-message _e67605_) - (let ((__tmp68264 - (let ((__tmp68265 + (unchecked-slot-ref _exn67585_ 'exception)))) + (if (macro-error-exception? _e67587_) + (macro-error-exception-message _e67587_) + (let ((__tmp68246 + (let ((__tmp68247 (let () (declare (not safe)) - (cons _e67605_ '())))) + (cons _e67587_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp68265)))) + (cons 'error-exception-message __tmp68247)))) (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp68264)))) - (if (macro-error-exception? _exn67603_) - (macro-error-exception-message _exn67603_) - (let ((__tmp68262 - (let ((__tmp68263 + (error '"not an instance" 'error-exception? __tmp68246)))) + (if (macro-error-exception? _exn67585_) + (macro-error-exception-message _exn67585_) + (let ((__tmp68244 + (let ((__tmp68245 (let () (declare (not safe)) - (cons _exn67603_ '())))) + (cons _exn67585_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp68263)))) + (cons 'error-exception-message __tmp68245)))) (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp68262)))))) + (error '"not an instance" 'error-exception? __tmp68244)))))) (define error-exception-parameters - (lambda (_exn67597_) + (lambda (_exn67579_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67597_)) - (let ((_e67600_ + (class-instance? RuntimeException::t _exn67579_)) + (let ((_e67582_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67597_ 'exception)))) - (if (macro-error-exception? _e67600_) - (macro-error-exception-parameters _e67600_) - (let ((__tmp68268 - (let ((__tmp68269 + (unchecked-slot-ref _exn67579_ 'exception)))) + (if (macro-error-exception? _e67582_) + (macro-error-exception-parameters _e67582_) + (let ((__tmp68250 + (let ((__tmp68251 (let () (declare (not safe)) - (cons _e67600_ '())))) + (cons _e67582_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp68269)))) + (cons 'error-exception-parameters __tmp68251)))) (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp68268)))) - (if (macro-error-exception? _exn67597_) - (macro-error-exception-parameters _exn67597_) - (let ((__tmp68266 - (let ((__tmp68267 + (error '"not an instance" 'error-exception? __tmp68250)))) + (if (macro-error-exception? _exn67579_) + (macro-error-exception-parameters _exn67579_) + (let ((__tmp68248 + (let ((__tmp68249 (let () (declare (not safe)) - (cons _exn67597_ '())))) + (cons _exn67579_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp68267)))) + (cons 'error-exception-parameters __tmp68249)))) (declare (not safe)) - (error '"not an instance" 'error-exception? __tmp68266)))))) + (error '"not an instance" 'error-exception? __tmp68248)))))) (define expression-parsing-exception? - (lambda (_exn67593_) + (lambda (_exn67575_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67593_)) - (let ((_e67595_ + (class-instance? RuntimeException::t _exn67575_)) + (let ((_e67577_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67593_ 'exception)))) - (macro-expression-parsing-exception? _e67595_)) - (macro-expression-parsing-exception? _exn67593_)))) + (unchecked-slot-ref _exn67575_ 'exception)))) + (macro-expression-parsing-exception? _e67577_)) + (macro-expression-parsing-exception? _exn67575_)))) (define expression-parsing-exception-kind - (lambda (_exn67589_) + (lambda (_exn67571_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67589_)) - (let ((_e67591_ + (class-instance? RuntimeException::t _exn67571_)) + (let ((_e67573_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67589_ 'exception)))) - (if (macro-expression-parsing-exception? _e67591_) - (macro-expression-parsing-exception-kind _e67591_) - (let ((__tmp68272 - (let ((__tmp68273 + (unchecked-slot-ref _exn67571_ 'exception)))) + (if (macro-expression-parsing-exception? _e67573_) + (macro-expression-parsing-exception-kind _e67573_) + (let ((__tmp68254 + (let ((__tmp68255 (let () (declare (not safe)) - (cons _e67591_ '())))) + (cons _e67573_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp68273)))) + __tmp68255)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp68272)))) - (if (macro-expression-parsing-exception? _exn67589_) - (macro-expression-parsing-exception-kind _exn67589_) - (let ((__tmp68270 - (let ((__tmp68271 + __tmp68254)))) + (if (macro-expression-parsing-exception? _exn67571_) + (macro-expression-parsing-exception-kind _exn67571_) + (let ((__tmp68252 + (let ((__tmp68253 (let () (declare (not safe)) - (cons _exn67589_ '())))) + (cons _exn67571_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp68271)))) + __tmp68253)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp68270)))))) + __tmp68252)))))) (define expression-parsing-exception-parameters - (lambda (_exn67585_) + (lambda (_exn67567_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67585_)) - (let ((_e67587_ + (class-instance? RuntimeException::t _exn67567_)) + (let ((_e67569_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67585_ 'exception)))) - (if (macro-expression-parsing-exception? _e67587_) - (macro-expression-parsing-exception-parameters _e67587_) - (let ((__tmp68276 - (let ((__tmp68277 + (unchecked-slot-ref _exn67567_ 'exception)))) + (if (macro-expression-parsing-exception? _e67569_) + (macro-expression-parsing-exception-parameters _e67569_) + (let ((__tmp68258 + (let ((__tmp68259 (let () (declare (not safe)) - (cons _e67587_ '())))) + (cons _e67569_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp68277)))) + __tmp68259)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp68276)))) - (if (macro-expression-parsing-exception? _exn67585_) - (macro-expression-parsing-exception-parameters _exn67585_) - (let ((__tmp68274 - (let ((__tmp68275 + __tmp68258)))) + (if (macro-expression-parsing-exception? _exn67567_) + (macro-expression-parsing-exception-parameters _exn67567_) + (let ((__tmp68256 + (let ((__tmp68257 (let () (declare (not safe)) - (cons _exn67585_ '())))) + (cons _exn67567_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp68275)))) + __tmp68257)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp68274)))))) + __tmp68256)))))) (define expression-parsing-exception-source - (lambda (_exn67579_) + (lambda (_exn67561_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67579_)) - (let ((_e67582_ + (class-instance? RuntimeException::t _exn67561_)) + (let ((_e67564_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67579_ 'exception)))) - (if (macro-expression-parsing-exception? _e67582_) - (macro-expression-parsing-exception-source _e67582_) - (let ((__tmp68280 - (let ((__tmp68281 + (unchecked-slot-ref _exn67561_ 'exception)))) + (if (macro-expression-parsing-exception? _e67564_) + (macro-expression-parsing-exception-source _e67564_) + (let ((__tmp68262 + (let ((__tmp68263 (let () (declare (not safe)) - (cons _e67582_ '())))) + (cons _e67564_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp68281)))) + __tmp68263)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp68280)))) - (if (macro-expression-parsing-exception? _exn67579_) - (macro-expression-parsing-exception-source _exn67579_) - (let ((__tmp68278 - (let ((__tmp68279 + __tmp68262)))) + (if (macro-expression-parsing-exception? _exn67561_) + (macro-expression-parsing-exception-source _exn67561_) + (let ((__tmp68260 + (let ((__tmp68261 (let () (declare (not safe)) - (cons _exn67579_ '())))) + (cons _exn67561_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp68279)))) + __tmp68261)))) (declare (not safe)) (error '"not an instance" 'expression-parsing-exception? - __tmp68278)))))) + __tmp68260)))))) (define file-exists-exception? - (lambda (_exn67575_) + (lambda (_exn67557_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67575_)) - (let ((_e67577_ + (class-instance? RuntimeException::t _exn67557_)) + (let ((_e67559_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67575_ 'exception)))) - (macro-file-exists-exception? _e67577_)) - (macro-file-exists-exception? _exn67575_)))) + (unchecked-slot-ref _exn67557_ 'exception)))) + (macro-file-exists-exception? _e67559_)) + (macro-file-exists-exception? _exn67557_)))) (define file-exists-exception-arguments - (lambda (_exn67571_) + (lambda (_exn67553_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67571_)) - (let ((_e67573_ + (class-instance? RuntimeException::t _exn67553_)) + (let ((_e67555_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67571_ 'exception)))) - (if (macro-file-exists-exception? _e67573_) - (macro-file-exists-exception-arguments _e67573_) - (let ((__tmp68284 - (let ((__tmp68285 + (unchecked-slot-ref _exn67553_ 'exception)))) + (if (macro-file-exists-exception? _e67555_) + (macro-file-exists-exception-arguments _e67555_) + (let ((__tmp68266 + (let ((__tmp68267 (let () (declare (not safe)) - (cons _e67573_ '())))) + (cons _e67555_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp68285)))) + __tmp68267)))) (declare (not safe)) (error '"not an instance" 'file-exists-exception? - __tmp68284)))) - (if (macro-file-exists-exception? _exn67571_) - (macro-file-exists-exception-arguments _exn67571_) - (let ((__tmp68282 - (let ((__tmp68283 + __tmp68266)))) + (if (macro-file-exists-exception? _exn67553_) + (macro-file-exists-exception-arguments _exn67553_) + (let ((__tmp68264 + (let ((__tmp68265 (let () (declare (not safe)) - (cons _exn67571_ '())))) + (cons _exn67553_ '())))) (declare (not safe)) - (cons 'file-exists-exception-arguments __tmp68283)))) + (cons 'file-exists-exception-arguments __tmp68265)))) (declare (not safe)) (error '"not an instance" 'file-exists-exception? - __tmp68282)))))) + __tmp68264)))))) (define file-exists-exception-procedure - (lambda (_exn67565_) + (lambda (_exn67547_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67565_)) - (let ((_e67568_ + (class-instance? RuntimeException::t _exn67547_)) + (let ((_e67550_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67565_ 'exception)))) - (if (macro-file-exists-exception? _e67568_) - (macro-file-exists-exception-procedure _e67568_) - (let ((__tmp68288 - (let ((__tmp68289 + (unchecked-slot-ref _exn67547_ 'exception)))) + (if (macro-file-exists-exception? _e67550_) + (macro-file-exists-exception-procedure _e67550_) + (let ((__tmp68270 + (let ((__tmp68271 (let () (declare (not safe)) - (cons _e67568_ '())))) + (cons _e67550_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp68289)))) + __tmp68271)))) (declare (not safe)) (error '"not an instance" 'file-exists-exception? - __tmp68288)))) - (if (macro-file-exists-exception? _exn67565_) - (macro-file-exists-exception-procedure _exn67565_) - (let ((__tmp68286 - (let ((__tmp68287 + __tmp68270)))) + (if (macro-file-exists-exception? _exn67547_) + (macro-file-exists-exception-procedure _exn67547_) + (let ((__tmp68268 + (let ((__tmp68269 (let () (declare (not safe)) - (cons _exn67565_ '())))) + (cons _exn67547_ '())))) (declare (not safe)) - (cons 'file-exists-exception-procedure __tmp68287)))) + (cons 'file-exists-exception-procedure __tmp68269)))) (declare (not safe)) (error '"not an instance" 'file-exists-exception? - __tmp68286)))))) + __tmp68268)))))) (define fixnum-overflow-exception? - (lambda (_exn67561_) + (lambda (_exn67543_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67561_)) - (let ((_e67563_ + (class-instance? RuntimeException::t _exn67543_)) + (let ((_e67545_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67561_ 'exception)))) - (macro-fixnum-overflow-exception? _e67563_)) - (macro-fixnum-overflow-exception? _exn67561_)))) + (unchecked-slot-ref _exn67543_ 'exception)))) + (macro-fixnum-overflow-exception? _e67545_)) + (macro-fixnum-overflow-exception? _exn67543_)))) (define fixnum-overflow-exception-arguments - (lambda (_exn67557_) + (lambda (_exn67539_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67557_)) - (let ((_e67559_ + (class-instance? RuntimeException::t _exn67539_)) + (let ((_e67541_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67557_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e67559_) - (macro-fixnum-overflow-exception-arguments _e67559_) - (let ((__tmp68292 - (let ((__tmp68293 + (unchecked-slot-ref _exn67539_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e67541_) + (macro-fixnum-overflow-exception-arguments _e67541_) + (let ((__tmp68274 + (let ((__tmp68275 (let () (declare (not safe)) - (cons _e67559_ '())))) + (cons _e67541_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp68293)))) + __tmp68275)))) (declare (not safe)) (error '"not an instance" 'fixnum-overflow-exception? - __tmp68292)))) - (if (macro-fixnum-overflow-exception? _exn67557_) - (macro-fixnum-overflow-exception-arguments _exn67557_) - (let ((__tmp68290 - (let ((__tmp68291 + __tmp68274)))) + (if (macro-fixnum-overflow-exception? _exn67539_) + (macro-fixnum-overflow-exception-arguments _exn67539_) + (let ((__tmp68272 + (let ((__tmp68273 (let () (declare (not safe)) - (cons _exn67557_ '())))) + (cons _exn67539_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp68291)))) + __tmp68273)))) (declare (not safe)) (error '"not an instance" 'fixnum-overflow-exception? - __tmp68290)))))) + __tmp68272)))))) (define fixnum-overflow-exception-procedure - (lambda (_exn67551_) + (lambda (_exn67533_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67551_)) - (let ((_e67554_ + (class-instance? RuntimeException::t _exn67533_)) + (let ((_e67536_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67551_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e67554_) - (macro-fixnum-overflow-exception-procedure _e67554_) - (let ((__tmp68296 - (let ((__tmp68297 + (unchecked-slot-ref _exn67533_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e67536_) + (macro-fixnum-overflow-exception-procedure _e67536_) + (let ((__tmp68278 + (let ((__tmp68279 (let () (declare (not safe)) - (cons _e67554_ '())))) + (cons _e67536_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp68297)))) + __tmp68279)))) (declare (not safe)) (error '"not an instance" 'fixnum-overflow-exception? - __tmp68296)))) - (if (macro-fixnum-overflow-exception? _exn67551_) - (macro-fixnum-overflow-exception-procedure _exn67551_) - (let ((__tmp68294 - (let ((__tmp68295 + __tmp68278)))) + (if (macro-fixnum-overflow-exception? _exn67533_) + (macro-fixnum-overflow-exception-procedure _exn67533_) + (let ((__tmp68276 + (let ((__tmp68277 (let () (declare (not safe)) - (cons _exn67551_ '())))) + (cons _exn67533_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp68295)))) + __tmp68277)))) (declare (not safe)) (error '"not an instance" 'fixnum-overflow-exception? - __tmp68294)))))) + __tmp68276)))))) (define heap-overflow-exception? - (lambda (_exn67545_) + (lambda (_exn67527_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67545_)) - (let ((_e67548_ + (class-instance? RuntimeException::t _exn67527_)) + (let ((_e67530_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67545_ 'exception)))) - (macro-heap-overflow-exception? _e67548_)) - (macro-heap-overflow-exception? _exn67545_)))) + (unchecked-slot-ref _exn67527_ 'exception)))) + (macro-heap-overflow-exception? _e67530_)) + (macro-heap-overflow-exception? _exn67527_)))) (define inactive-thread-exception? - (lambda (_exn67541_) + (lambda (_exn67523_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67541_)) - (let ((_e67543_ + (class-instance? RuntimeException::t _exn67523_)) + (let ((_e67525_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67541_ 'exception)))) - (macro-inactive-thread-exception? _e67543_)) - (macro-inactive-thread-exception? _exn67541_)))) + (unchecked-slot-ref _exn67523_ 'exception)))) + (macro-inactive-thread-exception? _e67525_)) + (macro-inactive-thread-exception? _exn67523_)))) (define inactive-thread-exception-arguments - (lambda (_exn67537_) + (lambda (_exn67519_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67537_)) - (let ((_e67539_ + (class-instance? RuntimeException::t _exn67519_)) + (let ((_e67521_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67537_ 'exception)))) - (if (macro-inactive-thread-exception? _e67539_) - (macro-inactive-thread-exception-arguments _e67539_) - (let ((__tmp68300 - (let ((__tmp68301 + (unchecked-slot-ref _exn67519_ 'exception)))) + (if (macro-inactive-thread-exception? _e67521_) + (macro-inactive-thread-exception-arguments _e67521_) + (let ((__tmp68282 + (let ((__tmp68283 (let () (declare (not safe)) - (cons _e67539_ '())))) + (cons _e67521_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp68301)))) + __tmp68283)))) (declare (not safe)) (error '"not an instance" 'inactive-thread-exception? - __tmp68300)))) - (if (macro-inactive-thread-exception? _exn67537_) - (macro-inactive-thread-exception-arguments _exn67537_) - (let ((__tmp68298 - (let ((__tmp68299 + __tmp68282)))) + (if (macro-inactive-thread-exception? _exn67519_) + (macro-inactive-thread-exception-arguments _exn67519_) + (let ((__tmp68280 + (let ((__tmp68281 (let () (declare (not safe)) - (cons _exn67537_ '())))) + (cons _exn67519_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp68299)))) + __tmp68281)))) (declare (not safe)) (error '"not an instance" 'inactive-thread-exception? - __tmp68298)))))) + __tmp68280)))))) (define inactive-thread-exception-procedure - (lambda (_exn67531_) + (lambda (_exn67513_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67531_)) - (let ((_e67534_ + (class-instance? RuntimeException::t _exn67513_)) + (let ((_e67516_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67531_ 'exception)))) - (if (macro-inactive-thread-exception? _e67534_) - (macro-inactive-thread-exception-procedure _e67534_) - (let ((__tmp68304 - (let ((__tmp68305 + (unchecked-slot-ref _exn67513_ 'exception)))) + (if (macro-inactive-thread-exception? _e67516_) + (macro-inactive-thread-exception-procedure _e67516_) + (let ((__tmp68286 + (let ((__tmp68287 (let () (declare (not safe)) - (cons _e67534_ '())))) + (cons _e67516_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp68305)))) + __tmp68287)))) (declare (not safe)) (error '"not an instance" 'inactive-thread-exception? - __tmp68304)))) - (if (macro-inactive-thread-exception? _exn67531_) - (macro-inactive-thread-exception-procedure _exn67531_) - (let ((__tmp68302 - (let ((__tmp68303 + __tmp68286)))) + (if (macro-inactive-thread-exception? _exn67513_) + (macro-inactive-thread-exception-procedure _exn67513_) + (let ((__tmp68284 + (let ((__tmp68285 (let () (declare (not safe)) - (cons _exn67531_ '())))) + (cons _exn67513_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp68303)))) + __tmp68285)))) (declare (not safe)) (error '"not an instance" 'inactive-thread-exception? - __tmp68302)))))) + __tmp68284)))))) (define initialized-thread-exception? - (lambda (_exn67527_) + (lambda (_exn67509_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67527_)) - (let ((_e67529_ + (class-instance? RuntimeException::t _exn67509_)) + (let ((_e67511_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67527_ 'exception)))) - (macro-initialized-thread-exception? _e67529_)) - (macro-initialized-thread-exception? _exn67527_)))) + (unchecked-slot-ref _exn67509_ 'exception)))) + (macro-initialized-thread-exception? _e67511_)) + (macro-initialized-thread-exception? _exn67509_)))) (define initialized-thread-exception-arguments - (lambda (_exn67523_) + (lambda (_exn67505_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67523_)) - (let ((_e67525_ + (class-instance? RuntimeException::t _exn67505_)) + (let ((_e67507_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67523_ 'exception)))) - (if (macro-initialized-thread-exception? _e67525_) - (macro-initialized-thread-exception-arguments _e67525_) - (let ((__tmp68308 - (let ((__tmp68309 + (unchecked-slot-ref _exn67505_ 'exception)))) + (if (macro-initialized-thread-exception? _e67507_) + (macro-initialized-thread-exception-arguments _e67507_) + (let ((__tmp68290 + (let ((__tmp68291 (let () (declare (not safe)) - (cons _e67525_ '())))) + (cons _e67507_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp68309)))) + __tmp68291)))) (declare (not safe)) (error '"not an instance" 'initialized-thread-exception? - __tmp68308)))) - (if (macro-initialized-thread-exception? _exn67523_) - (macro-initialized-thread-exception-arguments _exn67523_) - (let ((__tmp68306 - (let ((__tmp68307 + __tmp68290)))) + (if (macro-initialized-thread-exception? _exn67505_) + (macro-initialized-thread-exception-arguments _exn67505_) + (let ((__tmp68288 + (let ((__tmp68289 (let () (declare (not safe)) - (cons _exn67523_ '())))) + (cons _exn67505_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp68307)))) + __tmp68289)))) (declare (not safe)) (error '"not an instance" 'initialized-thread-exception? - __tmp68306)))))) + __tmp68288)))))) (define initialized-thread-exception-procedure - (lambda (_exn67517_) + (lambda (_exn67499_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67517_)) - (let ((_e67520_ + (class-instance? RuntimeException::t _exn67499_)) + (let ((_e67502_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67517_ 'exception)))) - (if (macro-initialized-thread-exception? _e67520_) - (macro-initialized-thread-exception-procedure _e67520_) - (let ((__tmp68312 - (let ((__tmp68313 + (unchecked-slot-ref _exn67499_ 'exception)))) + (if (macro-initialized-thread-exception? _e67502_) + (macro-initialized-thread-exception-procedure _e67502_) + (let ((__tmp68294 + (let ((__tmp68295 (let () (declare (not safe)) - (cons _e67520_ '())))) + (cons _e67502_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp68313)))) + __tmp68295)))) (declare (not safe)) (error '"not an instance" 'initialized-thread-exception? - __tmp68312)))) - (if (macro-initialized-thread-exception? _exn67517_) - (macro-initialized-thread-exception-procedure _exn67517_) - (let ((__tmp68310 - (let ((__tmp68311 + __tmp68294)))) + (if (macro-initialized-thread-exception? _exn67499_) + (macro-initialized-thread-exception-procedure _exn67499_) + (let ((__tmp68292 + (let ((__tmp68293 (let () (declare (not safe)) - (cons _exn67517_ '())))) + (cons _exn67499_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp68311)))) + __tmp68293)))) (declare (not safe)) (error '"not an instance" 'initialized-thread-exception? - __tmp68310)))))) + __tmp68292)))))) (define invalid-hash-number-exception? - (lambda (_exn67513_) + (lambda (_exn67495_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67513_)) - (let ((_e67515_ + (class-instance? RuntimeException::t _exn67495_)) + (let ((_e67497_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67513_ 'exception)))) - (macro-invalid-hash-number-exception? _e67515_)) - (macro-invalid-hash-number-exception? _exn67513_)))) + (unchecked-slot-ref _exn67495_ 'exception)))) + (macro-invalid-hash-number-exception? _e67497_)) + (macro-invalid-hash-number-exception? _exn67495_)))) (define invalid-hash-number-exception-arguments - (lambda (_exn67509_) + (lambda (_exn67491_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67509_)) - (let ((_e67511_ + (class-instance? RuntimeException::t _exn67491_)) + (let ((_e67493_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67509_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e67511_) - (macro-invalid-hash-number-exception-arguments _e67511_) - (let ((__tmp68316 - (let ((__tmp68317 + (unchecked-slot-ref _exn67491_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e67493_) + (macro-invalid-hash-number-exception-arguments _e67493_) + (let ((__tmp68298 + (let ((__tmp68299 (let () (declare (not safe)) - (cons _e67511_ '())))) + (cons _e67493_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp68317)))) + __tmp68299)))) (declare (not safe)) (error '"not an instance" 'invalid-hash-number-exception? - __tmp68316)))) - (if (macro-invalid-hash-number-exception? _exn67509_) - (macro-invalid-hash-number-exception-arguments _exn67509_) - (let ((__tmp68314 - (let ((__tmp68315 + __tmp68298)))) + (if (macro-invalid-hash-number-exception? _exn67491_) + (macro-invalid-hash-number-exception-arguments _exn67491_) + (let ((__tmp68296 + (let ((__tmp68297 (let () (declare (not safe)) - (cons _exn67509_ '())))) + (cons _exn67491_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp68315)))) + __tmp68297)))) (declare (not safe)) (error '"not an instance" 'invalid-hash-number-exception? - __tmp68314)))))) + __tmp68296)))))) (define invalid-hash-number-exception-procedure - (lambda (_exn67503_) + (lambda (_exn67485_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67503_)) - (let ((_e67506_ + (class-instance? RuntimeException::t _exn67485_)) + (let ((_e67488_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67503_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e67506_) - (macro-invalid-hash-number-exception-procedure _e67506_) - (let ((__tmp68320 - (let ((__tmp68321 + (unchecked-slot-ref _exn67485_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e67488_) + (macro-invalid-hash-number-exception-procedure _e67488_) + (let ((__tmp68302 + (let ((__tmp68303 (let () (declare (not safe)) - (cons _e67506_ '())))) + (cons _e67488_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp68321)))) + __tmp68303)))) (declare (not safe)) (error '"not an instance" 'invalid-hash-number-exception? - __tmp68320)))) - (if (macro-invalid-hash-number-exception? _exn67503_) - (macro-invalid-hash-number-exception-procedure _exn67503_) - (let ((__tmp68318 - (let ((__tmp68319 + __tmp68302)))) + (if (macro-invalid-hash-number-exception? _exn67485_) + (macro-invalid-hash-number-exception-procedure _exn67485_) + (let ((__tmp68300 + (let ((__tmp68301 (let () (declare (not safe)) - (cons _exn67503_ '())))) + (cons _exn67485_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp68319)))) + __tmp68301)))) (declare (not safe)) (error '"not an instance" 'invalid-hash-number-exception? - __tmp68318)))))) + __tmp68300)))))) (define invalid-utf8-encoding-exception? - (lambda (_exn67499_) + (lambda (_exn67481_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67499_)) - (let ((_e67501_ + (class-instance? RuntimeException::t _exn67481_)) + (let ((_e67483_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67499_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _e67501_)) - (macro-invalid-utf8-encoding-exception? _exn67499_)))) + (unchecked-slot-ref _exn67481_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _e67483_)) + (macro-invalid-utf8-encoding-exception? _exn67481_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_exn67495_) + (lambda (_exn67477_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67495_)) - (let ((_e67497_ + (class-instance? RuntimeException::t _exn67477_)) + (let ((_e67479_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67495_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e67497_) - (macro-invalid-utf8-encoding-exception-arguments _e67497_) - (let ((__tmp68324 - (let ((__tmp68325 + (unchecked-slot-ref _exn67477_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e67479_) + (macro-invalid-utf8-encoding-exception-arguments _e67479_) + (let ((__tmp68306 + (let ((__tmp68307 (let () (declare (not safe)) - (cons _e67497_ '())))) + (cons _e67479_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp68325)))) + __tmp68307)))) (declare (not safe)) (error '"not an instance" 'invalid-utf8-encoding-exception? - __tmp68324)))) - (if (macro-invalid-utf8-encoding-exception? _exn67495_) - (macro-invalid-utf8-encoding-exception-arguments _exn67495_) - (let ((__tmp68322 - (let ((__tmp68323 + __tmp68306)))) + (if (macro-invalid-utf8-encoding-exception? _exn67477_) + (macro-invalid-utf8-encoding-exception-arguments _exn67477_) + (let ((__tmp68304 + (let ((__tmp68305 (let () (declare (not safe)) - (cons _exn67495_ '())))) + (cons _exn67477_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp68323)))) + __tmp68305)))) (declare (not safe)) (error '"not an instance" 'invalid-utf8-encoding-exception? - __tmp68322)))))) + __tmp68304)))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_exn67489_) + (lambda (_exn67471_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67489_)) - (let ((_e67492_ + (class-instance? RuntimeException::t _exn67471_)) + (let ((_e67474_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67489_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e67492_) - (macro-invalid-utf8-encoding-exception-procedure _e67492_) - (let ((__tmp68328 - (let ((__tmp68329 + (unchecked-slot-ref _exn67471_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e67474_) + (macro-invalid-utf8-encoding-exception-procedure _e67474_) + (let ((__tmp68310 + (let ((__tmp68311 (let () (declare (not safe)) - (cons _e67492_ '())))) + (cons _e67474_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp68329)))) + __tmp68311)))) (declare (not safe)) (error '"not an instance" 'invalid-utf8-encoding-exception? - __tmp68328)))) - (if (macro-invalid-utf8-encoding-exception? _exn67489_) - (macro-invalid-utf8-encoding-exception-procedure _exn67489_) - (let ((__tmp68326 - (let ((__tmp68327 + __tmp68310)))) + (if (macro-invalid-utf8-encoding-exception? _exn67471_) + (macro-invalid-utf8-encoding-exception-procedure _exn67471_) + (let ((__tmp68308 + (let ((__tmp68309 (let () (declare (not safe)) - (cons _exn67489_ '())))) + (cons _exn67471_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp68327)))) + __tmp68309)))) (declare (not safe)) (error '"not an instance" 'invalid-utf8-encoding-exception? - __tmp68326)))))) + __tmp68308)))))) (define join-timeout-exception? - (lambda (_exn67485_) + (lambda (_exn67467_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67485_)) - (let ((_e67487_ + (class-instance? RuntimeException::t _exn67467_)) + (let ((_e67469_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67485_ 'exception)))) - (macro-join-timeout-exception? _e67487_)) - (macro-join-timeout-exception? _exn67485_)))) + (unchecked-slot-ref _exn67467_ 'exception)))) + (macro-join-timeout-exception? _e67469_)) + (macro-join-timeout-exception? _exn67467_)))) (define join-timeout-exception-arguments - (lambda (_exn67481_) + (lambda (_exn67463_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67481_)) - (let ((_e67483_ + (class-instance? RuntimeException::t _exn67463_)) + (let ((_e67465_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67481_ 'exception)))) - (if (macro-join-timeout-exception? _e67483_) - (macro-join-timeout-exception-arguments _e67483_) - (let ((__tmp68332 - (let ((__tmp68333 + (unchecked-slot-ref _exn67463_ 'exception)))) + (if (macro-join-timeout-exception? _e67465_) + (macro-join-timeout-exception-arguments _e67465_) + (let ((__tmp68314 + (let ((__tmp68315 (let () (declare (not safe)) - (cons _e67483_ '())))) + (cons _e67465_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp68333)))) + __tmp68315)))) (declare (not safe)) (error '"not an instance" 'join-timeout-exception? - __tmp68332)))) - (if (macro-join-timeout-exception? _exn67481_) - (macro-join-timeout-exception-arguments _exn67481_) - (let ((__tmp68330 - (let ((__tmp68331 + __tmp68314)))) + (if (macro-join-timeout-exception? _exn67463_) + (macro-join-timeout-exception-arguments _exn67463_) + (let ((__tmp68312 + (let ((__tmp68313 (let () (declare (not safe)) - (cons _exn67481_ '())))) + (cons _exn67463_ '())))) (declare (not safe)) - (cons 'join-timeout-exception-arguments __tmp68331)))) + (cons 'join-timeout-exception-arguments __tmp68313)))) (declare (not safe)) (error '"not an instance" 'join-timeout-exception? - __tmp68330)))))) + __tmp68312)))))) (define join-timeout-exception-procedure - (lambda (_exn67475_) + (lambda (_exn67457_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67475_)) - (let ((_e67478_ + (class-instance? RuntimeException::t _exn67457_)) + (let ((_e67460_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67475_ 'exception)))) - (if (macro-join-timeout-exception? _e67478_) - (macro-join-timeout-exception-procedure _e67478_) - (let ((__tmp68336 - (let ((__tmp68337 + (unchecked-slot-ref _exn67457_ 'exception)))) + (if (macro-join-timeout-exception? _e67460_) + (macro-join-timeout-exception-procedure _e67460_) + (let ((__tmp68318 + (let ((__tmp68319 (let () (declare (not safe)) - (cons _e67478_ '())))) + (cons _e67460_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp68337)))) + __tmp68319)))) (declare (not safe)) (error '"not an instance" 'join-timeout-exception? - __tmp68336)))) - (if (macro-join-timeout-exception? _exn67475_) - (macro-join-timeout-exception-procedure _exn67475_) - (let ((__tmp68334 - (let ((__tmp68335 + __tmp68318)))) + (if (macro-join-timeout-exception? _exn67457_) + (macro-join-timeout-exception-procedure _exn67457_) + (let ((__tmp68316 + (let ((__tmp68317 (let () (declare (not safe)) - (cons _exn67475_ '())))) + (cons _exn67457_ '())))) (declare (not safe)) - (cons 'join-timeout-exception-procedure __tmp68335)))) + (cons 'join-timeout-exception-procedure __tmp68317)))) (declare (not safe)) (error '"not an instance" 'join-timeout-exception? - __tmp68334)))))) + __tmp68316)))))) (define keyword-expected-exception? - (lambda (_exn67471_) + (lambda (_exn67453_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67471_)) - (let ((_e67473_ + (class-instance? RuntimeException::t _exn67453_)) + (let ((_e67455_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67471_ 'exception)))) - (macro-keyword-expected-exception? _e67473_)) - (macro-keyword-expected-exception? _exn67471_)))) + (unchecked-slot-ref _exn67453_ 'exception)))) + (macro-keyword-expected-exception? _e67455_)) + (macro-keyword-expected-exception? _exn67453_)))) (define keyword-expected-exception-arguments - (lambda (_exn67467_) + (lambda (_exn67449_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67467_)) - (let ((_e67469_ + (class-instance? RuntimeException::t _exn67449_)) + (let ((_e67451_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67467_ 'exception)))) - (if (macro-keyword-expected-exception? _e67469_) - (macro-keyword-expected-exception-arguments _e67469_) - (let ((__tmp68340 - (let ((__tmp68341 + (unchecked-slot-ref _exn67449_ 'exception)))) + (if (macro-keyword-expected-exception? _e67451_) + (macro-keyword-expected-exception-arguments _e67451_) + (let ((__tmp68322 + (let ((__tmp68323 (let () (declare (not safe)) - (cons _e67469_ '())))) + (cons _e67451_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp68341)))) + __tmp68323)))) (declare (not safe)) (error '"not an instance" 'keyword-expected-exception? - __tmp68340)))) - (if (macro-keyword-expected-exception? _exn67467_) - (macro-keyword-expected-exception-arguments _exn67467_) - (let ((__tmp68338 - (let ((__tmp68339 + __tmp68322)))) + (if (macro-keyword-expected-exception? _exn67449_) + (macro-keyword-expected-exception-arguments _exn67449_) + (let ((__tmp68320 + (let ((__tmp68321 (let () (declare (not safe)) - (cons _exn67467_ '())))) + (cons _exn67449_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp68339)))) + __tmp68321)))) (declare (not safe)) (error '"not an instance" 'keyword-expected-exception? - __tmp68338)))))) + __tmp68320)))))) (define keyword-expected-exception-procedure - (lambda (_exn67461_) + (lambda (_exn67443_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67461_)) - (let ((_e67464_ + (class-instance? RuntimeException::t _exn67443_)) + (let ((_e67446_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67461_ 'exception)))) - (if (macro-keyword-expected-exception? _e67464_) - (macro-keyword-expected-exception-procedure _e67464_) - (let ((__tmp68344 - (let ((__tmp68345 + (unchecked-slot-ref _exn67443_ 'exception)))) + (if (macro-keyword-expected-exception? _e67446_) + (macro-keyword-expected-exception-procedure _e67446_) + (let ((__tmp68326 + (let ((__tmp68327 (let () (declare (not safe)) - (cons _e67464_ '())))) + (cons _e67446_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp68345)))) + __tmp68327)))) (declare (not safe)) (error '"not an instance" 'keyword-expected-exception? - __tmp68344)))) - (if (macro-keyword-expected-exception? _exn67461_) - (macro-keyword-expected-exception-procedure _exn67461_) - (let ((__tmp68342 - (let ((__tmp68343 + __tmp68326)))) + (if (macro-keyword-expected-exception? _exn67443_) + (macro-keyword-expected-exception-procedure _exn67443_) + (let ((__tmp68324 + (let ((__tmp68325 (let () (declare (not safe)) - (cons _exn67461_ '())))) + (cons _exn67443_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp68343)))) + __tmp68325)))) (declare (not safe)) (error '"not an instance" 'keyword-expected-exception? - __tmp68342)))))) + __tmp68324)))))) (define length-mismatch-exception? - (lambda (_exn67457_) + (lambda (_exn67439_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67457_)) - (let ((_e67459_ + (class-instance? RuntimeException::t _exn67439_)) + (let ((_e67441_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67457_ 'exception)))) - (macro-length-mismatch-exception? _e67459_)) - (macro-length-mismatch-exception? _exn67457_)))) + (unchecked-slot-ref _exn67439_ 'exception)))) + (macro-length-mismatch-exception? _e67441_)) + (macro-length-mismatch-exception? _exn67439_)))) (define length-mismatch-exception-arg-id - (lambda (_exn67453_) + (lambda (_exn67435_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67453_)) - (let ((_e67455_ + (class-instance? RuntimeException::t _exn67435_)) + (let ((_e67437_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67453_ 'exception)))) - (if (macro-length-mismatch-exception? _e67455_) - (macro-length-mismatch-exception-arg-id _e67455_) - (let ((__tmp68348 - (let ((__tmp68349 + (unchecked-slot-ref _exn67435_ 'exception)))) + (if (macro-length-mismatch-exception? _e67437_) + (macro-length-mismatch-exception-arg-id _e67437_) + (let ((__tmp68330 + (let ((__tmp68331 (let () (declare (not safe)) - (cons _e67455_ '())))) + (cons _e67437_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp68349)))) + __tmp68331)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp68348)))) - (if (macro-length-mismatch-exception? _exn67453_) - (macro-length-mismatch-exception-arg-id _exn67453_) - (let ((__tmp68346 - (let ((__tmp68347 + __tmp68330)))) + (if (macro-length-mismatch-exception? _exn67435_) + (macro-length-mismatch-exception-arg-id _exn67435_) + (let ((__tmp68328 + (let ((__tmp68329 (let () (declare (not safe)) - (cons _exn67453_ '())))) + (cons _exn67435_ '())))) (declare (not safe)) - (cons 'length-mismatch-exception-arg-id __tmp68347)))) + (cons 'length-mismatch-exception-arg-id __tmp68329)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp68346)))))) + __tmp68328)))))) (define length-mismatch-exception-arguments - (lambda (_exn67449_) + (lambda (_exn67431_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67449_)) - (let ((_e67451_ + (class-instance? RuntimeException::t _exn67431_)) + (let ((_e67433_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67449_ 'exception)))) - (if (macro-length-mismatch-exception? _e67451_) - (macro-length-mismatch-exception-arguments _e67451_) - (let ((__tmp68352 - (let ((__tmp68353 + (unchecked-slot-ref _exn67431_ 'exception)))) + (if (macro-length-mismatch-exception? _e67433_) + (macro-length-mismatch-exception-arguments _e67433_) + (let ((__tmp68334 + (let ((__tmp68335 (let () (declare (not safe)) - (cons _e67451_ '())))) + (cons _e67433_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp68353)))) + __tmp68335)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp68352)))) - (if (macro-length-mismatch-exception? _exn67449_) - (macro-length-mismatch-exception-arguments _exn67449_) - (let ((__tmp68350 - (let ((__tmp68351 + __tmp68334)))) + (if (macro-length-mismatch-exception? _exn67431_) + (macro-length-mismatch-exception-arguments _exn67431_) + (let ((__tmp68332 + (let ((__tmp68333 (let () (declare (not safe)) - (cons _exn67449_ '())))) + (cons _exn67431_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp68351)))) + __tmp68333)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp68350)))))) + __tmp68332)))))) (define length-mismatch-exception-procedure - (lambda (_exn67443_) + (lambda (_exn67425_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67443_)) - (let ((_e67446_ + (class-instance? RuntimeException::t _exn67425_)) + (let ((_e67428_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67443_ 'exception)))) - (if (macro-length-mismatch-exception? _e67446_) - (macro-length-mismatch-exception-procedure _e67446_) - (let ((__tmp68356 - (let ((__tmp68357 + (unchecked-slot-ref _exn67425_ 'exception)))) + (if (macro-length-mismatch-exception? _e67428_) + (macro-length-mismatch-exception-procedure _e67428_) + (let ((__tmp68338 + (let ((__tmp68339 (let () (declare (not safe)) - (cons _e67446_ '())))) + (cons _e67428_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp68357)))) + __tmp68339)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp68356)))) - (if (macro-length-mismatch-exception? _exn67443_) - (macro-length-mismatch-exception-procedure _exn67443_) - (let ((__tmp68354 - (let ((__tmp68355 + __tmp68338)))) + (if (macro-length-mismatch-exception? _exn67425_) + (macro-length-mismatch-exception-procedure _exn67425_) + (let ((__tmp68336 + (let ((__tmp68337 (let () (declare (not safe)) - (cons _exn67443_ '())))) + (cons _exn67425_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp68355)))) + __tmp68337)))) (declare (not safe)) (error '"not an instance" 'length-mismatch-exception? - __tmp68354)))))) + __tmp68336)))))) (define mailbox-receive-timeout-exception? - (lambda (_exn67439_) + (lambda (_exn67421_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67439_)) - (let ((_e67441_ + (class-instance? RuntimeException::t _exn67421_)) + (let ((_e67423_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67439_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _e67441_)) - (macro-mailbox-receive-timeout-exception? _exn67439_)))) + (unchecked-slot-ref _exn67421_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _e67423_)) + (macro-mailbox-receive-timeout-exception? _exn67421_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_exn67435_) + (lambda (_exn67417_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67435_)) - (let ((_e67437_ + (class-instance? RuntimeException::t _exn67417_)) + (let ((_e67419_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67435_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e67437_) - (macro-mailbox-receive-timeout-exception-arguments _e67437_) - (let ((__tmp68360 - (let ((__tmp68361 + (unchecked-slot-ref _exn67417_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e67419_) + (macro-mailbox-receive-timeout-exception-arguments _e67419_) + (let ((__tmp68342 + (let ((__tmp68343 (let () (declare (not safe)) - (cons _e67437_ '())))) + (cons _e67419_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp68361)))) + __tmp68343)))) (declare (not safe)) (error '"not an instance" 'mailbox-receive-timeout-exception? - __tmp68360)))) - (if (macro-mailbox-receive-timeout-exception? _exn67435_) - (macro-mailbox-receive-timeout-exception-arguments _exn67435_) - (let ((__tmp68358 - (let ((__tmp68359 + __tmp68342)))) + (if (macro-mailbox-receive-timeout-exception? _exn67417_) + (macro-mailbox-receive-timeout-exception-arguments _exn67417_) + (let ((__tmp68340 + (let ((__tmp68341 (let () (declare (not safe)) - (cons _exn67435_ '())))) + (cons _exn67417_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp68359)))) + __tmp68341)))) (declare (not safe)) (error '"not an instance" 'mailbox-receive-timeout-exception? - __tmp68358)))))) + __tmp68340)))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_exn67429_) + (lambda (_exn67411_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67429_)) - (let ((_e67432_ + (class-instance? RuntimeException::t _exn67411_)) + (let ((_e67414_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67429_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e67432_) - (macro-mailbox-receive-timeout-exception-procedure _e67432_) - (let ((__tmp68364 - (let ((__tmp68365 + (unchecked-slot-ref _exn67411_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e67414_) + (macro-mailbox-receive-timeout-exception-procedure _e67414_) + (let ((__tmp68346 + (let ((__tmp68347 (let () (declare (not safe)) - (cons _e67432_ '())))) + (cons _e67414_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp68365)))) + __tmp68347)))) (declare (not safe)) (error '"not an instance" 'mailbox-receive-timeout-exception? - __tmp68364)))) - (if (macro-mailbox-receive-timeout-exception? _exn67429_) - (macro-mailbox-receive-timeout-exception-procedure _exn67429_) - (let ((__tmp68362 - (let ((__tmp68363 + __tmp68346)))) + (if (macro-mailbox-receive-timeout-exception? _exn67411_) + (macro-mailbox-receive-timeout-exception-procedure _exn67411_) + (let ((__tmp68344 + (let ((__tmp68345 (let () (declare (not safe)) - (cons _exn67429_ '())))) + (cons _exn67411_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp68363)))) + __tmp68345)))) (declare (not safe)) (error '"not an instance" 'mailbox-receive-timeout-exception? - __tmp68362)))))) + __tmp68344)))))) (define module-not-found-exception? - (lambda (_exn67425_) + (lambda (_exn67407_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67425_)) - (let ((_e67427_ + (class-instance? RuntimeException::t _exn67407_)) + (let ((_e67409_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67425_ 'exception)))) - (macro-module-not-found-exception? _e67427_)) - (macro-module-not-found-exception? _exn67425_)))) + (unchecked-slot-ref _exn67407_ 'exception)))) + (macro-module-not-found-exception? _e67409_)) + (macro-module-not-found-exception? _exn67407_)))) (define module-not-found-exception-arguments - (lambda (_exn67421_) + (lambda (_exn67403_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67421_)) - (let ((_e67423_ + (class-instance? RuntimeException::t _exn67403_)) + (let ((_e67405_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67421_ 'exception)))) - (if (macro-module-not-found-exception? _e67423_) - (macro-module-not-found-exception-arguments _e67423_) - (let ((__tmp68368 - (let ((__tmp68369 + (unchecked-slot-ref _exn67403_ 'exception)))) + (if (macro-module-not-found-exception? _e67405_) + (macro-module-not-found-exception-arguments _e67405_) + (let ((__tmp68350 + (let ((__tmp68351 (let () (declare (not safe)) - (cons _e67423_ '())))) + (cons _e67405_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp68369)))) + __tmp68351)))) (declare (not safe)) (error '"not an instance" 'module-not-found-exception? - __tmp68368)))) - (if (macro-module-not-found-exception? _exn67421_) - (macro-module-not-found-exception-arguments _exn67421_) - (let ((__tmp68366 - (let ((__tmp68367 + __tmp68350)))) + (if (macro-module-not-found-exception? _exn67403_) + (macro-module-not-found-exception-arguments _exn67403_) + (let ((__tmp68348 + (let ((__tmp68349 (let () (declare (not safe)) - (cons _exn67421_ '())))) + (cons _exn67403_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp68367)))) + __tmp68349)))) (declare (not safe)) (error '"not an instance" 'module-not-found-exception? - __tmp68366)))))) + __tmp68348)))))) (define module-not-found-exception-procedure - (lambda (_exn67415_) + (lambda (_exn67397_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67415_)) - (let ((_e67418_ + (class-instance? RuntimeException::t _exn67397_)) + (let ((_e67400_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67415_ 'exception)))) - (if (macro-module-not-found-exception? _e67418_) - (macro-module-not-found-exception-procedure _e67418_) - (let ((__tmp68372 - (let ((__tmp68373 + (unchecked-slot-ref _exn67397_ 'exception)))) + (if (macro-module-not-found-exception? _e67400_) + (macro-module-not-found-exception-procedure _e67400_) + (let ((__tmp68354 + (let ((__tmp68355 (let () (declare (not safe)) - (cons _e67418_ '())))) + (cons _e67400_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp68373)))) + __tmp68355)))) (declare (not safe)) (error '"not an instance" 'module-not-found-exception? - __tmp68372)))) - (if (macro-module-not-found-exception? _exn67415_) - (macro-module-not-found-exception-procedure _exn67415_) - (let ((__tmp68370 - (let ((__tmp68371 + __tmp68354)))) + (if (macro-module-not-found-exception? _exn67397_) + (macro-module-not-found-exception-procedure _exn67397_) + (let ((__tmp68352 + (let ((__tmp68353 (let () (declare (not safe)) - (cons _exn67415_ '())))) + (cons _exn67397_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp68371)))) + __tmp68353)))) (declare (not safe)) (error '"not an instance" 'module-not-found-exception? - __tmp68370)))))) + __tmp68352)))))) (define multiple-c-return-exception? - (lambda (_exn67409_) + (lambda (_exn67391_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67409_)) - (let ((_e67412_ + (class-instance? RuntimeException::t _exn67391_)) + (let ((_e67394_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67409_ 'exception)))) - (macro-multiple-c-return-exception? _e67412_)) - (macro-multiple-c-return-exception? _exn67409_)))) + (unchecked-slot-ref _exn67391_ 'exception)))) + (macro-multiple-c-return-exception? _e67394_)) + (macro-multiple-c-return-exception? _exn67391_)))) (define no-such-file-or-directory-exception? - (lambda (_exn67405_) + (lambda (_exn67387_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67405_)) - (let ((_e67407_ + (class-instance? RuntimeException::t _exn67387_)) + (let ((_e67389_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67405_ 'exception)))) - (macro-no-such-file-or-directory-exception? _e67407_)) - (macro-no-such-file-or-directory-exception? _exn67405_)))) + (unchecked-slot-ref _exn67387_ 'exception)))) + (macro-no-such-file-or-directory-exception? _e67389_)) + (macro-no-such-file-or-directory-exception? _exn67387_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_exn67401_) + (lambda (_exn67383_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67401_)) - (let ((_e67403_ + (class-instance? RuntimeException::t _exn67383_)) + (let ((_e67385_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67401_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e67403_) + (unchecked-slot-ref _exn67383_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e67385_) (macro-no-such-file-or-directory-exception-arguments - _e67403_) - (let ((__tmp68376 - (let ((__tmp68377 + _e67385_) + (let ((__tmp68358 + (let ((__tmp68359 (let () (declare (not safe)) - (cons _e67403_ '())))) + (cons _e67385_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp68377)))) + __tmp68359)))) (declare (not safe)) (error '"not an instance" 'no-such-file-or-directory-exception? - __tmp68376)))) - (if (macro-no-such-file-or-directory-exception? _exn67401_) + __tmp68358)))) + (if (macro-no-such-file-or-directory-exception? _exn67383_) (macro-no-such-file-or-directory-exception-arguments - _exn67401_) - (let ((__tmp68374 - (let ((__tmp68375 + _exn67383_) + (let ((__tmp68356 + (let ((__tmp68357 (let () (declare (not safe)) - (cons _exn67401_ '())))) + (cons _exn67383_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp68375)))) + __tmp68357)))) (declare (not safe)) (error '"not an instance" 'no-such-file-or-directory-exception? - __tmp68374)))))) + __tmp68356)))))) (define no-such-file-or-directory-exception-procedure - (lambda (_exn67395_) + (lambda (_exn67377_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67395_)) - (let ((_e67398_ + (class-instance? RuntimeException::t _exn67377_)) + (let ((_e67380_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67395_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e67398_) + (unchecked-slot-ref _exn67377_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e67380_) (macro-no-such-file-or-directory-exception-procedure - _e67398_) - (let ((__tmp68380 - (let ((__tmp68381 + _e67380_) + (let ((__tmp68362 + (let ((__tmp68363 (let () (declare (not safe)) - (cons _e67398_ '())))) + (cons _e67380_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp68381)))) + __tmp68363)))) (declare (not safe)) (error '"not an instance" 'no-such-file-or-directory-exception? - __tmp68380)))) - (if (macro-no-such-file-or-directory-exception? _exn67395_) + __tmp68362)))) + (if (macro-no-such-file-or-directory-exception? _exn67377_) (macro-no-such-file-or-directory-exception-procedure - _exn67395_) - (let ((__tmp68378 - (let ((__tmp68379 + _exn67377_) + (let ((__tmp68360 + (let ((__tmp68361 (let () (declare (not safe)) - (cons _exn67395_ '())))) + (cons _exn67377_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp68379)))) + __tmp68361)))) (declare (not safe)) (error '"not an instance" 'no-such-file-or-directory-exception? - __tmp68378)))))) + __tmp68360)))))) (define noncontinuable-exception? - (lambda (_exn67391_) + (lambda (_exn67373_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67391_)) - (let ((_e67393_ + (class-instance? RuntimeException::t _exn67373_)) + (let ((_e67375_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67391_ 'exception)))) - (macro-noncontinuable-exception? _e67393_)) - (macro-noncontinuable-exception? _exn67391_)))) + (unchecked-slot-ref _exn67373_ 'exception)))) + (macro-noncontinuable-exception? _e67375_)) + (macro-noncontinuable-exception? _exn67373_)))) (define noncontinuable-exception-reason - (lambda (_exn67385_) + (lambda (_exn67367_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67385_)) - (let ((_e67388_ + (class-instance? RuntimeException::t _exn67367_)) + (let ((_e67370_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67385_ 'exception)))) - (if (macro-noncontinuable-exception? _e67388_) - (macro-noncontinuable-exception-reason _e67388_) - (let ((__tmp68384 - (let ((__tmp68385 + (unchecked-slot-ref _exn67367_ 'exception)))) + (if (macro-noncontinuable-exception? _e67370_) + (macro-noncontinuable-exception-reason _e67370_) + (let ((__tmp68366 + (let ((__tmp68367 (let () (declare (not safe)) - (cons _e67388_ '())))) + (cons _e67370_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp68385)))) + __tmp68367)))) (declare (not safe)) (error '"not an instance" 'noncontinuable-exception? - __tmp68384)))) - (if (macro-noncontinuable-exception? _exn67385_) - (macro-noncontinuable-exception-reason _exn67385_) - (let ((__tmp68382 - (let ((__tmp68383 + __tmp68366)))) + (if (macro-noncontinuable-exception? _exn67367_) + (macro-noncontinuable-exception-reason _exn67367_) + (let ((__tmp68364 + (let ((__tmp68365 (let () (declare (not safe)) - (cons _exn67385_ '())))) + (cons _exn67367_ '())))) (declare (not safe)) - (cons 'noncontinuable-exception-reason __tmp68383)))) + (cons 'noncontinuable-exception-reason __tmp68365)))) (declare (not safe)) (error '"not an instance" 'noncontinuable-exception? - __tmp68382)))))) + __tmp68364)))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_exn67381_) + (lambda (_exn67363_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67381_)) - (let ((_e67383_ + (class-instance? RuntimeException::t _exn67363_)) + (let ((_e67365_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67381_ 'exception)))) - (macro-nonempty-input-port-character-buffer-exception? _e67383_)) + (unchecked-slot-ref _exn67363_ 'exception)))) + (macro-nonempty-input-port-character-buffer-exception? _e67365_)) (macro-nonempty-input-port-character-buffer-exception? - _exn67381_)))) + _exn67363_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_exn67377_) + (lambda (_exn67359_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67377_)) - (let ((_e67379_ + (class-instance? RuntimeException::t _exn67359_)) + (let ((_e67361_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67377_ 'exception)))) + (unchecked-slot-ref _exn67359_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e67379_) + _e67361_) (macro-nonempty-input-port-character-buffer-exception-arguments - _e67379_) - (let ((__tmp68388 - (let ((__tmp68389 + _e67361_) + (let ((__tmp68370 + (let ((__tmp68371 (let () (declare (not safe)) - (cons _e67379_ '())))) + (cons _e67361_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp68389)))) + __tmp68371)))) (declare (not safe)) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - __tmp68388)))) + __tmp68370)))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn67377_) + _exn67359_) (macro-nonempty-input-port-character-buffer-exception-arguments - _exn67377_) - (let ((__tmp68386 - (let ((__tmp68387 + _exn67359_) + (let ((__tmp68368 + (let ((__tmp68369 (let () (declare (not safe)) - (cons _exn67377_ '())))) + (cons _exn67359_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp68387)))) + __tmp68369)))) (declare (not safe)) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - __tmp68386)))))) + __tmp68368)))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_exn67371_) + (lambda (_exn67353_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67371_)) - (let ((_e67374_ + (class-instance? RuntimeException::t _exn67353_)) + (let ((_e67356_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67371_ 'exception)))) + (unchecked-slot-ref _exn67353_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e67374_) + _e67356_) (macro-nonempty-input-port-character-buffer-exception-procedure - _e67374_) - (let ((__tmp68392 - (let ((__tmp68393 + _e67356_) + (let ((__tmp68374 + (let ((__tmp68375 (let () (declare (not safe)) - (cons _e67374_ '())))) + (cons _e67356_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp68393)))) + __tmp68375)))) (declare (not safe)) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - __tmp68392)))) + __tmp68374)))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn67371_) + _exn67353_) (macro-nonempty-input-port-character-buffer-exception-procedure - _exn67371_) - (let ((__tmp68390 - (let ((__tmp68391 + _exn67353_) + (let ((__tmp68372 + (let ((__tmp68373 (let () (declare (not safe)) - (cons _exn67371_ '())))) + (cons _exn67353_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp68391)))) + __tmp68373)))) (declare (not safe)) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - __tmp68390)))))) + __tmp68372)))))) (define nonprocedure-operator-exception? - (lambda (_exn67367_) + (lambda (_exn67349_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67367_)) - (let ((_e67369_ + (class-instance? RuntimeException::t _exn67349_)) + (let ((_e67351_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67367_ 'exception)))) - (macro-nonprocedure-operator-exception? _e67369_)) - (macro-nonprocedure-operator-exception? _exn67367_)))) + (unchecked-slot-ref _exn67349_ 'exception)))) + (macro-nonprocedure-operator-exception? _e67351_)) + (macro-nonprocedure-operator-exception? _exn67349_)))) (define nonprocedure-operator-exception-arguments - (lambda (_exn67363_) + (lambda (_exn67345_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67363_)) - (let ((_e67365_ + (class-instance? RuntimeException::t _exn67345_)) + (let ((_e67347_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67363_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e67365_) - (macro-nonprocedure-operator-exception-arguments _e67365_) - (let ((__tmp68396 - (let ((__tmp68397 + (unchecked-slot-ref _exn67345_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e67347_) + (macro-nonprocedure-operator-exception-arguments _e67347_) + (let ((__tmp68378 + (let ((__tmp68379 (let () (declare (not safe)) - (cons _e67365_ '())))) + (cons _e67347_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp68397)))) + __tmp68379)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp68396)))) - (if (macro-nonprocedure-operator-exception? _exn67363_) - (macro-nonprocedure-operator-exception-arguments _exn67363_) - (let ((__tmp68394 - (let ((__tmp68395 + __tmp68378)))) + (if (macro-nonprocedure-operator-exception? _exn67345_) + (macro-nonprocedure-operator-exception-arguments _exn67345_) + (let ((__tmp68376 + (let ((__tmp68377 (let () (declare (not safe)) - (cons _exn67363_ '())))) + (cons _exn67345_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp68395)))) + __tmp68377)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp68394)))))) + __tmp68376)))))) (define nonprocedure-operator-exception-code - (lambda (_exn67359_) + (lambda (_exn67341_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67359_)) - (let ((_e67361_ + (class-instance? RuntimeException::t _exn67341_)) + (let ((_e67343_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67359_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e67361_) - (macro-nonprocedure-operator-exception-code _e67361_) - (let ((__tmp68400 - (let ((__tmp68401 + (unchecked-slot-ref _exn67341_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e67343_) + (macro-nonprocedure-operator-exception-code _e67343_) + (let ((__tmp68382 + (let ((__tmp68383 (let () (declare (not safe)) - (cons _e67361_ '())))) + (cons _e67343_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp68401)))) + __tmp68383)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp68400)))) - (if (macro-nonprocedure-operator-exception? _exn67359_) - (macro-nonprocedure-operator-exception-code _exn67359_) - (let ((__tmp68398 - (let ((__tmp68399 + __tmp68382)))) + (if (macro-nonprocedure-operator-exception? _exn67341_) + (macro-nonprocedure-operator-exception-code _exn67341_) + (let ((__tmp68380 + (let ((__tmp68381 (let () (declare (not safe)) - (cons _exn67359_ '())))) + (cons _exn67341_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp68399)))) + __tmp68381)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp68398)))))) + __tmp68380)))))) (define nonprocedure-operator-exception-operator - (lambda (_exn67355_) + (lambda (_exn67337_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67355_)) - (let ((_e67357_ + (class-instance? RuntimeException::t _exn67337_)) + (let ((_e67339_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67355_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e67357_) - (macro-nonprocedure-operator-exception-operator _e67357_) - (let ((__tmp68404 - (let ((__tmp68405 + (unchecked-slot-ref _exn67337_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e67339_) + (macro-nonprocedure-operator-exception-operator _e67339_) + (let ((__tmp68386 + (let ((__tmp68387 (let () (declare (not safe)) - (cons _e67357_ '())))) + (cons _e67339_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp68405)))) + __tmp68387)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp68404)))) - (if (macro-nonprocedure-operator-exception? _exn67355_) - (macro-nonprocedure-operator-exception-operator _exn67355_) - (let ((__tmp68402 - (let ((__tmp68403 + __tmp68386)))) + (if (macro-nonprocedure-operator-exception? _exn67337_) + (macro-nonprocedure-operator-exception-operator _exn67337_) + (let ((__tmp68384 + (let ((__tmp68385 (let () (declare (not safe)) - (cons _exn67355_ '())))) + (cons _exn67337_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp68403)))) + __tmp68385)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp68402)))))) + __tmp68384)))))) (define nonprocedure-operator-exception-rte - (lambda (_exn67349_) + (lambda (_exn67331_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67349_)) - (let ((_e67352_ + (class-instance? RuntimeException::t _exn67331_)) + (let ((_e67334_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67349_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e67352_) - (macro-nonprocedure-operator-exception-rte _e67352_) - (let ((__tmp68408 - (let ((__tmp68409 + (unchecked-slot-ref _exn67331_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e67334_) + (macro-nonprocedure-operator-exception-rte _e67334_) + (let ((__tmp68390 + (let ((__tmp68391 (let () (declare (not safe)) - (cons _e67352_ '())))) + (cons _e67334_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp68409)))) + __tmp68391)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp68408)))) - (if (macro-nonprocedure-operator-exception? _exn67349_) - (macro-nonprocedure-operator-exception-rte _exn67349_) - (let ((__tmp68406 - (let ((__tmp68407 + __tmp68390)))) + (if (macro-nonprocedure-operator-exception? _exn67331_) + (macro-nonprocedure-operator-exception-rte _exn67331_) + (let ((__tmp68388 + (let ((__tmp68389 (let () (declare (not safe)) - (cons _exn67349_ '())))) + (cons _exn67331_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp68407)))) + __tmp68389)))) (declare (not safe)) (error '"not an instance" 'nonprocedure-operator-exception? - __tmp68406)))))) + __tmp68388)))))) (define not-in-compilation-context-exception? - (lambda (_exn67345_) + (lambda (_exn67327_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67345_)) - (let ((_e67347_ + (class-instance? RuntimeException::t _exn67327_)) + (let ((_e67329_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67345_ 'exception)))) - (macro-not-in-compilation-context-exception? _e67347_)) - (macro-not-in-compilation-context-exception? _exn67345_)))) + (unchecked-slot-ref _exn67327_ 'exception)))) + (macro-not-in-compilation-context-exception? _e67329_)) + (macro-not-in-compilation-context-exception? _exn67327_)))) (define not-in-compilation-context-exception-arguments - (lambda (_exn67341_) + (lambda (_exn67323_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67341_)) - (let ((_e67343_ + (class-instance? RuntimeException::t _exn67323_)) + (let ((_e67325_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67341_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e67343_) + (unchecked-slot-ref _exn67323_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e67325_) (macro-not-in-compilation-context-exception-arguments - _e67343_) - (let ((__tmp68412 - (let ((__tmp68413 + _e67325_) + (let ((__tmp68394 + (let ((__tmp68395 (let () (declare (not safe)) - (cons _e67343_ '())))) + (cons _e67325_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp68413)))) + __tmp68395)))) (declare (not safe)) (error '"not an instance" 'not-in-compilation-context-exception? - __tmp68412)))) - (if (macro-not-in-compilation-context-exception? _exn67341_) + __tmp68394)))) + (if (macro-not-in-compilation-context-exception? _exn67323_) (macro-not-in-compilation-context-exception-arguments - _exn67341_) - (let ((__tmp68410 - (let ((__tmp68411 + _exn67323_) + (let ((__tmp68392 + (let ((__tmp68393 (let () (declare (not safe)) - (cons _exn67341_ '())))) + (cons _exn67323_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp68411)))) + __tmp68393)))) (declare (not safe)) (error '"not an instance" 'not-in-compilation-context-exception? - __tmp68410)))))) + __tmp68392)))))) (define not-in-compilation-context-exception-procedure - (lambda (_exn67335_) + (lambda (_exn67317_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67335_)) - (let ((_e67338_ + (class-instance? RuntimeException::t _exn67317_)) + (let ((_e67320_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67335_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e67338_) + (unchecked-slot-ref _exn67317_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e67320_) (macro-not-in-compilation-context-exception-procedure - _e67338_) - (let ((__tmp68416 - (let ((__tmp68417 + _e67320_) + (let ((__tmp68398 + (let ((__tmp68399 (let () (declare (not safe)) - (cons _e67338_ '())))) + (cons _e67320_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp68417)))) + __tmp68399)))) (declare (not safe)) (error '"not an instance" 'not-in-compilation-context-exception? - __tmp68416)))) - (if (macro-not-in-compilation-context-exception? _exn67335_) + __tmp68398)))) + (if (macro-not-in-compilation-context-exception? _exn67317_) (macro-not-in-compilation-context-exception-procedure - _exn67335_) - (let ((__tmp68414 - (let ((__tmp68415 + _exn67317_) + (let ((__tmp68396 + (let ((__tmp68397 (let () (declare (not safe)) - (cons _exn67335_ '())))) + (cons _exn67317_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp68415)))) + __tmp68397)))) (declare (not safe)) (error '"not an instance" 'not-in-compilation-context-exception? - __tmp68414)))))) + __tmp68396)))))) (define number-of-arguments-limit-exception? - (lambda (_exn67331_) + (lambda (_exn67313_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67331_)) - (let ((_e67333_ + (class-instance? RuntimeException::t _exn67313_)) + (let ((_e67315_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67331_ 'exception)))) - (macro-number-of-arguments-limit-exception? _e67333_)) - (macro-number-of-arguments-limit-exception? _exn67331_)))) + (unchecked-slot-ref _exn67313_ 'exception)))) + (macro-number-of-arguments-limit-exception? _e67315_)) + (macro-number-of-arguments-limit-exception? _exn67313_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_exn67327_) + (lambda (_exn67309_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67327_)) - (let ((_e67329_ + (class-instance? RuntimeException::t _exn67309_)) + (let ((_e67311_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67327_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e67329_) + (unchecked-slot-ref _exn67309_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e67311_) (macro-number-of-arguments-limit-exception-arguments - _e67329_) - (let ((__tmp68420 - (let ((__tmp68421 + _e67311_) + (let ((__tmp68402 + (let ((__tmp68403 (let () (declare (not safe)) - (cons _e67329_ '())))) + (cons _e67311_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp68421)))) + __tmp68403)))) (declare (not safe)) (error '"not an instance" 'number-of-arguments-limit-exception? - __tmp68420)))) - (if (macro-number-of-arguments-limit-exception? _exn67327_) + __tmp68402)))) + (if (macro-number-of-arguments-limit-exception? _exn67309_) (macro-number-of-arguments-limit-exception-arguments - _exn67327_) - (let ((__tmp68418 - (let ((__tmp68419 + _exn67309_) + (let ((__tmp68400 + (let ((__tmp68401 (let () (declare (not safe)) - (cons _exn67327_ '())))) + (cons _exn67309_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp68419)))) + __tmp68401)))) (declare (not safe)) (error '"not an instance" 'number-of-arguments-limit-exception? - __tmp68418)))))) + __tmp68400)))))) (define number-of-arguments-limit-exception-procedure - (lambda (_exn67321_) + (lambda (_exn67303_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67321_)) - (let ((_e67324_ + (class-instance? RuntimeException::t _exn67303_)) + (let ((_e67306_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67321_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e67324_) + (unchecked-slot-ref _exn67303_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e67306_) (macro-number-of-arguments-limit-exception-procedure - _e67324_) - (let ((__tmp68424 - (let ((__tmp68425 + _e67306_) + (let ((__tmp68406 + (let ((__tmp68407 (let () (declare (not safe)) - (cons _e67324_ '())))) + (cons _e67306_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp68425)))) + __tmp68407)))) (declare (not safe)) (error '"not an instance" 'number-of-arguments-limit-exception? - __tmp68424)))) - (if (macro-number-of-arguments-limit-exception? _exn67321_) + __tmp68406)))) + (if (macro-number-of-arguments-limit-exception? _exn67303_) (macro-number-of-arguments-limit-exception-procedure - _exn67321_) - (let ((__tmp68422 - (let ((__tmp68423 + _exn67303_) + (let ((__tmp68404 + (let ((__tmp68405 (let () (declare (not safe)) - (cons _exn67321_ '())))) + (cons _exn67303_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp68423)))) + __tmp68405)))) (declare (not safe)) (error '"not an instance" 'number-of-arguments-limit-exception? - __tmp68422)))))) + __tmp68404)))))) (define os-exception? - (lambda (_exn67317_) + (lambda (_exn67299_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67317_)) - (let ((_e67319_ + (class-instance? RuntimeException::t _exn67299_)) + (let ((_e67301_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67317_ 'exception)))) - (macro-os-exception? _e67319_)) - (macro-os-exception? _exn67317_)))) + (unchecked-slot-ref _exn67299_ 'exception)))) + (macro-os-exception? _e67301_)) + (macro-os-exception? _exn67299_)))) (define os-exception-arguments - (lambda (_exn67313_) + (lambda (_exn67295_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67313_)) - (let ((_e67315_ + (class-instance? RuntimeException::t _exn67295_)) + (let ((_e67297_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67313_ 'exception)))) - (if (macro-os-exception? _e67315_) - (macro-os-exception-arguments _e67315_) - (let ((__tmp68428 - (let ((__tmp68429 + (unchecked-slot-ref _exn67295_ 'exception)))) + (if (macro-os-exception? _e67297_) + (macro-os-exception-arguments _e67297_) + (let ((__tmp68410 + (let ((__tmp68411 (let () (declare (not safe)) - (cons _e67315_ '())))) + (cons _e67297_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp68429)))) + (cons 'os-exception-arguments __tmp68411)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp68428)))) - (if (macro-os-exception? _exn67313_) - (macro-os-exception-arguments _exn67313_) - (let ((__tmp68426 - (let ((__tmp68427 + (error '"not an instance" 'os-exception? __tmp68410)))) + (if (macro-os-exception? _exn67295_) + (macro-os-exception-arguments _exn67295_) + (let ((__tmp68408 + (let ((__tmp68409 (let () (declare (not safe)) - (cons _exn67313_ '())))) + (cons _exn67295_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp68427)))) + (cons 'os-exception-arguments __tmp68409)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp68426)))))) + (error '"not an instance" 'os-exception? __tmp68408)))))) (define os-exception-code - (lambda (_exn67309_) + (lambda (_exn67291_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67309_)) - (let ((_e67311_ + (class-instance? RuntimeException::t _exn67291_)) + (let ((_e67293_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67309_ 'exception)))) - (if (macro-os-exception? _e67311_) - (macro-os-exception-code _e67311_) - (let ((__tmp68432 - (let ((__tmp68433 + (unchecked-slot-ref _exn67291_ 'exception)))) + (if (macro-os-exception? _e67293_) + (macro-os-exception-code _e67293_) + (let ((__tmp68414 + (let ((__tmp68415 (let () (declare (not safe)) - (cons _e67311_ '())))) + (cons _e67293_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp68433)))) + (cons 'os-exception-code __tmp68415)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp68432)))) - (if (macro-os-exception? _exn67309_) - (macro-os-exception-code _exn67309_) - (let ((__tmp68430 - (let ((__tmp68431 + (error '"not an instance" 'os-exception? __tmp68414)))) + (if (macro-os-exception? _exn67291_) + (macro-os-exception-code _exn67291_) + (let ((__tmp68412 + (let ((__tmp68413 (let () (declare (not safe)) - (cons _exn67309_ '())))) + (cons _exn67291_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp68431)))) + (cons 'os-exception-code __tmp68413)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp68430)))))) + (error '"not an instance" 'os-exception? __tmp68412)))))) (define os-exception-message - (lambda (_exn67305_) + (lambda (_exn67287_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67305_)) - (let ((_e67307_ + (class-instance? RuntimeException::t _exn67287_)) + (let ((_e67289_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67305_ 'exception)))) - (if (macro-os-exception? _e67307_) - (macro-os-exception-message _e67307_) - (let ((__tmp68436 - (let ((__tmp68437 + (unchecked-slot-ref _exn67287_ 'exception)))) + (if (macro-os-exception? _e67289_) + (macro-os-exception-message _e67289_) + (let ((__tmp68418 + (let ((__tmp68419 (let () (declare (not safe)) - (cons _e67307_ '())))) + (cons _e67289_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp68437)))) + (cons 'os-exception-message __tmp68419)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp68436)))) - (if (macro-os-exception? _exn67305_) - (macro-os-exception-message _exn67305_) - (let ((__tmp68434 - (let ((__tmp68435 + (error '"not an instance" 'os-exception? __tmp68418)))) + (if (macro-os-exception? _exn67287_) + (macro-os-exception-message _exn67287_) + (let ((__tmp68416 + (let ((__tmp68417 (let () (declare (not safe)) - (cons _exn67305_ '())))) + (cons _exn67287_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp68435)))) + (cons 'os-exception-message __tmp68417)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp68434)))))) + (error '"not an instance" 'os-exception? __tmp68416)))))) (define os-exception-procedure - (lambda (_exn67299_) + (lambda (_exn67281_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67299_)) - (let ((_e67302_ + (class-instance? RuntimeException::t _exn67281_)) + (let ((_e67284_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67299_ 'exception)))) - (if (macro-os-exception? _e67302_) - (macro-os-exception-procedure _e67302_) - (let ((__tmp68440 - (let ((__tmp68441 + (unchecked-slot-ref _exn67281_ 'exception)))) + (if (macro-os-exception? _e67284_) + (macro-os-exception-procedure _e67284_) + (let ((__tmp68422 + (let ((__tmp68423 (let () (declare (not safe)) - (cons _e67302_ '())))) + (cons _e67284_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp68441)))) + (cons 'os-exception-procedure __tmp68423)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp68440)))) - (if (macro-os-exception? _exn67299_) - (macro-os-exception-procedure _exn67299_) - (let ((__tmp68438 - (let ((__tmp68439 + (error '"not an instance" 'os-exception? __tmp68422)))) + (if (macro-os-exception? _exn67281_) + (macro-os-exception-procedure _exn67281_) + (let ((__tmp68420 + (let ((__tmp68421 (let () (declare (not safe)) - (cons _exn67299_ '())))) + (cons _exn67281_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp68439)))) + (cons 'os-exception-procedure __tmp68421)))) (declare (not safe)) - (error '"not an instance" 'os-exception? __tmp68438)))))) + (error '"not an instance" 'os-exception? __tmp68420)))))) (define permission-denied-exception? - (lambda (_exn67295_) + (lambda (_exn67277_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67295_)) - (let ((_e67297_ + (class-instance? RuntimeException::t _exn67277_)) + (let ((_e67279_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67295_ 'exception)))) - (macro-permission-denied-exception? _e67297_)) - (macro-permission-denied-exception? _exn67295_)))) + (unchecked-slot-ref _exn67277_ 'exception)))) + (macro-permission-denied-exception? _e67279_)) + (macro-permission-denied-exception? _exn67277_)))) (define permission-denied-exception-arguments - (lambda (_exn67291_) + (lambda (_exn67273_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67291_)) - (let ((_e67293_ + (class-instance? RuntimeException::t _exn67273_)) + (let ((_e67275_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67291_ 'exception)))) - (if (macro-permission-denied-exception? _e67293_) - (macro-permission-denied-exception-arguments _e67293_) - (let ((__tmp68444 - (let ((__tmp68445 + (unchecked-slot-ref _exn67273_ 'exception)))) + (if (macro-permission-denied-exception? _e67275_) + (macro-permission-denied-exception-arguments _e67275_) + (let ((__tmp68426 + (let ((__tmp68427 (let () (declare (not safe)) - (cons _e67293_ '())))) + (cons _e67275_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp68445)))) + __tmp68427)))) (declare (not safe)) (error '"not an instance" 'permission-denied-exception? - __tmp68444)))) - (if (macro-permission-denied-exception? _exn67291_) - (macro-permission-denied-exception-arguments _exn67291_) - (let ((__tmp68442 - (let ((__tmp68443 + __tmp68426)))) + (if (macro-permission-denied-exception? _exn67273_) + (macro-permission-denied-exception-arguments _exn67273_) + (let ((__tmp68424 + (let ((__tmp68425 (let () (declare (not safe)) - (cons _exn67291_ '())))) + (cons _exn67273_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp68443)))) + __tmp68425)))) (declare (not safe)) (error '"not an instance" 'permission-denied-exception? - __tmp68442)))))) + __tmp68424)))))) (define permission-denied-exception-procedure - (lambda (_exn67285_) + (lambda (_exn67267_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67285_)) - (let ((_e67288_ + (class-instance? RuntimeException::t _exn67267_)) + (let ((_e67270_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67285_ 'exception)))) - (if (macro-permission-denied-exception? _e67288_) - (macro-permission-denied-exception-procedure _e67288_) - (let ((__tmp68448 - (let ((__tmp68449 + (unchecked-slot-ref _exn67267_ 'exception)))) + (if (macro-permission-denied-exception? _e67270_) + (macro-permission-denied-exception-procedure _e67270_) + (let ((__tmp68430 + (let ((__tmp68431 (let () (declare (not safe)) - (cons _e67288_ '())))) + (cons _e67270_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp68449)))) + __tmp68431)))) (declare (not safe)) (error '"not an instance" 'permission-denied-exception? - __tmp68448)))) - (if (macro-permission-denied-exception? _exn67285_) - (macro-permission-denied-exception-procedure _exn67285_) - (let ((__tmp68446 - (let ((__tmp68447 + __tmp68430)))) + (if (macro-permission-denied-exception? _exn67267_) + (macro-permission-denied-exception-procedure _exn67267_) + (let ((__tmp68428 + (let ((__tmp68429 (let () (declare (not safe)) - (cons _exn67285_ '())))) + (cons _exn67267_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp68447)))) + __tmp68429)))) (declare (not safe)) (error '"not an instance" 'permission-denied-exception? - __tmp68446)))))) + __tmp68428)))))) (define range-exception? - (lambda (_exn67281_) + (lambda (_exn67263_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67281_)) - (let ((_e67283_ + (class-instance? RuntimeException::t _exn67263_)) + (let ((_e67265_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67281_ 'exception)))) - (macro-range-exception? _e67283_)) - (macro-range-exception? _exn67281_)))) + (unchecked-slot-ref _exn67263_ 'exception)))) + (macro-range-exception? _e67265_)) + (macro-range-exception? _exn67263_)))) (define range-exception-arg-id - (lambda (_exn67277_) + (lambda (_exn67259_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67277_)) - (let ((_e67279_ + (class-instance? RuntimeException::t _exn67259_)) + (let ((_e67261_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67277_ 'exception)))) - (if (macro-range-exception? _e67279_) - (macro-range-exception-arg-id _e67279_) - (let ((__tmp68452 - (let ((__tmp68453 + (unchecked-slot-ref _exn67259_ 'exception)))) + (if (macro-range-exception? _e67261_) + (macro-range-exception-arg-id _e67261_) + (let ((__tmp68434 + (let ((__tmp68435 (let () (declare (not safe)) - (cons _e67279_ '())))) + (cons _e67261_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp68453)))) + (cons 'range-exception-arg-id __tmp68435)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp68452)))) - (if (macro-range-exception? _exn67277_) - (macro-range-exception-arg-id _exn67277_) - (let ((__tmp68450 - (let ((__tmp68451 + (error '"not an instance" 'range-exception? __tmp68434)))) + (if (macro-range-exception? _exn67259_) + (macro-range-exception-arg-id _exn67259_) + (let ((__tmp68432 + (let ((__tmp68433 (let () (declare (not safe)) - (cons _exn67277_ '())))) + (cons _exn67259_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp68451)))) + (cons 'range-exception-arg-id __tmp68433)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp68450)))))) + (error '"not an instance" 'range-exception? __tmp68432)))))) (define range-exception-arguments - (lambda (_exn67273_) + (lambda (_exn67255_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67273_)) - (let ((_e67275_ + (class-instance? RuntimeException::t _exn67255_)) + (let ((_e67257_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67273_ 'exception)))) - (if (macro-range-exception? _e67275_) - (macro-range-exception-arguments _e67275_) - (let ((__tmp68456 - (let ((__tmp68457 + (unchecked-slot-ref _exn67255_ 'exception)))) + (if (macro-range-exception? _e67257_) + (macro-range-exception-arguments _e67257_) + (let ((__tmp68438 + (let ((__tmp68439 (let () (declare (not safe)) - (cons _e67275_ '())))) + (cons _e67257_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp68457)))) + (cons 'range-exception-arguments __tmp68439)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp68456)))) - (if (macro-range-exception? _exn67273_) - (macro-range-exception-arguments _exn67273_) - (let ((__tmp68454 - (let ((__tmp68455 + (error '"not an instance" 'range-exception? __tmp68438)))) + (if (macro-range-exception? _exn67255_) + (macro-range-exception-arguments _exn67255_) + (let ((__tmp68436 + (let ((__tmp68437 (let () (declare (not safe)) - (cons _exn67273_ '())))) + (cons _exn67255_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp68455)))) + (cons 'range-exception-arguments __tmp68437)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp68454)))))) + (error '"not an instance" 'range-exception? __tmp68436)))))) (define range-exception-procedure - (lambda (_exn67267_) + (lambda (_exn67249_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67267_)) - (let ((_e67270_ + (class-instance? RuntimeException::t _exn67249_)) + (let ((_e67252_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67267_ 'exception)))) - (if (macro-range-exception? _e67270_) - (macro-range-exception-procedure _e67270_) - (let ((__tmp68460 - (let ((__tmp68461 + (unchecked-slot-ref _exn67249_ 'exception)))) + (if (macro-range-exception? _e67252_) + (macro-range-exception-procedure _e67252_) + (let ((__tmp68442 + (let ((__tmp68443 (let () (declare (not safe)) - (cons _e67270_ '())))) + (cons _e67252_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp68461)))) + (cons 'range-exception-procedure __tmp68443)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp68460)))) - (if (macro-range-exception? _exn67267_) - (macro-range-exception-procedure _exn67267_) - (let ((__tmp68458 - (let ((__tmp68459 + (error '"not an instance" 'range-exception? __tmp68442)))) + (if (macro-range-exception? _exn67249_) + (macro-range-exception-procedure _exn67249_) + (let ((__tmp68440 + (let ((__tmp68441 (let () (declare (not safe)) - (cons _exn67267_ '())))) + (cons _exn67249_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp68459)))) + (cons 'range-exception-procedure __tmp68441)))) (declare (not safe)) - (error '"not an instance" 'range-exception? __tmp68458)))))) + (error '"not an instance" 'range-exception? __tmp68440)))))) (define rpc-remote-error-exception? - (lambda (_exn67263_) + (lambda (_exn67245_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67263_)) - (let ((_e67265_ + (class-instance? RuntimeException::t _exn67245_)) + (let ((_e67247_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67263_ 'exception)))) - (macro-rpc-remote-error-exception? _e67265_)) - (macro-rpc-remote-error-exception? _exn67263_)))) + (unchecked-slot-ref _exn67245_ 'exception)))) + (macro-rpc-remote-error-exception? _e67247_)) + (macro-rpc-remote-error-exception? _exn67245_)))) (define rpc-remote-error-exception-arguments - (lambda (_exn67259_) + (lambda (_exn67241_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67259_)) - (let ((_e67261_ + (class-instance? RuntimeException::t _exn67241_)) + (let ((_e67243_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67259_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e67261_) - (macro-rpc-remote-error-exception-arguments _e67261_) - (let ((__tmp68464 - (let ((__tmp68465 + (unchecked-slot-ref _exn67241_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e67243_) + (macro-rpc-remote-error-exception-arguments _e67243_) + (let ((__tmp68446 + (let ((__tmp68447 (let () (declare (not safe)) - (cons _e67261_ '())))) + (cons _e67243_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp68465)))) + __tmp68447)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp68464)))) - (if (macro-rpc-remote-error-exception? _exn67259_) - (macro-rpc-remote-error-exception-arguments _exn67259_) - (let ((__tmp68462 - (let ((__tmp68463 + __tmp68446)))) + (if (macro-rpc-remote-error-exception? _exn67241_) + (macro-rpc-remote-error-exception-arguments _exn67241_) + (let ((__tmp68444 + (let ((__tmp68445 (let () (declare (not safe)) - (cons _exn67259_ '())))) + (cons _exn67241_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp68463)))) + __tmp68445)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp68462)))))) + __tmp68444)))))) (define rpc-remote-error-exception-message - (lambda (_exn67255_) + (lambda (_exn67237_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67255_)) - (let ((_e67257_ + (class-instance? RuntimeException::t _exn67237_)) + (let ((_e67239_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67255_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e67257_) - (macro-rpc-remote-error-exception-message _e67257_) - (let ((__tmp68468 - (let ((__tmp68469 + (unchecked-slot-ref _exn67237_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e67239_) + (macro-rpc-remote-error-exception-message _e67239_) + (let ((__tmp68450 + (let ((__tmp68451 (let () (declare (not safe)) - (cons _e67257_ '())))) + (cons _e67239_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp68469)))) + __tmp68451)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp68468)))) - (if (macro-rpc-remote-error-exception? _exn67255_) - (macro-rpc-remote-error-exception-message _exn67255_) - (let ((__tmp68466 - (let ((__tmp68467 + __tmp68450)))) + (if (macro-rpc-remote-error-exception? _exn67237_) + (macro-rpc-remote-error-exception-message _exn67237_) + (let ((__tmp68448 + (let ((__tmp68449 (let () (declare (not safe)) - (cons _exn67255_ '())))) + (cons _exn67237_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp68467)))) + __tmp68449)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp68466)))))) + __tmp68448)))))) (define rpc-remote-error-exception-procedure - (lambda (_exn67249_) + (lambda (_exn67231_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67249_)) - (let ((_e67252_ + (class-instance? RuntimeException::t _exn67231_)) + (let ((_e67234_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67249_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e67252_) - (macro-rpc-remote-error-exception-procedure _e67252_) - (let ((__tmp68472 - (let ((__tmp68473 + (unchecked-slot-ref _exn67231_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e67234_) + (macro-rpc-remote-error-exception-procedure _e67234_) + (let ((__tmp68454 + (let ((__tmp68455 (let () (declare (not safe)) - (cons _e67252_ '())))) + (cons _e67234_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp68473)))) + __tmp68455)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp68472)))) - (if (macro-rpc-remote-error-exception? _exn67249_) - (macro-rpc-remote-error-exception-procedure _exn67249_) - (let ((__tmp68470 - (let ((__tmp68471 + __tmp68454)))) + (if (macro-rpc-remote-error-exception? _exn67231_) + (macro-rpc-remote-error-exception-procedure _exn67231_) + (let ((__tmp68452 + (let ((__tmp68453 (let () (declare (not safe)) - (cons _exn67249_ '())))) + (cons _exn67231_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp68471)))) + __tmp68453)))) (declare (not safe)) (error '"not an instance" 'rpc-remote-error-exception? - __tmp68470)))))) + __tmp68452)))))) (define scheduler-exception? - (lambda (_exn67245_) + (lambda (_exn67227_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67245_)) - (let ((_e67247_ - (let () + (class-instance? RuntimeException::t _exn67227_)) + (let ((_e67229_ + (let () (declare (not safe)) - (unchecked-slot-ref _exn67245_ 'exception)))) - (macro-scheduler-exception? _e67247_)) - (macro-scheduler-exception? _exn67245_)))) + (unchecked-slot-ref _exn67227_ 'exception)))) + (macro-scheduler-exception? _e67229_)) + (macro-scheduler-exception? _exn67227_)))) (define scheduler-exception-reason - (lambda (_exn67239_) + (lambda (_exn67221_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67239_)) - (let ((_e67242_ + (class-instance? RuntimeException::t _exn67221_)) + (let ((_e67224_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67239_ 'exception)))) - (if (macro-scheduler-exception? _e67242_) - (macro-scheduler-exception-reason _e67242_) - (let ((__tmp68476 - (let ((__tmp68477 + (unchecked-slot-ref _exn67221_ 'exception)))) + (if (macro-scheduler-exception? _e67224_) + (macro-scheduler-exception-reason _e67224_) + (let ((__tmp68458 + (let ((__tmp68459 (let () (declare (not safe)) - (cons _e67242_ '())))) + (cons _e67224_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp68477)))) + (cons 'scheduler-exception-reason __tmp68459)))) (declare (not safe)) (error '"not an instance" 'scheduler-exception? - __tmp68476)))) - (if (macro-scheduler-exception? _exn67239_) - (macro-scheduler-exception-reason _exn67239_) - (let ((__tmp68474 - (let ((__tmp68475 + __tmp68458)))) + (if (macro-scheduler-exception? _exn67221_) + (macro-scheduler-exception-reason _exn67221_) + (let ((__tmp68456 + (let ((__tmp68457 (let () (declare (not safe)) - (cons _exn67239_ '())))) + (cons _exn67221_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp68475)))) + (cons 'scheduler-exception-reason __tmp68457)))) (declare (not safe)) (error '"not an instance" 'scheduler-exception? - __tmp68474)))))) + __tmp68456)))))) (define sfun-conversion-exception? - (lambda (_exn67235_) + (lambda (_exn67217_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67235_)) - (let ((_e67237_ + (class-instance? RuntimeException::t _exn67217_)) + (let ((_e67219_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67235_ 'exception)))) - (macro-sfun-conversion-exception? _e67237_)) - (macro-sfun-conversion-exception? _exn67235_)))) + (unchecked-slot-ref _exn67217_ 'exception)))) + (macro-sfun-conversion-exception? _e67219_)) + (macro-sfun-conversion-exception? _exn67217_)))) (define sfun-conversion-exception-arguments - (lambda (_exn67231_) + (lambda (_exn67213_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67231_)) - (let ((_e67233_ + (class-instance? RuntimeException::t _exn67213_)) + (let ((_e67215_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67231_ 'exception)))) - (if (macro-sfun-conversion-exception? _e67233_) - (macro-sfun-conversion-exception-arguments _e67233_) - (let ((__tmp68480 - (let ((__tmp68481 + (unchecked-slot-ref _exn67213_ 'exception)))) + (if (macro-sfun-conversion-exception? _e67215_) + (macro-sfun-conversion-exception-arguments _e67215_) + (let ((__tmp68462 + (let ((__tmp68463 (let () (declare (not safe)) - (cons _e67233_ '())))) + (cons _e67215_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp68481)))) + __tmp68463)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp68480)))) - (if (macro-sfun-conversion-exception? _exn67231_) - (macro-sfun-conversion-exception-arguments _exn67231_) - (let ((__tmp68478 - (let ((__tmp68479 + __tmp68462)))) + (if (macro-sfun-conversion-exception? _exn67213_) + (macro-sfun-conversion-exception-arguments _exn67213_) + (let ((__tmp68460 + (let ((__tmp68461 (let () (declare (not safe)) - (cons _exn67231_ '())))) + (cons _exn67213_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp68479)))) + __tmp68461)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp68478)))))) + __tmp68460)))))) (define sfun-conversion-exception-code - (lambda (_exn67227_) + (lambda (_exn67209_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67227_)) - (let ((_e67229_ + (class-instance? RuntimeException::t _exn67209_)) + (let ((_e67211_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67227_ 'exception)))) - (if (macro-sfun-conversion-exception? _e67229_) - (macro-sfun-conversion-exception-code _e67229_) - (let ((__tmp68484 - (let ((__tmp68485 + (unchecked-slot-ref _exn67209_ 'exception)))) + (if (macro-sfun-conversion-exception? _e67211_) + (macro-sfun-conversion-exception-code _e67211_) + (let ((__tmp68466 + (let ((__tmp68467 (let () (declare (not safe)) - (cons _e67229_ '())))) + (cons _e67211_ '())))) (declare (not safe)) - (cons 'sfun-conversion-exception-code __tmp68485)))) + (cons 'sfun-conversion-exception-code __tmp68467)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp68484)))) - (if (macro-sfun-conversion-exception? _exn67227_) - (macro-sfun-conversion-exception-code _exn67227_) - (let ((__tmp68482 - (let ((__tmp68483 + __tmp68466)))) + (if (macro-sfun-conversion-exception? _exn67209_) + (macro-sfun-conversion-exception-code _exn67209_) + (let ((__tmp68464 + (let ((__tmp68465 (let () (declare (not safe)) - (cons _exn67227_ '())))) + (cons _exn67209_ '())))) (declare (not safe)) - (cons 'sfun-conversion-exception-code __tmp68483)))) + (cons 'sfun-conversion-exception-code __tmp68465)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp68482)))))) + __tmp68464)))))) (define sfun-conversion-exception-message - (lambda (_exn67223_) + (lambda (_exn67205_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67223_)) - (let ((_e67225_ + (class-instance? RuntimeException::t _exn67205_)) + (let ((_e67207_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67223_ 'exception)))) - (if (macro-sfun-conversion-exception? _e67225_) - (macro-sfun-conversion-exception-message _e67225_) - (let ((__tmp68488 - (let ((__tmp68489 + (unchecked-slot-ref _exn67205_ 'exception)))) + (if (macro-sfun-conversion-exception? _e67207_) + (macro-sfun-conversion-exception-message _e67207_) + (let ((__tmp68470 + (let ((__tmp68471 (let () (declare (not safe)) - (cons _e67225_ '())))) + (cons _e67207_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp68489)))) + __tmp68471)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp68488)))) - (if (macro-sfun-conversion-exception? _exn67223_) - (macro-sfun-conversion-exception-message _exn67223_) - (let ((__tmp68486 - (let ((__tmp68487 + __tmp68470)))) + (if (macro-sfun-conversion-exception? _exn67205_) + (macro-sfun-conversion-exception-message _exn67205_) + (let ((__tmp68468 + (let ((__tmp68469 (let () (declare (not safe)) - (cons _exn67223_ '())))) + (cons _exn67205_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp68487)))) + __tmp68469)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp68486)))))) + __tmp68468)))))) (define sfun-conversion-exception-procedure - (lambda (_exn67217_) + (lambda (_exn67199_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67217_)) - (let ((_e67220_ + (class-instance? RuntimeException::t _exn67199_)) + (let ((_e67202_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67217_ 'exception)))) - (if (macro-sfun-conversion-exception? _e67220_) - (macro-sfun-conversion-exception-procedure _e67220_) - (let ((__tmp68492 - (let ((__tmp68493 + (unchecked-slot-ref _exn67199_ 'exception)))) + (if (macro-sfun-conversion-exception? _e67202_) + (macro-sfun-conversion-exception-procedure _e67202_) + (let ((__tmp68474 + (let ((__tmp68475 (let () (declare (not safe)) - (cons _e67220_ '())))) + (cons _e67202_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp68493)))) + __tmp68475)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp68492)))) - (if (macro-sfun-conversion-exception? _exn67217_) - (macro-sfun-conversion-exception-procedure _exn67217_) - (let ((__tmp68490 - (let ((__tmp68491 + __tmp68474)))) + (if (macro-sfun-conversion-exception? _exn67199_) + (macro-sfun-conversion-exception-procedure _exn67199_) + (let ((__tmp68472 + (let ((__tmp68473 (let () (declare (not safe)) - (cons _exn67217_ '())))) + (cons _exn67199_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp68491)))) + __tmp68473)))) (declare (not safe)) (error '"not an instance" 'sfun-conversion-exception? - __tmp68490)))))) + __tmp68472)))))) (define stack-overflow-exception? - (lambda (_exn67211_) + (lambda (_exn67193_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67211_)) - (let ((_e67214_ + (class-instance? RuntimeException::t _exn67193_)) + (let ((_e67196_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67211_ 'exception)))) - (macro-stack-overflow-exception? _e67214_)) - (macro-stack-overflow-exception? _exn67211_)))) + (unchecked-slot-ref _exn67193_ 'exception)))) + (macro-stack-overflow-exception? _e67196_)) + (macro-stack-overflow-exception? _exn67193_)))) (define started-thread-exception? - (lambda (_exn67207_) + (lambda (_exn67189_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67207_)) - (let ((_e67209_ + (class-instance? RuntimeException::t _exn67189_)) + (let ((_e67191_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67207_ 'exception)))) - (macro-started-thread-exception? _e67209_)) - (macro-started-thread-exception? _exn67207_)))) + (unchecked-slot-ref _exn67189_ 'exception)))) + (macro-started-thread-exception? _e67191_)) + (macro-started-thread-exception? _exn67189_)))) (define started-thread-exception-arguments - (lambda (_exn67203_) + (lambda (_exn67185_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67203_)) - (let ((_e67205_ + (class-instance? RuntimeException::t _exn67185_)) + (let ((_e67187_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67203_ 'exception)))) - (if (macro-started-thread-exception? _e67205_) - (macro-started-thread-exception-arguments _e67205_) - (let ((__tmp68496 - (let ((__tmp68497 + (unchecked-slot-ref _exn67185_ 'exception)))) + (if (macro-started-thread-exception? _e67187_) + (macro-started-thread-exception-arguments _e67187_) + (let ((__tmp68478 + (let ((__tmp68479 (let () (declare (not safe)) - (cons _e67205_ '())))) + (cons _e67187_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp68497)))) + __tmp68479)))) (declare (not safe)) (error '"not an instance" 'started-thread-exception? - __tmp68496)))) - (if (macro-started-thread-exception? _exn67203_) - (macro-started-thread-exception-arguments _exn67203_) - (let ((__tmp68494 - (let ((__tmp68495 + __tmp68478)))) + (if (macro-started-thread-exception? _exn67185_) + (macro-started-thread-exception-arguments _exn67185_) + (let ((__tmp68476 + (let ((__tmp68477 (let () (declare (not safe)) - (cons _exn67203_ '())))) + (cons _exn67185_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp68495)))) + __tmp68477)))) (declare (not safe)) (error '"not an instance" 'started-thread-exception? - __tmp68494)))))) + __tmp68476)))))) (define started-thread-exception-procedure - (lambda (_exn67197_) + (lambda (_exn67179_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67197_)) - (let ((_e67200_ + (class-instance? RuntimeException::t _exn67179_)) + (let ((_e67182_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67197_ 'exception)))) - (if (macro-started-thread-exception? _e67200_) - (macro-started-thread-exception-procedure _e67200_) - (let ((__tmp68500 - (let ((__tmp68501 + (unchecked-slot-ref _exn67179_ 'exception)))) + (if (macro-started-thread-exception? _e67182_) + (macro-started-thread-exception-procedure _e67182_) + (let ((__tmp68482 + (let ((__tmp68483 (let () (declare (not safe)) - (cons _e67200_ '())))) + (cons _e67182_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp68501)))) + __tmp68483)))) (declare (not safe)) (error '"not an instance" 'started-thread-exception? - __tmp68500)))) - (if (macro-started-thread-exception? _exn67197_) - (macro-started-thread-exception-procedure _exn67197_) - (let ((__tmp68498 - (let ((__tmp68499 + __tmp68482)))) + (if (macro-started-thread-exception? _exn67179_) + (macro-started-thread-exception-procedure _exn67179_) + (let ((__tmp68480 + (let ((__tmp68481 (let () (declare (not safe)) - (cons _exn67197_ '())))) + (cons _exn67179_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp68499)))) + __tmp68481)))) (declare (not safe)) (error '"not an instance" 'started-thread-exception? - __tmp68498)))))) + __tmp68480)))))) (define terminated-thread-exception? - (lambda (_exn67193_) + (lambda (_exn67175_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67193_)) - (let ((_e67195_ + (class-instance? RuntimeException::t _exn67175_)) + (let ((_e67177_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67193_ 'exception)))) - (macro-terminated-thread-exception? _e67195_)) - (macro-terminated-thread-exception? _exn67193_)))) + (unchecked-slot-ref _exn67175_ 'exception)))) + (macro-terminated-thread-exception? _e67177_)) + (macro-terminated-thread-exception? _exn67175_)))) (define terminated-thread-exception-arguments - (lambda (_exn67189_) + (lambda (_exn67171_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67189_)) - (let ((_e67191_ + (class-instance? RuntimeException::t _exn67171_)) + (let ((_e67173_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67189_ 'exception)))) - (if (macro-terminated-thread-exception? _e67191_) - (macro-terminated-thread-exception-arguments _e67191_) - (let ((__tmp68504 - (let ((__tmp68505 + (unchecked-slot-ref _exn67171_ 'exception)))) + (if (macro-terminated-thread-exception? _e67173_) + (macro-terminated-thread-exception-arguments _e67173_) + (let ((__tmp68486 + (let ((__tmp68487 (let () (declare (not safe)) - (cons _e67191_ '())))) + (cons _e67173_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp68505)))) + __tmp68487)))) (declare (not safe)) (error '"not an instance" 'terminated-thread-exception? - __tmp68504)))) - (if (macro-terminated-thread-exception? _exn67189_) - (macro-terminated-thread-exception-arguments _exn67189_) - (let ((__tmp68502 - (let ((__tmp68503 + __tmp68486)))) + (if (macro-terminated-thread-exception? _exn67171_) + (macro-terminated-thread-exception-arguments _exn67171_) + (let ((__tmp68484 + (let ((__tmp68485 (let () (declare (not safe)) - (cons _exn67189_ '())))) + (cons _exn67171_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp68503)))) + __tmp68485)))) (declare (not safe)) (error '"not an instance" 'terminated-thread-exception? - __tmp68502)))))) + __tmp68484)))))) (define terminated-thread-exception-procedure - (lambda (_exn67183_) + (lambda (_exn67165_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67183_)) - (let ((_e67186_ + (class-instance? RuntimeException::t _exn67165_)) + (let ((_e67168_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67183_ 'exception)))) - (if (macro-terminated-thread-exception? _e67186_) - (macro-terminated-thread-exception-procedure _e67186_) - (let ((__tmp68508 - (let ((__tmp68509 + (unchecked-slot-ref _exn67165_ 'exception)))) + (if (macro-terminated-thread-exception? _e67168_) + (macro-terminated-thread-exception-procedure _e67168_) + (let ((__tmp68490 + (let ((__tmp68491 (let () (declare (not safe)) - (cons _e67186_ '())))) + (cons _e67168_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp68509)))) + __tmp68491)))) (declare (not safe)) (error '"not an instance" 'terminated-thread-exception? - __tmp68508)))) - (if (macro-terminated-thread-exception? _exn67183_) - (macro-terminated-thread-exception-procedure _exn67183_) - (let ((__tmp68506 - (let ((__tmp68507 + __tmp68490)))) + (if (macro-terminated-thread-exception? _exn67165_) + (macro-terminated-thread-exception-procedure _exn67165_) + (let ((__tmp68488 + (let ((__tmp68489 (let () (declare (not safe)) - (cons _exn67183_ '())))) + (cons _exn67165_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp68507)))) + __tmp68489)))) (declare (not safe)) (error '"not an instance" 'terminated-thread-exception? - __tmp68506)))))) + __tmp68488)))))) (define type-exception? - (lambda (_exn67179_) + (lambda (_exn67161_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67179_)) - (let ((_e67181_ + (class-instance? RuntimeException::t _exn67161_)) + (let ((_e67163_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67179_ 'exception)))) - (macro-type-exception? _e67181_)) - (macro-type-exception? _exn67179_)))) + (unchecked-slot-ref _exn67161_ 'exception)))) + (macro-type-exception? _e67163_)) + (macro-type-exception? _exn67161_)))) (define type-exception-arg-id - (lambda (_exn67175_) + (lambda (_exn67157_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67175_)) - (let ((_e67177_ + (class-instance? RuntimeException::t _exn67157_)) + (let ((_e67159_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67175_ 'exception)))) - (if (macro-type-exception? _e67177_) - (macro-type-exception-arg-id _e67177_) - (let ((__tmp68512 - (let ((__tmp68513 + (unchecked-slot-ref _exn67157_ 'exception)))) + (if (macro-type-exception? _e67159_) + (macro-type-exception-arg-id _e67159_) + (let ((__tmp68494 + (let ((__tmp68495 (let () (declare (not safe)) - (cons _e67177_ '())))) + (cons _e67159_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp68513)))) + (cons 'type-exception-arg-id __tmp68495)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp68512)))) - (if (macro-type-exception? _exn67175_) - (macro-type-exception-arg-id _exn67175_) - (let ((__tmp68510 - (let ((__tmp68511 + (error '"not an instance" 'type-exception? __tmp68494)))) + (if (macro-type-exception? _exn67157_) + (macro-type-exception-arg-id _exn67157_) + (let ((__tmp68492 + (let ((__tmp68493 (let () (declare (not safe)) - (cons _exn67175_ '())))) + (cons _exn67157_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp68511)))) + (cons 'type-exception-arg-id __tmp68493)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp68510)))))) + (error '"not an instance" 'type-exception? __tmp68492)))))) (define type-exception-arguments - (lambda (_exn67171_) + (lambda (_exn67153_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67171_)) - (let ((_e67173_ + (class-instance? RuntimeException::t _exn67153_)) + (let ((_e67155_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67171_ 'exception)))) - (if (macro-type-exception? _e67173_) - (macro-type-exception-arguments _e67173_) - (let ((__tmp68516 - (let ((__tmp68517 + (unchecked-slot-ref _exn67153_ 'exception)))) + (if (macro-type-exception? _e67155_) + (macro-type-exception-arguments _e67155_) + (let ((__tmp68498 + (let ((__tmp68499 (let () (declare (not safe)) - (cons _e67173_ '())))) + (cons _e67155_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp68517)))) + (cons 'type-exception-arguments __tmp68499)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp68516)))) - (if (macro-type-exception? _exn67171_) - (macro-type-exception-arguments _exn67171_) - (let ((__tmp68514 - (let ((__tmp68515 + (error '"not an instance" 'type-exception? __tmp68498)))) + (if (macro-type-exception? _exn67153_) + (macro-type-exception-arguments _exn67153_) + (let ((__tmp68496 + (let ((__tmp68497 (let () (declare (not safe)) - (cons _exn67171_ '())))) + (cons _exn67153_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp68515)))) + (cons 'type-exception-arguments __tmp68497)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp68514)))))) + (error '"not an instance" 'type-exception? __tmp68496)))))) (define type-exception-procedure - (lambda (_exn67167_) + (lambda (_exn67149_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67167_)) - (let ((_e67169_ + (class-instance? RuntimeException::t _exn67149_)) + (let ((_e67151_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67167_ 'exception)))) - (if (macro-type-exception? _e67169_) - (macro-type-exception-procedure _e67169_) - (let ((__tmp68520 - (let ((__tmp68521 + (unchecked-slot-ref _exn67149_ 'exception)))) + (if (macro-type-exception? _e67151_) + (macro-type-exception-procedure _e67151_) + (let ((__tmp68502 + (let ((__tmp68503 (let () (declare (not safe)) - (cons _e67169_ '())))) + (cons _e67151_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp68521)))) + (cons 'type-exception-procedure __tmp68503)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp68520)))) - (if (macro-type-exception? _exn67167_) - (macro-type-exception-procedure _exn67167_) - (let ((__tmp68518 - (let ((__tmp68519 + (error '"not an instance" 'type-exception? __tmp68502)))) + (if (macro-type-exception? _exn67149_) + (macro-type-exception-procedure _exn67149_) + (let ((__tmp68500 + (let ((__tmp68501 (let () (declare (not safe)) - (cons _exn67167_ '())))) + (cons _exn67149_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp68519)))) + (cons 'type-exception-procedure __tmp68501)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp68518)))))) + (error '"not an instance" 'type-exception? __tmp68500)))))) (define type-exception-type-id - (lambda (_exn67161_) + (lambda (_exn67143_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67161_)) - (let ((_e67164_ + (class-instance? RuntimeException::t _exn67143_)) + (let ((_e67146_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67161_ 'exception)))) - (if (macro-type-exception? _e67164_) - (macro-type-exception-type-id _e67164_) - (let ((__tmp68524 - (let ((__tmp68525 + (unchecked-slot-ref _exn67143_ 'exception)))) + (if (macro-type-exception? _e67146_) + (macro-type-exception-type-id _e67146_) + (let ((__tmp68506 + (let ((__tmp68507 (let () (declare (not safe)) - (cons _e67164_ '())))) + (cons _e67146_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp68525)))) + (cons 'type-exception-type-id __tmp68507)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp68524)))) - (if (macro-type-exception? _exn67161_) - (macro-type-exception-type-id _exn67161_) - (let ((__tmp68522 - (let ((__tmp68523 + (error '"not an instance" 'type-exception? __tmp68506)))) + (if (macro-type-exception? _exn67143_) + (macro-type-exception-type-id _exn67143_) + (let ((__tmp68504 + (let ((__tmp68505 (let () (declare (not safe)) - (cons _exn67161_ '())))) + (cons _exn67143_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp68523)))) + (cons 'type-exception-type-id __tmp68505)))) (declare (not safe)) - (error '"not an instance" 'type-exception? __tmp68522)))))) + (error '"not an instance" 'type-exception? __tmp68504)))))) (define unbound-global-exception? - (lambda (_exn67157_) + (lambda (_exn67139_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67157_)) - (let ((_e67159_ + (class-instance? RuntimeException::t _exn67139_)) + (let ((_e67141_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67157_ 'exception)))) - (macro-unbound-global-exception? _e67159_)) - (macro-unbound-global-exception? _exn67157_)))) + (unchecked-slot-ref _exn67139_ 'exception)))) + (macro-unbound-global-exception? _e67141_)) + (macro-unbound-global-exception? _exn67139_)))) (define unbound-global-exception-code - (lambda (_exn67153_) + (lambda (_exn67135_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67153_)) - (let ((_e67155_ + (class-instance? RuntimeException::t _exn67135_)) + (let ((_e67137_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67153_ 'exception)))) - (if (macro-unbound-global-exception? _e67155_) - (macro-unbound-global-exception-code _e67155_) - (let ((__tmp68528 - (let ((__tmp68529 + (unchecked-slot-ref _exn67135_ 'exception)))) + (if (macro-unbound-global-exception? _e67137_) + (macro-unbound-global-exception-code _e67137_) + (let ((__tmp68510 + (let ((__tmp68511 (let () (declare (not safe)) - (cons _e67155_ '())))) + (cons _e67137_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp68529)))) + (cons 'unbound-global-exception-code __tmp68511)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp68528)))) - (if (macro-unbound-global-exception? _exn67153_) - (macro-unbound-global-exception-code _exn67153_) - (let ((__tmp68526 - (let ((__tmp68527 + __tmp68510)))) + (if (macro-unbound-global-exception? _exn67135_) + (macro-unbound-global-exception-code _exn67135_) + (let ((__tmp68508 + (let ((__tmp68509 (let () (declare (not safe)) - (cons _exn67153_ '())))) + (cons _exn67135_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp68527)))) + (cons 'unbound-global-exception-code __tmp68509)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp68526)))))) + __tmp68508)))))) (define unbound-global-exception-rte - (lambda (_exn67149_) + (lambda (_exn67131_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67149_)) - (let ((_e67151_ + (class-instance? RuntimeException::t _exn67131_)) + (let ((_e67133_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67149_ 'exception)))) - (if (macro-unbound-global-exception? _e67151_) - (macro-unbound-global-exception-rte _e67151_) - (let ((__tmp68532 - (let ((__tmp68533 + (unchecked-slot-ref _exn67131_ 'exception)))) + (if (macro-unbound-global-exception? _e67133_) + (macro-unbound-global-exception-rte _e67133_) + (let ((__tmp68514 + (let ((__tmp68515 (let () (declare (not safe)) - (cons _e67151_ '())))) + (cons _e67133_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp68533)))) + (cons 'unbound-global-exception-rte __tmp68515)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp68532)))) - (if (macro-unbound-global-exception? _exn67149_) - (macro-unbound-global-exception-rte _exn67149_) - (let ((__tmp68530 - (let ((__tmp68531 + __tmp68514)))) + (if (macro-unbound-global-exception? _exn67131_) + (macro-unbound-global-exception-rte _exn67131_) + (let ((__tmp68512 + (let ((__tmp68513 (let () (declare (not safe)) - (cons _exn67149_ '())))) + (cons _exn67131_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp68531)))) + (cons 'unbound-global-exception-rte __tmp68513)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp68530)))))) + __tmp68512)))))) (define unbound-global-exception-variable - (lambda (_exn67143_) + (lambda (_exn67125_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67143_)) - (let ((_e67146_ + (class-instance? RuntimeException::t _exn67125_)) + (let ((_e67128_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67143_ 'exception)))) - (if (macro-unbound-global-exception? _e67146_) - (macro-unbound-global-exception-variable _e67146_) - (let ((__tmp68536 - (let ((__tmp68537 + (unchecked-slot-ref _exn67125_ 'exception)))) + (if (macro-unbound-global-exception? _e67128_) + (macro-unbound-global-exception-variable _e67128_) + (let ((__tmp68518 + (let ((__tmp68519 (let () (declare (not safe)) - (cons _e67146_ '())))) + (cons _e67128_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp68537)))) + __tmp68519)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp68536)))) - (if (macro-unbound-global-exception? _exn67143_) - (macro-unbound-global-exception-variable _exn67143_) - (let ((__tmp68534 - (let ((__tmp68535 + __tmp68518)))) + (if (macro-unbound-global-exception? _exn67125_) + (macro-unbound-global-exception-variable _exn67125_) + (let ((__tmp68516 + (let ((__tmp68517 (let () (declare (not safe)) - (cons _exn67143_ '())))) + (cons _exn67125_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp68535)))) + __tmp68517)))) (declare (not safe)) (error '"not an instance" 'unbound-global-exception? - __tmp68534)))))) + __tmp68516)))))) (define unbound-key-exception? - (lambda (_exn67139_) + (lambda (_exn67121_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67139_)) - (let ((_e67141_ + (class-instance? RuntimeException::t _exn67121_)) + (let ((_e67123_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67139_ 'exception)))) - (macro-unbound-key-exception? _e67141_)) - (macro-unbound-key-exception? _exn67139_)))) + (unchecked-slot-ref _exn67121_ 'exception)))) + (macro-unbound-key-exception? _e67123_)) + (macro-unbound-key-exception? _exn67121_)))) (define unbound-key-exception-arguments - (lambda (_exn67135_) + (lambda (_exn67117_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67135_)) - (let ((_e67137_ + (class-instance? RuntimeException::t _exn67117_)) + (let ((_e67119_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67135_ 'exception)))) - (if (macro-unbound-key-exception? _e67137_) - (macro-unbound-key-exception-arguments _e67137_) - (let ((__tmp68540 - (let ((__tmp68541 + (unchecked-slot-ref _exn67117_ 'exception)))) + (if (macro-unbound-key-exception? _e67119_) + (macro-unbound-key-exception-arguments _e67119_) + (let ((__tmp68522 + (let ((__tmp68523 (let () (declare (not safe)) - (cons _e67137_ '())))) + (cons _e67119_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp68541)))) + __tmp68523)))) (declare (not safe)) (error '"not an instance" 'unbound-key-exception? - __tmp68540)))) - (if (macro-unbound-key-exception? _exn67135_) - (macro-unbound-key-exception-arguments _exn67135_) - (let ((__tmp68538 - (let ((__tmp68539 + __tmp68522)))) + (if (macro-unbound-key-exception? _exn67117_) + (macro-unbound-key-exception-arguments _exn67117_) + (let ((__tmp68520 + (let ((__tmp68521 (let () (declare (not safe)) - (cons _exn67135_ '())))) + (cons _exn67117_ '())))) (declare (not safe)) - (cons 'unbound-key-exception-arguments __tmp68539)))) + (cons 'unbound-key-exception-arguments __tmp68521)))) (declare (not safe)) (error '"not an instance" 'unbound-key-exception? - __tmp68538)))))) + __tmp68520)))))) (define unbound-key-exception-procedure - (lambda (_exn67129_) + (lambda (_exn67111_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67129_)) - (let ((_e67132_ + (class-instance? RuntimeException::t _exn67111_)) + (let ((_e67114_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67129_ 'exception)))) - (if (macro-unbound-key-exception? _e67132_) - (macro-unbound-key-exception-procedure _e67132_) - (let ((__tmp68544 - (let ((__tmp68545 + (unchecked-slot-ref _exn67111_ 'exception)))) + (if (macro-unbound-key-exception? _e67114_) + (macro-unbound-key-exception-procedure _e67114_) + (let ((__tmp68526 + (let ((__tmp68527 (let () (declare (not safe)) - (cons _e67132_ '())))) + (cons _e67114_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp68545)))) + __tmp68527)))) (declare (not safe)) (error '"not an instance" 'unbound-key-exception? - __tmp68544)))) - (if (macro-unbound-key-exception? _exn67129_) - (macro-unbound-key-exception-procedure _exn67129_) - (let ((__tmp68542 - (let ((__tmp68543 + __tmp68526)))) + (if (macro-unbound-key-exception? _exn67111_) + (macro-unbound-key-exception-procedure _exn67111_) + (let ((__tmp68524 + (let ((__tmp68525 (let () (declare (not safe)) - (cons _exn67129_ '())))) + (cons _exn67111_ '())))) (declare (not safe)) - (cons 'unbound-key-exception-procedure __tmp68543)))) + (cons 'unbound-key-exception-procedure __tmp68525)))) (declare (not safe)) (error '"not an instance" 'unbound-key-exception? - __tmp68542)))))) + __tmp68524)))))) (define unbound-os-environment-variable-exception? - (lambda (_exn67125_) + (lambda (_exn67107_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67125_)) - (let ((_e67127_ + (class-instance? RuntimeException::t _exn67107_)) + (let ((_e67109_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67125_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _e67127_)) - (macro-unbound-os-environment-variable-exception? _exn67125_)))) + (unchecked-slot-ref _exn67107_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _e67109_)) + (macro-unbound-os-environment-variable-exception? _exn67107_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_exn67121_) + (lambda (_exn67103_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67121_)) - (let ((_e67123_ + (class-instance? RuntimeException::t _exn67103_)) + (let ((_e67105_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67121_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e67123_) + (unchecked-slot-ref _exn67103_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e67105_) (macro-unbound-os-environment-variable-exception-arguments - _e67123_) - (let ((__tmp68548 - (let ((__tmp68549 + _e67105_) + (let ((__tmp68530 + (let ((__tmp68531 (let () (declare (not safe)) - (cons _e67123_ '())))) + (cons _e67105_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp68549)))) + __tmp68531)))) (declare (not safe)) (error '"not an instance" 'unbound-os-environment-variable-exception? - __tmp68548)))) - (if (macro-unbound-os-environment-variable-exception? _exn67121_) + __tmp68530)))) + (if (macro-unbound-os-environment-variable-exception? _exn67103_) (macro-unbound-os-environment-variable-exception-arguments - _exn67121_) - (let ((__tmp68546 - (let ((__tmp68547 + _exn67103_) + (let ((__tmp68528 + (let ((__tmp68529 (let () (declare (not safe)) - (cons _exn67121_ '())))) + (cons _exn67103_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp68547)))) + __tmp68529)))) (declare (not safe)) (error '"not an instance" 'unbound-os-environment-variable-exception? - __tmp68546)))))) + __tmp68528)))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_exn67115_) + (lambda (_exn67097_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67115_)) - (let ((_e67118_ + (class-instance? RuntimeException::t _exn67097_)) + (let ((_e67100_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67115_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e67118_) + (unchecked-slot-ref _exn67097_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e67100_) (macro-unbound-os-environment-variable-exception-procedure - _e67118_) - (let ((__tmp68552 - (let ((__tmp68553 + _e67100_) + (let ((__tmp68534 + (let ((__tmp68535 (let () (declare (not safe)) - (cons _e67118_ '())))) + (cons _e67100_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp68553)))) + __tmp68535)))) (declare (not safe)) (error '"not an instance" 'unbound-os-environment-variable-exception? - __tmp68552)))) - (if (macro-unbound-os-environment-variable-exception? _exn67115_) + __tmp68534)))) + (if (macro-unbound-os-environment-variable-exception? _exn67097_) (macro-unbound-os-environment-variable-exception-procedure - _exn67115_) - (let ((__tmp68550 - (let ((__tmp68551 + _exn67097_) + (let ((__tmp68532 + (let ((__tmp68533 (let () (declare (not safe)) - (cons _exn67115_ '())))) + (cons _exn67097_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp68551)))) + __tmp68533)))) (declare (not safe)) (error '"not an instance" 'unbound-os-environment-variable-exception? - __tmp68550)))))) + __tmp68532)))))) (define unbound-serial-number-exception? - (lambda (_exn67111_) + (lambda (_exn67093_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67111_)) - (let ((_e67113_ + (class-instance? RuntimeException::t _exn67093_)) + (let ((_e67095_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67111_ 'exception)))) - (macro-unbound-serial-number-exception? _e67113_)) - (macro-unbound-serial-number-exception? _exn67111_)))) + (unchecked-slot-ref _exn67093_ 'exception)))) + (macro-unbound-serial-number-exception? _e67095_)) + (macro-unbound-serial-number-exception? _exn67093_)))) (define unbound-serial-number-exception-arguments - (lambda (_exn67107_) + (lambda (_exn67089_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67107_)) - (let ((_e67109_ + (class-instance? RuntimeException::t _exn67089_)) + (let ((_e67091_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67107_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e67109_) - (macro-unbound-serial-number-exception-arguments _e67109_) - (let ((__tmp68556 - (let ((__tmp68557 + (unchecked-slot-ref _exn67089_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e67091_) + (macro-unbound-serial-number-exception-arguments _e67091_) + (let ((__tmp68538 + (let ((__tmp68539 (let () (declare (not safe)) - (cons _e67109_ '())))) + (cons _e67091_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp68557)))) + __tmp68539)))) (declare (not safe)) (error '"not an instance" 'unbound-serial-number-exception? - __tmp68556)))) - (if (macro-unbound-serial-number-exception? _exn67107_) - (macro-unbound-serial-number-exception-arguments _exn67107_) - (let ((__tmp68554 - (let ((__tmp68555 + __tmp68538)))) + (if (macro-unbound-serial-number-exception? _exn67089_) + (macro-unbound-serial-number-exception-arguments _exn67089_) + (let ((__tmp68536 + (let ((__tmp68537 (let () (declare (not safe)) - (cons _exn67107_ '())))) + (cons _exn67089_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp68555)))) + __tmp68537)))) (declare (not safe)) (error '"not an instance" 'unbound-serial-number-exception? - __tmp68554)))))) + __tmp68536)))))) (define unbound-serial-number-exception-procedure - (lambda (_exn67101_) + (lambda (_exn67083_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67101_)) - (let ((_e67104_ + (class-instance? RuntimeException::t _exn67083_)) + (let ((_e67086_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67101_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e67104_) - (macro-unbound-serial-number-exception-procedure _e67104_) - (let ((__tmp68560 - (let ((__tmp68561 + (unchecked-slot-ref _exn67083_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e67086_) + (macro-unbound-serial-number-exception-procedure _e67086_) + (let ((__tmp68542 + (let ((__tmp68543 (let () (declare (not safe)) - (cons _e67104_ '())))) + (cons _e67086_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp68561)))) + __tmp68543)))) (declare (not safe)) (error '"not an instance" 'unbound-serial-number-exception? - __tmp68560)))) - (if (macro-unbound-serial-number-exception? _exn67101_) - (macro-unbound-serial-number-exception-procedure _exn67101_) - (let ((__tmp68558 - (let ((__tmp68559 + __tmp68542)))) + (if (macro-unbound-serial-number-exception? _exn67083_) + (macro-unbound-serial-number-exception-procedure _exn67083_) + (let ((__tmp68540 + (let ((__tmp68541 (let () (declare (not safe)) - (cons _exn67101_ '())))) + (cons _exn67083_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp68559)))) + __tmp68541)))) (declare (not safe)) (error '"not an instance" 'unbound-serial-number-exception? - __tmp68558)))))) + __tmp68540)))))) (define uncaught-exception? - (lambda (_exn67097_) + (lambda (_exn67079_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67097_)) - (let ((_e67099_ + (class-instance? RuntimeException::t _exn67079_)) + (let ((_e67081_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67097_ 'exception)))) - (macro-uncaught-exception? _e67099_)) - (macro-uncaught-exception? _exn67097_)))) + (unchecked-slot-ref _exn67079_ 'exception)))) + (macro-uncaught-exception? _e67081_)) + (macro-uncaught-exception? _exn67079_)))) (define uncaught-exception-arguments - (lambda (_exn67093_) + (lambda (_exn67075_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67093_)) - (let ((_e67095_ + (class-instance? RuntimeException::t _exn67075_)) + (let ((_e67077_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67093_ 'exception)))) - (if (macro-uncaught-exception? _e67095_) - (macro-uncaught-exception-arguments _e67095_) - (let ((__tmp68564 - (let ((__tmp68565 + (unchecked-slot-ref _exn67075_ 'exception)))) + (if (macro-uncaught-exception? _e67077_) + (macro-uncaught-exception-arguments _e67077_) + (let ((__tmp68546 + (let ((__tmp68547 (let () (declare (not safe)) - (cons _e67095_ '())))) + (cons _e67077_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp68565)))) + (cons 'uncaught-exception-arguments __tmp68547)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp68564)))) - (if (macro-uncaught-exception? _exn67093_) - (macro-uncaught-exception-arguments _exn67093_) - (let ((__tmp68562 - (let ((__tmp68563 + __tmp68546)))) + (if (macro-uncaught-exception? _exn67075_) + (macro-uncaught-exception-arguments _exn67075_) + (let ((__tmp68544 + (let ((__tmp68545 (let () (declare (not safe)) - (cons _exn67093_ '())))) + (cons _exn67075_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp68563)))) + (cons 'uncaught-exception-arguments __tmp68545)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp68562)))))) + __tmp68544)))))) (define uncaught-exception-procedure - (lambda (_exn67089_) + (lambda (_exn67071_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67089_)) - (let ((_e67091_ + (class-instance? RuntimeException::t _exn67071_)) + (let ((_e67073_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67089_ 'exception)))) - (if (macro-uncaught-exception? _e67091_) - (macro-uncaught-exception-procedure _e67091_) - (let ((__tmp68568 - (let ((__tmp68569 + (unchecked-slot-ref _exn67071_ 'exception)))) + (if (macro-uncaught-exception? _e67073_) + (macro-uncaught-exception-procedure _e67073_) + (let ((__tmp68550 + (let ((__tmp68551 (let () (declare (not safe)) - (cons _e67091_ '())))) + (cons _e67073_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp68569)))) + (cons 'uncaught-exception-procedure __tmp68551)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp68568)))) - (if (macro-uncaught-exception? _exn67089_) - (macro-uncaught-exception-procedure _exn67089_) - (let ((__tmp68566 - (let ((__tmp68567 + __tmp68550)))) + (if (macro-uncaught-exception? _exn67071_) + (macro-uncaught-exception-procedure _exn67071_) + (let ((__tmp68548 + (let ((__tmp68549 (let () (declare (not safe)) - (cons _exn67089_ '())))) + (cons _exn67071_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp68567)))) + (cons 'uncaught-exception-procedure __tmp68549)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp68566)))))) + __tmp68548)))))) (define uncaught-exception-reason - (lambda (_exn67083_) + (lambda (_exn67065_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67083_)) - (let ((_e67086_ + (class-instance? RuntimeException::t _exn67065_)) + (let ((_e67068_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67083_ 'exception)))) - (if (macro-uncaught-exception? _e67086_) - (macro-uncaught-exception-reason _e67086_) - (let ((__tmp68572 - (let ((__tmp68573 + (unchecked-slot-ref _exn67065_ 'exception)))) + (if (macro-uncaught-exception? _e67068_) + (macro-uncaught-exception-reason _e67068_) + (let ((__tmp68554 + (let ((__tmp68555 (let () (declare (not safe)) - (cons _e67086_ '())))) + (cons _e67068_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp68573)))) + (cons 'uncaught-exception-reason __tmp68555)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp68572)))) - (if (macro-uncaught-exception? _exn67083_) - (macro-uncaught-exception-reason _exn67083_) - (let ((__tmp68570 - (let ((__tmp68571 + __tmp68554)))) + (if (macro-uncaught-exception? _exn67065_) + (macro-uncaught-exception-reason _exn67065_) + (let ((__tmp68552 + (let ((__tmp68553 (let () (declare (not safe)) - (cons _exn67083_ '())))) + (cons _exn67065_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp68571)))) + (cons 'uncaught-exception-reason __tmp68553)))) (declare (not safe)) (error '"not an instance" 'uncaught-exception? - __tmp68570)))))) + __tmp68552)))))) (define uninitialized-thread-exception? - (lambda (_exn67079_) + (lambda (_exn67061_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67079_)) - (let ((_e67081_ + (class-instance? RuntimeException::t _exn67061_)) + (let ((_e67063_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67079_ 'exception)))) - (macro-uninitialized-thread-exception? _e67081_)) - (macro-uninitialized-thread-exception? _exn67079_)))) + (unchecked-slot-ref _exn67061_ 'exception)))) + (macro-uninitialized-thread-exception? _e67063_)) + (macro-uninitialized-thread-exception? _exn67061_)))) (define uninitialized-thread-exception-arguments - (lambda (_exn67075_) + (lambda (_exn67057_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67075_)) - (let ((_e67077_ + (class-instance? RuntimeException::t _exn67057_)) + (let ((_e67059_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67075_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e67077_) - (macro-uninitialized-thread-exception-arguments _e67077_) - (let ((__tmp68576 - (let ((__tmp68577 + (unchecked-slot-ref _exn67057_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e67059_) + (macro-uninitialized-thread-exception-arguments _e67059_) + (let ((__tmp68558 + (let ((__tmp68559 (let () (declare (not safe)) - (cons _e67077_ '())))) + (cons _e67059_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp68577)))) + __tmp68559)))) (declare (not safe)) (error '"not an instance" 'uninitialized-thread-exception? - __tmp68576)))) - (if (macro-uninitialized-thread-exception? _exn67075_) - (macro-uninitialized-thread-exception-arguments _exn67075_) - (let ((__tmp68574 - (let ((__tmp68575 + __tmp68558)))) + (if (macro-uninitialized-thread-exception? _exn67057_) + (macro-uninitialized-thread-exception-arguments _exn67057_) + (let ((__tmp68556 + (let ((__tmp68557 (let () (declare (not safe)) - (cons _exn67075_ '())))) + (cons _exn67057_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp68575)))) + __tmp68557)))) (declare (not safe)) (error '"not an instance" 'uninitialized-thread-exception? - __tmp68574)))))) + __tmp68556)))))) (define uninitialized-thread-exception-procedure - (lambda (_exn67069_) + (lambda (_exn67051_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67069_)) - (let ((_e67072_ + (class-instance? RuntimeException::t _exn67051_)) + (let ((_e67054_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67069_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e67072_) - (macro-uninitialized-thread-exception-procedure _e67072_) - (let ((__tmp68580 - (let ((__tmp68581 + (unchecked-slot-ref _exn67051_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e67054_) + (macro-uninitialized-thread-exception-procedure _e67054_) + (let ((__tmp68562 + (let ((__tmp68563 (let () (declare (not safe)) - (cons _e67072_ '())))) + (cons _e67054_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp68581)))) + __tmp68563)))) (declare (not safe)) (error '"not an instance" 'uninitialized-thread-exception? - __tmp68580)))) - (if (macro-uninitialized-thread-exception? _exn67069_) - (macro-uninitialized-thread-exception-procedure _exn67069_) - (let ((__tmp68578 - (let ((__tmp68579 + __tmp68562)))) + (if (macro-uninitialized-thread-exception? _exn67051_) + (macro-uninitialized-thread-exception-procedure _exn67051_) + (let ((__tmp68560 + (let ((__tmp68561 (let () (declare (not safe)) - (cons _exn67069_ '())))) + (cons _exn67051_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp68579)))) + __tmp68561)))) (declare (not safe)) (error '"not an instance" 'uninitialized-thread-exception? - __tmp68578)))))) + __tmp68560)))))) (define unknown-keyword-argument-exception? - (lambda (_exn67065_) + (lambda (_exn67047_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67065_)) - (let ((_e67067_ + (class-instance? RuntimeException::t _exn67047_)) + (let ((_e67049_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67065_ 'exception)))) - (macro-unknown-keyword-argument-exception? _e67067_)) - (macro-unknown-keyword-argument-exception? _exn67065_)))) + (unchecked-slot-ref _exn67047_ 'exception)))) + (macro-unknown-keyword-argument-exception? _e67049_)) + (macro-unknown-keyword-argument-exception? _exn67047_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_exn67061_) + (lambda (_exn67043_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67061_)) - (let ((_e67063_ + (class-instance? RuntimeException::t _exn67043_)) + (let ((_e67045_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67061_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e67063_) - (macro-unknown-keyword-argument-exception-arguments _e67063_) - (let ((__tmp68584 - (let ((__tmp68585 + (unchecked-slot-ref _exn67043_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e67045_) + (macro-unknown-keyword-argument-exception-arguments _e67045_) + (let ((__tmp68566 + (let ((__tmp68567 (let () (declare (not safe)) - (cons _e67063_ '())))) + (cons _e67045_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp68585)))) + __tmp68567)))) (declare (not safe)) (error '"not an instance" 'unknown-keyword-argument-exception? - __tmp68584)))) - (if (macro-unknown-keyword-argument-exception? _exn67061_) - (macro-unknown-keyword-argument-exception-arguments _exn67061_) - (let ((__tmp68582 - (let ((__tmp68583 + __tmp68566)))) + (if (macro-unknown-keyword-argument-exception? _exn67043_) + (macro-unknown-keyword-argument-exception-arguments _exn67043_) + (let ((__tmp68564 + (let ((__tmp68565 (let () (declare (not safe)) - (cons _exn67061_ '())))) + (cons _exn67043_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp68583)))) + __tmp68565)))) (declare (not safe)) (error '"not an instance" 'unknown-keyword-argument-exception? - __tmp68582)))))) + __tmp68564)))))) (define unknown-keyword-argument-exception-procedure - (lambda (_exn67055_) + (lambda (_exn67037_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67055_)) - (let ((_e67058_ + (class-instance? RuntimeException::t _exn67037_)) + (let ((_e67040_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67055_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e67058_) - (macro-unknown-keyword-argument-exception-procedure _e67058_) - (let ((__tmp68588 - (let ((__tmp68589 + (unchecked-slot-ref _exn67037_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e67040_) + (macro-unknown-keyword-argument-exception-procedure _e67040_) + (let ((__tmp68570 + (let ((__tmp68571 (let () (declare (not safe)) - (cons _e67058_ '())))) + (cons _e67040_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp68589)))) + __tmp68571)))) (declare (not safe)) (error '"not an instance" 'unknown-keyword-argument-exception? - __tmp68588)))) - (if (macro-unknown-keyword-argument-exception? _exn67055_) - (macro-unknown-keyword-argument-exception-procedure _exn67055_) - (let ((__tmp68586 - (let ((__tmp68587 + __tmp68570)))) + (if (macro-unknown-keyword-argument-exception? _exn67037_) + (macro-unknown-keyword-argument-exception-procedure _exn67037_) + (let ((__tmp68568 + (let ((__tmp68569 (let () (declare (not safe)) - (cons _exn67055_ '())))) + (cons _exn67037_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp68587)))) + __tmp68569)))) (declare (not safe)) (error '"not an instance" 'unknown-keyword-argument-exception? - __tmp68586)))))) + __tmp68568)))))) (define unterminated-process-exception? - (lambda (_exn67051_) + (lambda (_exn67033_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67051_)) - (let ((_e67053_ + (class-instance? RuntimeException::t _exn67033_)) + (let ((_e67035_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67051_ 'exception)))) - (macro-unterminated-process-exception? _e67053_)) - (macro-unterminated-process-exception? _exn67051_)))) + (unchecked-slot-ref _exn67033_ 'exception)))) + (macro-unterminated-process-exception? _e67035_)) + (macro-unterminated-process-exception? _exn67033_)))) (define unterminated-process-exception-arguments - (lambda (_exn67047_) + (lambda (_exn67029_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67047_)) - (let ((_e67049_ + (class-instance? RuntimeException::t _exn67029_)) + (let ((_e67031_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67047_ 'exception)))) - (if (macro-unterminated-process-exception? _e67049_) - (macro-unterminated-process-exception-arguments _e67049_) - (let ((__tmp68592 - (let ((__tmp68593 + (unchecked-slot-ref _exn67029_ 'exception)))) + (if (macro-unterminated-process-exception? _e67031_) + (macro-unterminated-process-exception-arguments _e67031_) + (let ((__tmp68574 + (let ((__tmp68575 (let () (declare (not safe)) - (cons _e67049_ '())))) + (cons _e67031_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp68593)))) + __tmp68575)))) (declare (not safe)) (error '"not an instance" 'unterminated-process-exception? - __tmp68592)))) - (if (macro-unterminated-process-exception? _exn67047_) - (macro-unterminated-process-exception-arguments _exn67047_) - (let ((__tmp68590 - (let ((__tmp68591 + __tmp68574)))) + (if (macro-unterminated-process-exception? _exn67029_) + (macro-unterminated-process-exception-arguments _exn67029_) + (let ((__tmp68572 + (let ((__tmp68573 (let () (declare (not safe)) - (cons _exn67047_ '())))) + (cons _exn67029_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp68591)))) + __tmp68573)))) (declare (not safe)) (error '"not an instance" 'unterminated-process-exception? - __tmp68590)))))) + __tmp68572)))))) (define unterminated-process-exception-procedure - (lambda (_exn67041_) + (lambda (_exn67023_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67041_)) - (let ((_e67044_ + (class-instance? RuntimeException::t _exn67023_)) + (let ((_e67026_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67041_ 'exception)))) - (if (macro-unterminated-process-exception? _e67044_) - (macro-unterminated-process-exception-procedure _e67044_) - (let ((__tmp68596 - (let ((__tmp68597 + (unchecked-slot-ref _exn67023_ 'exception)))) + (if (macro-unterminated-process-exception? _e67026_) + (macro-unterminated-process-exception-procedure _e67026_) + (let ((__tmp68578 + (let ((__tmp68579 (let () (declare (not safe)) - (cons _e67044_ '())))) + (cons _e67026_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp68597)))) + __tmp68579)))) (declare (not safe)) (error '"not an instance" 'unterminated-process-exception? - __tmp68596)))) - (if (macro-unterminated-process-exception? _exn67041_) - (macro-unterminated-process-exception-procedure _exn67041_) - (let ((__tmp68594 - (let ((__tmp68595 + __tmp68578)))) + (if (macro-unterminated-process-exception? _exn67023_) + (macro-unterminated-process-exception-procedure _exn67023_) + (let ((__tmp68576 + (let ((__tmp68577 (let () (declare (not safe)) - (cons _exn67041_ '())))) + (cons _exn67023_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp68595)))) + __tmp68577)))) (declare (not safe)) (error '"not an instance" 'unterminated-process-exception? - __tmp68594)))))) + __tmp68576)))))) (define wrong-number-of-arguments-exception? - (lambda (_exn67037_) + (lambda (_exn67019_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67037_)) - (let ((_e67039_ + (class-instance? RuntimeException::t _exn67019_)) + (let ((_e67021_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67037_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _e67039_)) - (macro-wrong-number-of-arguments-exception? _exn67037_)))) + (unchecked-slot-ref _exn67019_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _e67021_)) + (macro-wrong-number-of-arguments-exception? _exn67019_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_exn67033_) + (lambda (_exn67015_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67033_)) - (let ((_e67035_ + (class-instance? RuntimeException::t _exn67015_)) + (let ((_e67017_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67033_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e67035_) + (unchecked-slot-ref _exn67015_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e67017_) (macro-wrong-number-of-arguments-exception-arguments - _e67035_) - (let ((__tmp68600 - (let ((__tmp68601 + _e67017_) + (let ((__tmp68582 + (let ((__tmp68583 (let () (declare (not safe)) - (cons _e67035_ '())))) + (cons _e67017_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp68601)))) + __tmp68583)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-arguments-exception? - __tmp68600)))) - (if (macro-wrong-number-of-arguments-exception? _exn67033_) + __tmp68582)))) + (if (macro-wrong-number-of-arguments-exception? _exn67015_) (macro-wrong-number-of-arguments-exception-arguments - _exn67033_) - (let ((__tmp68598 - (let ((__tmp68599 + _exn67015_) + (let ((__tmp68580 + (let ((__tmp68581 (let () (declare (not safe)) - (cons _exn67033_ '())))) + (cons _exn67015_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp68599)))) + __tmp68581)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-arguments-exception? - __tmp68598)))))) + __tmp68580)))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_exn67027_) + (lambda (_exn67009_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67027_)) - (let ((_e67030_ + (class-instance? RuntimeException::t _exn67009_)) + (let ((_e67012_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67027_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e67030_) + (unchecked-slot-ref _exn67009_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e67012_) (macro-wrong-number-of-arguments-exception-procedure - _e67030_) - (let ((__tmp68604 - (let ((__tmp68605 + _e67012_) + (let ((__tmp68586 + (let ((__tmp68587 (let () (declare (not safe)) - (cons _e67030_ '())))) + (cons _e67012_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp68605)))) + __tmp68587)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-arguments-exception? - __tmp68604)))) - (if (macro-wrong-number-of-arguments-exception? _exn67027_) + __tmp68586)))) + (if (macro-wrong-number-of-arguments-exception? _exn67009_) (macro-wrong-number-of-arguments-exception-procedure - _exn67027_) - (let ((__tmp68602 - (let ((__tmp68603 + _exn67009_) + (let ((__tmp68584 + (let ((__tmp68585 (let () (declare (not safe)) - (cons _exn67027_ '())))) + (cons _exn67009_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp68603)))) + __tmp68585)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-arguments-exception? - __tmp68602)))))) + __tmp68584)))))) (define wrong-number-of-values-exception? - (lambda (_exn67023_) + (lambda (_exn67005_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67023_)) - (let ((_e67025_ + (class-instance? RuntimeException::t _exn67005_)) + (let ((_e67007_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67023_ 'exception)))) - (macro-wrong-number-of-values-exception? _e67025_)) - (macro-wrong-number-of-values-exception? _exn67023_)))) + (unchecked-slot-ref _exn67005_ 'exception)))) + (macro-wrong-number-of-values-exception? _e67007_)) + (macro-wrong-number-of-values-exception? _exn67005_)))) (define wrong-number-of-values-exception-code - (lambda (_exn67019_) + (lambda (_exn67001_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67019_)) - (let ((_e67021_ + (class-instance? RuntimeException::t _exn67001_)) + (let ((_e67003_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67019_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e67021_) - (macro-wrong-number-of-values-exception-code _e67021_) - (let ((__tmp68608 - (let ((__tmp68609 + (unchecked-slot-ref _exn67001_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e67003_) + (macro-wrong-number-of-values-exception-code _e67003_) + (let ((__tmp68590 + (let ((__tmp68591 (let () (declare (not safe)) - (cons _e67021_ '())))) + (cons _e67003_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp68609)))) + __tmp68591)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp68608)))) - (if (macro-wrong-number-of-values-exception? _exn67019_) - (macro-wrong-number-of-values-exception-code _exn67019_) - (let ((__tmp68606 - (let ((__tmp68607 + __tmp68590)))) + (if (macro-wrong-number-of-values-exception? _exn67001_) + (macro-wrong-number-of-values-exception-code _exn67001_) + (let ((__tmp68588 + (let ((__tmp68589 (let () (declare (not safe)) - (cons _exn67019_ '())))) + (cons _exn67001_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp68607)))) + __tmp68589)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp68606)))))) + __tmp68588)))))) (define wrong-number-of-values-exception-rte - (lambda (_exn67015_) + (lambda (_exn66997_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67015_)) - (let ((_e67017_ + (class-instance? RuntimeException::t _exn66997_)) + (let ((_e66999_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67015_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e67017_) - (macro-wrong-number-of-values-exception-rte _e67017_) - (let ((__tmp68612 - (let ((__tmp68613 + (unchecked-slot-ref _exn66997_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e66999_) + (macro-wrong-number-of-values-exception-rte _e66999_) + (let ((__tmp68594 + (let ((__tmp68595 (let () (declare (not safe)) - (cons _e67017_ '())))) + (cons _e66999_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp68613)))) + __tmp68595)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp68612)))) - (if (macro-wrong-number-of-values-exception? _exn67015_) - (macro-wrong-number-of-values-exception-rte _exn67015_) - (let ((__tmp68610 - (let ((__tmp68611 + __tmp68594)))) + (if (macro-wrong-number-of-values-exception? _exn66997_) + (macro-wrong-number-of-values-exception-rte _exn66997_) + (let ((__tmp68592 + (let ((__tmp68593 (let () (declare (not safe)) - (cons _exn67015_ '())))) + (cons _exn66997_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp68611)))) + __tmp68593)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp68610)))))) + __tmp68592)))))) (define wrong-number-of-values-exception-vals - (lambda (_exn67009_) + (lambda (_exn66991_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67009_)) - (let ((_e67012_ + (class-instance? RuntimeException::t _exn66991_)) + (let ((_e66994_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67009_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e67012_) - (macro-wrong-number-of-values-exception-vals _e67012_) - (let ((__tmp68616 - (let ((__tmp68617 + (unchecked-slot-ref _exn66991_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e66994_) + (macro-wrong-number-of-values-exception-vals _e66994_) + (let ((__tmp68598 + (let ((__tmp68599 (let () (declare (not safe)) - (cons _e67012_ '())))) + (cons _e66994_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp68617)))) + __tmp68599)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp68616)))) - (if (macro-wrong-number-of-values-exception? _exn67009_) - (macro-wrong-number-of-values-exception-vals _exn67009_) - (let ((__tmp68614 - (let ((__tmp68615 + __tmp68598)))) + (if (macro-wrong-number-of-values-exception? _exn66991_) + (macro-wrong-number-of-values-exception-vals _exn66991_) + (let ((__tmp68596 + (let ((__tmp68597 (let () (declare (not safe)) - (cons _exn67009_ '())))) + (cons _exn66991_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp68615)))) + __tmp68597)))) (declare (not safe)) (error '"not an instance" 'wrong-number-of-values-exception? - __tmp68614)))))) + __tmp68596)))))) (define wrong-processor-c-return-exception? - (lambda (_exn67003_) + (lambda (_exn66985_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn67003_)) - (let ((_e67006_ + (class-instance? RuntimeException::t _exn66985_)) + (let ((_e66988_ (let () (declare (not safe)) - (unchecked-slot-ref _exn67003_ 'exception)))) - (macro-wrong-processor-c-return-exception? _e67006_)) - (macro-wrong-processor-c-return-exception? _exn67003_)))))) + (unchecked-slot-ref _exn66985_ 'exception)))) + (macro-wrong-processor-c-return-exception? _e66988_)) + (macro-wrong-processor-c-return-exception? _exn66985_)))))) diff --git a/src/bootstrap/gerbil/runtime/error~1.scm b/src/bootstrap/gerbil/runtime/error~1.scm index 381b54090..791deae06 100644 --- a/src/bootstrap/gerbil/runtime/error~1.scm +++ b/src/bootstrap/gerbil/runtime/error~1.scm @@ -1,293 +1,293 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g68619_| + (define |[1]#_g68601_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g68621_| + (define |[1]#_g68603_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g68623_| + (define |[1]#_g68605_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g68625_| + (define |[1]#_g68607_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g68627_| + (define |[1]#_g68609_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g68629_| + (define |[1]#_g68611_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g68633_| + (define |[1]#_g68615_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g68637_| + (define |[1]#_g68619_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68641_| + (define |[1]#_g68623_| (##structure gx#syntax-quote::t '&StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g68645_| + (define |[1]#_g68627_| (##structure gx#syntax-quote::t '&StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68649_| + (define |[1]#_g68631_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g68651_| + (define |[1]#_g68633_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g68653_| + (define |[1]#_g68635_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g68655_| + (define |[1]#_g68637_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g68657_| + (define |[1]#_g68639_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g68664_| + (define |[1]#_g68646_| (##structure gx#syntax-quote::t 'Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g68667_| + (define |[1]#_g68649_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g68670_| + (define |[1]#_g68652_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g68673_| + (define |[1]#_g68655_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g68680_| + (define |[1]#_g68662_| (##structure gx#syntax-quote::t 'Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68683_| + (define |[1]#_g68665_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68686_| + (define |[1]#_g68668_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68689_| + (define |[1]#_g68671_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68696_| + (define |[1]#_g68678_| (##structure gx#syntax-quote::t '&Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g68699_| + (define |[1]#_g68681_| (##structure gx#syntax-quote::t '&Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g68702_| + (define |[1]#_g68684_| (##structure gx#syntax-quote::t '&Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g68705_| + (define |[1]#_g68687_| (##structure gx#syntax-quote::t '&Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g68712_| + (define |[1]#_g68694_| (##structure gx#syntax-quote::t '&Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68715_| + (define |[1]#_g68697_| (##structure gx#syntax-quote::t '&Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68718_| + (define |[1]#_g68700_| (##structure gx#syntax-quote::t '&Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68721_| + (define |[1]#_g68703_| (##structure gx#syntax-quote::t '&Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68727_| + (define |[1]#_g68709_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g68729_| + (define |[1]#_g68711_| (##structure gx#syntax-quote::t 'make-RuntimeException #f (gx#current-expander-context) '())) - (define |[1]#_g68731_| + (define |[1]#_g68713_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g68736_| + (define |[1]#_g68718_| (##structure gx#syntax-quote::t 'RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g68739_| + (define |[1]#_g68721_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g68744_| + (define |[1]#_g68726_| (##structure gx#syntax-quote::t 'RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68747_| + (define |[1]#_g68729_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68752_| + (define |[1]#_g68734_| (##structure gx#syntax-quote::t '&RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g68755_| + (define |[1]#_g68737_| (##structure gx#syntax-quote::t '&RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g68760_| + (define |[1]#_g68742_| (##structure gx#syntax-quote::t '&RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g68763_| + (define |[1]#_g68745_| (##structure gx#syntax-quote::t '&RuntimeException-exception-set! @@ -296,7 +296,7 @@ '())) (begin (define |[:0:]#Exception| - (let ((__obj68191 + (let ((__obj68173 (let () (declare (not safe)) (##structure @@ -320,7 +320,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68191 + __obj68173 'gerbil/runtime/error#Exception::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -328,7 +328,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68191 + __obj68173 'Exception '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -336,7 +336,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68191 + __obj68173 '() '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -344,7 +344,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68191 + __obj68173 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -352,7 +352,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68191 + __obj68173 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -360,7 +360,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68191 + __obj68173 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -368,7 +368,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68191 + __obj68173 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -376,39 +376,39 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68191 + __obj68173 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68618 |[1]#_g68619_|)) + (let ((__tmp68600 |[1]#_g68601_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68191 - __tmp68618 + __obj68173 + __tmp68600 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68620 |[1]#_g68621_|)) + (let ((__tmp68602 |[1]#_g68603_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68191 - __tmp68620 + __obj68173 + __tmp68602 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68622 |[1]#_g68623_|)) + (let ((__tmp68604 |[1]#_g68605_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68191 - __tmp68622 + __obj68173 + __tmp68604 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj68191 + __obj68173 '() '13 gerbil/core/mop~MOP-2#class-type-info::t @@ -416,7 +416,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68191 + __obj68173 '() '14 gerbil/core/mop~MOP-2#class-type-info::t @@ -424,7 +424,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68191 + __obj68173 '() '15 gerbil/core/mop~MOP-2#class-type-info::t @@ -432,14 +432,14 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68191 + __obj68173 '() '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj68191)) + __obj68173)) (define |[:0:]#StackTrace| - (let ((__obj68192 + (let ((__obj68174 (let () (declare (not safe)) (##structure @@ -463,7 +463,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68192 + __obj68174 'gerbil/runtime/error#StackTrace::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -471,7 +471,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68192 + __obj68174 'StackTrace '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -479,7 +479,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68192 + __obj68174 '(continuation) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -487,7 +487,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68192 + __obj68174 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -495,7 +495,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68192 + __obj68174 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -503,7 +503,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68192 + __obj68174 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -511,7 +511,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68192 + __obj68174 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -519,94 +519,94 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68192 + __obj68174 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68624 |[1]#_g68625_|)) + (let ((__tmp68606 |[1]#_g68607_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68192 - __tmp68624 + __obj68174 + __tmp68606 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68626 |[1]#_g68627_|)) + (let ((__tmp68608 |[1]#_g68609_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68192 - __tmp68626 + __obj68174 + __tmp68608 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68628 |[1]#_g68629_|)) + (let ((__tmp68610 |[1]#_g68611_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68192 - __tmp68628 + __obj68174 + __tmp68610 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68630 - (let ((__tmp68631 - (let ((__tmp68632 |[1]#_g68633_|)) + (let ((__tmp68612 + (let ((__tmp68613 + (let ((__tmp68614 |[1]#_g68615_|)) (declare (not safe)) - (cons 'continuation __tmp68632)))) + (cons 'continuation __tmp68614)))) (declare (not safe)) - (cons __tmp68631 '())))) + (cons __tmp68613 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj68192 - __tmp68630 + __obj68174 + __tmp68612 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68634 - (let ((__tmp68635 - (let ((__tmp68636 |[1]#_g68637_|)) + (let ((__tmp68616 + (let ((__tmp68617 + (let ((__tmp68618 |[1]#_g68619_|)) (declare (not safe)) - (cons 'continuation __tmp68636)))) + (cons 'continuation __tmp68618)))) (declare (not safe)) - (cons __tmp68635 '())))) + (cons __tmp68617 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj68192 - __tmp68634 + __obj68174 + __tmp68616 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68638 - (let ((__tmp68639 - (let ((__tmp68640 |[1]#_g68641_|)) + (let ((__tmp68620 + (let ((__tmp68621 + (let ((__tmp68622 |[1]#_g68623_|)) (declare (not safe)) - (cons 'continuation __tmp68640)))) + (cons 'continuation __tmp68622)))) (declare (not safe)) - (cons __tmp68639 '())))) + (cons __tmp68621 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj68192 - __tmp68638 + __obj68174 + __tmp68620 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68642 - (let ((__tmp68643 - (let ((__tmp68644 |[1]#_g68645_|)) + (let ((__tmp68624 + (let ((__tmp68625 + (let ((__tmp68626 |[1]#_g68627_|)) (declare (not safe)) - (cons 'continuation __tmp68644)))) + (cons 'continuation __tmp68626)))) (declare (not safe)) - (cons __tmp68643 '())))) + (cons __tmp68625 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj68192 - __tmp68642 + __obj68174 + __tmp68624 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj68192)) + __obj68174)) (define |[:0:]#Error| - (let ((__obj68193 + (let ((__obj68175 (let () (declare (not safe)) (##structure @@ -630,7 +630,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68193 + __obj68175 'gerbil/runtime/error#Error::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -638,7 +638,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68193 + __obj68175 'Error '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -646,30 +646,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68193 + __obj68175 '(message irritants where) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68646 - (let ((__tmp68650 |[1]#_g68651_|) - (__tmp68647 - (let ((__tmp68648 |[1]#_g68649_|)) + (let ((__tmp68628 + (let ((__tmp68632 |[1]#_g68633_|) + (__tmp68629 + (let ((__tmp68630 |[1]#_g68631_|)) (declare (not safe)) - (cons __tmp68648 '())))) + (cons __tmp68630 '())))) (declare (not safe)) - (cons __tmp68650 __tmp68647)))) + (cons __tmp68632 __tmp68629)))) (declare (not safe)) (##unchecked-structure-set! - __obj68193 - __tmp68646 + __obj68175 + __tmp68628 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj68193 + __obj68175 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -677,7 +677,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68193 + __obj68175 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -685,7 +685,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68193 + __obj68175 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -693,178 +693,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68193 + __obj68175 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68652 |[1]#_g68653_|)) + (let ((__tmp68634 |[1]#_g68635_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68193 - __tmp68652 + __obj68175 + __tmp68634 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68654 |[1]#_g68655_|)) + (let ((__tmp68636 |[1]#_g68637_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68193 - __tmp68654 + __obj68175 + __tmp68636 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68656 |[1]#_g68657_|)) + (let ((__tmp68638 |[1]#_g68639_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68193 - __tmp68656 + __obj68175 + __tmp68638 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68658 - (let ((__tmp68671 - (let ((__tmp68672 |[1]#_g68673_|)) + (let ((__tmp68640 + (let ((__tmp68653 + (let ((__tmp68654 |[1]#_g68655_|)) (declare (not safe)) - (cons 'message __tmp68672))) - (__tmp68659 - (let ((__tmp68668 - (let ((__tmp68669 |[1]#_g68670_|)) + (cons 'message __tmp68654))) + (__tmp68641 + (let ((__tmp68650 + (let ((__tmp68651 |[1]#_g68652_|)) (declare (not safe)) - (cons 'irritants __tmp68669))) - (__tmp68660 - (let ((__tmp68665 - (let ((__tmp68666 |[1]#_g68667_|)) + (cons 'irritants __tmp68651))) + (__tmp68642 + (let ((__tmp68647 + (let ((__tmp68648 |[1]#_g68649_|)) (declare (not safe)) - (cons 'where __tmp68666))) - (__tmp68661 - (let ((__tmp68662 - (let ((__tmp68663 |[1]#_g68664_|)) + (cons 'where __tmp68648))) + (__tmp68643 + (let ((__tmp68644 + (let ((__tmp68645 |[1]#_g68646_|)) (declare (not safe)) - (cons 'continuation __tmp68663)))) + (cons 'continuation __tmp68645)))) (declare (not safe)) - (cons __tmp68662 '())))) + (cons __tmp68644 '())))) (declare (not safe)) - (cons __tmp68665 __tmp68661)))) + (cons __tmp68647 __tmp68643)))) (declare (not safe)) - (cons __tmp68668 __tmp68660)))) + (cons __tmp68650 __tmp68642)))) (declare (not safe)) - (cons __tmp68671 __tmp68659)))) + (cons __tmp68653 __tmp68641)))) (declare (not safe)) (##unchecked-structure-set! - __obj68193 - __tmp68658 + __obj68175 + __tmp68640 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68674 - (let ((__tmp68687 - (let ((__tmp68688 |[1]#_g68689_|)) + (let ((__tmp68656 + (let ((__tmp68669 + (let ((__tmp68670 |[1]#_g68671_|)) (declare (not safe)) - (cons 'message __tmp68688))) - (__tmp68675 - (let ((__tmp68684 - (let ((__tmp68685 |[1]#_g68686_|)) + (cons 'message __tmp68670))) + (__tmp68657 + (let ((__tmp68666 + (let ((__tmp68667 |[1]#_g68668_|)) (declare (not safe)) - (cons 'irritants __tmp68685))) - (__tmp68676 - (let ((__tmp68681 - (let ((__tmp68682 |[1]#_g68683_|)) + (cons 'irritants __tmp68667))) + (__tmp68658 + (let ((__tmp68663 + (let ((__tmp68664 |[1]#_g68665_|)) (declare (not safe)) - (cons 'where __tmp68682))) - (__tmp68677 - (let ((__tmp68678 - (let ((__tmp68679 |[1]#_g68680_|)) + (cons 'where __tmp68664))) + (__tmp68659 + (let ((__tmp68660 + (let ((__tmp68661 |[1]#_g68662_|)) (declare (not safe)) - (cons 'continuation __tmp68679)))) + (cons 'continuation __tmp68661)))) (declare (not safe)) - (cons __tmp68678 '())))) + (cons __tmp68660 '())))) (declare (not safe)) - (cons __tmp68681 __tmp68677)))) + (cons __tmp68663 __tmp68659)))) (declare (not safe)) - (cons __tmp68684 __tmp68676)))) + (cons __tmp68666 __tmp68658)))) (declare (not safe)) - (cons __tmp68687 __tmp68675)))) + (cons __tmp68669 __tmp68657)))) (declare (not safe)) (##unchecked-structure-set! - __obj68193 - __tmp68674 + __obj68175 + __tmp68656 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68690 - (let ((__tmp68703 - (let ((__tmp68704 |[1]#_g68705_|)) + (let ((__tmp68672 + (let ((__tmp68685 + (let ((__tmp68686 |[1]#_g68687_|)) (declare (not safe)) - (cons 'message __tmp68704))) - (__tmp68691 - (let ((__tmp68700 - (let ((__tmp68701 |[1]#_g68702_|)) + (cons 'message __tmp68686))) + (__tmp68673 + (let ((__tmp68682 + (let ((__tmp68683 |[1]#_g68684_|)) (declare (not safe)) - (cons 'irritants __tmp68701))) - (__tmp68692 - (let ((__tmp68697 - (let ((__tmp68698 |[1]#_g68699_|)) + (cons 'irritants __tmp68683))) + (__tmp68674 + (let ((__tmp68679 + (let ((__tmp68680 |[1]#_g68681_|)) (declare (not safe)) - (cons 'where __tmp68698))) - (__tmp68693 - (let ((__tmp68694 - (let ((__tmp68695 |[1]#_g68696_|)) + (cons 'where __tmp68680))) + (__tmp68675 + (let ((__tmp68676 + (let ((__tmp68677 |[1]#_g68678_|)) (declare (not safe)) - (cons 'continuation __tmp68695)))) + (cons 'continuation __tmp68677)))) (declare (not safe)) - (cons __tmp68694 '())))) + (cons __tmp68676 '())))) (declare (not safe)) - (cons __tmp68697 __tmp68693)))) + (cons __tmp68679 __tmp68675)))) (declare (not safe)) - (cons __tmp68700 __tmp68692)))) + (cons __tmp68682 __tmp68674)))) (declare (not safe)) - (cons __tmp68703 __tmp68691)))) + (cons __tmp68685 __tmp68673)))) (declare (not safe)) (##unchecked-structure-set! - __obj68193 - __tmp68690 + __obj68175 + __tmp68672 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68706 - (let ((__tmp68719 - (let ((__tmp68720 |[1]#_g68721_|)) + (let ((__tmp68688 + (let ((__tmp68701 + (let ((__tmp68702 |[1]#_g68703_|)) (declare (not safe)) - (cons 'message __tmp68720))) - (__tmp68707 - (let ((__tmp68716 - (let ((__tmp68717 |[1]#_g68718_|)) + (cons 'message __tmp68702))) + (__tmp68689 + (let ((__tmp68698 + (let ((__tmp68699 |[1]#_g68700_|)) (declare (not safe)) - (cons 'irritants __tmp68717))) - (__tmp68708 - (let ((__tmp68713 - (let ((__tmp68714 |[1]#_g68715_|)) + (cons 'irritants __tmp68699))) + (__tmp68690 + (let ((__tmp68695 + (let ((__tmp68696 |[1]#_g68697_|)) (declare (not safe)) - (cons 'where __tmp68714))) - (__tmp68709 - (let ((__tmp68710 - (let ((__tmp68711 |[1]#_g68712_|)) + (cons 'where __tmp68696))) + (__tmp68691 + (let ((__tmp68692 + (let ((__tmp68693 |[1]#_g68694_|)) (declare (not safe)) - (cons 'continuation __tmp68711)))) + (cons 'continuation __tmp68693)))) (declare (not safe)) - (cons __tmp68710 '())))) + (cons __tmp68692 '())))) (declare (not safe)) - (cons __tmp68713 __tmp68709)))) + (cons __tmp68695 __tmp68691)))) (declare (not safe)) - (cons __tmp68716 __tmp68708)))) + (cons __tmp68698 __tmp68690)))) (declare (not safe)) - (cons __tmp68719 __tmp68707)))) + (cons __tmp68701 __tmp68689)))) (declare (not safe)) (##unchecked-structure-set! - __obj68193 - __tmp68706 + __obj68175 + __tmp68688 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj68193)) + __obj68175)) (define |[:0:]#RuntimeException| - (let ((__obj68194 + (let ((__obj68176 (let () (declare (not safe)) (##structure @@ -888,7 +888,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68194 + __obj68176 'gerbil/runtime/error#RuntimeException::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -896,7 +896,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68194 + __obj68176 'RuntimeException '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -904,30 +904,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68194 + __obj68176 '(exception) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68722 - (let ((__tmp68725 |[1]#_g68651_|) - (__tmp68723 - (let ((__tmp68724 |[1]#_g68649_|)) + (let ((__tmp68704 + (let ((__tmp68707 |[1]#_g68633_|) + (__tmp68705 + (let ((__tmp68706 |[1]#_g68631_|)) (declare (not safe)) - (cons __tmp68724 '())))) + (cons __tmp68706 '())))) (declare (not safe)) - (cons __tmp68725 __tmp68723)))) + (cons __tmp68707 __tmp68705)))) (declare (not safe)) (##unchecked-structure-set! - __obj68194 - __tmp68722 + __obj68176 + __tmp68704 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj68194 + __obj68176 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -935,7 +935,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68194 + __obj68176 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -943,7 +943,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68194 + __obj68176 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -951,971 +951,971 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj68194 + __obj68176 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68726 |[1]#_g68727_|)) + (let ((__tmp68708 |[1]#_g68709_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68194 - __tmp68726 + __obj68176 + __tmp68708 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68728 |[1]#_g68729_|)) + (let ((__tmp68710 |[1]#_g68711_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68194 - __tmp68728 + __obj68176 + __tmp68710 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68730 |[1]#_g68731_|)) + (let ((__tmp68712 |[1]#_g68713_|)) (declare (not safe)) (##unchecked-structure-set! - __obj68194 - __tmp68730 + __obj68176 + __tmp68712 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68732 - (let ((__tmp68737 - (let ((__tmp68738 |[1]#_g68739_|)) + (let ((__tmp68714 + (let ((__tmp68719 + (let ((__tmp68720 |[1]#_g68721_|)) (declare (not safe)) - (cons 'exception __tmp68738))) - (__tmp68733 - (let ((__tmp68734 - (let ((__tmp68735 |[1]#_g68736_|)) + (cons 'exception __tmp68720))) + (__tmp68715 + (let ((__tmp68716 + (let ((__tmp68717 |[1]#_g68718_|)) (declare (not safe)) - (cons 'continuation __tmp68735)))) + (cons 'continuation __tmp68717)))) (declare (not safe)) - (cons __tmp68734 '())))) + (cons __tmp68716 '())))) (declare (not safe)) - (cons __tmp68737 __tmp68733)))) + (cons __tmp68719 __tmp68715)))) (declare (not safe)) (##unchecked-structure-set! - __obj68194 - __tmp68732 + __obj68176 + __tmp68714 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68740 - (let ((__tmp68745 - (let ((__tmp68746 |[1]#_g68747_|)) + (let ((__tmp68722 + (let ((__tmp68727 + (let ((__tmp68728 |[1]#_g68729_|)) (declare (not safe)) - (cons 'exception __tmp68746))) - (__tmp68741 - (let ((__tmp68742 - (let ((__tmp68743 |[1]#_g68744_|)) + (cons 'exception __tmp68728))) + (__tmp68723 + (let ((__tmp68724 + (let ((__tmp68725 |[1]#_g68726_|)) (declare (not safe)) - (cons 'continuation __tmp68743)))) + (cons 'continuation __tmp68725)))) (declare (not safe)) - (cons __tmp68742 '())))) + (cons __tmp68724 '())))) (declare (not safe)) - (cons __tmp68745 __tmp68741)))) + (cons __tmp68727 __tmp68723)))) (declare (not safe)) (##unchecked-structure-set! - __obj68194 - __tmp68740 + __obj68176 + __tmp68722 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68748 - (let ((__tmp68753 - (let ((__tmp68754 |[1]#_g68755_|)) + (let ((__tmp68730 + (let ((__tmp68735 + (let ((__tmp68736 |[1]#_g68737_|)) (declare (not safe)) - (cons 'exception __tmp68754))) - (__tmp68749 - (let ((__tmp68750 - (let ((__tmp68751 |[1]#_g68752_|)) + (cons 'exception __tmp68736))) + (__tmp68731 + (let ((__tmp68732 + (let ((__tmp68733 |[1]#_g68734_|)) (declare (not safe)) - (cons 'continuation __tmp68751)))) + (cons 'continuation __tmp68733)))) (declare (not safe)) - (cons __tmp68750 '())))) + (cons __tmp68732 '())))) (declare (not safe)) - (cons __tmp68753 __tmp68749)))) + (cons __tmp68735 __tmp68731)))) (declare (not safe)) (##unchecked-structure-set! - __obj68194 - __tmp68748 + __obj68176 + __tmp68730 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp68756 - (let ((__tmp68761 - (let ((__tmp68762 |[1]#_g68763_|)) + (let ((__tmp68738 + (let ((__tmp68743 + (let ((__tmp68744 |[1]#_g68745_|)) (declare (not safe)) - (cons 'exception __tmp68762))) - (__tmp68757 - (let ((__tmp68758 - (let ((__tmp68759 |[1]#_g68760_|)) + (cons 'exception __tmp68744))) + (__tmp68739 + (let ((__tmp68740 + (let ((__tmp68741 |[1]#_g68742_|)) (declare (not safe)) - (cons 'continuation __tmp68759)))) + (cons 'continuation __tmp68741)))) (declare (not safe)) - (cons __tmp68758 '())))) + (cons __tmp68740 '())))) (declare (not safe)) - (cons __tmp68761 __tmp68757)))) + (cons __tmp68743 __tmp68739)))) (declare (not safe)) (##unchecked-structure-set! - __obj68194 - __tmp68756 + __obj68176 + __tmp68738 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj68194)) + __obj68176)) (define |[:0:]#check-procedure| - (lambda (_$stx66550_) - (let* ((_g6655466572_ - (lambda (_g6655566568_) + (lambda (_$stx66532_) + (let* ((_g6653666554_ + (lambda (_g6653766550_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6655566568_))) - (_g6655366628_ - (lambda (_g6655566576_) - (if (gx#stx-pair? _g6655566576_) - (let ((_e6656066579_ (gx#syntax-e _g6655566576_))) - (let ((_hd6655966583_ + _g6653766550_))) + (_g6653566610_ + (lambda (_g6653766558_) + (if (gx#stx-pair? _g6653766558_) + (let ((_e6654266561_ (gx#syntax-e _g6653766558_))) + (let ((_hd6654166565_ (let () (declare (not safe)) - (##car _e6656066579_))) - (_tl6655866586_ + (##car _e6654266561_))) + (_tl6654066568_ (let () (declare (not safe)) - (##cdr _e6656066579_)))) - (if (gx#stx-pair? _tl6655866586_) - (let ((_e6656366589_ - (gx#syntax-e _tl6655866586_))) - (let ((_hd6656266593_ + (##cdr _e6654266561_)))) + (if (gx#stx-pair? _tl6654066568_) + (let ((_e6654566571_ + (gx#syntax-e _tl6654066568_))) + (let ((_hd6654466575_ (let () (declare (not safe)) - (##car _e6656366589_))) - (_tl6656166596_ + (##car _e6654566571_))) + (_tl6654366578_ (let () (declare (not safe)) - (##cdr _e6656366589_)))) - (if (gx#stx-pair? _tl6656166596_) - (let ((_e6656666599_ - (gx#syntax-e _tl6656166596_))) - (let ((_hd6656566603_ + (##cdr _e6654566571_)))) + (if (gx#stx-pair? _tl6654366578_) + (let ((_e6654866581_ + (gx#syntax-e _tl6654366578_))) + (let ((_hd6654766585_ (let () (declare (not safe)) - (##car _e6656666599_))) - (_tl6656466606_ + (##car _e6654866581_))) + (_tl6654666588_ (let () (declare (not safe)) - (##cdr _e6656666599_)))) - (if (gx#stx-null? _tl6656466606_) - ((lambda (_L66609_ _L66611_) - (let ((__tmp68785 + (##cdr _e6654866581_)))) + (if (gx#stx-null? _tl6654666588_) + ((lambda (_L66591_ _L66593_) + (let ((__tmp68767 (gx#datum->syntax '#f 'unless)) - (__tmp68764 - (let ((__tmp68782 - (let ((__tmp68784 + (__tmp68746 + (let ((__tmp68764 + (let ((__tmp68766 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp68783 + (__tmp68765 (let () (declare (not safe)) - (cons _L66611_ '())))) + (cons _L66593_ '())))) (declare (not safe)) - (cons __tmp68784 __tmp68783))) - (__tmp68765 - (let ((__tmp68766 - (let ((__tmp68781 (gx#datum->syntax '#f 'raise)) - (__tmp68767 - (let ((__tmp68768 - (let ((__tmp68780 + (cons __tmp68766 __tmp68765))) + (__tmp68747 + (let ((__tmp68748 + (let ((__tmp68763 (gx#datum->syntax '#f 'raise)) + (__tmp68749 + (let ((__tmp68750 + (let ((__tmp68762 (gx#datum->syntax '#f 'Error)) - (__tmp68769 - (let ((__tmp68770 - (let ((__tmp68771 + (__tmp68751 + (let ((__tmp68752 + (let ((__tmp68753 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68777 - (let ((__tmp68779 + (let ((__tmp68759 + (let ((__tmp68761 (gx#datum->syntax '#f 'quote)) - (__tmp68778 + (__tmp68760 (let () (declare (not safe)) - (cons _L66609_ '())))) + (cons _L66591_ '())))) (declare (not safe)) - (cons __tmp68779 __tmp68778))) - (__tmp68772 - (let ((__tmp68773 - (let ((__tmp68774 - (let ((__tmp68776 + (cons __tmp68761 __tmp68760))) + (__tmp68754 + (let ((__tmp68755 + (let ((__tmp68756 + (let ((__tmp68758 (gx#datum->syntax '#f '@list)) - (__tmp68775 + (__tmp68757 (let () (declare (not safe)) - (cons _L66611_ '())))) + (cons _L66593_ '())))) (declare (not safe)) - (cons __tmp68776 __tmp68775)))) + (cons __tmp68758 __tmp68757)))) (declare (not safe)) - (cons __tmp68774 '())))) + (cons __tmp68756 '())))) (declare (not safe)) - (cons 'irritants: __tmp68773)))) + (cons 'irritants: __tmp68755)))) (declare (not safe)) - (cons __tmp68777 __tmp68772)))) + (cons __tmp68759 __tmp68754)))) (declare (not safe)) - (cons 'where: __tmp68771)))) + (cons 'where: __tmp68753)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"expected procedure" - __tmp68770)))) + __tmp68752)))) (declare (not safe)) - (cons __tmp68780 __tmp68769)))) + (cons __tmp68762 __tmp68751)))) (declare (not safe)) - (cons __tmp68768 '())))) + (cons __tmp68750 '())))) (declare (not safe)) - (cons __tmp68781 __tmp68767)))) + (cons __tmp68763 __tmp68749)))) (declare (not safe)) - (cons __tmp68766 '())))) + (cons __tmp68748 '())))) (declare (not safe)) - (cons __tmp68782 __tmp68765)))) + (cons __tmp68764 __tmp68747)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68785 - __tmp68764))) - _hd6656566603_ - _hd6656266593_) - (_g6655466572_ _g6655566576_)))) - (_g6655466572_ _g6655566576_)))) - (_g6655466572_ _g6655566576_)))) - (_g6655466572_ _g6655566576_))))) - (_g6655366628_ _$stx66550_)))) + (cons __tmp68767 + __tmp68746))) + _hd6654766585_ + _hd6654466575_) + (_g6653666554_ _g6653766558_)))) + (_g6653666554_ _g6653766558_)))) + (_g6653666554_ _g6653766558_)))) + (_g6653666554_ _g6653766558_))))) + (_g6653566610_ _$stx66532_)))) (define |[:0:]#defruntime-exception| - (lambda (_stx66632_) - (let* ((_g6663566662_ - (lambda (_g6663666658_) + (lambda (_stx66614_) + (let* ((_g6661766644_ + (lambda (_g6661866640_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6663666658_))) - (_g6663466897_ - (lambda (_g6663666666_) - (if (gx#stx-pair? _g6663666666_) - (let ((_e6664166669_ (gx#syntax-e _g6663666666_))) - (let ((_hd6664066673_ + _g6661866640_))) + (_g6661666879_ + (lambda (_g6661866648_) + (if (gx#stx-pair? _g6661866648_) + (let ((_e6662366651_ (gx#syntax-e _g6661866648_))) + (let ((_hd6662266655_ (let () (declare (not safe)) - (##car _e6664166669_))) - (_tl6663966676_ + (##car _e6662366651_))) + (_tl6662166658_ (let () (declare (not safe)) - (##cdr _e6664166669_)))) - (if (gx#stx-pair? _tl6663966676_) - (let ((_e6664466679_ - (gx#syntax-e _tl6663966676_))) - (let ((_hd6664366683_ + (##cdr _e6662366651_)))) + (if (gx#stx-pair? _tl6662166658_) + (let ((_e6662666661_ + (gx#syntax-e _tl6662166658_))) + (let ((_hd6662566665_ (let () (declare (not safe)) - (##car _e6664466679_))) - (_tl6664266686_ + (##car _e6662666661_))) + (_tl6662466668_ (let () (declare (not safe)) - (##cdr _e6664466679_)))) - (if (gx#stx-pair? _hd6664366683_) - (let ((_e6664766689_ - (gx#syntax-e _hd6664366683_))) - (let ((_hd6664666693_ + (##cdr _e6662666661_)))) + (if (gx#stx-pair? _hd6662566665_) + (let ((_e6662966671_ + (gx#syntax-e _hd6662566665_))) + (let ((_hd6662866675_ (let () (declare (not safe)) - (##car _e6664766689_))) - (_tl6664566696_ + (##car _e6662966671_))) + (_tl6662766678_ (let () (declare (not safe)) - (##cdr _e6664766689_)))) + (##cdr _e6662966671_)))) (if (gx#stx-pair/null? - _tl6664566696_) - (let ((_g68786_ + _tl6662766678_) + (let ((_g68768_ (gx#syntax-split-splice - _tl6664566696_ + _tl6662766678_ '0))) (begin - (let ((_g68787_ + (let ((_g68769_ (let () (declare (not safe)) (if (##values? - _g68786_) + _g68768_) (##vector-length - _g68786_) + _g68768_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g68787_ 2))) - (error "Context expects 2 values" _g68787_))) + (##fx= _g68769_ 2))) + (error "Context expects 2 values" _g68769_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target6664866699_ + (let ((_target6663066681_ (let () (declare (not safe)) (##vector-ref - _g68786_ + _g68768_ 0))) - (_tl6665066702_ + (_tl6663266684_ (let () (declare (not safe)) (##vector-ref - _g68786_ + _g68768_ 1)))) (if (gx#stx-null? - _tl6665066702_) - (letrec ((_loop6665166705_ + _tl6663266684_) + (letrec ((_loop6663366687_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd6664966709_ _getf6665566712_) - (if (gx#stx-pair? _hd6664966709_) - (let ((_e6665266715_ - (gx#syntax-e _hd6664966709_))) - (let ((_lp-hd6665366719_ + (lambda (_hd6663166691_ _getf6663766694_) + (if (gx#stx-pair? _hd6663166691_) + (let ((_e6663466697_ + (gx#syntax-e _hd6663166691_))) + (let ((_lp-hd6663566701_ (let () (declare (not safe)) - (##car _e6665266715_))) - (_lp-tl6665466722_ + (##car _e6663466697_))) + (_lp-tl6663666704_ (let () (declare (not safe)) - (##cdr _e6665266715_)))) - (_loop6665166705_ - _lp-tl6665466722_ + (##cdr _e6663466697_)))) + (_loop6663366687_ + _lp-tl6663666704_ (let () (declare (not safe)) - (cons _lp-hd6665366719_ - _getf6665566712_))))) - (let ((_getf6665666725_ - (reverse _getf6665566712_))) - (if (gx#stx-null? _tl6664266686_) - ((lambda (_L66729_ _L66731_) - (let* ((_g6675166775_ - (lambda (_g6675266771_) + (cons _lp-hd6663566701_ + _getf6663766694_))))) + (let ((_getf6663866707_ + (reverse _getf6663766694_))) + (if (gx#stx-null? _tl6662466668_) + ((lambda (_L66711_ _L66713_) + (let* ((_g6673366757_ + (lambda (_g6673466753_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6675266771_))) - (_g6675066882_ - (lambda (_g6675266779_) + _g6673466753_))) + (_g6673266864_ + (lambda (_g6673466761_) (if (gx#stx-pair? - _g6675266779_) - (let ((_e6675766782_ + _g6673466761_) + (let ((_e6673966764_ (gx#syntax-e - _g6675266779_))) - (let ((_hd6675666786_ + _g6673466761_))) + (let ((_hd6673866768_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e6675766782_))) - (_tl6675566789_ - (let () (declare (not safe)) (##cdr _e6675766782_)))) - (if (gx#stx-pair? _tl6675566789_) - (let ((_e6676066792_ (gx#syntax-e _tl6675566789_))) - (let ((_hd6675966796_ + (##car _e6673966764_))) + (_tl6673766771_ + (let () (declare (not safe)) (##cdr _e6673966764_)))) + (if (gx#stx-pair? _tl6673766771_) + (let ((_e6674266774_ (gx#syntax-e _tl6673766771_))) + (let ((_hd6674166778_ (let () (declare (not safe)) - (##car _e6676066792_))) - (_tl6675866799_ + (##car _e6674266774_))) + (_tl6674066781_ (let () (declare (not safe)) - (##cdr _e6676066792_)))) - (if (gx#stx-pair/null? _hd6675966796_) - (let ((_g68788_ + (##cdr _e6674266774_)))) + (if (gx#stx-pair/null? _hd6674166778_) + (let ((_g68770_ (gx#syntax-split-splice - _hd6675966796_ + _hd6674166778_ '0))) (begin - (let ((_g68789_ + (let ((_g68771_ (let () (declare (not safe)) - (if (##values? _g68788_) - (##vector-length _g68788_) + (if (##values? _g68770_) + (##vector-length _g68770_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g68789_ 2))) + (##fx= _g68771_ 2))) (error "Context expects 2 values" - _g68789_))) - (let ((_target6676166802_ + _g68771_))) + (let ((_target6674366784_ (let () (declare (not safe)) - (##vector-ref _g68788_ 0))) - (_tl6676366805_ + (##vector-ref _g68770_ 0))) + (_tl6674566787_ (let () (declare (not safe)) - (##vector-ref _g68788_ 1)))) - (if (gx#stx-null? _tl6676366805_) - (letrec ((_loop6676466808_ - (lambda (_hd6676266812_ - _macro-getf6676866815_) + (##vector-ref _g68770_ 1)))) + (if (gx#stx-null? _tl6674566787_) + (letrec ((_loop6674666790_ + (lambda (_hd6674466794_ + _macro-getf6675066797_) (if (gx#stx-pair? - _hd6676266812_) - (let ((_e6676566818_ + _hd6674466794_) + (let ((_e6674766800_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd6676266812_))) - (let ((_lp-hd6676666822_ - (let () (declare (not safe)) (##car _e6676566818_))) - (_lp-tl6676766825_ - (let () (declare (not safe)) (##cdr _e6676566818_)))) - (_loop6676466808_ - _lp-tl6676766825_ + _hd6674466794_))) + (let ((_lp-hd6674866804_ + (let () (declare (not safe)) (##car _e6674766800_))) + (_lp-tl6674966807_ + (let () (declare (not safe)) (##cdr _e6674766800_)))) + (_loop6674666790_ + _lp-tl6674966807_ (let () (declare (not safe)) - (cons _lp-hd6676666822_ _macro-getf6676866815_))))) - (let ((_macro-getf6676966828_ - (reverse _macro-getf6676866815_))) - (if (gx#stx-null? _tl6675866799_) - ((lambda (_L66832_ _L66834_) + (cons _lp-hd6674866804_ _macro-getf6675066797_))))) + (let ((_macro-getf6675166810_ + (reverse _macro-getf6675066797_))) + (if (gx#stx-null? _tl6674066781_) + ((lambda (_L66814_ _L66816_) (let () - (let ((__tmp68913 (gx#datum->syntax '#f 'begin)) - (__tmp68790 - (let ((__tmp68908 - (let ((__tmp68912 + (let ((__tmp68895 (gx#datum->syntax '#f 'begin)) + (__tmp68772 + (let ((__tmp68890 + (let ((__tmp68894 (gx#datum->syntax '#f 'extern)) - (__tmp68909 - (let ((__tmp68910 - (let ((__tmp68911 - (lambda (_g6685966862_ + (__tmp68891 + (let ((__tmp68892 + (let ((__tmp68893 + (lambda (_g6684166844_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g6686066865_) + _g6684266847_) (let () (declare (not safe)) - (cons _g6685966862_ _g6686066865_))))) + (cons _g6684166844_ _g6684266847_))))) (declare (not safe)) - (foldr1 __tmp68911 '() _L66832_)))) + (foldr1 __tmp68893 '() _L66814_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L66834_ - __tmp68910)))) + (cons _L66816_ + __tmp68892)))) (declare (not safe)) - (cons __tmp68912 __tmp68909))) - (__tmp68791 - (let ((__tmp68875 - (let ((__tmp68907 + (cons __tmp68894 __tmp68891))) + (__tmp68773 + (let ((__tmp68857 + (let ((__tmp68889 (gx#datum->syntax '#f 'def)) - (__tmp68876 - (let ((__tmp68904 - (let ((__tmp68905 + (__tmp68858 + (let ((__tmp68886 + (let ((__tmp68887 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68906 (gx#datum->syntax '#f 'exn))) + (let ((__tmp68888 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp68906 '())))) + (cons __tmp68888 '())))) (declare (not safe)) - (cons _L66731_ __tmp68905))) - (__tmp68877 - (let ((__tmp68878 - (let ((__tmp68903 (gx#datum->syntax '#f 'if)) - (__tmp68879 - (let ((__tmp68899 - (let ((__tmp68902 + (cons _L66713_ __tmp68887))) + (__tmp68859 + (let ((__tmp68860 + (let ((__tmp68885 (gx#datum->syntax '#f 'if)) + (__tmp68861 + (let ((__tmp68881 + (let ((__tmp68884 (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp68900 - (let ((__tmp68901 + (__tmp68882 + (let ((__tmp68883 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp68901 '())))) + (cons __tmp68883 '())))) (declare (not safe)) - (cons __tmp68902 __tmp68900))) - (__tmp68880 - (let ((__tmp68885 - (let ((__tmp68898 + (cons __tmp68884 __tmp68882))) + (__tmp68862 + (let ((__tmp68867 + (let ((__tmp68880 (gx#datum->syntax '#f 'let)) - (__tmp68886 - (let ((__tmp68891 + (__tmp68868 + (let ((__tmp68873 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68897 (gx#datum->syntax '#f 'e)) - (__tmp68892 - (let ((__tmp68893 - (let ((__tmp68896 + (let ((__tmp68879 (gx#datum->syntax '#f 'e)) + (__tmp68874 + (let ((__tmp68875 + (let ((__tmp68878 (gx#datum->syntax '#f '&RuntimeException-exception)) - (__tmp68894 - (let ((__tmp68895 + (__tmp68876 + (let ((__tmp68877 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp68895 '())))) + (cons __tmp68877 '())))) (declare (not safe)) - (cons __tmp68896 __tmp68894)))) + (cons __tmp68878 __tmp68876)))) (declare (not safe)) - (cons __tmp68893 '())))) + (cons __tmp68875 '())))) (declare (not safe)) - (cons __tmp68897 __tmp68892))) - (__tmp68887 - (let ((__tmp68888 - (let ((__tmp68889 - (let ((__tmp68890 + (cons __tmp68879 __tmp68874))) + (__tmp68869 + (let ((__tmp68870 + (let ((__tmp68871 + (let ((__tmp68872 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp68890 '())))) + (cons __tmp68872 '())))) (declare (not safe)) - (cons _L66834_ __tmp68889)))) + (cons _L66816_ __tmp68871)))) (declare (not safe)) - (cons __tmp68888 '())))) + (cons __tmp68870 '())))) (declare (not safe)) - (cons __tmp68891 __tmp68887)))) + (cons __tmp68873 __tmp68869)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68898 - __tmp68886))) - (__tmp68881 - (let ((__tmp68882 - (let ((__tmp68883 + (cons __tmp68880 + __tmp68868))) + (__tmp68863 + (let ((__tmp68864 + (let ((__tmp68865 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68884 (gx#datum->syntax '#f 'exn))) + (let ((__tmp68866 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp68884 '())))) + (cons __tmp68866 '())))) (declare (not safe)) - (cons _L66834_ __tmp68883)))) + (cons _L66816_ __tmp68865)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68882 '())))) + (cons __tmp68864 '())))) (declare (not safe)) - (cons __tmp68885 __tmp68881)))) + (cons __tmp68867 __tmp68863)))) (declare (not safe)) - (cons __tmp68899 __tmp68880)))) + (cons __tmp68881 __tmp68862)))) (declare (not safe)) - (cons __tmp68903 __tmp68879)))) + (cons __tmp68885 __tmp68861)))) (declare (not safe)) - (cons __tmp68878 '())))) + (cons __tmp68860 '())))) (declare (not safe)) - (cons __tmp68904 __tmp68877)))) + (cons __tmp68886 __tmp68859)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68907 - __tmp68876))) - (__tmp68792 + (cons __tmp68889 + __tmp68858))) + (__tmp68774 (begin (gx#syntax-check-splice-targets - _L66729_ - _L66832_ - _L66729_ - _L66832_ - _L66729_) - (let ((__tmp68793 - (lambda (_g6685366868_ + _L66711_ + _L66814_ + _L66711_ + _L66814_ + _L66711_) + (let ((__tmp68775 + (lambda (_g6683566850_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g6685466871_ - _g6685566873_ - _g6685666875_ - _g6685766877_ - _g6685866879_) - (let ((__tmp68794 - (let ((__tmp68874 (gx#datum->syntax '#f 'def)) - (__tmp68795 - (let ((__tmp68871 - (let ((__tmp68872 - (let ((__tmp68873 + _g6683666853_ + _g6683766855_ + _g6683866857_ + _g6683966859_ + _g6684066861_) + (let ((__tmp68776 + (let ((__tmp68856 (gx#datum->syntax '#f 'def)) + (__tmp68777 + (let ((__tmp68853 + (let ((__tmp68854 + (let ((__tmp68855 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp68873 '())))) + (cons __tmp68855 '())))) (declare (not safe)) - (cons _g6685366868_ __tmp68872))) - (__tmp68796 - (let ((__tmp68797 - (let ((__tmp68870 + (cons _g6683566850_ __tmp68854))) + (__tmp68778 + (let ((__tmp68779 + (let ((__tmp68852 (gx#datum->syntax '#f 'if)) - (__tmp68798 - (let ((__tmp68866 - (let ((__tmp68869 + (__tmp68780 + (let ((__tmp68848 + (let ((__tmp68851 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp68867 - (let ((__tmp68868 (gx#datum->syntax '#f 'exn))) + (__tmp68849 + (let ((__tmp68850 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp68868 '())))) + (cons __tmp68850 '())))) (declare (not safe)) - (cons __tmp68869 __tmp68867))) - (__tmp68799 - (let ((__tmp68828 - (let ((__tmp68865 (gx#datum->syntax '#f 'let)) - (__tmp68829 - (let ((__tmp68858 - (let ((__tmp68864 + (cons __tmp68851 __tmp68849))) + (__tmp68781 + (let ((__tmp68810 + (let ((__tmp68847 (gx#datum->syntax '#f 'let)) + (__tmp68811 + (let ((__tmp68840 + (let ((__tmp68846 (gx#datum->syntax '#f 'e)) - (__tmp68859 - (let ((__tmp68860 - (let ((__tmp68863 + (__tmp68841 + (let ((__tmp68842 + (let ((__tmp68845 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&RuntimeException-exception)) - (__tmp68861 - (let ((__tmp68862 (gx#datum->syntax '#f 'exn))) + (__tmp68843 + (let ((__tmp68844 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp68862 '())))) + (cons __tmp68844 '())))) (declare (not safe)) - (cons __tmp68863 __tmp68861)))) + (cons __tmp68845 __tmp68843)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68860 '())))) + (cons __tmp68842 '())))) (declare (not safe)) - (cons __tmp68864 __tmp68859))) - (__tmp68830 - (let ((__tmp68831 - (let ((__tmp68857 + (cons __tmp68846 __tmp68841))) + (__tmp68812 + (let ((__tmp68813 + (let ((__tmp68839 (gx#datum->syntax '#f 'if)) - (__tmp68832 - (let ((__tmp68854 - (let ((__tmp68855 + (__tmp68814 + (let ((__tmp68836 + (let ((__tmp68837 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68856 (gx#datum->syntax '#f 'e))) + (let ((__tmp68838 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp68856 '())))) + (cons __tmp68838 '())))) (declare (not safe)) - (cons _L66834_ __tmp68855))) - (__tmp68833 - (let ((__tmp68851 - (let ((__tmp68852 - (let ((__tmp68853 + (cons _L66816_ __tmp68837))) + (__tmp68815 + (let ((__tmp68833 + (let ((__tmp68834 + (let ((__tmp68835 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp68853 '())))) + (cons __tmp68835 '())))) (declare (not safe)) - (cons _g6685466871_ __tmp68852))) - (__tmp68834 - (let ((__tmp68835 - (let ((__tmp68850 + (cons _g6683666853_ __tmp68834))) + (__tmp68816 + (let ((__tmp68817 + (let ((__tmp68832 (gx#datum->syntax '#f 'error)) - (__tmp68836 - (let ((__tmp68837 - (let ((__tmp68847 - (let ((__tmp68849 + (__tmp68818 + (let ((__tmp68819 + (let ((__tmp68829 + (let ((__tmp68831 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp68848 - (let () (declare (not safe)) (cons _L66731_ '())))) + (__tmp68830 + (let () (declare (not safe)) (cons _L66713_ '())))) (declare (not safe)) - (cons __tmp68849 __tmp68848))) - (__tmp68838 - (let ((__tmp68839 - (let ((__tmp68846 (gx#datum->syntax '#f '@list)) - (__tmp68840 - (let ((__tmp68843 - (let ((__tmp68845 + (cons __tmp68831 __tmp68830))) + (__tmp68820 + (let ((__tmp68821 + (let ((__tmp68828 (gx#datum->syntax '#f '@list)) + (__tmp68822 + (let ((__tmp68825 + (let ((__tmp68827 (gx#datum->syntax '#f 'quote)) - (__tmp68844 + (__tmp68826 (let () (declare (not safe)) - (cons _g6685366868_ '())))) + (cons _g6683566850_ '())))) (declare (not safe)) - (cons __tmp68845 __tmp68844))) - (__tmp68841 - (let ((__tmp68842 + (cons __tmp68827 __tmp68826))) + (__tmp68823 + (let ((__tmp68824 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp68842 '())))) + (cons __tmp68824 '())))) (declare (not safe)) - (cons __tmp68843 __tmp68841)))) + (cons __tmp68825 __tmp68823)))) (declare (not safe)) - (cons __tmp68846 __tmp68840)))) + (cons __tmp68828 __tmp68822)))) (declare (not safe)) - (cons __tmp68839 '())))) + (cons __tmp68821 '())))) (declare (not safe)) - (cons __tmp68847 __tmp68838)))) + (cons __tmp68829 __tmp68820)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"not an instance" - __tmp68837)))) + __tmp68819)))) (declare (not safe)) - (cons __tmp68850 __tmp68836)))) + (cons __tmp68832 __tmp68818)))) (declare (not safe)) - (cons __tmp68835 '())))) + (cons __tmp68817 '())))) (declare (not safe)) - (cons __tmp68851 __tmp68834)))) + (cons __tmp68833 __tmp68816)))) (declare (not safe)) - (cons __tmp68854 __tmp68833)))) + (cons __tmp68836 __tmp68815)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68857 - __tmp68832)))) + (cons __tmp68839 + __tmp68814)))) (declare (not safe)) - (cons __tmp68831 '())))) + (cons __tmp68813 '())))) (declare (not safe)) - (cons __tmp68858 __tmp68830)))) + (cons __tmp68840 __tmp68812)))) (declare (not safe)) - (cons __tmp68865 __tmp68829))) - (__tmp68800 - (let ((__tmp68801 - (let ((__tmp68827 + (cons __tmp68847 __tmp68811))) + (__tmp68782 + (let ((__tmp68783 + (let ((__tmp68809 (gx#datum->syntax '#f 'if)) - (__tmp68802 - (let ((__tmp68824 - (let ((__tmp68825 - (let ((__tmp68826 + (__tmp68784 + (let ((__tmp68806 + (let ((__tmp68807 + (let ((__tmp68808 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'exn))) (declare (not safe)) - (cons __tmp68826 '())))) + (cons __tmp68808 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L66834_ - __tmp68825))) - (__tmp68803 - (let ((__tmp68821 - (let ((__tmp68822 - (let ((__tmp68823 + (cons _L66816_ + __tmp68807))) + (__tmp68785 + (let ((__tmp68803 + (let ((__tmp68804 + (let ((__tmp68805 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp68823 '())))) + (cons __tmp68805 '())))) (declare (not safe)) - (cons _g6685466871_ __tmp68822))) - (__tmp68804 - (let ((__tmp68805 - (let ((__tmp68820 (gx#datum->syntax '#f 'error)) - (__tmp68806 - (let ((__tmp68807 - (let ((__tmp68817 - (let ((__tmp68819 + (cons _g6683666853_ __tmp68804))) + (__tmp68786 + (let ((__tmp68787 + (let ((__tmp68802 (gx#datum->syntax '#f 'error)) + (__tmp68788 + (let ((__tmp68789 + (let ((__tmp68799 + (let ((__tmp68801 (gx#datum->syntax '#f 'quote)) - (__tmp68818 + (__tmp68800 (let () (declare (not safe)) - (cons _L66731_ '())))) + (cons _L66713_ '())))) (declare (not safe)) - (cons __tmp68819 __tmp68818))) - (__tmp68808 - (let ((__tmp68809 - (let ((__tmp68816 + (cons __tmp68801 __tmp68800))) + (__tmp68790 + (let ((__tmp68791 + (let ((__tmp68798 (gx#datum->syntax '#f '@list)) - (__tmp68810 - (let ((__tmp68813 + (__tmp68792 + (let ((__tmp68795 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp68815 (gx#datum->syntax '#f 'quote)) - (__tmp68814 + (let ((__tmp68797 (gx#datum->syntax '#f 'quote)) + (__tmp68796 (let () (declare (not safe)) - (cons _g6685366868_ '())))) + (cons _g6683566850_ '())))) (declare (not safe)) - (cons __tmp68815 __tmp68814))) - (__tmp68811 - (let ((__tmp68812 (gx#datum->syntax '#f 'exn))) + (cons __tmp68797 __tmp68796))) + (__tmp68793 + (let ((__tmp68794 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp68812 '())))) + (cons __tmp68794 '())))) (declare (not safe)) - (cons __tmp68813 __tmp68811)))) + (cons __tmp68795 __tmp68793)))) (declare (not safe)) - (cons __tmp68816 __tmp68810)))) + (cons __tmp68798 __tmp68792)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68809 '())))) + (cons __tmp68791 '())))) (declare (not safe)) - (cons __tmp68817 __tmp68808)))) + (cons __tmp68799 __tmp68790)))) (declare (not safe)) - (cons '"not an instance" __tmp68807)))) + (cons '"not an instance" __tmp68789)))) (declare (not safe)) - (cons __tmp68820 __tmp68806)))) + (cons __tmp68802 __tmp68788)))) (declare (not safe)) - (cons __tmp68805 '())))) + (cons __tmp68787 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68821 - __tmp68804)))) + (cons __tmp68803 + __tmp68786)))) (declare (not safe)) - (cons __tmp68824 __tmp68803)))) + (cons __tmp68806 __tmp68785)))) (declare (not safe)) - (cons __tmp68827 __tmp68802)))) + (cons __tmp68809 __tmp68784)))) (declare (not safe)) - (cons __tmp68801 '())))) + (cons __tmp68783 '())))) (declare (not safe)) - (cons __tmp68828 __tmp68800)))) + (cons __tmp68810 __tmp68782)))) (declare (not safe)) - (cons __tmp68866 __tmp68799)))) + (cons __tmp68848 __tmp68781)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp68870 - __tmp68798)))) + (cons __tmp68852 + __tmp68780)))) (declare (not safe)) - (cons __tmp68797 '())))) + (cons __tmp68779 '())))) (declare (not safe)) - (cons __tmp68871 __tmp68796)))) + (cons __tmp68853 __tmp68778)))) (declare (not safe)) - (cons __tmp68874 __tmp68795)))) + (cons __tmp68856 __tmp68777)))) (declare (not safe)) - (cons __tmp68794 _g6685866879_))))) + (cons __tmp68776 _g6684066861_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr* __tmp68793 + (foldr* __tmp68775 '() - _L66729_ - _L66832_ - _L66729_ - _L66832_ - _L66729_))))) + _L66711_ + _L66814_ + _L66711_ + _L66814_ + _L66711_))))) (declare (not safe)) - (cons __tmp68875 __tmp68792)))) + (cons __tmp68857 __tmp68774)))) (declare (not safe)) - (cons __tmp68908 __tmp68791)))) + (cons __tmp68890 __tmp68773)))) (declare (not safe)) - (cons __tmp68913 __tmp68790)))) - _macro-getf6676966828_ - _hd6675666786_) - (_g6675166775_ _g6675266779_))))))) + (cons __tmp68895 __tmp68772)))) + _macro-getf6675166810_ + _hd6673866768_) + (_g6673366757_ _g6673466761_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6676466808_ - _target6676166802_ + (_loop6674666790_ + _target6674366784_ '())) - (_g6675166775_ _g6675266779_))))) - (_g6675166775_ _g6675266779_)))) - (_g6675166775_ _g6675266779_)))) - (_g6675166775_ _g6675266779_))))) + (_g6673366757_ _g6673466761_))))) + (_g6673366757_ _g6673466761_)))) + (_g6673366757_ _g6673466761_)))) + (_g6673366757_ _g6673466761_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6675066882_ + (_g6673266864_ (list (gx#stx-identifier - _L66731_ + _L66713_ '"macro-" - _L66731_) - (map (lambda (_f66886_) + _L66713_) + (map (lambda (_f66868_) (gx#stx-identifier - _f66886_ + _f66868_ '"macro-" - _f66886_)) - (let ((__tmp68914 - (lambda (_g6688866891_ + _f66868_)) + (let ((__tmp68896 + (lambda (_g6687066873_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g6688966894_) + _g6687166876_) (let () (declare (not safe)) - (cons _g6688866891_ _g6688966894_))))) + (cons _g6687066873_ _g6687166876_))))) (declare (not safe)) - (foldr1 __tmp68914 '() _L66729_))))))) + (foldr1 __tmp68896 '() _L66711_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _getf6665666725_ - _hd6664666693_) - (_g6663566662_ _g6663666666_))))))) - (_loop6665166705_ _target6664866699_ '())) - (_g6663566662_ _g6663666666_))))) + _getf6663866707_ + _hd6662866675_) + (_g6661766644_ _g6661866648_))))))) + (_loop6663366687_ _target6663066681_ '())) + (_g6661766644_ _g6661866648_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6663566662_ _g6663666666_)))) - (_g6663566662_ _g6663666666_)))) - (_g6663566662_ _g6663666666_)))) - (_g6663566662_ _g6663666666_))))) - (_g6663466897_ _stx66632_)))) + (_g6661766644_ _g6661866648_)))) + (_g6661766644_ _g6661866648_)))) + (_g6661766644_ _g6661866648_)))) + (_g6661766644_ _g6661866648_))))) + (_g6661666879_ _stx66614_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_$stx66903_) - (let* ((_g6690766927_ - (lambda (_g6690866923_) + (lambda (_$stx66885_) + (let* ((_g6688966909_ + (lambda (_g6689066905_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6690866923_))) - (_g6690666998_ - (lambda (_g6690866931_) - (if (gx#stx-pair? _g6690866931_) - (let ((_e6691266934_ (gx#syntax-e _g6690866931_))) - (let ((_hd6691166938_ + _g6689066905_))) + (_g6688866980_ + (lambda (_g6689066913_) + (if (gx#stx-pair? _g6689066913_) + (let ((_e6689466916_ (gx#syntax-e _g6689066913_))) + (let ((_hd6689366920_ (let () (declare (not safe)) - (##car _e6691266934_))) - (_tl6691066941_ + (##car _e6689466916_))) + (_tl6689266923_ (let () (declare (not safe)) - (##cdr _e6691266934_)))) - (if (gx#stx-pair/null? _tl6691066941_) - (let ((_g68915_ + (##cdr _e6689466916_)))) + (if (gx#stx-pair/null? _tl6689266923_) + (let ((_g68897_ (gx#syntax-split-splice - _tl6691066941_ + _tl6689266923_ '0))) (begin - (let ((_g68916_ + (let ((_g68898_ (let () (declare (not safe)) - (if (##values? _g68915_) - (##vector-length _g68915_) + (if (##values? _g68897_) + (##vector-length _g68897_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g68916_ 2))) + (##fx= _g68898_ 2))) (error "Context expects 2 values" - _g68916_))) - (let ((_target6691366944_ + _g68898_))) + (let ((_target6689566926_ (let () (declare (not safe)) - (##vector-ref _g68915_ 0))) - (_tl6691566947_ + (##vector-ref _g68897_ 0))) + (_tl6689766929_ (let () (declare (not safe)) - (##vector-ref _g68915_ 1)))) - (if (gx#stx-null? _tl6691566947_) - (letrec ((_loop6691666950_ - (lambda (_hd6691466954_ - _defexn6692066957_) + (##vector-ref _g68897_ 1)))) + (if (gx#stx-null? _tl6689766929_) + (letrec ((_loop6689866932_ + (lambda (_hd6689666936_ + _defexn6690266939_) (if (gx#stx-pair? - _hd6691466954_) - (let ((_e6691766960_ + _hd6689666936_) + (let ((_e6689966942_ (gx#syntax-e - _hd6691466954_))) - (let ((_lp-hd6691866964_ + _hd6689666936_))) + (let ((_lp-hd6690066946_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e6691766960_))) - (_lp-tl6691966967_ - (let () (declare (not safe)) (##cdr _e6691766960_)))) - (_loop6691666950_ - _lp-tl6691966967_ + (let () (declare (not safe)) (##car _e6689966942_))) + (_lp-tl6690166949_ + (let () (declare (not safe)) (##cdr _e6689966942_)))) + (_loop6689866932_ + _lp-tl6690166949_ (let () (declare (not safe)) - (cons _lp-hd6691866964_ _defexn6692066957_))))) - (let ((_defexn6692166970_ (reverse _defexn6692066957_))) - ((lambda (_L66974_) - (let ((__tmp68922 (gx#datum->syntax '#f 'begin)) - (__tmp68917 - (let ((__tmp68918 - (lambda (_g6698966992_ _g6699066995_) - (let ((__tmp68919 - (let ((__tmp68921 + (cons _lp-hd6690066946_ _defexn6690266939_))))) + (let ((_defexn6690366952_ (reverse _defexn6690266939_))) + ((lambda (_L66956_) + (let ((__tmp68904 (gx#datum->syntax '#f 'begin)) + (__tmp68899 + (let ((__tmp68900 + (lambda (_g6697166974_ _g6697266977_) + (let ((__tmp68901 + (let ((__tmp68903 (gx#datum->syntax '#f 'defruntime-exception)) - (__tmp68920 + (__tmp68902 (let () (declare (not safe)) - (cons _g6698966992_ + (cons _g6697166974_ '())))) (declare (not safe)) - (cons __tmp68921 __tmp68920)))) + (cons __tmp68903 __tmp68902)))) (declare (not safe)) - (cons __tmp68919 _g6699066995_))))) + (cons __tmp68901 _g6697266977_))))) (declare (not safe)) - (foldr1 __tmp68918 '() _L66974_)))) + (foldr1 __tmp68900 '() _L66956_)))) (declare (not safe)) - (cons __tmp68922 __tmp68917))) - _defexn6692166970_)))))) + (cons __tmp68904 __tmp68899))) + _defexn6690366952_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop6691666950_ - _target6691366944_ + (_loop6689866932_ + _target6689566926_ '())) - (_g6690766927_ _g6690866931_))))) - (_g6690766927_ _g6690866931_)))) - (_g6690766927_ _g6690866931_))))) - (_g6690666998_ _$stx66903_)))))) + (_g6688966909_ _g6689066913_))))) + (_g6688966909_ _g6689066913_)))) + (_g6688966909_ _g6689066913_))))) + (_g6688866980_ _$stx66885_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval~0.scm b/src/bootstrap/gerbil/runtime/eval~0.scm index 557b216a7..7ff622905 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 1710833424) + (define gerbil/runtime/eval::timestamp 1710943497) (begin (define __syntax::t - (let ((__tmp79330 (list)) - (__tmp79328 - (let ((__tmp79329 + (let ((__tmp79312 (list)) + (__tmp79310 + (let ((__tmp79311 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp79329 '())))) + (cons __tmp79311 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__syntax::t '__syntax - __tmp79330 + __tmp79312 '(e id) - __tmp79328 + __tmp79310 '#f))) (define __syntax? (let () (declare (not safe)) (make-class-predicate __syntax::t))) (define make-__syntax - (lambda _$args79139_ (apply make-instance __syntax::t _$args79139_))) + (lambda _$args79121_ (apply make-instance __syntax::t _$args79121_))) (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 ((__tmp79333 (list __syntax::t)) - (__tmp79331 - (let ((__tmp79332 + (let ((__tmp79315 (list __syntax::t)) + (__tmp79313 + (let ((__tmp79314 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp79332 '())))) + (cons __tmp79314 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-form::t '__core-form - __tmp79333 + __tmp79315 '() - __tmp79331 + __tmp79313 '#f))) (define __core-form? (let () (declare (not safe)) (make-class-predicate __core-form::t))) (define make-__core-form - (lambda _$args79136_ (apply make-instance __core-form::t _$args79136_))) + (lambda _$args79118_ (apply make-instance __core-form::t _$args79118_))) (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 ((__tmp79336 (list __core-form::t)) - (__tmp79334 - (let ((__tmp79335 + (let ((__tmp79318 (list __core-form::t)) + (__tmp79316 + (let ((__tmp79317 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp79335 '())))) + (cons __tmp79317 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-expression::t '__core-expression - __tmp79336 + __tmp79318 '() - __tmp79334 + __tmp79316 '#f))) (define __core-expression? (let () (declare (not safe)) (make-class-predicate __core-expression::t))) (define make-__core-expression - (lambda _$args79133_ - (apply make-instance __core-expression::t _$args79133_))) + (lambda _$args79115_ + (apply make-instance __core-expression::t _$args79115_))) (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 ((__tmp79339 (list __core-form::t)) - (__tmp79337 - (let ((__tmp79338 + (let ((__tmp79321 (list __core-form::t)) + (__tmp79319 + (let ((__tmp79320 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp79338 '())))) + (cons __tmp79320 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-special-form::t '__core-special-form - __tmp79339 + __tmp79321 '() - __tmp79337 + __tmp79319 '#f))) (define __core-special-form? (let () (declare (not safe)) (make-class-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _$args79130_ - (apply make-instance __core-special-form::t _$args79130_))) + (lambda _$args79112_ + (apply make-instance __core-special-form::t _$args79112_))) (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 (_id79128_) - (let ((__tmp79340 (let () (declare (not safe)) (__AST-e _id79128_)))) + (lambda (_id79110_) + (let ((__tmp79322 (let () (declare (not safe)) (__AST-e _id79110_)))) (declare (not safe)) - (hash-get __core __tmp79340)))) + (hash-get __core __tmp79322)))) (define __core-bound-id?__% - (lambda (_id79112_ _is?79113_) - (let ((_$e79115_ - (let () (declare (not safe)) (__core-resolve _id79112_)))) - (if _$e79115_ (_is?79113_ _$e79115_) '#f)))) + (lambda (_id79094_ _is?79095_) + (let ((_$e79097_ + (let () (declare (not safe)) (__core-resolve _id79094_)))) + (if _$e79097_ (_is?79095_ _$e79097_) '#f)))) (define __core-bound-id?__0 - (lambda (_id79121_) - (let ((_is?79123_ true)) + (lambda (_id79103_) + (let ((_is?79105_ true)) (declare (not safe)) - (__core-bound-id?__% _id79121_ _is?79123_)))) + (__core-bound-id?__% _id79103_ _is?79105_)))) (define __core-bound-id? - (lambda _g79342_ - (let ((_g79341_ (let () (declare (not safe)) (##length _g79342_)))) - (cond ((let () (declare (not safe)) (##fx= _g79341_ 1)) - (apply (lambda (_id79121_) + (lambda _g79324_ + (let ((_g79323_ (let () (declare (not safe)) (##length _g79324_)))) + (cond ((let () (declare (not safe)) (##fx= _g79323_ 1)) + (apply (lambda (_id79103_) (let () (declare (not safe)) - (__core-bound-id?__0 _id79121_))) - _g79342_)) - ((let () (declare (not safe)) (##fx= _g79341_ 2)) - (apply (lambda (_id79125_ _is?79126_) + (__core-bound-id?__0 _id79103_))) + _g79324_)) + ((let () (declare (not safe)) (##fx= _g79323_ 2)) + (apply (lambda (_id79107_ _is?79108_) (let () (declare (not safe)) - (__core-bound-id?__% _id79125_ _is?79126_))) - _g79342_)) + (__core-bound-id?__% _id79107_ _is?79108_))) + _g79324_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g79342_)))))) + _g79324_)))))) (define __core-bind-syntax!__% - (lambda (_id79095_ _e79096_ _make79097_) - (let ((__tmp79343 + (lambda (_id79077_ _e79078_ _make79079_) + (let ((__tmp79325 (if (let () (declare (not safe)) (##structure-instance-of? - _e79096_ + _e79078_ 'gerbil/runtime/eval#__syntax::t)) - _e79096_ - (_make79097_ _e79096_ _id79095_)))) + _e79078_ + (_make79079_ _e79078_ _id79077_)))) (declare (not safe)) - (hash-put! __core _id79095_ __tmp79343)))) + (hash-put! __core _id79077_ __tmp79325)))) (define __core-bind-syntax!__0 - (lambda (_id79102_ _e79103_) - (let ((_make79105_ make-__syntax)) + (lambda (_id79084_ _e79085_) + (let ((_make79087_ make-__syntax)) (declare (not safe)) - (__core-bind-syntax!__% _id79102_ _e79103_ _make79105_)))) + (__core-bind-syntax!__% _id79084_ _e79085_ _make79087_)))) (define __core-bind-syntax! - (lambda _g79345_ - (let ((_g79344_ (let () (declare (not safe)) (##length _g79345_)))) - (cond ((let () (declare (not safe)) (##fx= _g79344_ 2)) - (apply (lambda (_id79102_ _e79103_) + (lambda _g79327_ + (let ((_g79326_ (let () (declare (not safe)) (##length _g79327_)))) + (cond ((let () (declare (not safe)) (##fx= _g79326_ 2)) + (apply (lambda (_id79084_ _e79085_) (let () (declare (not safe)) - (__core-bind-syntax!__0 _id79102_ _e79103_))) - _g79345_)) - ((let () (declare (not safe)) (##fx= _g79344_ 3)) - (apply (lambda (_id79107_ _e79108_ _make79109_) + (__core-bind-syntax!__0 _id79084_ _e79085_))) + _g79327_)) + ((let () (declare (not safe)) (##fx= _g79326_ 3)) + (apply (lambda (_id79089_ _e79090_ _make79091_) (let () (declare (not safe)) (__core-bind-syntax!__% - _id79107_ - _e79108_ - _make79109_))) - _g79345_)) + _id79089_ + _e79090_ + _make79091_))) + _g79327_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g79345_)))))) + _g79327_)))))) (define __SRC__% - (lambda (_e79078_ _src-stx79079_) - (if (or (let () (declare (not safe)) (pair? _e79078_)) - (let () (declare (not safe)) (symbol? _e79078_))) - (let ((__tmp79349 + (lambda (_e79060_ _src-stx79061_) + (if (or (let () (declare (not safe)) (pair? _e79060_)) + (let () (declare (not safe)) (symbol? _e79060_))) + (let ((__tmp79331 (if (let () (declare (not safe)) (##structure-instance-of? - _src-stx79079_ + _src-stx79061_ 'gerbil#AST::t)) - (let ((__tmp79350 + (let ((__tmp79332 (let () (declare (not safe)) - (__AST-source _src-stx79079_)))) + (__AST-source _src-stx79061_)))) (declare (not safe)) - (__locat __tmp79350)) + (__locat __tmp79332)) '#f))) (declare (not safe)) - (##make-source _e79078_ __tmp79349)) + (##make-source _e79060_ __tmp79331)) (if (let () (declare (not safe)) - (##structure-instance-of? _e79078_ 'gerbil#AST::t)) - (let ((__tmp79348 + (##structure-instance-of? _e79060_ 'gerbil#AST::t)) + (let ((__tmp79330 (let () (declare (not safe)) - (##unchecked-structure-ref _e79078_ '1 AST::t '#f))) - (__tmp79346 - (let ((__tmp79347 + (##unchecked-structure-ref _e79060_ '1 AST::t '#f))) + (__tmp79328 + (let ((__tmp79329 (let () (declare (not safe)) - (__AST-source _e79078_)))) + (__AST-source _e79060_)))) (declare (not safe)) - (__locat __tmp79347)))) + (__locat __tmp79329)))) (declare (not safe)) - (##make-source __tmp79348 __tmp79346)) + (##make-source __tmp79330 __tmp79328)) (let () (declare (not safe)) - (error '"BUG! Cannot sourcify object" _e79078_)))))) + (error '"BUG! Cannot sourcify object" _e79060_)))))) (define __SRC__0 - (lambda (_e79087_) - (let ((_src-stx79089_ '#f)) + (lambda (_e79069_) + (let ((_src-stx79071_ '#f)) (declare (not safe)) - (__SRC__% _e79087_ _src-stx79089_)))) + (__SRC__% _e79069_ _src-stx79071_)))) (define __SRC - (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_) + (lambda _g79334_ + (let ((_g79333_ (let () (declare (not safe)) (##length _g79334_)))) + (cond ((let () (declare (not safe)) (##fx= _g79333_ 1)) + (apply (lambda (_e79069_) + (let () (declare (not safe)) (__SRC__0 _e79069_))) + _g79334_)) + ((let () (declare (not safe)) (##fx= _g79333_ 2)) + (apply (lambda (_e79073_ _src-stx79074_) (let () (declare (not safe)) - (__SRC__% _e79091_ _src-stx79092_))) - _g79352_)) + (__SRC__% _e79073_ _src-stx79074_))) + _g79334_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g79352_)))))) + _g79334_)))))) (define __locat - (lambda (_loc79075_) - (if (let () (declare (not safe)) (##locat? _loc79075_)) - _loc79075_ + (lambda (_loc79057_) + (if (let () (declare (not safe)) (##locat? _loc79057_)) + _loc79057_ '#f))) (define __check-values - (lambda (_obj79070_ _k79071_) - (let ((_count79073_ - (if (let () (declare (not safe)) (##values? _obj79070_)) - (let () (declare (not safe)) (##vector-length _obj79070_)) + (lambda (_obj79052_ _k79053_) + (let ((_count79055_ + (if (let () (declare (not safe)) (##values? _obj79052_)) + (let () (declare (not safe)) (##vector-length _obj79052_)) '1))) - (if (fx= _count79073_ _k79071_) + (if (fx= _count79055_ _k79053_) '#!void - (let ((__tmp79354 - (if (fx< _count79073_ _k79071_) + (let ((__tmp79336 + (if (fx< _count79055_ _k79053_) '"Too few values for context" '"Too many values for context")) - (__tmp79353 - (if (let () (declare (not safe)) (##values? _obj79070_)) + (__tmp79335 + (if (let () (declare (not safe)) (##values? _obj79052_)) (let () (declare (not safe)) - (##vector->list _obj79070_)) - _obj79070_))) + (##vector->list _obj79052_)) + _obj79052_))) (declare (not safe)) - (error __tmp79354 __tmp79353 _k79071_)))))) + (error __tmp79336 __tmp79335 _k79053_)))))) (define __compile - (lambda (_stx79040_) - (let* ((_$e79042_ _stx79040_) - (_$E7904479050_ + (lambda (_stx79022_) + (let* ((_$e79024_ _stx79022_) + (_$E7902679032_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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_ + _$e79024_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e79024_)) + (let* ((_$tgt7902779035_ + (let () (declare (not safe)) (__AST-e _$e79024_))) + (_$hd7902879038_ + (let () (declare (not safe)) (##car _$tgt7902779035_))) + (_$tl7902979041_ + (let () (declare (not safe)) (##cdr _$tgt7902779035_)))) + (let* ((_form79045_ _$hd7902879038_) + (_$e79047_ (let () (declare (not safe)) - (__core-resolve _form79063_)))) - (if _$e79065_ - ((lambda (_bind79068_) - ((##structure-ref _bind79068_ '1 __syntax::t '#f) - _stx79040_)) - _$e79065_) + (__core-resolve _form79045_)))) + (if _$e79047_ + ((lambda (_bind79050_) + ((##structure-ref _bind79050_ '1 __syntax::t '#f) + _stx79022_)) + _$e79047_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _stx79040_ - _form79063_))))) - (let () (declare (not safe)) (_$E7904479050_)))))) + _stx79022_ + _form79045_))))) + (let () (declare (not safe)) (_$E7902679032_)))))) (define __compile-error__% - (lambda (_stx79027_ _detail79028_) + (lambda (_stx79009_ _detail79010_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _stx79027_ - _detail79028_)))) + _stx79009_ + _detail79010_)))) (define __compile-error__0 - (lambda (_stx79033_) - (let ((_detail79035_ '#f)) + (lambda (_stx79015_) + (let ((_detail79017_ '#f)) (declare (not safe)) - (__compile-error__% _stx79033_ _detail79035_)))) + (__compile-error__% _stx79015_ _detail79017_)))) (define __compile-error - (lambda _g79356_ - (let ((_g79355_ (let () (declare (not safe)) (##length _g79356_)))) - (cond ((let () (declare (not safe)) (##fx= _g79355_ 1)) - (apply (lambda (_stx79033_) + (lambda _g79338_ + (let ((_g79337_ (let () (declare (not safe)) (##length _g79338_)))) + (cond ((let () (declare (not safe)) (##fx= _g79337_ 1)) + (apply (lambda (_stx79015_) (let () (declare (not safe)) - (__compile-error__0 _stx79033_))) - _g79356_)) - ((let () (declare (not safe)) (##fx= _g79355_ 2)) - (apply (lambda (_stx79037_ _detail79038_) + (__compile-error__0 _stx79015_))) + _g79338_)) + ((let () (declare (not safe)) (##fx= _g79337_ 2)) + (apply (lambda (_stx79019_ _detail79020_) (let () (declare (not safe)) - (__compile-error__% _stx79037_ _detail79038_))) - _g79356_)) + (__compile-error__% _stx79019_ _detail79020_))) + _g79338_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g79356_)))))) + _g79338_)))))) (define __compile-ignore% - (lambda (_stx79024_) - (let () (declare (not safe)) (__SRC__% ''#!void _stx79024_)))) + (lambda (_stx79006_) + (let () (declare (not safe)) (__SRC__% ''#!void _stx79006_)))) (define __compile-begin% - (lambda (_stx78999_) - (let* ((_$e79001_ _stx78999_) - (_$E7900379009_ + (lambda (_stx78981_) + (let* ((_$e78983_ _stx78981_) + (_$E7898578991_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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_))) + _$e78983_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78983_)) + (let* ((_$tgt7898678994_ + (let () (declare (not safe)) (__AST-e _$e78983_))) + (_$hd7898778997_ + (let () (declare (not safe)) (##car _$tgt7898678994_))) + (_$tl7898879000_ + (let () (declare (not safe)) (##cdr _$tgt7898678994_)))) + (let* ((_body79004_ _$tl7898879000_) + (__tmp79339 + (let ((__tmp79340 (map __compile _body79004_))) (declare (not safe)) - (cons 'begin __tmp79358)))) + (cons 'begin __tmp79340)))) (declare (not safe)) - (__SRC__% __tmp79357 _stx78999_))) - (let () (declare (not safe)) (_$E7900379009_)))))) + (__SRC__% __tmp79339 _stx78981_))) + (let () (declare (not safe)) (_$E7898578991_)))))) (define __compile-begin-foreign% - (lambda (_stx78974_) - (let* ((_$e78976_ _stx78974_) - (_$E7897878984_ + (lambda (_stx78956_) + (let* ((_$e78958_ _stx78956_) + (_$E7896078966_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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 + _$e78958_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78958_)) + (let* ((_$tgt7896178969_ + (let () (declare (not safe)) (__AST-e _$e78958_))) + (_$hd7896278972_ + (let () (declare (not safe)) (##car _$tgt7896178969_))) + (_$tl7896378975_ + (let () (declare (not safe)) (##cdr _$tgt7896178969_)))) + (let* ((_body78979_ _$tl7896378975_) + (__tmp79341 + (let ((__tmp79342 (let () (declare (not safe)) - (__AST->datum _body78997_)))) + (__AST->datum _body78979_)))) (declare (not safe)) - (cons 'begin __tmp79360)))) + (cons 'begin __tmp79342)))) (declare (not safe)) - (__SRC__% __tmp79359 _stx78974_))) - (let () (declare (not safe)) (_$E7897878984_)))))) + (__SRC__% __tmp79341 _stx78956_))) + (let () (declare (not safe)) (_$E7896078966_)))))) (define __compile-import% - (lambda (_stx78949_) - (let* ((_$e78951_ _stx78949_) - (_$E7895378959_ + (lambda (_stx78931_) + (let* ((_$e78933_ _stx78931_) + (_$E7893578941_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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 + _$e78933_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78933_)) + (let* ((_$tgt7893678944_ + (let () (declare (not safe)) (__AST-e _$e78933_))) + (_$hd7893778947_ + (let () (declare (not safe)) (##car _$tgt7893678944_))) + (_$tl7893878950_ + (let () (declare (not safe)) (##cdr _$tgt7893678944_)))) + (let* ((_body78954_ _$tl7893878950_) + (__tmp79343 + (let ((__tmp79344 + (let ((__tmp79345 + (let ((__tmp79346 (let () (declare (not safe)) - (cons _body78972_ '())))) + (cons _body78954_ '())))) (declare (not safe)) - (cons 'quote __tmp79364)))) + (cons 'quote __tmp79346)))) (declare (not safe)) - (cons __tmp79363 '())))) + (cons __tmp79345 '())))) (declare (not safe)) - (cons '__eval-import __tmp79362)))) + (cons '__eval-import __tmp79344)))) (declare (not safe)) - (__SRC__% __tmp79361 _stx78949_))) - (let () (declare (not safe)) (_$E7895378959_)))))) + (__SRC__% __tmp79343 _stx78931_))) + (let () (declare (not safe)) (_$E7893578941_)))))) (define __compile-begin-annotation% - (lambda (_stx78896_) - (let* ((_$e78898_ _stx78896_) - (_$E7890078912_ + (lambda (_stx78878_) + (let* ((_$e78880_ _stx78878_) + (_$E7888278894_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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_ + _$e78880_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78880_)) + (let* ((_$tgt7888378897_ + (let () (declare (not safe)) (__AST-e _$e78880_))) + (_$hd7888478900_ + (let () (declare (not safe)) (##car _$tgt7888378897_))) + (_$tl7888578903_ + (let () (declare (not safe)) (##cdr _$tgt7888378897_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7888578903_)) + (let* ((_$tgt7888678907_ (let () (declare (not safe)) - (__AST-e _$tl7890378921_))) - (_$hd7890578928_ + (__AST-e _$tl7888578903_))) + (_$hd7888778910_ (let () (declare (not safe)) - (##car _$tgt7890478925_))) - (_$tl7890678931_ + (##car _$tgt7888678907_))) + (_$tl7888878913_ (let () (declare (not safe)) - (##cdr _$tgt7890478925_)))) - (let ((_ann78935_ _$hd7890578928_)) + (##cdr _$tgt7888678907_)))) + (let ((_ann78917_ _$hd7888778910_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7890678931_)) - (let* ((_$tgt7890778937_ + (__AST-pair? _$tl7888878913_)) + (let* ((_$tgt7888978919_ (let () (declare (not safe)) - (__AST-e _$tl7890678931_))) - (_$hd7890878940_ + (__AST-e _$tl7888878913_))) + (_$hd7889078922_ (let () (declare (not safe)) - (##car _$tgt7890778937_))) - (_$tl7890978943_ + (##car _$tgt7888978919_))) + (_$tl7889178925_ (let () (declare (not safe)) - (##cdr _$tgt7890778937_)))) - (let ((_expr78947_ _$hd7890878940_)) - (if (let ((__tmp79365 + (##cdr _$tgt7888978919_)))) + (let ((_expr78929_ _$hd7889078922_)) + (if (let ((__tmp79347 (let () (declare (not safe)) - (__AST-e _$tl7890978943_)))) + (__AST-e _$tl7889178925_)))) (declare (not safe)) - (equal? __tmp79365 '())) + (equal? __tmp79347 '())) (let () (declare (not safe)) - (__compile _expr78947_)) + (__compile _expr78929_)) (let () (declare (not safe)) - (_$E7890078912_))))) - (let () (declare (not safe)) (_$E7890078912_))))) - (let () (declare (not safe)) (_$E7890078912_)))) - (let () (declare (not safe)) (_$E7890078912_)))))) + (_$E7888278894_))))) + (let () (declare (not safe)) (_$E7888278894_))))) + (let () (declare (not safe)) (_$E7888278894_)))) + (let () (declare (not safe)) (_$E7888278894_)))))) (define __compile-define-values% - (lambda (_stx78787_) - (let* ((_$e78789_ _stx78787_) - (_$E7879178803_ + (lambda (_stx78769_) + (let* ((_$e78771_ _stx78769_) + (_$E7877378785_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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_ + _$e78771_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78771_)) + (let* ((_$tgt7877478788_ + (let () (declare (not safe)) (__AST-e _$e78771_))) + (_$hd7877578791_ + (let () (declare (not safe)) (##car _$tgt7877478788_))) + (_$tl7877678794_ + (let () (declare (not safe)) (##cdr _$tgt7877478788_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7877678794_)) + (let* ((_$tgt7877778798_ (let () (declare (not safe)) - (__AST-e _$tl7879478812_))) - (_$hd7879678819_ + (__AST-e _$tl7877678794_))) + (_$hd7877878801_ (let () (declare (not safe)) - (##car _$tgt7879578816_))) - (_$tl7879778822_ + (##car _$tgt7877778798_))) + (_$tl7877978804_ (let () (declare (not safe)) - (##cdr _$tgt7879578816_)))) - (let ((_hd78826_ _$hd7879678819_)) + (##cdr _$tgt7877778798_)))) + (let ((_hd78808_ _$hd7877878801_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7879778822_)) - (let* ((_$tgt7879878828_ + (__AST-pair? _$tl7877978804_)) + (let* ((_$tgt7878078810_ (let () (declare (not safe)) - (__AST-e _$tl7879778822_))) - (_$hd7879978831_ + (__AST-e _$tl7877978804_))) + (_$hd7878178813_ (let () (declare (not safe)) - (##car _$tgt7879878828_))) - (_$tl7880078834_ + (##car _$tgt7878078810_))) + (_$tl7878278816_ (let () (declare (not safe)) - (##cdr _$tgt7879878828_)))) - (let ((_expr78838_ _$hd7879978831_)) - (if (let ((__tmp79398 + (##cdr _$tgt7878078810_)))) + (let ((_expr78820_ _$hd7878178813_)) + (if (let ((__tmp79380 (let () (declare (not safe)) - (__AST-e _$tl7880078834_)))) + (__AST-e _$tl7878278816_)))) (declare (not safe)) - (equal? __tmp79398 '())) - (let* ((_$e78840_ _hd78826_) - (_$E7884278883_ + (equal? __tmp79380 '())) + (let* ((_$e78822_ _hd78808_) + (_$E7882478865_ (lambda () - (let ((_$E7884378868_ + (let ((_$E7882578850_ (lambda () - (let* ((_$E7884478855_ + (let* ((_$E7882678837_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () @@ -658,2891 +658,2891 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78840_)))) - (_ids78858_ _hd78826_) - (_len78860_ (length _ids78858_)) - (_tmp78862_ - (let ((__tmp79366 (gensym))) + _$e78822_)))) + (_ids78840_ _hd78808_) + (_len78842_ (length _ids78840_)) + (_tmp78844_ + (let ((__tmp79348 (gensym))) (declare (not safe)) - (__SRC__0 __tmp79366)))) - (let ((__tmp79367 - (let ((__tmp79368 - (let ((__tmp79385 - (let ((__tmp79386 - (let ((__tmp79387 - (let ((__tmp79388 - (let ((__tmp79389 + (__SRC__0 __tmp79348)))) + (let ((__tmp79349 + (let ((__tmp79350 + (let ((__tmp79367 + (let ((__tmp79368 + (let ((__tmp79369 + (let ((__tmp79370 + (let ((__tmp79371 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__compile _expr78838_)))) + (__compile _expr78820_)))) (declare (not safe)) - (cons __tmp79389 '())))) + (cons __tmp79371 '())))) (declare (not safe)) - (cons _tmp78862_ __tmp79388)))) + (cons _tmp78844_ __tmp79370)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'define __tmp79387)))) + (cons 'define __tmp79369)))) (declare (not safe)) - (__SRC__% __tmp79386 _stx78787_))) - (__tmp79369 - (let ((__tmp79381 - (let ((__tmp79382 - (let ((__tmp79383 - (let ((__tmp79384 + (__SRC__% __tmp79368 _stx78769_))) + (__tmp79351 + (let ((__tmp79363 + (let ((__tmp79364 + (let ((__tmp79365 + (let ((__tmp79366 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _len78860_ '())))) + (let () (declare (not safe)) (cons _len78842_ '())))) (declare (not safe)) - (cons _tmp78862_ __tmp79384)))) + (cons _tmp78844_ __tmp79366)))) (declare (not safe)) - (cons '__check-values __tmp79383)))) + (cons '__check-values __tmp79365)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp79382 - _stx78787_))) - (__tmp79370 - (let ((__tmp79371 - (let ((__tmp79373 - (lambda (_id78865_ + __tmp79364 + _stx78769_))) + (__tmp79352 + (let ((__tmp79353 + (let ((__tmp79355 + (lambda (_id78847_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _k78866_) - (if (let () (declare (not safe)) (__AST-e _id78865_)) - (let ((__tmp79374 - (let ((__tmp79375 - (let ((__tmp79380 + _k78848_) + (if (let () (declare (not safe)) (__AST-e _id78847_)) + (let ((__tmp79356 + (let ((__tmp79357 + (let ((__tmp79362 (let () (declare (not safe)) - (__SRC__0 _id78865_))) - (__tmp79376 - (let ((__tmp79377 - (let ((__tmp79378 - (let ((__tmp79379 + (__SRC__0 _id78847_))) + (__tmp79358 + (let ((__tmp79359 + (let ((__tmp79360 + (let ((__tmp79361 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _k78866_ '())))) + (let () (declare (not safe)) (cons _k78848_ '())))) (declare (not safe)) - (cons _tmp78862_ __tmp79379)))) + (cons _tmp78844_ __tmp79361)))) (declare (not safe)) - (cons '##vector-ref __tmp79378)))) + (cons '##vector-ref __tmp79360)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79377 '())))) + (cons __tmp79359 '())))) (declare (not safe)) - (cons __tmp79380 __tmp79376)))) + (cons __tmp79362 __tmp79358)))) (declare (not safe)) - (cons 'define __tmp79375)))) + (cons 'define __tmp79357)))) (declare (not safe)) - (__SRC__% __tmp79374 _stx78787_)) + (__SRC__% __tmp79356 _stx78769_)) '#f))) - (__tmp79372 (iota _len78860_))) + (__tmp79354 (iota _len78842_))) (declare (not safe)) - (filter-map2 __tmp79373 _ids78858_ __tmp79372)))) + (filter-map2 __tmp79355 _ids78840_ __tmp79354)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 cons '() __tmp79371)))) + (foldr1 cons '() __tmp79353)))) (declare (not safe)) - (cons __tmp79381 __tmp79370)))) + (cons __tmp79363 __tmp79352)))) (declare (not safe)) - (cons __tmp79385 __tmp79369)))) + (cons __tmp79367 __tmp79351)))) (declare (not safe)) - (cons 'begin __tmp79368)))) + (cons 'begin __tmp79350)))) (declare (not safe)) - (__SRC__% __tmp79367 _stx78787_)))))) + (__SRC__% __tmp79349 _stx78769_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _$e78840_)) - (let* ((_$tgt7884578871_ + (__AST-pair? _$e78822_)) + (let* ((_$tgt7882778853_ (let () (declare (not safe)) - (__AST-e _$e78840_))) - (_$hd7884678874_ + (__AST-e _$e78822_))) + (_$hd7882878856_ (let () (declare (not safe)) - (##car _$tgt7884578871_))) - (_$tl7884778877_ + (##car _$tgt7882778853_))) + (_$tl7882978859_ (let () (declare (not safe)) - (##cdr _$tgt7884578871_)))) - (let ((_id78881_ - _$hd7884678874_)) - (if (let ((__tmp79395 + (##cdr _$tgt7882778853_)))) + (let ((_id78863_ + _$hd7882878856_)) + (if (let ((__tmp79377 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__AST-e _$tl7884778877_)))) + (__AST-e _$tl7882978859_)))) (declare (not safe)) - (equal? __tmp79395 '())) - (let ((__tmp79390 - (let ((__tmp79391 - (let ((__tmp79394 + (equal? __tmp79377 '())) + (let ((__tmp79372 + (let ((__tmp79373 + (let ((__tmp79376 (let () (declare (not safe)) - (__SRC__0 _id78881_))) - (__tmp79392 - (let ((__tmp79393 + (__SRC__0 _id78863_))) + (__tmp79374 + (let ((__tmp79375 (let () (declare (not safe)) - (__compile _expr78838_)))) + (__compile _expr78820_)))) (declare (not safe)) - (cons __tmp79393 '())))) + (cons __tmp79375 '())))) (declare (not safe)) - (cons __tmp79394 __tmp79392)))) + (cons __tmp79376 __tmp79374)))) (declare (not safe)) - (cons 'define __tmp79391)))) + (cons 'define __tmp79373)))) (declare (not safe)) - (__SRC__% __tmp79390 _stx78787_)) - (let () (declare (not safe)) (_$E7884378868_))))) + (__SRC__% __tmp79372 _stx78769_)) + (let () (declare (not safe)) (_$E7882578850_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E7884378868_))))))) + (_$E7882578850_))))))) (if (let () (declare (not safe)) - (__AST-pair? _$e78840_)) - (let* ((_$tgt7884878886_ + (__AST-pair? _$e78822_)) + (let* ((_$tgt7883078868_ (let () (declare (not safe)) - (__AST-e _$e78840_))) - (_$hd7884978889_ + (__AST-e _$e78822_))) + (_$hd7883178871_ (let () (declare (not safe)) - (##car _$tgt7884878886_))) - (_$tl7885078892_ + (##car _$tgt7883078868_))) + (_$tl7883278874_ (let () (declare (not safe)) - (##cdr _$tgt7884878886_)))) - (if (let ((__tmp79397 + (##cdr _$tgt7883078868_)))) + (if (let ((__tmp79379 (let () (declare (not safe)) - (__AST-e _$hd7884978889_)))) + (__AST-e _$hd7883178871_)))) (declare (not safe)) - (equal? __tmp79397 '#f)) - (if (let ((__tmp79396 + (equal? __tmp79379 '#f)) + (if (let ((__tmp79378 (let () (declare (not safe)) - (__AST-e _$tl7885078892_)))) + (__AST-e _$tl7883278874_)))) (declare (not safe)) - (equal? __tmp79396 '())) + (equal? __tmp79378 '())) (let () (declare (not safe)) - (__compile _expr78838_)) + (__compile _expr78820_)) (let () (declare (not safe)) - (_$E7884278883_))) + (_$E7882478865_))) (let () (declare (not safe)) - (_$E7884278883_)))) + (_$E7882478865_)))) (let () (declare (not safe)) - (_$E7884278883_)))) + (_$E7882478865_)))) (let () (declare (not safe)) - (_$E7879178803_))))) - (let () (declare (not safe)) (_$E7879178803_))))) - (let () (declare (not safe)) (_$E7879178803_)))) - (let () (declare (not safe)) (_$E7879178803_)))))) + (_$E7877378785_))))) + (let () (declare (not safe)) (_$E7877378785_))))) + (let () (declare (not safe)) (_$E7877378785_)))) + (let () (declare (not safe)) (_$E7877378785_)))))) (define __compile-head-id - (lambda (_e78785_) - (let ((__tmp79399 - (if (let () (declare (not safe)) (__AST-e _e78785_)) - _e78785_ + (lambda (_e78767_) + (let ((__tmp79381 + (if (let () (declare (not safe)) (__AST-e _e78767_)) + _e78767_ (gensym)))) (declare (not safe)) - (__SRC__0 __tmp79399)))) + (__SRC__0 __tmp79381)))) (define __compile-lambda-head - (lambda (_hd78742_) - (let _recur78744_ ((_rest78746_ _hd78742_)) - (let* ((_$e78748_ _rest78746_) - (_$E7875078768_ + (lambda (_hd78724_) + (let _recur78726_ ((_rest78728_ _hd78724_)) + (let* ((_$e78730_ _rest78728_) + (_$E7873278750_ (lambda () - (let ((_$E7875178765_ + (let ((_$E7873378747_ (lambda () - (let* ((_$E7875278760_ + (let* ((_$E7873478742_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78748_)))) - (_tail78763_ _$e78748_)) + _$e78730_)))) + (_tail78745_ _$e78730_)) (declare (not safe)) - (__compile-head-id _tail78763_))))) - (if (let ((__tmp79400 + (__compile-head-id _tail78745_))))) + (if (let ((__tmp79382 (let () (declare (not safe)) - (__AST-e _$e78748_)))) + (__AST-e _$e78730_)))) (declare (not safe)) - (equal? __tmp79400 '())) + (equal? __tmp79382 '())) '() - (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)) (_$E7873378747_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78730_)) + (let* ((_$tgt7873578753_ + (let () (declare (not safe)) (__AST-e _$e78730_))) + (_$hd7873678756_ + (let () (declare (not safe)) (##car _$tgt7873578753_))) + (_$tl7873778759_ (let () (declare (not safe)) - (##cdr _$tgt7875378771_)))) - (let* ((_hd78781_ _$hd7875478774_) - (_rest78783_ _$tl7875578777_)) - (let ((__tmp79402 + (##cdr _$tgt7873578753_)))) + (let* ((_hd78763_ _$hd7873678756_) + (_rest78765_ _$tl7873778759_)) + (let ((__tmp79384 (let () (declare (not safe)) - (__compile-head-id _hd78781_))) - (__tmp79401 + (__compile-head-id _hd78763_))) + (__tmp79383 (let () (declare (not safe)) - (_recur78744_ _rest78783_)))) + (_recur78726_ _rest78765_)))) (declare (not safe)) - (cons __tmp79402 __tmp79401)))) - (let () (declare (not safe)) (_$E7875078768_))))))) + (cons __tmp79384 __tmp79383)))) + (let () (declare (not safe)) (_$E7873278750_))))))) (define __compile-lambda% - (lambda (_stx78689_) - (let* ((_$e78691_ _stx78689_) - (_$E7869378705_ + (lambda (_stx78671_) + (let* ((_$e78673_ _stx78671_) + (_$E7867578687_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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_ + _$e78673_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78673_)) + (let* ((_$tgt7867678690_ + (let () (declare (not safe)) (__AST-e _$e78673_))) + (_$hd7867778693_ + (let () (declare (not safe)) (##car _$tgt7867678690_))) + (_$tl7867878696_ + (let () (declare (not safe)) (##cdr _$tgt7867678690_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7867878696_)) + (let* ((_$tgt7867978700_ (let () (declare (not safe)) - (__AST-e _$tl7869678714_))) - (_$hd7869878721_ + (__AST-e _$tl7867878696_))) + (_$hd7868078703_ (let () (declare (not safe)) - (##car _$tgt7869778718_))) - (_$tl7869978724_ + (##car _$tgt7867978700_))) + (_$tl7868178706_ (let () (declare (not safe)) - (##cdr _$tgt7869778718_)))) - (let ((_hd78728_ _$hd7869878721_)) + (##cdr _$tgt7867978700_)))) + (let ((_hd78710_ _$hd7868078703_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7869978724_)) - (let* ((_$tgt7870078730_ + (__AST-pair? _$tl7868178706_)) + (let* ((_$tgt7868278712_ (let () (declare (not safe)) - (__AST-e _$tl7869978724_))) - (_$hd7870178733_ + (__AST-e _$tl7868178706_))) + (_$hd7868378715_ (let () (declare (not safe)) - (##car _$tgt7870078730_))) - (_$tl7870278736_ + (##car _$tgt7868278712_))) + (_$tl7868478718_ (let () (declare (not safe)) - (##cdr _$tgt7870078730_)))) - (let ((_body78740_ _$hd7870178733_)) - (if (let ((__tmp79408 + (##cdr _$tgt7868278712_)))) + (let ((_body78722_ _$hd7868378715_)) + (if (let ((__tmp79390 (let () (declare (not safe)) - (__AST-e _$tl7870278736_)))) + (__AST-e _$tl7868478718_)))) (declare (not safe)) - (equal? __tmp79408 '())) - (let ((__tmp79403 - (let ((__tmp79404 - (let ((__tmp79407 + (equal? __tmp79390 '())) + (let ((__tmp79385 + (let ((__tmp79386 + (let ((__tmp79389 (let () (declare (not safe)) (__compile-lambda-head - _hd78728_))) - (__tmp79405 - (let ((__tmp79406 + _hd78710_))) + (__tmp79387 + (let ((__tmp79388 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _body78740_)))) + (__compile _body78722_)))) (declare (not safe)) - (cons __tmp79406 '())))) + (cons __tmp79388 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79407 - __tmp79405)))) + (cons __tmp79389 + __tmp79387)))) (declare (not safe)) - (cons 'lambda __tmp79404)))) + (cons 'lambda __tmp79386)))) (declare (not safe)) - (__SRC__% __tmp79403 _stx78689_)) + (__SRC__% __tmp79385 _stx78671_)) (let () (declare (not safe)) - (_$E7869378705_))))) - (let () (declare (not safe)) (_$E7869378705_))))) - (let () (declare (not safe)) (_$E7869378705_)))) - (let () (declare (not safe)) (_$E7869378705_)))))) + (_$E7867578687_))))) + (let () (declare (not safe)) (_$E7867578687_))))) + (let () (declare (not safe)) (_$E7867578687_)))) + (let () (declare (not safe)) (_$E7867578687_)))))) (define __compile-case-lambda% - (lambda (_stx78481_) - (letrec ((_variadic?78483_ - (lambda (_hd78654_) - (let* ((_$e78656_ _hd78654_) - (_$E7865878674_ + (lambda (_stx78463_) + (letrec ((_variadic?78465_ + (lambda (_hd78636_) + (let* ((_$e78638_ _hd78636_) + (_$E7864078656_ (lambda () - (let ((_$E7865978671_ + (let ((_$E7864178653_ (lambda () - (let ((_$E7866078668_ + (let ((_$E7864278650_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78656_))))) + _$e78638_))))) '#t)))) - (if (let ((__tmp79409 + (if (let ((__tmp79391 (let () (declare (not safe)) - (__AST-e _$e78656_)))) + (__AST-e _$e78638_)))) (declare (not safe)) - (equal? __tmp79409 '())) + (equal? __tmp79391 '())) '#f (let () (declare (not safe)) - (_$E7865978671_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78656_)) - (let* ((_$tgt7866178677_ + (_$E7864178653_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78638_)) + (let* ((_$tgt7864378659_ (let () (declare (not safe)) - (__AST-e _$e78656_))) - (_$hd7866278680_ + (__AST-e _$e78638_))) + (_$hd7864478662_ (let () (declare (not safe)) - (##car _$tgt7866178677_))) - (_$tl7866378683_ + (##car _$tgt7864378659_))) + (_$tl7864578665_ (let () (declare (not safe)) - (##cdr _$tgt7866178677_)))) - (let ((_rest78687_ _$tl7866378683_)) + (##cdr _$tgt7864378659_)))) + (let ((_rest78669_ _$tl7864578665_)) (declare (not safe)) - (_variadic?78483_ _rest78687_))) - (let () (declare (not safe)) (_$E7865878674_)))))) - (_arity78484_ - (lambda (_hd78619_) - (let _lp78621_ ((_rest78623_ _hd78619_) (_k78624_ '0)) - (let* ((_$e78626_ _rest78623_) - (_$E7862878639_ + (_variadic?78465_ _rest78669_))) + (let () (declare (not safe)) (_$E7864078656_)))))) + (_arity78466_ + (lambda (_hd78601_) + (let _lp78603_ ((_rest78605_ _hd78601_) (_k78606_ '0)) + (let* ((_$e78608_ _rest78605_) + (_$E7861078621_ (lambda () - (let ((_$E7862978636_ + (let ((_$E7861178618_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78626_))))) - _k78624_)))) + _$e78608_))))) + _k78606_)))) (if (let () (declare (not safe)) - (__AST-pair? _$e78626_)) - (let* ((_$tgt7863078642_ + (__AST-pair? _$e78608_)) + (let* ((_$tgt7861278624_ (let () (declare (not safe)) - (__AST-e _$e78626_))) - (_$hd7863178645_ + (__AST-e _$e78608_))) + (_$hd7861378627_ (let () (declare (not safe)) - (##car _$tgt7863078642_))) - (_$tl7863278648_ + (##car _$tgt7861278624_))) + (_$tl7861478630_ (let () (declare (not safe)) - (##cdr _$tgt7863078642_)))) - (let* ((_rest78652_ _$tl7863278648_) - (__tmp79410 + (##cdr _$tgt7861278624_)))) + (let* ((_rest78634_ _$tl7861478630_) + (__tmp79392 (let () (declare (not safe)) - (fx+ _k78624_ '1)))) + (fx+ _k78606_ '1)))) (declare (not safe)) - (_lp78621_ _rest78652_ __tmp79410))) - (let () (declare (not safe)) (_$E7862878639_))))))) - (_generate78485_ - (lambda (_rest78546_ _args78547_ _len78548_) - (let* ((_$e78550_ _rest78546_) - (_$E7855278563_ + (_lp78603_ _rest78634_ __tmp79392))) + (let () (declare (not safe)) (_$E7861078621_))))))) + (_generate78467_ + (lambda (_rest78528_ _args78529_ _len78530_) + (let* ((_$e78532_ _rest78528_) + (_$E7853478545_ (lambda () - (let* ((_$E7855378560_ + (let* ((_$E7853578542_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78550_)))) - (__tmp79411 - (let ((__tmp79412 - (let ((__tmp79413 + _$e78532_)))) + (__tmp79393 + (let ((__tmp79394 + (let ((__tmp79395 (let () (declare (not safe)) - (cons _args78547_ '())))) + (cons _args78529_ '())))) (declare (not safe)) (cons '"No clause matching arguments" - __tmp79413)))) + __tmp79395)))) (declare (not safe)) - (cons 'error __tmp79412)))) + (cons 'error __tmp79394)))) (declare (not safe)) - (__SRC__% __tmp79411 _stx78481_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78550_)) - (let* ((_$tgt7855478566_ + (__SRC__% __tmp79393 _stx78463_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78532_)) + (let* ((_$tgt7853678548_ (let () (declare (not safe)) - (__AST-e _$e78550_))) - (_$hd7855578569_ + (__AST-e _$e78532_))) + (_$hd7853778551_ (let () (declare (not safe)) - (##car _$tgt7855478566_))) - (_$tl7855678572_ + (##car _$tgt7853678548_))) + (_$tl7853878554_ (let () (declare (not safe)) - (##cdr _$tgt7855478566_)))) - (let* ((_clause78576_ _$hd7855578569_) - (_rest78578_ _$tl7855678572_) - (_$e78580_ _clause78576_) - (_$E7858278591_ + (##cdr _$tgt7853678548_)))) + (let* ((_clause78558_ _$hd7853778551_) + (_rest78560_ _$tl7853878554_) + (_$e78562_ _clause78558_) + (_$E7856478573_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78580_))))) + _$e78562_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e78580_)) - (let* ((_$tgt7858378594_ + (__AST-pair? _$e78562_)) + (let* ((_$tgt7856578576_ (let () (declare (not safe)) - (__AST-e _$e78580_))) - (_$hd7858478597_ + (__AST-e _$e78562_))) + (_$hd7856678579_ (let () (declare (not safe)) - (##car _$tgt7858378594_))) - (_$tl7858578600_ + (##car _$tgt7856578576_))) + (_$tl7856778582_ (let () (declare (not safe)) - (##cdr _$tgt7858378594_)))) - (let ((_hd78604_ _$hd7858478597_)) + (##cdr _$tgt7856578576_)))) + (let ((_hd78586_ _$hd7856678579_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7858578600_)) - (let* ((_$tgt7858678606_ + (__AST-pair? _$tl7856778582_)) + (let* ((_$tgt7856878588_ (let () (declare (not safe)) - (__AST-e _$tl7858578600_))) - (_$hd7858778609_ + (__AST-e _$tl7856778582_))) + (_$hd7856978591_ (let () (declare (not safe)) - (##car _$tgt7858678606_))) - (_$tl7858878612_ + (##car _$tgt7856878588_))) + (_$tl7857078594_ (let () (declare (not safe)) - (##cdr _$tgt7858678606_)))) - (if (let ((__tmp79428 + (##cdr _$tgt7856878588_)))) + (if (let ((__tmp79410 (let () (declare (not safe)) - (__AST-e _$tl7858878612_)))) + (__AST-e _$tl7857078594_)))) (declare (not safe)) - (equal? __tmp79428 '())) - (let ((_clen78616_ + (equal? __tmp79410 '())) + (let ((_clen78598_ (let () (declare (not safe)) - (_arity78484_ - _hd78604_))) - (_cmp78617_ + (_arity78466_ + _hd78586_))) + (_cmp78599_ (if (let () (declare (not safe)) - (_variadic?78483_ - _hd78604_)) + (_variadic?78465_ + _hd78586_)) 'fx>= 'fx=))) - (let ((__tmp79414 - (let ((__tmp79415 - (let ((__tmp79425 + (let ((__tmp79396 + (let ((__tmp79397 + (let ((__tmp79407 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79426 - (let ((__tmp79427 + (let ((__tmp79408 + (let ((__tmp79409 (let () (declare (not safe)) - (cons _clen78616_ '())))) + (cons _clen78598_ '())))) (declare (not safe)) - (cons _len78548_ __tmp79427)))) + (cons _len78530_ __tmp79409)))) (declare (not safe)) - (cons _cmp78617_ __tmp79426))) - (__tmp79416 - (let ((__tmp79419 - (let ((__tmp79420 - (let ((__tmp79421 - (let ((__tmp79423 - (let ((__tmp79424 + (cons _cmp78599_ __tmp79408))) + (__tmp79398 + (let ((__tmp79401 + (let ((__tmp79402 + (let ((__tmp79403 + (let ((__tmp79405 + (let ((__tmp79406 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons '%#lambda _clause78576_)))) + (cons '%#lambda _clause78558_)))) (declare (not safe)) - (__compile-lambda% __tmp79424))) - (__tmp79422 - (let () (declare (not safe)) (cons _args78547_ '())))) + (__compile-lambda% __tmp79406))) + (__tmp79404 + (let () (declare (not safe)) (cons _args78529_ '())))) (declare (not safe)) - (cons __tmp79423 __tmp79422)))) + (cons __tmp79405 __tmp79404)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '##apply __tmp79421)))) + (cons '##apply __tmp79403)))) (declare (not safe)) - (__SRC__% __tmp79420 _stx78481_))) - (__tmp79417 - (let ((__tmp79418 + (__SRC__% __tmp79402 _stx78463_))) + (__tmp79399 + (let ((__tmp79400 (let () (declare (not safe)) - (_generate78485_ - _rest78578_ - _args78547_ - _len78548_)))) + (_generate78467_ + _rest78560_ + _args78529_ + _len78530_)))) (declare (not safe)) - (cons __tmp79418 '())))) + (cons __tmp79400 '())))) (declare (not safe)) - (cons __tmp79419 __tmp79417)))) + (cons __tmp79401 __tmp79399)))) (declare (not safe)) - (cons __tmp79425 __tmp79416)))) + (cons __tmp79407 __tmp79398)))) (declare (not safe)) - (cons 'if __tmp79415)))) + (cons 'if __tmp79397)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp79414 - _stx78481_))) + __tmp79396 + _stx78463_))) (let () (declare (not safe)) - (_$E7858278591_)))) + (_$E7856478573_)))) (let () (declare (not safe)) - (_$E7858278591_))))) + (_$E7856478573_))))) (let () (declare (not safe)) - (_$E7858278591_))))) - (let () (declare (not safe)) (_$E7855278563_))))))) - (let* ((_$e78487_ _stx78481_) - (_$E7848978521_ + (_$E7856478573_))))) + (let () (declare (not safe)) (_$E7853478545_))))))) + (let* ((_$e78469_ _stx78463_) + (_$E7847178503_ (lambda () - (let ((_$E7849078503_ + (let ((_$E7847278485_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78487_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78487_)) - (let* ((_$tgt7849178506_ + _$e78469_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78469_)) + (let* ((_$tgt7847378488_ (let () (declare (not safe)) - (__AST-e _$e78487_))) - (_$hd7849278509_ + (__AST-e _$e78469_))) + (_$hd7847478491_ (let () (declare (not safe)) - (##car _$tgt7849178506_))) - (_$tl7849378512_ + (##car _$tgt7847378488_))) + (_$tl7847578494_ (let () (declare (not safe)) - (##cdr _$tgt7849178506_)))) - (let ((_clauses78516_ _$tl7849378512_)) - (let ((_args78518_ - (let ((__tmp79429 (gensym))) + (##cdr _$tgt7847378488_)))) + (let ((_clauses78498_ _$tl7847578494_)) + (let ((_args78500_ + (let ((__tmp79411 (gensym))) (declare (not safe)) - (__SRC__% __tmp79429 _stx78481_))) - (_len78519_ - (let ((__tmp79430 (gensym))) + (__SRC__% __tmp79411 _stx78463_))) + (_len78501_ + (let ((__tmp79412 (gensym))) (declare (not safe)) - (__SRC__% __tmp79430 _stx78481_)))) - (let ((__tmp79431 - (let ((__tmp79432 - (let ((__tmp79433 - (let ((__tmp79434 - (let ((__tmp79435 + (__SRC__% __tmp79412 _stx78463_)))) + (let ((__tmp79413 + (let ((__tmp79414 + (let ((__tmp79415 + (let ((__tmp79416 + (let ((__tmp79417 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79436 - (let ((__tmp79439 - (let ((__tmp79440 - (let ((__tmp79441 - (let ((__tmp79442 - (let ((__tmp79443 + (let ((__tmp79418 + (let ((__tmp79421 + (let ((__tmp79422 + (let ((__tmp79423 + (let ((__tmp79424 + (let ((__tmp79425 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79444 + (let ((__tmp79426 (let () (declare (not safe)) - (cons _args78518_ '())))) + (cons _args78500_ '())))) (declare (not safe)) - (cons '##length __tmp79444)))) + (cons '##length __tmp79426)))) (declare (not safe)) - (__SRC__% __tmp79443 _stx78481_)))) + (__SRC__% __tmp79425 _stx78463_)))) (declare (not safe)) - (cons __tmp79442 '())))) + (cons __tmp79424 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _len78519_ - __tmp79441)))) + (cons _len78501_ + __tmp79423)))) (declare (not safe)) - (cons __tmp79440 '()))) - (__tmp79437 - (let ((__tmp79438 + (cons __tmp79422 '()))) + (__tmp79419 + (let ((__tmp79420 (let () (declare (not safe)) - (_generate78485_ - _clauses78516_ - _args78518_ - _len78519_)))) + (_generate78467_ + _clauses78498_ + _args78500_ + _len78501_)))) (declare (not safe)) - (cons __tmp79438 '())))) + (cons __tmp79420 '())))) (declare (not safe)) - (cons __tmp79439 __tmp79437)))) + (cons __tmp79421 __tmp79419)))) (declare (not safe)) - (cons 'let __tmp79436)))) + (cons 'let __tmp79418)))) (declare (not safe)) - (__SRC__% __tmp79435 _stx78481_)))) + (__SRC__% __tmp79417 _stx78463_)))) (declare (not safe)) - (cons __tmp79434 '())))) + (cons __tmp79416 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _args78518_ - __tmp79433)))) + (cons _args78500_ + __tmp79415)))) (declare (not safe)) - (cons 'lambda __tmp79432)))) + (cons 'lambda __tmp79414)))) (declare (not safe)) - (__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_ + (__SRC__% __tmp79413 _stx78463_))))) + (let () (declare (not safe)) (_$E7847278485_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78469_)) + (let* ((_$tgt7847678506_ + (let () (declare (not safe)) (__AST-e _$e78469_))) + (_$hd7847778509_ + (let () (declare (not safe)) (##car _$tgt7847678506_))) + (_$tl7847878512_ (let () (declare (not safe)) - (##cdr _$tgt7849478524_)))) + (##cdr _$tgt7847678506_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7849678530_)) - (let* ((_$tgt7849778534_ + (__AST-pair? _$tl7847878512_)) + (let* ((_$tgt7847978516_ (let () (declare (not safe)) - (__AST-e _$tl7849678530_))) - (_$hd7849878537_ + (__AST-e _$tl7847878512_))) + (_$hd7848078519_ (let () (declare (not safe)) - (##car _$tgt7849778534_))) - (_$tl7849978540_ + (##car _$tgt7847978516_))) + (_$tl7848178522_ (let () (declare (not safe)) - (##cdr _$tgt7849778534_)))) - (let ((_clause78544_ _$hd7849878537_)) - (if (let ((__tmp79446 + (##cdr _$tgt7847978516_)))) + (let ((_clause78526_ _$hd7848078519_)) + (if (let ((__tmp79428 (let () (declare (not safe)) - (__AST-e _$tl7849978540_)))) + (__AST-e _$tl7848178522_)))) (declare (not safe)) - (equal? __tmp79446 '())) - (let ((__tmp79445 + (equal? __tmp79428 '())) + (let ((__tmp79427 (let () (declare (not safe)) - (cons '%#lambda _clause78544_)))) + (cons '%#lambda _clause78526_)))) (declare (not safe)) - (__compile-lambda% __tmp79445)) - (let () (declare (not safe)) (_$E7848978521_))))) - (let () (declare (not safe)) (_$E7848978521_)))) - (let () (declare (not safe)) (_$E7848978521_))))))) + (__compile-lambda% __tmp79427)) + (let () (declare (not safe)) (_$E7847178503_))))) + (let () (declare (not safe)) (_$E7847178503_)))) + (let () (declare (not safe)) (_$E7847178503_))))))) (define __compile-let-form - (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 (_stx78232_ _compile-simple78233_ _compile-values78234_) + (letrec ((_simple-bind?78236_ + (lambda (_hd78421_) + (let* ((_hd7842278432_ _hd78421_) + (_else7842578440_ (lambda () '#f))) + (let ((_K7842878453_ (lambda (_id78451_) '#t)) + (_K7842778445_ (lambda () '#t))) + (let ((_try-match7842478448_ (lambda () (if (let () (declare (not safe)) - (##eq? _hd7844078450_ '#f)) + (##eq? _hd7842278432_ '#f)) (let () (declare (not safe)) - (_K7844578463_)) + (_K7842778445_)) (let () (declare (not safe)) - (_else7844378458_)))))) + (_else7842578440_)))))) (if (let () (declare (not safe)) - (##pair? _hd7844078450_)) - (let ((_tl7844878476_ + (##pair? _hd7842278432_)) + (let ((_tl7843078458_ (let () (declare (not safe)) - (##cdr _hd7844078450_))) - (_hd7844778474_ + (##cdr _hd7842278432_))) + (_hd7842978456_ (let () (declare (not safe)) - (##car _hd7844078450_)))) + (##car _hd7842278432_)))) (if (let () (declare (not safe)) - (##null? _tl7844878476_)) - (let ((_id78479_ _hd7844778474_)) + (##null? _tl7843078458_)) + (let ((_id78461_ _hd7842978456_)) (declare (not safe)) - (_K7844678471_ _id78479_)) + (_K7842878453_ _id78461_)) (let () (declare (not safe)) - (_try-match7844278466_)))) + (_try-match7842478448_)))) (let () (declare (not safe)) - (_try-match7844278466_)))))))) - (_car-e78255_ - (lambda (_hd78437_) - (if (let () (declare (not safe)) (pair? _hd78437_)) - (car _hd78437_) - _hd78437_)))) - (let* ((_$e78257_ _stx78250_) - (_$E7825978402_ + (_try-match7842478448_)))))))) + (_car-e78237_ + (lambda (_hd78419_) + (if (let () (declare (not safe)) (pair? _hd78419_)) + (car _hd78419_) + _hd78419_)))) + (let* ((_$e78239_ _stx78232_) + (_$E7824178384_ (lambda () - (let ((_$E7826078282_ + (let ((_$E7824278264_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78257_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e78257_)) - (let* ((_$tgt7826178285_ + _$e78239_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78239_)) + (let* ((_$tgt7824378267_ (let () (declare (not safe)) - (__AST-e _$e78257_))) - (_$hd7826278288_ + (__AST-e _$e78239_))) + (_$hd7824478270_ (let () (declare (not safe)) - (##car _$tgt7826178285_))) - (_$tl7826378291_ + (##car _$tgt7824378267_))) + (_$tl7824578273_ (let () (declare (not safe)) - (##cdr _$tgt7826178285_)))) + (##cdr _$tgt7824378267_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7826378291_)) - (let* ((_$tgt7826478295_ + (__AST-pair? _$tl7824578273_)) + (let* ((_$tgt7824678277_ (let () (declare (not safe)) - (__AST-e _$tl7826378291_))) - (_$hd7826578298_ + (__AST-e _$tl7824578273_))) + (_$hd7824778280_ (let () (declare (not safe)) - (##car _$tgt7826478295_))) - (_$tl7826678301_ + (##car _$tgt7824678277_))) + (_$tl7824878283_ (let () (declare (not safe)) - (##cdr _$tgt7826478295_)))) - (let ((_hd78305_ _$hd7826578298_)) + (##cdr _$tgt7824678277_)))) + (let ((_hd78287_ _$hd7824778280_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7826678301_)) - (let* ((_$tgt7826778307_ + (__AST-pair? _$tl7824878283_)) + (let* ((_$tgt7824978289_ (let () (declare (not safe)) - (__AST-e _$tl7826678301_))) - (_$hd7826878310_ + (__AST-e _$tl7824878283_))) + (_$hd7825078292_ (let () (declare (not safe)) - (##car _$tgt7826778307_))) - (_$tl7826978313_ + (##car _$tgt7824978289_))) + (_$tl7825178295_ (let () (declare (not safe)) - (##cdr _$tgt7826778307_)))) - (let ((_body78317_ _$hd7826878310_)) - (if (let ((__tmp79449 + (##cdr _$tgt7824978289_)))) + (let ((_body78299_ _$hd7825078292_)) + (if (let ((__tmp79431 (let () (declare (not safe)) - (__AST-e _$tl7826978313_)))) + (__AST-e _$tl7825178295_)))) (declare (not safe)) - (equal? __tmp79449 '())) - (let* ((_hd-ids78357_ - (map (lambda (_bind78319_) - (let* ((_$e78321_ + (equal? __tmp79431 '())) + (let* ((_hd-ids78339_ + (map (lambda (_bind78301_) + (let* ((_$e78303_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind78319_) - (_$E7832378332_ + _bind78301_) + (_$E7830578314_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78321_))))) + _$e78303_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e78321_)) - (let* ((_$tgt7832478335_ + (__AST-pair? _$e78303_)) + (let* ((_$tgt7830678317_ (let () (declare (not safe)) - (__AST-e _$e78321_))) - (_$hd7832578338_ + (__AST-e _$e78303_))) + (_$hd7830778320_ (let () (declare (not safe)) - (##car _$tgt7832478335_))) - (_$tl7832678341_ + (##car _$tgt7830678317_))) + (_$tl7830878323_ (let () (declare (not safe)) - (##cdr _$tgt7832478335_)))) - (let ((_ids78345_ _$hd7832578338_)) + (##cdr _$tgt7830678317_)))) + (let ((_ids78327_ _$hd7830778320_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7832678341_)) - (let* ((_$tgt7832778347_ + (__AST-pair? _$tl7830878323_)) + (let* ((_$tgt7830978329_ (let () (declare (not safe)) - (__AST-e _$tl7832678341_))) - (_$hd7832878350_ + (__AST-e _$tl7830878323_))) + (_$hd7831078332_ (let () (declare (not safe)) - (##car _$tgt7832778347_))) - (_$tl7832978353_ + (##car _$tgt7830978329_))) + (_$tl7831178335_ (let () (declare (not safe)) - (##cdr _$tgt7832778347_)))) - (if (let ((__tmp79447 + (##cdr _$tgt7830978329_)))) + (if (let ((__tmp79429 (let () (declare (not safe)) - (__AST-e _$tl7832978353_)))) + (__AST-e _$tl7831178335_)))) (declare (not safe)) - (equal? __tmp79447 '())) - _ids78345_ + (equal? __tmp79429 '())) + _ids78327_ (let () (declare (not safe)) - (_$E7832378332_)))) + (_$E7830578314_)))) (let () (declare (not safe)) - (_$E7832378332_))))) - (let () (declare (not safe)) (_$E7832378332_))))) - _hd78305_)) - (_exprs78397_ - (map (lambda (_bind78359_) - (let* ((_$e78361_ _bind78359_) - (_$E7836378372_ + (_$E7830578314_))))) + (let () (declare (not safe)) (_$E7830578314_))))) + _hd78287_)) + (_exprs78379_ + (map (lambda (_bind78341_) + (let* ((_$e78343_ _bind78341_) + (_$E7834578354_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e78361_))))) + _$e78343_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e78361_)) - (let* ((_$tgt7836478375_ + (__AST-pair? _$e78343_)) + (let* ((_$tgt7834678357_ (let () (declare (not safe)) - (__AST-e _$e78361_))) - (_$hd7836578378_ + (__AST-e _$e78343_))) + (_$hd7834778360_ (let () (declare (not safe)) - (##car _$tgt7836478375_))) - (_$tl7836678381_ + (##car _$tgt7834678357_))) + (_$tl7834878363_ (let () (declare (not safe)) - (##cdr _$tgt7836478375_)))) + (##cdr _$tgt7834678357_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7836678381_)) - (let* ((_$tgt7836778385_ + (__AST-pair? _$tl7834878363_)) + (let* ((_$tgt7834978367_ (let () (declare (not safe)) - (__AST-e _$tl7836678381_))) - (_$hd7836878388_ + (__AST-e _$tl7834878363_))) + (_$hd7835078370_ (let () (declare (not safe)) - (##car _$tgt7836778385_))) - (_$tl7836978391_ + (##car _$tgt7834978367_))) + (_$tl7835178373_ (let () (declare (not safe)) - (##cdr _$tgt7836778385_)))) - (let ((_expr78395_ _$hd7836878388_)) - (if (let ((__tmp79448 + (##cdr _$tgt7834978367_)))) + (let ((_expr78377_ _$hd7835078370_)) + (if (let ((__tmp79430 (let () (declare (not safe)) - (__AST-e _$tl7836978391_)))) + (__AST-e _$tl7835178373_)))) (declare (not safe)) - (equal? __tmp79448 '())) + (equal? __tmp79430 '())) (let () (declare (not safe)) - (__compile _expr78395_)) + (__compile _expr78377_)) (let () (declare (not safe)) - (_$E7836378372_))))) + (_$E7834578354_))))) (let () (declare (not safe)) - (_$E7836378372_)))) - (let () (declare (not safe)) (_$E7836378372_))))) - _hd78305_)) - (_body78399_ - (let () (declare (not safe)) (__compile _body78317_)))) + (_$E7834578354_)))) + (let () (declare (not safe)) (_$E7834578354_))))) + _hd78287_)) + (_body78381_ + (let () (declare (not safe)) (__compile _body78299_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (andmap1 _simple-bind?78254_ + (andmap1 _simple-bind?78236_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-ids78357_)) - (_compile-simple78251_ - (map _car-e78255_ _hd-ids78357_) - _exprs78397_ - _body78399_) - (_compile-values78252_ _hd-ids78357_ _exprs78397_ _body78399_))) + _hd-ids78339_)) + (_compile-simple78233_ + (map _car-e78237_ _hd-ids78339_) + _exprs78379_ + _body78381_) + (_compile-values78234_ _hd-ids78339_ _exprs78379_ _body78381_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E7826078282_))))) + (_$E7824278264_))))) (let () (declare (not safe)) - (_$E7826078282_))))) + (_$E7824278264_))))) (let () (declare (not safe)) - (_$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_ + (_$E7824278264_)))) + (let () (declare (not safe)) (_$E7824278264_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e78239_)) + (let* ((_$tgt7825278387_ + (let () (declare (not safe)) (__AST-e _$e78239_))) + (_$hd7825378390_ + (let () (declare (not safe)) (##car _$tgt7825278387_))) + (_$tl7825478393_ (let () (declare (not safe)) - (##cdr _$tgt7827078405_)))) + (##cdr _$tgt7825278387_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl7827278411_)) - (let* ((_$tgt7827378415_ + (__AST-pair? _$tl7825478393_)) + (let* ((_$tgt7825578397_ (let () (declare (not safe)) - (__AST-e _$tl7827278411_))) - (_$hd7827478418_ + (__AST-e _$tl7825478393_))) + (_$hd7825678400_ (let () (declare (not safe)) - (##car _$tgt7827378415_))) - (_$tl7827578421_ + (##car _$tgt7825578397_))) + (_$tl7825778403_ (let () (declare (not safe)) - (##cdr _$tgt7827378415_)))) - (if (let ((__tmp79451 + (##cdr _$tgt7825578397_)))) + (if (let ((__tmp79433 (let () (declare (not safe)) - (__AST-e _$hd7827478418_)))) + (__AST-e _$hd7825678400_)))) (declare (not safe)) - (equal? __tmp79451 '())) + (equal? __tmp79433 '())) (if (let () (declare (not safe)) - (__AST-pair? _$tl7827578421_)) - (let* ((_$tgt7827678425_ + (__AST-pair? _$tl7825778403_)) + (let* ((_$tgt7825878407_ (let () (declare (not safe)) - (__AST-e _$tl7827578421_))) - (_$hd7827778428_ + (__AST-e _$tl7825778403_))) + (_$hd7825978410_ (let () (declare (not safe)) - (##car _$tgt7827678425_))) - (_$tl7827878431_ + (##car _$tgt7825878407_))) + (_$tl7826078413_ (let () (declare (not safe)) - (##cdr _$tgt7827678425_)))) - (let ((_body78435_ _$hd7827778428_)) - (if (let ((__tmp79450 + (##cdr _$tgt7825878407_)))) + (let ((_body78417_ _$hd7825978410_)) + (if (let ((__tmp79432 (let () (declare (not safe)) - (__AST-e _$tl7827878431_)))) + (__AST-e _$tl7826078413_)))) (declare (not safe)) - (equal? __tmp79450 '())) + (equal? __tmp79432 '())) (let () (declare (not safe)) - (__compile _body78435_)) + (__compile _body78417_)) (let () (declare (not safe)) - (_$E7825978402_))))) - (let () (declare (not safe)) (_$E7825978402_))) - (let () (declare (not safe)) (_$E7825978402_)))) - (let () (declare (not safe)) (_$E7825978402_)))) - (let () (declare (not safe)) (_$E7825978402_))))))) + (_$E7824178384_))))) + (let () (declare (not safe)) (_$E7824178384_))) + (let () (declare (not safe)) (_$E7824178384_)))) + (let () (declare (not safe)) (_$E7824178384_)))) + (let () (declare (not safe)) (_$E7824178384_))))))) (define __compile-let-values% - (lambda (_stx78065_) - (letrec ((_compile-simple78067_ - (lambda (_hd-ids78246_ _exprs78247_ _body78248_) - (let ((__tmp79452 - (let ((__tmp79453 - (let ((__tmp79455 + (lambda (_stx78047_) + (letrec ((_compile-simple78049_ + (lambda (_hd-ids78228_ _exprs78229_ _body78230_) + (let ((__tmp79434 + (let ((__tmp79435 + (let ((__tmp79437 (map list (map __compile-head-id - _hd-ids78246_) - _exprs78247_)) - (__tmp79454 + _hd-ids78228_) + _exprs78229_)) + (__tmp79436 (let () (declare (not safe)) - (cons _body78248_ '())))) + (cons _body78230_ '())))) (declare (not safe)) - (cons __tmp79455 __tmp79454)))) + (cons __tmp79437 __tmp79436)))) (declare (not safe)) - (cons 'let __tmp79453)))) + (cons 'let __tmp79435)))) (declare (not safe)) - (__SRC__% __tmp79452 _stx78065_)))) - (_compile-values78068_ - (lambda (_hd-ids78164_ _exprs78165_ _body78166_) - (let _lp78168_ ((_rest78170_ _hd-ids78164_) - (_exprs78171_ _exprs78165_) - (_bind78172_ '()) - (_post78173_ '())) - (let* ((_rest7817478188_ _rest78170_) - (_else7817778196_ + (__SRC__% __tmp79434 _stx78047_)))) + (_compile-values78050_ + (lambda (_hd-ids78146_ _exprs78147_ _body78148_) + (let _lp78150_ ((_rest78152_ _hd-ids78146_) + (_exprs78153_ _exprs78147_) + (_bind78154_ '()) + (_post78155_ '())) + (let* ((_rest7815678170_ _rest78152_) + (_else7815978178_ (lambda () - (let ((__tmp79456 - (let ((__tmp79457 - (let ((__tmp79460 - (reverse _bind78172_)) - (__tmp79458 - (let ((__tmp79459 + (let ((__tmp79438 + (let ((__tmp79439 + (let ((__tmp79442 + (reverse _bind78154_)) + (__tmp79440 + (let ((__tmp79441 (let () (declare (not safe)) - (_compile-post78069_ - _post78173_ - _body78166_)))) + (_compile-post78051_ + _post78155_ + _body78148_)))) (declare (not safe)) - (cons __tmp79459 '())))) + (cons __tmp79441 '())))) (declare (not safe)) - (cons __tmp79460 __tmp79458)))) + (cons __tmp79442 __tmp79440)))) (declare (not safe)) - (cons 'let __tmp79457)))) + (cons 'let __tmp79439)))) (declare (not safe)) - (__SRC__% __tmp79456 _stx78065_))))) - (let ((_K7818278229_ - (lambda (_rest78226_ _id78227_) - (let ((__tmp79466 (cdr _exprs78171_)) - (__tmp79461 - (let ((__tmp79462 - (let ((__tmp79465 + (__SRC__% __tmp79438 _stx78047_))))) + (let ((_K7816478211_ + (lambda (_rest78208_ _id78209_) + (let ((__tmp79448 (cdr _exprs78153_)) + (__tmp79443 + (let ((__tmp79444 + (let ((__tmp79447 (let () (declare (not safe)) (__compile-head-id - _id78227_))) - (__tmp79463 - (let ((__tmp79464 - (car _exprs78171_))) + _id78209_))) + (__tmp79445 + (let ((__tmp79446 + (car _exprs78153_))) (declare (not safe)) - (cons __tmp79464 + (cons __tmp79446 '())))) (declare (not safe)) - (cons __tmp79465 - __tmp79463)))) + (cons __tmp79447 + __tmp79445)))) (declare (not safe)) - (cons __tmp79462 _bind78172_)))) + (cons __tmp79444 _bind78154_)))) (declare (not safe)) - (_lp78168_ - _rest78226_ - __tmp79466 - __tmp79461 - _post78173_)))) - (_K7817978211_ - (lambda (_rest78200_ _hd78201_) + (_lp78150_ + _rest78208_ + __tmp79448 + __tmp79443 + _post78155_)))) + (_K7816178193_ + (lambda (_rest78182_ _hd78183_) (if (let () (declare (not safe)) - (__AST-id? _hd78201_)) - (let ((__tmp79487 (cdr _exprs78171_)) - (__tmp79480 - (let ((__tmp79481 - (let ((__tmp79486 + (__AST-id? _hd78183_)) + (let ((__tmp79469 (cdr _exprs78153_)) + (__tmp79462 + (let ((__tmp79463 + (let ((__tmp79468 (let () (declare (not safe)) (__compile-head-id - _hd78201_))) - (__tmp79482 - (let ((__tmp79483 + _hd78183_))) + (__tmp79464 + (let ((__tmp79465 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79484 - (let ((__tmp79485 (car _exprs78171_))) + (let ((__tmp79466 + (let ((__tmp79467 (car _exprs78153_))) (declare (not safe)) - (cons __tmp79485 '())))) + (cons __tmp79467 '())))) (declare (not safe)) - (cons 'values->list __tmp79484)))) + (cons 'values->list __tmp79466)))) (declare (not safe)) - (cons __tmp79483 '())))) + (cons __tmp79465 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79486 - __tmp79482)))) + (cons __tmp79468 + __tmp79464)))) (declare (not safe)) - (cons __tmp79481 _bind78172_)))) + (cons __tmp79463 _bind78154_)))) (declare (not safe)) - (_lp78168_ - _rest78200_ - __tmp79487 - __tmp79480 - _post78173_)) + (_lp78150_ + _rest78182_ + __tmp79469 + __tmp79462 + _post78155_)) (if (let () (declare (not safe)) - (list? _hd78201_)) - (let* ((_len78203_ (length _hd78201_)) - (_tmp78205_ - (let ((__tmp79467 (gensym))) + (list? _hd78183_)) + (let* ((_len78185_ (length _hd78183_)) + (_tmp78187_ + (let ((__tmp79449 (gensym))) (declare (not safe)) - (__SRC__0 __tmp79467)))) - (let ((__tmp79479 - (cdr _exprs78171_)) - (__tmp79475 - (let ((__tmp79476 - (let ((__tmp79477 - (let ((__tmp79478 + (__SRC__0 __tmp79449)))) + (let ((__tmp79461 + (cdr _exprs78153_)) + (__tmp79457 + (let ((__tmp79458 + (let ((__tmp79459 + (let ((__tmp79460 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs78171_))) + (car _exprs78153_))) (declare (not safe)) - (cons __tmp79478 '())))) + (cons __tmp79460 '())))) (declare (not safe)) - (cons _tmp78205_ __tmp79477)))) + (cons _tmp78187_ __tmp79459)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79476 - _bind78172_))) - (__tmp79468 - (let ((__tmp79469 - (let ((__tmp79470 - (let ((__tmp79471 + (cons __tmp79458 + _bind78154_))) + (__tmp79450 + (let ((__tmp79451 + (let ((__tmp79452 + (let ((__tmp79453 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79473 - (lambda (_id78208_ _k78209_) + (let ((__tmp79455 + (lambda (_id78190_ _k78191_) (if (let () (declare (not safe)) - (__AST-e _id78208_)) - (let ((__tmp79474 + (__AST-e _id78190_)) + (let ((__tmp79456 (let () (declare (not safe)) - (__SRC__0 _id78208_)))) + (__SRC__0 _id78190_)))) (declare (not safe)) - (cons __tmp79474 _k78209_)) + (cons __tmp79456 _k78191_)) '#f))) - (__tmp79472 (iota _len78203_))) + (__tmp79454 (iota _len78185_))) (declare (not safe)) (filter-map2 - __tmp79473 - _hd78201_ - __tmp79472)))) + __tmp79455 + _hd78183_ + __tmp79454)))) (declare (not safe)) - (cons _len78203_ __tmp79471)))) + (cons _len78185_ __tmp79453)))) (declare (not safe)) - (cons _tmp78205_ __tmp79470)))) + (cons _tmp78187_ __tmp79452)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79469 - _post78173_)))) + (cons __tmp79451 + _post78155_)))) (declare (not safe)) - (_lp78168_ - _rest78200_ - __tmp79479 - __tmp79475 - __tmp79468))) + (_lp78150_ + _rest78182_ + __tmp79461 + __tmp79457 + __tmp79450))) (let () (declare (not safe)) (__compile-error__% - _stx78065_ - _hd78201_))))))) + _stx78047_ + _hd78183_))))))) (if (let () (declare (not safe)) - (##pair? _rest7817478188_)) - (let ((_tl7818478234_ + (##pair? _rest7815678170_)) + (let ((_tl7816678216_ (let () (declare (not safe)) - (##cdr _rest7817478188_))) - (_hd7818378232_ + (##cdr _rest7815678170_))) + (_hd7816578214_ (let () (declare (not safe)) - (##car _rest7817478188_)))) + (##car _rest7815678170_)))) (if (let () (declare (not safe)) - (##pair? _hd7818378232_)) - (let ((_tl7818678239_ + (##pair? _hd7816578214_)) + (let ((_tl7816878221_ (let () (declare (not safe)) - (##cdr _hd7818378232_))) - (_hd7818578237_ + (##cdr _hd7816578214_))) + (_hd7816778219_ (let () (declare (not safe)) - (##car _hd7818378232_)))) + (##car _hd7816578214_)))) (if (let () (declare (not safe)) - (##null? _tl7818678239_)) - (let ((_id78242_ _hd7818578237_) - (_rest78244_ _tl7818478234_)) + (##null? _tl7816878221_)) + (let ((_id78224_ _hd7816778219_) + (_rest78226_ _tl7816678216_)) (let () (declare (not safe)) - (_K7818278229_ - _rest78244_ - _id78242_))) - (let ((_hd78219_ _hd7818378232_) - (_rest78221_ _tl7818478234_)) + (_K7816478211_ + _rest78226_ + _id78224_))) + (let ((_hd78201_ _hd7816578214_) + (_rest78203_ _tl7816678216_)) (let () (declare (not safe)) - (_K7817978211_ - _rest78221_ - _hd78219_))))) - (let ((_hd78219_ _hd7818378232_) - (_rest78221_ _tl7818478234_)) + (_K7816178193_ + _rest78203_ + _hd78201_))))) + (let ((_hd78201_ _hd7816578214_) + (_rest78203_ _tl7816678216_)) (let () (declare (not safe)) - (_K7817978211_ - _rest78221_ - _hd78219_))))) + (_K7816178193_ + _rest78203_ + _hd78201_))))) (let () (declare (not safe)) - (_else7817778196_)))))))) - (_compile-post78069_ - (lambda (_post78071_ _body78072_) - (let _lp78074_ ((_rest78076_ _post78071_) - (_check78077_ '()) - (_bind78078_ '())) - (let* ((_rest7807978091_ _rest78076_) - (_else7808178099_ + (_else7815978178_)))))))) + (_compile-post78051_ + (lambda (_post78053_ _body78054_) + (let _lp78056_ ((_rest78058_ _post78053_) + (_check78059_ '()) + (_bind78060_ '())) + (let* ((_rest7806178073_ _rest78058_) + (_else7806378081_ (lambda () - (let ((__tmp79488 - (let ((__tmp79489 - (let ((__tmp79490 - (let ((__tmp79491 - (let ((__tmp79492 + (let ((__tmp79470 + (let ((__tmp79471 + (let ((__tmp79472 + (let ((__tmp79473 + (let ((__tmp79474 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79493 - (let ((__tmp79494 + (let ((__tmp79475 + (let ((__tmp79476 (let () (declare (not safe)) - (cons _body78072_ '())))) + (cons _body78054_ '())))) (declare (not safe)) - (cons _bind78078_ __tmp79494)))) + (cons _bind78060_ __tmp79476)))) (declare (not safe)) - (cons 'let __tmp79493)))) + (cons 'let __tmp79475)))) (declare (not safe)) - (__SRC__% __tmp79492 _stx78065_)))) + (__SRC__% __tmp79474 _stx78047_)))) (declare (not safe)) - (cons __tmp79491 '())))) + (cons __tmp79473 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp79490 - _check78077_)))) + __tmp79472 + _check78059_)))) (declare (not safe)) - (cons 'begin __tmp79489)))) + (cons 'begin __tmp79471)))) (declare (not safe)) - (__SRC__% __tmp79488 _stx78065_)))) - (_K7808378138_ - (lambda (_rest78102_ - _init78103_ - _len78104_ - _tmp78105_) - (let ((__tmp79502 - (let ((__tmp79503 - (let ((__tmp79504 - (let ((__tmp79505 - (let ((__tmp79506 + (__SRC__% __tmp79470 _stx78047_)))) + (_K7806578120_ + (lambda (_rest78084_ + _init78085_ + _len78086_ + _tmp78087_) + (let ((__tmp79484 + (let ((__tmp79485 + (let ((__tmp79486 + (let ((__tmp79487 + (let ((__tmp79488 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len78104_ '())))) + (cons _len78086_ '())))) (declare (not safe)) - (cons _tmp78105_ __tmp79506)))) + (cons _tmp78087_ __tmp79488)))) (declare (not safe)) - (cons '__check-values __tmp79505)))) + (cons '__check-values __tmp79487)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp79504 - _stx78065_)))) + __tmp79486 + _stx78047_)))) (declare (not safe)) - (cons __tmp79503 _check78077_))) - (__tmp79495 - (let ((__tmp79496 - (lambda (_hd78107_ _r78108_) - (let* ((_hd7810978116_ - _hd78107_) - (_E7811178120_ + (cons __tmp79485 _check78059_))) + (__tmp79477 + (let ((__tmp79478 + (lambda (_hd78089_ _r78090_) + (let* ((_hd7809178098_ + _hd78089_) + (_E7809378102_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd7810978116_)))) - (_K7811278126_ - (lambda (_k78123_ _id78124_) - (let ((__tmp79497 - (let ((__tmp79498 - (let ((__tmp79499 - (let ((__tmp79500 - (let ((__tmp79501 + _hd7809178098_)))) + (_K7809478108_ + (lambda (_k78105_ _id78106_) + (let ((__tmp79479 + (let ((__tmp79480 + (let ((__tmp79481 + (let ((__tmp79482 + (let ((__tmp79483 (let () (declare (not safe)) - (cons _k78123_ '())))) + (cons _k78105_ '())))) (declare (not safe)) - (cons _tmp78105_ __tmp79501)))) + (cons _tmp78087_ __tmp79483)))) (declare (not safe)) - (cons '##vector-ref __tmp79500)))) + (cons '##vector-ref __tmp79482)))) (declare (not safe)) - (cons __tmp79499 '())))) + (cons __tmp79481 '())))) (declare (not safe)) - (cons _id78124_ __tmp79498)))) + (cons _id78106_ __tmp79480)))) (declare (not safe)) - (cons __tmp79497 _r78108_))))) + (cons __tmp79479 _r78090_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd7810978116_)) - (let ((_hd7811378129_ + (##pair? _hd7809178098_)) + (let ((_hd7809578111_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd7810978116_))) - (_tl7811478131_ - (let () (declare (not safe)) (##cdr _hd7810978116_)))) - (let* ((_id78134_ _hd7811378129_) (_k78136_ _tl7811478131_)) + (##car _hd7809178098_))) + (_tl7809678113_ + (let () (declare (not safe)) (##cdr _hd7809178098_)))) + (let* ((_id78116_ _hd7809578111_) (_k78118_ _tl7809678113_)) (declare (not safe)) - (_K7811278126_ _k78136_ _id78134_))) - (let () (declare (not safe)) (_E7811178120_))))))) + (_K7809478108_ _k78118_ _id78116_))) + (let () (declare (not safe)) (_E7809378102_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp79496 - _bind78078_ - _init78103_)))) + (foldr1 __tmp79478 + _bind78060_ + _init78085_)))) (declare (not safe)) - (_lp78074_ - _rest78102_ - __tmp79502 - __tmp79495))))) + (_lp78056_ + _rest78084_ + __tmp79484 + __tmp79477))))) (if (let () (declare (not safe)) - (##pair? _rest7807978091_)) - (let ((_hd7808478141_ + (##pair? _rest7806178073_)) + (let ((_hd7806678123_ (let () (declare (not safe)) - (##car _rest7807978091_))) - (_tl7808578143_ + (##car _rest7806178073_))) + (_tl7806778125_ (let () (declare (not safe)) - (##cdr _rest7807978091_)))) + (##cdr _rest7806178073_)))) (if (let () (declare (not safe)) - (##pair? _hd7808478141_)) - (let ((_hd7808678146_ + (##pair? _hd7806678123_)) + (let ((_hd7806878128_ (let () (declare (not safe)) - (##car _hd7808478141_))) - (_tl7808778148_ + (##car _hd7806678123_))) + (_tl7806978130_ (let () (declare (not safe)) - (##cdr _hd7808478141_)))) - (let ((_tmp78151_ _hd7808678146_)) + (##cdr _hd7806678123_)))) + (let ((_tmp78133_ _hd7806878128_)) (if (let () (declare (not safe)) - (##pair? _tl7808778148_)) - (let ((_hd7808878153_ + (##pair? _tl7806978130_)) + (let ((_hd7807078135_ (let () (declare (not safe)) - (##car _tl7808778148_))) - (_tl7808978155_ + (##car _tl7806978130_))) + (_tl7807178137_ (let () (declare (not safe)) - (##cdr _tl7808778148_)))) - (let* ((_len78158_ _hd7808878153_) - (_init78160_ _tl7808978155_) - (_rest78162_ - _tl7808578143_)) + (##cdr _tl7806978130_)))) + (let* ((_len78140_ _hd7807078135_) + (_init78142_ _tl7807178137_) + (_rest78144_ + _tl7806778125_)) (declare (not safe)) - (_K7808378138_ - _rest78162_ - _init78160_ - _len78158_ - _tmp78151_))) + (_K7806578120_ + _rest78144_ + _init78142_ + _len78140_ + _tmp78133_))) (let () (declare (not safe)) - (_else7808178099_))))) + (_else7806378081_))))) (let () (declare (not safe)) - (_else7808178099_)))) + (_else7806378081_)))) (let () (declare (not safe)) - (_else7808178099_)))))))) + (_else7806378081_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx78065_ - _compile-simple78067_ - _compile-values78068_))))) + _stx78047_ + _compile-simple78049_ + _compile-values78050_))))) (define __compile-letrec-values% - (lambda (_stx77865_) - (letrec ((_compile-simple77867_ - (lambda (_hd-ids78061_ _exprs78062_ _body78063_) - (let ((__tmp79507 - (let ((__tmp79508 - (let ((__tmp79510 + (lambda (_stx77847_) + (letrec ((_compile-simple77849_ + (lambda (_hd-ids78043_ _exprs78044_ _body78045_) + (let ((__tmp79489 + (let ((__tmp79490 + (let ((__tmp79492 (map list (map __compile-head-id - _hd-ids78061_) - _exprs78062_)) - (__tmp79509 + _hd-ids78043_) + _exprs78044_)) + (__tmp79491 (let () (declare (not safe)) - (cons _body78063_ '())))) + (cons _body78045_ '())))) (declare (not safe)) - (cons __tmp79510 __tmp79509)))) + (cons __tmp79492 __tmp79491)))) (declare (not safe)) - (cons 'letrec __tmp79508)))) + (cons 'letrec __tmp79490)))) (declare (not safe)) - (__SRC__% __tmp79507 _stx77865_)))) - (_compile-values77868_ - (lambda (_hd-ids77975_ _exprs77976_ _body77977_) - (let _lp77979_ ((_rest77981_ _hd-ids77975_) - (_exprs77982_ _exprs77976_) - (_pre77983_ '()) - (_bind77984_ '()) - (_post77985_ '())) - (let* ((_rest7798678000_ _rest77981_) - (_else7798978008_ + (__SRC__% __tmp79489 _stx77847_)))) + (_compile-values77850_ + (lambda (_hd-ids77957_ _exprs77958_ _body77959_) + (let _lp77961_ ((_rest77963_ _hd-ids77957_) + (_exprs77964_ _exprs77958_) + (_pre77965_ '()) + (_bind77966_ '()) + (_post77967_ '())) + (let* ((_rest7796877982_ _rest77963_) + (_else7797177990_ (lambda () (let () (declare (not safe)) - (_compile-inner77869_ - _pre77983_ - _bind77984_ - _post77985_ - _body77977_))))) - (let ((_K7799478044_ - (lambda (_rest78041_ _id78042_) - (let ((__tmp79516 (cdr _exprs77982_)) - (__tmp79511 - (let ((__tmp79512 - (let ((__tmp79515 + (_compile-inner77851_ + _pre77965_ + _bind77966_ + _post77967_ + _body77959_))))) + (let ((_K7797678026_ + (lambda (_rest78023_ _id78024_) + (let ((__tmp79498 (cdr _exprs77964_)) + (__tmp79493 + (let ((__tmp79494 + (let ((__tmp79497 (let () (declare (not safe)) (__compile-head-id - _id78042_))) - (__tmp79513 - (let ((__tmp79514 - (car _exprs77982_))) + _id78024_))) + (__tmp79495 + (let ((__tmp79496 + (car _exprs77964_))) (declare (not safe)) - (cons __tmp79514 + (cons __tmp79496 '())))) (declare (not safe)) - (cons __tmp79515 - __tmp79513)))) + (cons __tmp79497 + __tmp79495)))) (declare (not safe)) - (cons __tmp79512 _bind77984_)))) + (cons __tmp79494 _bind77966_)))) (declare (not safe)) - (_lp77979_ - _rest78041_ - __tmp79516 - _pre77983_ - __tmp79511 - _post77985_)))) - (_K7799178026_ - (lambda (_rest78012_ _hd78013_) + (_lp77961_ + _rest78023_ + __tmp79498 + _pre77965_ + __tmp79493 + _post77967_)))) + (_K7797378008_ + (lambda (_rest77994_ _hd77995_) (if (let () (declare (not safe)) - (__AST-id? _hd78013_)) - (let ((__tmp79544 (cdr _exprs77982_)) - (__tmp79537 - (let ((__tmp79538 - (let ((__tmp79543 + (__AST-id? _hd77995_)) + (let ((__tmp79526 (cdr _exprs77964_)) + (__tmp79519 + (let ((__tmp79520 + (let ((__tmp79525 (let () (declare (not safe)) (__compile-head-id - _hd78013_))) - (__tmp79539 - (let ((__tmp79540 + _hd77995_))) + (__tmp79521 + (let ((__tmp79522 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79541 - (let ((__tmp79542 (car _exprs77982_))) + (let ((__tmp79523 + (let ((__tmp79524 (car _exprs77964_))) (declare (not safe)) - (cons __tmp79542 '())))) + (cons __tmp79524 '())))) (declare (not safe)) - (cons 'values->list __tmp79541)))) + (cons 'values->list __tmp79523)))) (declare (not safe)) - (cons __tmp79540 '())))) + (cons __tmp79522 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79543 - __tmp79539)))) + (cons __tmp79525 + __tmp79521)))) (declare (not safe)) - (cons __tmp79538 _bind77984_)))) + (cons __tmp79520 _bind77966_)))) (declare (not safe)) - (_lp77979_ - _rest78012_ - __tmp79544 - _pre77983_ - __tmp79537 - _post77985_)) + (_lp77961_ + _rest77994_ + __tmp79526 + _pre77965_ + __tmp79519 + _post77967_)) (if (let () (declare (not safe)) - (list? _hd78013_)) - (let* ((_len78015_ (length _hd78013_)) - (_tmp78017_ - (let ((__tmp79517 (gensym))) + (list? _hd77995_)) + (let* ((_len77997_ (length _hd77995_)) + (_tmp77999_ + (let ((__tmp79499 (gensym))) (declare (not safe)) - (__SRC__0 __tmp79517)))) - (let ((__tmp79536 - (cdr _exprs77982_)) - (__tmp79529 - (let ((__tmp79530 - (lambda (_id78020_ + (__SRC__0 __tmp79499)))) + (let ((__tmp79518 + (cdr _exprs77964_)) + (__tmp79511 + (let ((__tmp79512 + (lambda (_id78002_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r78021_) - (if (let () (declare (not safe)) (__AST-e _id78020_)) - (let ((__tmp79531 - (let ((__tmp79535 + _r78003_) + (if (let () (declare (not safe)) (__AST-e _id78002_)) + (let ((__tmp79513 + (let ((__tmp79517 (let () (declare (not safe)) - (__SRC__0 _id78020_))) - (__tmp79532 - (let ((__tmp79533 - (let ((__tmp79534 + (__SRC__0 _id78002_))) + (__tmp79514 + (let ((__tmp79515 + (let ((__tmp79516 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp79534)))) + (cons 'quote __tmp79516)))) (declare (not safe)) - (cons __tmp79533 '())))) + (cons __tmp79515 '())))) (declare (not safe)) - (cons __tmp79535 __tmp79532)))) + (cons __tmp79517 __tmp79514)))) (declare (not safe)) - (cons __tmp79531 _r78021_)) - _r78021_)))) + (cons __tmp79513 _r78003_)) + _r78003_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp79530 - _pre77983_ - _hd78013_))) - (__tmp79525 - (let ((__tmp79526 - (let ((__tmp79527 - (let ((__tmp79528 + (foldl1 __tmp79512 + _pre77965_ + _hd77995_))) + (__tmp79507 + (let ((__tmp79508 + (let ((__tmp79509 + (let ((__tmp79510 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs77982_))) + (car _exprs77964_))) (declare (not safe)) - (cons __tmp79528 '())))) + (cons __tmp79510 '())))) (declare (not safe)) - (cons _tmp78017_ __tmp79527)))) + (cons _tmp77999_ __tmp79509)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79526 - _bind77984_))) - (__tmp79518 - (let ((__tmp79519 - (let ((__tmp79520 - (let ((__tmp79521 + (cons __tmp79508 + _bind77966_))) + (__tmp79500 + (let ((__tmp79501 + (let ((__tmp79502 + (let ((__tmp79503 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79523 - (lambda (_id78023_ _k78024_) + (let ((__tmp79505 + (lambda (_id78005_ _k78006_) (if (let () (declare (not safe)) - (__AST-e _id78023_)) - (let ((__tmp79524 + (__AST-e _id78005_)) + (let ((__tmp79506 (let () (declare (not safe)) - (__SRC__0 _id78023_)))) + (__SRC__0 _id78005_)))) (declare (not safe)) - (cons __tmp79524 _k78024_)) + (cons __tmp79506 _k78006_)) '#f))) - (__tmp79522 (iota _len78015_))) + (__tmp79504 (iota _len77997_))) (declare (not safe)) (filter-map2 - __tmp79523 - _hd78013_ - __tmp79522)))) + __tmp79505 + _hd77995_ + __tmp79504)))) (declare (not safe)) - (cons _len78015_ __tmp79521)))) + (cons _len77997_ __tmp79503)))) (declare (not safe)) - (cons _tmp78017_ __tmp79520)))) + (cons _tmp77999_ __tmp79502)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79519 - _post77985_)))) + (cons __tmp79501 + _post77967_)))) (declare (not safe)) - (_lp77979_ - _rest78012_ - __tmp79536 - __tmp79529 - __tmp79525 - __tmp79518))) + (_lp77961_ + _rest77994_ + __tmp79518 + __tmp79511 + __tmp79507 + __tmp79500))) (let () (declare (not safe)) (__compile-error__% - _stx77865_ - _hd78013_))))))) + _stx77847_ + _hd77995_))))))) (if (let () (declare (not safe)) - (##pair? _rest7798678000_)) - (let ((_tl7799678049_ + (##pair? _rest7796877982_)) + (let ((_tl7797878031_ (let () (declare (not safe)) - (##cdr _rest7798678000_))) - (_hd7799578047_ + (##cdr _rest7796877982_))) + (_hd7797778029_ (let () (declare (not safe)) - (##car _rest7798678000_)))) + (##car _rest7796877982_)))) (if (let () (declare (not safe)) - (##pair? _hd7799578047_)) - (let ((_tl7799878054_ + (##pair? _hd7797778029_)) + (let ((_tl7798078036_ (let () (declare (not safe)) - (##cdr _hd7799578047_))) - (_hd7799778052_ + (##cdr _hd7797778029_))) + (_hd7797978034_ (let () (declare (not safe)) - (##car _hd7799578047_)))) + (##car _hd7797778029_)))) (if (let () (declare (not safe)) - (##null? _tl7799878054_)) - (let ((_id78057_ _hd7799778052_) - (_rest78059_ _tl7799678049_)) + (##null? _tl7798078036_)) + (let ((_id78039_ _hd7797978034_) + (_rest78041_ _tl7797878031_)) (let () (declare (not safe)) - (_K7799478044_ - _rest78059_ - _id78057_))) - (let ((_hd78034_ _hd7799578047_) - (_rest78036_ _tl7799678049_)) + (_K7797678026_ + _rest78041_ + _id78039_))) + (let ((_hd78016_ _hd7797778029_) + (_rest78018_ _tl7797878031_)) (let () (declare (not safe)) - (_K7799178026_ - _rest78036_ - _hd78034_))))) - (let ((_hd78034_ _hd7799578047_) - (_rest78036_ _tl7799678049_)) + (_K7797378008_ + _rest78018_ + _hd78016_))))) + (let ((_hd78016_ _hd7797778029_) + (_rest78018_ _tl7797878031_)) (let () (declare (not safe)) - (_K7799178026_ - _rest78036_ - _hd78034_))))) + (_K7797378008_ + _rest78018_ + _hd78016_))))) (let () (declare (not safe)) - (_else7798978008_)))))))) - (_compile-inner77869_ - (lambda (_pre77970_ _bind77971_ _post77972_ _body77973_) - (if (let () (declare (not safe)) (null? _pre77970_)) + (_else7797177990_)))))))) + (_compile-inner77851_ + (lambda (_pre77952_ _bind77953_ _post77954_ _body77955_) + (if (let () (declare (not safe)) (null? _pre77952_)) (let () (declare (not safe)) - (_compile-bind77870_ - _bind77971_ - _post77972_ - _body77973_)) - (let ((__tmp79545 - (let ((__tmp79546 - (let ((__tmp79549 (reverse _pre77970_)) - (__tmp79547 - (let ((__tmp79548 + (_compile-bind77852_ + _bind77953_ + _post77954_ + _body77955_)) + (let ((__tmp79527 + (let ((__tmp79528 + (let ((__tmp79531 (reverse _pre77952_)) + (__tmp79529 + (let ((__tmp79530 (let () (declare (not safe)) - (_compile-bind77870_ - _bind77971_ - _post77972_ - _body77973_)))) + (_compile-bind77852_ + _bind77953_ + _post77954_ + _body77955_)))) (declare (not safe)) - (cons __tmp79548 '())))) + (cons __tmp79530 '())))) (declare (not safe)) - (cons __tmp79549 __tmp79547)))) + (cons __tmp79531 __tmp79529)))) (declare (not safe)) - (cons 'let __tmp79546)))) + (cons 'let __tmp79528)))) (declare (not safe)) - (__SRC__% __tmp79545 _stx77865_))))) - (_compile-bind77870_ - (lambda (_bind77966_ _post77967_ _body77968_) - (let ((__tmp79550 - (let ((__tmp79551 - (let ((__tmp79554 (reverse _bind77966_)) - (__tmp79552 - (let ((__tmp79553 + (__SRC__% __tmp79527 _stx77847_))))) + (_compile-bind77852_ + (lambda (_bind77948_ _post77949_ _body77950_) + (let ((__tmp79532 + (let ((__tmp79533 + (let ((__tmp79536 (reverse _bind77948_)) + (__tmp79534 + (let ((__tmp79535 (let () (declare (not safe)) - (_compile-post77871_ - _post77967_ - _body77968_)))) + (_compile-post77853_ + _post77949_ + _body77950_)))) (declare (not safe)) - (cons __tmp79553 '())))) + (cons __tmp79535 '())))) (declare (not safe)) - (cons __tmp79554 __tmp79552)))) + (cons __tmp79536 __tmp79534)))) (declare (not safe)) - (cons 'letrec __tmp79551)))) + (cons 'letrec __tmp79533)))) (declare (not safe)) - (__SRC__% __tmp79550 _stx77865_)))) - (_compile-post77871_ - (lambda (_post77873_ _body77874_) - (let _lp77876_ ((_rest77878_ _post77873_) - (_check77879_ '()) - (_bind77880_ '())) - (let* ((_rest7788177893_ _rest77878_) - (_else7788377901_ + (__SRC__% __tmp79532 _stx77847_)))) + (_compile-post77853_ + (lambda (_post77855_ _body77856_) + (let _lp77858_ ((_rest77860_ _post77855_) + (_check77861_ '()) + (_bind77862_ '())) + (let* ((_rest7786377875_ _rest77860_) + (_else7786577883_ (lambda () - (let ((__tmp79555 - (let ((__tmp79556 - (let ((__tmp79557 - (let ((__tmp79558 + (let ((__tmp79537 + (let ((__tmp79538 + (let ((__tmp79539 + (let ((__tmp79540 (let () (declare (not safe)) - (cons _body77874_ + (cons _body77856_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (foldr1 cons __tmp79558 _bind77880_)))) + (foldr1 cons __tmp79540 _bind77862_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp79557 - _check77879_)))) + __tmp79539 + _check77861_)))) (declare (not safe)) - (cons 'begin __tmp79556)))) + (cons 'begin __tmp79538)))) (declare (not safe)) - (__SRC__% __tmp79555 _stx77865_)))) - (_K7788577940_ - (lambda (_rest77904_ - _init77905_ - _len77906_ - _tmp77907_) - (let ((__tmp79567 - (let ((__tmp79568 - (let ((__tmp79569 - (let ((__tmp79570 - (let ((__tmp79571 + (__SRC__% __tmp79537 _stx77847_)))) + (_K7786777922_ + (lambda (_rest77886_ + _init77887_ + _len77888_ + _tmp77889_) + (let ((__tmp79549 + (let ((__tmp79550 + (let ((__tmp79551 + (let ((__tmp79552 + (let ((__tmp79553 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len77906_ '())))) + (cons _len77888_ '())))) (declare (not safe)) - (cons _tmp77907_ __tmp79571)))) + (cons _tmp77889_ __tmp79553)))) (declare (not safe)) - (cons '__check-values __tmp79570)))) + (cons '__check-values __tmp79552)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp79569 - _stx77865_)))) + __tmp79551 + _stx77847_)))) (declare (not safe)) - (cons __tmp79568 _check77879_))) - (__tmp79559 - (let ((__tmp79560 - (lambda (_hd77909_ _r77910_) - (let* ((_hd7791177918_ - _hd77909_) - (_E7791377922_ + (cons __tmp79550 _check77861_))) + (__tmp79541 + (let ((__tmp79542 + (lambda (_hd77891_ _r77892_) + (let* ((_hd7789377900_ + _hd77891_) + (_E7789577904_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd7791177918_)))) - (_K7791477928_ - (lambda (_k77925_ _id77926_) - (let ((__tmp79561 - (let ((__tmp79562 - (let ((__tmp79563 - (let ((__tmp79564 - (let ((__tmp79565 - (let ((__tmp79566 + _hd7789377900_)))) + (_K7789677910_ + (lambda (_k77907_ _id77908_) + (let ((__tmp79543 + (let ((__tmp79544 + (let ((__tmp79545 + (let ((__tmp79546 + (let ((__tmp79547 + (let ((__tmp79548 (let () (declare (not safe)) - (cons _k77925_ + (cons _k77907_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _tmp77907_ __tmp79566)))) + (cons _tmp77889_ __tmp79548)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp79565)))) + __tmp79547)))) (declare (not safe)) - (cons __tmp79564 '())))) + (cons __tmp79546 '())))) (declare (not safe)) - (cons _id77926_ __tmp79563)))) + (cons _id77908_ __tmp79545)))) (declare (not safe)) - (cons 'set! __tmp79562)))) + (cons 'set! __tmp79544)))) (declare (not safe)) - (cons __tmp79561 _r77910_))))) + (cons __tmp79543 _r77892_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd7791177918_)) - (let ((_hd7791577931_ + (##pair? _hd7789377900_)) + (let ((_hd7789777913_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd7791177918_))) - (_tl7791677933_ - (let () (declare (not safe)) (##cdr _hd7791177918_)))) - (let* ((_id77936_ _hd7791577931_) (_k77938_ _tl7791677933_)) + (##car _hd7789377900_))) + (_tl7789877915_ + (let () (declare (not safe)) (##cdr _hd7789377900_)))) + (let* ((_id77918_ _hd7789777913_) (_k77920_ _tl7789877915_)) (declare (not safe)) - (_K7791477928_ _k77938_ _id77936_))) - (let () (declare (not safe)) (_E7791377922_))))))) + (_K7789677910_ _k77920_ _id77918_))) + (let () (declare (not safe)) (_E7789577904_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp79560 - _bind77880_ - _init77905_)))) + (foldr1 __tmp79542 + _bind77862_ + _init77887_)))) (declare (not safe)) - (_lp77876_ - _rest77904_ - __tmp79567 - __tmp79559))))) + (_lp77858_ + _rest77886_ + __tmp79549 + __tmp79541))))) (if (let () (declare (not safe)) - (##pair? _rest7788177893_)) - (let ((_hd7788677943_ + (##pair? _rest7786377875_)) + (let ((_hd7786877925_ (let () (declare (not safe)) - (##car _rest7788177893_))) - (_tl7788777945_ + (##car _rest7786377875_))) + (_tl7786977927_ (let () (declare (not safe)) - (##cdr _rest7788177893_)))) + (##cdr _rest7786377875_)))) (if (let () (declare (not safe)) - (##pair? _hd7788677943_)) - (let ((_hd7788877948_ + (##pair? _hd7786877925_)) + (let ((_hd7787077930_ (let () (declare (not safe)) - (##car _hd7788677943_))) - (_tl7788977950_ + (##car _hd7786877925_))) + (_tl7787177932_ (let () (declare (not safe)) - (##cdr _hd7788677943_)))) - (let ((_tmp77953_ _hd7788877948_)) + (##cdr _hd7786877925_)))) + (let ((_tmp77935_ _hd7787077930_)) (if (let () (declare (not safe)) - (##pair? _tl7788977950_)) - (let ((_hd7789077955_ + (##pair? _tl7787177932_)) + (let ((_hd7787277937_ (let () (declare (not safe)) - (##car _tl7788977950_))) - (_tl7789177957_ + (##car _tl7787177932_))) + (_tl7787377939_ (let () (declare (not safe)) - (##cdr _tl7788977950_)))) - (let* ((_len77960_ _hd7789077955_) - (_init77962_ _tl7789177957_) - (_rest77964_ - _tl7788777945_)) + (##cdr _tl7787177932_)))) + (let* ((_len77942_ _hd7787277937_) + (_init77944_ _tl7787377939_) + (_rest77946_ + _tl7786977927_)) (declare (not safe)) - (_K7788577940_ - _rest77964_ - _init77962_ - _len77960_ - _tmp77953_))) + (_K7786777922_ + _rest77946_ + _init77944_ + _len77942_ + _tmp77935_))) (let () (declare (not safe)) - (_else7788377901_))))) + (_else7786577883_))))) (let () (declare (not safe)) - (_else7788377901_)))) + (_else7786577883_)))) (let () (declare (not safe)) - (_else7788377901_)))))))) + (_else7786577883_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx77865_ - _compile-simple77867_ - _compile-values77868_))))) + _stx77847_ + _compile-simple77849_ + _compile-values77850_))))) (define __compile-letrec*-values% - (lambda (_stx77620_) - (letrec ((_compile-simple77622_ - (lambda (_hd-ids77861_ _exprs77862_ _body77863_) - (let ((__tmp79572 - (let ((__tmp79573 - (let ((__tmp79575 + (lambda (_stx77602_) + (letrec ((_compile-simple77604_ + (lambda (_hd-ids77843_ _exprs77844_ _body77845_) + (let ((__tmp79554 + (let ((__tmp79555 + (let ((__tmp79557 (map list (map __compile-head-id - _hd-ids77861_) - _exprs77862_)) - (__tmp79574 + _hd-ids77843_) + _exprs77844_)) + (__tmp79556 (let () (declare (not safe)) - (cons _body77863_ '())))) + (cons _body77845_ '())))) (declare (not safe)) - (cons __tmp79575 __tmp79574)))) + (cons __tmp79557 __tmp79556)))) (declare (not safe)) - (cons 'letrec* __tmp79573)))) + (cons 'letrec* __tmp79555)))) (declare (not safe)) - (__SRC__% __tmp79572 _stx77620_)))) - (_compile-values77623_ - (lambda (_hd-ids77772_ _exprs77773_ _body77774_) - (let _lp77776_ ((_rest77778_ _hd-ids77772_) - (_exprs77779_ _exprs77773_) - (_bind77780_ '()) - (_post77781_ '())) - (let* ((_rest7778277796_ _rest77778_) - (_else7778577804_ + (__SRC__% __tmp79554 _stx77602_)))) + (_compile-values77605_ + (lambda (_hd-ids77754_ _exprs77755_ _body77756_) + (let _lp77758_ ((_rest77760_ _hd-ids77754_) + (_exprs77761_ _exprs77755_) + (_bind77762_ '()) + (_post77763_ '())) + (let* ((_rest7776477778_ _rest77760_) + (_else7776777786_ (lambda () (let () (declare (not safe)) - (_compile-bind77624_ - _bind77780_ - _post77781_ - _body77774_))))) - (let ((_K7779077844_ - (lambda (_rest77839_ _hd77840_) + (_compile-bind77606_ + _bind77762_ + _post77763_ + _body77756_))))) + (let ((_K7777277826_ + (lambda (_rest77821_ _hd77822_) (if (let () (declare (not safe)) - (__AST-id? _hd77840_)) - (let ((_id77842_ + (__AST-id? _hd77822_)) + (let ((_id77824_ (let () (declare (not safe)) - (__SRC__0 _hd77840_)))) - (let ((__tmp79590 (cdr _exprs77779_)) - (__tmp79585 - (let ((__tmp79586 - (let ((__tmp79587 - (let ((__tmp79588 + (__SRC__0 _hd77822_)))) + (let ((__tmp79572 (cdr _exprs77761_)) + (__tmp79567 + (let ((__tmp79568 + (let ((__tmp79569 + (let ((__tmp79570 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79589 + (let ((__tmp79571 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp79589)))) + (cons 'quote __tmp79571)))) (declare (not safe)) - (cons __tmp79588 '())))) + (cons __tmp79570 '())))) (declare (not safe)) - (cons _id77842_ __tmp79587)))) + (cons _id77824_ __tmp79569)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79586 _bind77780_))) - (__tmp79581 - (let ((__tmp79582 - (let ((__tmp79583 - (let ((__tmp79584 + (cons __tmp79568 _bind77762_))) + (__tmp79563 + (let ((__tmp79564 + (let ((__tmp79565 + (let ((__tmp79566 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs77779_))) + (car _exprs77761_))) (declare (not safe)) - (cons __tmp79584 '())))) + (cons __tmp79566 '())))) (declare (not safe)) - (cons _id77842_ __tmp79583)))) + (cons _id77824_ __tmp79565)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79582 - _post77781_)))) + (cons __tmp79564 + _post77763_)))) (declare (not safe)) - (_lp77776_ - _rest77839_ - __tmp79590 - __tmp79585 - __tmp79581))) - (let ((__tmp79580 (cdr _exprs77779_)) - (__tmp79576 - (let ((__tmp79577 - (let ((__tmp79578 - (let ((__tmp79579 + (_lp77758_ + _rest77821_ + __tmp79572 + __tmp79567 + __tmp79563))) + (let ((__tmp79562 (cdr _exprs77761_)) + (__tmp79558 + (let ((__tmp79559 + (let ((__tmp79560 + (let ((__tmp79561 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs77779_))) + (car _exprs77761_))) (declare (not safe)) - (cons __tmp79579 '())))) + (cons __tmp79561 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#f __tmp79578)))) + (cons '#f __tmp79560)))) (declare (not safe)) - (cons __tmp79577 _post77781_)))) + (cons __tmp79559 _post77763_)))) (declare (not safe)) - (_lp77776_ - _rest77839_ - __tmp79580 - _bind77780_ - __tmp79576))))) - (_K7778777824_ - (lambda (_rest77808_ _hd77809_) + (_lp77758_ + _rest77821_ + __tmp79562 + _bind77762_ + __tmp79558))))) + (_K7776977806_ + (lambda (_rest77790_ _hd77791_) (if (let () (declare (not safe)) - (__AST-id? _hd77809_)) - (let ((_id77811_ + (__AST-id? _hd77791_)) + (let ((_id77793_ (let () (declare (not safe)) - (__SRC__0 _hd77809_)))) - (let ((__tmp79626 (cdr _exprs77779_)) - (__tmp79621 - (let ((__tmp79622 - (let ((__tmp79623 - (let ((__tmp79624 + (__SRC__0 _hd77791_)))) + (let ((__tmp79608 (cdr _exprs77761_)) + (__tmp79603 + (let ((__tmp79604 + (let ((__tmp79605 + (let ((__tmp79606 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79625 + (let ((__tmp79607 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp79625)))) + (cons 'quote __tmp79607)))) (declare (not safe)) - (cons __tmp79624 '())))) + (cons __tmp79606 '())))) (declare (not safe)) - (cons _id77811_ __tmp79623)))) + (cons _id77793_ __tmp79605)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79622 _bind77780_))) - (__tmp79615 - (let ((__tmp79616 - (let ((__tmp79617 - (let ((__tmp79618 + (cons __tmp79604 _bind77762_))) + (__tmp79597 + (let ((__tmp79598 + (let ((__tmp79599 + (let ((__tmp79600 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79619 - (let ((__tmp79620 (car _exprs77779_))) + (let ((__tmp79601 + (let ((__tmp79602 (car _exprs77761_))) (declare (not safe)) - (cons __tmp79620 '())))) + (cons __tmp79602 '())))) (declare (not safe)) - (cons 'values->list __tmp79619)))) + (cons 'values->list __tmp79601)))) (declare (not safe)) - (cons __tmp79618 '())))) + (cons __tmp79600 '())))) (declare (not safe)) - (cons _id77811_ __tmp79617)))) + (cons _id77793_ __tmp79599)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79616 - _post77781_)))) + (cons __tmp79598 + _post77763_)))) (declare (not safe)) - (_lp77776_ - _rest77808_ - __tmp79626 - __tmp79621 - __tmp79615))) - (if (let ((__tmp79614 + (_lp77758_ + _rest77790_ + __tmp79608 + __tmp79603 + __tmp79597))) + (if (let ((__tmp79596 (let () (declare (not safe)) - (__AST-e _hd77809_)))) + (__AST-e _hd77791_)))) (declare (not safe)) - (not __tmp79614)) - (let ((__tmp79613 (cdr _exprs77779_)) - (__tmp79609 - (let ((__tmp79610 - (let ((__tmp79611 - (let ((__tmp79612 + (not __tmp79596)) + (let ((__tmp79595 (cdr _exprs77761_)) + (__tmp79591 + (let ((__tmp79592 + (let ((__tmp79593 + (let ((__tmp79594 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs77779_))) + (car _exprs77761_))) (declare (not safe)) - (cons __tmp79612 '())))) + (cons __tmp79594 '())))) (declare (not safe)) - (cons '#f __tmp79611)))) + (cons '#f __tmp79593)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79610 - _post77781_)))) + (cons __tmp79592 + _post77763_)))) (declare (not safe)) - (_lp77776_ - _rest77808_ - __tmp79613 - _bind77780_ - __tmp79609)) + (_lp77758_ + _rest77790_ + __tmp79595 + _bind77762_ + __tmp79591)) (if (let () (declare (not safe)) - (list? _hd77809_)) - (let* ((_len77813_ - (length _hd77809_)) - (_tmp77815_ - (let ((__tmp79591 + (list? _hd77791_)) + (let* ((_len77795_ + (length _hd77791_)) + (_tmp77797_ + (let ((__tmp79573 (gensym))) (declare (not safe)) - (__SRC__0 __tmp79591)))) - (let ((__tmp79608 - (cdr _exprs77779_)) - (__tmp79601 - (let ((__tmp79602 - (lambda (_id77818_ + (__SRC__0 __tmp79573)))) + (let ((__tmp79590 + (cdr _exprs77761_)) + (__tmp79583 + (let ((__tmp79584 + (lambda (_id77800_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r77819_) - (if (let () (declare (not safe)) (__AST-e _id77818_)) - (let ((__tmp79603 - (let ((__tmp79607 + _r77801_) + (if (let () (declare (not safe)) (__AST-e _id77800_)) + (let ((__tmp79585 + (let ((__tmp79589 (let () (declare (not safe)) - (__SRC__0 _id77818_))) - (__tmp79604 - (let ((__tmp79605 - (let ((__tmp79606 + (__SRC__0 _id77800_))) + (__tmp79586 + (let ((__tmp79587 + (let ((__tmp79588 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp79606)))) + (cons 'quote __tmp79588)))) (declare (not safe)) - (cons __tmp79605 '())))) + (cons __tmp79587 '())))) (declare (not safe)) - (cons __tmp79607 __tmp79604)))) + (cons __tmp79589 __tmp79586)))) (declare (not safe)) - (cons __tmp79603 _r77819_)) - _r77819_)))) + (cons __tmp79585 _r77801_)) + _r77801_)))) (declare (not safe)) - (foldl1 __tmp79602 _bind77780_ _hd77809_))) + (foldl1 __tmp79584 _bind77762_ _hd77791_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp79592 - (let ((__tmp79593 - (let ((__tmp79594 + (__tmp79574 + (let ((__tmp79575 + (let ((__tmp79576 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79600 (car _exprs77779_)) - (__tmp79595 - (let ((__tmp79596 - (let ((__tmp79598 - (lambda (_id77821_ _k77822_) + (let ((__tmp79582 (car _exprs77761_)) + (__tmp79577 + (let ((__tmp79578 + (let ((__tmp79580 + (lambda (_id77803_ _k77804_) (if (let () (declare (not safe)) - (__AST-e _id77821_)) - (let ((__tmp79599 + (__AST-e _id77803_)) + (let ((__tmp79581 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__SRC__0 _id77821_)))) + (__SRC__0 _id77803_)))) (declare (not safe)) - (cons __tmp79599 _k77822_)) + (cons __tmp79581 _k77804_)) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp79597 (iota _len77813_))) + (__tmp79579 (iota _len77795_))) (declare (not safe)) (filter-map2 - __tmp79598 - _hd77809_ - __tmp79597)))) + __tmp79580 + _hd77791_ + __tmp79579)))) (declare (not safe)) - (cons _len77813_ __tmp79596)))) + (cons _len77795_ __tmp79578)))) (declare (not safe)) - (cons __tmp79600 __tmp79595)))) + (cons __tmp79582 __tmp79577)))) (declare (not safe)) - (cons _tmp77815_ __tmp79594)))) + (cons _tmp77797_ __tmp79576)))) (declare (not safe)) - (cons __tmp79593 _post77781_)))) + (cons __tmp79575 _post77763_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp77776_ - _rest77808_ - __tmp79608 - __tmp79601 - __tmp79592))) + (_lp77758_ + _rest77790_ + __tmp79590 + __tmp79583 + __tmp79574))) (let () (declare (not safe)) (__compile-error__% - _stx77620_ - _hd77809_)))))))) + _stx77602_ + _hd77791_)))))))) (if (let () (declare (not safe)) - (##pair? _rest7778277796_)) - (let ((_tl7779277849_ + (##pair? _rest7776477778_)) + (let ((_tl7777477831_ (let () (declare (not safe)) - (##cdr _rest7778277796_))) - (_hd7779177847_ + (##cdr _rest7776477778_))) + (_hd7777377829_ (let () (declare (not safe)) - (##car _rest7778277796_)))) + (##car _rest7776477778_)))) (if (let () (declare (not safe)) - (##pair? _hd7779177847_)) - (let ((_tl7779477854_ + (##pair? _hd7777377829_)) + (let ((_tl7777677836_ (let () (declare (not safe)) - (##cdr _hd7779177847_))) - (_hd7779377852_ + (##cdr _hd7777377829_))) + (_hd7777577834_ (let () (declare (not safe)) - (##car _hd7779177847_)))) + (##car _hd7777377829_)))) (if (let () (declare (not safe)) - (##null? _tl7779477854_)) - (let ((_hd77857_ _hd7779377852_) - (_rest77859_ _tl7779277849_)) + (##null? _tl7777677836_)) + (let ((_hd77839_ _hd7777577834_) + (_rest77841_ _tl7777477831_)) (let () (declare (not safe)) - (_K7779077844_ - _rest77859_ - _hd77857_))) - (let ((_hd77832_ _hd7779177847_) - (_rest77834_ _tl7779277849_)) + (_K7777277826_ + _rest77841_ + _hd77839_))) + (let ((_hd77814_ _hd7777377829_) + (_rest77816_ _tl7777477831_)) (let () (declare (not safe)) - (_K7778777824_ - _rest77834_ - _hd77832_))))) - (let ((_hd77832_ _hd7779177847_) - (_rest77834_ _tl7779277849_)) + (_K7776977806_ + _rest77816_ + _hd77814_))))) + (let ((_hd77814_ _hd7777377829_) + (_rest77816_ _tl7777477831_)) (let () (declare (not safe)) - (_K7778777824_ - _rest77834_ - _hd77832_))))) + (_K7776977806_ + _rest77816_ + _hd77814_))))) (let () (declare (not safe)) - (_else7778577804_)))))))) - (_compile-bind77624_ - (lambda (_bind77768_ _post77769_ _body77770_) - (let ((__tmp79627 - (let ((__tmp79628 - (let ((__tmp79631 (reverse _bind77768_)) - (__tmp79629 - (let ((__tmp79630 + (_else7776777786_)))))))) + (_compile-bind77606_ + (lambda (_bind77750_ _post77751_ _body77752_) + (let ((__tmp79609 + (let ((__tmp79610 + (let ((__tmp79613 (reverse _bind77750_)) + (__tmp79611 + (let ((__tmp79612 (let () (declare (not safe)) - (_compile-post77625_ - _post77769_ - _body77770_)))) + (_compile-post77607_ + _post77751_ + _body77752_)))) (declare (not safe)) - (cons __tmp79630 '())))) + (cons __tmp79612 '())))) (declare (not safe)) - (cons __tmp79631 __tmp79629)))) + (cons __tmp79613 __tmp79611)))) (declare (not safe)) - (cons 'let __tmp79628)))) + (cons 'let __tmp79610)))) (declare (not safe)) - (__SRC__% __tmp79627 _stx77620_)))) - (_compile-post77625_ - (lambda (_post77627_ _body77628_) - (let ((__tmp79632 - (let ((__tmp79633 - (let ((__tmp79634 - (let ((__tmp79636 - (lambda (_hd77630_ _r77631_) - (let* ((_hd7763277655_ - _hd77630_) - (_E7763677659_ + (__SRC__% __tmp79609 _stx77602_)))) + (_compile-post77607_ + (lambda (_post77609_ _body77610_) + (let ((__tmp79614 + (let ((__tmp79615 + (let ((__tmp79616 + (let ((__tmp79618 + (lambda (_hd77612_ _r77613_) + (let* ((_hd7761477637_ + _hd77612_) + (_E7761877641_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd7763277655_))))) + _hd7761477637_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K7764977753_ - (lambda (_expr77751_) + (let ((_K7763177735_ + (lambda (_expr77733_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr77751_ _r77631_)))) - (_K7764477731_ - (lambda (_expr77728_ _id77729_) - (let ((__tmp79637 - (let ((__tmp79638 - (let ((__tmp79639 - (let ((__tmp79640 + (cons _expr77733_ _r77613_)))) + (_K7762677713_ + (lambda (_expr77710_ _id77711_) + (let ((__tmp79619 + (let ((__tmp79620 + (let ((__tmp79621 + (let ((__tmp79622 (let () (declare (not safe)) - (cons _expr77728_ '())))) + (cons _expr77710_ '())))) (declare (not safe)) - (cons _id77729_ __tmp79640)))) + (cons _id77711_ __tmp79622)))) (declare (not safe)) - (cons 'set! __tmp79639)))) + (cons 'set! __tmp79621)))) (declare (not safe)) - (__SRC__% __tmp79638 _stx77620_)))) + (__SRC__% __tmp79620 _stx77602_)))) (declare (not safe)) - (cons __tmp79637 _r77631_)))) - (_K7763777698_ - (lambda (_init77663_ _len77664_ _expr77665_ _tmp77666_) - (let ((__tmp79641 - (let ((__tmp79642 - (let ((__tmp79643 - (let ((__tmp79657 - (let ((__tmp79658 - (let ((__tmp79659 + (cons __tmp79619 _r77613_)))) + (_K7761977680_ + (lambda (_init77645_ _len77646_ _expr77647_ _tmp77648_) + (let ((__tmp79623 + (let ((__tmp79624 + (let ((__tmp79625 + (let ((__tmp79639 + (let ((__tmp79640 + (let ((__tmp79641 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr77665_ '())))) + (cons _expr77647_ '())))) (declare (not safe)) - (cons _tmp77666_ __tmp79659)))) + (cons _tmp77648_ __tmp79641)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79658 '()))) - (__tmp79644 - (let ((__tmp79653 - (let ((__tmp79654 - (let ((__tmp79655 + (cons __tmp79640 '()))) + (__tmp79626 + (let ((__tmp79635 + (let ((__tmp79636 + (let ((__tmp79637 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79656 + (let ((__tmp79638 (let () (declare (not safe)) - (cons _len77664_ '())))) + (cons _len77646_ '())))) (declare (not safe)) - (cons _tmp77666_ __tmp79656)))) + (cons _tmp77648_ __tmp79638)))) (declare (not safe)) - (cons '__check-values __tmp79655)))) + (cons '__check-values __tmp79637)))) (declare (not safe)) - (__SRC__% __tmp79654 _stx77620_))) - (__tmp79645 - (let ((__tmp79646 - (map (lambda (_hd77668_) - (let* ((_hd7766977676_ _hd77668_) - (_E7767177680_ + (__SRC__% __tmp79636 _stx77602_))) + (__tmp79627 + (let ((__tmp79628 + (map (lambda (_hd77650_) + (let* ((_hd7765177658_ _hd77650_) + (_E7765377662_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _hd7766977676_)))) - (_K7767277686_ - (lambda (_k77683_ _id77684_) - (let ((__tmp79647 - (let ((__tmp79648 - (let ((__tmp79649 - (let ((__tmp79650 + _hd7765177658_)))) + (_K7765477668_ + (lambda (_k77665_ _id77666_) + (let ((__tmp79629 + (let ((__tmp79630 + (let ((__tmp79631 + (let ((__tmp79632 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp79651 - (let ((__tmp79652 + (let ((__tmp79633 + (let ((__tmp79634 (let () (declare (not safe)) - (cons _k77683_ '())))) + (cons _k77665_ '())))) (declare (not safe)) - (cons _tmp77666_ __tmp79652)))) + (cons _tmp77648_ __tmp79634)))) (declare (not safe)) - (cons '##vector-ref __tmp79651)))) + (cons '##vector-ref __tmp79633)))) (declare (not safe)) - (cons __tmp79650 '())))) + (cons __tmp79632 '())))) (declare (not safe)) - (cons _id77684_ __tmp79649)))) + (cons _id77666_ __tmp79631)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp79648)))) + (cons 'set! __tmp79630)))) (declare (not safe)) - (__SRC__% __tmp79647 _stx77620_))))) + (__SRC__% __tmp79629 _stx77602_))))) (if (let () (declare (not safe)) - (##pair? _hd7766977676_)) - (let ((_hd7767377689_ + (##pair? _hd7765177658_)) + (let ((_hd7765577671_ (let () (declare (not safe)) - (##car _hd7766977676_))) - (_tl7767477691_ + (##car _hd7765177658_))) + (_tl7765677673_ (let () (declare (not safe)) - (##cdr _hd7766977676_)))) - (let* ((_id77694_ _hd7767377689_) - (_k77696_ _tl7767477691_)) + (##cdr _hd7765177658_)))) + (let* ((_id77676_ _hd7765577671_) + (_k77678_ _tl7765677673_)) (declare (not safe)) - (_K7767277686_ _k77696_ _id77694_))) + (_K7765477668_ _k77678_ _id77676_))) (let () (declare (not safe)) - (_E7767177680_))))) - _init77663_))) + (_E7765377662_))))) + _init77645_))) (declare (not safe)) - (foldr1 cons '() __tmp79646)))) + (foldr1 cons '() __tmp79628)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79653 - __tmp79645)))) + (cons __tmp79635 + __tmp79627)))) (declare (not safe)) - (cons __tmp79657 __tmp79644)))) + (cons __tmp79639 __tmp79626)))) (declare (not safe)) - (cons 'let __tmp79643)))) + (cons 'let __tmp79625)))) (declare (not safe)) - (__SRC__% __tmp79642 _stx77620_)))) + (__SRC__% __tmp79624 _stx77602_)))) (declare (not safe)) - (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_)))) + (cons __tmp79623 _r77613_))))) + (if (let () (declare (not safe)) (##pair? _hd7761477637_)) + (let ((_tl7763377740_ + (let () (declare (not safe)) (##cdr _hd7761477637_))) + (_hd7763277738_ + (let () (declare (not safe)) (##car _hd7761477637_)))) (if (let () (declare (not safe)) - (##eq? _hd7765077756_ '#f)) + (##eq? _hd7763277738_ '#f)) (if (let () (declare (not safe)) - (##pair? _tl7765177758_)) - (let ((_tl7765377763_ + (##pair? _tl7763377740_)) + (let ((_tl7763577745_ (let () (declare (not safe)) - (##cdr _tl7765177758_))) - (_hd7765277761_ + (##cdr _tl7763377740_))) + (_hd7763477743_ (let () (declare (not safe)) - (##car _tl7765177758_)))) + (##car _tl7763377740_)))) (if (let () (declare (not safe)) - (##null? _tl7765377763_)) - (let ((_expr77766_ _hd7765277761_)) + (##null? _tl7763577745_)) + (let ((_expr77748_ _hd7763477743_)) (declare (not safe)) - (_K7764977753_ _expr77766_)) + (_K7763177735_ _expr77748_)) (if (let () (declare (not safe)) - (##pair? _tl7765377763_)) - (let ((_tl7764377717_ + (##pair? _tl7763577745_)) + (let ((_tl7762577699_ (let () (declare (not safe)) - (##cdr _tl7765377763_))) - (_hd7764277715_ + (##cdr _tl7763577745_))) + (_hd7762477697_ (let () (declare (not safe)) - (##car _tl7765377763_)))) - (let ((_tmp77706_ _hd7765077756_) - (_expr77713_ _hd7765277761_) - (_len77720_ _hd7764277715_) - (_init77722_ _tl7764377717_)) + (##car _tl7763577745_)))) + (let ((_tmp77688_ _hd7763277738_) + (_expr77695_ _hd7763477743_) + (_len77702_ _hd7762477697_) + (_init77704_ _tl7762577699_)) (let () (declare (not safe)) - (_K7763777698_ - _init77722_ - _len77720_ - _expr77713_ - _tmp77706_)))) + (_K7761977680_ + _init77704_ + _len77702_ + _expr77695_ + _tmp77688_)))) (let () (declare (not safe)) - (_E7763677659_))))) - (let () (declare (not safe)) (_E7763677659_))) + (_E7761877641_))))) + (let () (declare (not safe)) (_E7761877641_))) (if (let () (declare (not safe)) - (##pair? _tl7765177758_)) - (let ((_tl7764877743_ + (##pair? _tl7763377740_)) + (let ((_tl7763077725_ (let () (declare (not safe)) - (##cdr _tl7765177758_))) - (_hd7764777741_ + (##cdr _tl7763377740_))) + (_hd7762977723_ (let () (declare (not safe)) - (##car _tl7765177758_)))) + (##car _tl7763377740_)))) (if (let () (declare (not safe)) - (##null? _tl7764877743_)) - (let ((_id77739_ _hd7765077756_) - (_expr77746_ _hd7764777741_)) + (##null? _tl7763077725_)) + (let ((_id77721_ _hd7763277738_) + (_expr77728_ _hd7762977723_)) (let () (declare (not safe)) - (_K7764477731_ _expr77746_ _id77739_))) + (_K7762677713_ _expr77728_ _id77721_))) (if (let () (declare (not safe)) - (##pair? _tl7764877743_)) - (let ((_tl7764377717_ + (##pair? _tl7763077725_)) + (let ((_tl7762577699_ (let () (declare (not safe)) - (##cdr _tl7764877743_))) - (_hd7764277715_ + (##cdr _tl7763077725_))) + (_hd7762477697_ (let () (declare (not safe)) - (##car _tl7764877743_)))) - (let ((_tmp77706_ _hd7765077756_) - (_expr77713_ _hd7764777741_) - (_len77720_ _hd7764277715_) - (_init77722_ _tl7764377717_)) + (##car _tl7763077725_)))) + (let ((_tmp77688_ _hd7763277738_) + (_expr77695_ _hd7762977723_) + (_len77702_ _hd7762477697_) + (_init77704_ _tl7762577699_)) (let () (declare (not safe)) - (_K7763777698_ - _init77722_ - _len77720_ - _expr77713_ - _tmp77706_)))) + (_K7761977680_ + _init77704_ + _len77702_ + _expr77695_ + _tmp77688_)))) (let () (declare (not safe)) - (_E7763677659_))))) - (let () (declare (not safe)) (_E7763677659_))))) - (let () (declare (not safe)) (_E7763677659_))))))) + (_E7761877641_))))) + (let () (declare (not safe)) (_E7761877641_))))) + (let () (declare (not safe)) (_E7761877641_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp79635 (list _body77628_))) + (__tmp79617 (list _body77610_))) (declare (not safe)) - (foldl1 __tmp79636 - __tmp79635 - _post77627_)))) + (foldl1 __tmp79618 + __tmp79617 + _post77609_)))) (declare (not safe)) - (foldr1 cons '() __tmp79634)))) + (foldr1 cons '() __tmp79616)))) (declare (not safe)) - (cons 'begin __tmp79633)))) + (cons 'begin __tmp79615)))) (declare (not safe)) - (__SRC__% __tmp79632 _stx77620_))))) + (__SRC__% __tmp79614 _stx77602_))))) (let () (declare (not safe)) (__compile-let-form - _stx77620_ - _compile-simple77622_ - _compile-values77623_))))) + _stx77602_ + _compile-simple77604_ + _compile-values77605_))))) (define __compile-call% - (lambda (_stx77580_) - (let* ((_$e77582_ _stx77580_) - (_$E7758477593_ + (lambda (_stx77562_) + (let* ((_$e77564_ _stx77562_) + (_$E7756677575_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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_ + _$e77564_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77564_)) + (let* ((_$tgt7756777578_ + (let () (declare (not safe)) (__AST-e _$e77564_))) + (_$hd7756877581_ + (let () (declare (not safe)) (##car _$tgt7756777578_))) + (_$tl7756977584_ + (let () (declare (not safe)) (##cdr _$tgt7756777578_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7756977584_)) + (let* ((_$tgt7757077588_ (let () (declare (not safe)) - (__AST-e _$tl7758777602_))) - (_$hd7758977609_ + (__AST-e _$tl7756977584_))) + (_$hd7757177591_ (let () (declare (not safe)) - (##car _$tgt7758877606_))) - (_$tl7759077612_ + (##car _$tgt7757077588_))) + (_$tl7757277594_ (let () (declare (not safe)) - (##cdr _$tgt7758877606_)))) - (let* ((_rator77616_ _$hd7758977609_) - (_rands77618_ _$tl7759077612_) - (__tmp79660 - (let ((__tmp79662 + (##cdr _$tgt7757077588_)))) + (let* ((_rator77598_ _$hd7757177591_) + (_rands77600_ _$tl7757277594_) + (__tmp79642 + (let ((__tmp79644 (let () (declare (not safe)) - (__compile _rator77616_))) - (__tmp79661 (map __compile _rands77618_))) + (__compile _rator77598_))) + (__tmp79643 (map __compile _rands77600_))) (declare (not safe)) - (cons __tmp79662 __tmp79661)))) + (cons __tmp79644 __tmp79643)))) (declare (not safe)) - (__SRC__% __tmp79660 _stx77580_))) - (let () (declare (not safe)) (_$E7758477593_)))) - (let () (declare (not safe)) (_$E7758477593_)))))) + (__SRC__% __tmp79642 _stx77562_))) + (let () (declare (not safe)) (_$E7756677575_)))) + (let () (declare (not safe)) (_$E7756677575_)))))) (define __compile-ref% - (lambda (_stx77542_) - (let* ((_$e77544_ _stx77542_) - (_$E7754677555_ + (lambda (_stx77524_) + (let* ((_$e77526_ _stx77524_) + (_$E7752877537_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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_ + _$e77526_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77526_)) + (let* ((_$tgt7752977540_ + (let () (declare (not safe)) (__AST-e _$e77526_))) + (_$hd7753077543_ + (let () (declare (not safe)) (##car _$tgt7752977540_))) + (_$tl7753177546_ + (let () (declare (not safe)) (##cdr _$tgt7752977540_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7753177546_)) + (let* ((_$tgt7753277550_ (let () (declare (not safe)) - (__AST-e _$tl7754977564_))) - (_$hd7755177571_ + (__AST-e _$tl7753177546_))) + (_$hd7753377553_ (let () (declare (not safe)) - (##car _$tgt7755077568_))) - (_$tl7755277574_ + (##car _$tgt7753277550_))) + (_$tl7753477556_ (let () (declare (not safe)) - (##cdr _$tgt7755077568_)))) - (let ((_id77578_ _$hd7755177571_)) - (if (let ((__tmp79663 + (##cdr _$tgt7753277550_)))) + (let ((_id77560_ _$hd7753377553_)) + (if (let ((__tmp79645 (let () (declare (not safe)) - (__AST-e _$tl7755277574_)))) + (__AST-e _$tl7753477556_)))) (declare (not safe)) - (equal? __tmp79663 '())) + (equal? __tmp79645 '())) (let () (declare (not safe)) - (__SRC__% _id77578_ _stx77542_)) - (let () (declare (not safe)) (_$E7754677555_))))) - (let () (declare (not safe)) (_$E7754677555_)))) - (let () (declare (not safe)) (_$E7754677555_)))))) + (__SRC__% _id77560_ _stx77524_)) + (let () (declare (not safe)) (_$E7752877537_))))) + (let () (declare (not safe)) (_$E7752877537_)))) + (let () (declare (not safe)) (_$E7752877537_)))))) (define __compile-setq% - (lambda (_stx77489_) - (let* ((_$e77491_ _stx77489_) - (_$E7749377505_ + (lambda (_stx77471_) + (let* ((_$e77473_ _stx77471_) + (_$E7747577487_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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_ + _$e77473_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77473_)) + (let* ((_$tgt7747677490_ + (let () (declare (not safe)) (__AST-e _$e77473_))) + (_$hd7747777493_ + (let () (declare (not safe)) (##car _$tgt7747677490_))) + (_$tl7747877496_ + (let () (declare (not safe)) (##cdr _$tgt7747677490_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7747877496_)) + (let* ((_$tgt7747977500_ (let () (declare (not safe)) - (__AST-e _$tl7749677514_))) - (_$hd7749877521_ + (__AST-e _$tl7747877496_))) + (_$hd7748077503_ (let () (declare (not safe)) - (##car _$tgt7749777518_))) - (_$tl7749977524_ + (##car _$tgt7747977500_))) + (_$tl7748177506_ (let () (declare (not safe)) - (##cdr _$tgt7749777518_)))) - (let ((_id77528_ _$hd7749877521_)) + (##cdr _$tgt7747977500_)))) + (let ((_id77510_ _$hd7748077503_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7749977524_)) - (let* ((_$tgt7750077530_ + (__AST-pair? _$tl7748177506_)) + (let* ((_$tgt7748277512_ (let () (declare (not safe)) - (__AST-e _$tl7749977524_))) - (_$hd7750177533_ + (__AST-e _$tl7748177506_))) + (_$hd7748377515_ (let () (declare (not safe)) - (##car _$tgt7750077530_))) - (_$tl7750277536_ + (##car _$tgt7748277512_))) + (_$tl7748477518_ (let () (declare (not safe)) - (##cdr _$tgt7750077530_)))) - (let ((_expr77540_ _$hd7750177533_)) - (if (let ((__tmp79669 + (##cdr _$tgt7748277512_)))) + (let ((_expr77522_ _$hd7748377515_)) + (if (let ((__tmp79651 (let () (declare (not safe)) - (__AST-e _$tl7750277536_)))) + (__AST-e _$tl7748477518_)))) (declare (not safe)) - (equal? __tmp79669 '())) - (let ((__tmp79664 - (let ((__tmp79665 - (let ((__tmp79668 + (equal? __tmp79651 '())) + (let ((__tmp79646 + (let ((__tmp79647 + (let ((__tmp79650 (let () (declare (not safe)) (__SRC__% - _id77528_ - _stx77489_))) - (__tmp79666 - (let ((__tmp79667 + _id77510_ + _stx77471_))) + (__tmp79648 + (let ((__tmp79649 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _expr77540_)))) + (__compile _expr77522_)))) (declare (not safe)) - (cons __tmp79667 '())))) + (cons __tmp79649 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp79668 - __tmp79666)))) + (cons __tmp79650 + __tmp79648)))) (declare (not safe)) - (cons 'set! __tmp79665)))) + (cons 'set! __tmp79647)))) (declare (not safe)) - (__SRC__% __tmp79664 _stx77489_)) + (__SRC__% __tmp79646 _stx77471_)) (let () (declare (not safe)) - (_$E7749377505_))))) - (let () (declare (not safe)) (_$E7749377505_))))) - (let () (declare (not safe)) (_$E7749377505_)))) - (let () (declare (not safe)) (_$E7749377505_)))))) + (_$E7747577487_))))) + (let () (declare (not safe)) (_$E7747577487_))))) + (let () (declare (not safe)) (_$E7747577487_)))) + (let () (declare (not safe)) (_$E7747577487_)))))) (define __compile-if% - (lambda (_stx77421_) - (let* ((_$e77423_ _stx77421_) - (_$E7742577440_ + (lambda (_stx77403_) + (let* ((_$e77405_ _stx77403_) + (_$E7740777422_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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_ + _$e77405_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77405_)) + (let* ((_$tgt7740877425_ + (let () (declare (not safe)) (__AST-e _$e77405_))) + (_$hd7740977428_ + (let () (declare (not safe)) (##car _$tgt7740877425_))) + (_$tl7741077431_ + (let () (declare (not safe)) (##cdr _$tgt7740877425_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7741077431_)) + (let* ((_$tgt7741177435_ (let () (declare (not safe)) - (__AST-e _$tl7742877449_))) - (_$hd7743077456_ + (__AST-e _$tl7741077431_))) + (_$hd7741277438_ (let () (declare (not safe)) - (##car _$tgt7742977453_))) - (_$tl7743177459_ + (##car _$tgt7741177435_))) + (_$tl7741377441_ (let () (declare (not safe)) - (##cdr _$tgt7742977453_)))) - (let ((_p77463_ _$hd7743077456_)) + (##cdr _$tgt7741177435_)))) + (let ((_p77445_ _$hd7741277438_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7743177459_)) - (let* ((_$tgt7743277465_ + (__AST-pair? _$tl7741377441_)) + (let* ((_$tgt7741477447_ (let () (declare (not safe)) - (__AST-e _$tl7743177459_))) - (_$hd7743377468_ + (__AST-e _$tl7741377441_))) + (_$hd7741577450_ (let () (declare (not safe)) - (##car _$tgt7743277465_))) - (_$tl7743477471_ + (##car _$tgt7741477447_))) + (_$tl7741677453_ (let () (declare (not safe)) - (##cdr _$tgt7743277465_)))) - (let ((_t77475_ _$hd7743377468_)) + (##cdr _$tgt7741477447_)))) + (let ((_t77457_ _$hd7741577450_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl7743477471_)) - (let* ((_$tgt7743577477_ + (__AST-pair? _$tl7741677453_)) + (let* ((_$tgt7741777459_ (let () (declare (not safe)) - (__AST-e _$tl7743477471_))) - (_$hd7743677480_ + (__AST-e _$tl7741677453_))) + (_$hd7741877462_ (let () (declare (not safe)) - (##car _$tgt7743577477_))) - (_$tl7743777483_ + (##car _$tgt7741777459_))) + (_$tl7741977465_ (let () (declare (not safe)) - (##cdr _$tgt7743577477_)))) - (let ((_f77487_ _$hd7743677480_)) - (if (let ((__tmp79677 + (##cdr _$tgt7741777459_)))) + (let ((_f77469_ _$hd7741877462_)) + (if (let ((__tmp79659 (let () (declare (not safe)) - (__AST-e _$tl7743777483_)))) + (__AST-e _$tl7741977465_)))) (declare (not safe)) - (equal? __tmp79677 '())) - (let ((__tmp79670 - (let ((__tmp79671 - (let ((__tmp79676 + (equal? __tmp79659 '())) + (let ((__tmp79652 + (let ((__tmp79653 + (let ((__tmp79658 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (__compile _p77463_))) - (__tmp79672 - (let ((__tmp79675 + (let () (declare (not safe)) (__compile _p77445_))) + (__tmp79654 + (let ((__tmp79657 (let () (declare (not safe)) - (__compile _t77475_))) - (__tmp79673 - (let ((__tmp79674 + (__compile _t77457_))) + (__tmp79655 + (let ((__tmp79656 (let () (declare (not safe)) - (__compile _f77487_)))) + (__compile _f77469_)))) (declare (not safe)) - (cons __tmp79674 '())))) + (cons __tmp79656 '())))) (declare (not safe)) - (cons __tmp79675 __tmp79673)))) + (cons __tmp79657 __tmp79655)))) (declare (not safe)) - (cons __tmp79676 __tmp79672)))) + (cons __tmp79658 __tmp79654)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp79671)))) + (cons 'if __tmp79653)))) (declare (not safe)) - (__SRC__% __tmp79670 _stx77421_)) + (__SRC__% __tmp79652 _stx77403_)) (let () (declare (not safe)) - (_$E7742577440_))))) + (_$E7740777422_))))) (let () (declare (not safe)) - (_$E7742577440_))))) - (let () (declare (not safe)) (_$E7742577440_))))) - (let () (declare (not safe)) (_$E7742577440_)))) - (let () (declare (not safe)) (_$E7742577440_)))))) + (_$E7740777422_))))) + (let () (declare (not safe)) (_$E7740777422_))))) + (let () (declare (not safe)) (_$E7740777422_)))) + (let () (declare (not safe)) (_$E7740777422_)))))) (define __compile-quote% - (lambda (_stx77383_) - (let* ((_$e77385_ _stx77383_) - (_$E7738777396_ + (lambda (_stx77365_) + (let* ((_$e77367_ _stx77365_) + (_$E7736977378_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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_ + _$e77367_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77367_)) + (let* ((_$tgt7737077381_ + (let () (declare (not safe)) (__AST-e _$e77367_))) + (_$hd7737177384_ + (let () (declare (not safe)) (##car _$tgt7737077381_))) + (_$tl7737277387_ + (let () (declare (not safe)) (##cdr _$tgt7737077381_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7737277387_)) + (let* ((_$tgt7737377391_ (let () (declare (not safe)) - (__AST-e _$tl7739077405_))) - (_$hd7739277412_ + (__AST-e _$tl7737277387_))) + (_$hd7737477394_ (let () (declare (not safe)) - (##car _$tgt7739177409_))) - (_$tl7739377415_ + (##car _$tgt7737377391_))) + (_$tl7737577397_ (let () (declare (not safe)) - (##cdr _$tgt7739177409_)))) - (let ((_e77419_ _$hd7739277412_)) - (if (let ((__tmp79681 + (##cdr _$tgt7737377391_)))) + (let ((_e77401_ _$hd7737477394_)) + (if (let ((__tmp79663 (let () (declare (not safe)) - (__AST-e _$tl7739377415_)))) + (__AST-e _$tl7737577397_)))) (declare (not safe)) - (equal? __tmp79681 '())) - (let ((__tmp79678 - (let ((__tmp79679 - (let ((__tmp79680 + (equal? __tmp79663 '())) + (let ((__tmp79660 + (let ((__tmp79661 + (let ((__tmp79662 (let () (declare (not safe)) - (__AST->datum _e77419_)))) + (__AST->datum _e77401_)))) (declare (not safe)) - (cons __tmp79680 '())))) + (cons __tmp79662 '())))) (declare (not safe)) - (cons 'quote __tmp79679)))) + (cons 'quote __tmp79661)))) (declare (not safe)) - (__SRC__% __tmp79678 _stx77383_)) - (let () (declare (not safe)) (_$E7738777396_))))) - (let () (declare (not safe)) (_$E7738777396_)))) - (let () (declare (not safe)) (_$E7738777396_)))))) + (__SRC__% __tmp79660 _stx77365_)) + (let () (declare (not safe)) (_$E7736977378_))))) + (let () (declare (not safe)) (_$E7736977378_)))) + (let () (declare (not safe)) (_$E7736977378_)))))) (define __compile-quote-syntax% - (lambda (_stx77345_) - (let* ((_$e77347_ _stx77345_) - (_$E7734977358_ + (lambda (_stx77327_) + (let* ((_$e77329_ _stx77327_) + (_$E7733177340_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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_ + _$e77329_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e77329_)) + (let* ((_$tgt7733277343_ + (let () (declare (not safe)) (__AST-e _$e77329_))) + (_$hd7733377346_ + (let () (declare (not safe)) (##car _$tgt7733277343_))) + (_$tl7733477349_ + (let () (declare (not safe)) (##cdr _$tgt7733277343_)))) + (if (let () (declare (not safe)) (__AST-pair? _$tl7733477349_)) + (let* ((_$tgt7733577353_ (let () (declare (not safe)) - (__AST-e _$tl7735277367_))) - (_$hd7735477374_ + (__AST-e _$tl7733477349_))) + (_$hd7733677356_ (let () (declare (not safe)) - (##car _$tgt7735377371_))) - (_$tl7735577377_ + (##car _$tgt7733577353_))) + (_$tl7733777359_ (let () (declare (not safe)) - (##cdr _$tgt7735377371_)))) - (let ((_e77381_ _$hd7735477374_)) - (if (let ((__tmp79684 + (##cdr _$tgt7733577353_)))) + (let ((_e77363_ _$hd7733677356_)) + (if (let ((__tmp79666 (let () (declare (not safe)) - (__AST-e _$tl7735577377_)))) + (__AST-e _$tl7733777359_)))) (declare (not safe)) - (equal? __tmp79684 '())) - (let ((__tmp79682 - (let ((__tmp79683 + (equal? __tmp79666 '())) + (let ((__tmp79664 + (let ((__tmp79665 (let () (declare (not safe)) - (cons _e77381_ '())))) + (cons _e77363_ '())))) (declare (not safe)) - (cons 'quote __tmp79683)))) + (cons 'quote __tmp79665)))) (declare (not safe)) - (__SRC__% __tmp79682 _stx77345_)) - (let () (declare (not safe)) (_$E7734977358_))))) - (let () (declare (not safe)) (_$E7734977358_)))) - (let () (declare (not safe)) (_$E7734977358_)))))) + (__SRC__% __tmp79664 _stx77327_)) + (let () (declare (not safe)) (_$E7733177340_))))) + (let () (declare (not safe)) (_$E7733177340_)))) + (let () (declare (not safe)) (_$E7733177340_)))))) (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 bf21f1da6..58b0869a0 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]#_g79686_| + (define |[1]#_g79668_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g79688_| + (define |[1]#_g79670_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g79690_| + (define |[1]#_g79672_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g79695_| + (define |[1]#_g79677_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g79698_| + (define |[1]#_g79680_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g79703_| + (define |[1]#_g79685_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79706_| + (define |[1]#_g79688_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79711_| + (define |[1]#_g79693_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g79714_| + (define |[1]#_g79696_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g79719_| + (define |[1]#_g79701_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79722_| + (define |[1]#_g79704_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79725_| + (define |[1]#_g79707_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g79727_| + (define |[1]#_g79709_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g79729_| + (define |[1]#_g79711_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g79731_| + (define |[1]#_g79713_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g79736_| + (define |[1]#_g79718_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g79739_| + (define |[1]#_g79721_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g79744_| + (define |[1]#_g79726_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79747_| + (define |[1]#_g79729_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79752_| + (define |[1]#_g79734_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g79755_| + (define |[1]#_g79737_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g79760_| + (define |[1]#_g79742_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79763_| + (define |[1]#_g79745_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79766_| + (define |[1]#_g79748_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g79768_| + (define |[1]#_g79750_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g79770_| + (define |[1]#_g79752_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g79772_| + (define |[1]#_g79754_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g79777_| + (define |[1]#_g79759_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g79780_| + (define |[1]#_g79762_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g79785_| + (define |[1]#_g79767_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79788_| + (define |[1]#_g79770_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79793_| + (define |[1]#_g79775_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g79796_| + (define |[1]#_g79778_| (##structure gx#syntax-quote::t '&__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g79801_| + (define |[1]#_g79783_| (##structure gx#syntax-quote::t '&__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79804_| + (define |[1]#_g79786_| (##structure gx#syntax-quote::t '&__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79808_| + (define |[1]#_g79790_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g79810_| + (define |[1]#_g79792_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g79812_| + (define |[1]#_g79794_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g79817_| + (define |[1]#_g79799_| (##structure gx#syntax-quote::t '__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g79820_| + (define |[1]#_g79802_| (##structure gx#syntax-quote::t '__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g79825_| + (define |[1]#_g79807_| (##structure gx#syntax-quote::t '__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79828_| + (define |[1]#_g79810_| (##structure gx#syntax-quote::t '__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79833_| + (define |[1]#_g79815_| (##structure gx#syntax-quote::t '&__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g79836_| + (define |[1]#_g79818_| (##structure gx#syntax-quote::t '&__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g79841_| + (define |[1]#_g79823_| (##structure gx#syntax-quote::t '&__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g79844_| + (define |[1]#_g79826_| (##structure gx#syntax-quote::t '&__core-special-form-e-set! @@ -324,7 +324,7 @@ '())) (begin (define |[:0:]#__syntax| - (let ((__obj79324 + (let ((__obj79306 (let () (declare (not safe)) (##structure @@ -348,7 +348,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79324 + __obj79306 '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! - __obj79324 + __obj79306 '__syntax '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -364,7 +364,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79324 + __obj79306 '(e id) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -372,7 +372,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79324 + __obj79306 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -380,7 +380,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79324 + __obj79306 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -388,7 +388,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79324 + __obj79306 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -396,7 +396,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79324 + __obj79306 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -404,122 +404,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79324 + __obj79306 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79685 |[1]#_g79686_|)) + (let ((__tmp79667 |[1]#_g79668_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79324 - __tmp79685 + __obj79306 + __tmp79667 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79687 |[1]#_g79688_|)) + (let ((__tmp79669 |[1]#_g79670_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79324 - __tmp79687 + __obj79306 + __tmp79669 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79689 |[1]#_g79690_|)) + (let ((__tmp79671 |[1]#_g79672_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79324 - __tmp79689 + __obj79306 + __tmp79671 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79691 - (let ((__tmp79696 - (let ((__tmp79697 |[1]#_g79698_|)) + (let ((__tmp79673 + (let ((__tmp79678 + (let ((__tmp79679 |[1]#_g79680_|)) (declare (not safe)) - (cons 'e __tmp79697))) - (__tmp79692 - (let ((__tmp79693 - (let ((__tmp79694 |[1]#_g79695_|)) + (cons 'e __tmp79679))) + (__tmp79674 + (let ((__tmp79675 + (let ((__tmp79676 |[1]#_g79677_|)) (declare (not safe)) - (cons 'id __tmp79694)))) + (cons 'id __tmp79676)))) (declare (not safe)) - (cons __tmp79693 '())))) + (cons __tmp79675 '())))) (declare (not safe)) - (cons __tmp79696 __tmp79692)))) + (cons __tmp79678 __tmp79674)))) (declare (not safe)) (##unchecked-structure-set! - __obj79324 - __tmp79691 + __obj79306 + __tmp79673 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79699 - (let ((__tmp79704 - (let ((__tmp79705 |[1]#_g79706_|)) + (let ((__tmp79681 + (let ((__tmp79686 + (let ((__tmp79687 |[1]#_g79688_|)) (declare (not safe)) - (cons 'e __tmp79705))) - (__tmp79700 - (let ((__tmp79701 - (let ((__tmp79702 |[1]#_g79703_|)) + (cons 'e __tmp79687))) + (__tmp79682 + (let ((__tmp79683 + (let ((__tmp79684 |[1]#_g79685_|)) (declare (not safe)) - (cons 'id __tmp79702)))) + (cons 'id __tmp79684)))) (declare (not safe)) - (cons __tmp79701 '())))) + (cons __tmp79683 '())))) (declare (not safe)) - (cons __tmp79704 __tmp79700)))) + (cons __tmp79686 __tmp79682)))) (declare (not safe)) (##unchecked-structure-set! - __obj79324 - __tmp79699 + __obj79306 + __tmp79681 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79707 - (let ((__tmp79712 - (let ((__tmp79713 |[1]#_g79714_|)) + (let ((__tmp79689 + (let ((__tmp79694 + (let ((__tmp79695 |[1]#_g79696_|)) (declare (not safe)) - (cons 'e __tmp79713))) - (__tmp79708 - (let ((__tmp79709 - (let ((__tmp79710 |[1]#_g79711_|)) + (cons 'e __tmp79695))) + (__tmp79690 + (let ((__tmp79691 + (let ((__tmp79692 |[1]#_g79693_|)) (declare (not safe)) - (cons 'id __tmp79710)))) + (cons 'id __tmp79692)))) (declare (not safe)) - (cons __tmp79709 '())))) + (cons __tmp79691 '())))) (declare (not safe)) - (cons __tmp79712 __tmp79708)))) + (cons __tmp79694 __tmp79690)))) (declare (not safe)) (##unchecked-structure-set! - __obj79324 - __tmp79707 + __obj79306 + __tmp79689 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79715 - (let ((__tmp79720 - (let ((__tmp79721 |[1]#_g79722_|)) + (let ((__tmp79697 + (let ((__tmp79702 + (let ((__tmp79703 |[1]#_g79704_|)) (declare (not safe)) - (cons 'e __tmp79721))) - (__tmp79716 - (let ((__tmp79717 - (let ((__tmp79718 |[1]#_g79719_|)) + (cons 'e __tmp79703))) + (__tmp79698 + (let ((__tmp79699 + (let ((__tmp79700 |[1]#_g79701_|)) (declare (not safe)) - (cons 'id __tmp79718)))) + (cons 'id __tmp79700)))) (declare (not safe)) - (cons __tmp79717 '())))) + (cons __tmp79699 '())))) (declare (not safe)) - (cons __tmp79720 __tmp79716)))) + (cons __tmp79702 __tmp79698)))) (declare (not safe)) (##unchecked-structure-set! - __obj79324 - __tmp79715 + __obj79306 + __tmp79697 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj79324)) + __obj79306)) (define |[:0:]#__core-form| - (let ((__obj79325 + (let ((__obj79307 (let () (declare (not safe)) (##structure @@ -543,7 +543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79325 + __obj79307 '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! - __obj79325 + __obj79307 '__core-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -559,26 +559,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79325 + __obj79307 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79723 - (let ((__tmp79724 |[1]#_g79725_|)) + (let ((__tmp79705 + (let ((__tmp79706 |[1]#_g79707_|)) (declare (not safe)) - (cons __tmp79724 '())))) + (cons __tmp79706 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj79325 - __tmp79723 + __obj79307 + __tmp79705 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj79325 + __obj79307 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -586,7 +586,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79325 + __obj79307 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -594,7 +594,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79325 + __obj79307 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -602,122 +602,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79325 + __obj79307 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79726 |[1]#_g79727_|)) + (let ((__tmp79708 |[1]#_g79709_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79325 - __tmp79726 + __obj79307 + __tmp79708 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79728 |[1]#_g79729_|)) + (let ((__tmp79710 |[1]#_g79711_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79325 - __tmp79728 + __obj79307 + __tmp79710 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79730 |[1]#_g79731_|)) + (let ((__tmp79712 |[1]#_g79713_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79325 - __tmp79730 + __obj79307 + __tmp79712 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79732 - (let ((__tmp79737 - (let ((__tmp79738 |[1]#_g79739_|)) + (let ((__tmp79714 + (let ((__tmp79719 + (let ((__tmp79720 |[1]#_g79721_|)) (declare (not safe)) - (cons 'e __tmp79738))) - (__tmp79733 - (let ((__tmp79734 - (let ((__tmp79735 |[1]#_g79736_|)) + (cons 'e __tmp79720))) + (__tmp79715 + (let ((__tmp79716 + (let ((__tmp79717 |[1]#_g79718_|)) (declare (not safe)) - (cons 'id __tmp79735)))) + (cons 'id __tmp79717)))) (declare (not safe)) - (cons __tmp79734 '())))) + (cons __tmp79716 '())))) (declare (not safe)) - (cons __tmp79737 __tmp79733)))) + (cons __tmp79719 __tmp79715)))) (declare (not safe)) (##unchecked-structure-set! - __obj79325 - __tmp79732 + __obj79307 + __tmp79714 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79740 - (let ((__tmp79745 - (let ((__tmp79746 |[1]#_g79747_|)) + (let ((__tmp79722 + (let ((__tmp79727 + (let ((__tmp79728 |[1]#_g79729_|)) (declare (not safe)) - (cons 'e __tmp79746))) - (__tmp79741 - (let ((__tmp79742 - (let ((__tmp79743 |[1]#_g79744_|)) + (cons 'e __tmp79728))) + (__tmp79723 + (let ((__tmp79724 + (let ((__tmp79725 |[1]#_g79726_|)) (declare (not safe)) - (cons 'id __tmp79743)))) + (cons 'id __tmp79725)))) (declare (not safe)) - (cons __tmp79742 '())))) + (cons __tmp79724 '())))) (declare (not safe)) - (cons __tmp79745 __tmp79741)))) + (cons __tmp79727 __tmp79723)))) (declare (not safe)) (##unchecked-structure-set! - __obj79325 - __tmp79740 + __obj79307 + __tmp79722 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79748 - (let ((__tmp79753 - (let ((__tmp79754 |[1]#_g79755_|)) + (let ((__tmp79730 + (let ((__tmp79735 + (let ((__tmp79736 |[1]#_g79737_|)) (declare (not safe)) - (cons 'e __tmp79754))) - (__tmp79749 - (let ((__tmp79750 - (let ((__tmp79751 |[1]#_g79752_|)) + (cons 'e __tmp79736))) + (__tmp79731 + (let ((__tmp79732 + (let ((__tmp79733 |[1]#_g79734_|)) (declare (not safe)) - (cons 'id __tmp79751)))) + (cons 'id __tmp79733)))) (declare (not safe)) - (cons __tmp79750 '())))) + (cons __tmp79732 '())))) (declare (not safe)) - (cons __tmp79753 __tmp79749)))) + (cons __tmp79735 __tmp79731)))) (declare (not safe)) (##unchecked-structure-set! - __obj79325 - __tmp79748 + __obj79307 + __tmp79730 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79756 - (let ((__tmp79761 - (let ((__tmp79762 |[1]#_g79763_|)) + (let ((__tmp79738 + (let ((__tmp79743 + (let ((__tmp79744 |[1]#_g79745_|)) (declare (not safe)) - (cons 'e __tmp79762))) - (__tmp79757 - (let ((__tmp79758 - (let ((__tmp79759 |[1]#_g79760_|)) + (cons 'e __tmp79744))) + (__tmp79739 + (let ((__tmp79740 + (let ((__tmp79741 |[1]#_g79742_|)) (declare (not safe)) - (cons 'id __tmp79759)))) + (cons 'id __tmp79741)))) (declare (not safe)) - (cons __tmp79758 '())))) + (cons __tmp79740 '())))) (declare (not safe)) - (cons __tmp79761 __tmp79757)))) + (cons __tmp79743 __tmp79739)))) (declare (not safe)) (##unchecked-structure-set! - __obj79325 - __tmp79756 + __obj79307 + __tmp79738 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj79325)) + __obj79307)) (define |[:0:]#__core-expression| - (let ((__obj79326 + (let ((__obj79308 (let () (declare (not safe)) (##structure @@ -741,7 +741,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79326 + __obj79308 '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! - __obj79326 + __obj79308 '__core-expression '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -757,26 +757,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79326 + __obj79308 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79764 - (let ((__tmp79765 |[1]#_g79766_|)) + (let ((__tmp79746 + (let ((__tmp79747 |[1]#_g79748_|)) (declare (not safe)) - (cons __tmp79765 '())))) + (cons __tmp79747 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj79326 - __tmp79764 + __obj79308 + __tmp79746 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj79326 + __obj79308 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -784,7 +784,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79326 + __obj79308 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -792,7 +792,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79326 + __obj79308 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -800,122 +800,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79326 + __obj79308 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79767 |[1]#_g79768_|)) + (let ((__tmp79749 |[1]#_g79750_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79326 - __tmp79767 + __obj79308 + __tmp79749 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79769 |[1]#_g79770_|)) + (let ((__tmp79751 |[1]#_g79752_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79326 - __tmp79769 + __obj79308 + __tmp79751 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79771 |[1]#_g79772_|)) + (let ((__tmp79753 |[1]#_g79754_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79326 - __tmp79771 + __obj79308 + __tmp79753 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79773 - (let ((__tmp79778 - (let ((__tmp79779 |[1]#_g79780_|)) + (let ((__tmp79755 + (let ((__tmp79760 + (let ((__tmp79761 |[1]#_g79762_|)) (declare (not safe)) - (cons 'e __tmp79779))) - (__tmp79774 - (let ((__tmp79775 - (let ((__tmp79776 |[1]#_g79777_|)) + (cons 'e __tmp79761))) + (__tmp79756 + (let ((__tmp79757 + (let ((__tmp79758 |[1]#_g79759_|)) (declare (not safe)) - (cons 'id __tmp79776)))) + (cons 'id __tmp79758)))) (declare (not safe)) - (cons __tmp79775 '())))) + (cons __tmp79757 '())))) (declare (not safe)) - (cons __tmp79778 __tmp79774)))) + (cons __tmp79760 __tmp79756)))) (declare (not safe)) (##unchecked-structure-set! - __obj79326 - __tmp79773 + __obj79308 + __tmp79755 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79781 - (let ((__tmp79786 - (let ((__tmp79787 |[1]#_g79788_|)) + (let ((__tmp79763 + (let ((__tmp79768 + (let ((__tmp79769 |[1]#_g79770_|)) (declare (not safe)) - (cons 'e __tmp79787))) - (__tmp79782 - (let ((__tmp79783 - (let ((__tmp79784 |[1]#_g79785_|)) + (cons 'e __tmp79769))) + (__tmp79764 + (let ((__tmp79765 + (let ((__tmp79766 |[1]#_g79767_|)) (declare (not safe)) - (cons 'id __tmp79784)))) + (cons 'id __tmp79766)))) (declare (not safe)) - (cons __tmp79783 '())))) + (cons __tmp79765 '())))) (declare (not safe)) - (cons __tmp79786 __tmp79782)))) + (cons __tmp79768 __tmp79764)))) (declare (not safe)) (##unchecked-structure-set! - __obj79326 - __tmp79781 + __obj79308 + __tmp79763 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79789 - (let ((__tmp79794 - (let ((__tmp79795 |[1]#_g79796_|)) + (let ((__tmp79771 + (let ((__tmp79776 + (let ((__tmp79777 |[1]#_g79778_|)) (declare (not safe)) - (cons 'e __tmp79795))) - (__tmp79790 - (let ((__tmp79791 - (let ((__tmp79792 |[1]#_g79793_|)) + (cons 'e __tmp79777))) + (__tmp79772 + (let ((__tmp79773 + (let ((__tmp79774 |[1]#_g79775_|)) (declare (not safe)) - (cons 'id __tmp79792)))) + (cons 'id __tmp79774)))) (declare (not safe)) - (cons __tmp79791 '())))) + (cons __tmp79773 '())))) (declare (not safe)) - (cons __tmp79794 __tmp79790)))) + (cons __tmp79776 __tmp79772)))) (declare (not safe)) (##unchecked-structure-set! - __obj79326 - __tmp79789 + __obj79308 + __tmp79771 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79797 - (let ((__tmp79802 - (let ((__tmp79803 |[1]#_g79804_|)) + (let ((__tmp79779 + (let ((__tmp79784 + (let ((__tmp79785 |[1]#_g79786_|)) (declare (not safe)) - (cons 'e __tmp79803))) - (__tmp79798 - (let ((__tmp79799 - (let ((__tmp79800 |[1]#_g79801_|)) + (cons 'e __tmp79785))) + (__tmp79780 + (let ((__tmp79781 + (let ((__tmp79782 |[1]#_g79783_|)) (declare (not safe)) - (cons 'id __tmp79800)))) + (cons 'id __tmp79782)))) (declare (not safe)) - (cons __tmp79799 '())))) + (cons __tmp79781 '())))) (declare (not safe)) - (cons __tmp79802 __tmp79798)))) + (cons __tmp79784 __tmp79780)))) (declare (not safe)) (##unchecked-structure-set! - __obj79326 - __tmp79797 + __obj79308 + __tmp79779 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj79326)) + __obj79308)) (define |[:0:]#__core-special-form| - (let ((__obj79327 + (let ((__obj79309 (let () (declare (not safe)) (##structure @@ -939,7 +939,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79327 + __obj79309 '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! - __obj79327 + __obj79309 '__core-special-form '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -955,26 +955,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79327 + __obj79309 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79805 - (let ((__tmp79806 |[1]#_g79766_|)) + (let ((__tmp79787 + (let ((__tmp79788 |[1]#_g79748_|)) (declare (not safe)) - (cons __tmp79806 '())))) + (cons __tmp79788 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj79327 - __tmp79805 + __obj79309 + __tmp79787 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj79327 + __obj79309 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -982,7 +982,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79327 + __obj79309 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -990,7 +990,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79327 + __obj79309 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -998,327 +998,327 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj79327 + __obj79309 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79807 |[1]#_g79808_|)) + (let ((__tmp79789 |[1]#_g79790_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79327 - __tmp79807 + __obj79309 + __tmp79789 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79809 |[1]#_g79810_|)) + (let ((__tmp79791 |[1]#_g79792_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79327 - __tmp79809 + __obj79309 + __tmp79791 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79811 |[1]#_g79812_|)) + (let ((__tmp79793 |[1]#_g79794_|)) (declare (not safe)) (##unchecked-structure-set! - __obj79327 - __tmp79811 + __obj79309 + __tmp79793 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79813 - (let ((__tmp79818 - (let ((__tmp79819 |[1]#_g79820_|)) + (let ((__tmp79795 + (let ((__tmp79800 + (let ((__tmp79801 |[1]#_g79802_|)) (declare (not safe)) - (cons 'e __tmp79819))) - (__tmp79814 - (let ((__tmp79815 - (let ((__tmp79816 |[1]#_g79817_|)) + (cons 'e __tmp79801))) + (__tmp79796 + (let ((__tmp79797 + (let ((__tmp79798 |[1]#_g79799_|)) (declare (not safe)) - (cons 'id __tmp79816)))) + (cons 'id __tmp79798)))) (declare (not safe)) - (cons __tmp79815 '())))) + (cons __tmp79797 '())))) (declare (not safe)) - (cons __tmp79818 __tmp79814)))) + (cons __tmp79800 __tmp79796)))) (declare (not safe)) (##unchecked-structure-set! - __obj79327 - __tmp79813 + __obj79309 + __tmp79795 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79821 - (let ((__tmp79826 - (let ((__tmp79827 |[1]#_g79828_|)) + (let ((__tmp79803 + (let ((__tmp79808 + (let ((__tmp79809 |[1]#_g79810_|)) (declare (not safe)) - (cons 'e __tmp79827))) - (__tmp79822 - (let ((__tmp79823 - (let ((__tmp79824 |[1]#_g79825_|)) + (cons 'e __tmp79809))) + (__tmp79804 + (let ((__tmp79805 + (let ((__tmp79806 |[1]#_g79807_|)) (declare (not safe)) - (cons 'id __tmp79824)))) + (cons 'id __tmp79806)))) (declare (not safe)) - (cons __tmp79823 '())))) + (cons __tmp79805 '())))) (declare (not safe)) - (cons __tmp79826 __tmp79822)))) + (cons __tmp79808 __tmp79804)))) (declare (not safe)) (##unchecked-structure-set! - __obj79327 - __tmp79821 + __obj79309 + __tmp79803 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79829 - (let ((__tmp79834 - (let ((__tmp79835 |[1]#_g79836_|)) + (let ((__tmp79811 + (let ((__tmp79816 + (let ((__tmp79817 |[1]#_g79818_|)) (declare (not safe)) - (cons 'e __tmp79835))) - (__tmp79830 - (let ((__tmp79831 - (let ((__tmp79832 |[1]#_g79833_|)) + (cons 'e __tmp79817))) + (__tmp79812 + (let ((__tmp79813 + (let ((__tmp79814 |[1]#_g79815_|)) (declare (not safe)) - (cons 'id __tmp79832)))) + (cons 'id __tmp79814)))) (declare (not safe)) - (cons __tmp79831 '())))) + (cons __tmp79813 '())))) (declare (not safe)) - (cons __tmp79834 __tmp79830)))) + (cons __tmp79816 __tmp79812)))) (declare (not safe)) (##unchecked-structure-set! - __obj79327 - __tmp79829 + __obj79309 + __tmp79811 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp79837 - (let ((__tmp79842 - (let ((__tmp79843 |[1]#_g79844_|)) + (let ((__tmp79819 + (let ((__tmp79824 + (let ((__tmp79825 |[1]#_g79826_|)) (declare (not safe)) - (cons 'e __tmp79843))) - (__tmp79838 - (let ((__tmp79839 - (let ((__tmp79840 |[1]#_g79841_|)) + (cons 'e __tmp79825))) + (__tmp79820 + (let ((__tmp79821 + (let ((__tmp79822 |[1]#_g79823_|)) (declare (not safe)) - (cons 'id __tmp79840)))) + (cons 'id __tmp79822)))) (declare (not safe)) - (cons __tmp79839 '())))) + (cons __tmp79821 '())))) (declare (not safe)) - (cons __tmp79842 __tmp79838)))) + (cons __tmp79824 __tmp79820)))) (declare (not safe)) (##unchecked-structure-set! - __obj79327 - __tmp79837 + __obj79309 + __tmp79819 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj79327)) + __obj79309)) (define |[:0:]#defcore-forms| - (lambda (_stx76890_) - (letrec ((_generate76893_ - (lambda (_id77257_ _compile77259_ _make77260_) - (let* ((_g7726277281_ - (lambda (_g7726377277_) + (lambda (_stx76872_) + (letrec ((_generate76875_ + (lambda (_id77239_ _compile77241_ _make77242_) + (let* ((_g7724477263_ + (lambda (_g7724577259_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7726377277_))) - (_g7726177340_ - (lambda (_g7726377285_) - (if (gx#stx-pair? _g7726377285_) - (let ((_e7726977288_ - (gx#syntax-e _g7726377285_))) - (let ((_hd7726877292_ + _g7724577259_))) + (_g7724377322_ + (lambda (_g7724577267_) + (if (gx#stx-pair? _g7724577267_) + (let ((_e7725177270_ + (gx#syntax-e _g7724577267_))) + (let ((_hd7725077274_ (let () (declare (not safe)) - (##car _e7726977288_))) - (_tl7726777295_ + (##car _e7725177270_))) + (_tl7724977277_ (let () (declare (not safe)) - (##cdr _e7726977288_)))) - (if (gx#stx-pair? _tl7726777295_) - (let ((_e7727277298_ - (gx#syntax-e _tl7726777295_))) - (let ((_hd7727177302_ + (##cdr _e7725177270_)))) + (if (gx#stx-pair? _tl7724977277_) + (let ((_e7725477280_ + (gx#syntax-e _tl7724977277_))) + (let ((_hd7725377284_ (let () (declare (not safe)) - (##car _e7727277298_))) - (_tl7727077305_ + (##car _e7725477280_))) + (_tl7725277287_ (let () (declare (not safe)) - (##cdr _e7727277298_)))) - (if (gx#stx-pair? _tl7727077305_) - (let ((_e7727577308_ + (##cdr _e7725477280_)))) + (if (gx#stx-pair? _tl7725277287_) + (let ((_e7725777290_ (gx#syntax-e - _tl7727077305_))) - (let ((_hd7727477312_ + _tl7725277287_))) + (let ((_hd7725677294_ (let () (declare (not safe)) - (##car _e7727577308_))) - (_tl7727377315_ + (##car _e7725777290_))) + (_tl7725577297_ (let () (declare (not safe)) - (##cdr _e7727577308_)))) + (##cdr _e7725777290_)))) (if (gx#stx-null? - _tl7727377315_) - ((lambda (_L77318_ + _tl7725577297_) + ((lambda (_L77300_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L77320_ - _L77321_) + _L77302_ + _L77303_) (let () - (let ((__tmp79851 + (let ((__tmp79833 (gx#datum->syntax '#f '__core-bind-syntax!)) - (__tmp79845 - (let ((__tmp79848 - (let ((__tmp79850 + (__tmp79827 + (let ((__tmp79830 + (let ((__tmp79832 (gx#datum->syntax '#f 'quote)) - (__tmp79849 + (__tmp79831 (let () (declare (not safe)) - (cons _L77321_ '())))) + (cons _L77303_ '())))) (declare (not safe)) - (cons __tmp79850 __tmp79849))) - (__tmp79846 - (let ((__tmp79847 + (cons __tmp79832 __tmp79831))) + (__tmp79828 + (let ((__tmp79829 (let () (declare (not safe)) - (cons _L77318_ '())))) + (cons _L77300_ '())))) (declare (not safe)) - (cons _L77320_ __tmp79847)))) + (cons _L77302_ __tmp79829)))) (declare (not safe)) - (cons __tmp79848 __tmp79846)))) + (cons __tmp79830 __tmp79828)))) (declare (not safe)) - (cons __tmp79851 __tmp79845)))) - _hd7727477312_ - _hd7727177302_ - _hd7726877292_) - (_g7726277281_ _g7726377285_)))) + (cons __tmp79833 __tmp79827)))) + _hd7725677294_ + _hd7725377284_ + _hd7725077274_) + (_g7724477263_ _g7724577267_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7726277281_ - _g7726377285_)))) - (_g7726277281_ _g7726377285_)))) - (_g7726277281_ _g7726377285_))))) - (_g7726177340_ - (list _id77257_ - (gx#stx-identifier _id77257_ '"__" _compile77259_) - _make77260_)))))) - (let* ((_g7689676916_ - (lambda (_g7689776912_) + (_g7724477263_ + _g7724577267_)))) + (_g7724477263_ _g7724577267_)))) + (_g7724477263_ _g7724577267_))))) + (_g7724377322_ + (list _id77239_ + (gx#stx-identifier _id77239_ '"__" _compile77241_) + _make77242_)))))) + (let* ((_g7687876898_ + (lambda (_g7687976894_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7689776912_))) - (_g7689577253_ - (lambda (_g7689776920_) - (if (gx#stx-pair? _g7689776920_) - (let ((_e7690176923_ (gx#syntax-e _g7689776920_))) - (let ((_hd7690076927_ + _g7687976894_))) + (_g7687777235_ + (lambda (_g7687976902_) + (if (gx#stx-pair? _g7687976902_) + (let ((_e7688376905_ (gx#syntax-e _g7687976902_))) + (let ((_hd7688276909_ (let () (declare (not safe)) - (##car _e7690176923_))) - (_tl7689976930_ + (##car _e7688376905_))) + (_tl7688176912_ (let () (declare (not safe)) - (##cdr _e7690176923_)))) - (if (gx#stx-pair/null? _tl7689976930_) - (let ((_g79852_ + (##cdr _e7688376905_)))) + (if (gx#stx-pair/null? _tl7688176912_) + (let ((_g79834_ (gx#syntax-split-splice - _tl7689976930_ + _tl7688176912_ '0))) (begin - (let ((_g79853_ + (let ((_g79835_ (let () (declare (not safe)) - (if (##values? _g79852_) - (##vector-length _g79852_) + (if (##values? _g79834_) + (##vector-length _g79834_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g79853_ 2))) + (##fx= _g79835_ 2))) (error "Context expects 2 values" - _g79853_))) - (let ((_target7690276933_ + _g79835_))) + (let ((_target7688476915_ (let () (declare (not safe)) - (##vector-ref _g79852_ 0))) - (_tl7690476936_ + (##vector-ref _g79834_ 0))) + (_tl7688676918_ (let () (declare (not safe)) - (##vector-ref _g79852_ 1)))) - (if (gx#stx-null? _tl7690476936_) - (letrec ((_loop7690576939_ - (lambda (_hd7690376943_ - _form7690976946_) + (##vector-ref _g79834_ 1)))) + (if (gx#stx-null? _tl7688676918_) + (letrec ((_loop7688776921_ + (lambda (_hd7688576925_ + _form7689176928_) (if (gx#stx-pair? - _hd7690376943_) - (let ((_e7690676949_ + _hd7688576925_) + (let ((_e7688876931_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd7690376943_))) - (let ((_lp-hd7690776953_ - (let () (declare (not safe)) (##car _e7690676949_))) - (_lp-tl7690876956_ + (gx#syntax-e _hd7688576925_))) + (let ((_lp-hd7688976935_ + (let () (declare (not safe)) (##car _e7688876931_))) + (_lp-tl7689076938_ (let () (declare (not safe)) - (##cdr _e7690676949_)))) - (_loop7690576939_ - _lp-tl7690876956_ + (##cdr _e7688876931_)))) + (_loop7688776921_ + _lp-tl7689076938_ (let () (declare (not safe)) - (cons _lp-hd7690776953_ _form7690976946_))))) - (let ((_form7691076959_ (reverse _form7690976946_))) - ((lambda (_L76963_) - (let _lp76981_ ((_rest76984_ - (let ((__tmp79858 - (lambda (_g7724477247_ - _g7724577250_) + (cons _lp-hd7688976935_ _form7689176928_))))) + (let ((_form7689276941_ (reverse _form7689176928_))) + ((lambda (_L76945_) + (let _lp76963_ ((_rest76966_ + (let ((__tmp79840 + (lambda (_g7722677229_ + _g7722777232_) (let () (declare (not safe)) - (cons _g7724477247_ - _g7724577250_))))) + (cons _g7722677229_ + _g7722777232_))))) (declare (not safe)) - (foldr1 __tmp79858 '() _L76963_))) - (_body76986_ '())) - (let* ((___stx7923179232_ _rest76984_) - (_g7699177038_ + (foldr1 __tmp79840 '() _L76945_))) + (_body76968_ '())) + (let* ((___stx7921379214_ _rest76966_) + (_g7697377020_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx7923179232_)))) - (let ((___kont7923479235_ - (lambda (_L77219_ _L77221_ _L77222_) - (_lp76981_ - _L77219_ - (let ((__tmp79854 - (_generate76893_ - _L77222_ - _L77221_ + ___stx7921379214_)))) + (let ((___kont7921679217_ + (lambda (_L77201_ _L77203_ _L77204_) + (_lp76963_ + _L77201_ + (let ((__tmp79836 + (_generate76875_ + _L77204_ + _L77203_ (gx#datum->syntax '#f 'make-__core-expression)))) (declare (not safe)) - (cons __tmp79854 _body76986_))))) - (___kont7923679237_ - (lambda (_L77146_ _L77148_ _L77149_) - (_lp76981_ - _L77146_ - (let ((__tmp79855 - (_generate76893_ - _L77149_ - _L77148_ + (cons __tmp79836 _body76968_))))) + (___kont7921879219_ + (lambda (_L77128_ _L77130_ _L77131_) + (_lp76963_ + _L77128_ + (let ((__tmp79837 + (_generate76875_ + _L77131_ + _L77130_ (gx#datum->syntax '#f 'make-__core-special-form)))) (declare (not safe)) - (cons __tmp79855 _body76986_))))) - (___kont7923879239_ - (lambda (_L77076_ _L77078_) - (_lp76981_ - _L77076_ - (let ((__tmp79856 - (_generate76893_ - _L77078_ + (cons __tmp79837 _body76968_))))) + (___kont7922079221_ + (lambda (_L77058_ _L77060_) + (_lp76963_ + _L77058_ + (let ((__tmp79838 + (_generate76875_ + _L77060_ (gx#datum->syntax '#f 'compile-error) @@ -1326,131 +1326,131 @@ '#f 'make-__core-form)))) (declare (not safe)) - (cons __tmp79856 _body76986_))))) - (___kont7924079241_ + (cons __tmp79838 _body76968_))))) + (___kont7922279223_ (lambda () - (let ((__tmp79857 (reverse _body76986_))) + (let ((__tmp79839 (reverse _body76968_))) (declare (not safe)) - (cons 'begin __tmp79857))))) - (let ((_g7699077049_ + (cons 'begin __tmp79839))))) + (let ((_g7697277031_ (lambda () - (if (gx#stx-null? ___stx7923179232_) - (___kont7924079241_) + (if (gx#stx-null? ___stx7921379214_) + (___kont7922279223_) (let () (declare (not safe)) - (_g7699177038_)))))) - (if (gx#stx-pair? ___stx7923179232_) - (let ((_e7699877175_ - (gx#syntax-e ___stx7923179232_))) - (let ((_tl7699677182_ + (_g7697377020_)))))) + (if (gx#stx-pair? ___stx7921379214_) + (let ((_e7698077157_ + (gx#syntax-e ___stx7921379214_))) + (let ((_tl7697877164_ (let () (declare (not safe)) - (##cdr _e7699877175_))) - (_hd7699777179_ + (##cdr _e7698077157_))) + (_hd7697977161_ (let () (declare (not safe)) - (##car _e7699877175_)))) - (if (gx#stx-pair? _hd7699777179_) - (let ((_e7700177185_ + (##car _e7698077157_)))) + (if (gx#stx-pair? _hd7697977161_) + (let ((_e7698377167_ (gx#syntax-e - _hd7699777179_))) - (let ((_tl7699977192_ + _hd7697977161_))) + (let ((_tl7698177174_ (let () (declare (not safe)) - (##cdr _e7700177185_))) - (_hd7700077189_ + (##cdr _e7698377167_))) + (_hd7698277171_ (let () (declare (not safe)) - (##car _e7700177185_)))) + (##car _e7698377167_)))) (if (gx#stx-pair? - _tl7699977192_) - (let ((_e7700477195_ + _tl7698177174_) + (let ((_e7698677177_ (gx#syntax-e - _tl7699977192_))) - (let ((_tl7700277202_ + _tl7698177174_))) + (let ((_tl7698477184_ (let () (declare (not safe)) - (##cdr _e7700477195_))) - (_hd7700377199_ + (##cdr _e7698677177_))) + (_hd7698577181_ (let () (declare (not safe)) - (##car _e7700477195_)))) + (##car _e7698677177_)))) (if (gx#stx-datum? - _hd7700377199_) - (let ((_e7700577205_ + _hd7698577181_) + (let ((_e7698777187_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd7700377199_))) + (gx#stx-e _hd7698577181_))) (if (let () (declare (not safe)) - (equal? _e7700577205_ 'expr:)) - (if (gx#stx-pair? _tl7700277202_) - (let ((_e7700877209_ - (gx#syntax-e _tl7700277202_))) - (let ((_tl7700677216_ + (equal? _e7698777187_ 'expr:)) + (if (gx#stx-pair? _tl7698477184_) + (let ((_e7699077191_ + (gx#syntax-e _tl7698477184_))) + (let ((_tl7698877198_ (let () (declare (not safe)) - (##cdr _e7700877209_))) - (_hd7700777213_ + (##cdr _e7699077191_))) + (_hd7698977195_ (let () (declare (not safe)) - (##car _e7700877209_)))) - (if (gx#stx-null? _tl7700677216_) - (___kont7923479235_ - _tl7699677182_ - _hd7700777213_ - _hd7700077189_) + (##car _e7699077191_)))) + (if (gx#stx-null? _tl7698877198_) + (___kont7921679217_ + _tl7697877164_ + _hd7698977195_ + _hd7698277171_) (let () (declare (not safe)) - (_g7699177038_))))) - (let () (declare (not safe)) (_g7699177038_))) + (_g7697377020_))))) + (let () (declare (not safe)) (_g7697377020_))) (if (let () (declare (not safe)) - (equal? _e7700577205_ 'special:)) - (if (gx#stx-pair? _tl7700277202_) - (let ((_e7702477136_ - (gx#syntax-e _tl7700277202_))) - (let ((_tl7702277143_ + (equal? _e7698777187_ 'special:)) + (if (gx#stx-pair? _tl7698477184_) + (let ((_e7700677118_ + (gx#syntax-e _tl7698477184_))) + (let ((_tl7700477125_ (let () (declare (not safe)) - (##cdr _e7702477136_))) - (_hd7702377140_ + (##cdr _e7700677118_))) + (_hd7700577122_ (let () (declare (not safe)) - (##car _e7702477136_)))) - (if (gx#stx-null? _tl7702277143_) - (___kont7923679237_ - _tl7699677182_ - _hd7702377140_ - _hd7700077189_) + (##car _e7700677118_)))) + (if (gx#stx-null? _tl7700477125_) + (___kont7921879219_ + _tl7697877164_ + _hd7700577122_ + _hd7698277171_) (let () (declare (not safe)) - (_g7699177038_))))) - (let () (declare (not safe)) (_g7699177038_))) - (let () (declare (not safe)) (_g7699177038_))))) - (let () (declare (not safe)) (_g7699177038_))))) + (_g7697377020_))))) + (let () (declare (not safe)) (_g7697377020_))) + (let () (declare (not safe)) (_g7697377020_))))) + (let () (declare (not safe)) (_g7697377020_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl7699977192_) - (___kont7923879239_ - _tl7699677182_ - _hd7700077189_) + _tl7698177174_) + (___kont7922079221_ + _tl7697877164_ + _hd7698277171_) (let () (declare (not safe)) - (_g7699177038_)))))) + (_g7697377020_)))))) (let () (declare (not safe)) - (_g7699177038_))))) + (_g7697377020_))))) (let () (declare (not safe)) - (_g7699077049_)))))))) - _form7691076959_)))))) + (_g7697277031_)))))))) + _form7689276941_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7690576939_ - _target7690276933_ + (_loop7688776921_ + _target7688476915_ '())) - (_g7689676916_ _g7689776920_))))) - (_g7689676916_ _g7689776920_)))) - (_g7689676916_ _g7689776920_))))) - (_g7689577253_ _stx76890_))))))) + (_g7687876898_ _g7687976902_))))) + (_g7687876898_ _g7687976902_)))) + (_g7687876898_ _g7687976902_))))) + (_g7687777235_ _stx76872_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit~0.scm b/src/bootstrap/gerbil/runtime/gambit~0.scm index 99e79bcef..7bf0291a8 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 1710833423) '#!void) +(begin (define gerbil/runtime/gambit::timestamp 1710943496) '#!void) diff --git a/src/bootstrap/gerbil/runtime/hash.ssi b/src/bootstrap/gerbil/runtime/hash.ssi index a79bf3812..d37d309eb 100644 --- a/src/bootstrap/gerbil/runtime/hash.ssi +++ b/src/bootstrap/gerbil/runtime/hash.ssi @@ -227,57 +227,57 @@ namespace: #f (%#define-runtime &HashTableLock-end-write! &HashTableLock-end-write!) (%#define-syntax deflocked-hash-method |[:0:]#deflocked-hash-method|) (%#define-runtime - _locked-hash-table::ref71032_ - _locked-hash-table::ref71031_) + _locked-hash-table::ref71014_ + _locked-hash-table::ref71013_) (%#define-runtime - _locked-hash-table::set!71034_ - _locked-hash-table::set!71033_) + _locked-hash-table::set!71016_ + _locked-hash-table::set!71015_) (%#define-runtime - _locked-hash-table::update!71036_ - _locked-hash-table::update!71035_) + _locked-hash-table::update!71018_ + _locked-hash-table::update!71017_) (%#define-runtime - _locked-hash-table::delete!71038_ - _locked-hash-table::delete!71037_) + _locked-hash-table::delete!71020_ + _locked-hash-table::delete!71019_) (%#define-runtime - _locked-hash-table::for-each71040_ - _locked-hash-table::for-each71039_) + _locked-hash-table::for-each71022_ + _locked-hash-table::for-each71021_) (%#define-runtime - _locked-hash-table::length71042_ - _locked-hash-table::length71041_) + _locked-hash-table::length71024_ + _locked-hash-table::length71023_) (%#define-runtime - _locked-hash-table::copy71044_ - _locked-hash-table::copy71043_) + _locked-hash-table::copy71026_ + _locked-hash-table::copy71025_) (%#define-runtime - _locked-hash-table::clear!71046_ - _locked-hash-table::clear!71045_) + _locked-hash-table::clear!71028_ + _locked-hash-table::clear!71027_) (%#define-syntax defchecked-hash-method |[:0:]#defchecked-hash-method|) (%#define-syntax check-hash-arg |[:0:]#check-hash-arg|) (%#define-runtime - _checked-hash-table::ref71324_ - _checked-hash-table::ref71323_) + _checked-hash-table::ref71306_ + _checked-hash-table::ref71305_) (%#define-runtime - _checked-hash-table::set!71326_ - _checked-hash-table::set!71325_) + _checked-hash-table::set!71308_ + _checked-hash-table::set!71307_) (%#define-runtime - _checked-hash-table::update!71328_ - _checked-hash-table::update!71327_) + _checked-hash-table::update!71310_ + _checked-hash-table::update!71309_) (%#define-runtime - _checked-hash-table::delete!71330_ - _checked-hash-table::delete!71329_) + _checked-hash-table::delete!71312_ + _checked-hash-table::delete!71311_) (%#define-runtime - _checked-hash-table::for-each71332_ - _checked-hash-table::for-each71331_) + _checked-hash-table::for-each71314_ + _checked-hash-table::for-each71313_) (%#define-runtime - _checked-hash-table::length71334_ - _checked-hash-table::length71333_) + _checked-hash-table::length71316_ + _checked-hash-table::length71315_) (%#define-runtime - _checked-hash-table::copy71336_ - _checked-hash-table::copy71335_) + _checked-hash-table::copy71318_ + _checked-hash-table::copy71317_) (%#define-runtime - _checked-hash-table::clear!71338_ - _checked-hash-table::clear!71337_) + _checked-hash-table::clear!71320_ + _checked-hash-table::clear!71319_) (%#define-runtime make-generic-hash-table make-generic-hash-table) (%#begin (%#define-runtime make-hash-table__% make-hash-table__%) (%#define-runtime make-hash-table__@ make-hash-table__@) diff --git a/src/bootstrap/gerbil/runtime/hash.ssxi.ss b/src/bootstrap/gerbil/runtime/hash.ssxi.ss index 21e72b9c7..770a67934 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 - ((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_) - (copy . _locked-hash-table::copy71043_) - (clear! . _locked-hash-table::clear!71045_)))) + ((copy . _locked-hash-table::copy71025_) + (clear! . _locked-hash-table::clear!71027_) + (for-each . _locked-hash-table::for-each71021_) + (set! . _locked-hash-table::set!71015_) + (delete! . _locked-hash-table::delete!71019_) + (length . _locked-hash-table::length71023_) + (update! . _locked-hash-table::update!71017_) + (ref . _locked-hash-table::ref71013_)))) (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 - ((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_) - (copy . _checked-hash-table::copy71335_) - (clear! . _checked-hash-table::clear!71337_)))) + ((copy . _checked-hash-table::copy71317_) + (clear! . _checked-hash-table::clear!71319_) + (for-each . _checked-hash-table::for-each71313_) + (set! . _checked-hash-table::set!71307_) + (delete! . _checked-hash-table::delete!71311_) + (length . _checked-hash-table::length71315_) + (update! . _checked-hash-table::update!71309_) + (ref . _checked-hash-table::ref71305_)))) (declare-type checked-hash-table? (@predicate checked-hash-table::t)) (declare-type make-checked-hash-table (@constructor checked-hash-table::t)) (declare-type @@ -392,22 +392,22 @@ package: gerbil/runtime (declare-type &HashTableLock-end-read! (@lambda 1 #f)) (declare-type &HashTableLock-begin-write! (@lambda 1 #f)) (declare-type &HashTableLock-end-write! (@lambda 1 #f)) - (declare-type _locked-hash-table::ref71031_ (@lambda 3 #f)) - (declare-type _locked-hash-table::set!71033_ (@lambda 3 #f)) - (declare-type _locked-hash-table::update!71035_ (@lambda 4 #f)) - (declare-type _locked-hash-table::delete!71037_ (@lambda 2 #f)) - (declare-type _locked-hash-table::for-each71039_ (@lambda 2 #f)) - (declare-type _locked-hash-table::length71041_ (@lambda 1 #f)) - (declare-type _locked-hash-table::copy71043_ (@lambda 1 #f)) - (declare-type _locked-hash-table::clear!71045_ (@lambda 1 #f)) - (declare-type _checked-hash-table::ref71323_ (@lambda 3 #f)) - (declare-type _checked-hash-table::set!71325_ (@lambda 3 #f)) - (declare-type _checked-hash-table::update!71327_ (@lambda 4 #f)) - (declare-type _checked-hash-table::delete!71329_ (@lambda 2 #f)) - (declare-type _checked-hash-table::for-each71331_ (@lambda 2 #f)) - (declare-type _checked-hash-table::length71333_ (@lambda 1 #f)) - (declare-type _checked-hash-table::copy71335_ (@lambda 1 #f)) - (declare-type _checked-hash-table::clear!71337_ (@lambda 1 #f)) + (declare-type _locked-hash-table::ref71013_ (@lambda 3 #f)) + (declare-type _locked-hash-table::set!71015_ (@lambda 3 #f)) + (declare-type _locked-hash-table::update!71017_ (@lambda 4 #f)) + (declare-type _locked-hash-table::delete!71019_ (@lambda 2 #f)) + (declare-type _locked-hash-table::for-each71021_ (@lambda 2 #f)) + (declare-type _locked-hash-table::length71023_ (@lambda 1 #f)) + (declare-type _locked-hash-table::copy71025_ (@lambda 1 #f)) + (declare-type _locked-hash-table::clear!71027_ (@lambda 1 #f)) + (declare-type _checked-hash-table::ref71305_ (@lambda 3 #f)) + (declare-type _checked-hash-table::set!71307_ (@lambda 3 #f)) + (declare-type _checked-hash-table::update!71309_ (@lambda 4 #f)) + (declare-type _checked-hash-table::delete!71311_ (@lambda 2 #f)) + (declare-type _checked-hash-table::for-each71313_ (@lambda 2 #f)) + (declare-type _checked-hash-table::length71315_ (@lambda 1 #f)) + (declare-type _checked-hash-table::copy71317_ (@lambda 1 #f)) + (declare-type _checked-hash-table::clear!71319_ (@lambda 1 #f)) (declare-type make-generic-hash-table (@lambda 6 #f)) (declare-type make-hash-table__% (@lambda 9 #f)) (declare-type make-hash-table__@ (@lambda (1) #f)) diff --git a/src/bootstrap/gerbil/runtime/hash~0.scm b/src/bootstrap/gerbil/runtime/hash~0.scm index 18376a003..a3612bbbe 100644 --- a/src/bootstrap/gerbil/runtime/hash~0.scm +++ b/src/bootstrap/gerbil/runtime/hash~0.scm @@ -1,22 +1,22 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/hash::timestamp 1710833424) + (define gerbil/runtime/hash::timestamp 1710943497) (begin (define UnboundKeyError::t - (let ((__tmp74323 (list Error::t))) + (let ((__tmp74305 (list Error::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/hash#UnboundKeyError::t 'UnboundKeyError - __tmp74323 + __tmp74305 '() '() ':init!))) (define UnboundKeyError? (let () (declare (not safe)) (make-class-predicate UnboundKeyError::t))) (define make-UnboundKeyError - (lambda _$args74306_ - (apply make-instance UnboundKeyError::t _$args74306_))) + (lambda _$args74288_ + (apply make-instance UnboundKeyError::t _$args74288_))) (define UnboundKeyError-message (let () (declare (not safe)) @@ -86,39 +86,39 @@ (declare (not safe)) (bind-method!__% UnboundKeyError::t ':init! UnboundKeyError:::init! '#f)) (define raise-unbound-key-error - (lambda (_where74180_ _message74181_ . _irritants74182_) - (raise (let ((__obj74320 + (lambda (_where74162_ _message74163_ . _irritants74164_) + (raise (let ((__obj74302 (let () (declare (not safe)) (##structure UnboundKeyError::t '#f '#f '#f '#f)))) (UnboundKeyError:::init! - __obj74320 - _message74181_ + __obj74302 + _message74163_ 'where: - _where74180_ + _where74162_ 'irritants: - _irritants74182_) - __obj74320)))) + _irritants74164_) + __obj74302)))) (define unbound-key-error? UnboundKeyError?) (define HashTable::t - (let ((__tmp74328 (list interface-instance::t)) - (__tmp74324 - (let ((__tmp74327 + (let ((__tmp74310 (list interface-instance::t)) + (__tmp74306 + (let ((__tmp74309 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp74325 - (let ((__tmp74326 + (__tmp74307 + (let ((__tmp74308 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp74326 '())))) + (cons __tmp74308 '())))) (declare (not safe)) - (cons __tmp74327 __tmp74325)))) + (cons __tmp74309 __tmp74307)))) (declare (not safe)) (make-class-type 'gerbil#HashTable::t 'HashTable - __tmp74328 + __tmp74310 '(ref set! update! delete! for-each length copy clear!) - __tmp74324 + __tmp74306 '#f))) (define HashTable? (let () (declare (not safe)) (make-class-predicate HashTable::t))) @@ -258,24 +258,24 @@ HashTable::t '(ref set! update! delete! for-each length copy clear!)))) (define HashTableLock::t - (let ((__tmp74333 (list interface-instance::t)) - (__tmp74329 - (let ((__tmp74332 + (let ((__tmp74315 (list interface-instance::t)) + (__tmp74311 + (let ((__tmp74314 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp74330 - (let ((__tmp74331 + (__tmp74312 + (let ((__tmp74313 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp74331 '())))) + (cons __tmp74313 '())))) (declare (not safe)) - (cons __tmp74332 __tmp74330)))) + (cons __tmp74314 __tmp74312)))) (declare (not safe)) (make-class-type 'gerbil#HashTableLock::t 'HashTableLock - __tmp74333 + __tmp74315 '(begin-read! end-read! begin-write! end-write!) - __tmp74329 + __tmp74311 '#f))) (define HashTableLock? (let () (declare (not safe)) (make-class-predicate HashTableLock::t))) @@ -399,210 +399,210 @@ (declare (not safe)) (bind-method!__0 __gc-table::t 'clear! gc-table-clear!)) (define gambit-table-update! - (lambda (_table74173_ _key74174_ _update74175_ _default74176_) - (let ((_result74178_ - (table-ref _table74173_ _key74174_ _default74176_))) + (lambda (_table74155_ _key74156_ _update74157_ _default74158_) + (let ((_result74160_ + (table-ref _table74155_ _key74156_ _default74158_))) (table-set! - _table74173_ - _key74174_ - (_update74175_ _default74176_))))) + _table74155_ + _key74156_ + (_update74157_ _default74158_))))) (define gambit-table-for-each - (lambda (_table74170_ _proc74171_) - (table-for-each _proc74171_ _table74170_))) + (lambda (_table74152_ _proc74153_) + (table-for-each _proc74153_ _table74152_))) (define gambit-table-clear! - (lambda (_table74168_) + (lambda (_table74150_) (let () (declare (not safe)) - (##unchecked-structure-set! _table74168_ '0 '5 '#f '#f)))) - (let ((__tmp74334 (macro-type-table))) + (##unchecked-structure-set! _table74150_ '0 '5 '#f '#f)))) + (let ((__tmp74316 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp74334 'ref table-ref)) - (let ((__tmp74335 (macro-type-table))) + (bind-method!__0 __tmp74316 'ref table-ref)) + (let ((__tmp74317 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp74335 'set! table-set!)) - (let ((__tmp74336 (macro-type-table))) + (bind-method!__0 __tmp74317 'set! table-set!)) + (let ((__tmp74318 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp74336 'update! gambit-table-update!)) - (let ((__tmp74337 (macro-type-table))) + (bind-method!__0 __tmp74318 'update! gambit-table-update!)) + (let ((__tmp74319 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp74337 'delete! table-set!)) - (let ((__tmp74338 (macro-type-table))) + (bind-method!__0 __tmp74319 'delete! table-set!)) + (let ((__tmp74320 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp74338 'for-each gambit-table-for-each)) - (let ((__tmp74339 (macro-type-table))) + (bind-method!__0 __tmp74320 'for-each gambit-table-for-each)) + (let ((__tmp74321 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp74339 'length table-length)) - (let ((__tmp74340 (macro-type-table))) + (bind-method!__0 __tmp74321 'length table-length)) + (let ((__tmp74322 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp74340 'copy table-copy)) - (let ((__tmp74341 (macro-type-table))) + (bind-method!__0 __tmp74322 'copy table-copy)) + (let ((__tmp74323 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp74341 'clear! gambit-table-clear!)) + (bind-method!__0 __tmp74323 'clear! gambit-table-clear!)) (define hash-table::t - (let* ((_slots74150_ '(table count free hash test seed)) - (_slot-vector74152_ + (let* ((_slots74132_ '(table count free hash test seed)) + (_slot-vector74134_ (list->vector - (let () (declare (not safe)) (cons '#f _slots74150_)))) - (_slot-table74159_ - (let ((_slot-table74154_ + (let () (declare (not safe)) (cons '#f _slots74132_)))) + (_slot-table74141_ + (let ((_slot-table74136_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (for-each - (lambda (_slot74156_ _field74157_) + (lambda (_slot74138_ _field74139_) (let () (declare (not safe)) (symbolic-table-set! - _slot-table74154_ - _slot74156_ - _field74157_)) - (let ((__tmp74342 (symbol->keyword _slot74156_))) + _slot-table74136_ + _slot74138_ + _field74139_)) + (let ((__tmp74324 (symbol->keyword _slot74138_))) (declare (not safe)) (symbolic-table-set! - _slot-table74154_ - __tmp74342 - _field74157_))) - _slots74150_ - (iota (length _slots74150_) '1)) - _slot-table74154_)) - (_flags74161_ + _slot-table74136_ + __tmp74324 + _field74139_))) + _slots74132_ + (iota (length _slots74132_) '1)) + _slot-table74136_)) + (_flags74143_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_fields74163_ '#()) - (_properties74165_ - (let ((__tmp74345 - (let ((__tmp74346 + (_fields74145_ '#()) + (_properties74147_ + (let ((__tmp74327 + (let ((__tmp74328 (let () (declare (not safe)) - (foldr1 cons '() _slots74150_)))) + (foldr1 cons '() _slots74132_)))) (declare (not safe)) - (cons 'direct-slots: __tmp74346))) - (__tmp74343 - (let ((__tmp74344 + (cons 'direct-slots: __tmp74328))) + (__tmp74325 + (let ((__tmp74326 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp74344 '())))) + (cons __tmp74326 '())))) (declare (not safe)) - (cons __tmp74345 __tmp74343)))) - (let ((__tmp74347 - (let ((__tmp74348 + (cons __tmp74327 __tmp74325)))) + (let ((__tmp74329 + (let ((__tmp74330 (let () (declare (not safe)) (cons t::t '())))) (declare (not safe)) - (cons object::t __tmp74348)))) + (cons object::t __tmp74330)))) (declare (not safe)) (##structure class::t 'gerbil#hash-table::t 'hash-table - _flags74161_ + _flags74143_ __table::t - _fields74163_ - __tmp74347 - _slot-vector74152_ - _slot-table74159_ - _properties74165_ + _fields74145_ + __tmp74329 + _slot-vector74134_ + _slot-table74141_ + _properties74147_ '#f '#f)))) (define gc-hash-table::t - (let* ((_slots74132_ '(gcht immediate)) - (_slot-vector74134_ + (let* ((_slots74114_ '(gcht immediate)) + (_slot-vector74116_ (list->vector - (let () (declare (not safe)) (cons '#f _slots74132_)))) - (_slot-table74141_ - (let ((_slot-table74136_ + (let () (declare (not safe)) (cons '#f _slots74114_)))) + (_slot-table74123_ + (let ((_slot-table74118_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (for-each - (lambda (_slot74138_ _field74139_) + (lambda (_slot74120_ _field74121_) (let () (declare (not safe)) (symbolic-table-set! - _slot-table74136_ - _slot74138_ - _field74139_)) - (let ((__tmp74349 (symbol->keyword _slot74138_))) + _slot-table74118_ + _slot74120_ + _field74121_)) + (let ((__tmp74331 (symbol->keyword _slot74120_))) (declare (not safe)) (symbolic-table-set! - _slot-table74136_ - __tmp74349 - _field74139_))) - _slots74132_ - (iota (length _slots74132_) '1)) - _slot-table74136_)) - (_flags74143_ + _slot-table74118_ + __tmp74331 + _field74121_))) + _slots74114_ + (iota (length _slots74114_) '1)) + _slot-table74118_)) + (_flags74125_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_fields74145_ '#()) - (_properties74147_ - (let ((__tmp74352 - (let ((__tmp74353 + (_fields74127_ '#()) + (_properties74129_ + (let ((__tmp74334 + (let ((__tmp74335 (let () (declare (not safe)) - (foldr1 cons '() _slots74132_)))) + (foldr1 cons '() _slots74114_)))) (declare (not safe)) - (cons 'direct-slots: __tmp74353))) - (__tmp74350 - (let ((__tmp74351 + (cons 'direct-slots: __tmp74335))) + (__tmp74332 + (let ((__tmp74333 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp74351 '())))) + (cons __tmp74333 '())))) (declare (not safe)) - (cons __tmp74352 __tmp74350)))) - (let ((__tmp74354 - (let ((__tmp74355 + (cons __tmp74334 __tmp74332)))) + (let ((__tmp74336 + (let ((__tmp74337 (let () (declare (not safe)) (cons t::t '())))) (declare (not safe)) - (cons object::t __tmp74355)))) + (cons object::t __tmp74337)))) (declare (not safe)) (##structure class::t 'gerbil#gc-hash-table::t 'hash-table - _flags74143_ + _flags74125_ __gc-table::t - _fields74145_ - __tmp74354 - _slot-vector74134_ - _slot-table74141_ - _properties74147_ + _fields74127_ + __tmp74336 + _slot-vector74116_ + _slot-table74123_ + _properties74129_ '#f '#f)))) (define locked-hash-table::t - (let ((__tmp74360 (list)) - (__tmp74356 - (let ((__tmp74359 + (let ((__tmp74342 (list)) + (__tmp74338 + (let ((__tmp74341 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp74357 - (let ((__tmp74358 + (__tmp74339 + (let ((__tmp74340 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp74358 '())))) + (cons __tmp74340 '())))) (declare (not safe)) - (cons __tmp74359 __tmp74357)))) + (cons __tmp74341 __tmp74339)))) (declare (not safe)) (make-class-type 'gerbil/runtime/hash#locked-hash-table::t 'locked-hash-table - __tmp74360 + __tmp74342 '(table lock) - __tmp74356 + __tmp74338 '#f))) (define locked-hash-table? (let () (declare (not safe)) (make-class-predicate locked-hash-table::t))) (define make-locked-hash-table - (lambda _$args74129_ - (apply make-instance locked-hash-table::t _$args74129_))) + (lambda _$args74111_ + (apply make-instance locked-hash-table::t _$args74111_))) (define locked-hash-table-table (let () (declare (not safe)) @@ -636,32 +636,32 @@ (declare (not safe)) (make-class-slot-unchecked-mutator locked-hash-table::t 'lock))) (define checked-hash-table::t - (let ((__tmp74365 (list)) - (__tmp74361 - (let ((__tmp74364 + (let ((__tmp74347 (list)) + (__tmp74343 + (let ((__tmp74346 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp74362 - (let ((__tmp74363 + (__tmp74344 + (let ((__tmp74345 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp74363 '())))) + (cons __tmp74345 '())))) (declare (not safe)) - (cons __tmp74364 __tmp74362)))) + (cons __tmp74346 __tmp74344)))) (declare (not safe)) (make-class-type 'gerbil/runtime/hash#checked-hash-table::t 'checked-hash-table - __tmp74365 + __tmp74347 '(table key-check) - __tmp74361 + __tmp74343 '#f))) (define checked-hash-table? (let () (declare (not safe)) (make-class-predicate checked-hash-table::t))) (define make-checked-hash-table - (lambda _$args74126_ - (apply make-instance checked-hash-table::t _$args74126_))) + (lambda _$args74108_ + (apply make-instance checked-hash-table::t _$args74108_))) (define checked-hash-table-table (let () (declare (not safe)) @@ -695,111 +695,111 @@ (declare (not safe)) (make-class-slot-unchecked-mutator checked-hash-table::t 'key-check))) (define eq-hash-table::t - (let ((__tmp74368 (list hash-table::t)) - (__tmp74366 - (let ((__tmp74367 + (let ((__tmp74350 (list hash-table::t)) + (__tmp74348 + (let ((__tmp74349 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp74367 '())))) + (cons __tmp74349 '())))) (declare (not safe)) (make-class-type 'gerbil#eq-hash-table 'hash-table - __tmp74368 + __tmp74350 '() - __tmp74366 + __tmp74348 '#f))) (define eq-hash-table? (let () (declare (not safe)) (make-class-predicate eq-hash-table::t))) (define make-eq-hash-table - (lambda _$args74123_ - (apply make-instance eq-hash-table::t _$args74123_))) + (lambda _$args74105_ + (apply make-instance eq-hash-table::t _$args74105_))) (define eqv-hash-table::t - (let ((__tmp74371 (list hash-table::t)) - (__tmp74369 - (let ((__tmp74370 + (let ((__tmp74353 (list hash-table::t)) + (__tmp74351 + (let ((__tmp74352 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp74370 '())))) + (cons __tmp74352 '())))) (declare (not safe)) (make-class-type 'gerbil#eqv-hash-table 'hash-table - __tmp74371 + __tmp74353 '() - __tmp74369 + __tmp74351 '#f))) (define eqv-hash-table? (let () (declare (not safe)) (make-class-predicate eqv-hash-table::t))) (define make-eqv-hash-table - (lambda _$args74120_ - (apply make-instance eqv-hash-table::t _$args74120_))) + (lambda _$args74102_ + (apply make-instance eqv-hash-table::t _$args74102_))) (define symbol-hash-table::t - (let ((__tmp74374 (list hash-table::t)) - (__tmp74372 - (let ((__tmp74373 + (let ((__tmp74356 (list hash-table::t)) + (__tmp74354 + (let ((__tmp74355 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp74373 '())))) + (cons __tmp74355 '())))) (declare (not safe)) (make-class-type 'gerbil#symbol-hash-table 'hash-table - __tmp74374 + __tmp74356 '() - __tmp74372 + __tmp74354 '#f))) (define symbol-hash-table? (let () (declare (not safe)) (make-class-predicate symbol-hash-table::t))) (define make-symbol-hash-table - (lambda _$args74117_ - (apply make-instance symbol-hash-table::t _$args74117_))) + (lambda _$args74099_ + (apply make-instance symbol-hash-table::t _$args74099_))) (define string-hash-table::t - (let ((__tmp74377 (list hash-table::t)) - (__tmp74375 - (let ((__tmp74376 + (let ((__tmp74359 (list hash-table::t)) + (__tmp74357 + (let ((__tmp74358 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp74376 '())))) + (cons __tmp74358 '())))) (declare (not safe)) (make-class-type 'gerbil#string-hash-table 'hash-table - __tmp74377 + __tmp74359 '() - __tmp74375 + __tmp74357 '#f))) (define string-hash-table? (let () (declare (not safe)) (make-class-predicate string-hash-table::t))) (define make-string-hash-table - (lambda _$args74114_ - (apply make-instance string-hash-table::t _$args74114_))) + (lambda _$args74096_ + (apply make-instance string-hash-table::t _$args74096_))) (define immediate-hash-table::t - (let ((__tmp74380 (list hash-table::t)) - (__tmp74378 - (let ((__tmp74379 + (let ((__tmp74362 (list hash-table::t)) + (__tmp74360 + (let ((__tmp74361 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp74379 '())))) + (cons __tmp74361 '())))) (declare (not safe)) (make-class-type 'gerbil#immediate-hash-table::t 'hash-table - __tmp74380 + __tmp74362 '() - __tmp74378 + __tmp74360 '#f))) (define immediate-hash-table? (let () (declare (not safe)) (make-class-predicate immediate-hash-table::t))) (define make-immediate-hash-table - (lambda _$args74111_ - (apply make-instance immediate-hash-table::t _$args74111_))) + (lambda _$args74093_ + (apply make-instance immediate-hash-table::t _$args74093_))) (let () (declare (not safe)) (bind-method!__0 hash-table::t 'ref raw-table-ref)) @@ -915,262 +915,262 @@ (declare (not safe)) (bind-method!__0 gc-hash-table::t 'clear! gc-table-clear!)) (define hash-table? - (lambda (_obj74109_) - (if (let () (declare (not safe)) (##structure? _obj74109_)) - (let ((__tmp74381 + (lambda (_obj74091_) + (if (let () (declare (not safe)) (##structure? _obj74091_)) + (let ((__tmp74363 (let () (declare (not safe)) - (##structure-type _obj74109_)))) + (##structure-type _obj74091_)))) (declare (not safe)) - (eq? __tmp74381 HashTable::t)) + (eq? __tmp74363 HashTable::t)) '#f))) (define is-hash-table? - (lambda (_obj74104_) - (let ((_$e74106_ - (if (let () (declare (not safe)) (##structure? _obj74104_)) - (let ((__tmp74382 + (lambda (_obj74086_) + (let ((_$e74088_ + (if (let () (declare (not safe)) (##structure? _obj74086_)) + (let ((__tmp74364 (let () (declare (not safe)) - (##structure-type _obj74104_)))) + (##structure-type _obj74086_)))) (declare (not safe)) - (eq? __tmp74382 HashTable::t)) + (eq? __tmp74364 HashTable::t)) '#f))) - (if _$e74106_ - _$e74106_ + (if _$e74088_ + _$e74088_ (let () (declare (not safe)) - (satisfies? HashTable::interface _obj74104_)))))) + (satisfies? HashTable::interface _obj74086_)))))) (define HashTable-ref - (lambda (_h74098_ _key74099_ _default74100_) - (let ((_h74102_ - (if (and (let () (declare (not safe)) (##structure? _h74098_)) - (let ((__tmp74383 + (lambda (_h74080_ _key74081_ _default74082_) + (let ((_h74084_ + (if (and (let () (declare (not safe)) (##structure? _h74080_)) + (let ((__tmp74365 (let () (declare (not safe)) - (##structure-type _h74098_)))) + (##structure-type _h74080_)))) (declare (not safe)) - (eq? __tmp74383 HashTable::t))) - _h74098_ + (eq? __tmp74365 HashTable::t))) + _h74080_ (let () (declare (not safe)) - (cast HashTable::interface _h74098_))))) + (cast HashTable::interface _h74080_))))) (declare (not safe)) - (&HashTable-ref _h74102_ _key74099_ _default74100_)))) + (&HashTable-ref _h74084_ _key74081_ _default74082_)))) (define &HashTable-ref - (lambda (_h74093_ _key74094_ _default74095_) + (lambda (_h74075_ _key74076_ _default74077_) (declare (not safe)) - ((##unchecked-structure-ref _h74093_ '2 HashTable::t '#f) - (##unchecked-structure-ref _h74093_ '1 interface-instance::t '#f) - _key74094_ - _default74095_))) + ((##unchecked-structure-ref _h74075_ '2 HashTable::t '#f) + (##unchecked-structure-ref _h74075_ '1 interface-instance::t '#f) + _key74076_ + _default74077_))) (define HashTable-set! - (lambda (_h74087_ _key74088_ _value74089_) - (let ((_h74091_ - (if (and (let () (declare (not safe)) (##structure? _h74087_)) - (let ((__tmp74384 + (lambda (_h74069_ _key74070_ _value74071_) + (let ((_h74073_ + (if (and (let () (declare (not safe)) (##structure? _h74069_)) + (let ((__tmp74366 (let () (declare (not safe)) - (##structure-type _h74087_)))) + (##structure-type _h74069_)))) (declare (not safe)) - (eq? __tmp74384 HashTable::t))) - _h74087_ + (eq? __tmp74366 HashTable::t))) + _h74069_ (let () (declare (not safe)) - (cast HashTable::interface _h74087_))))) + (cast HashTable::interface _h74069_))))) (declare (not safe)) - (&HashTable-set! _h74091_ _key74088_ _value74089_)))) + (&HashTable-set! _h74073_ _key74070_ _value74071_)))) (define &HashTable-set! - (lambda (_h74082_ _key74083_ _value74084_) + (lambda (_h74064_ _key74065_ _value74066_) (declare (not safe)) (begin - ((##unchecked-structure-ref _h74082_ '3 HashTable::t '#f) - (##unchecked-structure-ref _h74082_ '1 interface-instance::t '#f) - _key74083_ - _value74084_) + ((##unchecked-structure-ref _h74064_ '3 HashTable::t '#f) + (##unchecked-structure-ref _h74064_ '1 interface-instance::t '#f) + _key74065_ + _value74066_) '#!void))) (define HashTable-update! - (lambda (_h74075_ _key74076_ _update74077_ _default74078_) - (let ((_h74080_ - (if (and (let () (declare (not safe)) (##structure? _h74075_)) - (let ((__tmp74385 + (lambda (_h74057_ _key74058_ _update74059_ _default74060_) + (let ((_h74062_ + (if (and (let () (declare (not safe)) (##structure? _h74057_)) + (let ((__tmp74367 (let () (declare (not safe)) - (##structure-type _h74075_)))) + (##structure-type _h74057_)))) (declare (not safe)) - (eq? __tmp74385 HashTable::t))) - _h74075_ + (eq? __tmp74367 HashTable::t))) + _h74057_ (let () (declare (not safe)) - (cast HashTable::interface _h74075_))))) + (cast HashTable::interface _h74057_))))) (declare (not safe)) (&HashTable-update! - _h74080_ - _key74076_ - _update74077_ - _default74078_)))) + _h74062_ + _key74058_ + _update74059_ + _default74060_)))) (define &HashTable-update! - (lambda (_h74069_ _key74070_ _update74071_ _default74072_) + (lambda (_h74051_ _key74052_ _update74053_ _default74054_) (declare (not safe)) (begin - ((##unchecked-structure-ref _h74069_ '4 HashTable::t '#f) - (##unchecked-structure-ref _h74069_ '1 interface-instance::t '#f) - _key74070_ - _update74071_ - _default74072_) + ((##unchecked-structure-ref _h74051_ '4 HashTable::t '#f) + (##unchecked-structure-ref _h74051_ '1 interface-instance::t '#f) + _key74052_ + _update74053_ + _default74054_) '#!void))) (define HashTable-delete! - (lambda (_h74064_ _key74065_) - (let ((_h74067_ - (if (and (let () (declare (not safe)) (##structure? _h74064_)) - (let ((__tmp74386 + (lambda (_h74046_ _key74047_) + (let ((_h74049_ + (if (and (let () (declare (not safe)) (##structure? _h74046_)) + (let ((__tmp74368 (let () (declare (not safe)) - (##structure-type _h74064_)))) + (##structure-type _h74046_)))) (declare (not safe)) - (eq? __tmp74386 HashTable::t))) - _h74064_ + (eq? __tmp74368 HashTable::t))) + _h74046_ (let () (declare (not safe)) - (cast HashTable::interface _h74064_))))) + (cast HashTable::interface _h74046_))))) (declare (not safe)) - (&HashTable-delete! _h74067_ _key74065_)))) + (&HashTable-delete! _h74049_ _key74047_)))) (define &HashTable-delete! - (lambda (_h74060_ _key74061_) + (lambda (_h74042_ _key74043_) (declare (not safe)) (begin - ((##unchecked-structure-ref _h74060_ '5 HashTable::t '#f) - (##unchecked-structure-ref _h74060_ '1 interface-instance::t '#f) - _key74061_) + ((##unchecked-structure-ref _h74042_ '5 HashTable::t '#f) + (##unchecked-structure-ref _h74042_ '1 interface-instance::t '#f) + _key74043_) '#!void))) (define HashTable-for-each - (lambda (_h74055_ _proc74056_) - (let ((_h74058_ - (if (and (let () (declare (not safe)) (##structure? _h74055_)) - (let ((__tmp74387 + (lambda (_h74037_ _proc74038_) + (let ((_h74040_ + (if (and (let () (declare (not safe)) (##structure? _h74037_)) + (let ((__tmp74369 (let () (declare (not safe)) - (##structure-type _h74055_)))) + (##structure-type _h74037_)))) (declare (not safe)) - (eq? __tmp74387 HashTable::t))) - _h74055_ + (eq? __tmp74369 HashTable::t))) + _h74037_ (let () (declare (not safe)) - (cast HashTable::interface _h74055_))))) + (cast HashTable::interface _h74037_))))) (declare (not safe)) - (&HashTable-for-each _h74058_ _proc74056_)))) + (&HashTable-for-each _h74040_ _proc74038_)))) (define &HashTable-for-each - (lambda (_h74051_ _proc74052_) + (lambda (_h74033_ _proc74034_) (declare (not safe)) (begin - ((##unchecked-structure-ref _h74051_ '6 HashTable::t '#f) - (##unchecked-structure-ref _h74051_ '1 interface-instance::t '#f) - _proc74052_) + ((##unchecked-structure-ref _h74033_ '6 HashTable::t '#f) + (##unchecked-structure-ref _h74033_ '1 interface-instance::t '#f) + _proc74034_) '#!void))) (define HashTable-length - (lambda (_h74047_) - (let ((_h74049_ - (if (and (let () (declare (not safe)) (##structure? _h74047_)) - (let ((__tmp74388 + (lambda (_h74029_) + (let ((_h74031_ + (if (and (let () (declare (not safe)) (##structure? _h74029_)) + (let ((__tmp74370 (let () (declare (not safe)) - (##structure-type _h74047_)))) + (##structure-type _h74029_)))) (declare (not safe)) - (eq? __tmp74388 HashTable::t))) - _h74047_ + (eq? __tmp74370 HashTable::t))) + _h74029_ (let () (declare (not safe)) - (cast HashTable::interface _h74047_))))) + (cast HashTable::interface _h74029_))))) (declare (not safe)) - (&HashTable-length _h74049_)))) + (&HashTable-length _h74031_)))) (define &HashTable-length - (lambda (_h74044_) + (lambda (_h74026_) (declare (not safe)) - ((##unchecked-structure-ref _h74044_ '7 HashTable::t '#f) - (##unchecked-structure-ref _h74044_ '1 interface-instance::t '#f)))) + ((##unchecked-structure-ref _h74026_ '7 HashTable::t '#f) + (##unchecked-structure-ref _h74026_ '1 interface-instance::t '#f)))) (define HashTable-copy - (lambda (_h74040_) - (let ((_h74042_ - (if (and (let () (declare (not safe)) (##structure? _h74040_)) - (let ((__tmp74389 + (lambda (_h74022_) + (let ((_h74024_ + (if (and (let () (declare (not safe)) (##structure? _h74022_)) + (let ((__tmp74371 (let () (declare (not safe)) - (##structure-type _h74040_)))) + (##structure-type _h74022_)))) (declare (not safe)) - (eq? __tmp74389 HashTable::t))) - _h74040_ + (eq? __tmp74371 HashTable::t))) + _h74022_ (let () (declare (not safe)) - (cast HashTable::interface _h74040_))))) + (cast HashTable::interface _h74022_))))) (declare (not safe)) - (&HashTable-copy _h74042_)))) + (&HashTable-copy _h74024_)))) (define &HashTable-copy - (lambda (_h74037_) + (lambda (_h74019_) (declare (not safe)) (cast HashTable::interface - ((##unchecked-structure-ref _h74037_ '8 HashTable::t '#f) + ((##unchecked-structure-ref _h74019_ '8 HashTable::t '#f) (##unchecked-structure-ref - _h74037_ + _h74019_ '1 interface-instance::t '#f))))) (define HashTable-clear! - (lambda (_h74033_) - (let ((_h74035_ - (if (and (let () (declare (not safe)) (##structure? _h74033_)) - (let ((__tmp74390 + (lambda (_h74015_) + (let ((_h74017_ + (if (and (let () (declare (not safe)) (##structure? _h74015_)) + (let ((__tmp74372 (let () (declare (not safe)) - (##structure-type _h74033_)))) + (##structure-type _h74015_)))) (declare (not safe)) - (eq? __tmp74390 HashTable::t))) - _h74033_ + (eq? __tmp74372 HashTable::t))) + _h74015_ (let () (declare (not safe)) - (cast HashTable::interface _h74033_))))) + (cast HashTable::interface _h74015_))))) (declare (not safe)) - (&HashTable-clear! _h74035_)))) + (&HashTable-clear! _h74017_)))) (define &HashTable-clear! - (lambda (_h74030_) + (lambda (_h74012_) (declare (not safe)) (begin - ((##unchecked-structure-ref _h74030_ '9 HashTable::t '#f) - (##unchecked-structure-ref _h74030_ '1 interface-instance::t '#f)) + ((##unchecked-structure-ref _h74012_ '9 HashTable::t '#f) + (##unchecked-structure-ref _h74012_ '1 interface-instance::t '#f)) '#!void))) (define &HashTableLock-begin-read! - (lambda (_hl74027_) + (lambda (_hl74009_) (declare (not safe)) - ((##unchecked-structure-ref _hl74027_ '2 HashTableLock::t '#f) - (##unchecked-structure-ref _hl74027_ '1 interface-instance::t '#f)))) + ((##unchecked-structure-ref _hl74009_ '2 HashTableLock::t '#f) + (##unchecked-structure-ref _hl74009_ '1 interface-instance::t '#f)))) (define &HashTableLock-end-read! - (lambda (_hl74024_) + (lambda (_hl74006_) (declare (not safe)) - ((##unchecked-structure-ref _hl74024_ '3 HashTableLock::t '#f) - (##unchecked-structure-ref _hl74024_ '1 interface-instance::t '#f)))) + ((##unchecked-structure-ref _hl74006_ '3 HashTableLock::t '#f) + (##unchecked-structure-ref _hl74006_ '1 interface-instance::t '#f)))) (define &HashTableLock-begin-write! - (lambda (_hl74021_) + (lambda (_hl74003_) (declare (not safe)) - ((##unchecked-structure-ref _hl74021_ '4 HashTableLock::t '#f) - (##unchecked-structure-ref _hl74021_ '1 interface-instance::t '#f)))) + ((##unchecked-structure-ref _hl74003_ '4 HashTableLock::t '#f) + (##unchecked-structure-ref _hl74003_ '1 interface-instance::t '#f)))) (define &HashTableLock-end-write! - (lambda (_hl74018_) + (lambda (_hl74000_) (declare (not safe)) - ((##unchecked-structure-ref _hl74018_ '5 HashTableLock::t '#f) - (##unchecked-structure-ref _hl74018_ '1 interface-instance::t '#f)))) - (define _locked-hash-table::ref71031_ - (lambda (_self74005_ _key74007_ _default74008_) - (let ((_h74010_ + ((##unchecked-structure-ref _hl74000_ '5 HashTableLock::t '#f) + (##unchecked-structure-ref _hl74000_ '1 interface-instance::t '#f)))) + (define _locked-hash-table::ref71013_ + (lambda (_self73987_ _key73989_ _default73990_) + (let ((_h73992_ (let () (declare (not safe)) (##unchecked-structure-ref - _self74005_ + _self73987_ '1 locked-hash-table::t '#f))) - (_l74012_ + (_l73994_ (let () (declare (not safe)) (##unchecked-structure-ref - _self74005_ + _self73987_ '2 locked-hash-table::t '#f)))) @@ -1178,37 +1178,37 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-read! _l74012_))) + (&HashTableLock-begin-read! _l73994_))) (lambda () (let () (declare (not safe)) - (&HashTable-ref _h74010_ _key74007_ _default74008_))) + (&HashTable-ref _h73992_ _key73989_ _default73990_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-read! _l74012_))))))) + (&HashTableLock-end-read! _l73994_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'ref - _locked-hash-table::ref71031_ + _locked-hash-table::ref71013_ '#f)) - (define _locked-hash-table::set!71033_ - (lambda (_self73869_ _key73871_ _value73872_) - (let ((_h73874_ + (define _locked-hash-table::set!71015_ + (lambda (_self73851_ _key73853_ _value73854_) + (let ((_h73856_ (let () (declare (not safe)) (##unchecked-structure-ref - _self73869_ + _self73851_ '1 locked-hash-table::t '#f))) - (_l73876_ + (_l73858_ (let () (declare (not safe)) (##unchecked-structure-ref - _self73869_ + _self73851_ '2 locked-hash-table::t '#f)))) @@ -1216,37 +1216,37 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-write! _l73876_))) + (&HashTableLock-begin-write! _l73858_))) (lambda () (let () (declare (not safe)) - (&HashTable-set! _h73874_ _key73871_ _value73872_))) + (&HashTable-set! _h73856_ _key73853_ _value73854_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-write! _l73876_))))))) + (&HashTableLock-end-write! _l73858_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'set! - _locked-hash-table::set!71033_ + _locked-hash-table::set!71015_ '#f)) - (define _locked-hash-table::update!71035_ - (lambda (_self73732_ _key73734_ _update73735_ _default73736_) - (let ((_h73738_ + (define _locked-hash-table::update!71017_ + (lambda (_self73714_ _key73716_ _update73717_ _default73718_) + (let ((_h73720_ (let () (declare (not safe)) (##unchecked-structure-ref - _self73732_ + _self73714_ '1 locked-hash-table::t '#f))) - (_l73740_ + (_l73722_ (let () (declare (not safe)) (##unchecked-structure-ref - _self73732_ + _self73714_ '2 locked-hash-table::t '#f)))) @@ -1254,41 +1254,41 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-write! _l73740_))) + (&HashTableLock-begin-write! _l73722_))) (lambda () (let () (declare (not safe)) (&HashTable-update! - _h73738_ - _key73734_ - _update73735_ - _default73736_))) + _h73720_ + _key73716_ + _update73717_ + _default73718_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-write! _l73740_))))))) + (&HashTableLock-end-write! _l73722_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'update! - _locked-hash-table::update!71035_ + _locked-hash-table::update!71017_ '#f)) - (define _locked-hash-table::delete!71037_ - (lambda (_self73597_ _key73599_) - (let ((_h73601_ + (define _locked-hash-table::delete!71019_ + (lambda (_self73579_ _key73581_) + (let ((_h73583_ (let () (declare (not safe)) (##unchecked-structure-ref - _self73597_ + _self73579_ '1 locked-hash-table::t '#f))) - (_l73603_ + (_l73585_ (let () (declare (not safe)) (##unchecked-structure-ref - _self73597_ + _self73579_ '2 locked-hash-table::t '#f)))) @@ -1296,37 +1296,37 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-write! _l73603_))) + (&HashTableLock-begin-write! _l73585_))) (lambda () (let () (declare (not safe)) - (&HashTable-delete! _h73601_ _key73599_))) + (&HashTable-delete! _h73583_ _key73581_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-write! _l73603_))))))) + (&HashTableLock-end-write! _l73585_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'delete! - _locked-hash-table::delete!71037_ + _locked-hash-table::delete!71019_ '#f)) - (define _locked-hash-table::for-each71039_ - (lambda (_self73462_ _proc73464_) - (let ((_h73466_ + (define _locked-hash-table::for-each71021_ + (lambda (_self73444_ _proc73446_) + (let ((_h73448_ (let () (declare (not safe)) (##unchecked-structure-ref - _self73462_ + _self73444_ '1 locked-hash-table::t '#f))) - (_l73468_ + (_l73450_ (let () (declare (not safe)) (##unchecked-structure-ref - _self73462_ + _self73444_ '2 locked-hash-table::t '#f)))) @@ -1334,37 +1334,37 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-read! _l73468_))) + (&HashTableLock-begin-read! _l73450_))) (lambda () (let () (declare (not safe)) - (&HashTable-for-each _h73466_ _proc73464_))) + (&HashTable-for-each _h73448_ _proc73446_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-read! _l73468_))))))) + (&HashTableLock-end-read! _l73450_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'for-each - _locked-hash-table::for-each71039_ + _locked-hash-table::for-each71021_ '#f)) - (define _locked-hash-table::length71041_ - (lambda (_self73328_) - (let ((_h73331_ + (define _locked-hash-table::length71023_ + (lambda (_self73310_) + (let ((_h73313_ (let () (declare (not safe)) (##unchecked-structure-ref - _self73328_ + _self73310_ '1 locked-hash-table::t '#f))) - (_l73333_ + (_l73315_ (let () (declare (not safe)) (##unchecked-structure-ref - _self73328_ + _self73310_ '2 locked-hash-table::t '#f)))) @@ -1372,35 +1372,35 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-read! _l73333_))) + (&HashTableLock-begin-read! _l73315_))) (lambda () - (let () (declare (not safe)) (&HashTable-length _h73331_))) + (let () (declare (not safe)) (&HashTable-length _h73313_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-read! _l73333_))))))) + (&HashTableLock-end-read! _l73315_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'length - _locked-hash-table::length71041_ + _locked-hash-table::length71023_ '#f)) - (define _locked-hash-table::copy71043_ - (lambda (_self73194_) - (let ((_h73197_ + (define _locked-hash-table::copy71025_ + (lambda (_self73176_) + (let ((_h73179_ (let () (declare (not safe)) (##unchecked-structure-ref - _self73194_ + _self73176_ '1 locked-hash-table::t '#f))) - (_l73199_ + (_l73181_ (let () (declare (not safe)) (##unchecked-structure-ref - _self73194_ + _self73176_ '2 locked-hash-table::t '#f)))) @@ -1408,34 +1408,34 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-read! _l73199_))) - (lambda () (let () (declare (not safe)) (&HashTable-copy _h73197_))) + (&HashTableLock-begin-read! _l73181_))) + (lambda () (let () (declare (not safe)) (&HashTable-copy _h73179_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-read! _l73199_))))))) + (&HashTableLock-end-read! _l73181_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'copy - _locked-hash-table::copy71043_ + _locked-hash-table::copy71025_ '#f)) - (define _locked-hash-table::clear!71045_ - (lambda (_self73060_) - (let ((_h73063_ + (define _locked-hash-table::clear!71027_ + (lambda (_self73042_) + (let ((_h73045_ (let () (declare (not safe)) (##unchecked-structure-ref - _self73060_ + _self73042_ '1 locked-hash-table::t '#f))) - (_l73065_ + (_l73047_ (let () (declare (not safe)) (##unchecked-structure-ref - _self73060_ + _self73042_ '2 locked-hash-table::t '#f)))) @@ -1443,695 +1443,695 @@ (lambda () (let () (declare (not safe)) - (&HashTableLock-begin-write! _l73065_))) + (&HashTableLock-begin-write! _l73047_))) (lambda () - (let () (declare (not safe)) (&HashTable-clear! _h73063_))) + (let () (declare (not safe)) (&HashTable-clear! _h73045_))) (lambda () (let () (declare (not safe)) - (&HashTableLock-end-write! _l73065_))))))) + (&HashTableLock-end-write! _l73047_))))))) (let () (declare (not safe)) (bind-method!__% locked-hash-table::t 'clear! - _locked-hash-table::clear!71045_ + _locked-hash-table::clear!71027_ '#f)) - (let ((__tmp74391 (macro-type-mutex))) + (let ((__tmp74373 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp74391 'begin-read! mutex-lock!)) - (let ((__tmp74392 (macro-type-mutex))) + (bind-method!__0 __tmp74373 'begin-read! mutex-lock!)) + (let ((__tmp74374 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp74392 'end-read! mutex-unlock!)) - (let ((__tmp74393 (macro-type-mutex))) + (bind-method!__0 __tmp74374 'end-read! mutex-unlock!)) + (let ((__tmp74375 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp74393 'begin-write! mutex-lock!)) - (let ((__tmp74394 (macro-type-mutex))) + (bind-method!__0 __tmp74375 'begin-write! mutex-lock!)) + (let ((__tmp74376 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp74394 'end-write! mutex-unlock!)) - (define _checked-hash-table::ref71323_ - (lambda (_self72924_ _key72925_ _default72926_) - (let ((_h72928_ + (bind-method!__0 __tmp74376 'end-write! mutex-unlock!)) + (define _checked-hash-table::ref71305_ + (lambda (_self72906_ _key72907_ _default72908_) + (let ((_h72910_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72924_ + _self72906_ '1 checked-hash-table::t '#f))) - (_key?72930_ + (_key?72912_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72924_ + _self72906_ '2 checked-hash-table::t '#f)))) - ((lambda (_g7293272934_) - (if (_g7293272934_ _key72925_) + ((lambda (_g7291472916_) + (if (_g7291472916_ _key72907_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _key72925_)))) - _key?72930_) + (error '"invalid argument" _key72907_)))) + _key?72912_) (let () (declare (not safe)) - (&HashTable-ref _h72928_ _key72925_ _default72926_))))) + (&HashTable-ref _h72910_ _key72907_ _default72908_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'ref - _checked-hash-table::ref71323_ + _checked-hash-table::ref71305_ '#f)) - (define _checked-hash-table::set!71325_ - (lambda (_self72788_ _key72789_ _value72790_) - (let ((_h72792_ + (define _checked-hash-table::set!71307_ + (lambda (_self72770_ _key72771_ _value72772_) + (let ((_h72774_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72788_ + _self72770_ '1 checked-hash-table::t '#f))) - (_key?72794_ + (_key?72776_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72788_ + _self72770_ '2 checked-hash-table::t '#f)))) - ((lambda (_g7279672798_) - (if (_g7279672798_ _key72789_) + ((lambda (_g7277872780_) + (if (_g7277872780_ _key72771_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _key72789_)))) - _key?72794_) + (error '"invalid argument" _key72771_)))) + _key?72776_) (let () (declare (not safe)) - (&HashTable-set! _h72792_ _key72789_ _value72790_))))) + (&HashTable-set! _h72774_ _key72771_ _value72772_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'set! - _checked-hash-table::set!71325_ + _checked-hash-table::set!71307_ '#f)) - (define _checked-hash-table::update!71327_ - (lambda (_self72653_ _key72654_ _update72655_ _default72656_) - (let ((_h72658_ + (define _checked-hash-table::update!71309_ + (lambda (_self72635_ _key72636_ _update72637_ _default72638_) + (let ((_h72640_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72653_ + _self72635_ '1 checked-hash-table::t '#f))) - (_key?72660_ + (_key?72642_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72653_ + _self72635_ '2 checked-hash-table::t '#f)))) - ((lambda (_key?72663_) - (if (_key?72663_ _key72654_) + ((lambda (_key?72645_) + (if (_key?72645_ _key72636_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _key72654_))) - (if (let () (declare (not safe)) (procedure? _update72655_)) + (error '"invalid argument" _key72636_))) + (if (let () (declare (not safe)) (procedure? _update72637_)) '#!void (let () (declare (not safe)) - (error '"invalid argument" _update72655_)))) - _key?72660_) + (error '"invalid argument" _update72637_)))) + _key?72642_) (let () (declare (not safe)) (&HashTable-update! - _h72658_ - _key72654_ - _update72655_ - _default72656_))))) + _h72640_ + _key72636_ + _update72637_ + _default72638_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'update! - _checked-hash-table::update!71327_ + _checked-hash-table::update!71309_ '#f)) - (define _checked-hash-table::delete!71329_ - (lambda (_self72518_ _key72519_) - (let ((_h72521_ + (define _checked-hash-table::delete!71311_ + (lambda (_self72500_ _key72501_) + (let ((_h72503_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72518_ + _self72500_ '1 checked-hash-table::t '#f))) - (_key?72523_ + (_key?72505_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72518_ + _self72500_ '2 checked-hash-table::t '#f)))) - ((lambda (_g7252572527_) - (if (_g7252572527_ _key72519_) + ((lambda (_g7250772509_) + (if (_g7250772509_ _key72501_) '#!void (let () (declare (not safe)) - (error '"invalid argument" _key72519_)))) - _key?72523_) + (error '"invalid argument" _key72501_)))) + _key?72505_) (let () (declare (not safe)) - (&HashTable-delete! _h72521_ _key72519_))))) + (&HashTable-delete! _h72503_ _key72501_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'delete! - _checked-hash-table::delete!71329_ + _checked-hash-table::delete!71311_ '#f)) - (define _checked-hash-table::for-each71331_ - (lambda (_self72386_ _proc72387_) - (let ((_h72389_ + (define _checked-hash-table::for-each71313_ + (lambda (_self72368_ _proc72369_) + (let ((_h72371_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72386_ + _self72368_ '1 checked-hash-table::t '#f))) - (_key?72391_ + (_key?72373_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72386_ + _self72368_ '2 checked-hash-table::t '#f)))) - ((lambda (_g74395_) - (if (let () (declare (not safe)) (procedure? _proc72387_)) + ((lambda (_g74377_) + (if (let () (declare (not safe)) (procedure? _proc72369_)) '#!void (let () (declare (not safe)) - (error '"invalid argument" _proc72387_)))) - _key?72391_) + (error '"invalid argument" _proc72369_)))) + _key?72373_) (let () (declare (not safe)) - (&HashTable-for-each _h72389_ _proc72387_))))) + (&HashTable-for-each _h72371_ _proc72369_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'for-each - _checked-hash-table::for-each71331_ + _checked-hash-table::for-each71313_ '#f)) - (define _checked-hash-table::length71333_ - (lambda (_self72256_) - (let ((_h72258_ + (define _checked-hash-table::length71315_ + (lambda (_self72238_) + (let ((_h72240_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72256_ + _self72238_ '1 checked-hash-table::t '#f))) - (_key?72260_ + (_key?72242_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72256_ + _self72238_ '2 checked-hash-table::t '#f)))) - (let () (declare (not safe)) (&HashTable-length _h72258_))))) + (let () (declare (not safe)) (&HashTable-length _h72240_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'length - _checked-hash-table::length71333_ + _checked-hash-table::length71315_ '#f)) - (define _checked-hash-table::copy71335_ - (lambda (_self72126_) - (let ((_h72128_ + (define _checked-hash-table::copy71317_ + (lambda (_self72108_) + (let ((_h72110_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72126_ + _self72108_ '1 checked-hash-table::t '#f))) - (_key?72130_ + (_key?72112_ (let () (declare (not safe)) (##unchecked-structure-ref - _self72126_ + _self72108_ '2 checked-hash-table::t '#f)))) - (let () (declare (not safe)) (&HashTable-copy _h72128_))))) + (let () (declare (not safe)) (&HashTable-copy _h72110_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'copy - _checked-hash-table::copy71335_ + _checked-hash-table::copy71317_ '#f)) - (define _checked-hash-table::clear!71337_ - (lambda (_self71996_) - (let ((_h71998_ + (define _checked-hash-table::clear!71319_ + (lambda (_self71978_) + (let ((_h71980_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71996_ + _self71978_ '1 checked-hash-table::t '#f))) - (_key?72000_ + (_key?71982_ (let () (declare (not safe)) (##unchecked-structure-ref - _self71996_ + _self71978_ '2 checked-hash-table::t '#f)))) - (let () (declare (not safe)) (&HashTable-clear! _h71998_))))) + (let () (declare (not safe)) (&HashTable-clear! _h71980_))))) (let () (declare (not safe)) (bind-method!__% checked-hash-table::t 'clear! - _checked-hash-table::clear!71337_ + _checked-hash-table::clear!71319_ '#f)) (define make-generic-hash-table - (lambda (_table71866_ - _count71867_ - _free71868_ - _hash71869_ - _test71870_ - _seed71871_) + (lambda (_table71848_ + _count71849_ + _free71850_ + _hash71851_ + _test71852_ + _seed71853_) (let () (declare (not safe)) (##structure hash-table::t - _table71866_ - _count71867_ - _free71868_ - _hash71869_ - _test71870_ - _seed71871_)))) + _table71848_ + _count71849_ + _free71850_ + _hash71851_ + _test71852_ + _seed71853_)))) (define make-hash-table__% - (lambda (_g74396_ - _size-hint7171171721_ - _seed7171271723_ - _test7171371725_ - _hash7171471727_ - _lock7171571729_ - _check7171671731_ - _weak-keys7171771733_ - _weak-values7171871735_) - (let* ((_size-hint71738_ + (lambda (_g74378_ + _size-hint7169371703_ + _seed7169471705_ + _test7169571707_ + _hash7169671709_ + _lock7169771711_ + _check7169871713_ + _weak-keys7169971715_ + _weak-values7170071717_) + (let* ((_size-hint71720_ (if (let () (declare (not safe)) - (eq? _size-hint7171171721_ absent-value)) + (eq? _size-hint7169371703_ absent-value)) '#f - _size-hint7171171721_)) - (_seed71740_ + _size-hint7169371703_)) + (_seed71722_ (if (let () (declare (not safe)) - (eq? _seed7171271723_ absent-value)) + (eq? _seed7169471705_ absent-value)) '#f - _seed7171271723_)) - (_test71742_ + _seed7169471705_)) + (_test71724_ (if (let () (declare (not safe)) - (eq? _test7171371725_ absent-value)) + (eq? _test7169571707_ absent-value)) equal? - _test7171371725_)) - (_hash71744_ + _test7169571707_)) + (_hash71726_ (if (let () (declare (not safe)) - (eq? _hash7171471727_ absent-value)) + (eq? _hash7169671709_ absent-value)) '#f - _hash7171471727_)) - (_lock71746_ + _hash7169671709_)) + (_lock71728_ (if (let () (declare (not safe)) - (eq? _lock7171571729_ absent-value)) + (eq? _lock7169771711_ absent-value)) '#f - _lock7171571729_)) - (_check71748_ + _lock7169771711_)) + (_check71730_ (if (let () (declare (not safe)) - (eq? _check7171671731_ absent-value)) + (eq? _check7169871713_ absent-value)) '#f - _check7171671731_)) - (_weak-keys71750_ + _check7169871713_)) + (_weak-keys71732_ (if (let () (declare (not safe)) - (eq? _weak-keys7171771733_ absent-value)) + (eq? _weak-keys7169971715_ absent-value)) '#f - _weak-keys7171771733_)) - (_weak-values71752_ + _weak-keys7169971715_)) + (_weak-values71734_ (if (let () (declare (not safe)) - (eq? _weak-values7171871735_ absent-value)) + (eq? _weak-values7170071717_ absent-value)) '#f - _weak-values7171871735_))) - (letrec ((_table-seed71754_ + _weak-values7170071717_))) + (letrec ((_table-seed71736_ (lambda () - (if (let () (declare (not safe)) (fixnum? _seed71740_)) - _seed71740_ + (if (let () (declare (not safe)) (fixnum? _seed71722_)) + _seed71722_ (random-integer (macro-max-fixnum32))))) - (_wrap-lock71755_ - (lambda (_ht71849_) - (if _lock71746_ - (let ((__tmp74397 - (let ((__tmp74398 + (_wrap-lock71737_ + (lambda (_ht71831_) + (if _lock71728_ + (let ((__tmp74379 + (let ((__tmp74380 (let () (declare (not safe)) (cast HashTableLock::interface - _lock71746_)))) + _lock71728_)))) (declare (not safe)) (##structure locked-hash-table::t - _ht71849_ - __tmp74398)))) + _ht71831_ + __tmp74380)))) (declare (not safe)) - (cast HashTable::interface __tmp74397)) - _ht71849_))) - (_wrap-checked71756_ - (lambda (_ht71846_ _implicit71847_) - (if _check71748_ - (let ((__tmp74399 - (let ((__tmp74400 + (cast HashTable::interface __tmp74379)) + _ht71831_))) + (_wrap-checked71738_ + (lambda (_ht71828_ _implicit71829_) + (if _check71730_ + (let ((__tmp74381 + (let ((__tmp74382 (if (let () (declare (not safe)) - (procedure? _check71748_)) - _check71748_ - _implicit71847_))) + (procedure? _check71730_)) + _check71730_ + _implicit71829_))) (declare (not safe)) (##structure checked-hash-table::t - _ht71846_ - __tmp74400)))) + _ht71828_ + __tmp74382)))) (declare (not safe)) - (cast HashTable::interface __tmp74399)) - _ht71846_))) - (_make71757_ - (lambda (_kons71834_ _key?71835_ _hash71836_ _test71837_) - (let* ((_size71839_ + (cast HashTable::interface __tmp74381)) + _ht71828_))) + (_make71739_ + (lambda (_kons71816_ _key?71817_ _hash71818_ _test71819_) + (let* ((_size71821_ (let () (declare (not safe)) - (raw-table-size-hint->size _size-hint71738_))) - (_table71841_ - (make-vector _size71839_ (macro-unused-obj))) - (_ht71843_ - (let ((__tmp74401 - (_kons71834_ - _table71841_ + (raw-table-size-hint->size _size-hint71720_))) + (_table71823_ + (make-vector _size71821_ (macro-unused-obj))) + (_ht71825_ + (let ((__tmp74383 + (_kons71816_ + _table71823_ '0 - (fxquotient _size71839_ '2) - _hash71836_ - _test71837_ + (fxquotient _size71821_ '2) + _hash71818_ + _test71819_ (let () (declare (not safe)) - (_table-seed71754_))))) + (_table-seed71736_))))) (declare (not safe)) - (cast HashTable::interface __tmp74401)))) - (let ((__tmp74402 + (cast HashTable::interface __tmp74383)))) + (let ((__tmp74384 (let () (declare (not safe)) - (_wrap-lock71755_ _ht71843_)))) + (_wrap-lock71737_ _ht71825_)))) (declare (not safe)) - (_wrap-checked71756_ __tmp74402 _key?71835_))))) - (_make-gc-hash-table71758_ + (_wrap-checked71738_ __tmp74384 _key?71817_))))) + (_make-gc-hash-table71740_ (lambda () - (let* ((_ht71832_ - (let ((__tmp74403 + (let* ((_ht71814_ + (let ((__tmp74385 (let () (declare (not safe)) (make-gc-table__1 - _size-hint71738_ + _size-hint71720_ gc-hash-table::t)))) (declare (not safe)) - (cast HashTable::interface __tmp74403))) - (__tmp74404 + (cast HashTable::interface __tmp74385))) + (__tmp74386 (let () (declare (not safe)) - (_wrap-lock71755_ _ht71832_)))) + (_wrap-lock71737_ _ht71814_)))) (declare (not safe)) - (_wrap-checked71756_ __tmp74404 true)))) - (_make-gambit-table71759_ + (_wrap-checked71738_ __tmp74386 true)))) + (_make-gambit-table71741_ (lambda () - (let* ((_size71816_ - (let ((_$e71813_ _size-hint71738_)) - (if _$e71813_ _$e71813_ (macro-absent-obj)))) - (_test71821_ - (let ((_$e71818_ _test71742_)) - (if _$e71818_ _$e71818_ equal?))) - (_hash71826_ - (let ((_$e71823_ _hash71744_)) - (if _$e71823_ - _$e71823_ + (let* ((_size71798_ + (let ((_$e71795_ _size-hint71720_)) + (if _$e71795_ _$e71795_ (macro-absent-obj)))) + (_test71803_ + (let ((_$e71800_ _test71724_)) + (if _$e71800_ _$e71800_ equal?))) + (_hash71808_ + (let ((_$e71805_ _hash71726_)) + (if _$e71805_ + _$e71805_ (if (let () (declare (not safe)) - (eq? _test71821_ eq?)) + (eq? _test71803_ eq?)) eq?-hash (if (let () (declare (not safe)) - (eq? _test71821_ eqv?)) + (eq? _test71803_ eqv?)) eqv?-hash equal?-hash))))) - (_ht71828_ - (let ((__tmp74405 + (_ht71810_ + (let ((__tmp74387 (make-table 'size: - _size71816_ + _size71798_ 'test: - _test71821_ + _test71803_ 'hash: - _hash71826_ + _hash71808_ 'weak-keys: - _weak-keys71750_ + _weak-keys71732_ 'weak-values: - _weak-values71752_))) + _weak-values71734_))) (declare (not safe)) - (cast HashTable::interface __tmp74405)))) - (let ((__tmp74406 + (cast HashTable::interface __tmp74387)))) + (let ((__tmp74388 (let () (declare (not safe)) - (_wrap-lock71755_ _ht71828_)))) + (_wrap-lock71737_ _ht71810_)))) (declare (not safe)) - (_wrap-checked71756_ __tmp74406 true)))))) - (if (or _weak-keys71750_ _weak-values71752_) - (let () (declare (not safe)) (_make-gambit-table71759_)) + (_wrap-checked71738_ __tmp74388 true)))))) + (if (or _weak-keys71732_ _weak-values71734_) + (let () (declare (not safe)) (_make-gambit-table71741_)) (if (and (or (let () (declare (not safe)) - (eq? _test71742_ eq?)) + (eq? _test71724_ eq?)) (let () (declare (not safe)) - (eq? _test71742_ ##eq?))) - (or (let () (declare (not safe)) (not _hash71744_)) + (eq? _test71724_ ##eq?))) + (or (let () (declare (not safe)) (not _hash71726_)) (let () (declare (not safe)) - (eq? _hash71744_ eq?-hash)) + (eq? _hash71726_ eq?-hash)) (let () (declare (not safe)) - (eq? _hash71744_ eq-hash))) - (let () (declare (not safe)) (not _seed71740_))) - (let () (declare (not safe)) (_make-gc-hash-table71758_)) + (eq? _hash71726_ eq-hash))) + (let () (declare (not safe)) (not _seed71722_))) + (let () (declare (not safe)) (_make-gc-hash-table71740_)) (if (and (or (let () (declare (not safe)) - (eq? _test71742_ eq?)) + (eq? _test71724_ eq?)) (let () (declare (not safe)) - (eq? _test71742_ ##eq?))) + (eq? _test71724_ ##eq?))) (or (let () (declare (not safe)) - (not _hash71744_)) + (not _hash71726_)) (let () (declare (not safe)) - (eq? _hash71744_ eq?-hash)) + (eq? _hash71726_ eq?-hash)) (let () (declare (not safe)) - (eq? _hash71744_ eq-hash)))) + (eq? _hash71726_ eq-hash)))) (let () (declare (not safe)) - (_make71757_ make-eq-hash-table true eq-hash eq?)) + (_make71739_ make-eq-hash-table true eq-hash eq?)) (if (and (or (let () (declare (not safe)) - (eq? _test71742_ eqv?)) + (eq? _test71724_ eqv?)) (let () (declare (not safe)) - (eq? _test71742_ ##eqv?))) + (eq? _test71724_ ##eqv?))) (or (let () (declare (not safe)) - (not _hash71744_)) + (not _hash71726_)) (let () (declare (not safe)) - (eq? _hash71744_ eqv?-hash)) + (eq? _hash71726_ eqv?-hash)) (let () (declare (not safe)) - (eq? _hash71744_ eqv-hash)))) + (eq? _hash71726_ eqv-hash)))) (let () (declare (not safe)) - (_make71757_ + (_make71739_ make-eqv-hash-table true eqv-hash eqv?)) (if (and (or (let () (declare (not safe)) - (eq? _test71742_ eq?)) + (eq? _test71724_ eq?)) (let () (declare (not safe)) - (eq? _test71742_ ##eq?))) + (eq? _test71724_ ##eq?))) (or (let () (declare (not safe)) - (eq? _hash71744_ symbolic-hash)) + (eq? _hash71726_ symbolic-hash)) (let () (declare (not safe)) - (eq? _hash71744_ ##symbol-hash)))) + (eq? _hash71726_ ##symbol-hash)))) (let () (declare (not safe)) - (_make71757_ + (_make71739_ make-symbol-hash-table symbolic? symbolic-hash eq?)) (if (and (or (let () (declare (not safe)) - (eq? _test71742_ eq?)) + (eq? _test71724_ eq?)) (let () (declare (not safe)) - (eq? _test71742_ ##eq?))) + (eq? _test71724_ ##eq?))) (let () (declare (not safe)) - (eq? _hash71744_ immediate-hash))) + (eq? _hash71726_ immediate-hash))) (let () (declare (not safe)) - (_make71757_ + (_make71739_ make-immediate-hash-table immediate? immediate-hash eq?)) (if (and (or (let () (declare (not safe)) - (eq? _test71742_ equal?)) + (eq? _test71724_ equal?)) (let () (declare (not safe)) - (eq? _test71742_ ##equal?)) + (eq? _test71724_ ##equal?)) (let () (declare (not safe)) - (eq? _test71742_ string=?)) + (eq? _test71724_ string=?)) (let () (declare (not safe)) - (eq? _test71742_ + (eq? _test71724_ ##string=?))) (or (let () (declare (not safe)) - (eq? _hash71744_ + (eq? _hash71726_ string-hash)) (let () (declare (not safe)) - (eq? _hash71744_ + (eq? _hash71726_ ##string=?-hash)))) (let () (declare (not safe)) - (_make71757_ + (_make71739_ make-string-hash-table string? string-hash ##string=?)) (if (and (let () (declare (not safe)) - (eq? _test71742_ equal?)) + (eq? _test71724_ equal?)) (let () (declare (not safe)) - (not _hash71744_))) + (not _hash71726_))) (let () (declare (not safe)) - (_make71757_ + (_make71739_ make-generic-hash-table true equal?-hash equal?)) - (if (let ((__tmp74408 + (if (let ((__tmp74390 (let () (declare (not safe)) (procedure? - _test71742_)))) + _test71724_)))) (declare (not safe)) - (not __tmp74408)) + (not __tmp74390)) (let () (declare (not safe)) (error '"bad hash table test function; expected procedure" - _test71742_)) - (if (let ((__tmp74407 + _test71724_)) + (if (let ((__tmp74389 (let () (declare (not safe)) (procedure? - _hash71744_)))) + _hash71726_)))) (declare (not safe)) - (not __tmp74407)) + (not __tmp74389)) (let () (declare (not safe)) (error '"bad hash table hash function; expected procedure" - _hash71744_)) + _hash71726_)) (let () (declare (not safe)) - (_make71757_ + (_make71739_ make-generic-hash-table true - _hash71744_ - _test71742_)))))))))))))))) + _hash71726_ + _test71724_)))))))))))))))) (define make-hash-table__@ - (lambda (_keys7171071855_ . _args71857_) + (lambda (_keys7169271837_ . _args71839_) (apply make-hash-table__% - _keys7171071855_ + _keys7169271837_ (let () (declare (not safe)) - (symbolic-table-ref _keys7171071855_ 'size: absent-value)) + (symbolic-table-ref _keys7169271837_ 'size: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys7171071855_ 'seed: absent-value)) + (symbolic-table-ref _keys7169271837_ 'seed: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys7171071855_ 'test: absent-value)) + (symbolic-table-ref _keys7169271837_ 'test: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys7171071855_ 'hash: absent-value)) + (symbolic-table-ref _keys7169271837_ 'hash: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys7171071855_ 'lock: absent-value)) + (symbolic-table-ref _keys7169271837_ 'lock: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _keys7171071855_ 'check: absent-value)) + (symbolic-table-ref _keys7169271837_ 'check: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _keys7171071855_ + _keys7169271837_ 'weak-keys: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _keys7171071855_ + _keys7169271837_ 'weak-values: absent-value)) - _args71857_))) + _args71839_))) (define make-hash-table - (lambda _args7171971863_ + (lambda _args7170171845_ (apply keyword-dispatch '#(#f #f @@ -2174,729 +2174,729 @@ #f #f) make-hash-table__@ - _args7171971863_))) + _args7170171845_))) (define make-hash-table-eq - (lambda _args71707_ (apply make-hash-table 'test: eq? _args71707_))) + (lambda _args71689_ (apply make-hash-table 'test: eq? _args71689_))) (define make-hash-table-eqv - (lambda _args71705_ (apply make-hash-table 'test: eqv? _args71705_))) + (lambda _args71687_ (apply make-hash-table 'test: eqv? _args71687_))) (define make-hash-table-symbolic - (lambda _args71703_ - (apply make-hash-table 'test: eq? 'hash: symbolic-hash _args71703_))) + (lambda _args71685_ + (apply make-hash-table 'test: eq? 'hash: symbolic-hash _args71685_))) (define make-hash-table-string - (lambda _args71701_ + (lambda _args71683_ (apply make-hash-table 'test: string=? 'hash: string-hash - _args71701_))) + _args71683_))) (define make-hash-table-immediate - (lambda _args71699_ - (apply make-hash-table 'test: eq? 'hash: immediate-hash _args71699_))) + (lambda _args71681_ + (apply make-hash-table 'test: eq? 'hash: immediate-hash _args71681_))) (define list->hash-table - (lambda (_lst71696_ . _args71697_) - (let ((__tmp74409 - (apply make-hash-table 'size: (length _lst71696_) _args71697_))) + (lambda (_lst71678_ . _args71679_) + (let ((__tmp74391 + (apply make-hash-table 'size: (length _lst71678_) _args71679_))) (declare (not safe)) - (list->hash-table! _lst71696_ __tmp74409)))) + (list->hash-table! _lst71678_ __tmp74391)))) (define list->hash-table-eq - (lambda (_lst71693_ . _args71694_) - (let ((__tmp74410 + (lambda (_lst71675_ . _args71676_) + (let ((__tmp74392 (apply make-hash-table-eq 'size: - (length _lst71693_) - _args71694_))) + (length _lst71675_) + _args71676_))) (declare (not safe)) - (list->hash-table! _lst71693_ __tmp74410)))) + (list->hash-table! _lst71675_ __tmp74392)))) (define list->hash-table-eqv - (lambda (_lst71690_ . _args71691_) - (let ((__tmp74411 + (lambda (_lst71672_ . _args71673_) + (let ((__tmp74393 (apply make-hash-table-eqv 'size: - (length _lst71690_) - _args71691_))) + (length _lst71672_) + _args71673_))) (declare (not safe)) - (list->hash-table! _lst71690_ __tmp74411)))) + (list->hash-table! _lst71672_ __tmp74393)))) (define list->hash-table-symbolic - (lambda (_lst71687_ . _args71688_) - (let ((__tmp74412 + (lambda (_lst71669_ . _args71670_) + (let ((__tmp74394 (apply make-hash-table-symbolic 'size: - (length _lst71687_) - _args71688_))) + (length _lst71669_) + _args71670_))) (declare (not safe)) - (list->hash-table! _lst71687_ __tmp74412)))) + (list->hash-table! _lst71669_ __tmp74394)))) (define list->hash-table-string - (lambda (_lst71684_ . _args71685_) - (let ((__tmp74413 + (lambda (_lst71666_ . _args71667_) + (let ((__tmp74395 (apply make-hash-table-string 'size: - (length _lst71684_) - _args71685_))) + (length _lst71666_) + _args71667_))) (declare (not safe)) - (list->hash-table! _lst71684_ __tmp74413)))) + (list->hash-table! _lst71666_ __tmp74395)))) (define list->hash-table-immediate - (lambda (_lst71681_ . _args71682_) - (let ((__tmp74414 + (lambda (_lst71663_ . _args71664_) + (let ((__tmp74396 (apply make-hash-table-immediate 'size: - (length _lst71681_) - _args71682_))) + (length _lst71663_) + _args71664_))) (declare (not safe)) - (list->hash-table! _lst71681_ __tmp74414)))) + (list->hash-table! _lst71663_ __tmp74396)))) (define list->hash-table! - (lambda (_lst71648_ _h71649_) + (lambda (_lst71630_ _h71631_) (for-each - (lambda (_el71651_) - (let* ((_el7165271659_ _el71651_) - (_E7165471663_ + (lambda (_el71633_) + (let* ((_el7163471641_ _el71633_) + (_E7163671645_ (lambda () (let () (declare (not safe)) - (error '"No clause matching" _el7165271659_)))) - (_K7165571669_ - (lambda (_v71666_ _k71667_) + (error '"No clause matching" _el7163471641_)))) + (_K7163771651_ + (lambda (_v71648_ _k71649_) (let () (declare (not safe)) - (&HashTable-set! _h71649_ _k71667_ _v71666_))))) - (if (let () (declare (not safe)) (##pair? _el7165271659_)) - (let ((_hd7165671672_ - (let () (declare (not safe)) (##car _el7165271659_))) - (_tl7165771674_ - (let () (declare (not safe)) (##cdr _el7165271659_)))) - (let* ((_k71677_ _hd7165671672_) (_v71679_ _tl7165771674_)) + (&HashTable-set! _h71631_ _k71649_ _v71648_))))) + (if (let () (declare (not safe)) (##pair? _el7163471641_)) + (let ((_hd7163871654_ + (let () (declare (not safe)) (##car _el7163471641_))) + (_tl7163971656_ + (let () (declare (not safe)) (##cdr _el7163471641_)))) + (let* ((_k71659_ _hd7163871654_) (_v71661_ _tl7163971656_)) (declare (not safe)) - (_K7165571669_ _v71679_ _k71677_))) - (let () (declare (not safe)) (_E7165471663_))))) - _lst71648_) - _h71649_)) + (_K7163771651_ _v71661_ _k71659_))) + (let () (declare (not safe)) (_E7163671645_))))) + _lst71630_) + _h71631_)) (define plist->hash-table - (lambda (_lst71645_ . _args71646_) - (let ((__tmp74415 - (apply make-hash-table 'size: (length _lst71645_) _args71646_))) + (lambda (_lst71627_ . _args71628_) + (let ((__tmp74397 + (apply make-hash-table 'size: (length _lst71627_) _args71628_))) (declare (not safe)) - (plist->hash-table! _lst71645_ __tmp74415)))) + (plist->hash-table! _lst71627_ __tmp74397)))) (define plist->hash-table-eq - (lambda (_lst71642_ . _args71643_) - (let ((__tmp74416 + (lambda (_lst71624_ . _args71625_) + (let ((__tmp74398 (apply make-hash-table-eq 'size: - (length _lst71642_) - _args71643_))) + (length _lst71624_) + _args71625_))) (declare (not safe)) - (plist->hash-table! _lst71642_ __tmp74416)))) + (plist->hash-table! _lst71624_ __tmp74398)))) (define plist->hash-table-eqv - (lambda (_lst71639_ . _args71640_) - (let ((__tmp74417 + (lambda (_lst71621_ . _args71622_) + (let ((__tmp74399 (apply make-hash-table-eqv 'size: - (length _lst71639_) - _args71640_))) + (length _lst71621_) + _args71622_))) (declare (not safe)) - (plist->hash-table! _lst71639_ __tmp74417)))) + (plist->hash-table! _lst71621_ __tmp74399)))) (define plist->hash-table-symbolic - (lambda (_lst71636_ . _args71637_) - (let ((__tmp74418 + (lambda (_lst71618_ . _args71619_) + (let ((__tmp74400 (apply make-hash-table-symbolic 'size: - (length _lst71636_) - _args71637_))) + (length _lst71618_) + _args71619_))) (declare (not safe)) - (plist->hash-table! _lst71636_ __tmp74418)))) + (plist->hash-table! _lst71618_ __tmp74400)))) (define plist->hash-table-string - (lambda (_lst71633_ . _args71634_) - (let ((__tmp74419 + (lambda (_lst71615_ . _args71616_) + (let ((__tmp74401 (apply make-hash-table-string 'size: - (length _lst71633_) - _args71634_))) + (length _lst71615_) + _args71616_))) (declare (not safe)) - (plist->hash-table! _lst71633_ __tmp74419)))) + (plist->hash-table! _lst71615_ __tmp74401)))) (define plist->hash-table-immediate - (lambda (_lst71630_ . _args71631_) - (let ((__tmp74420 + (lambda (_lst71612_ . _args71613_) + (let ((__tmp74402 (apply make-hash-table-immediate 'size: - (length _lst71630_) - _args71631_))) + (length _lst71612_) + _args71613_))) (declare (not safe)) - (plist->hash-table! _lst71630_ __tmp74420)))) + (plist->hash-table! _lst71612_ __tmp74402)))) (define plist->hash-table! - (lambda (_lst71570_ _h71571_) - (let _loop71573_ ((_rest71575_ _lst71570_)) - (let* ((_rest7157671588_ _rest71575_) - (_else7157971596_ + (lambda (_lst71552_ _h71553_) + (let _loop71555_ ((_rest71557_ _lst71552_)) + (let* ((_rest7155871570_ _rest71557_) + (_else7156171578_ (lambda () (let () (declare (not safe)) (error '"bad property list -- uneven list" - _lst71570_))))) - (let ((_K7158271611_ - (lambda (_rest71607_ _val71608_ _key71609_) + _lst71552_))))) + (let ((_K7156471593_ + (lambda (_rest71589_ _val71590_ _key71591_) (let () (declare (not safe)) - (&HashTable-set! _h71571_ _key71609_ _val71608_)) - (let () (declare (not safe)) (_loop71573_ _rest71607_)))) - (_K7158171601_ (lambda () _h71571_))) - (let ((_try-match7157871604_ + (&HashTable-set! _h71553_ _key71591_ _val71590_)) + (let () (declare (not safe)) (_loop71555_ _rest71589_)))) + (_K7156371583_ (lambda () _h71553_))) + (let ((_try-match7156071586_ (lambda () (if (let () (declare (not safe)) - (##null? _rest7157671588_)) - (let () (declare (not safe)) (_K7158171601_)) - (let () (declare (not safe)) (_else7157971596_)))))) - (if (let () (declare (not safe)) (##pair? _rest7157671588_)) - (let ((_tl7158471616_ + (##null? _rest7155871570_)) + (let () (declare (not safe)) (_K7156371583_)) + (let () (declare (not safe)) (_else7156171578_)))))) + (if (let () (declare (not safe)) (##pair? _rest7155871570_)) + (let ((_tl7156671598_ (let () (declare (not safe)) - (##cdr _rest7157671588_))) - (_hd7158371614_ + (##cdr _rest7155871570_))) + (_hd7156571596_ (let () (declare (not safe)) - (##car _rest7157671588_)))) + (##car _rest7155871570_)))) (if (let () (declare (not safe)) - (##pair? _tl7158471616_)) - (let ((_tl7158671623_ + (##pair? _tl7156671598_)) + (let ((_tl7156871605_ (let () (declare (not safe)) - (##cdr _tl7158471616_))) - (_hd7158571621_ + (##cdr _tl7156671598_))) + (_hd7156771603_ (let () (declare (not safe)) - (##car _tl7158471616_)))) - (let ((_key71619_ _hd7158371614_) - (_val71626_ _hd7158571621_) - (_rest71628_ _tl7158671623_)) + (##car _tl7156671598_)))) + (let ((_key71601_ _hd7156571596_) + (_val71608_ _hd7156771603_) + (_rest71610_ _tl7156871605_)) (let () (declare (not safe)) - (_K7158271611_ - _rest71628_ - _val71626_ - _key71619_)))) - (let () (declare (not safe)) (_else7157971596_)))) + (_K7156471593_ + _rest71610_ + _val71608_ + _key71601_)))) + (let () (declare (not safe)) (_else7156171578_)))) (let () (declare (not safe)) - (_try-match7157871604_))))))))) + (_try-match7156071586_))))))))) (define hash-length - (lambda (_h71566_) - (let ((_h71568_ - (if (and (let () (declare (not safe)) (##structure? _h71566_)) - (let ((__tmp74421 + (lambda (_h71548_) + (let ((_h71550_ + (if (and (let () (declare (not safe)) (##structure? _h71548_)) + (let ((__tmp74403 (let () (declare (not safe)) - (##structure-type _h71566_)))) + (##structure-type _h71548_)))) (declare (not safe)) - (eq? __tmp74421 HashTable::t))) - _h71566_ + (eq? __tmp74403 HashTable::t))) + _h71548_ (let () (declare (not safe)) - (cast HashTable::interface _h71566_))))) + (cast HashTable::interface _h71548_))))) (declare (not safe)) - (&HashTable-length _h71568_)))) + (&HashTable-length _h71550_)))) (define &hash-length - (lambda (_h71564_) - (let () (declare (not safe)) (&HashTable-length _h71564_)))) + (lambda (_h71546_) + (let () (declare (not safe)) (&HashTable-length _h71546_)))) (define hash-ref__% - (lambda (_h71546_ _key71547_ _default71548_) - (let ((_h71550_ - (if (and (let () (declare (not safe)) (##structure? _h71546_)) - (let ((__tmp74422 + (lambda (_h71528_ _key71529_ _default71530_) + (let ((_h71532_ + (if (and (let () (declare (not safe)) (##structure? _h71528_)) + (let ((__tmp74404 (let () (declare (not safe)) - (##structure-type _h71546_)))) + (##structure-type _h71528_)))) (declare (not safe)) - (eq? __tmp74422 HashTable::t))) - _h71546_ + (eq? __tmp74404 HashTable::t))) + _h71528_ (let () (declare (not safe)) - (cast HashTable::interface _h71546_))))) + (cast HashTable::interface _h71528_))))) (declare (not safe)) - (&hash-ref__% _h71550_ _key71547_ _default71548_)))) + (&hash-ref__% _h71532_ _key71529_ _default71530_)))) (define hash-ref__0 - (lambda (_h71555_ _key71556_) - (let ((_default71558_ (macro-absent-obj))) + (lambda (_h71537_ _key71538_) + (let ((_default71540_ (macro-absent-obj))) (declare (not safe)) - (hash-ref__% _h71555_ _key71556_ _default71558_)))) + (hash-ref__% _h71537_ _key71538_ _default71540_)))) (define hash-ref - (lambda _g74424_ - (let ((_g74423_ (let () (declare (not safe)) (##length _g74424_)))) - (cond ((let () (declare (not safe)) (##fx= _g74423_ 2)) - (apply (lambda (_h71555_ _key71556_) + (lambda _g74406_ + (let ((_g74405_ (let () (declare (not safe)) (##length _g74406_)))) + (cond ((let () (declare (not safe)) (##fx= _g74405_ 2)) + (apply (lambda (_h71537_ _key71538_) (let () (declare (not safe)) - (hash-ref__0 _h71555_ _key71556_))) - _g74424_)) - ((let () (declare (not safe)) (##fx= _g74423_ 3)) - (apply (lambda (_h71560_ _key71561_ _default71562_) + (hash-ref__0 _h71537_ _key71538_))) + _g74406_)) + ((let () (declare (not safe)) (##fx= _g74405_ 3)) + (apply (lambda (_h71542_ _key71543_ _default71544_) (let () (declare (not safe)) - (hash-ref__% _h71560_ _key71561_ _default71562_))) - _g74424_)) + (hash-ref__% _h71542_ _key71543_ _default71544_))) + _g74406_)) (else (##raise-wrong-number-of-arguments-exception hash-ref - _g74424_)))))) + _g74406_)))))) (define &hash-ref__% - (lambda (_h71527_ _key71528_ _default71529_) - (let ((_result71531_ + (lambda (_h71509_ _key71510_ _default71511_) + (let ((_result71513_ (let () (declare (not safe)) - (&HashTable-ref _h71527_ _key71528_ _default71529_)))) - (if (let ((__tmp74425 (macro-absent-obj))) + (&HashTable-ref _h71509_ _key71510_ _default71511_)))) + (if (let ((__tmp74407 (macro-absent-obj))) (declare (not safe)) - (eq? _result71531_ __tmp74425)) + (eq? _result71513_ __tmp74407)) (let () (declare (not safe)) (raise-unbound-key-error 'hash-ref '"unknown hash key" 'hash: - _h71527_ + _h71509_ 'key: - _key71528_)) - _result71531_)))) + _key71510_)) + _result71513_)))) (define &hash-ref__0 - (lambda (_h71536_ _key71537_) - (let ((_default71539_ (macro-absent-obj))) + (lambda (_h71518_ _key71519_) + (let ((_default71521_ (macro-absent-obj))) (declare (not safe)) - (&hash-ref__% _h71536_ _key71537_ _default71539_)))) + (&hash-ref__% _h71518_ _key71519_ _default71521_)))) (define &hash-ref - (lambda _g74427_ - (let ((_g74426_ (let () (declare (not safe)) (##length _g74427_)))) - (cond ((let () (declare (not safe)) (##fx= _g74426_ 2)) - (apply (lambda (_h71536_ _key71537_) + (lambda _g74409_ + (let ((_g74408_ (let () (declare (not safe)) (##length _g74409_)))) + (cond ((let () (declare (not safe)) (##fx= _g74408_ 2)) + (apply (lambda (_h71518_ _key71519_) (let () (declare (not safe)) - (&hash-ref__0 _h71536_ _key71537_))) - _g74427_)) - ((let () (declare (not safe)) (##fx= _g74426_ 3)) - (apply (lambda (_h71541_ _key71542_ _default71543_) + (&hash-ref__0 _h71518_ _key71519_))) + _g74409_)) + ((let () (declare (not safe)) (##fx= _g74408_ 3)) + (apply (lambda (_h71523_ _key71524_ _default71525_) (let () (declare (not safe)) - (&hash-ref__% _h71541_ _key71542_ _default71543_))) - _g74427_)) + (&hash-ref__% _h71523_ _key71524_ _default71525_))) + _g74409_)) (else (##raise-wrong-number-of-arguments-exception &hash-ref - _g74427_)))))) + _g74409_)))))) (define hash-get - (lambda (_h71521_ _key71522_) - (let ((_h71524_ - (if (and (let () (declare (not safe)) (##structure? _h71521_)) - (let ((__tmp74428 + (lambda (_h71503_ _key71504_) + (let ((_h71506_ + (if (and (let () (declare (not safe)) (##structure? _h71503_)) + (let ((__tmp74410 (let () (declare (not safe)) - (##structure-type _h71521_)))) + (##structure-type _h71503_)))) (declare (not safe)) - (eq? __tmp74428 HashTable::t))) - _h71521_ + (eq? __tmp74410 HashTable::t))) + _h71503_ (let () (declare (not safe)) - (cast HashTable::interface _h71521_))))) + (cast HashTable::interface _h71503_))))) (declare (not safe)) - (&hash-get _h71524_ _key71522_)))) + (&hash-get _h71506_ _key71504_)))) (define &hash-get - (lambda (_h71518_ _key71519_) + (lambda (_h71500_ _key71501_) (let () (declare (not safe)) - (&HashTable-ref _h71518_ _key71519_ '#f)))) + (&HashTable-ref _h71500_ _key71501_ '#f)))) (define hash-put! - (lambda (_h71512_ _key71513_ _value71514_) - (let ((_h71516_ - (if (and (let () (declare (not safe)) (##structure? _h71512_)) - (let ((__tmp74429 + (lambda (_h71494_ _key71495_ _value71496_) + (let ((_h71498_ + (if (and (let () (declare (not safe)) (##structure? _h71494_)) + (let ((__tmp74411 (let () (declare (not safe)) - (##structure-type _h71512_)))) + (##structure-type _h71494_)))) (declare (not safe)) - (eq? __tmp74429 HashTable::t))) - _h71512_ + (eq? __tmp74411 HashTable::t))) + _h71494_ (let () (declare (not safe)) - (cast HashTable::interface _h71512_))))) + (cast HashTable::interface _h71494_))))) (declare (not safe)) - (&HashTable-set! _h71516_ _key71513_ _value71514_)))) + (&HashTable-set! _h71498_ _key71495_ _value71496_)))) (define &hash-put! - (lambda (_h71508_ _key71509_ _value71510_) + (lambda (_h71490_ _key71491_ _value71492_) (let () (declare (not safe)) - (&HashTable-set! _h71508_ _key71509_ _value71510_)))) + (&HashTable-set! _h71490_ _key71491_ _value71492_)))) (define hash-update!__% - (lambda (_h71487_ _key71488_ _update71489_ _default71490_) - (let ((_h71492_ - (if (and (let () (declare (not safe)) (##structure? _h71487_)) - (let ((__tmp74430 + (lambda (_h71469_ _key71470_ _update71471_ _default71472_) + (let ((_h71474_ + (if (and (let () (declare (not safe)) (##structure? _h71469_)) + (let ((__tmp74412 (let () (declare (not safe)) - (##structure-type _h71487_)))) + (##structure-type _h71469_)))) (declare (not safe)) - (eq? __tmp74430 HashTable::t))) - _h71487_ + (eq? __tmp74412 HashTable::t))) + _h71469_ (let () (declare (not safe)) - (cast HashTable::interface _h71487_))))) + (cast HashTable::interface _h71469_))))) (declare (not safe)) (&HashTable-update! - _h71492_ - _key71488_ - _update71489_ - _default71490_)))) + _h71474_ + _key71470_ + _update71471_ + _default71472_)))) (define hash-update!__0 - (lambda (_h71497_ _key71498_ _update71499_) - (let ((_default71501_ '#!void)) + (lambda (_h71479_ _key71480_ _update71481_) + (let ((_default71483_ '#!void)) (declare (not safe)) - (hash-update!__% _h71497_ _key71498_ _update71499_ _default71501_)))) + (hash-update!__% _h71479_ _key71480_ _update71481_ _default71483_)))) (define hash-update! - (lambda _g74432_ - (let ((_g74431_ (let () (declare (not safe)) (##length _g74432_)))) - (cond ((let () (declare (not safe)) (##fx= _g74431_ 3)) - (apply (lambda (_h71497_ _key71498_ _update71499_) + (lambda _g74414_ + (let ((_g74413_ (let () (declare (not safe)) (##length _g74414_)))) + (cond ((let () (declare (not safe)) (##fx= _g74413_ 3)) + (apply (lambda (_h71479_ _key71480_ _update71481_) (let () (declare (not safe)) (hash-update!__0 - _h71497_ - _key71498_ - _update71499_))) - _g74432_)) - ((let () (declare (not safe)) (##fx= _g74431_ 4)) - (apply (lambda (_h71503_ - _key71504_ - _update71505_ - _default71506_) + _h71479_ + _key71480_ + _update71481_))) + _g74414_)) + ((let () (declare (not safe)) (##fx= _g74413_ 4)) + (apply (lambda (_h71485_ + _key71486_ + _update71487_ + _default71488_) (let () (declare (not safe)) (hash-update!__% - _h71503_ - _key71504_ - _update71505_ - _default71506_))) - _g74432_)) + _h71485_ + _key71486_ + _update71487_ + _default71488_))) + _g74414_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g74432_)))))) + _g74414_)))))) (define &hash-update!__% - (lambda (_h71467_ _key71468_ _update71469_ _default71470_) + (lambda (_h71449_ _key71450_ _update71451_ _default71452_) (let () (declare (not safe)) (&HashTable-update! - _h71467_ - _key71468_ - _update71469_ - _default71470_)))) + _h71449_ + _key71450_ + _update71451_ + _default71452_)))) (define &hash-update!__0 - (lambda (_h71475_ _key71476_ _update71477_) - (let ((_default71479_ '#!void)) + (lambda (_h71457_ _key71458_ _update71459_) + (let ((_default71461_ '#!void)) (declare (not safe)) (&HashTable-update! - _h71475_ - _key71476_ - _update71477_ - _default71479_)))) + _h71457_ + _key71458_ + _update71459_ + _default71461_)))) (define &hash-update! - (lambda _g74434_ - (let ((_g74433_ (let () (declare (not safe)) (##length _g74434_)))) - (cond ((let () (declare (not safe)) (##fx= _g74433_ 3)) - (apply (lambda (_h71475_ _key71476_ _update71477_) + (lambda _g74416_ + (let ((_g74415_ (let () (declare (not safe)) (##length _g74416_)))) + (cond ((let () (declare (not safe)) (##fx= _g74415_ 3)) + (apply (lambda (_h71457_ _key71458_ _update71459_) (let () (declare (not safe)) (&hash-update!__0 - _h71475_ - _key71476_ - _update71477_))) - _g74434_)) - ((let () (declare (not safe)) (##fx= _g74433_ 4)) - (apply (lambda (_h71481_ - _key71482_ - _update71483_ - _default71484_) + _h71457_ + _key71458_ + _update71459_))) + _g74416_)) + ((let () (declare (not safe)) (##fx= _g74415_ 4)) + (apply (lambda (_h71463_ + _key71464_ + _update71465_ + _default71466_) (let () (declare (not safe)) (&HashTable-update! - _h71481_ - _key71482_ - _update71483_ - _default71484_))) - _g74434_)) + _h71463_ + _key71464_ + _update71465_ + _default71466_))) + _g74416_)) (else (##raise-wrong-number-of-arguments-exception &hash-update! - _g74434_)))))) + _g74416_)))))) (define hash-remove! - (lambda (_h71461_ _key71462_) - (let ((_h71464_ - (if (and (let () (declare (not safe)) (##structure? _h71461_)) - (let ((__tmp74435 + (lambda (_h71443_ _key71444_) + (let ((_h71446_ + (if (and (let () (declare (not safe)) (##structure? _h71443_)) + (let ((__tmp74417 (let () (declare (not safe)) - (##structure-type _h71461_)))) + (##structure-type _h71443_)))) (declare (not safe)) - (eq? __tmp74435 HashTable::t))) - _h71461_ + (eq? __tmp74417 HashTable::t))) + _h71443_ (let () (declare (not safe)) - (cast HashTable::interface _h71461_))))) + (cast HashTable::interface _h71443_))))) (declare (not safe)) - (&HashTable-delete! _h71464_ _key71462_)))) + (&HashTable-delete! _h71446_ _key71444_)))) (define &hash-remove! - (lambda (_h71458_ _key71459_) + (lambda (_h71440_ _key71441_) (let () (declare (not safe)) - (&HashTable-delete! _h71458_ _key71459_)))) + (&HashTable-delete! _h71440_ _key71441_)))) (define hash-key? - (lambda (_h71453_ _k71454_) - (let ((_h71456_ - (if (and (let () (declare (not safe)) (##structure? _h71453_)) - (let ((__tmp74436 + (lambda (_h71435_ _k71436_) + (let ((_h71438_ + (if (and (let () (declare (not safe)) (##structure? _h71435_)) + (let ((__tmp74418 (let () (declare (not safe)) - (##structure-type _h71453_)))) + (##structure-type _h71435_)))) (declare (not safe)) - (eq? __tmp74436 HashTable::t))) - _h71453_ + (eq? __tmp74418 HashTable::t))) + _h71435_ (let () (declare (not safe)) - (cast HashTable::interface _h71453_))))) + (cast HashTable::interface _h71435_))))) (declare (not safe)) - (&hash-key? _h71456_ _k71454_)))) + (&hash-key? _h71438_ _k71436_)))) (define &hash-key? - (lambda (_h71450_ _k71451_) - (let ((__tmp74437 - (let ((__tmp74438 + (lambda (_h71432_ _k71433_) + (let ((__tmp74419 + (let ((__tmp74420 (let () (declare (not safe)) - (&HashTable-ref _h71450_ _k71451_ absent-value)))) + (&HashTable-ref _h71432_ _k71433_ absent-value)))) (declare (not safe)) - (eq? __tmp74438 absent-value)))) + (eq? __tmp74420 absent-value)))) (declare (not safe)) - (not __tmp74437)))) + (not __tmp74419)))) (define hash->list - (lambda (_h71446_) - (let ((_h71448_ - (if (and (let () (declare (not safe)) (##structure? _h71446_)) - (let ((__tmp74439 + (lambda (_h71428_) + (let ((_h71430_ + (if (and (let () (declare (not safe)) (##structure? _h71428_)) + (let ((__tmp74421 (let () (declare (not safe)) - (##structure-type _h71446_)))) + (##structure-type _h71428_)))) (declare (not safe)) - (eq? __tmp74439 HashTable::t))) - _h71446_ + (eq? __tmp74421 HashTable::t))) + _h71428_ (let () (declare (not safe)) - (cast HashTable::interface _h71446_))))) + (cast HashTable::interface _h71428_))))) (declare (not safe)) - (&hash->list _h71448_)))) + (&hash->list _h71430_)))) (define &hash->list - (lambda (_h71439_) - (let ((_lst71441_ '())) - (let ((__tmp74440 - (lambda (_k71443_ _v71444_) - (set! _lst71441_ - (let ((__tmp74441 + (lambda (_h71421_) + (let ((_lst71423_ '())) + (let ((__tmp74422 + (lambda (_k71425_ _v71426_) + (set! _lst71423_ + (let ((__tmp74423 (let () (declare (not safe)) - (cons _k71443_ _v71444_)))) + (cons _k71425_ _v71426_)))) (declare (not safe)) - (cons __tmp74441 _lst71441_)))))) + (cons __tmp74423 _lst71423_)))))) (declare (not safe)) - (&HashTable-for-each _h71439_ __tmp74440)) - _lst71441_))) + (&HashTable-for-each _h71421_ __tmp74422)) + _lst71423_))) (define hash->plist - (lambda (_h71435_) - (let ((_h71437_ - (if (and (let () (declare (not safe)) (##structure? _h71435_)) - (let ((__tmp74442 + (lambda (_h71417_) + (let ((_h71419_ + (if (and (let () (declare (not safe)) (##structure? _h71417_)) + (let ((__tmp74424 (let () (declare (not safe)) - (##structure-type _h71435_)))) + (##structure-type _h71417_)))) (declare (not safe)) - (eq? __tmp74442 HashTable::t))) - _h71435_ + (eq? __tmp74424 HashTable::t))) + _h71417_ (let () (declare (not safe)) - (cast HashTable::interface _h71435_))))) + (cast HashTable::interface _h71417_))))) (declare (not safe)) - (&hash->plist _h71437_)))) + (&hash->plist _h71419_)))) (define &hash->plist - (lambda (_h71428_) - (let ((_lst71430_ '())) - (let ((__tmp74443 - (lambda (_k71432_ _v71433_) - (set! _lst71430_ - (let ((__tmp74444 + (lambda (_h71410_) + (let ((_lst71412_ '())) + (let ((__tmp74425 + (lambda (_k71414_ _v71415_) + (set! _lst71412_ + (let ((__tmp74426 (let () (declare (not safe)) - (cons _v71433_ _lst71430_)))) + (cons _v71415_ _lst71412_)))) (declare (not safe)) - (cons _k71432_ __tmp74444)))))) + (cons _k71414_ __tmp74426)))))) (declare (not safe)) - (&HashTable-for-each _h71428_ __tmp74443)) - _lst71430_))) + (&HashTable-for-each _h71410_ __tmp74425)) + _lst71412_))) (define hash-for-each - (lambda (_proc71425_ _h71426_) + (lambda (_proc71407_ _h71408_) (let () (declare (not safe)) - (HashTable-for-each _h71426_ _proc71425_)))) + (HashTable-for-each _h71408_ _proc71407_)))) (define hash-map - (lambda (_proc71417_ _h71418_) - (let ((_result71420_ '())) - (let ((__tmp74445 - (lambda (_k71422_ _v71423_) - (set! _result71420_ - (let ((__tmp74446 (_proc71417_ _k71422_ _v71423_))) + (lambda (_proc71399_ _h71400_) + (let ((_result71402_ '())) + (let ((__tmp74427 + (lambda (_k71404_ _v71405_) + (set! _result71402_ + (let ((__tmp74428 (_proc71399_ _k71404_ _v71405_))) (declare (not safe)) - (cons __tmp74446 _result71420_)))))) + (cons __tmp74428 _result71402_)))))) (declare (not safe)) - (HashTable-for-each _h71418_ __tmp74445)) - _result71420_))) + (HashTable-for-each _h71400_ __tmp74427)) + _result71402_))) (define hash-fold - (lambda (_proc71408_ _iv71409_ _h71410_) - (let ((_result71412_ _iv71409_)) - (let ((__tmp74447 - (lambda (_k71414_ _v71415_) - (set! _result71412_ - (_proc71408_ _k71414_ _v71415_ _result71412_))))) + (lambda (_proc71390_ _iv71391_ _h71392_) + (let ((_result71394_ _iv71391_)) + (let ((__tmp74429 + (lambda (_k71396_ _v71397_) + (set! _result71394_ + (_proc71390_ _k71396_ _v71397_ _result71394_))))) (declare (not safe)) - (HashTable-for-each _h71410_ __tmp74447)) - _result71412_))) + (HashTable-for-each _h71392_ __tmp74429)) + _result71394_))) (define hash-find__% - (lambda (_proc71384_ _h71385_ _default-value71386_) - (call/cc (lambda (_return71388_) - (let ((__tmp74448 - (lambda (_k71390_ _v71391_) - (let ((_$e71393_ (_proc71384_ _k71390_ _v71391_))) - (if _$e71393_ - (_return71388_ _$e71393_) + (lambda (_proc71366_ _h71367_ _default-value71368_) + (call/cc (lambda (_return71370_) + (let ((__tmp74430 + (lambda (_k71372_ _v71373_) + (let ((_$e71375_ (_proc71366_ _k71372_ _v71373_))) + (if _$e71375_ + (_return71370_ _$e71375_) '#!void))))) (declare (not safe)) - (HashTable-for-each _h71385_ __tmp74448)) - _default-value71386_)))) + (HashTable-for-each _h71367_ __tmp74430)) + _default-value71368_)))) (define hash-find__0 - (lambda (_proc71399_ _h71400_) - (let ((_default-value71402_ '#f)) + (lambda (_proc71381_ _h71382_) + (let ((_default-value71384_ '#f)) (declare (not safe)) - (hash-find__% _proc71399_ _h71400_ _default-value71402_)))) + (hash-find__% _proc71381_ _h71382_ _default-value71384_)))) (define hash-find - (lambda _g74450_ - (let ((_g74449_ (let () (declare (not safe)) (##length _g74450_)))) - (cond ((let () (declare (not safe)) (##fx= _g74449_ 2)) - (apply (lambda (_proc71399_ _h71400_) + (lambda _g74432_ + (let ((_g74431_ (let () (declare (not safe)) (##length _g74432_)))) + (cond ((let () (declare (not safe)) (##fx= _g74431_ 2)) + (apply (lambda (_proc71381_ _h71382_) (let () (declare (not safe)) - (hash-find__0 _proc71399_ _h71400_))) - _g74450_)) - ((let () (declare (not safe)) (##fx= _g74449_ 3)) - (apply (lambda (_proc71404_ _h71405_ _default-value71406_) + (hash-find__0 _proc71381_ _h71382_))) + _g74432_)) + ((let () (declare (not safe)) (##fx= _g74431_ 3)) + (apply (lambda (_proc71386_ _h71387_ _default-value71388_) (let () (declare (not safe)) (hash-find__% - _proc71404_ - _h71405_ - _default-value71406_))) - _g74450_)) + _proc71386_ + _h71387_ + _default-value71388_))) + _g74432_)) (else (##raise-wrong-number-of-arguments-exception hash-find - _g74450_)))))) + _g74432_)))))) (define hash-keys - (lambda (_h71379_) - (let ((_h71381_ - (if (and (let () (declare (not safe)) (##structure? _h71379_)) - (let ((__tmp74451 + (lambda (_h71361_) + (let ((_h71363_ + (if (and (let () (declare (not safe)) (##structure? _h71361_)) + (let ((__tmp74433 (let () (declare (not safe)) - (##structure-type _h71379_)))) + (##structure-type _h71361_)))) (declare (not safe)) - (eq? __tmp74451 HashTable::t))) - _h71379_ + (eq? __tmp74433 HashTable::t))) + _h71361_ (let () (declare (not safe)) - (cast HashTable::interface _h71379_))))) + (cast HashTable::interface _h71361_))))) (declare (not safe)) - (&hash-keys _h71381_)))) + (&hash-keys _h71363_)))) (define &hash-keys - (lambda (_h71372_) - (let ((_result71374_ '())) - (let ((__tmp74452 - (lambda (_k71376_ _v71377_) - (set! _result71374_ + (lambda (_h71354_) + (let ((_result71356_ '())) + (let ((__tmp74434 + (lambda (_k71358_ _v71359_) + (set! _result71356_ (let () (declare (not safe)) - (cons _k71376_ _result71374_)))))) + (cons _k71358_ _result71356_)))))) (declare (not safe)) - (&HashTable-for-each _h71372_ __tmp74452)) - _result71374_))) + (&HashTable-for-each _h71354_ __tmp74434)) + _result71356_))) (define hash-values - (lambda (_h71368_) - (let ((_h71370_ - (if (and (let () (declare (not safe)) (##structure? _h71368_)) - (let ((__tmp74453 + (lambda (_h71350_) + (let ((_h71352_ + (if (and (let () (declare (not safe)) (##structure? _h71350_)) + (let ((__tmp74435 (let () (declare (not safe)) - (##structure-type _h71368_)))) + (##structure-type _h71350_)))) (declare (not safe)) - (eq? __tmp74453 HashTable::t))) - _h71368_ + (eq? __tmp74435 HashTable::t))) + _h71350_ (let () (declare (not safe)) - (cast HashTable::interface _h71368_))))) + (cast HashTable::interface _h71350_))))) (declare (not safe)) - (&hash-values _h71370_)))) + (&hash-values _h71352_)))) (define &hash-values - (lambda (_h71361_) - (let ((_result71363_ '())) - (let ((__tmp74454 - (lambda (_k71365_ _v71366_) - (set! _result71363_ + (lambda (_h71343_) + (let ((_result71345_ '())) + (let ((__tmp74436 + (lambda (_k71347_ _v71348_) + (set! _result71345_ (let () (declare (not safe)) - (cons _v71366_ _result71363_)))))) + (cons _v71348_ _result71345_)))))) (declare (not safe)) - (&HashTable-for-each _h71361_ __tmp74454)) - _result71363_))) + (&HashTable-for-each _h71343_ __tmp74436)) + _result71345_))) (define hash-copy - (lambda (_h71357_) - (let ((_h71359_ - (if (and (let () (declare (not safe)) (##structure? _h71357_)) - (let ((__tmp74455 + (lambda (_h71339_) + (let ((_h71341_ + (if (and (let () (declare (not safe)) (##structure? _h71339_)) + (let ((__tmp74437 (let () (declare (not safe)) - (##structure-type _h71357_)))) + (##structure-type _h71339_)))) (declare (not safe)) - (eq? __tmp74455 HashTable::t))) - _h71357_ + (eq? __tmp74437 HashTable::t))) + _h71339_ (let () (declare (not safe)) - (cast HashTable::interface _h71357_))))) + (cast HashTable::interface _h71339_))))) (declare (not safe)) - (&HashTable-copy _h71359_)))) + (&HashTable-copy _h71341_)))) (define &hash-copy - (lambda (_h71355_) - (let () (declare (not safe)) (&HashTable-copy _h71355_)))) + (lambda (_h71337_) + (let () (declare (not safe)) (&HashTable-copy _h71337_)))) (define hash-merge - (lambda (_h71350_ . _rest71351_) - (let ((_copy71353_ (let () (declare (not safe)) (hash-copy _h71350_)))) - (apply hash-merge! _copy71353_ _rest71351_) - _copy71353_))) + (lambda (_h71332_ . _rest71333_) + (let ((_copy71335_ (let () (declare (not safe)) (hash-copy _h71332_)))) + (apply hash-merge! _copy71335_ _rest71333_) + _copy71335_))) (define hash-merge! - (lambda (_h71340_ . _rest71341_) - (let ((_h71343_ + (lambda (_h71322_ . _rest71323_) + (let ((_h71325_ (let () (declare (not safe)) - (cast HashTable::interface _h71340_)))) + (cast HashTable::interface _h71322_)))) (for-each - (lambda (_hr71345_) - (let ((__tmp74456 - (lambda (_k71347_ _v71348_) + (lambda (_hr71327_) + (let ((__tmp74438 + (lambda (_k71329_ _v71330_) (if (let () (declare (not safe)) - (&hash-key? _h71343_ _k71347_)) + (&hash-key? _h71325_ _k71329_)) '#!void (let () (declare (not safe)) - (&HashTable-set! _h71343_ _k71347_ _v71348_)))))) + (&HashTable-set! _h71325_ _k71329_ _v71330_)))))) (declare (not safe)) - (hash-for-each __tmp74456 _hr71345_))) - _rest71341_) - _h71343_))))) + (hash-for-each __tmp74438 _hr71327_))) + _rest71323_) + _h71325_))))) diff --git a/src/bootstrap/gerbil/runtime/hash~1.scm b/src/bootstrap/gerbil/runtime/hash~1.scm index e7112d9f6..f9187d64f 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]#_g74459_| + (define |[1]#_g74441_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g74461_| + (define |[1]#_g74443_| (##structure gx#syntax-quote::t 'UnboundKeyError::t #f (gx#current-expander-context) '())) - (define |[1]#_g74463_| + (define |[1]#_g74445_| (##structure gx#syntax-quote::t 'make-UnboundKeyError #f (gx#current-expander-context) '())) - (define |[1]#_g74465_| + (define |[1]#_g74447_| (##structure gx#syntax-quote::t 'UnboundKeyError? #f (gx#current-expander-context) '())) - (define |[1]#_g74472_| + (define |[1]#_g74454_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g74475_| + (define |[1]#_g74457_| (##structure gx#syntax-quote::t 'UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g74478_| + (define |[1]#_g74460_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g74481_| + (define |[1]#_g74463_| (##structure gx#syntax-quote::t 'UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g74488_| + (define |[1]#_g74470_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74491_| + (define |[1]#_g74473_| (##structure gx#syntax-quote::t 'UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74494_| + (define |[1]#_g74476_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74497_| + (define |[1]#_g74479_| (##structure gx#syntax-quote::t 'UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74504_| + (define |[1]#_g74486_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g74507_| + (define |[1]#_g74489_| (##structure gx#syntax-quote::t '&UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g74510_| + (define |[1]#_g74492_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g74513_| + (define |[1]#_g74495_| (##structure gx#syntax-quote::t '&UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g74520_| + (define |[1]#_g74502_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74523_| + (define |[1]#_g74505_| (##structure gx#syntax-quote::t '&UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74526_| + (define |[1]#_g74508_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74529_| + (define |[1]#_g74511_| (##structure gx#syntax-quote::t '&UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74531_| + (define |[1]#_g74513_| (##structure gx#syntax-quote::t 'locked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g74533_| + (define |[1]#_g74515_| (##structure gx#syntax-quote::t 'make-locked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g74535_| + (define |[1]#_g74517_| (##structure gx#syntax-quote::t 'locked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g74540_| + (define |[1]#_g74522_| (##structure gx#syntax-quote::t 'locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g74543_| + (define |[1]#_g74525_| (##structure gx#syntax-quote::t 'locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g74548_| + (define |[1]#_g74530_| (##structure gx#syntax-quote::t 'locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74551_| + (define |[1]#_g74533_| (##structure gx#syntax-quote::t 'locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74556_| + (define |[1]#_g74538_| (##structure gx#syntax-quote::t '&locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g74559_| + (define |[1]#_g74541_| (##structure gx#syntax-quote::t '&locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g74564_| + (define |[1]#_g74546_| (##structure gx#syntax-quote::t '&locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74567_| + (define |[1]#_g74549_| (##structure gx#syntax-quote::t '&locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74569_| + (define |[1]#_g74551_| (##structure gx#syntax-quote::t 'checked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g74571_| + (define |[1]#_g74553_| (##structure gx#syntax-quote::t 'make-checked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g74573_| + (define |[1]#_g74555_| (##structure gx#syntax-quote::t 'checked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g74578_| + (define |[1]#_g74560_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g74581_| + (define |[1]#_g74563_| (##structure gx#syntax-quote::t 'checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g74586_| + (define |[1]#_g74568_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74589_| + (define |[1]#_g74571_| (##structure gx#syntax-quote::t 'checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74594_| + (define |[1]#_g74576_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g74597_| + (define |[1]#_g74579_| (##structure gx#syntax-quote::t '&checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g74602_| + (define |[1]#_g74584_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g74605_| + (define |[1]#_g74587_| (##structure gx#syntax-quote::t '&checked-hash-table-table-set! @@ -296,7 +296,7 @@ '())) (begin (define |[:0:]#UnboundKeyError| - (let ((__obj74319 + (let ((__obj74301 (let () (declare (not safe)) (##structure @@ -320,7 +320,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74319 + __obj74301 'gerbil/runtime/hash#UnboundKeyError::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -328,7 +328,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74319 + __obj74301 'UnboundKeyError '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -336,26 +336,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74319 + __obj74301 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74457 - (let ((__tmp74458 |[1]#_g74459_|)) + (let ((__tmp74439 + (let ((__tmp74440 |[1]#_g74441_|)) (declare (not safe)) - (cons __tmp74458 '())))) + (cons __tmp74440 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj74319 - __tmp74457 + __obj74301 + __tmp74439 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj74319 + __obj74301 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -363,7 +363,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74319 + __obj74301 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -371,7 +371,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74319 + __obj74301 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -379,178 +379,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74319 + __obj74301 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74460 |[1]#_g74461_|)) + (let ((__tmp74442 |[1]#_g74443_|)) (declare (not safe)) (##unchecked-structure-set! - __obj74319 - __tmp74460 + __obj74301 + __tmp74442 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74462 |[1]#_g74463_|)) + (let ((__tmp74444 |[1]#_g74445_|)) (declare (not safe)) (##unchecked-structure-set! - __obj74319 - __tmp74462 + __obj74301 + __tmp74444 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74464 |[1]#_g74465_|)) + (let ((__tmp74446 |[1]#_g74447_|)) (declare (not safe)) (##unchecked-structure-set! - __obj74319 - __tmp74464 + __obj74301 + __tmp74446 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74466 - (let ((__tmp74479 - (let ((__tmp74480 |[1]#_g74481_|)) + (let ((__tmp74448 + (let ((__tmp74461 + (let ((__tmp74462 |[1]#_g74463_|)) (declare (not safe)) - (cons 'message __tmp74480))) - (__tmp74467 - (let ((__tmp74476 - (let ((__tmp74477 |[1]#_g74478_|)) + (cons 'message __tmp74462))) + (__tmp74449 + (let ((__tmp74458 + (let ((__tmp74459 |[1]#_g74460_|)) (declare (not safe)) - (cons 'irritants __tmp74477))) - (__tmp74468 - (let ((__tmp74473 - (let ((__tmp74474 |[1]#_g74475_|)) + (cons 'irritants __tmp74459))) + (__tmp74450 + (let ((__tmp74455 + (let ((__tmp74456 |[1]#_g74457_|)) (declare (not safe)) - (cons 'where __tmp74474))) - (__tmp74469 - (let ((__tmp74470 - (let ((__tmp74471 |[1]#_g74472_|)) + (cons 'where __tmp74456))) + (__tmp74451 + (let ((__tmp74452 + (let ((__tmp74453 |[1]#_g74454_|)) (declare (not safe)) - (cons 'continuation __tmp74471)))) + (cons 'continuation __tmp74453)))) (declare (not safe)) - (cons __tmp74470 '())))) + (cons __tmp74452 '())))) (declare (not safe)) - (cons __tmp74473 __tmp74469)))) + (cons __tmp74455 __tmp74451)))) (declare (not safe)) - (cons __tmp74476 __tmp74468)))) + (cons __tmp74458 __tmp74450)))) (declare (not safe)) - (cons __tmp74479 __tmp74467)))) + (cons __tmp74461 __tmp74449)))) (declare (not safe)) (##unchecked-structure-set! - __obj74319 - __tmp74466 + __obj74301 + __tmp74448 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74482 - (let ((__tmp74495 - (let ((__tmp74496 |[1]#_g74497_|)) + (let ((__tmp74464 + (let ((__tmp74477 + (let ((__tmp74478 |[1]#_g74479_|)) (declare (not safe)) - (cons 'message __tmp74496))) - (__tmp74483 - (let ((__tmp74492 - (let ((__tmp74493 |[1]#_g74494_|)) + (cons 'message __tmp74478))) + (__tmp74465 + (let ((__tmp74474 + (let ((__tmp74475 |[1]#_g74476_|)) (declare (not safe)) - (cons 'irritants __tmp74493))) - (__tmp74484 - (let ((__tmp74489 - (let ((__tmp74490 |[1]#_g74491_|)) + (cons 'irritants __tmp74475))) + (__tmp74466 + (let ((__tmp74471 + (let ((__tmp74472 |[1]#_g74473_|)) (declare (not safe)) - (cons 'where __tmp74490))) - (__tmp74485 - (let ((__tmp74486 - (let ((__tmp74487 |[1]#_g74488_|)) + (cons 'where __tmp74472))) + (__tmp74467 + (let ((__tmp74468 + (let ((__tmp74469 |[1]#_g74470_|)) (declare (not safe)) - (cons 'continuation __tmp74487)))) + (cons 'continuation __tmp74469)))) (declare (not safe)) - (cons __tmp74486 '())))) + (cons __tmp74468 '())))) (declare (not safe)) - (cons __tmp74489 __tmp74485)))) + (cons __tmp74471 __tmp74467)))) (declare (not safe)) - (cons __tmp74492 __tmp74484)))) + (cons __tmp74474 __tmp74466)))) (declare (not safe)) - (cons __tmp74495 __tmp74483)))) + (cons __tmp74477 __tmp74465)))) (declare (not safe)) (##unchecked-structure-set! - __obj74319 - __tmp74482 + __obj74301 + __tmp74464 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74498 - (let ((__tmp74511 - (let ((__tmp74512 |[1]#_g74513_|)) + (let ((__tmp74480 + (let ((__tmp74493 + (let ((__tmp74494 |[1]#_g74495_|)) (declare (not safe)) - (cons 'message __tmp74512))) - (__tmp74499 - (let ((__tmp74508 - (let ((__tmp74509 |[1]#_g74510_|)) + (cons 'message __tmp74494))) + (__tmp74481 + (let ((__tmp74490 + (let ((__tmp74491 |[1]#_g74492_|)) (declare (not safe)) - (cons 'irritants __tmp74509))) - (__tmp74500 - (let ((__tmp74505 - (let ((__tmp74506 |[1]#_g74507_|)) + (cons 'irritants __tmp74491))) + (__tmp74482 + (let ((__tmp74487 + (let ((__tmp74488 |[1]#_g74489_|)) (declare (not safe)) - (cons 'where __tmp74506))) - (__tmp74501 - (let ((__tmp74502 - (let ((__tmp74503 |[1]#_g74504_|)) + (cons 'where __tmp74488))) + (__tmp74483 + (let ((__tmp74484 + (let ((__tmp74485 |[1]#_g74486_|)) (declare (not safe)) - (cons 'continuation __tmp74503)))) + (cons 'continuation __tmp74485)))) (declare (not safe)) - (cons __tmp74502 '())))) + (cons __tmp74484 '())))) (declare (not safe)) - (cons __tmp74505 __tmp74501)))) + (cons __tmp74487 __tmp74483)))) (declare (not safe)) - (cons __tmp74508 __tmp74500)))) + (cons __tmp74490 __tmp74482)))) (declare (not safe)) - (cons __tmp74511 __tmp74499)))) + (cons __tmp74493 __tmp74481)))) (declare (not safe)) (##unchecked-structure-set! - __obj74319 - __tmp74498 + __obj74301 + __tmp74480 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74514 - (let ((__tmp74527 - (let ((__tmp74528 |[1]#_g74529_|)) + (let ((__tmp74496 + (let ((__tmp74509 + (let ((__tmp74510 |[1]#_g74511_|)) (declare (not safe)) - (cons 'message __tmp74528))) - (__tmp74515 - (let ((__tmp74524 - (let ((__tmp74525 |[1]#_g74526_|)) + (cons 'message __tmp74510))) + (__tmp74497 + (let ((__tmp74506 + (let ((__tmp74507 |[1]#_g74508_|)) (declare (not safe)) - (cons 'irritants __tmp74525))) - (__tmp74516 - (let ((__tmp74521 - (let ((__tmp74522 |[1]#_g74523_|)) + (cons 'irritants __tmp74507))) + (__tmp74498 + (let ((__tmp74503 + (let ((__tmp74504 |[1]#_g74505_|)) (declare (not safe)) - (cons 'where __tmp74522))) - (__tmp74517 - (let ((__tmp74518 - (let ((__tmp74519 |[1]#_g74520_|)) + (cons 'where __tmp74504))) + (__tmp74499 + (let ((__tmp74500 + (let ((__tmp74501 |[1]#_g74502_|)) (declare (not safe)) - (cons 'continuation __tmp74519)))) + (cons 'continuation __tmp74501)))) (declare (not safe)) - (cons __tmp74518 '())))) + (cons __tmp74500 '())))) (declare (not safe)) - (cons __tmp74521 __tmp74517)))) + (cons __tmp74503 __tmp74499)))) (declare (not safe)) - (cons __tmp74524 __tmp74516)))) + (cons __tmp74506 __tmp74498)))) (declare (not safe)) - (cons __tmp74527 __tmp74515)))) + (cons __tmp74509 __tmp74497)))) (declare (not safe)) (##unchecked-structure-set! - __obj74319 - __tmp74514 + __obj74301 + __tmp74496 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj74319)) + __obj74301)) (define |[:0:]#locked-hash-table| - (let ((__obj74321 + (let ((__obj74303 (let () (declare (not safe)) (##structure @@ -574,7 +574,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74321 + __obj74303 'gerbil/runtime/hash#locked-hash-table::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -582,7 +582,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74321 + __obj74303 'locked-hash-table '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -590,7 +590,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74321 + __obj74303 '(table lock) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -598,7 +598,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74321 + __obj74303 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -606,7 +606,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74321 + __obj74303 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -614,7 +614,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74321 + __obj74303 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -622,7 +622,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74321 + __obj74303 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -630,122 +630,122 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74321 + __obj74303 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74530 |[1]#_g74531_|)) + (let ((__tmp74512 |[1]#_g74513_|)) (declare (not safe)) (##unchecked-structure-set! - __obj74321 - __tmp74530 + __obj74303 + __tmp74512 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74532 |[1]#_g74533_|)) + (let ((__tmp74514 |[1]#_g74515_|)) (declare (not safe)) (##unchecked-structure-set! - __obj74321 - __tmp74532 + __obj74303 + __tmp74514 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74534 |[1]#_g74535_|)) + (let ((__tmp74516 |[1]#_g74517_|)) (declare (not safe)) (##unchecked-structure-set! - __obj74321 - __tmp74534 + __obj74303 + __tmp74516 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74536 - (let ((__tmp74541 - (let ((__tmp74542 |[1]#_g74543_|)) + (let ((__tmp74518 + (let ((__tmp74523 + (let ((__tmp74524 |[1]#_g74525_|)) (declare (not safe)) - (cons 'table __tmp74542))) - (__tmp74537 - (let ((__tmp74538 - (let ((__tmp74539 |[1]#_g74540_|)) + (cons 'table __tmp74524))) + (__tmp74519 + (let ((__tmp74520 + (let ((__tmp74521 |[1]#_g74522_|)) (declare (not safe)) - (cons 'lock __tmp74539)))) + (cons 'lock __tmp74521)))) (declare (not safe)) - (cons __tmp74538 '())))) + (cons __tmp74520 '())))) (declare (not safe)) - (cons __tmp74541 __tmp74537)))) + (cons __tmp74523 __tmp74519)))) (declare (not safe)) (##unchecked-structure-set! - __obj74321 - __tmp74536 + __obj74303 + __tmp74518 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74544 - (let ((__tmp74549 - (let ((__tmp74550 |[1]#_g74551_|)) + (let ((__tmp74526 + (let ((__tmp74531 + (let ((__tmp74532 |[1]#_g74533_|)) (declare (not safe)) - (cons 'table __tmp74550))) - (__tmp74545 - (let ((__tmp74546 - (let ((__tmp74547 |[1]#_g74548_|)) + (cons 'table __tmp74532))) + (__tmp74527 + (let ((__tmp74528 + (let ((__tmp74529 |[1]#_g74530_|)) (declare (not safe)) - (cons 'lock __tmp74547)))) + (cons 'lock __tmp74529)))) (declare (not safe)) - (cons __tmp74546 '())))) + (cons __tmp74528 '())))) (declare (not safe)) - (cons __tmp74549 __tmp74545)))) + (cons __tmp74531 __tmp74527)))) (declare (not safe)) (##unchecked-structure-set! - __obj74321 - __tmp74544 + __obj74303 + __tmp74526 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74552 - (let ((__tmp74557 - (let ((__tmp74558 |[1]#_g74559_|)) + (let ((__tmp74534 + (let ((__tmp74539 + (let ((__tmp74540 |[1]#_g74541_|)) (declare (not safe)) - (cons 'table __tmp74558))) - (__tmp74553 - (let ((__tmp74554 - (let ((__tmp74555 |[1]#_g74556_|)) + (cons 'table __tmp74540))) + (__tmp74535 + (let ((__tmp74536 + (let ((__tmp74537 |[1]#_g74538_|)) (declare (not safe)) - (cons 'lock __tmp74555)))) + (cons 'lock __tmp74537)))) (declare (not safe)) - (cons __tmp74554 '())))) + (cons __tmp74536 '())))) (declare (not safe)) - (cons __tmp74557 __tmp74553)))) + (cons __tmp74539 __tmp74535)))) (declare (not safe)) (##unchecked-structure-set! - __obj74321 - __tmp74552 + __obj74303 + __tmp74534 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74560 - (let ((__tmp74565 - (let ((__tmp74566 |[1]#_g74567_|)) + (let ((__tmp74542 + (let ((__tmp74547 + (let ((__tmp74548 |[1]#_g74549_|)) (declare (not safe)) - (cons 'table __tmp74566))) - (__tmp74561 - (let ((__tmp74562 - (let ((__tmp74563 |[1]#_g74564_|)) + (cons 'table __tmp74548))) + (__tmp74543 + (let ((__tmp74544 + (let ((__tmp74545 |[1]#_g74546_|)) (declare (not safe)) - (cons 'lock __tmp74563)))) + (cons 'lock __tmp74545)))) (declare (not safe)) - (cons __tmp74562 '())))) + (cons __tmp74544 '())))) (declare (not safe)) - (cons __tmp74565 __tmp74561)))) + (cons __tmp74547 __tmp74543)))) (declare (not safe)) (##unchecked-structure-set! - __obj74321 - __tmp74560 + __obj74303 + __tmp74542 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj74321)) + __obj74303)) (define |[:0:]#checked-hash-table| - (let ((__obj74322 + (let ((__obj74304 (let () (declare (not safe)) (##structure @@ -769,7 +769,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74322 + __obj74304 'gerbil/runtime/hash#checked-hash-table::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -777,7 +777,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74322 + __obj74304 'checked-hash-table '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -785,7 +785,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74322 + __obj74304 '(table key-check) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -793,7 +793,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74322 + __obj74304 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -801,7 +801,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74322 + __obj74304 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -809,7 +809,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74322 + __obj74304 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -817,7 +817,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74322 + __obj74304 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -825,1290 +825,1290 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj74322 + __obj74304 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74568 |[1]#_g74569_|)) + (let ((__tmp74550 |[1]#_g74551_|)) (declare (not safe)) (##unchecked-structure-set! - __obj74322 - __tmp74568 + __obj74304 + __tmp74550 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74570 |[1]#_g74571_|)) + (let ((__tmp74552 |[1]#_g74553_|)) (declare (not safe)) (##unchecked-structure-set! - __obj74322 - __tmp74570 + __obj74304 + __tmp74552 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74572 |[1]#_g74573_|)) + (let ((__tmp74554 |[1]#_g74555_|)) (declare (not safe)) (##unchecked-structure-set! - __obj74322 - __tmp74572 + __obj74304 + __tmp74554 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74574 - (let ((__tmp74579 - (let ((__tmp74580 |[1]#_g74581_|)) + (let ((__tmp74556 + (let ((__tmp74561 + (let ((__tmp74562 |[1]#_g74563_|)) (declare (not safe)) - (cons 'table __tmp74580))) - (__tmp74575 - (let ((__tmp74576 - (let ((__tmp74577 |[1]#_g74578_|)) + (cons 'table __tmp74562))) + (__tmp74557 + (let ((__tmp74558 + (let ((__tmp74559 |[1]#_g74560_|)) (declare (not safe)) - (cons 'key-check __tmp74577)))) + (cons 'key-check __tmp74559)))) (declare (not safe)) - (cons __tmp74576 '())))) + (cons __tmp74558 '())))) (declare (not safe)) - (cons __tmp74579 __tmp74575)))) + (cons __tmp74561 __tmp74557)))) (declare (not safe)) (##unchecked-structure-set! - __obj74322 - __tmp74574 + __obj74304 + __tmp74556 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74582 - (let ((__tmp74587 - (let ((__tmp74588 |[1]#_g74589_|)) + (let ((__tmp74564 + (let ((__tmp74569 + (let ((__tmp74570 |[1]#_g74571_|)) (declare (not safe)) - (cons 'table __tmp74588))) - (__tmp74583 - (let ((__tmp74584 - (let ((__tmp74585 |[1]#_g74586_|)) + (cons 'table __tmp74570))) + (__tmp74565 + (let ((__tmp74566 + (let ((__tmp74567 |[1]#_g74568_|)) (declare (not safe)) - (cons 'key-check __tmp74585)))) + (cons 'key-check __tmp74567)))) (declare (not safe)) - (cons __tmp74584 '())))) + (cons __tmp74566 '())))) (declare (not safe)) - (cons __tmp74587 __tmp74583)))) + (cons __tmp74569 __tmp74565)))) (declare (not safe)) (##unchecked-structure-set! - __obj74322 - __tmp74582 + __obj74304 + __tmp74564 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74590 - (let ((__tmp74595 - (let ((__tmp74596 |[1]#_g74597_|)) + (let ((__tmp74572 + (let ((__tmp74577 + (let ((__tmp74578 |[1]#_g74579_|)) (declare (not safe)) - (cons 'table __tmp74596))) - (__tmp74591 - (let ((__tmp74592 - (let ((__tmp74593 |[1]#_g74594_|)) + (cons 'table __tmp74578))) + (__tmp74573 + (let ((__tmp74574 + (let ((__tmp74575 |[1]#_g74576_|)) (declare (not safe)) - (cons 'key-check __tmp74593)))) + (cons 'key-check __tmp74575)))) (declare (not safe)) - (cons __tmp74592 '())))) + (cons __tmp74574 '())))) (declare (not safe)) - (cons __tmp74595 __tmp74591)))) + (cons __tmp74577 __tmp74573)))) (declare (not safe)) (##unchecked-structure-set! - __obj74322 - __tmp74590 + __obj74304 + __tmp74572 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp74598 - (let ((__tmp74603 - (let ((__tmp74604 |[1]#_g74605_|)) + (let ((__tmp74580 + (let ((__tmp74585 + (let ((__tmp74586 |[1]#_g74587_|)) (declare (not safe)) - (cons 'table __tmp74604))) - (__tmp74599 - (let ((__tmp74600 - (let ((__tmp74601 |[1]#_g74602_|)) + (cons 'table __tmp74586))) + (__tmp74581 + (let ((__tmp74582 + (let ((__tmp74583 |[1]#_g74584_|)) (declare (not safe)) - (cons 'key-check __tmp74601)))) + (cons 'key-check __tmp74583)))) (declare (not safe)) - (cons __tmp74600 '())))) + (cons __tmp74582 '())))) (declare (not safe)) - (cons __tmp74603 __tmp74599)))) + (cons __tmp74585 __tmp74581)))) (declare (not safe)) (##unchecked-structure-set! - __obj74322 - __tmp74598 + __obj74304 + __tmp74580 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj74322)) + __obj74304)) (define |[:0:]#defhash-method| - (lambda (_stx70496_) - (let* ((_g7049970540_ - (lambda (_g7050070536_) + (lambda (_stx70478_) + (let* ((_g7048170522_ + (lambda (_g7048270518_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7050070536_))) - (_g7049870830_ - (lambda (_g7050070544_) - (if (gx#stx-pair? _g7050070544_) - (let ((_e7050770547_ (gx#syntax-e _g7050070544_))) - (let ((_hd7050670551_ + _g7048270518_))) + (_g7048070812_ + (lambda (_g7048270526_) + (if (gx#stx-pair? _g7048270526_) + (let ((_e7048970529_ (gx#syntax-e _g7048270526_))) + (let ((_hd7048870533_ (let () (declare (not safe)) - (##car _e7050770547_))) - (_tl7050570554_ + (##car _e7048970529_))) + (_tl7048770536_ (let () (declare (not safe)) - (##cdr _e7050770547_)))) - (if (gx#stx-pair? _tl7050570554_) - (let ((_e7051070557_ - (gx#syntax-e _tl7050570554_))) - (let ((_hd7050970561_ + (##cdr _e7048970529_)))) + (if (gx#stx-pair? _tl7048770536_) + (let ((_e7049270539_ + (gx#syntax-e _tl7048770536_))) + (let ((_hd7049170543_ (let () (declare (not safe)) - (##car _e7051070557_))) - (_tl7050870564_ + (##car _e7049270539_))) + (_tl7049070546_ (let () (declare (not safe)) - (##cdr _e7051070557_)))) - (if (gx#stx-pair? _hd7050970561_) - (let ((_e7051370567_ - (gx#syntax-e _hd7050970561_))) - (let ((_hd7051270571_ + (##cdr _e7049270539_)))) + (if (gx#stx-pair? _hd7049170543_) + (let ((_e7049570549_ + (gx#syntax-e _hd7049170543_))) + (let ((_hd7049470553_ (let () (declare (not safe)) - (##car _e7051370567_))) - (_tl7051170574_ + (##car _e7049570549_))) + (_tl7049370556_ (let () (declare (not safe)) - (##cdr _e7051370567_)))) - (if (gx#stx-pair? _tl7051170574_) - (let ((_e7051670577_ + (##cdr _e7049570549_)))) + (if (gx#stx-pair? _tl7049370556_) + (let ((_e7049870559_ (gx#syntax-e - _tl7051170574_))) - (let ((_hd7051570581_ + _tl7049370556_))) + (let ((_hd7049770563_ (let () (declare (not safe)) - (##car _e7051670577_))) - (_tl7051470584_ + (##car _e7049870559_))) + (_tl7049670566_ (let () (declare (not safe)) - (##cdr _e7051670577_)))) + (##cdr _e7049870559_)))) (if (gx#stx-pair/null? - _tl7051470584_) - (let ((_g74606_ + _tl7049670566_) + (let ((_g74588_ (gx#syntax-split-splice - _tl7051470584_ + _tl7049670566_ '0))) (begin - (let ((_g74607_ + (let ((_g74589_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g74606_) - (##vector-length _g74606_) + (if (##values? _g74588_) + (##vector-length _g74588_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g74607_ 2))) - (error "Context expects 2 values" _g74607_))) - (let ((_target7051770587_ + (if (not (let () (declare (not safe)) (##fx= _g74589_ 2))) + (error "Context expects 2 values" _g74589_))) + (let ((_target7049970569_ (let () (declare (not safe)) - (##vector-ref _g74606_ 0))) - (_tl7051970590_ + (##vector-ref _g74588_ 0))) + (_tl7050170572_ (let () (declare (not safe)) - (##vector-ref _g74606_ 1)))) - (if (gx#stx-null? _tl7051970590_) - (letrec ((_loop7052070593_ - (lambda (_hd7051870597_ _arg7052470600_) - (if (gx#stx-pair? _hd7051870597_) - (let ((_e7052170603_ - (gx#syntax-e _hd7051870597_))) - (let ((_lp-hd7052270607_ + (##vector-ref _g74588_ 1)))) + (if (gx#stx-null? _tl7050170572_) + (letrec ((_loop7050270575_ + (lambda (_hd7050070579_ _arg7050670582_) + (if (gx#stx-pair? _hd7050070579_) + (let ((_e7050370585_ + (gx#syntax-e _hd7050070579_))) + (let ((_lp-hd7050470589_ (let () (declare (not safe)) - (##car _e7052170603_))) - (_lp-tl7052370610_ + (##car _e7050370585_))) + (_lp-tl7050570592_ (let () (declare (not safe)) - (##cdr _e7052170603_)))) - (_loop7052070593_ - _lp-tl7052370610_ + (##cdr _e7050370585_)))) + (_loop7050270575_ + _lp-tl7050570592_ (let () (declare (not safe)) - (cons _lp-hd7052270607_ - _arg7052470600_))))) - (let ((_arg7052570613_ - (reverse _arg7052470600_))) + (cons _lp-hd7050470589_ + _arg7050670582_))))) + (let ((_arg7050770595_ + (reverse _arg7050670582_))) (if (gx#stx-pair/null? - _tl7050870564_) - (let ((_g74608_ + _tl7049070546_) + (let ((_g74590_ (gx#syntax-split-splice - _tl7050870564_ + _tl7049070546_ '0))) (begin - (let ((_g74609_ + (let ((_g74591_ (let () (declare (not safe)) (if (##values? - _g74608_) + _g74590_) (##vector-length - _g74608_) + _g74590_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g74609_ 2))) - (error "Context expects 2 values" _g74609_))) + (##fx= _g74591_ 2))) + (error "Context expects 2 values" _g74591_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target7052670617_ + (let ((_target7050870599_ (let () (declare (not safe)) (##vector-ref - _g74608_ + _g74590_ 0))) - (_tl7052870620_ + (_tl7051070602_ (let () (declare (not safe)) (##vector-ref - _g74608_ + _g74590_ 1)))) (if (gx#stx-null? - _tl7052870620_) - (letrec ((_loop7052970623_ + _tl7051070602_) + (letrec ((_loop7051170605_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd7052770627_ _body7053370630_) - (if (gx#stx-pair? _hd7052770627_) - (let ((_e7053070633_ - (gx#syntax-e _hd7052770627_))) - (let ((_lp-hd7053170637_ + (lambda (_hd7050970609_ _body7051570612_) + (if (gx#stx-pair? _hd7050970609_) + (let ((_e7051270615_ + (gx#syntax-e _hd7050970609_))) + (let ((_lp-hd7051370619_ (let () (declare (not safe)) - (##car _e7053070633_))) - (_lp-tl7053270640_ + (##car _e7051270615_))) + (_lp-tl7051470622_ (let () (declare (not safe)) - (##cdr _e7053070633_)))) - (_loop7052970623_ - _lp-tl7053270640_ + (##cdr _e7051270615_)))) + (_loop7051170605_ + _lp-tl7051470622_ (let () (declare (not safe)) - (cons _lp-hd7053170637_ - _body7053370630_))))) - (let ((_body7053470643_ - (reverse _body7053370630_))) - ((lambda (_L70647_ - _L70649_ - _L70650_ - _L70651_) - (let* ((_g7068070704_ - (lambda (_g7068170700_) + (cons _lp-hd7051370619_ + _body7051570612_))))) + (let ((_body7051670625_ + (reverse _body7051570612_))) + ((lambda (_L70629_ + _L70631_ + _L70632_ + _L70633_) + (let* ((_g7066270686_ + (lambda (_g7066370682_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7068170700_))) - (_g7067970815_ - (lambda (_g7068170708_) - (if (gx#stx-pair? _g7068170708_) - (let ((_e7068670711_ + _g7066370682_))) + (_g7066170797_ + (lambda (_g7066370690_) + (if (gx#stx-pair? _g7066370690_) + (let ((_e7066870693_ (gx#syntax-e - _g7068170708_))) - (let ((_hd7068570715_ + _g7066370690_))) + (let ((_hd7066770697_ (let () (declare (not safe)) - (##car _e7068670711_))) - (_tl7068470718_ + (##car _e7066870693_))) + (_tl7066670700_ (let () (declare (not safe)) - (##cdr _e7068670711_)))) + (##cdr _e7066870693_)))) (if (gx#stx-pair? - _tl7068470718_) - (let ((_e7068970721_ + _tl7066670700_) + (let ((_e7067170703_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl7068470718_))) - (let ((_hd7068870725_ + (gx#syntax-e _tl7066670700_))) + (let ((_hd7067070707_ (let () (declare (not safe)) - (##car _e7068970721_))) - (_tl7068770728_ + (##car _e7067170703_))) + (_tl7066970710_ (let () (declare (not safe)) - (##cdr _e7068970721_)))) - (if (gx#stx-pair/null? _hd7068870725_) - (let ((_g74610_ - (gx#syntax-split-splice _hd7068870725_ '0))) + (##cdr _e7067170703_)))) + (if (gx#stx-pair/null? _hd7067070707_) + (let ((_g74592_ + (gx#syntax-split-splice _hd7067070707_ '0))) (begin - (let ((_g74611_ + (let ((_g74593_ (let () (declare (not safe)) - (if (##values? _g74610_) - (##vector-length _g74610_) + (if (##values? _g74592_) + (##vector-length _g74592_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g74611_ 2))) + (##fx= _g74593_ 2))) (error "Context expects 2 values" - _g74611_))) - (let ((_target7069070731_ + _g74593_))) + (let ((_target7067270713_ (let () (declare (not safe)) - (##vector-ref _g74610_ 0))) - (_tl7069270734_ + (##vector-ref _g74592_ 0))) + (_tl7067470716_ (let () (declare (not safe)) - (##vector-ref _g74610_ 1)))) - (if (gx#stx-null? _tl7069270734_) - (letrec ((_loop7069370737_ - (lambda (_hd7069170741_ - _arg-val7069770744_) + (##vector-ref _g74592_ 1)))) + (if (gx#stx-null? _tl7067470716_) + (letrec ((_loop7067570719_ + (lambda (_hd7067370723_ + _arg-val7067970726_) (if (gx#stx-pair? - _hd7069170741_) - (let ((_e7069470747_ + _hd7067370723_) + (let ((_e7067670729_ (gx#syntax-e - _hd7069170741_))) - (let ((_lp-hd7069570751_ + _hd7067370723_))) + (let ((_lp-hd7067770733_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e7069470747_))) - (_lp-tl7069670754_ - (let () (declare (not safe)) (##cdr _e7069470747_)))) - (_loop7069370737_ - _lp-tl7069670754_ + (##car _e7067670729_))) + (_lp-tl7067870736_ + (let () (declare (not safe)) (##cdr _e7067670729_)))) + (_loop7067570719_ + _lp-tl7067870736_ (let () (declare (not safe)) - (cons _lp-hd7069570751_ _arg-val7069770744_))))) + (cons _lp-hd7067770733_ _arg-val7067970726_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg-val7069870757_ - (reverse _arg-val7069770744_))) + (let ((_arg-val7068070739_ + (reverse _arg-val7067970726_))) (if (gx#stx-null? - _tl7068770728_) - ((lambda (_L70761_ + _tl7066970710_) + ((lambda (_L70743_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L70763_) + _L70745_) (let () - (let ((__tmp74656 (gx#datum->syntax '#f 'begin)) - (__tmp74612 - (let ((__tmp74623 - (let ((__tmp74655 + (let ((__tmp74638 (gx#datum->syntax '#f 'begin)) + (__tmp74594 + (let ((__tmp74605 + (let ((__tmp74637 (gx#datum->syntax '#f 'def)) - (__tmp74624 - (let ((__tmp74651 - (let ((__tmp74652 - (let ((__tmp74653 + (__tmp74606 + (let ((__tmp74633 + (let ((__tmp74634 + (let ((__tmp74635 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74654 - (lambda (_g7078870791_ _g7078970794_) + (let ((__tmp74636 + (lambda (_g7077070773_ _g7077170776_) (let () (declare (not safe)) - (cons _g7078870791_ _g7078970794_))))) + (cons _g7077070773_ _g7077170776_))))) (declare (not safe)) - (foldr1 __tmp74654 '() _L70649_)))) + (foldr1 __tmp74636 '() _L70631_)))) (declare (not safe)) - (cons _L70650_ __tmp74653)))) + (cons _L70632_ __tmp74635)))) (declare (not safe)) - (cons _L70651_ __tmp74652))) + (cons _L70633_ __tmp74634))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp74625 - (let ((__tmp74626 - (let ((__tmp74650 + (__tmp74607 + (let ((__tmp74608 + (let ((__tmp74632 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp74627 - (let ((__tmp74633 - (let ((__tmp74634 - (let ((__tmp74635 - (let ((__tmp74649 + (__tmp74609 + (let ((__tmp74615 + (let ((__tmp74616 + (let ((__tmp74617 + (let ((__tmp74631 (gx#datum->syntax '#f 'if)) - (__tmp74636 - (let ((__tmp74644 - (let ((__tmp74648 + (__tmp74618 + (let ((__tmp74626 + (let ((__tmp74630 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'immediate-instance-of?)) - (__tmp74645 - (let ((__tmp74647 + (__tmp74627 + (let ((__tmp74629 (gx#datum->syntax '#f 'HashTable::t)) - (__tmp74646 + (__tmp74628 (let () (declare (not safe)) - (cons _L70650_ '())))) + (cons _L70632_ '())))) (declare (not safe)) - (cons __tmp74647 __tmp74646)))) + (cons __tmp74629 __tmp74628)))) (declare (not safe)) - (cons __tmp74648 __tmp74645))) - (__tmp74637 - (let ((__tmp74638 - (let ((__tmp74639 - (let ((__tmp74643 + (cons __tmp74630 __tmp74627))) + (__tmp74619 + (let ((__tmp74620 + (let ((__tmp74621 + (let ((__tmp74625 (gx#datum->syntax '#f 'cast)) - (__tmp74640 - (let ((__tmp74642 + (__tmp74622 + (let ((__tmp74624 (gx#datum->syntax '#f 'HashTable::interface)) - (__tmp74641 + (__tmp74623 (let () (declare (not safe)) - (cons _L70650_ '())))) + (cons _L70632_ '())))) (declare (not safe)) - (cons __tmp74642 __tmp74641)))) + (cons __tmp74624 __tmp74623)))) (declare (not safe)) - (cons __tmp74643 __tmp74640)))) + (cons __tmp74625 __tmp74622)))) (declare (not safe)) - (cons __tmp74639 '())))) + (cons __tmp74621 '())))) (declare (not safe)) - (cons _L70650_ __tmp74638)))) + (cons _L70632_ __tmp74620)))) (declare (not safe)) - (cons __tmp74644 __tmp74637)))) + (cons __tmp74626 __tmp74619)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74649 - __tmp74636)))) + (cons __tmp74631 + __tmp74618)))) (declare (not safe)) - (cons __tmp74635 '())))) + (cons __tmp74617 '())))) (declare (not safe)) - (cons _L70650_ __tmp74634))) - (__tmp74628 - (let ((__tmp74629 - (let ((__tmp74630 - (let ((__tmp74631 - (let ((__tmp74632 - (lambda (_g7078670797_ + (cons _L70632_ __tmp74616))) + (__tmp74610 + (let ((__tmp74611 + (let ((__tmp74612 + (let ((__tmp74613 + (let ((__tmp74614 + (lambda (_g7076870779_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g7078770800_) + _g7076970782_) (let () (declare (not safe)) - (cons _g7078670797_ _g7078770800_))))) + (cons _g7076870779_ _g7076970782_))))) (declare (not safe)) - (foldr1 __tmp74632 '() _L70761_)))) + (foldr1 __tmp74614 '() _L70743_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L70650_ __tmp74631)))) + (cons _L70632_ __tmp74613)))) (declare (not safe)) - (cons _L70763_ __tmp74630)))) + (cons _L70745_ __tmp74612)))) (declare (not safe)) - (cons __tmp74629 '())))) + (cons __tmp74611 '())))) (declare (not safe)) - (cons __tmp74633 __tmp74628)))) + (cons __tmp74615 __tmp74610)))) (declare (not safe)) - (cons __tmp74650 __tmp74627)))) + (cons __tmp74632 __tmp74609)))) (declare (not safe)) - (cons __tmp74626 '())))) + (cons __tmp74608 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74651 __tmp74625)))) + (cons __tmp74633 __tmp74607)))) (declare (not safe)) - (cons __tmp74655 __tmp74624))) - (__tmp74613 - (let ((__tmp74614 - (let ((__tmp74622 + (cons __tmp74637 __tmp74606))) + (__tmp74595 + (let ((__tmp74596 + (let ((__tmp74604 (gx#datum->syntax '#f 'def)) - (__tmp74615 - (let ((__tmp74618 - (let ((__tmp74619 + (__tmp74597 + (let ((__tmp74600 + (let ((__tmp74601 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74620 - (let ((__tmp74621 - (lambda (_g7078470803_ _g7078570806_) + (let ((__tmp74602 + (let ((__tmp74603 + (lambda (_g7076670785_ _g7076770788_) (let () (declare (not safe)) - (cons _g7078470803_ - _g7078570806_))))) + (cons _g7076670785_ + _g7076770788_))))) (declare (not safe)) - (foldr1 __tmp74621 '() _L70649_)))) + (foldr1 __tmp74603 '() _L70631_)))) (declare (not safe)) - (cons _L70650_ __tmp74620)))) + (cons _L70632_ __tmp74602)))) (declare (not safe)) - (cons _L70763_ __tmp74619))) - (__tmp74616 - (let ((__tmp74617 - (lambda (_g7078270809_ _g7078370812_) + (cons _L70745_ __tmp74601))) + (__tmp74598 + (let ((__tmp74599 + (lambda (_g7076470791_ _g7076570794_) (let () (declare (not safe)) - (cons _g7078270809_ _g7078370812_))))) + (cons _g7076470791_ _g7076570794_))))) (declare (not safe)) - (foldr1 __tmp74617 '() _L70647_)))) + (foldr1 __tmp74599 '() _L70629_)))) (declare (not safe)) - (cons __tmp74618 __tmp74616)))) + (cons __tmp74600 __tmp74598)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74622 __tmp74615)))) + (cons __tmp74604 __tmp74597)))) (declare (not safe)) - (cons __tmp74614 '())))) + (cons __tmp74596 '())))) (declare (not safe)) - (cons __tmp74623 __tmp74613)))) + (cons __tmp74605 __tmp74595)))) (declare (not safe)) - (cons __tmp74656 __tmp74612)))) - _arg-val7069870757_ - _hd7068570715_) - (_g7068070704_ _g7068170708_))))))) + (cons __tmp74638 __tmp74594)))) + _arg-val7068070739_ + _hd7066770697_) + (_g7066270686_ _g7066370690_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7069370737_ - _target7069070731_ + (_loop7067570719_ + _target7067270713_ '())) - (_g7068070704_ _g7068170708_))))) - (_g7068070704_ _g7068170708_)))) - (_g7068070704_ _g7068170708_)))) + (_g7066270686_ _g7066370690_))))) + (_g7066270686_ _g7066370690_)))) + (_g7066270686_ _g7066370690_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7068070704_ - _g7068170708_))))) - (_g7067970815_ + (_g7066270686_ + _g7066370690_))))) + (_g7066170797_ (list (gx#stx-identifier - _L70651_ + _L70633_ '"&" - _L70651_) + _L70633_) (gx#stx-map - (lambda (_arg70819_) + (lambda (_arg70801_) (if (gx#identifier? - _arg70819_) - _arg70819_ - (gx#stx-car _arg70819_))) - (let ((__tmp74657 - (lambda (_g7082170824_ - _g7082270827_) + _arg70801_) + _arg70801_ + (gx#stx-car _arg70801_))) + (let ((__tmp74639 + (lambda (_g7080370806_ + _g7080470809_) (let () (declare (not safe)) - (cons _g7082170824_ - _g7082270827_))))) + (cons _g7080370806_ + _g7080470809_))))) (declare (not safe)) - (foldr1 __tmp74657 + (foldr1 __tmp74639 '() - _L70649_))))))) - _body7053470643_ - _arg7052570613_ - _hd7051570581_ - _hd7051270571_)))))) - (_loop7052970623_ _target7052670617_ '())) - (_g7049970540_ _g7050070544_))))) + _L70631_))))))) + _body7051670625_ + _arg7050770595_ + _hd7049770563_ + _hd7049470553_)))))) + (_loop7051170605_ _target7050870599_ '())) + (_g7048170522_ _g7048270526_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7049970540_ - _g7050070544_))))))) - (_loop7052070593_ _target7051770587_ '())) - (_g7049970540_ _g7050070544_))))) - (_g7049970540_ _g7050070544_)))) + (_g7048170522_ + _g7048270526_))))))) + (_loop7050270575_ _target7049970569_ '())) + (_g7048170522_ _g7048270526_))))) + (_g7048170522_ _g7048270526_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7049970540_ _g7050070544_)))) - (_g7049970540_ _g7050070544_)))) - (_g7049970540_ _g7050070544_)))) - (_g7049970540_ _g7050070544_))))) - (_g7049870830_ _stx70496_)))) + (_g7048170522_ _g7048270526_)))) + (_g7048170522_ _g7048270526_)))) + (_g7048170522_ _g7048270526_)))) + (_g7048170522_ _g7048270526_))))) + (_g7048070812_ _stx70478_)))) (define |[:0:]#deflocked-hash-method| - (lambda (_$stx70837_) - (let* ((_g7084170880_ - (lambda (_g7084270876_) + (lambda (_$stx70819_) + (let* ((_g7082370862_ + (lambda (_g7082470858_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7084270876_))) - (_g7084071027_ - (lambda (_g7084270884_) - (if (gx#stx-pair? _g7084270884_) - (let ((_e7085070887_ (gx#syntax-e _g7084270884_))) - (let ((_hd7084970891_ + _g7082470858_))) + (_g7082271009_ + (lambda (_g7082470866_) + (if (gx#stx-pair? _g7082470866_) + (let ((_e7083270869_ (gx#syntax-e _g7082470866_))) + (let ((_hd7083170873_ (let () (declare (not safe)) - (##car _e7085070887_))) - (_tl7084870894_ + (##car _e7083270869_))) + (_tl7083070876_ (let () (declare (not safe)) - (##cdr _e7085070887_)))) - (if (gx#stx-pair? _tl7084870894_) - (let ((_e7085370897_ - (gx#syntax-e _tl7084870894_))) - (let ((_hd7085270901_ + (##cdr _e7083270869_)))) + (if (gx#stx-pair? _tl7083070876_) + (let ((_e7083570879_ + (gx#syntax-e _tl7083070876_))) + (let ((_hd7083470883_ (let () (declare (not safe)) - (##car _e7085370897_))) - (_tl7085170904_ + (##car _e7083570879_))) + (_tl7083370886_ (let () (declare (not safe)) - (##cdr _e7085370897_)))) - (if (gx#stx-pair? _hd7085270901_) - (let ((_e7085670907_ - (gx#syntax-e _hd7085270901_))) - (let ((_hd7085570911_ + (##cdr _e7083570879_)))) + (if (gx#stx-pair? _hd7083470883_) + (let ((_e7083870889_ + (gx#syntax-e _hd7083470883_))) + (let ((_hd7083770893_ (let () (declare (not safe)) - (##car _e7085670907_))) - (_tl7085470914_ + (##car _e7083870889_))) + (_tl7083670896_ (let () (declare (not safe)) - (##cdr _e7085670907_)))) + (##cdr _e7083870889_)))) (if (gx#stx-pair/null? - _tl7085470914_) - (let ((_g74658_ + _tl7083670896_) + (let ((_g74640_ (gx#syntax-split-splice - _tl7085470914_ + _tl7083670896_ '0))) (begin - (let ((_g74659_ + (let ((_g74641_ (let () (declare (not safe)) (if (##values? - _g74658_) + _g74640_) (##vector-length - _g74658_) + _g74640_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g74659_ 2))) - (error "Context expects 2 values" _g74659_))) + (##fx= _g74641_ 2))) + (error "Context expects 2 values" _g74641_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target7085770917_ + (let ((_target7083970899_ (let () (declare (not safe)) (##vector-ref - _g74658_ + _g74640_ 0))) - (_tl7085970920_ + (_tl7084170902_ (let () (declare (not safe)) (##vector-ref - _g74658_ + _g74640_ 1)))) (if (gx#stx-null? - _tl7085970920_) - (letrec ((_loop7086070923_ + _tl7084170902_) + (letrec ((_loop7084270905_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd7085870927_ _arg7086470930_) - (if (gx#stx-pair? _hd7085870927_) - (let ((_e7086170933_ - (gx#syntax-e _hd7085870927_))) - (let ((_lp-hd7086270937_ + (lambda (_hd7084070909_ _arg7084670912_) + (if (gx#stx-pair? _hd7084070909_) + (let ((_e7084370915_ + (gx#syntax-e _hd7084070909_))) + (let ((_lp-hd7084470919_ (let () (declare (not safe)) - (##car _e7086170933_))) - (_lp-tl7086370940_ + (##car _e7084370915_))) + (_lp-tl7084570922_ (let () (declare (not safe)) - (##cdr _e7086170933_)))) - (_loop7086070923_ - _lp-tl7086370940_ + (##cdr _e7084370915_)))) + (_loop7084270905_ + _lp-tl7084570922_ (let () (declare (not safe)) - (cons _lp-hd7086270937_ - _arg7086470930_))))) - (let ((_arg7086570943_ - (reverse _arg7086470930_))) - (if (gx#stx-pair? _tl7085170904_) - (let ((_e7086870947_ - (gx#syntax-e _tl7085170904_))) - (let ((_hd7086770951_ + (cons _lp-hd7084470919_ + _arg7084670912_))))) + (let ((_arg7084770925_ + (reverse _arg7084670912_))) + (if (gx#stx-pair? _tl7083370886_) + (let ((_e7085070929_ + (gx#syntax-e _tl7083370886_))) + (let ((_hd7084970933_ (let () (declare (not safe)) - (##car _e7086870947_))) - (_tl7086670954_ + (##car _e7085070929_))) + (_tl7084870936_ (let () (declare (not safe)) - (##cdr _e7086870947_)))) - (if (gx#stx-pair? _tl7086670954_) - (let ((_e7087170957_ + (##cdr _e7085070929_)))) + (if (gx#stx-pair? _tl7084870936_) + (let ((_e7085370939_ (gx#syntax-e - _tl7086670954_))) - (let ((_hd7087070961_ + _tl7084870936_))) + (let ((_hd7085270943_ (let () (declare (not safe)) - (##car _e7087170957_))) - (_tl7086970964_ + (##car _e7085370939_))) + (_tl7085170946_ (let () (declare (not safe)) - (##cdr _e7087170957_)))) + (##cdr _e7085370939_)))) (if (gx#stx-pair? - _tl7086970964_) - (let ((_e7087470967_ + _tl7085170946_) + (let ((_e7085670949_ (gx#syntax-e - _tl7086970964_))) - (let ((_hd7087370971_ + _tl7085170946_))) + (let ((_hd7085570953_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e7087470967_))) - (_tl7087270974_ - (let () (declare (not safe)) (##cdr _e7087470967_)))) - (if (gx#stx-null? _tl7087270974_) - ((lambda (_L70977_ _L70979_ _L70980_ _L70981_ _L70982_) - (let ((__tmp74717 (gx#datum->syntax '#f 'defmethod)) - (__tmp74660 - (let ((__tmp74712 - (let ((__tmp74716 + (##car _e7085670949_))) + (_tl7085470956_ + (let () (declare (not safe)) (##cdr _e7085670949_)))) + (if (gx#stx-null? _tl7085470956_) + ((lambda (_L70959_ _L70961_ _L70962_ _L70963_ _L70964_) + (let ((__tmp74699 (gx#datum->syntax '#f 'defmethod)) + (__tmp74642 + (let ((__tmp74694 + (let ((__tmp74698 (gx#datum->syntax '#f '@method)) - (__tmp74713 - (let ((__tmp74714 - (let ((__tmp74715 + (__tmp74695 + (let ((__tmp74696 + (let ((__tmp74697 (gx#datum->syntax '#f 'locked-hash-table))) (declare (not safe)) - (cons __tmp74715 '())))) + (cons __tmp74697 '())))) (declare (not safe)) - (cons _L70982_ __tmp74714)))) + (cons _L70964_ __tmp74696)))) (declare (not safe)) - (cons __tmp74716 __tmp74713))) - (__tmp74661 - (let ((__tmp74662 - (let ((__tmp74711 + (cons __tmp74698 __tmp74695))) + (__tmp74643 + (let ((__tmp74644 + (let ((__tmp74693 (gx#datum->syntax '#f 'lambda)) - (__tmp74663 - (let ((__tmp74707 - (let ((__tmp74710 + (__tmp74645 + (let ((__tmp74689 + (let ((__tmp74692 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'self)) - (__tmp74708 - (let ((__tmp74709 - (lambda (_g7101271015_ _g7101371018_) + (__tmp74690 + (let ((__tmp74691 + (lambda (_g7099470997_ _g7099571000_) (let () (declare (not safe)) - (cons _g7101271015_ _g7101371018_))))) + (cons _g7099470997_ _g7099571000_))))) (declare (not safe)) - (foldr1 __tmp74709 '() _L70981_)))) + (foldr1 __tmp74691 '() _L70963_)))) (declare (not safe)) - (cons __tmp74710 __tmp74708))) - (__tmp74664 - (let ((__tmp74665 - (let ((__tmp74706 (gx#datum->syntax '#f 'let)) - (__tmp74666 - (let ((__tmp74690 - (let ((__tmp74699 - (let ((__tmp74705 + (cons __tmp74692 __tmp74690))) + (__tmp74646 + (let ((__tmp74647 + (let ((__tmp74688 (gx#datum->syntax '#f 'let)) + (__tmp74648 + (let ((__tmp74672 + (let ((__tmp74681 + (let ((__tmp74687 (gx#datum->syntax '#f 'h)) - (__tmp74700 - (let ((__tmp74701 - (let ((__tmp74704 + (__tmp74682 + (let ((__tmp74683 + (let ((__tmp74686 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&locked-hash-table-table)) - (__tmp74702 - (let ((__tmp74703 (gx#datum->syntax '#f 'self))) + (__tmp74684 + (let ((__tmp74685 (gx#datum->syntax '#f 'self))) (declare (not safe)) - (cons __tmp74703 '())))) + (cons __tmp74685 '())))) (declare (not safe)) - (cons __tmp74704 __tmp74702)))) + (cons __tmp74686 __tmp74684)))) (declare (not safe)) - (cons __tmp74701 '())))) + (cons __tmp74683 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74705 - __tmp74700))) - (__tmp74691 - (let ((__tmp74692 - (let ((__tmp74698 + (cons __tmp74687 + __tmp74682))) + (__tmp74673 + (let ((__tmp74674 + (let ((__tmp74680 (gx#datum->syntax '#f 'l)) - (__tmp74693 - (let ((__tmp74694 + (__tmp74675 + (let ((__tmp74676 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74697 + (let ((__tmp74679 (gx#datum->syntax '#f '&locked-hash-table-lock)) - (__tmp74695 - (let ((__tmp74696 + (__tmp74677 + (let ((__tmp74678 (gx#datum->syntax '#f 'self))) (declare (not safe)) - (cons __tmp74696 '())))) + (cons __tmp74678 '())))) (declare (not safe)) - (cons __tmp74697 __tmp74695)))) + (cons __tmp74679 __tmp74677)))) (declare (not safe)) - (cons __tmp74694 '())))) + (cons __tmp74676 '())))) (declare (not safe)) - (cons __tmp74698 __tmp74693)))) + (cons __tmp74680 __tmp74675)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74692 '())))) + (cons __tmp74674 '())))) (declare (not safe)) - (cons __tmp74699 __tmp74691))) - (__tmp74667 - (let ((__tmp74668 - (let ((__tmp74689 + (cons __tmp74681 __tmp74673))) + (__tmp74649 + (let ((__tmp74650 + (let ((__tmp74671 (gx#datum->syntax '#f 'dynamic-wind)) - (__tmp74669 - (let ((__tmp74684 - (let ((__tmp74688 + (__tmp74651 + (let ((__tmp74666 + (let ((__tmp74670 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cut)) - (__tmp74685 - (let ((__tmp74686 - (let ((__tmp74687 + (__tmp74667 + (let ((__tmp74668 + (let ((__tmp74669 (gx#datum->syntax '#f 'l))) (declare (not safe)) - (cons __tmp74687 '())))) + (cons __tmp74669 '())))) (declare (not safe)) - (cons _L70980_ __tmp74686)))) + (cons _L70962_ __tmp74668)))) (declare (not safe)) - (cons __tmp74688 __tmp74685))) - (__tmp74670 - (let ((__tmp74677 - (let ((__tmp74683 (gx#datum->syntax '#f 'cut)) - (__tmp74678 - (let ((__tmp74679 - (let ((__tmp74682 + (cons __tmp74670 __tmp74667))) + (__tmp74652 + (let ((__tmp74659 + (let ((__tmp74665 (gx#datum->syntax '#f 'cut)) + (__tmp74660 + (let ((__tmp74661 + (let ((__tmp74664 (gx#datum->syntax '#f 'h)) - (__tmp74680 - (let ((__tmp74681 - (lambda (_g7101071021_ + (__tmp74662 + (let ((__tmp74663 + (lambda (_g7099271003_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g7101171024_) + _g7099371006_) (let () (declare (not safe)) - (cons _g7101071021_ _g7101171024_))))) + (cons _g7099271003_ _g7099371006_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp74681 + (foldr1 __tmp74663 '() - _L70981_)))) + _L70963_)))) (declare (not safe)) - (cons __tmp74682 __tmp74680)))) + (cons __tmp74664 __tmp74662)))) (declare (not safe)) - (cons _L70979_ __tmp74679)))) + (cons _L70961_ __tmp74661)))) (declare (not safe)) - (cons __tmp74683 __tmp74678))) - (__tmp74671 - (let ((__tmp74672 - (let ((__tmp74676 + (cons __tmp74665 __tmp74660))) + (__tmp74653 + (let ((__tmp74654 + (let ((__tmp74658 (gx#datum->syntax '#f 'cut)) - (__tmp74673 - (let ((__tmp74674 - (let ((__tmp74675 + (__tmp74655 + (let ((__tmp74656 + (let ((__tmp74657 (gx#datum->syntax '#f 'l))) (declare (not safe)) - (cons __tmp74675 '())))) + (cons __tmp74657 '())))) (declare (not safe)) - (cons _L70977_ __tmp74674)))) + (cons _L70959_ __tmp74656)))) (declare (not safe)) - (cons __tmp74676 __tmp74673)))) + (cons __tmp74658 __tmp74655)))) (declare (not safe)) - (cons __tmp74672 '())))) + (cons __tmp74654 '())))) (declare (not safe)) - (cons __tmp74677 __tmp74671)))) + (cons __tmp74659 __tmp74653)))) (declare (not safe)) - (cons __tmp74684 __tmp74670)))) + (cons __tmp74666 __tmp74652)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74689 - __tmp74669)))) + (cons __tmp74671 + __tmp74651)))) (declare (not safe)) - (cons __tmp74668 '())))) + (cons __tmp74650 '())))) (declare (not safe)) - (cons __tmp74690 __tmp74667)))) + (cons __tmp74672 __tmp74649)))) (declare (not safe)) - (cons __tmp74706 __tmp74666)))) + (cons __tmp74688 __tmp74648)))) (declare (not safe)) - (cons __tmp74665 '())))) + (cons __tmp74647 '())))) (declare (not safe)) - (cons __tmp74707 __tmp74664)))) + (cons __tmp74689 __tmp74646)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74711 __tmp74663)))) + (cons __tmp74693 __tmp74645)))) (declare (not safe)) - (cons __tmp74662 '())))) + (cons __tmp74644 '())))) (declare (not safe)) - (cons __tmp74712 __tmp74661)))) + (cons __tmp74694 __tmp74643)))) (declare (not safe)) - (cons __tmp74717 __tmp74660))) - _hd7087370971_ - _hd7087070961_ - _hd7086770951_ - _arg7086570943_ - _hd7085570911_) - (_g7084170880_ _g7084270884_)))) - (_g7084170880_ _g7084270884_)))) + (cons __tmp74699 __tmp74642))) + _hd7085570953_ + _hd7085270943_ + _hd7084970933_ + _arg7084770925_ + _hd7083770893_) + (_g7082370862_ _g7082470866_)))) + (_g7082370862_ _g7082470866_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7084170880_ _g7084270884_)))) - (_g7084170880_ _g7084270884_))))))) - (_loop7086070923_ _target7085770917_ '())) - (_g7084170880_ _g7084270884_))))) + (_g7082370862_ _g7082470866_)))) + (_g7082370862_ _g7082470866_))))))) + (_loop7084270905_ _target7083970899_ '())) + (_g7082370862_ _g7082470866_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7084170880_ _g7084270884_)))) - (_g7084170880_ _g7084270884_)))) - (_g7084170880_ _g7084270884_)))) - (_g7084170880_ _g7084270884_))))) - (_g7084071027_ _$stx70837_)))) + (_g7082370862_ _g7082470866_)))) + (_g7082370862_ _g7082470866_)))) + (_g7082370862_ _g7082470866_)))) + (_g7082370862_ _g7082470866_))))) + (_g7082271009_ _$stx70819_)))) (define |[:0:]#defchecked-hash-method| - (lambda (_$stx71048_) - (let* ((_g7105271091_ - (lambda (_g7105371087_) + (lambda (_$stx71030_) + (let* ((_g7103471073_ + (lambda (_g7103571069_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7105371087_))) - (_g7105171238_ - (lambda (_g7105371095_) - (if (gx#stx-pair? _g7105371095_) - (let ((_e7106171098_ (gx#syntax-e _g7105371095_))) - (let ((_hd7106071102_ + _g7103571069_))) + (_g7103371220_ + (lambda (_g7103571077_) + (if (gx#stx-pair? _g7103571077_) + (let ((_e7104371080_ (gx#syntax-e _g7103571077_))) + (let ((_hd7104271084_ (let () (declare (not safe)) - (##car _e7106171098_))) - (_tl7105971105_ + (##car _e7104371080_))) + (_tl7104171087_ (let () (declare (not safe)) - (##cdr _e7106171098_)))) - (if (gx#stx-pair? _tl7105971105_) - (let ((_e7106471108_ - (gx#syntax-e _tl7105971105_))) - (let ((_hd7106371112_ + (##cdr _e7104371080_)))) + (if (gx#stx-pair? _tl7104171087_) + (let ((_e7104671090_ + (gx#syntax-e _tl7104171087_))) + (let ((_hd7104571094_ (let () (declare (not safe)) - (##car _e7106471108_))) - (_tl7106271115_ + (##car _e7104671090_))) + (_tl7104471097_ (let () (declare (not safe)) - (##cdr _e7106471108_)))) - (if (gx#stx-pair? _hd7106371112_) - (let ((_e7106771118_ - (gx#syntax-e _hd7106371112_))) - (let ((_hd7106671122_ + (##cdr _e7104671090_)))) + (if (gx#stx-pair? _hd7104571094_) + (let ((_e7104971100_ + (gx#syntax-e _hd7104571094_))) + (let ((_hd7104871104_ (let () (declare (not safe)) - (##car _e7106771118_))) - (_tl7106571125_ + (##car _e7104971100_))) + (_tl7104771107_ (let () (declare (not safe)) - (##cdr _e7106771118_)))) - (if (gx#stx-pair? _tl7106571125_) - (let ((_e7107071128_ + (##cdr _e7104971100_)))) + (if (gx#stx-pair? _tl7104771107_) + (let ((_e7105271110_ (gx#syntax-e - _tl7106571125_))) - (let ((_hd7106971132_ + _tl7104771107_))) + (let ((_hd7105171114_ (let () (declare (not safe)) - (##car _e7107071128_))) - (_tl7106871135_ + (##car _e7105271110_))) + (_tl7105071117_ (let () (declare (not safe)) - (##cdr _e7107071128_)))) + (##cdr _e7105271110_)))) (if (gx#stx-pair/null? - _tl7106871135_) - (let ((_g74718_ + _tl7105071117_) + (let ((_g74700_ (gx#syntax-split-splice - _tl7106871135_ + _tl7105071117_ '0))) (begin - (let ((_g74719_ + (let ((_g74701_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g74718_) - (##vector-length _g74718_) + (if (##values? _g74700_) + (##vector-length _g74700_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g74719_ 2))) - (error "Context expects 2 values" _g74719_))) - (let ((_target7107171138_ + (if (not (let () (declare (not safe)) (##fx= _g74701_ 2))) + (error "Context expects 2 values" _g74701_))) + (let ((_target7105371120_ (let () (declare (not safe)) - (##vector-ref _g74718_ 0))) - (_tl7107371141_ + (##vector-ref _g74700_ 0))) + (_tl7105571123_ (let () (declare (not safe)) - (##vector-ref _g74718_ 1)))) - (if (gx#stx-null? _tl7107371141_) - (letrec ((_loop7107471144_ - (lambda (_hd7107271148_ _arg7107871151_) - (if (gx#stx-pair? _hd7107271148_) - (let ((_e7107571154_ - (gx#syntax-e _hd7107271148_))) - (let ((_lp-hd7107671158_ + (##vector-ref _g74700_ 1)))) + (if (gx#stx-null? _tl7105571123_) + (letrec ((_loop7105671126_ + (lambda (_hd7105471130_ _arg7106071133_) + (if (gx#stx-pair? _hd7105471130_) + (let ((_e7105771136_ + (gx#syntax-e _hd7105471130_))) + (let ((_lp-hd7105871140_ (let () (declare (not safe)) - (##car _e7107571154_))) - (_lp-tl7107771161_ + (##car _e7105771136_))) + (_lp-tl7105971143_ (let () (declare (not safe)) - (##cdr _e7107571154_)))) - (_loop7107471144_ - _lp-tl7107771161_ + (##cdr _e7105771136_)))) + (_loop7105671126_ + _lp-tl7105971143_ (let () (declare (not safe)) - (cons _lp-hd7107671158_ - _arg7107871151_))))) - (let ((_arg7107971164_ - (reverse _arg7107871151_))) - (if (gx#stx-pair? _tl7106271115_) - (let ((_e7108271168_ + (cons _lp-hd7105871140_ + _arg7106071133_))))) + (let ((_arg7106171146_ + (reverse _arg7106071133_))) + (if (gx#stx-pair? _tl7104471097_) + (let ((_e7106471150_ (gx#syntax-e - _tl7106271115_))) - (let ((_hd7108171172_ + _tl7104471097_))) + (let ((_hd7106371154_ (let () (declare (not safe)) - (##car _e7108271168_))) - (_tl7108071175_ + (##car _e7106471150_))) + (_tl7106271157_ (let () (declare (not safe)) - (##cdr _e7108271168_)))) + (##cdr _e7106471150_)))) (if (gx#stx-pair? - _tl7108071175_) - (let ((_e7108571178_ + _tl7106271157_) + (let ((_e7106771160_ (gx#syntax-e - _tl7108071175_))) - (let ((_hd7108471182_ + _tl7106271157_))) + (let ((_hd7106671164_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e7108571178_))) - (_tl7108371185_ - (let () (declare (not safe)) (##cdr _e7108571178_)))) - (if (gx#stx-null? _tl7108371185_) - ((lambda (_L71188_ _L71190_ _L71191_ _L71192_ _L71193_) - (let ((__tmp74761 (gx#datum->syntax '#f 'defmethod)) - (__tmp74720 - (let ((__tmp74756 - (let ((__tmp74760 + (##car _e7106771160_))) + (_tl7106571167_ + (let () (declare (not safe)) (##cdr _e7106771160_)))) + (if (gx#stx-null? _tl7106571167_) + ((lambda (_L71170_ _L71172_ _L71173_ _L71174_ _L71175_) + (let ((__tmp74743 (gx#datum->syntax '#f 'defmethod)) + (__tmp74702 + (let ((__tmp74738 + (let ((__tmp74742 (gx#datum->syntax '#f '@method)) - (__tmp74757 - (let ((__tmp74758 - (let ((__tmp74759 + (__tmp74739 + (let ((__tmp74740 + (let ((__tmp74741 (gx#datum->syntax '#f 'checked-hash-table))) (declare (not safe)) - (cons __tmp74759 '())))) + (cons __tmp74741 '())))) (declare (not safe)) - (cons _L71193_ __tmp74758)))) + (cons _L71175_ __tmp74740)))) (declare (not safe)) - (cons __tmp74760 __tmp74757))) - (__tmp74721 - (let ((__tmp74722 - (let ((__tmp74755 + (cons __tmp74742 __tmp74739))) + (__tmp74703 + (let ((__tmp74704 + (let ((__tmp74737 (gx#datum->syntax '#f 'lambda)) - (__tmp74723 - (let ((__tmp74752 - (let ((__tmp74753 + (__tmp74705 + (let ((__tmp74734 + (let ((__tmp74735 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74754 - (lambda (_g7122371226_ _g7122471229_) + (let ((__tmp74736 + (lambda (_g7120571208_ _g7120671211_) (let () (declare (not safe)) - (cons _g7122371226_ _g7122471229_))))) + (cons _g7120571208_ _g7120671211_))))) (declare (not safe)) - (foldr1 __tmp74754 '() _L71191_)))) + (foldr1 __tmp74736 '() _L71173_)))) (declare (not safe)) - (cons _L71192_ __tmp74753))) - (__tmp74724 - (let ((__tmp74725 - (let ((__tmp74751 (gx#datum->syntax '#f 'let)) - (__tmp74726 - (let ((__tmp74737 - (let ((__tmp74745 - (let ((__tmp74750 + (cons _L71174_ __tmp74735))) + (__tmp74706 + (let ((__tmp74707 + (let ((__tmp74733 (gx#datum->syntax '#f 'let)) + (__tmp74708 + (let ((__tmp74719 + (let ((__tmp74727 + (let ((__tmp74732 (gx#datum->syntax '#f 'h)) - (__tmp74746 - (let ((__tmp74747 - (let ((__tmp74749 + (__tmp74728 + (let ((__tmp74729 + (let ((__tmp74731 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '&checked-hash-table-table)) - (__tmp74748 + (__tmp74730 (let () (declare (not safe)) - (cons _L71192_ '())))) + (cons _L71174_ '())))) (declare (not safe)) - (cons __tmp74749 __tmp74748)))) + (cons __tmp74731 __tmp74730)))) (declare (not safe)) - (cons __tmp74747 '())))) + (cons __tmp74729 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74750 - __tmp74746))) - (__tmp74738 - (let ((__tmp74739 - (let ((__tmp74744 + (cons __tmp74732 + __tmp74728))) + (__tmp74720 + (let ((__tmp74721 + (let ((__tmp74726 (gx#datum->syntax '#f 'key?)) - (__tmp74740 - (let ((__tmp74741 + (__tmp74722 + (let ((__tmp74723 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp74743 + (let ((__tmp74725 (gx#datum->syntax '#f '&checked-hash-table-key-check)) - (__tmp74742 + (__tmp74724 (let () (declare (not safe)) - (cons _L71192_ '())))) + (cons _L71174_ '())))) (declare (not safe)) - (cons __tmp74743 __tmp74742)))) + (cons __tmp74725 __tmp74724)))) (declare (not safe)) - (cons __tmp74741 '())))) + (cons __tmp74723 '())))) (declare (not safe)) - (cons __tmp74744 __tmp74740)))) + (cons __tmp74726 __tmp74722)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74739 '())))) + (cons __tmp74721 '())))) (declare (not safe)) - (cons __tmp74745 __tmp74738))) - (__tmp74727 - (let ((__tmp74734 - (let ((__tmp74735 - (let ((__tmp74736 + (cons __tmp74727 __tmp74720))) + (__tmp74709 + (let ((__tmp74716 + (let ((__tmp74717 + (let ((__tmp74718 (gx#datum->syntax '#f 'key?))) (declare (not safe)) - (cons __tmp74736 + (cons __tmp74718 '())))) (declare (not safe)) - (cons _L71190_ __tmp74735))) - (__tmp74728 - (let ((__tmp74729 - (let ((__tmp74730 - (let ((__tmp74733 + (cons _L71172_ __tmp74717))) + (__tmp74710 + (let ((__tmp74711 + (let ((__tmp74712 + (let ((__tmp74715 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp74731 - (let ((__tmp74732 - (lambda (_g7122171232_ _g7122271235_) + (__tmp74713 + (let ((__tmp74714 + (lambda (_g7120371214_ _g7120471217_) (let () (declare (not safe)) - (cons _g7122171232_ _g7122271235_))))) + (cons _g7120371214_ _g7120471217_))))) (declare (not safe)) - (foldr1 __tmp74732 '() _L71191_)))) + (foldr1 __tmp74714 '() _L71173_)))) (declare (not safe)) - (cons __tmp74733 __tmp74731)))) + (cons __tmp74715 __tmp74713)))) (declare (not safe)) - (cons _L71188_ __tmp74730)))) + (cons _L71170_ __tmp74712)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74729 '())))) + (cons __tmp74711 '())))) (declare (not safe)) - (cons __tmp74734 __tmp74728)))) + (cons __tmp74716 __tmp74710)))) (declare (not safe)) - (cons __tmp74737 __tmp74727)))) + (cons __tmp74719 __tmp74709)))) (declare (not safe)) - (cons __tmp74751 __tmp74726)))) + (cons __tmp74733 __tmp74708)))) (declare (not safe)) - (cons __tmp74725 '())))) + (cons __tmp74707 '())))) (declare (not safe)) - (cons __tmp74752 __tmp74724)))) + (cons __tmp74734 __tmp74706)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74755 __tmp74723)))) + (cons __tmp74737 __tmp74705)))) (declare (not safe)) - (cons __tmp74722 '())))) + (cons __tmp74704 '())))) (declare (not safe)) - (cons __tmp74756 __tmp74721)))) + (cons __tmp74738 __tmp74703)))) (declare (not safe)) - (cons __tmp74761 __tmp74720))) - _hd7108471182_ - _hd7108171172_ - _arg7107971164_ - _hd7106971132_ - _hd7106671122_) - (_g7105271091_ _g7105371095_)))) - (_g7105271091_ _g7105371095_)))) + (cons __tmp74743 __tmp74702))) + _hd7106671164_ + _hd7106371154_ + _arg7106171146_ + _hd7105171114_ + _hd7104871104_) + (_g7103471073_ _g7103571077_)))) + (_g7103471073_ _g7103571077_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7105271091_ - _g7105371095_))))))) - (_loop7107471144_ _target7107171138_ '())) - (_g7105271091_ _g7105371095_))))) - (_g7105271091_ _g7105371095_)))) + (_g7103471073_ + _g7103571077_))))))) + (_loop7105671126_ _target7105371120_ '())) + (_g7103471073_ _g7103571077_))))) + (_g7103471073_ _g7103571077_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7105271091_ _g7105371095_)))) - (_g7105271091_ _g7105371095_)))) - (_g7105271091_ _g7105371095_)))) - (_g7105271091_ _g7105371095_))))) - (_g7105171238_ _$stx71048_)))) + (_g7103471073_ _g7103571077_)))) + (_g7103471073_ _g7103571077_)))) + (_g7103471073_ _g7103571077_)))) + (_g7103471073_ _g7103571077_))))) + (_g7103371220_ _$stx71030_)))) (define |[:0:]#check-hash-arg| - (lambda (_$stx71243_) - (let* ((_g7124771265_ - (lambda (_g7124871261_) + (lambda (_$stx71225_) + (let* ((_g7122971247_ + (lambda (_g7123071243_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7124871261_))) - (_g7124671320_ - (lambda (_g7124871269_) - (if (gx#stx-pair? _g7124871269_) - (let ((_e7125371272_ (gx#syntax-e _g7124871269_))) - (let ((_hd7125271276_ + _g7123071243_))) + (_g7122871302_ + (lambda (_g7123071251_) + (if (gx#stx-pair? _g7123071251_) + (let ((_e7123571254_ (gx#syntax-e _g7123071251_))) + (let ((_hd7123471258_ (let () (declare (not safe)) - (##car _e7125371272_))) - (_tl7125171279_ + (##car _e7123571254_))) + (_tl7123371261_ (let () (declare (not safe)) - (##cdr _e7125371272_)))) - (if (gx#stx-pair? _tl7125171279_) - (let ((_e7125671282_ - (gx#syntax-e _tl7125171279_))) - (let ((_hd7125571286_ + (##cdr _e7123571254_)))) + (if (gx#stx-pair? _tl7123371261_) + (let ((_e7123871264_ + (gx#syntax-e _tl7123371261_))) + (let ((_hd7123771268_ (let () (declare (not safe)) - (##car _e7125671282_))) - (_tl7125471289_ + (##car _e7123871264_))) + (_tl7123671271_ (let () (declare (not safe)) - (##cdr _e7125671282_)))) - (if (gx#stx-pair? _tl7125471289_) - (let ((_e7125971292_ - (gx#syntax-e _tl7125471289_))) - (let ((_hd7125871296_ + (##cdr _e7123871264_)))) + (if (gx#stx-pair? _tl7123671271_) + (let ((_e7124171274_ + (gx#syntax-e _tl7123671271_))) + (let ((_hd7124071278_ (let () (declare (not safe)) - (##car _e7125971292_))) - (_tl7125771299_ + (##car _e7124171274_))) + (_tl7123971281_ (let () (declare (not safe)) - (##cdr _e7125971292_)))) - (if (gx#stx-null? _tl7125771299_) - ((lambda (_L71302_ _L71304_) - (let ((__tmp74770 + (##cdr _e7124171274_)))) + (if (gx#stx-null? _tl7123971281_) + ((lambda (_L71284_ _L71286_) + (let ((__tmp74752 (gx#datum->syntax '#f 'unless)) - (__tmp74762 - (let ((__tmp74768 - (let ((__tmp74769 + (__tmp74744 + (let ((__tmp74750 + (let ((__tmp74751 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L71302_ '())))) + (cons _L71284_ '())))) (declare (not safe)) - (cons _L71304_ __tmp74769))) - (__tmp74763 - (let ((__tmp74764 - (let ((__tmp74767 (gx#datum->syntax '#f 'error)) - (__tmp74765 - (let ((__tmp74766 + (cons _L71286_ __tmp74751))) + (__tmp74745 + (let ((__tmp74746 + (let ((__tmp74749 (gx#datum->syntax '#f 'error)) + (__tmp74747 + (let ((__tmp74748 (let () (declare (not safe)) - (cons _L71302_ '())))) + (cons _L71284_ '())))) (declare (not safe)) - (cons '"invalid argument" __tmp74766)))) + (cons '"invalid argument" __tmp74748)))) (declare (not safe)) - (cons __tmp74767 __tmp74765)))) + (cons __tmp74749 __tmp74747)))) (declare (not safe)) - (cons __tmp74764 '())))) + (cons __tmp74746 '())))) (declare (not safe)) - (cons __tmp74768 __tmp74763)))) + (cons __tmp74750 __tmp74745)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp74770 - __tmp74762))) - _hd7125871296_ - _hd7125571286_) - (_g7124771265_ _g7124871269_)))) - (_g7124771265_ _g7124871269_)))) - (_g7124771265_ _g7124871269_)))) - (_g7124771265_ _g7124871269_))))) - (_g7124671320_ _$stx71243_)))))) + (cons __tmp74752 + __tmp74744))) + _hd7124071278_ + _hd7123771268_) + (_g7122971247_ _g7123071251_)))) + (_g7122971247_ _g7123071251_)))) + (_g7122971247_ _g7123071251_)))) + (_g7122971247_ _g7123071251_))))) + (_g7122871302_ _$stx71225_)))))) diff --git a/src/bootstrap/gerbil/runtime/init~0.scm b/src/bootstrap/gerbil/runtime/init~0.scm index 4bf2530ca..ca36ef557 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 1710833424) + (define gerbil/runtime/init::timestamp 1710943497) (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+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) + (letrec* ((_+readtable+80048_ __*readtable*)) + (let* ((_core80050_ (gx#import-module ':gerbil/core)) + (_pre80052_ (gx#make-prelude-context _core80050_))) + (gx#current-expander-module-prelude _pre80052_) + (gx#core-bind-root-syntax! ': _pre80052_ '#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 (_port80073_) - (input-port-readtable-set! _port80073_ _+readtable+80066_)) + (lambda (_port80055_) + (input-port-readtable-set! _port80055_ _+readtable+80048_)) (list ##stdin-port ##console-port)) (for-each - (lambda (_port80075_) + (lambda (_port80057_) (output-port-readtable-set! - _port80075_ + _port80057_ (readtable-sharing-allowed?-set - (output-port-readtable _port80075_) + (output-port-readtable _port80057_) '#t))) (list ##stdout-port ##console-port))))) - (define __gxi-init-interactive! (lambda (_cmdline80063_) '#!void)) + (define __gxi-init-interactive! (lambda (_cmdline80045_) '#!void)) (define load-scheme - (lambda (_path80058_) - (let ((__tmp80076 + (lambda (_path80040_) + (let ((__tmp80058 (lambda () - (let ((__tmp80077 (lambda _args80061_ '#f))) + (let ((__tmp80059 (lambda _args80043_ '#f))) (declare (not safe)) - (##load _path80058_ __tmp80077 '#t '#t '#f))))) + (##load _path80040_ __tmp80059 '#t '#t '#f))))) (declare (not safe)) - (call-with-parameters __tmp80076 __scheme-source _path80058_)))) + (call-with-parameters __tmp80058 __scheme-source _path80040_)))) (define __expand-source - (lambda (_src80044_) - (letrec ((_expand80046_ - (lambda (_src80056_) - (let ((__tmp80078 + (lambda (_src80026_) + (letrec ((_expand80028_ + (lambda (_src80038_) + (let ((__tmp80060 (gx#core-expand (let () (declare (not safe)) - (__source->syntax _src80056_))))) + (__source->syntax _src80038_))))) (declare (not safe)) - (__compile-top __tmp80078)))) - (_no-expand80047_ - (lambda (_src80052_) + (__compile-top __tmp80060)))) + (_no-expand80029_ + (lambda (_src80034_) (if (__scheme-source) - _src80052_ + _src80034_ (if (let () (declare (not safe)) - (##source? _src80052_)) - (let ((_code80054_ + (##source? _src80034_)) + (let ((_code80036_ (let () (declare (not safe)) - (##source-code _src80052_)))) + (##source-code _src80034_)))) (if (let () (declare (not safe)) - (pair? _code80054_)) - (if (let ((__tmp80079 + (pair? _code80036_)) + (if (let ((__tmp80061 (let () (declare (not safe)) - (##car _code80054_)))) + (##car _code80036_)))) (declare (not safe)) - (eq? '__noexpand: __tmp80079)) + (eq? '__noexpand: __tmp80061)) (let () (declare (not safe)) - (##cdr _code80054_)) + (##cdr _code80036_)) '#f) '#f)) '#f))))) - (let ((_$e80049_ - (let () (declare (not safe)) (_no-expand80047_ _src80044_)))) - (if _$e80049_ - _$e80049_ - (let () (declare (not safe)) (_expand80046_ _src80044_))))))) + (let ((_$e80031_ + (let () (declare (not safe)) (_no-expand80029_ _src80026_)))) + (if _$e80031_ + _$e80031_ + (let () (declare (not safe)) (_expand80028_ _src80026_))))))) (define __macro-descr - (lambda (_src80030_ _def-syntax?80031_) - (letrec ((_fail!80033_ + (lambda (_src80012_ _def-syntax?80013_) + (letrec ((_fail!80015_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _src80030_)))) - (_make-descr80034_ - (lambda (_size80038_) - (let ((_expander80041_ - (let ((__tmp80080 + _src80012_)))) + (_make-descr80016_ + (lambda (_size80020_) + (let ((_expander80023_ + (let ((__tmp80062 (lambda () (let () (declare (not safe)) (##eval-top - _src80030_ + _src80012_ ##interaction-cte))))) (declare (not safe)) (call-with-parameters - __tmp80080 + __tmp80062 __scheme-source 'macro)))) (if (let () (declare (not safe)) - (procedure? _expander80041_)) + (procedure? _expander80023_)) (let () (declare (not safe)) (##make-macro-descr - _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 + _def-syntax?80013_ + _size80020_ + _expander80023_ + _src80012_)) + (let () (declare (not safe)) (_fail!80015_))))))) + (if _def-syntax?80013_ + (let () (declare (not safe)) (_make-descr80016_ '-1)) + (let ((_code80018_ + (let () (declare (not safe)) (##source-code _src80012_)))) + (if (and (let () (declare (not safe)) (##pair? _code80018_)) + (let ((__tmp80066 + (let ((__tmp80067 + (let ((__tmp80068 (let () (declare (not safe)) - (##car _code80036_)))) + (##car _code80018_)))) (declare (not safe)) - (##sourcify __tmp80086 _src80030_)))) + (##sourcify __tmp80068 _src80012_)))) (declare (not safe)) - (##source-code __tmp80085)))) + (##source-code __tmp80067)))) (declare (not safe)) - (##memq __tmp80084 '(##lambda lambda)))) + (##memq __tmp80066 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _src80030_ _src80030_ '-3)) - (let ((__tmp80081 - (let ((__tmp80082 - (let ((__tmp80083 + (##shape _src80012_ _src80012_ '-3)) + (let ((__tmp80063 + (let ((__tmp80064 + (let ((__tmp80065 (let () (declare (not safe)) - (##cadr _code80036_)))) + (##cadr _code80018_)))) (declare (not safe)) - (##sourcify __tmp80083 _src80030_)))) + (##sourcify __tmp80065 _src80012_)))) (declare (not safe)) - (##form-size __tmp80082)))) + (##form-size __tmp80064)))) (declare (not safe)) - (_make-descr80034_ __tmp80081))) - (let () (declare (not safe)) (_fail!80033_)))))))) + (_make-descr80016_ __tmp80063))) + (let () (declare (not safe)) (_fail!80015_)))))))) (define __source->syntax - (lambda (_src80024_) - (let _recur80026_ ((_e80028_ _src80024_)) - (if (let () (declare (not safe)) (##source? _e80028_)) - (let ((__tmp80094 - (let ((__tmp80095 + (lambda (_src80006_) + (let _recur80008_ ((_e80010_ _src80006_)) + (if (let () (declare (not safe)) (##source? _e80010_)) + (let ((__tmp80076 + (let ((__tmp80077 (let () (declare (not safe)) - (##source-code _e80028_)))) + (##source-code _e80010_)))) (declare (not safe)) - (_recur80026_ __tmp80095))) - (__tmp80093 - (let () (declare (not safe)) (##source-locat _e80028_)))) + (_recur80008_ __tmp80077))) + (__tmp80075 + (let () (declare (not safe)) (##source-locat _e80010_)))) (declare (not safe)) - (##structure AST::t __tmp80094 __tmp80093)) - (if (let () (declare (not safe)) (pair? _e80028_)) - (let ((__tmp80091 - (let ((__tmp80092 + (##structure AST::t __tmp80076 __tmp80075)) + (if (let () (declare (not safe)) (pair? _e80010_)) + (let ((__tmp80073 + (let ((__tmp80074 (let () (declare (not safe)) - (##car _e80028_)))) + (##car _e80010_)))) (declare (not safe)) - (_recur80026_ __tmp80092))) - (__tmp80089 - (let ((__tmp80090 + (_recur80008_ __tmp80074))) + (__tmp80071 + (let ((__tmp80072 (let () (declare (not safe)) - (##cdr _e80028_)))) + (##cdr _e80010_)))) (declare (not safe)) - (_recur80026_ __tmp80090)))) + (_recur80008_ __tmp80072)))) (declare (not safe)) - (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_))) + (cons __tmp80073 __tmp80071)) + (if (let () (declare (not safe)) (vector? _e80010_)) + (vector-map _recur80008_ _e80010_) + (if (let () (declare (not safe)) (box? _e80010_)) + (let ((__tmp80069 + (let ((__tmp80070 (unbox _e80010_))) (declare (not safe)) - (_recur80026_ __tmp80088)))) + (_recur80008_ __tmp80070)))) (declare (not safe)) - (box __tmp80087)) - _e80028_))))))) + (box __tmp80069)) + _e80010_))))))) (define __compile-top-source - (lambda (_stx80022_) - (let ((__tmp80096 - (let () (declare (not safe)) (__compile-top _stx80022_)))) + (lambda (_stx80004_) + (let ((__tmp80078 + (let () (declare (not safe)) (__compile-top _stx80004_)))) (declare (not safe)) - (cons '__noexpand: __tmp80096)))) + (cons '__noexpand: __tmp80078)))) (define __compile-top - (lambda (_stx80020_) - (let ((__tmp80097 (gx#core-compile-top-syntax _stx80020_))) + (lambda (_stx80002_) + (let ((__tmp80079 (gx#core-compile-top-syntax _stx80002_))) (declare (not safe)) - (__compile __tmp80097)))) + (__compile __tmp80079)))) (define __eval-import - (lambda (_in80001_) - (letrec* ((_mods80003_ + (lambda (_in79983_) + (letrec* ((_mods79985_ (let () (declare (not safe)) (make-hash-table-eq))) - (_import180004_ - (lambda (_in80011_ _phi80012_) - (if (gx#module-import? _in80011_) - (let ((_iphi80014_ - (fx+ _phi80012_ - (gx#module-import-phi _in80011_)))) + (_import179986_ + (lambda (_in79993_ _phi79994_) + (if (gx#module-import? _in79993_) + (let ((_iphi79996_ + (fx+ _phi79994_ + (gx#module-import-phi _in79993_)))) (if (let () (declare (not safe)) - (fxzero? _iphi80014_)) - (let ((__tmp80099 + (fxzero? _iphi79996_)) + (let ((__tmp80081 (gx#module-export-context - (gx#module-import-source _in80011_)))) + (gx#module-import-source _in79993_)))) (declare (not safe)) - (_eval180005_ __tmp80099)) + (_eval179987_ __tmp80081)) '#!void)) - (if (gx#module-context? _in80011_) + (if (gx#module-context? _in79993_) (if (let () (declare (not safe)) - (fxzero? _phi80012_)) + (fxzero? _phi79994_)) (let () (declare (not safe)) - (_eval180005_ _in80011_)) + (_eval179987_ _in79993_)) '#!void) - (if (gx#import-set? _in80011_) - (let ((_iphi80016_ - (fx+ _phi80012_ - (gx#import-set-phi _in80011_)))) + (if (gx#import-set? _in79993_) + (let ((_iphi79998_ + (fx+ _phi79994_ + (gx#import-set-phi _in79993_)))) (if (let () (declare (not safe)) - (fxzero? _iphi80016_)) - (let ((__tmp80098 + (fxzero? _iphi79998_)) + (let ((__tmp80080 (gx#import-set-source - _in80011_))) + _in79993_))) (declare (not safe)) - (_eval180005_ __tmp80098)) - (if (fxpositive? _iphi80016_) + (_eval179987_ __tmp80080)) + (if (fxpositive? _iphi79998_) (for-each - (lambda (_in80018_) + (lambda (_in80000_) (let () (declare (not safe)) - (_import180004_ - _in80018_ - _iphi80016_))) + (_import179986_ + _in80000_ + _iphi79998_))) (gx#module-context-import - (gx#import-set-source _in80011_))) + (gx#import-set-source _in79993_))) '#!void))) (let () (declare (not safe)) - (error '"Unexpected import" _in80011_))))))) - (_eval180005_ - (lambda (_ctx80009_) + (error '"Unexpected import" _in79993_))))))) + (_eval179987_ + (lambda (_ctx79991_) (if (let () (declare (not safe)) - (hash-get _mods80003_ _ctx80009_)) + (hash-get _mods79985_ _ctx79991_)) '#!void (begin (let () (declare (not safe)) - (hash-put! _mods80003_ _ctx80009_ '#t)) - (__eval-module _ctx80009_)))))) - (if (let () (declare (not safe)) (pair? _in80001_)) + (hash-put! _mods79985_ _ctx79991_ '#t)) + (__eval-module _ctx79991_)))))) + (if (let () (declare (not safe)) (pair? _in79983_)) (for-each - (lambda (_in80007_) - (let () (declare (not safe)) (_import180004_ _in80007_ '0))) - _in80001_) - (let () (declare (not safe)) (_import180004_ _in80001_ '0)))))) + (lambda (_in79989_) + (let () (declare (not safe)) (_import179986_ _in79989_ '0))) + _in79983_) + (let () (declare (not safe)) (_import179986_ _in79983_ '0)))))) (define __eval-module - (lambda (_obj79999_) (gx#core-eval-module _obj79999_))) + (lambda (_obj79981_) (gx#core-eval-module _obj79981_))) (define gerbil-runtime-init! - (lambda (_builtin-modules79977_) + (lambda (_builtin-modules79959_) (if __runtime-initialized '#!void (begin (dump-stack-trace? '#t) - (let* ((_home79979_ (let () (declare (not safe)) (gerbil-home))) - (_libdir79981_ (path-expand '"lib" _home79979_)) - (_userpath79983_ + (let* ((_home79961_ (let () (declare (not safe)) (gerbil-home))) + (_libdir79963_ (path-expand '"lib" _home79961_)) + (_userpath79965_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_loadpath79985_ + (_loadpath79967_ (if (getenv '"GERBIL_BUILD_PREFIX" '#f) (let () (declare (not safe)) - (cons _libdir79981_ '())) - (let ((__tmp80100 + (cons _libdir79963_ '())) + (let ((__tmp80082 (let () (declare (not safe)) - (cons _libdir79981_ '())))) + (cons _libdir79963_ '())))) (declare (not safe)) - (cons _userpath79983_ __tmp80100)))) - (_loadpath79994_ - (let ((_$e79987_ (getenv '"GERBIL_LOADPATH" '#f))) - (if _$e79987_ - ((lambda (_envvar79990_) - (append (filter (lambda (_x79992_) - (let ((__tmp80101 + (cons _userpath79965_ __tmp80082)))) + (_loadpath79976_ + (let ((_$e79969_ (getenv '"GERBIL_LOADPATH" '#f))) + (if _$e79969_ + ((lambda (_envvar79972_) + (append (filter (lambda (_x79974_) + (let ((__tmp80083 (let () (declare (not safe)) (string-empty? - _x79992_)))) + _x79974_)))) (declare (not safe)) - (not __tmp80101))) + (not __tmp80083))) (let () (declare (not safe)) (string-split - _envvar79990_ + _envvar79972_ '#\:))) - _loadpath79985_)) - _$e79987_) - _loadpath79985_)))) - (let () (declare (not safe)) (set-load-path! _loadpath79994_))) + _loadpath79967_)) + _$e79969_) + _loadpath79967_)))) + (let () (declare (not safe)) (set-load-path! _loadpath79976_))) (for-each - (lambda (_mod79997_) + (lambda (_mod79979_) (let () (declare (not safe)) - (hash-put! __modules _mod79997_ 'builtin)) - (let ((__tmp80102 (string-append _mod79997_ '"~0"))) + (hash-put! __modules _mod79979_ 'builtin)) + (let ((__tmp80084 (string-append _mod79979_ '"~0"))) (declare (not safe)) - (hash-put! __modules __tmp80102 'builtin))) - _builtin-modules79977_) + (hash-put! __modules __tmp80084 'builtin))) + _builtin-modules79959_) (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 8bd75407d..815f1dcde 100644 --- a/src/bootstrap/gerbil/runtime/interface~0.scm +++ b/src/bootstrap/gerbil/runtime/interface~0.scm @@ -1,21 +1,21 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/interface::timestamp 1710833424) + (define gerbil/runtime/interface::timestamp 1710943497) (begin (define CastError::t - (let ((__tmp69933 (list Error::t))) + (let ((__tmp69915 (list Error::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/interface#CastError::t 'CastError - __tmp69933 + __tmp69915 '() '() ':init!))) (define CastError? (let () (declare (not safe)) (make-class-predicate CastError::t))) (define make-CastError - (lambda _$args69926_ (apply make-instance CastError::t _$args69926_))) + (lambda _$args69908_ (apply make-instance CastError::t _$args69908_))) (define CastError-message (let () (declare (not safe)) @@ -85,34 +85,34 @@ (declare (not safe)) (bind-method!__% CastError::t ':init! CastError:::init! '#f)) (define raise-cast-error - (lambda (_where69800_ _message69801_ . _irritants69802_) - (raise (let ((__obj69929 + (lambda (_where69782_ _message69783_ . _irritants69784_) + (raise (let ((__obj69911 (let () (declare (not safe)) (##structure CastError::t '#f '#f '#f '#f)))) (CastError:::init! - __obj69929 - _message69801_ + __obj69911 + _message69783_ 'where: - _where69800_ + _where69782_ 'irritants: - _irritants69802_) - __obj69929)))) + _irritants69784_) + __obj69911)))) (define interface-cast-error? CastError?) (define interface-instance::t - (let ((__tmp69936 (list)) - (__tmp69934 - (let ((__tmp69935 + (let ((__tmp69918 (list)) + (__tmp69916 + (let ((__tmp69917 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp69935 '())))) + (cons __tmp69917 '())))) (declare (not safe)) (make-class-type 'gerbil#interface-instance::t 'interface-instance - __tmp69936 + __tmp69918 '(__object) - __tmp69934 + __tmp69916 '#f))) (define interface-instance? (let () @@ -135,32 +135,32 @@ (declare (not safe)) (make-class-slot-unchecked-mutator interface-instance::t '__object))) (define interface-descriptor::t - (let ((__tmp69941 (list)) - (__tmp69937 - (let ((__tmp69940 + (let ((__tmp69923 (list)) + (__tmp69919 + (let ((__tmp69922 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp69938 - (let ((__tmp69939 + (__tmp69920 + (let ((__tmp69921 (let () (declare (not safe)) (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp69939 '())))) + (cons __tmp69921 '())))) (declare (not safe)) - (cons __tmp69940 __tmp69938)))) + (cons __tmp69922 __tmp69920)))) (declare (not safe)) (make-class-type 'gerbil/runtime/interface#interface-descriptor::t 'interface-descriptor - __tmp69941 + __tmp69923 '(type methods) - __tmp69937 + __tmp69919 '#f))) (define interface-descriptor? (let () (declare (not safe)) (make-class-predicate interface-descriptor::t))) (define make-interface-descriptor - (lambda _$args69797_ - (apply make-instance interface-descriptor::t _$args69797_))) + (lambda _$args69779_ + (apply make-instance interface-descriptor::t _$args69779_))) (define interface-descriptor-type (let () (declare (not safe)) @@ -194,516 +194,516 @@ (declare (not safe)) (make-class-slot-unchecked-mutator interface-descriptor::t 'methods))) (define __interface-hash-key - (lambda (_key69795_) - (let ((__tmp69943 + (lambda (_key69777_) + (let ((__tmp69925 (macro-slot '1 - (let () (declare (not safe)) (##car _key69795_)))) - (__tmp69942 + (let () (declare (not safe)) (##car _key69777_)))) + (__tmp69924 (macro-slot '1 - (let () (declare (not safe)) (##cdr _key69795_))))) + (let () (declare (not safe)) (##cdr _key69777_))))) (declare (not safe)) - (##fxxor __tmp69943 __tmp69942)))) + (##fxxor __tmp69925 __tmp69924)))) (define __interface-test-key - (lambda (_a69792_ _b69793_) - (if (let ((__tmp69947 (let () (declare (not safe)) (##car _a69792_))) - (__tmp69946 (let () (declare (not safe)) (##car _b69793_)))) + (lambda (_a69774_ _b69775_) + (if (let ((__tmp69929 (let () (declare (not safe)) (##car _a69774_))) + (__tmp69928 (let () (declare (not safe)) (##car _b69775_)))) (declare (not safe)) - (##eq? __tmp69947 __tmp69946)) - (let ((__tmp69945 (let () (declare (not safe)) (##cdr _a69792_))) - (__tmp69944 (let () (declare (not safe)) (##cdr _b69793_)))) + (##eq? __tmp69929 __tmp69928)) + (let ((__tmp69927 (let () (declare (not safe)) (##cdr _a69774_))) + (__tmp69926 (let () (declare (not safe)) (##cdr _b69775_)))) (declare (not safe)) - (##eq? __tmp69945 __tmp69944)) + (##eq? __tmp69927 __tmp69926)) '#f))) (define make-prototype-table__% - (lambda (_size-hint69773_ _seed69775_) + (lambda (_size-hint69755_ _seed69757_) (let () (declare (not safe)) (make-raw-table__% - _size-hint69773_ + _size-hint69755_ __interface-hash-key __interface-test-key - _seed69775_)))) + _seed69757_)))) (define make-prototype-table__0 (lambda () - (let* ((_size-hint69781_ '#f) (_seed69783_ '0)) + (let* ((_size-hint69763_ '#f) (_seed69765_ '0)) (declare (not safe)) - (make-prototype-table__% _size-hint69781_ _seed69783_)))) + (make-prototype-table__% _size-hint69763_ _seed69765_)))) (define make-prototype-table__1 - (lambda (_size-hint69785_) - (let ((_seed69787_ '0)) + (lambda (_size-hint69767_) + (let ((_seed69769_ '0)) (declare (not safe)) - (make-prototype-table__% _size-hint69785_ _seed69787_)))) + (make-prototype-table__% _size-hint69767_ _seed69769_)))) (define make-prototype-table - (lambda _g69949_ - (let ((_g69948_ (let () (declare (not safe)) (##length _g69949_)))) - (cond ((let () (declare (not safe)) (##fx= _g69948_ 0)) + (lambda _g69931_ + (let ((_g69930_ (let () (declare (not safe)) (##length _g69931_)))) + (cond ((let () (declare (not safe)) (##fx= _g69930_ 0)) (apply (lambda () (let () (declare (not safe)) (make-prototype-table__0))) - _g69949_)) - ((let () (declare (not safe)) (##fx= _g69948_ 1)) - (apply (lambda (_size-hint69785_) + _g69931_)) + ((let () (declare (not safe)) (##fx= _g69930_ 1)) + (apply (lambda (_size-hint69767_) (let () (declare (not safe)) - (make-prototype-table__1 _size-hint69785_))) - _g69949_)) - ((let () (declare (not safe)) (##fx= _g69948_ 2)) - (apply (lambda (_size-hint69789_ _seed69790_) + (make-prototype-table__1 _size-hint69767_))) + _g69931_)) + ((let () (declare (not safe)) (##fx= _g69930_ 2)) + (apply (lambda (_size-hint69771_ _seed69772_) (let () (declare (not safe)) (make-prototype-table__% - _size-hint69789_ - _seed69790_))) - _g69949_)) + _size-hint69771_ + _seed69772_))) + _g69931_)) (else (##raise-wrong-number-of-arguments-exception make-prototype-table - _g69949_)))))) + _g69931_)))))) (define prototype-table-ref - (lambda (_tab69730_ _key69731_ _default69732_) - (let ((_table69734_ - (let () (declare (not safe)) (&raw-table-table _tab69730_))) - (_seed69735_ - (let () (declare (not safe)) (&raw-table-seed _tab69730_)))) - (let* ((_h69737_ + (lambda (_tab69712_ _key69713_ _default69714_) + (let ((_table69716_ + (let () (declare (not safe)) (&raw-table-table _tab69712_))) + (_seed69717_ + (let () (declare (not safe)) (&raw-table-seed _tab69712_)))) + (let* ((_h69719_ (fxxor (let () (declare (not safe)) - (__interface-hash-key _key69731_)) - _seed69735_)) - (_size69740_ (vector-length _table69734_)) - (_entries69743_ (fxquotient _size69740_ '2)) - (_start69746_ + (__interface-hash-key _key69713_)) + _seed69717_)) + (_size69722_ (vector-length _table69716_)) + (_entries69725_ (fxquotient _size69722_ '2)) + (_start69728_ (fxarithmetic-shift-left - (fxmodulo _h69737_ _entries69743_) + (fxmodulo _h69719_ _entries69725_) '1))) - (let _loop69750_ ((_probe69753_ _start69746_) - (_i69755_ '1) - (_deleted69757_ '#f)) - (let ((_k69760_ (vector-ref _table69734_ _probe69753_))) - (if (let ((__tmp69956 (macro-unused-obj))) + (let _loop69732_ ((_probe69735_ _start69728_) + (_i69737_ '1) + (_deleted69739_ '#f)) + (let ((_k69742_ (vector-ref _table69716_ _probe69735_))) + (if (let ((__tmp69938 (macro-unused-obj))) (declare (not safe)) - (eq? _k69760_ __tmp69956)) - _default69732_ - (if (let ((__tmp69955 (macro-deleted-obj))) + (eq? _k69742_ __tmp69938)) + _default69714_ + (if (let ((__tmp69937 (macro-deleted-obj))) (declare (not safe)) - (eq? _k69760_ __tmp69955)) - (let ((__tmp69954 - (let ((_next-probe69763_ - (fx+ _start69746_ - _i69755_ - (fx* _i69755_ _i69755_)))) - (fxmodulo _next-probe69763_ _size69740_))) - (__tmp69953 (fx+ _i69755_ '1)) - (__tmp69952 - (let ((_$e69766_ _deleted69757_)) - (if _$e69766_ _$e69766_ _probe69753_)))) + (eq? _k69742_ __tmp69937)) + (let ((__tmp69936 + (let ((_next-probe69745_ + (fx+ _start69728_ + _i69737_ + (fx* _i69737_ _i69737_)))) + (fxmodulo _next-probe69745_ _size69722_))) + (__tmp69935 (fx+ _i69737_ '1)) + (__tmp69934 + (let ((_$e69748_ _deleted69739_)) + (if _$e69748_ _$e69748_ _probe69735_)))) (declare (not safe)) - (_loop69750_ __tmp69954 __tmp69953 __tmp69952)) + (_loop69732_ __tmp69936 __tmp69935 __tmp69934)) (if (let () (declare (not safe)) - (__interface-test-key _key69731_ _k69760_)) - (vector-ref _table69734_ (fx+ _probe69753_ '1)) - (let ((__tmp69951 - (let ((_next-probe69769_ - (fx+ _start69746_ - _i69755_ - (fx* _i69755_ _i69755_)))) - (fxmodulo _next-probe69769_ _size69740_))) - (__tmp69950 (fx+ _i69755_ '1))) + (__interface-test-key _key69713_ _k69742_)) + (vector-ref _table69716_ (fx+ _probe69735_ '1)) + (let ((__tmp69933 + (let ((_next-probe69751_ + (fx+ _start69728_ + _i69737_ + (fx* _i69737_ _i69737_)))) + (fxmodulo _next-probe69751_ _size69722_))) + (__tmp69932 (fx+ _i69737_ '1))) (declare (not safe)) - (_loop69750_ - __tmp69951 - __tmp69950 - _deleted69757_))))))))))) + (_loop69732_ + __tmp69933 + __tmp69932 + _deleted69739_))))))))))) (define prototype-table-set! - (lambda (_tab69726_ _key69727_ _value69728_) - (if (fx< (let () (declare (not safe)) (&raw-table-free _tab69726_)) + (lambda (_tab69708_ _key69709_ _value69710_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab69708_)) (fxquotient (vector-length - (let () (declare (not safe)) (&raw-table-table _tab69726_))) + (let () (declare (not safe)) (&raw-table-table _tab69708_))) '4)) - (let () (declare (not safe)) (__raw-table-rehash! _tab69726_)) + (let () (declare (not safe)) (__raw-table-rehash! _tab69708_)) '#!void) (let () (declare (not safe)) - (__prototype-table-set! _tab69726_ _key69727_ _value69728_)))) + (__prototype-table-set! _tab69708_ _key69709_ _value69710_)))) (define __prototype-table-set! - (lambda (_tab69681_ _key69682_ _value69683_) - (let ((_table69686_ - (let () (declare (not safe)) (&raw-table-table _tab69681_))) - (_seed69687_ - (let () (declare (not safe)) (&raw-table-seed _tab69681_)))) - (let* ((_h69689_ + (lambda (_tab69663_ _key69664_ _value69665_) + (let ((_table69668_ + (let () (declare (not safe)) (&raw-table-table _tab69663_))) + (_seed69669_ + (let () (declare (not safe)) (&raw-table-seed _tab69663_)))) + (let* ((_h69671_ (fxxor (let () (declare (not safe)) - (__interface-hash-key _key69682_)) - _seed69687_)) - (_size69692_ (vector-length _table69686_)) - (_entries69695_ (fxquotient _size69692_ '2)) - (_start69698_ + (__interface-hash-key _key69664_)) + _seed69669_)) + (_size69674_ (vector-length _table69668_)) + (_entries69677_ (fxquotient _size69674_ '2)) + (_start69680_ (fxarithmetic-shift-left - (fxmodulo _h69689_ _entries69695_) + (fxmodulo _h69671_ _entries69677_) '1))) - (let _loop69702_ ((_probe69705_ _start69698_) - (_i69707_ '1) - (_deleted69709_ '#f)) - (let ((_k69712_ (vector-ref _table69686_ _probe69705_))) - (if (let ((__tmp69966 (macro-unused-obj))) + (let _loop69684_ ((_probe69687_ _start69680_) + (_i69689_ '1) + (_deleted69691_ '#f)) + (let ((_k69694_ (vector-ref _table69668_ _probe69687_))) + (if (let ((__tmp69948 (macro-unused-obj))) (declare (not safe)) - (eq? _k69712_ __tmp69966)) - (if _deleted69709_ + (eq? _k69694_ __tmp69948)) + (if _deleted69691_ (begin - (vector-set! _table69686_ _deleted69709_ _key69682_) + (vector-set! _table69668_ _deleted69691_ _key69664_) (vector-set! - _table69686_ - (fx+ _deleted69709_ '1) - _value69683_) + _table69668_ + (fx+ _deleted69691_ '1) + _value69665_) ((lambda () - (let ((__tmp69965 + (let ((__tmp69947 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab69681_)) + (&raw-table-count _tab69663_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab69681_ - __tmp69965))))) + _tab69663_ + __tmp69947))))) (begin - (vector-set! _table69686_ _probe69705_ _key69682_) + (vector-set! _table69668_ _probe69687_ _key69664_) (vector-set! - _table69686_ - (fx+ _probe69705_ '1) - _value69683_) + _table69668_ + (fx+ _probe69687_ '1) + _value69665_) ((lambda () - (let ((__tmp69963 + (let ((__tmp69945 (fx- (let () (declare (not safe)) - (&raw-table-free _tab69681_)) + (&raw-table-free _tab69663_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab69681_ __tmp69963)) - (let ((__tmp69964 + (&raw-table-free-set! _tab69663_ __tmp69945)) + (let ((__tmp69946 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab69681_)) + (&raw-table-count _tab69663_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab69681_ - __tmp69964)))))) - (if (let ((__tmp69962 (macro-deleted-obj))) + _tab69663_ + __tmp69946)))))) + (if (let ((__tmp69944 (macro-deleted-obj))) (declare (not safe)) - (eq? _k69712_ __tmp69962)) - (let ((__tmp69961 - (let ((_next-probe69717_ - (fx+ _start69698_ - _i69707_ - (fx* _i69707_ _i69707_)))) - (fxmodulo _next-probe69717_ _size69692_))) - (__tmp69960 (fx+ _i69707_ '1)) - (__tmp69959 - (let ((_$e69720_ _deleted69709_)) - (if _$e69720_ _$e69720_ _probe69705_)))) + (eq? _k69694_ __tmp69944)) + (let ((__tmp69943 + (let ((_next-probe69699_ + (fx+ _start69680_ + _i69689_ + (fx* _i69689_ _i69689_)))) + (fxmodulo _next-probe69699_ _size69674_))) + (__tmp69942 (fx+ _i69689_ '1)) + (__tmp69941 + (let ((_$e69702_ _deleted69691_)) + (if _$e69702_ _$e69702_ _probe69687_)))) (declare (not safe)) - (_loop69702_ __tmp69961 __tmp69960 __tmp69959)) + (_loop69684_ __tmp69943 __tmp69942 __tmp69941)) (if (let () (declare (not safe)) - (__interface-test-key _key69682_ _k69712_)) + (__interface-test-key _key69664_ _k69694_)) (begin (vector-set! - _table69686_ - _probe69705_ - _key69682_) + _table69668_ + _probe69687_ + _key69664_) (vector-set! - _table69686_ - (fx+ _probe69705_ '1) - _value69683_)) - (let ((__tmp69958 - (let ((_next-probe69723_ - (fx+ _start69698_ - _i69707_ - (fx* _i69707_ _i69707_)))) - (fxmodulo _next-probe69723_ _size69692_))) - (__tmp69957 (fx+ _i69707_ '1))) + _table69668_ + (fx+ _probe69687_ '1) + _value69665_)) + (let ((__tmp69940 + (let ((_next-probe69705_ + (fx+ _start69680_ + _i69689_ + (fx* _i69689_ _i69689_)))) + (fxmodulo _next-probe69705_ _size69674_))) + (__tmp69939 (fx+ _i69689_ '1))) (declare (not safe)) - (_loop69702_ - __tmp69958 - __tmp69957 - _deleted69709_))))))))))) + (_loop69684_ + __tmp69940 + __tmp69939 + _deleted69691_))))))))))) (define prototype-table-update! - (lambda (_tab69676_ - _key69677_ - _prototype-table-update!69678_ - _default69679_) - (if (fx< (let () (declare (not safe)) (&raw-table-free _tab69676_)) + (lambda (_tab69658_ + _key69659_ + _prototype-table-update!69660_ + _default69661_) + (if (fx< (let () (declare (not safe)) (&raw-table-free _tab69658_)) (fxquotient (vector-length - (let () (declare (not safe)) (&raw-table-table _tab69676_))) + (let () (declare (not safe)) (&raw-table-table _tab69658_))) '4)) - (let () (declare (not safe)) (__raw-table-rehash! _tab69676_)) + (let () (declare (not safe)) (__raw-table-rehash! _tab69658_)) '#!void) (let () (declare (not safe)) (__prototype-table-update! - _tab69676_ - _key69677_ - _prototype-table-update!69678_ - _default69679_)))) + _tab69658_ + _key69659_ + _prototype-table-update!69660_ + _default69661_)))) (define __prototype-table-update! - (lambda (_tab69630_ - _key69631_ - _prototype-table-update!69632_ - _default69633_) - (let ((_table69636_ - (let () (declare (not safe)) (&raw-table-table _tab69630_))) - (_seed69637_ - (let () (declare (not safe)) (&raw-table-seed _tab69630_)))) - (let* ((_h69639_ + (lambda (_tab69612_ + _key69613_ + _prototype-table-update!69614_ + _default69615_) + (let ((_table69618_ + (let () (declare (not safe)) (&raw-table-table _tab69612_))) + (_seed69619_ + (let () (declare (not safe)) (&raw-table-seed _tab69612_)))) + (let* ((_h69621_ (fxxor (let () (declare (not safe)) - (__interface-hash-key _key69631_)) - _seed69637_)) - (_size69642_ (vector-length _table69636_)) - (_entries69645_ (fxquotient _size69642_ '2)) - (_start69648_ + (__interface-hash-key _key69613_)) + _seed69619_)) + (_size69624_ (vector-length _table69618_)) + (_entries69627_ (fxquotient _size69624_ '2)) + (_start69630_ (fxarithmetic-shift-left - (fxmodulo _h69639_ _entries69645_) + (fxmodulo _h69621_ _entries69627_) '1))) - (let _loop69652_ ((_probe69655_ _start69648_) - (_i69657_ '1) - (_deleted69659_ '#f)) - (let ((_k69662_ (vector-ref _table69636_ _probe69655_))) - (if (let ((__tmp69976 (macro-unused-obj))) + (let _loop69634_ ((_probe69637_ _start69630_) + (_i69639_ '1) + (_deleted69641_ '#f)) + (let ((_k69644_ (vector-ref _table69618_ _probe69637_))) + (if (let ((__tmp69958 (macro-unused-obj))) (declare (not safe)) - (eq? _k69662_ __tmp69976)) - (if _deleted69659_ + (eq? _k69644_ __tmp69958)) + (if _deleted69641_ (begin - (vector-set! _table69636_ _deleted69659_ _key69631_) + (vector-set! _table69618_ _deleted69641_ _key69613_) (vector-set! - _table69636_ - (fx+ _deleted69659_ '1) - (_prototype-table-update!69632_ _default69633_)) + _table69618_ + (fx+ _deleted69641_ '1) + (_prototype-table-update!69614_ _default69615_)) ((lambda () - (let ((__tmp69975 + (let ((__tmp69957 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab69630_)) + (&raw-table-count _tab69612_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab69630_ - __tmp69975))))) + _tab69612_ + __tmp69957))))) (begin - (vector-set! _table69636_ _probe69655_ _key69631_) + (vector-set! _table69618_ _probe69637_ _key69613_) (vector-set! - _table69636_ - (fx+ _probe69655_ '1) - (_prototype-table-update!69632_ _default69633_)) + _table69618_ + (fx+ _probe69637_ '1) + (_prototype-table-update!69614_ _default69615_)) ((lambda () - (let ((__tmp69973 + (let ((__tmp69955 (fx- (let () (declare (not safe)) - (&raw-table-free _tab69630_)) + (&raw-table-free _tab69612_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab69630_ __tmp69973)) - (let ((__tmp69974 + (&raw-table-free-set! _tab69612_ __tmp69955)) + (let ((__tmp69956 (fx+ (let () (declare (not safe)) - (&raw-table-count _tab69630_)) + (&raw-table-count _tab69612_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab69630_ - __tmp69974)))))) - (if (let ((__tmp69972 (macro-deleted-obj))) + _tab69612_ + __tmp69956)))))) + (if (let ((__tmp69954 (macro-deleted-obj))) (declare (not safe)) - (eq? _k69662_ __tmp69972)) - (let ((__tmp69971 - (let ((_next-probe69667_ - (fx+ _start69648_ - _i69657_ - (fx* _i69657_ _i69657_)))) - (fxmodulo _next-probe69667_ _size69642_))) - (__tmp69970 (fx+ _i69657_ '1)) - (__tmp69969 - (let ((_$e69670_ _deleted69659_)) - (if _$e69670_ _$e69670_ _probe69655_)))) + (eq? _k69644_ __tmp69954)) + (let ((__tmp69953 + (let ((_next-probe69649_ + (fx+ _start69630_ + _i69639_ + (fx* _i69639_ _i69639_)))) + (fxmodulo _next-probe69649_ _size69624_))) + (__tmp69952 (fx+ _i69639_ '1)) + (__tmp69951 + (let ((_$e69652_ _deleted69641_)) + (if _$e69652_ _$e69652_ _probe69637_)))) (declare (not safe)) - (_loop69652_ __tmp69971 __tmp69970 __tmp69969)) + (_loop69634_ __tmp69953 __tmp69952 __tmp69951)) (if (let () (declare (not safe)) - (__interface-test-key _key69631_ _k69662_)) + (__interface-test-key _key69613_ _k69644_)) (begin (vector-set! - _table69636_ - _probe69655_ - _key69631_) + _table69618_ + _probe69637_ + _key69613_) (vector-set! - _table69636_ - (fx+ _probe69655_ '1) - (_prototype-table-update!69632_ + _table69618_ + (fx+ _probe69637_ '1) + (_prototype-table-update!69614_ (vector-ref - _table69636_ - (fx+ _probe69655_ '1))))) - (let ((__tmp69968 - (let ((_next-probe69673_ - (fx+ _start69648_ - _i69657_ - (fx* _i69657_ _i69657_)))) - (fxmodulo _next-probe69673_ _size69642_))) - (__tmp69967 (fx+ _i69657_ '1))) + _table69618_ + (fx+ _probe69637_ '1))))) + (let ((__tmp69950 + (let ((_next-probe69655_ + (fx+ _start69630_ + _i69639_ + (fx* _i69639_ _i69639_)))) + (fxmodulo _next-probe69655_ _size69624_))) + (__tmp69949 (fx+ _i69639_ '1))) (declare (not safe)) - (_loop69652_ - __tmp69968 - __tmp69967 - _deleted69659_))))))))))) + (_loop69634_ + __tmp69950 + __tmp69949 + _deleted69641_))))))))))) (define prototype-trable-delete! - (lambda (_tab69589_ _key69591_) - (let ((_table69594_ - (let () (declare (not safe)) (&raw-table-table _tab69589_))) - (_seed69596_ - (let () (declare (not safe)) (&raw-table-seed _tab69589_)))) - (let* ((_h69599_ + (lambda (_tab69571_ _key69573_) + (let ((_table69576_ + (let () (declare (not safe)) (&raw-table-table _tab69571_))) + (_seed69578_ + (let () (declare (not safe)) (&raw-table-seed _tab69571_)))) + (let* ((_h69581_ (fxxor (let () (declare (not safe)) - (__interface-hash-key _key69591_)) - _seed69596_)) - (_size69602_ (vector-length _table69594_)) - (_entries69605_ (fxquotient _size69602_ '2)) - (_start69608_ + (__interface-hash-key _key69573_)) + _seed69578_)) + (_size69584_ (vector-length _table69576_)) + (_entries69587_ (fxquotient _size69584_ '2)) + (_start69590_ (fxarithmetic-shift-left - (fxmodulo _h69599_ _entries69605_) + (fxmodulo _h69581_ _entries69587_) '1))) - (let _loop69612_ ((_probe69615_ _start69608_) (_i69617_ '1)) - (let ((_k69620_ (vector-ref _table69594_ _probe69615_))) - (if (let ((__tmp69983 (macro-unused-obj))) + (let _loop69594_ ((_probe69597_ _start69590_) (_i69599_ '1)) + (let ((_k69602_ (vector-ref _table69576_ _probe69597_))) + (if (let ((__tmp69965 (macro-unused-obj))) (declare (not safe)) - (eq? _k69620_ __tmp69983)) + (eq? _k69602_ __tmp69965)) '#!void - (if (let ((__tmp69982 (macro-deleted-obj))) + (if (let ((__tmp69964 (macro-deleted-obj))) (declare (not safe)) - (eq? _k69620_ __tmp69982)) - (let ((__tmp69981 - (let ((_next-probe69623_ - (fx+ _start69608_ - _i69617_ - (fx* _i69617_ _i69617_)))) - (fxmodulo _next-probe69623_ _size69602_))) - (__tmp69980 (fx+ _i69617_ '1))) + (eq? _k69602_ __tmp69964)) + (let ((__tmp69963 + (let ((_next-probe69605_ + (fx+ _start69590_ + _i69599_ + (fx* _i69599_ _i69599_)))) + (fxmodulo _next-probe69605_ _size69584_))) + (__tmp69962 (fx+ _i69599_ '1))) (declare (not safe)) - (_loop69612_ __tmp69981 __tmp69980)) + (_loop69594_ __tmp69963 __tmp69962)) (if (let () (declare (not safe)) - (__interface-test-key _key69591_ _k69620_)) + (__interface-test-key _key69573_ _k69602_)) (begin (vector-set! - _table69594_ - _probe69615_ + _table69576_ + _probe69597_ (macro-deleted-obj)) (vector-set! - _table69594_ - (fx+ _probe69615_ '1) + _table69576_ + (fx+ _probe69597_ '1) (macro-absent-obj)) ((lambda () - (let ((__tmp69979 + (let ((__tmp69961 (fx- (let () (declare (not safe)) - (&raw-table-count _tab69589_)) + (&raw-table-count _tab69571_)) '1))) (declare (not safe)) (&raw-table-count-set! - _tab69589_ - __tmp69979))))) - (let ((__tmp69978 - (let ((_next-probe69627_ - (fx+ _start69608_ - _i69617_ - (fx* _i69617_ _i69617_)))) - (fxmodulo _next-probe69627_ _size69602_))) - (__tmp69977 (fx+ _i69617_ '1))) + _tab69571_ + __tmp69961))))) + (let ((__tmp69960 + (let ((_next-probe69609_ + (fx+ _start69590_ + _i69599_ + (fx* _i69599_ _i69599_)))) + (fxmodulo _next-probe69609_ _size69584_))) + (__tmp69959 (fx+ _i69599_ '1))) (declare (not safe)) - (_loop69612_ __tmp69978 __tmp69977))))))))))) + (_loop69594_ __tmp69960 __tmp69959))))))))))) (define __interface-prototypes-mx (vector '0)) (define __interface-prototypes (let () (declare (not safe)) (make-prototype-table__% '#f '0))) (define __interface-prototypes-key (let () (declare (not safe)) (cons '#f '#f))) (define interface-subclass? - (lambda (_klass69581_) - (let ((_super6958269584_ - (let () (declare (not safe)) (##type-super _klass69581_)))) - (if _super6958269584_ - (let ((_super69587_ _super6958269584_)) - (let ((__tmp69985 - (let () (declare (not safe)) (##type-id _super69587_))) - (__tmp69984 + (lambda (_klass69563_) + (let ((_super6956469566_ + (let () (declare (not safe)) (##type-super _klass69563_)))) + (if _super6956469566_ + (let ((_super69569_ _super6956469566_)) + (let ((__tmp69967 + (let () (declare (not safe)) (##type-id _super69569_))) + (__tmp69966 (let () (declare (not safe)) (##type-id interface-instance::t)))) (declare (not safe)) - (eq? __tmp69985 __tmp69984))) + (eq? __tmp69967 __tmp69966))) '#f)))) (define create-prototype - (lambda (_descriptor69467_ _klass69468_ _obj-klass69469_) - (let ((_method-table69471_ + (lambda (_descriptor69449_ _klass69450_ _obj-klass69451_) + (let ((_method-table69453_ (let () (declare (not safe)) - (specialize-class _obj-klass69469_)))) - (let _loop69474_ ((_rest69477_ + (specialize-class _obj-klass69451_)))) + (let _loop69456_ ((_rest69459_ (let () (declare (not safe)) (##unchecked-structure-ref - _descriptor69467_ + _descriptor69449_ '2 interface-descriptor::t '#f))) - (_count69479_ '0) - (_methods69481_ '())) - (let* ((_rest6948369491_ _rest69477_) - (_else6948569553_ + (_count69461_ '0) + (_methods69463_ '())) + (let* ((_rest6946569473_ _rest69459_) + (_else6946769535_ (lambda () - (let ((_prototype69499_ - (let ((__obj69931 - (let ((__tmp69986 + (let ((_prototype69481_ + (let ((__obj69913 + (let ((__tmp69968 (let () (declare (not safe)) - (##fx+ _count69479_ '2)))) + (##fx+ _count69461_ '2)))) (declare (not safe)) (##make-structure - _klass69468_ - __tmp69986)))) + _klass69450_ + __tmp69968)))) (let () (declare (not safe)) - (object-fill! __obj69931 '#f)) - __obj69931))) - (let _loop69502_ ((_rest69504_ _methods69481_) - (_off69505_ + (object-fill! __obj69913 '#f)) + __obj69913))) + (let _loop69484_ ((_rest69486_ _methods69463_) + (_off69487_ (let () (declare (not safe)) - (##fx+ _count69479_ '1)))) - (let* ((_rest6950769515_ _rest69504_) - (_else6950969534_ + (##fx+ _count69461_ '1)))) + (let* ((_rest6948969497_ _rest69486_) + (_else6949169516_ (lambda () - (let ((_prototype-key69523_ - (let ((__tmp69988 + (let ((_prototype-key69505_ + (let ((__tmp69970 (let () (declare (not safe)) - (##type-id _klass69468_))) - (__tmp69987 + (##type-id _klass69450_))) + (__tmp69969 (let () (declare (not safe)) (##type-id - _obj-klass69469_)))) + _obj-klass69451_)))) (declare (not safe)) - (cons __tmp69988 __tmp69987)))) + (cons __tmp69970 __tmp69969)))) (let () (declare (not interrupts-enabled)) - (let _again69528_ () - (if (let ((__tmp69989 + (let _again69510_ () + (if (let ((__tmp69971 (let () (declare (not safe)) (##vector-cas! @@ -712,7 +712,7 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp69989 '0)) + (##fx= __tmp69971 '0)) '#!void (begin (let () @@ -720,13 +720,13 @@ (##thread-yield!)) (let () (declare (not safe)) - (_again69528_)))))) + (_again69510_)))))) (let () (declare (not safe)) (prototype-table-set! __interface-prototypes - _prototype-key69523_ - _prototype69499_)) + _prototype-key69505_ + _prototype69481_)) (let () (declare (not safe)) (##vector-cas! @@ -734,167 +734,167 @@ '0 '0 '1)) - ((lambda (_prototype69532_) - _prototype69532_) - _prototype69499_)))) - (_K6951169541_ - (lambda (_rest69537_ _method69538_) + ((lambda (_prototype69514_) + _prototype69514_) + _prototype69481_)))) + (_K6949369523_ + (lambda (_rest69519_ _method69520_) (let () (declare (not safe)) (##unchecked-structure-set! - _prototype69499_ - _method69538_ - _off69505_ - _klass69468_ + _prototype69481_ + _method69520_ + _off69487_ + _klass69450_ '#f)) - (let ((__tmp69990 + (let ((__tmp69972 (let () (declare (not safe)) - (##fx- _off69505_ '1)))) + (##fx- _off69487_ '1)))) (declare (not safe)) - (_loop69502_ _rest69537_ __tmp69990))))) + (_loop69484_ _rest69519_ __tmp69972))))) (if (let () (declare (not safe)) - (##pair? _rest6950769515_)) - (let ((_hd6951269544_ + (##pair? _rest6948969497_)) + (let ((_hd6949469526_ (let () (declare (not safe)) - (##car _rest6950769515_))) - (_tl6951369546_ + (##car _rest6948969497_))) + (_tl6949569528_ (let () (declare (not safe)) - (##cdr _rest6950769515_)))) - (let* ((_method69549_ _hd6951269544_) - (_rest69551_ _tl6951369546_)) + (##cdr _rest6948969497_)))) + (let* ((_method69531_ _hd6949469526_) + (_rest69533_ _tl6949569528_)) (declare (not safe)) - (_K6951169541_ _rest69551_ _method69549_))) + (_K6949369523_ _rest69533_ _method69531_))) (let () (declare (not safe)) - (_else6950969534_)))))))) - (_K6948769569_ - (lambda (_rest69556_ _method-name69557_) - (let ((_$e69560_ + (_else6949169516_)))))))) + (_K6946969551_ + (lambda (_rest69538_ _method-name69539_) + (let ((_$e69542_ (let () (declare (not safe)) (symbolic-table-ref - _method-table69471_ - _method-name69557_ + _method-table69453_ + _method-name69539_ '#f)))) - (if _$e69560_ - ((lambda (_method69563_) - (let ((__tmp69994 + (if _$e69542_ + ((lambda (_method69545_) + (let ((__tmp69976 (let () (declare (not safe)) - (##fx+ _count69479_ '1))) - (__tmp69993 + (##fx+ _count69461_ '1))) + (__tmp69975 (let () (declare (not safe)) - (cons _method69563_ _methods69481_)))) + (cons _method69545_ _methods69463_)))) (declare (not safe)) - (_loop69474_ - _rest69556_ - __tmp69994 - __tmp69993))) - _$e69560_) - ((lambda (_klass69565_ - _obj-klass69566_ - _method-name69567_) - (let ((__tmp69992 + (_loop69456_ + _rest69538_ + __tmp69976 + __tmp69975))) + _$e69542_) + ((lambda (_klass69547_ + _obj-klass69548_ + _method-name69549_) + (let ((__tmp69974 (let () (declare (not safe)) - (##type-id _klass69565_))) - (__tmp69991 + (##type-id _klass69547_))) + (__tmp69973 (let () (declare (not safe)) - (##type-id _obj-klass69566_)))) + (##type-id _obj-klass69548_)))) (declare (not safe)) (raise-cast-error 'create-prototype '"cannot create interface instance; missing method" 'interface: - _klass69565_ + _klass69547_ 'interface-id: - __tmp69992 + __tmp69974 'class: - _obj-klass69566_ + _obj-klass69548_ 'class-id: - __tmp69991 + __tmp69973 'method: - _method-name69567_))) - _klass69468_ - _obj-klass69469_ - _method-name69557_)))))) - (if (let () (declare (not safe)) (##pair? _rest6948369491_)) - (let ((_hd6948869572_ + _method-name69549_))) + _klass69450_ + _obj-klass69451_ + _method-name69539_)))))) + (if (let () (declare (not safe)) (##pair? _rest6946569473_)) + (let ((_hd6947069554_ (let () (declare (not safe)) - (##car _rest6948369491_))) - (_tl6948969574_ + (##car _rest6946569473_))) + (_tl6947169556_ (let () (declare (not safe)) - (##cdr _rest6948369491_)))) - (let* ((_method-name69577_ _hd6948869572_) - (_rest69579_ _tl6948969574_)) + (##cdr _rest6946569473_)))) + (let* ((_method-name69559_ _hd6947069554_) + (_rest69561_ _tl6947169556_)) (declare (not safe)) - (_K6948769569_ _rest69579_ _method-name69577_))) - (let () (declare (not safe)) (_else6948569553_)))))))) + (_K6946969551_ _rest69561_ _method-name69559_))) + (let () (declare (not safe)) (_else6946769535_)))))))) (define try-create-prototype - (lambda (_descriptor69353_ _klass69354_ _obj-klass69355_) - (let ((_method-table69357_ + (lambda (_descriptor69335_ _klass69336_ _obj-klass69337_) + (let ((_method-table69339_ (let () (declare (not safe)) - (specialize-class _obj-klass69355_)))) - (let _loop69360_ ((_rest69363_ + (specialize-class _obj-klass69337_)))) + (let _loop69342_ ((_rest69345_ (let () (declare (not safe)) (##unchecked-structure-ref - _descriptor69353_ + _descriptor69335_ '2 interface-descriptor::t '#f))) - (_count69365_ '0) - (_methods69367_ '())) - (let* ((_rest6936969377_ _rest69363_) - (_else6937169439_ + (_count69347_ '0) + (_methods69349_ '())) + (let* ((_rest6935169359_ _rest69345_) + (_else6935369421_ (lambda () - (let ((_prototype69385_ - (let ((__obj69932 - (let ((__tmp69995 + (let ((_prototype69367_ + (let ((__obj69914 + (let ((__tmp69977 (let () (declare (not safe)) - (##fx+ _count69365_ '2)))) + (##fx+ _count69347_ '2)))) (declare (not safe)) (##make-structure - _klass69354_ - __tmp69995)))) + _klass69336_ + __tmp69977)))) (let () (declare (not safe)) - (object-fill! __obj69932 '#f)) - __obj69932))) - (let _loop69388_ ((_rest69390_ _methods69367_) - (_off69391_ + (object-fill! __obj69914 '#f)) + __obj69914))) + (let _loop69370_ ((_rest69372_ _methods69349_) + (_off69373_ (let () (declare (not safe)) - (##fx+ _count69365_ '1)))) - (let* ((_rest6939369401_ _rest69390_) - (_else6939569420_ + (##fx+ _count69347_ '1)))) + (let* ((_rest6937569383_ _rest69372_) + (_else6937769402_ (lambda () - (let ((_prototype-key69409_ - (let ((__tmp69997 + (let ((_prototype-key69391_ + (let ((__tmp69979 (let () (declare (not safe)) - (##type-id _klass69354_))) - (__tmp69996 + (##type-id _klass69336_))) + (__tmp69978 (let () (declare (not safe)) (##type-id - _obj-klass69355_)))) + _obj-klass69337_)))) (declare (not safe)) - (cons __tmp69997 __tmp69996)))) + (cons __tmp69979 __tmp69978)))) (let () (declare (not interrupts-enabled)) - (let _again69414_ () - (if (let ((__tmp69998 + (let _again69396_ () + (if (let ((__tmp69980 (let () (declare (not safe)) (##vector-cas! @@ -903,7 +903,7 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp69998 '0)) + (##fx= __tmp69980 '0)) '#!void (begin (let () @@ -911,13 +911,13 @@ (##thread-yield!)) (let () (declare (not safe)) - (_again69414_)))))) + (_again69396_)))))) (let () (declare (not safe)) (prototype-table-set! __interface-prototypes - _prototype-key69409_ - _prototype69385_)) + _prototype-key69391_ + _prototype69367_)) (let () (declare (not safe)) (##vector-cas! @@ -925,128 +925,128 @@ '0 '0 '1)) - ((lambda (_prototype69418_) - _prototype69418_) - _prototype69385_)))) - (_K6939769427_ - (lambda (_rest69423_ _method69424_) + ((lambda (_prototype69400_) + _prototype69400_) + _prototype69367_)))) + (_K6937969409_ + (lambda (_rest69405_ _method69406_) (let () (declare (not safe)) (##unchecked-structure-set! - _prototype69385_ - _method69424_ - _off69391_ - _klass69354_ + _prototype69367_ + _method69406_ + _off69373_ + _klass69336_ '#f)) - (let ((__tmp69999 + (let ((__tmp69981 (let () (declare (not safe)) - (##fx- _off69391_ '1)))) + (##fx- _off69373_ '1)))) (declare (not safe)) - (_loop69388_ _rest69423_ __tmp69999))))) + (_loop69370_ _rest69405_ __tmp69981))))) (if (let () (declare (not safe)) - (##pair? _rest6939369401_)) - (let ((_hd6939869430_ + (##pair? _rest6937569383_)) + (let ((_hd6938069412_ (let () (declare (not safe)) - (##car _rest6939369401_))) - (_tl6939969432_ + (##car _rest6937569383_))) + (_tl6938169414_ (let () (declare (not safe)) - (##cdr _rest6939369401_)))) - (let* ((_method69435_ _hd6939869430_) - (_rest69437_ _tl6939969432_)) + (##cdr _rest6937569383_)))) + (let* ((_method69417_ _hd6938069412_) + (_rest69419_ _tl6938169414_)) (declare (not safe)) - (_K6939769427_ _rest69437_ _method69435_))) + (_K6937969409_ _rest69419_ _method69417_))) (let () (declare (not safe)) - (_else6939569420_)))))))) - (_K6937369455_ - (lambda (_rest69442_ _method-name69443_) - (let ((_$e69446_ + (_else6937769402_)))))))) + (_K6935569437_ + (lambda (_rest69424_ _method-name69425_) + (let ((_$e69428_ (let () (declare (not safe)) (symbolic-table-ref - _method-table69357_ - _method-name69443_ + _method-table69339_ + _method-name69425_ '#f)))) - (if _$e69446_ - ((lambda (_method69449_) - (let ((__tmp70001 + (if _$e69428_ + ((lambda (_method69431_) + (let ((__tmp69983 (let () (declare (not safe)) - (##fx+ _count69365_ '1))) - (__tmp70000 + (##fx+ _count69347_ '1))) + (__tmp69982 (let () (declare (not safe)) - (cons _method69449_ _methods69367_)))) + (cons _method69431_ _methods69349_)))) (declare (not safe)) - (_loop69360_ - _rest69442_ - __tmp70001 - __tmp70000))) - _$e69446_) - ((lambda (_klass69451_ - _obj-klass69452_ - _method-name69453_) + (_loop69342_ + _rest69424_ + __tmp69983 + __tmp69982))) + _$e69428_) + ((lambda (_klass69433_ + _obj-klass69434_ + _method-name69435_) '#f) - _klass69354_ - _obj-klass69355_ - _method-name69443_)))))) - (if (let () (declare (not safe)) (##pair? _rest6936969377_)) - (let ((_hd6937469458_ + _klass69336_ + _obj-klass69337_ + _method-name69425_)))))) + (if (let () (declare (not safe)) (##pair? _rest6935169359_)) + (let ((_hd6935669440_ (let () (declare (not safe)) - (##car _rest6936969377_))) - (_tl6937569460_ + (##car _rest6935169359_))) + (_tl6935769442_ (let () (declare (not safe)) - (##cdr _rest6936969377_)))) - (let* ((_method-name69463_ _hd6937469458_) - (_rest69465_ _tl6937569460_)) + (##cdr _rest6935169359_)))) + (let* ((_method-name69445_ _hd6935669440_) + (_rest69447_ _tl6935769442_)) (declare (not safe)) - (_K6937369455_ _rest69465_ _method-name69463_))) - (let () (declare (not safe)) (_else6937169439_)))))))) + (_K6935569437_ _rest69447_ _method-name69445_))) + (let () (declare (not safe)) (_else6935369421_)))))))) (define cast - (lambda (_descriptor69315_ _obj69317_) + (lambda (_descriptor69297_ _obj69299_) (declare (not interrupts-enabled)) - (let* ((_klass69321_ + (let* ((_klass69303_ (let () (declare (not safe)) (##unchecked-structure-ref - _descriptor69315_ + _descriptor69297_ '1 interface-descriptor::t '#f))) - (_klass-id69324_ - (let () (declare (not safe)) (##type-id _klass69321_))) - (_obj-klass69327_ - (let () (declare (not safe)) (class-of _obj69317_))) - (_obj-klass-id69330_ - (let () (declare (not safe)) (##type-id _obj-klass69327_)))) + (_klass-id69306_ + (let () (declare (not safe)) (##type-id _klass69303_))) + (_obj-klass69309_ + (let () (declare (not safe)) (class-of _obj69299_))) + (_obj-klass-id69312_ + (let () (declare (not safe)) (##type-id _obj-klass69309_)))) (if (let () (declare (not safe)) - (##eq? _klass-id69324_ _obj-klass-id69330_)) - _obj69317_ + (##eq? _klass-id69306_ _obj-klass-id69312_)) + _obj69299_ (if (let () (declare (not safe)) - (interface-subclass? _obj-klass69327_)) - (let ((__tmp70003 + (interface-subclass? _obj-klass69309_)) + (let ((__tmp69985 (let () (declare (not safe)) (##unchecked-structure-ref - _obj69317_ + _obj69299_ '1 interface-instance::t '#f)))) (declare (not safe)) - (cast _descriptor69315_ __tmp70003)) + (cast _descriptor69297_ __tmp69985)) (begin (let () (declare (not interrupts-enabled)) - (let _again69336_ () - (if (let ((__tmp70002 + (let _again69318_ () + (if (let ((__tmp69984 (let () (declare (not safe)) (##vector-cas! @@ -1055,29 +1055,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp70002 '0)) + (##fx= __tmp69984 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_again69336_)))))) + (let () (declare (not safe)) (_again69318_)))))) (let () (declare (not safe)) - (##set-car! __interface-prototypes-key _klass-id69324_)) + (##set-car! __interface-prototypes-key _klass-id69306_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _obj-klass-id69330_)) - (let ((_prototype69346_ - (let ((_$e69340_ + _obj-klass-id69312_)) + (let ((_prototype69328_ + (let ((_$e69322_ (let () (declare (not safe)) (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f)))) - (if _$e69340_ - ((lambda (_prototype69343_) + (if _$e69322_ + ((lambda (_prototype69325_) (let () (declare (not safe)) (##vector-cas! @@ -1085,8 +1085,8 @@ '0 '0 '1)) - _prototype69343_) - _$e69340_) + _prototype69325_) + _$e69322_) (begin (let () (declare (not safe)) @@ -1098,64 +1098,64 @@ (let () (declare (not safe)) (create-prototype - _descriptor69315_ - _klass69321_ - _obj-klass69327_))))))) - ((lambda (_prototype69348_ _obj69349_) - (let ((_instance69351_ + _descriptor69297_ + _klass69303_ + _obj-klass69309_))))))) + ((lambda (_prototype69330_ _obj69331_) + (let ((_instance69333_ (let () (declare (not safe)) - (##structure-copy _prototype69348_)))) + (##structure-copy _prototype69330_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _instance69351_ - _obj69349_ + _instance69333_ + _obj69331_ '1 '#f 'cast)) - _instance69351_)) - _prototype69346_ - _obj69317_)))))))) + _instance69333_)) + _prototype69328_ + _obj69299_)))))))) (define try-cast - (lambda (_descriptor69277_ _obj69279_) + (lambda (_descriptor69259_ _obj69261_) (declare (not interrupts-enabled)) - (let* ((_klass69283_ + (let* ((_klass69265_ (let () (declare (not safe)) (##unchecked-structure-ref - _descriptor69277_ + _descriptor69259_ '1 interface-descriptor::t '#f))) - (_klass-id69286_ - (let () (declare (not safe)) (##type-id _klass69283_))) - (_obj-klass69289_ - (let () (declare (not safe)) (class-of _obj69279_))) - (_obj-klass-id69292_ - (let () (declare (not safe)) (##type-id _obj-klass69289_)))) + (_klass-id69268_ + (let () (declare (not safe)) (##type-id _klass69265_))) + (_obj-klass69271_ + (let () (declare (not safe)) (class-of _obj69261_))) + (_obj-klass-id69274_ + (let () (declare (not safe)) (##type-id _obj-klass69271_)))) (if (let () (declare (not safe)) - (##eq? _klass-id69286_ _obj-klass-id69292_)) - _obj69279_ + (##eq? _klass-id69268_ _obj-klass-id69274_)) + _obj69261_ (if (let () (declare (not safe)) - (interface-subclass? _obj-klass69289_)) - (let ((__tmp70005 + (interface-subclass? _obj-klass69271_)) + (let ((__tmp69987 (let () (declare (not safe)) (##unchecked-structure-ref - _obj69279_ + _obj69261_ '1 interface-instance::t '#f)))) (declare (not safe)) - (try-cast _descriptor69277_ __tmp70005)) + (try-cast _descriptor69259_ __tmp69987)) (begin (let () (declare (not interrupts-enabled)) - (let _again69298_ () - (if (let ((__tmp70004 + (let _again69280_ () + (if (let ((__tmp69986 (let () (declare (not safe)) (##vector-cas! @@ -1164,29 +1164,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp70004 '0)) + (##fx= __tmp69986 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_again69298_)))))) + (let () (declare (not safe)) (_again69280_)))))) (let () (declare (not safe)) - (##set-car! __interface-prototypes-key _klass-id69286_)) + (##set-car! __interface-prototypes-key _klass-id69268_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _obj-klass-id69292_)) - (let ((_prototype69308_ - (let ((_$e69302_ + _obj-klass-id69274_)) + (let ((_prototype69290_ + (let ((_$e69284_ (let () (declare (not safe)) (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f)))) - (if _$e69302_ - ((lambda (_prototype69305_) + (if _$e69284_ + ((lambda (_prototype69287_) (let () (declare (not safe)) (##vector-cas! @@ -1194,8 +1194,8 @@ '0 '0 '1)) - _prototype69305_) - _$e69302_) + _prototype69287_) + _$e69284_) (begin (let () (declare (not safe)) @@ -1207,66 +1207,66 @@ (let () (declare (not safe)) (try-create-prototype - _descriptor69277_ - _klass69283_ - _obj-klass69289_))))))) - ((lambda (_prototype69310_ _obj69311_) - (if _prototype69310_ - (let ((_instance69313_ + _descriptor69259_ + _klass69265_ + _obj-klass69271_))))))) + ((lambda (_prototype69292_ _obj69293_) + (if _prototype69292_ + (let ((_instance69295_ (let () (declare (not safe)) - (##structure-copy _prototype69310_)))) + (##structure-copy _prototype69292_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _instance69313_ - _obj69311_ + _instance69295_ + _obj69293_ '1 '#f 'cast)) - _instance69313_) + _instance69295_) '#f)) - _prototype69308_ - _obj69279_)))))))) + _prototype69290_ + _obj69261_)))))))) (define satisfies? - (lambda (_descriptor69241_ _obj69243_) + (lambda (_descriptor69223_ _obj69225_) (declare (not interrupts-enabled)) - (let* ((_klass69247_ + (let* ((_klass69229_ (let () (declare (not safe)) (##unchecked-structure-ref - _descriptor69241_ + _descriptor69223_ '1 interface-descriptor::t '#f))) - (_klass-id69250_ - (let () (declare (not safe)) (##type-id _klass69247_))) - (_obj-klass69253_ - (let () (declare (not safe)) (class-of _obj69243_))) - (_obj-klass-id69256_ - (let () (declare (not safe)) (##type-id _obj-klass69253_)))) + (_klass-id69232_ + (let () (declare (not safe)) (##type-id _klass69229_))) + (_obj-klass69235_ + (let () (declare (not safe)) (class-of _obj69225_))) + (_obj-klass-id69238_ + (let () (declare (not safe)) (##type-id _obj-klass69235_)))) (if (let () (declare (not safe)) - (##eq? _klass-id69250_ _obj-klass-id69256_)) - _obj69243_ + (##eq? _klass-id69232_ _obj-klass-id69238_)) + _obj69225_ (if (let () (declare (not safe)) - (interface-subclass? _obj-klass69253_)) - (let ((__tmp70007 + (interface-subclass? _obj-klass69235_)) + (let ((__tmp69989 (let () (declare (not safe)) (##unchecked-structure-ref - _obj69243_ + _obj69225_ '1 interface-instance::t '#f)))) (declare (not safe)) - (satisfies? _descriptor69241_ __tmp70007)) + (satisfies? _descriptor69223_ __tmp69989)) (begin (let () (declare (not interrupts-enabled)) - (let _again69262_ () - (if (let ((__tmp70006 + (let _again69244_ () + (if (let ((__tmp69988 (let () (declare (not safe)) (##vector-cas! @@ -1275,29 +1275,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp70006 '0)) + (##fx= __tmp69988 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (let () (declare (not safe)) (_again69262_)))))) + (let () (declare (not safe)) (_again69244_)))))) (let () (declare (not safe)) - (##set-car! __interface-prototypes-key _klass-id69250_)) + (##set-car! __interface-prototypes-key _klass-id69232_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _obj-klass-id69256_)) - (let ((_prototype69272_ - (let ((_$e69266_ + _obj-klass-id69238_)) + (let ((_prototype69254_ + (let ((_$e69248_ (let () (declare (not safe)) (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f)))) - (if _$e69266_ - ((lambda (_prototype69269_) + (if _$e69248_ + ((lambda (_prototype69251_) (let () (declare (not safe)) (##vector-cas! @@ -1305,8 +1305,8 @@ '0 '0 '1)) - _prototype69269_) - _$e69266_) + _prototype69251_) + _$e69248_) (begin (let () (declare (not safe)) @@ -1318,10 +1318,10 @@ (let () (declare (not safe)) (try-create-prototype - _descriptor69241_ - _klass69247_ - _obj-klass69253_))))))) - ((lambda (_prototype69274_ _obj69275_) - (if _prototype69274_ '#t '#f)) - _prototype69272_ - _obj69243_)))))))))) + _descriptor69223_ + _klass69229_ + _obj-klass69235_))))))) + ((lambda (_prototype69256_ _obj69257_) + (if _prototype69256_ '#t '#f)) + _prototype69254_ + _obj69225_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/interface~1.scm b/src/bootstrap/gerbil/runtime/interface~1.scm index f43fbd97a..1a84b24d5 100644 --- a/src/bootstrap/gerbil/runtime/interface~1.scm +++ b/src/bootstrap/gerbil/runtime/interface~1.scm @@ -1,216 +1,216 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g70010_| + (define |[1]#_g69992_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g70012_| + (define |[1]#_g69994_| (##structure gx#syntax-quote::t 'CastError::t #f (gx#current-expander-context) '())) - (define |[1]#_g70014_| + (define |[1]#_g69996_| (##structure gx#syntax-quote::t 'make-CastError #f (gx#current-expander-context) '())) - (define |[1]#_g70016_| + (define |[1]#_g69998_| (##structure gx#syntax-quote::t 'CastError? #f (gx#current-expander-context) '())) - (define |[1]#_g70023_| + (define |[1]#_g70005_| (##structure gx#syntax-quote::t 'CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g70026_| + (define |[1]#_g70008_| (##structure gx#syntax-quote::t 'CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g70029_| + (define |[1]#_g70011_| (##structure gx#syntax-quote::t 'CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g70032_| + (define |[1]#_g70014_| (##structure gx#syntax-quote::t 'CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g70039_| + (define |[1]#_g70021_| (##structure gx#syntax-quote::t 'CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g70042_| + (define |[1]#_g70024_| (##structure gx#syntax-quote::t 'CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g70045_| + (define |[1]#_g70027_| (##structure gx#syntax-quote::t 'CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g70048_| + (define |[1]#_g70030_| (##structure gx#syntax-quote::t 'CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g70055_| + (define |[1]#_g70037_| (##structure gx#syntax-quote::t '&CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g70058_| + (define |[1]#_g70040_| (##structure gx#syntax-quote::t '&CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g70061_| + (define |[1]#_g70043_| (##structure gx#syntax-quote::t '&CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g70064_| + (define |[1]#_g70046_| (##structure gx#syntax-quote::t '&CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g70071_| + (define |[1]#_g70053_| (##structure gx#syntax-quote::t '&CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g70074_| + (define |[1]#_g70056_| (##structure gx#syntax-quote::t '&CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g70077_| + (define |[1]#_g70059_| (##structure gx#syntax-quote::t '&CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g70080_| + (define |[1]#_g70062_| (##structure gx#syntax-quote::t '&CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g70082_| + (define |[1]#_g70064_| (##structure gx#syntax-quote::t 'interface-descriptor::t #f (gx#current-expander-context) '())) - (define |[1]#_g70084_| + (define |[1]#_g70066_| (##structure gx#syntax-quote::t 'make-interface-descriptor #f (gx#current-expander-context) '())) - (define |[1]#_g70086_| + (define |[1]#_g70068_| (##structure gx#syntax-quote::t 'interface-descriptor? #f (gx#current-expander-context) '())) - (define |[1]#_g70091_| + (define |[1]#_g70073_| (##structure gx#syntax-quote::t 'interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g70094_| + (define |[1]#_g70076_| (##structure gx#syntax-quote::t 'interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g70099_| + (define |[1]#_g70081_| (##structure gx#syntax-quote::t 'interface-descriptor-methods-set! #f (gx#current-expander-context) '())) - (define |[1]#_g70102_| + (define |[1]#_g70084_| (##structure gx#syntax-quote::t 'interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g70107_| + (define |[1]#_g70089_| (##structure gx#syntax-quote::t '&interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g70110_| + (define |[1]#_g70092_| (##structure gx#syntax-quote::t '&interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g70115_| + (define |[1]#_g70097_| (##structure gx#syntax-quote::t '&interface-descriptor-methods-set! #f (gx#current-expander-context) '())) - (define |[1]#_g70118_| + (define |[1]#_g70100_| (##structure gx#syntax-quote::t '&interface-descriptor-type-set! @@ -219,7 +219,7 @@ '())) (begin (define |[:0:]#CastError| - (let ((__obj69928 + (let ((__obj69910 (let () (declare (not safe)) (##structure @@ -243,7 +243,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj69928 + __obj69910 'gerbil/runtime/interface#CastError::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -251,7 +251,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj69928 + __obj69910 'CastError '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -259,26 +259,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj69928 + __obj69910 '() '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp70008 - (let ((__tmp70009 |[1]#_g70010_|)) + (let ((__tmp69990 + (let ((__tmp69991 |[1]#_g69992_|)) (declare (not safe)) - (cons __tmp70009 '())))) + (cons __tmp69991 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj69928 - __tmp70008 + __obj69910 + __tmp69990 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj69928 + __obj69910 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -286,7 +286,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj69928 + __obj69910 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -294,7 +294,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj69928 + __obj69910 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -302,178 +302,178 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj69928 + __obj69910 ':init! '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp70011 |[1]#_g70012_|)) + (let ((__tmp69993 |[1]#_g69994_|)) (declare (not safe)) (##unchecked-structure-set! - __obj69928 - __tmp70011 + __obj69910 + __tmp69993 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp70013 |[1]#_g70014_|)) + (let ((__tmp69995 |[1]#_g69996_|)) (declare (not safe)) (##unchecked-structure-set! - __obj69928 - __tmp70013 + __obj69910 + __tmp69995 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp70015 |[1]#_g70016_|)) + (let ((__tmp69997 |[1]#_g69998_|)) (declare (not safe)) (##unchecked-structure-set! - __obj69928 - __tmp70015 + __obj69910 + __tmp69997 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp70017 - (let ((__tmp70030 - (let ((__tmp70031 |[1]#_g70032_|)) + (let ((__tmp69999 + (let ((__tmp70012 + (let ((__tmp70013 |[1]#_g70014_|)) (declare (not safe)) - (cons 'message __tmp70031))) - (__tmp70018 - (let ((__tmp70027 - (let ((__tmp70028 |[1]#_g70029_|)) + (cons 'message __tmp70013))) + (__tmp70000 + (let ((__tmp70009 + (let ((__tmp70010 |[1]#_g70011_|)) (declare (not safe)) - (cons 'irritants __tmp70028))) - (__tmp70019 - (let ((__tmp70024 - (let ((__tmp70025 |[1]#_g70026_|)) + (cons 'irritants __tmp70010))) + (__tmp70001 + (let ((__tmp70006 + (let ((__tmp70007 |[1]#_g70008_|)) (declare (not safe)) - (cons 'where __tmp70025))) - (__tmp70020 - (let ((__tmp70021 - (let ((__tmp70022 |[1]#_g70023_|)) + (cons 'where __tmp70007))) + (__tmp70002 + (let ((__tmp70003 + (let ((__tmp70004 |[1]#_g70005_|)) (declare (not safe)) - (cons 'continuation __tmp70022)))) + (cons 'continuation __tmp70004)))) (declare (not safe)) - (cons __tmp70021 '())))) + (cons __tmp70003 '())))) (declare (not safe)) - (cons __tmp70024 __tmp70020)))) + (cons __tmp70006 __tmp70002)))) (declare (not safe)) - (cons __tmp70027 __tmp70019)))) + (cons __tmp70009 __tmp70001)))) (declare (not safe)) - (cons __tmp70030 __tmp70018)))) + (cons __tmp70012 __tmp70000)))) (declare (not safe)) (##unchecked-structure-set! - __obj69928 - __tmp70017 + __obj69910 + __tmp69999 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp70033 - (let ((__tmp70046 - (let ((__tmp70047 |[1]#_g70048_|)) + (let ((__tmp70015 + (let ((__tmp70028 + (let ((__tmp70029 |[1]#_g70030_|)) (declare (not safe)) - (cons 'message __tmp70047))) - (__tmp70034 - (let ((__tmp70043 - (let ((__tmp70044 |[1]#_g70045_|)) + (cons 'message __tmp70029))) + (__tmp70016 + (let ((__tmp70025 + (let ((__tmp70026 |[1]#_g70027_|)) (declare (not safe)) - (cons 'irritants __tmp70044))) - (__tmp70035 - (let ((__tmp70040 - (let ((__tmp70041 |[1]#_g70042_|)) + (cons 'irritants __tmp70026))) + (__tmp70017 + (let ((__tmp70022 + (let ((__tmp70023 |[1]#_g70024_|)) (declare (not safe)) - (cons 'where __tmp70041))) - (__tmp70036 - (let ((__tmp70037 - (let ((__tmp70038 |[1]#_g70039_|)) + (cons 'where __tmp70023))) + (__tmp70018 + (let ((__tmp70019 + (let ((__tmp70020 |[1]#_g70021_|)) (declare (not safe)) - (cons 'continuation __tmp70038)))) + (cons 'continuation __tmp70020)))) (declare (not safe)) - (cons __tmp70037 '())))) + (cons __tmp70019 '())))) (declare (not safe)) - (cons __tmp70040 __tmp70036)))) + (cons __tmp70022 __tmp70018)))) (declare (not safe)) - (cons __tmp70043 __tmp70035)))) + (cons __tmp70025 __tmp70017)))) (declare (not safe)) - (cons __tmp70046 __tmp70034)))) + (cons __tmp70028 __tmp70016)))) (declare (not safe)) (##unchecked-structure-set! - __obj69928 - __tmp70033 + __obj69910 + __tmp70015 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp70049 - (let ((__tmp70062 - (let ((__tmp70063 |[1]#_g70064_|)) + (let ((__tmp70031 + (let ((__tmp70044 + (let ((__tmp70045 |[1]#_g70046_|)) (declare (not safe)) - (cons 'message __tmp70063))) - (__tmp70050 - (let ((__tmp70059 - (let ((__tmp70060 |[1]#_g70061_|)) + (cons 'message __tmp70045))) + (__tmp70032 + (let ((__tmp70041 + (let ((__tmp70042 |[1]#_g70043_|)) (declare (not safe)) - (cons 'irritants __tmp70060))) - (__tmp70051 - (let ((__tmp70056 - (let ((__tmp70057 |[1]#_g70058_|)) + (cons 'irritants __tmp70042))) + (__tmp70033 + (let ((__tmp70038 + (let ((__tmp70039 |[1]#_g70040_|)) (declare (not safe)) - (cons 'where __tmp70057))) - (__tmp70052 - (let ((__tmp70053 - (let ((__tmp70054 |[1]#_g70055_|)) + (cons 'where __tmp70039))) + (__tmp70034 + (let ((__tmp70035 + (let ((__tmp70036 |[1]#_g70037_|)) (declare (not safe)) - (cons 'continuation __tmp70054)))) + (cons 'continuation __tmp70036)))) (declare (not safe)) - (cons __tmp70053 '())))) + (cons __tmp70035 '())))) (declare (not safe)) - (cons __tmp70056 __tmp70052)))) + (cons __tmp70038 __tmp70034)))) (declare (not safe)) - (cons __tmp70059 __tmp70051)))) + (cons __tmp70041 __tmp70033)))) (declare (not safe)) - (cons __tmp70062 __tmp70050)))) + (cons __tmp70044 __tmp70032)))) (declare (not safe)) (##unchecked-structure-set! - __obj69928 - __tmp70049 + __obj69910 + __tmp70031 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp70065 - (let ((__tmp70078 - (let ((__tmp70079 |[1]#_g70080_|)) + (let ((__tmp70047 + (let ((__tmp70060 + (let ((__tmp70061 |[1]#_g70062_|)) (declare (not safe)) - (cons 'message __tmp70079))) - (__tmp70066 - (let ((__tmp70075 - (let ((__tmp70076 |[1]#_g70077_|)) + (cons 'message __tmp70061))) + (__tmp70048 + (let ((__tmp70057 + (let ((__tmp70058 |[1]#_g70059_|)) (declare (not safe)) - (cons 'irritants __tmp70076))) - (__tmp70067 - (let ((__tmp70072 - (let ((__tmp70073 |[1]#_g70074_|)) + (cons 'irritants __tmp70058))) + (__tmp70049 + (let ((__tmp70054 + (let ((__tmp70055 |[1]#_g70056_|)) (declare (not safe)) - (cons 'where __tmp70073))) - (__tmp70068 - (let ((__tmp70069 - (let ((__tmp70070 |[1]#_g70071_|)) + (cons 'where __tmp70055))) + (__tmp70050 + (let ((__tmp70051 + (let ((__tmp70052 |[1]#_g70053_|)) (declare (not safe)) - (cons 'continuation __tmp70070)))) + (cons 'continuation __tmp70052)))) (declare (not safe)) - (cons __tmp70069 '())))) + (cons __tmp70051 '())))) (declare (not safe)) - (cons __tmp70072 __tmp70068)))) + (cons __tmp70054 __tmp70050)))) (declare (not safe)) - (cons __tmp70075 __tmp70067)))) + (cons __tmp70057 __tmp70049)))) (declare (not safe)) - (cons __tmp70078 __tmp70066)))) + (cons __tmp70060 __tmp70048)))) (declare (not safe)) (##unchecked-structure-set! - __obj69928 - __tmp70065 + __obj69910 + __tmp70047 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj69928)) + __obj69910)) (define |[:0:]#interface-descriptor| - (let ((__obj69930 + (let ((__obj69912 (let () (declare (not safe)) (##structure @@ -497,7 +497,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj69930 + __obj69912 'gerbil/runtime/interface#interface-descriptor::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -505,7 +505,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj69930 + __obj69912 'interface-descriptor '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -513,7 +513,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj69930 + __obj69912 '(type methods) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -521,7 +521,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj69930 + __obj69912 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -529,7 +529,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj69930 + __obj69912 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -537,7 +537,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj69930 + __obj69912 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -545,7 +545,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj69930 + __obj69912 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -553,1545 +553,1545 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj69930 + __obj69912 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp70081 |[1]#_g70082_|)) + (let ((__tmp70063 |[1]#_g70064_|)) (declare (not safe)) (##unchecked-structure-set! - __obj69930 - __tmp70081 + __obj69912 + __tmp70063 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp70083 |[1]#_g70084_|)) + (let ((__tmp70065 |[1]#_g70066_|)) (declare (not safe)) (##unchecked-structure-set! - __obj69930 - __tmp70083 + __obj69912 + __tmp70065 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp70085 |[1]#_g70086_|)) + (let ((__tmp70067 |[1]#_g70068_|)) (declare (not safe)) (##unchecked-structure-set! - __obj69930 - __tmp70085 + __obj69912 + __tmp70067 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp70087 - (let ((__tmp70092 - (let ((__tmp70093 |[1]#_g70094_|)) + (let ((__tmp70069 + (let ((__tmp70074 + (let ((__tmp70075 |[1]#_g70076_|)) (declare (not safe)) - (cons 'type __tmp70093))) - (__tmp70088 - (let ((__tmp70089 - (let ((__tmp70090 |[1]#_g70091_|)) + (cons 'type __tmp70075))) + (__tmp70070 + (let ((__tmp70071 + (let ((__tmp70072 |[1]#_g70073_|)) (declare (not safe)) - (cons 'methods __tmp70090)))) + (cons 'methods __tmp70072)))) (declare (not safe)) - (cons __tmp70089 '())))) + (cons __tmp70071 '())))) (declare (not safe)) - (cons __tmp70092 __tmp70088)))) + (cons __tmp70074 __tmp70070)))) (declare (not safe)) (##unchecked-structure-set! - __obj69930 - __tmp70087 + __obj69912 + __tmp70069 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp70095 - (let ((__tmp70100 - (let ((__tmp70101 |[1]#_g70102_|)) + (let ((__tmp70077 + (let ((__tmp70082 + (let ((__tmp70083 |[1]#_g70084_|)) (declare (not safe)) - (cons 'type __tmp70101))) - (__tmp70096 - (let ((__tmp70097 - (let ((__tmp70098 |[1]#_g70099_|)) + (cons 'type __tmp70083))) + (__tmp70078 + (let ((__tmp70079 + (let ((__tmp70080 |[1]#_g70081_|)) (declare (not safe)) - (cons 'methods __tmp70098)))) + (cons 'methods __tmp70080)))) (declare (not safe)) - (cons __tmp70097 '())))) + (cons __tmp70079 '())))) (declare (not safe)) - (cons __tmp70100 __tmp70096)))) + (cons __tmp70082 __tmp70078)))) (declare (not safe)) (##unchecked-structure-set! - __obj69930 - __tmp70095 + __obj69912 + __tmp70077 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp70103 - (let ((__tmp70108 - (let ((__tmp70109 |[1]#_g70110_|)) + (let ((__tmp70085 + (let ((__tmp70090 + (let ((__tmp70091 |[1]#_g70092_|)) (declare (not safe)) - (cons 'type __tmp70109))) - (__tmp70104 - (let ((__tmp70105 - (let ((__tmp70106 |[1]#_g70107_|)) + (cons 'type __tmp70091))) + (__tmp70086 + (let ((__tmp70087 + (let ((__tmp70088 |[1]#_g70089_|)) (declare (not safe)) - (cons 'methods __tmp70106)))) + (cons 'methods __tmp70088)))) (declare (not safe)) - (cons __tmp70105 '())))) + (cons __tmp70087 '())))) (declare (not safe)) - (cons __tmp70108 __tmp70104)))) + (cons __tmp70090 __tmp70086)))) (declare (not safe)) (##unchecked-structure-set! - __obj69930 - __tmp70103 + __obj69912 + __tmp70085 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp70111 - (let ((__tmp70116 - (let ((__tmp70117 |[1]#_g70118_|)) + (let ((__tmp70093 + (let ((__tmp70098 + (let ((__tmp70099 |[1]#_g70100_|)) (declare (not safe)) - (cons 'type __tmp70117))) - (__tmp70112 - (let ((__tmp70113 - (let ((__tmp70114 |[1]#_g70115_|)) + (cons 'type __tmp70099))) + (__tmp70094 + (let ((__tmp70095 + (let ((__tmp70096 |[1]#_g70097_|)) (declare (not safe)) - (cons 'methods __tmp70114)))) + (cons 'methods __tmp70096)))) (declare (not safe)) - (cons __tmp70113 '())))) + (cons __tmp70095 '())))) (declare (not safe)) - (cons __tmp70116 __tmp70112)))) + (cons __tmp70098 __tmp70094)))) (declare (not safe)) (##unchecked-structure-set! - __obj69930 - __tmp70111 + __obj69912 + __tmp70093 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj69930)) + __obj69912)) (define |[:0:]#immediate-instance-of?| - (lambda (_$stx68925_) - (let* ((_g6892968947_ - (lambda (_g6893068943_) + (lambda (_$stx68907_) + (let* ((_g6891168929_ + (lambda (_g6891268925_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6893068943_))) - (_g6892869003_ - (lambda (_g6893068951_) - (if (gx#stx-pair? _g6893068951_) - (let ((_e6893568954_ (gx#syntax-e _g6893068951_))) - (let ((_hd6893468958_ + _g6891268925_))) + (_g6891068985_ + (lambda (_g6891268933_) + (if (gx#stx-pair? _g6891268933_) + (let ((_e6891768936_ (gx#syntax-e _g6891268933_))) + (let ((_hd6891668940_ (let () (declare (not safe)) - (##car _e6893568954_))) - (_tl6893368961_ + (##car _e6891768936_))) + (_tl6891568943_ (let () (declare (not safe)) - (##cdr _e6893568954_)))) - (if (gx#stx-pair? _tl6893368961_) - (let ((_e6893868964_ - (gx#syntax-e _tl6893368961_))) - (let ((_hd6893768968_ + (##cdr _e6891768936_)))) + (if (gx#stx-pair? _tl6891568943_) + (let ((_e6892068946_ + (gx#syntax-e _tl6891568943_))) + (let ((_hd6891968950_ (let () (declare (not safe)) - (##car _e6893868964_))) - (_tl6893668971_ + (##car _e6892068946_))) + (_tl6891868953_ (let () (declare (not safe)) - (##cdr _e6893868964_)))) - (if (gx#stx-pair? _tl6893668971_) - (let ((_e6894168974_ - (gx#syntax-e _tl6893668971_))) - (let ((_hd6894068978_ + (##cdr _e6892068946_)))) + (if (gx#stx-pair? _tl6891868953_) + (let ((_e6892368956_ + (gx#syntax-e _tl6891868953_))) + (let ((_hd6892268960_ (let () (declare (not safe)) - (##car _e6894168974_))) - (_tl6893968981_ + (##car _e6892368956_))) + (_tl6892168963_ (let () (declare (not safe)) - (##cdr _e6894168974_)))) - (if (gx#stx-null? _tl6893968981_) - ((lambda (_L68984_ _L68986_) - (let ((__tmp70131 + (##cdr _e6892368956_)))) + (if (gx#stx-null? _tl6892168963_) + ((lambda (_L68966_ _L68968_) + (let ((__tmp70113 (gx#datum->syntax '#f 'and)) - (__tmp70119 - (let ((__tmp70128 - (let ((__tmp70130 + (__tmp70101 + (let ((__tmp70110 + (let ((__tmp70112 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##structure?)) - (__tmp70129 + (__tmp70111 (let () (declare (not safe)) - (cons _L68984_ '())))) + (cons _L68966_ '())))) (declare (not safe)) - (cons __tmp70130 __tmp70129))) - (__tmp70120 - (let ((__tmp70121 - (let ((__tmp70127 (gx#datum->syntax '#f 'eq?)) - (__tmp70122 - (let ((__tmp70124 - (let ((__tmp70126 + (cons __tmp70112 __tmp70111))) + (__tmp70102 + (let ((__tmp70103 + (let ((__tmp70109 (gx#datum->syntax '#f 'eq?)) + (__tmp70104 + (let ((__tmp70106 + (let ((__tmp70108 (gx#datum->syntax '#f '##structure-type)) - (__tmp70125 + (__tmp70107 (let () (declare (not safe)) - (cons _L68984_ '())))) + (cons _L68966_ '())))) (declare (not safe)) - (cons __tmp70126 __tmp70125))) - (__tmp70123 + (cons __tmp70108 __tmp70107))) + (__tmp70105 (let () (declare (not safe)) - (cons _L68986_ '())))) + (cons _L68968_ '())))) (declare (not safe)) - (cons __tmp70124 __tmp70123)))) + (cons __tmp70106 __tmp70105)))) (declare (not safe)) - (cons __tmp70127 __tmp70122)))) + (cons __tmp70109 __tmp70104)))) (declare (not safe)) - (cons __tmp70121 '())))) + (cons __tmp70103 '())))) (declare (not safe)) - (cons __tmp70128 __tmp70120)))) + (cons __tmp70110 __tmp70102)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70131 - __tmp70119))) - _hd6894068978_ - _hd6893768968_) - (_g6892968947_ _g6893068951_)))) - (_g6892968947_ _g6893068951_)))) - (_g6892968947_ _g6893068951_)))) - (_g6892968947_ _g6893068951_))))) - (_g6892869003_ _$stx68925_)))) + (cons __tmp70113 + __tmp70101))) + _hd6892268960_ + _hd6891968950_) + (_g6891168929_ _g6891268933_)))) + (_g6891168929_ _g6891268933_)))) + (_g6891168929_ _g6891268933_)))) + (_g6891168929_ _g6891268933_))))) + (_g6891068985_ _$stx68907_)))) (define |[:0:]#do-create-prototype| - (lambda (_$stx69007_) - (let* ((_g6901169041_ - (lambda (_g6901269037_) + (lambda (_$stx68989_) + (let* ((_g6899369023_ + (lambda (_g6899469019_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6901269037_))) - (_g6901069138_ - (lambda (_g6901269045_) - (if (gx#stx-pair? _g6901269045_) - (let ((_e6902069048_ (gx#syntax-e _g6901269045_))) - (let ((_hd6901969052_ + _g6899469019_))) + (_g6899269120_ + (lambda (_g6899469027_) + (if (gx#stx-pair? _g6899469027_) + (let ((_e6900269030_ (gx#syntax-e _g6899469027_))) + (let ((_hd6900169034_ (let () (declare (not safe)) - (##car _e6902069048_))) - (_tl6901869055_ + (##car _e6900269030_))) + (_tl6900069037_ (let () (declare (not safe)) - (##cdr _e6902069048_)))) - (if (gx#stx-pair? _tl6901869055_) - (let ((_e6902369058_ - (gx#syntax-e _tl6901869055_))) - (let ((_hd6902269062_ + (##cdr _e6900269030_)))) + (if (gx#stx-pair? _tl6900069037_) + (let ((_e6900569040_ + (gx#syntax-e _tl6900069037_))) + (let ((_hd6900469044_ (let () (declare (not safe)) - (##car _e6902369058_))) - (_tl6902169065_ + (##car _e6900569040_))) + (_tl6900369047_ (let () (declare (not safe)) - (##cdr _e6902369058_)))) - (if (gx#stx-pair? _tl6902169065_) - (let ((_e6902669068_ - (gx#syntax-e _tl6902169065_))) - (let ((_hd6902569072_ + (##cdr _e6900569040_)))) + (if (gx#stx-pair? _tl6900369047_) + (let ((_e6900869050_ + (gx#syntax-e _tl6900369047_))) + (let ((_hd6900769054_ (let () (declare (not safe)) - (##car _e6902669068_))) - (_tl6902469075_ + (##car _e6900869050_))) + (_tl6900669057_ (let () (declare (not safe)) - (##cdr _e6902669068_)))) - (if (gx#stx-pair? _tl6902469075_) - (let ((_e6902969078_ + (##cdr _e6900869050_)))) + (if (gx#stx-pair? _tl6900669057_) + (let ((_e6901169060_ (gx#syntax-e - _tl6902469075_))) - (let ((_hd6902869082_ + _tl6900669057_))) + (let ((_hd6901069064_ (let () (declare (not safe)) - (##car _e6902969078_))) - (_tl6902769085_ + (##car _e6901169060_))) + (_tl6900969067_ (let () (declare (not safe)) - (##cdr _e6902969078_)))) + (##cdr _e6901169060_)))) (if (gx#stx-pair? - _tl6902769085_) - (let ((_e6903269088_ + _tl6900969067_) + (let ((_e6901469070_ (gx#syntax-e - _tl6902769085_))) - (let ((_hd6903169092_ + _tl6900969067_))) + (let ((_hd6901369074_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e6903269088_))) - (_tl6903069095_ - (let () (declare (not safe)) (##cdr _e6903269088_)))) - (if (gx#stx-pair? _tl6903069095_) - (let ((_e6903569098_ (gx#syntax-e _tl6903069095_))) - (let ((_hd6903469102_ + (##car _e6901469070_))) + (_tl6901269077_ + (let () (declare (not safe)) (##cdr _e6901469070_)))) + (if (gx#stx-pair? _tl6901269077_) + (let ((_e6901769080_ (gx#syntax-e _tl6901269077_))) + (let ((_hd6901669084_ (let () (declare (not safe)) - (##car _e6903569098_))) - (_tl6903369105_ + (##car _e6901769080_))) + (_tl6901569087_ (let () (declare (not safe)) - (##cdr _e6903569098_)))) - (if (gx#stx-null? _tl6903369105_) - ((lambda (_L69108_ - _L69110_ - _L69111_ - _L69112_ - _L69113_) - (let ((__tmp70337 (gx#datum->syntax '#f 'let)) - (__tmp70132 - (let ((__tmp70331 - (let ((__tmp70336 + (##cdr _e6901769080_)))) + (if (gx#stx-null? _tl6901569087_) + ((lambda (_L69090_ + _L69092_ + _L69093_ + _L69094_ + _L69095_) + (let ((__tmp70319 (gx#datum->syntax '#f 'let)) + (__tmp70114 + (let ((__tmp70313 + (let ((__tmp70318 (gx#datum->syntax '#f 'method-table)) - (__tmp70332 - (let ((__tmp70333 - (let ((__tmp70335 + (__tmp70314 + (let ((__tmp70315 + (let ((__tmp70317 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'specialize-class)) - (__tmp70334 - (let () (declare (not safe)) (cons _L69111_ '())))) + (__tmp70316 + (let () (declare (not safe)) (cons _L69093_ '())))) (declare (not safe)) - (cons __tmp70335 __tmp70334)))) + (cons __tmp70317 __tmp70316)))) (declare (not safe)) - (cons __tmp70333 '())))) + (cons __tmp70315 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70336 __tmp70332))) - (__tmp70133 - (let ((__tmp70134 - (let ((__tmp70330 + (cons __tmp70318 __tmp70314))) + (__tmp70115 + (let ((__tmp70116 + (let ((__tmp70312 (gx#datum->syntax '#f 'let)) - (__tmp70135 - (let ((__tmp70329 + (__tmp70117 + (let ((__tmp70311 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'loop)) - (__tmp70136 - (let ((__tmp70312 - (let ((__tmp70323 - (let ((__tmp70328 + (__tmp70118 + (let ((__tmp70294 + (let ((__tmp70305 + (let ((__tmp70310 (gx#datum->syntax '#f 'rest)) - (__tmp70324 - (let ((__tmp70325 - (let ((__tmp70327 + (__tmp70306 + (let ((__tmp70307 + (let ((__tmp70309 (gx#datum->syntax '#f '&interface-descriptor-methods)) - (__tmp70326 + (__tmp70308 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L69113_ '())))) + (cons _L69095_ '())))) (declare (not safe)) - (cons __tmp70327 __tmp70326)))) + (cons __tmp70309 __tmp70308)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70325 '())))) + (cons __tmp70307 '())))) (declare (not safe)) - (cons __tmp70328 __tmp70324))) - (__tmp70313 - (let ((__tmp70320 - (let ((__tmp70322 + (cons __tmp70310 __tmp70306))) + (__tmp70295 + (let ((__tmp70302 + (let ((__tmp70304 (gx#datum->syntax '#f 'count)) - (__tmp70321 + (__tmp70303 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons __tmp70322 - __tmp70321))) - (__tmp70314 - (let ((__tmp70315 - (let ((__tmp70319 + (cons __tmp70304 + __tmp70303))) + (__tmp70296 + (let ((__tmp70297 + (let ((__tmp70301 (gx#datum->syntax '#f 'methods)) - (__tmp70316 - (let ((__tmp70317 + (__tmp70298 + (let ((__tmp70299 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp70318 (gx#datum->syntax '#f '@list))) + (let ((__tmp70300 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp70318 '())))) + (cons __tmp70300 '())))) (declare (not safe)) - (cons __tmp70317 '())))) + (cons __tmp70299 '())))) (declare (not safe)) - (cons __tmp70319 __tmp70316)))) + (cons __tmp70301 __tmp70298)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70315 '())))) + (cons __tmp70297 '())))) (declare (not safe)) - (cons __tmp70320 __tmp70314)))) + (cons __tmp70302 __tmp70296)))) (declare (not safe)) - (cons __tmp70323 __tmp70313))) - (__tmp70137 - (let ((__tmp70138 - (let ((__tmp70311 + (cons __tmp70305 __tmp70295))) + (__tmp70119 + (let ((__tmp70120 + (let ((__tmp70293 (gx#datum->syntax '#f 'match)) - (__tmp70139 - (let ((__tmp70310 + (__tmp70121 + (let ((__tmp70292 (gx#datum->syntax '#f 'rest)) - (__tmp70140 - (let ((__tmp70257 - (let ((__tmp70305 + (__tmp70122 + (let ((__tmp70239 + (let ((__tmp70287 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp70309 (gx#datum->syntax '#f '@list)) - (__tmp70306 - (let ((__tmp70308 + (let ((__tmp70291 (gx#datum->syntax '#f '@list)) + (__tmp70288 + (let ((__tmp70290 (gx#datum->syntax '#f 'method-name)) - (__tmp70307 + (__tmp70289 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp70308 __tmp70307)))) + (cons __tmp70290 __tmp70289)))) (declare (not safe)) - (cons __tmp70309 __tmp70306))) - (__tmp70258 - (let ((__tmp70259 - (let ((__tmp70304 + (cons __tmp70291 __tmp70288))) + (__tmp70240 + (let ((__tmp70241 + (let ((__tmp70286 (gx#datum->syntax '#f 'cond)) - (__tmp70260 - (let ((__tmp70270 - (let ((__tmp70297 - (let ((__tmp70303 + (__tmp70242 + (let ((__tmp70252 + (let ((__tmp70279 + (let ((__tmp70285 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'symbolic-table-ref)) - (__tmp70298 - (let ((__tmp70302 + (__tmp70280 + (let ((__tmp70284 (gx#datum->syntax '#f 'method-table)) - (__tmp70299 - (let ((__tmp70301 + (__tmp70281 + (let ((__tmp70283 (gx#datum->syntax '#f 'method-name)) - (__tmp70300 + (__tmp70282 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp70301 __tmp70300)))) + (cons __tmp70283 __tmp70282)))) (declare (not safe)) - (cons __tmp70302 __tmp70299)))) + (cons __tmp70284 __tmp70281)))) (declare (not safe)) - (cons __tmp70303 __tmp70298))) - (__tmp70271 - (let ((__tmp70296 (gx#datum->syntax '#f '=>)) - (__tmp70272 - (let ((__tmp70273 - (let ((__tmp70295 + (cons __tmp70285 __tmp70280))) + (__tmp70253 + (let ((__tmp70278 (gx#datum->syntax '#f '=>)) + (__tmp70254 + (let ((__tmp70255 + (let ((__tmp70277 (gx#datum->syntax '#f 'lambda)) - (__tmp70274 - (let ((__tmp70293 - (let ((__tmp70294 + (__tmp70256 + (let ((__tmp70275 + (let ((__tmp70276 (gx#datum->syntax '#f 'method))) (declare (not safe)) - (cons __tmp70294 '()))) - (__tmp70275 - (let ((__tmp70276 - (let ((__tmp70292 + (cons __tmp70276 '()))) + (__tmp70257 + (let ((__tmp70258 + (let ((__tmp70274 (gx#datum->syntax '#f 'loop)) - (__tmp70277 - (let ((__tmp70291 + (__tmp70259 + (let ((__tmp70273 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp70278 - (let ((__tmp70286 - (let ((__tmp70290 + (__tmp70260 + (let ((__tmp70268 + (let ((__tmp70272 (gx#datum->syntax '#f '##fx+)) - (__tmp70287 - (let ((__tmp70289 + (__tmp70269 + (let ((__tmp70271 (gx#datum->syntax '#f 'count)) - (__tmp70288 + (__tmp70270 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp70289 __tmp70288)))) + (cons __tmp70271 __tmp70270)))) (declare (not safe)) - (cons __tmp70290 __tmp70287))) - (__tmp70279 - (let ((__tmp70280 - (let ((__tmp70285 + (cons __tmp70272 __tmp70269))) + (__tmp70261 + (let ((__tmp70262 + (let ((__tmp70267 (gx#datum->syntax '#f 'cons)) - (__tmp70281 - (let ((__tmp70284 + (__tmp70263 + (let ((__tmp70266 (gx#datum->syntax '#f 'method)) - (__tmp70282 - (let ((__tmp70283 + (__tmp70264 + (let ((__tmp70265 (gx#datum->syntax '#f 'methods))) (declare (not safe)) - (cons __tmp70283 + (cons __tmp70265 '())))) (declare (not safe)) - (cons __tmp70284 - __tmp70282)))) + (cons __tmp70266 + __tmp70264)))) (declare (not safe)) - (cons __tmp70285 __tmp70281)))) + (cons __tmp70267 __tmp70263)))) (declare (not safe)) - (cons __tmp70280 '())))) + (cons __tmp70262 '())))) (declare (not safe)) - (cons __tmp70286 __tmp70279)))) + (cons __tmp70268 __tmp70261)))) (declare (not safe)) - (cons __tmp70291 __tmp70278)))) + (cons __tmp70273 __tmp70260)))) (declare (not safe)) - (cons __tmp70292 __tmp70277)))) + (cons __tmp70274 __tmp70259)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70276 '())))) + (cons __tmp70258 '())))) (declare (not safe)) - (cons __tmp70293 __tmp70275)))) + (cons __tmp70275 __tmp70257)))) (declare (not safe)) - (cons __tmp70295 __tmp70274)))) + (cons __tmp70277 __tmp70256)))) (declare (not safe)) - (cons __tmp70273 '())))) + (cons __tmp70255 '())))) (declare (not safe)) - (cons __tmp70296 __tmp70272)))) + (cons __tmp70278 __tmp70254)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70297 - __tmp70271))) - (__tmp70261 - (let ((__tmp70262 - (let ((__tmp70269 + (cons __tmp70279 + __tmp70253))) + (__tmp70243 + (let ((__tmp70244 + (let ((__tmp70251 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'else)) - (__tmp70263 - (let ((__tmp70264 - (let ((__tmp70265 - (let ((__tmp70266 - (let ((__tmp70267 - (let ((__tmp70268 + (__tmp70245 + (let ((__tmp70246 + (let ((__tmp70247 + (let ((__tmp70248 + (let ((__tmp70249 + (let ((__tmp70250 (gx#datum->syntax '#f 'method-name))) (declare (not safe)) - (cons __tmp70268 '())))) + (cons __tmp70250 '())))) (declare (not safe)) - (cons _L69111_ __tmp70267)))) + (cons _L69093_ __tmp70249)))) (declare (not safe)) - (cons _L69112_ __tmp70266)))) + (cons _L69094_ __tmp70248)))) (declare (not safe)) - (cons _L69108_ __tmp70265)))) + (cons _L69090_ __tmp70247)))) (declare (not safe)) - (cons __tmp70264 '())))) + (cons __tmp70246 '())))) (declare (not safe)) - (cons __tmp70269 __tmp70263)))) + (cons __tmp70251 __tmp70245)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70262 '())))) + (cons __tmp70244 '())))) (declare (not safe)) - (cons __tmp70270 __tmp70261)))) + (cons __tmp70252 __tmp70243)))) (declare (not safe)) - (cons __tmp70304 __tmp70260)))) + (cons __tmp70286 __tmp70242)))) (declare (not safe)) - (cons __tmp70259 '())))) + (cons __tmp70241 '())))) (declare (not safe)) - (cons __tmp70305 __tmp70258))) - (__tmp70141 - (let ((__tmp70142 - (let ((__tmp70256 (gx#datum->syntax '#f 'else)) - (__tmp70143 - (let ((__tmp70144 - (let ((__tmp70255 + (cons __tmp70287 __tmp70240))) + (__tmp70123 + (let ((__tmp70124 + (let ((__tmp70238 (gx#datum->syntax '#f 'else)) + (__tmp70125 + (let ((__tmp70126 + (let ((__tmp70237 (gx#datum->syntax '#f 'let)) - (__tmp70145 - (let ((__tmp70243 - (let ((__tmp70254 + (__tmp70127 + (let ((__tmp70225 + (let ((__tmp70236 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'prototype)) - (__tmp70244 - (let ((__tmp70245 - (let ((__tmp70253 + (__tmp70226 + (let ((__tmp70227 + (let ((__tmp70235 (gx#datum->syntax '#f 'make-object)) - (__tmp70246 - (let ((__tmp70247 - (let ((__tmp70248 - (let ((__tmp70252 + (__tmp70228 + (let ((__tmp70229 + (let ((__tmp70230 + (let ((__tmp70234 (gx#datum->syntax '#f '##fx+)) - (__tmp70249 - (let ((__tmp70251 + (__tmp70231 + (let ((__tmp70233 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'count)) - (__tmp70250 + (__tmp70232 (let () (declare (not safe)) (cons '2 '())))) (declare (not safe)) - (cons __tmp70251 __tmp70250)))) + (cons __tmp70233 __tmp70232)))) (declare (not safe)) - (cons __tmp70252 __tmp70249)))) + (cons __tmp70234 __tmp70231)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70248 '())))) + (cons __tmp70230 '())))) (declare (not safe)) - (cons _L69112_ __tmp70247)))) + (cons _L69094_ __tmp70229)))) (declare (not safe)) - (cons __tmp70253 __tmp70246)))) + (cons __tmp70235 __tmp70228)))) (declare (not safe)) - (cons __tmp70245 '())))) + (cons __tmp70227 '())))) (declare (not safe)) - (cons __tmp70254 __tmp70244))) - (__tmp70146 - (let ((__tmp70147 - (let ((__tmp70242 (gx#datum->syntax '#f 'let)) - (__tmp70148 - (let ((__tmp70241 (gx#datum->syntax '#f 'loop)) - (__tmp70149 - (let ((__tmp70227 - (let ((__tmp70237 - (let ((__tmp70240 + (cons __tmp70236 __tmp70226))) + (__tmp70128 + (let ((__tmp70129 + (let ((__tmp70224 (gx#datum->syntax '#f 'let)) + (__tmp70130 + (let ((__tmp70223 (gx#datum->syntax '#f 'loop)) + (__tmp70131 + (let ((__tmp70209 + (let ((__tmp70219 + (let ((__tmp70222 (gx#datum->syntax '#f 'rest)) - (__tmp70238 - (let ((__tmp70239 + (__tmp70220 + (let ((__tmp70221 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'methods))) (declare (not safe)) - (cons __tmp70239 '())))) + (cons __tmp70221 '())))) (declare (not safe)) - (cons __tmp70240 __tmp70238))) + (cons __tmp70222 __tmp70220))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp70228 - (let ((__tmp70229 - (let ((__tmp70236 + (__tmp70210 + (let ((__tmp70211 + (let ((__tmp70218 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'off)) - (__tmp70230 - (let ((__tmp70231 - (let ((__tmp70235 + (__tmp70212 + (let ((__tmp70213 + (let ((__tmp70217 (gx#datum->syntax '#f '##fx+)) - (__tmp70232 - (let ((__tmp70234 + (__tmp70214 + (let ((__tmp70216 (gx#datum->syntax '#f 'count)) - (__tmp70233 + (__tmp70215 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp70234 __tmp70233)))) + (cons __tmp70216 __tmp70215)))) (declare (not safe)) - (cons __tmp70235 __tmp70232)))) + (cons __tmp70217 __tmp70214)))) (declare (not safe)) - (cons __tmp70231 '())))) + (cons __tmp70213 '())))) (declare (not safe)) - (cons __tmp70236 __tmp70230)))) + (cons __tmp70218 __tmp70212)))) (declare (not safe)) - (cons __tmp70229 '())))) + (cons __tmp70211 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70237 __tmp70228))) - (__tmp70150 - (let ((__tmp70151 - (let ((__tmp70226 + (cons __tmp70219 __tmp70210))) + (__tmp70132 + (let ((__tmp70133 + (let ((__tmp70208 (gx#datum->syntax '#f 'match)) - (__tmp70152 - (let ((__tmp70225 + (__tmp70134 + (let ((__tmp70207 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp70153 - (let ((__tmp70197 - (let ((__tmp70220 - (let ((__tmp70224 + (__tmp70135 + (let ((__tmp70179 + (let ((__tmp70202 + (let ((__tmp70206 (gx#datum->syntax '#f '@list)) - (__tmp70221 - (let ((__tmp70223 + (__tmp70203 + (let ((__tmp70205 (gx#datum->syntax '#f 'method)) - (__tmp70222 + (__tmp70204 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp70223 - __tmp70222)))) + (cons __tmp70205 + __tmp70204)))) (declare (not safe)) - (cons __tmp70224 __tmp70221))) - (__tmp70198 - (let ((__tmp70210 - (let ((__tmp70219 + (cons __tmp70206 __tmp70203))) + (__tmp70180 + (let ((__tmp70192 + (let ((__tmp70201 (gx#datum->syntax '#f '##unchecked-structure-set!)) - (__tmp70211 - (let ((__tmp70218 + (__tmp70193 + (let ((__tmp70200 (gx#datum->syntax '#f 'prototype)) - (__tmp70212 - (let ((__tmp70217 + (__tmp70194 + (let ((__tmp70199 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'method)) - (__tmp70213 - (let ((__tmp70216 (gx#datum->syntax '#f 'off)) - (__tmp70214 - (let ((__tmp70215 + (__tmp70195 + (let ((__tmp70198 (gx#datum->syntax '#f 'off)) + (__tmp70196 + (let ((__tmp70197 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L69112_ __tmp70215)))) + (cons _L69094_ __tmp70197)))) (declare (not safe)) - (cons __tmp70216 __tmp70214)))) + (cons __tmp70198 __tmp70196)))) (declare (not safe)) - (cons __tmp70217 __tmp70213)))) + (cons __tmp70199 __tmp70195)))) (declare (not safe)) - (cons __tmp70218 __tmp70212)))) + (cons __tmp70200 __tmp70194)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70219 - __tmp70211))) - (__tmp70199 - (let ((__tmp70200 - (let ((__tmp70209 + (cons __tmp70201 + __tmp70193))) + (__tmp70181 + (let ((__tmp70182 + (let ((__tmp70191 (gx#datum->syntax '#f 'loop)) - (__tmp70201 - (let ((__tmp70208 + (__tmp70183 + (let ((__tmp70190 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp70202 - (let ((__tmp70203 - (let ((__tmp70207 + (__tmp70184 + (let ((__tmp70185 + (let ((__tmp70189 (gx#datum->syntax '#f '##fx-)) - (__tmp70204 - (let ((__tmp70206 + (__tmp70186 + (let ((__tmp70188 (gx#datum->syntax '#f 'off)) - (__tmp70205 + (__tmp70187 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp70206 __tmp70205)))) + (cons __tmp70188 __tmp70187)))) (declare (not safe)) - (cons __tmp70207 __tmp70204)))) + (cons __tmp70189 __tmp70186)))) (declare (not safe)) - (cons __tmp70203 '())))) + (cons __tmp70185 '())))) (declare (not safe)) - (cons __tmp70208 __tmp70202)))) + (cons __tmp70190 __tmp70184)))) (declare (not safe)) - (cons __tmp70209 __tmp70201)))) + (cons __tmp70191 __tmp70183)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70200 '())))) + (cons __tmp70182 '())))) (declare (not safe)) - (cons __tmp70210 __tmp70199)))) + (cons __tmp70192 __tmp70181)))) (declare (not safe)) - (cons __tmp70220 __tmp70198))) - (__tmp70154 - (let ((__tmp70155 - (let ((__tmp70196 + (cons __tmp70202 __tmp70180))) + (__tmp70136 + (let ((__tmp70137 + (let ((__tmp70178 (gx#datum->syntax '#f 'else)) - (__tmp70156 - (let ((__tmp70157 - (let ((__tmp70195 + (__tmp70138 + (let ((__tmp70139 + (let ((__tmp70177 (gx#datum->syntax '#f 'let)) - (__tmp70158 - (let ((__tmp70182 + (__tmp70140 + (let ((__tmp70164 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp70194 + (let ((__tmp70176 (gx#datum->syntax '#f 'prototype-key)) - (__tmp70183 - (let ((__tmp70184 - (let ((__tmp70193 + (__tmp70165 + (let ((__tmp70166 + (let ((__tmp70175 (gx#datum->syntax '#f 'cons)) - (__tmp70185 - (let ((__tmp70190 - (let ((__tmp70192 + (__tmp70167 + (let ((__tmp70172 + (let ((__tmp70174 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##type-id)) - (__tmp70191 - (let () (declare (not safe)) (cons _L69112_ '())))) + (__tmp70173 + (let () (declare (not safe)) (cons _L69094_ '())))) (declare (not safe)) - (cons __tmp70192 __tmp70191))) - (__tmp70186 - (let ((__tmp70187 - (let ((__tmp70189 (gx#datum->syntax '#f '##type-id)) - (__tmp70188 + (cons __tmp70174 __tmp70173))) + (__tmp70168 + (let ((__tmp70169 + (let ((__tmp70171 (gx#datum->syntax '#f '##type-id)) + (__tmp70170 (let () (declare (not safe)) - (cons _L69111_ '())))) + (cons _L69093_ '())))) (declare (not safe)) - (cons __tmp70189 __tmp70188)))) + (cons __tmp70171 __tmp70170)))) (declare (not safe)) - (cons __tmp70187 '())))) + (cons __tmp70169 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70190 - __tmp70186)))) + (cons __tmp70172 + __tmp70168)))) (declare (not safe)) - (cons __tmp70193 __tmp70185)))) + (cons __tmp70175 __tmp70167)))) (declare (not safe)) - (cons __tmp70184 '())))) + (cons __tmp70166 '())))) (declare (not safe)) - (cons __tmp70194 __tmp70183))) - (__tmp70159 - (let ((__tmp70178 - (let ((__tmp70181 + (cons __tmp70176 __tmp70165))) + (__tmp70141 + (let ((__tmp70160 + (let ((__tmp70163 (gx#datum->syntax '#f '__lock-inline!)) - (__tmp70179 - (let ((__tmp70180 + (__tmp70161 + (let ((__tmp70162 (gx#datum->syntax '#f '__interface-prototypes-mx))) (declare (not safe)) - (cons __tmp70180 '())))) + (cons __tmp70162 '())))) (declare (not safe)) - (cons __tmp70181 __tmp70179))) - (__tmp70160 - (let ((__tmp70170 - (let ((__tmp70177 + (cons __tmp70163 __tmp70161))) + (__tmp70142 + (let ((__tmp70152 + (let ((__tmp70159 (gx#datum->syntax '#f 'prototype-table-set!)) - (__tmp70171 - (let ((__tmp70176 + (__tmp70153 + (let ((__tmp70158 (gx#datum->syntax '#f '__interface-prototypes)) - (__tmp70172 - (let ((__tmp70175 + (__tmp70154 + (let ((__tmp70157 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'prototype-key)) - (__tmp70173 - (let ((__tmp70174 (gx#datum->syntax '#f 'prototype))) + (__tmp70155 + (let ((__tmp70156 (gx#datum->syntax '#f 'prototype))) (declare (not safe)) - (cons __tmp70174 '())))) + (cons __tmp70156 '())))) (declare (not safe)) - (cons __tmp70175 __tmp70173)))) + (cons __tmp70157 __tmp70155)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70176 - __tmp70172)))) + (cons __tmp70158 + __tmp70154)))) (declare (not safe)) - (cons __tmp70177 __tmp70171))) - (__tmp70161 - (let ((__tmp70166 - (let ((__tmp70169 + (cons __tmp70159 __tmp70153))) + (__tmp70143 + (let ((__tmp70148 + (let ((__tmp70151 (gx#datum->syntax '#f '__unlock-inline!)) - (__tmp70167 - (let ((__tmp70168 + (__tmp70149 + (let ((__tmp70150 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__interface-prototypes-mx))) (declare (not safe)) - (cons __tmp70168 '())))) + (cons __tmp70150 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70169 - __tmp70167))) - (__tmp70162 - (let ((__tmp70163 - (let ((__tmp70164 - (let ((__tmp70165 + (cons __tmp70151 + __tmp70149))) + (__tmp70144 + (let ((__tmp70145 + (let ((__tmp70146 + (let ((__tmp70147 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'prototype))) (declare (not safe)) - (cons __tmp70165 '())))) + (cons __tmp70147 '())))) (declare (not safe)) - (cons _L69110_ __tmp70164)))) + (cons _L69092_ __tmp70146)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70163 '())))) + (cons __tmp70145 '())))) (declare (not safe)) - (cons __tmp70166 __tmp70162)))) + (cons __tmp70148 __tmp70144)))) (declare (not safe)) - (cons __tmp70170 __tmp70161)))) + (cons __tmp70152 __tmp70143)))) (declare (not safe)) - (cons __tmp70178 __tmp70160)))) + (cons __tmp70160 __tmp70142)))) (declare (not safe)) - (cons __tmp70182 __tmp70159)))) + (cons __tmp70164 __tmp70141)))) (declare (not safe)) - (cons __tmp70195 __tmp70158)))) + (cons __tmp70177 __tmp70140)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70157 '())))) + (cons __tmp70139 '())))) (declare (not safe)) - (cons __tmp70196 __tmp70156)))) + (cons __tmp70178 __tmp70138)))) (declare (not safe)) - (cons __tmp70155 '())))) + (cons __tmp70137 '())))) (declare (not safe)) - (cons __tmp70197 __tmp70154)))) + (cons __tmp70179 __tmp70136)))) (declare (not safe)) - (cons __tmp70225 __tmp70153)))) + (cons __tmp70207 __tmp70135)))) (declare (not safe)) - (cons __tmp70226 __tmp70152)))) + (cons __tmp70208 __tmp70134)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70151 '())))) + (cons __tmp70133 '())))) (declare (not safe)) - (cons __tmp70227 __tmp70150)))) + (cons __tmp70209 __tmp70132)))) (declare (not safe)) - (cons __tmp70241 __tmp70149)))) + (cons __tmp70223 __tmp70131)))) (declare (not safe)) - (cons __tmp70242 __tmp70148)))) + (cons __tmp70224 __tmp70130)))) (declare (not safe)) - (cons __tmp70147 '())))) + (cons __tmp70129 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70243 - __tmp70146)))) + (cons __tmp70225 + __tmp70128)))) (declare (not safe)) - (cons __tmp70255 __tmp70145)))) + (cons __tmp70237 __tmp70127)))) (declare (not safe)) - (cons __tmp70144 '())))) + (cons __tmp70126 '())))) (declare (not safe)) - (cons __tmp70256 __tmp70143)))) + (cons __tmp70238 __tmp70125)))) (declare (not safe)) - (cons __tmp70142 '())))) + (cons __tmp70124 '())))) (declare (not safe)) - (cons __tmp70257 __tmp70141)))) + (cons __tmp70239 __tmp70123)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70310 - __tmp70140)))) + (cons __tmp70292 + __tmp70122)))) (declare (not safe)) - (cons __tmp70311 __tmp70139)))) + (cons __tmp70293 __tmp70121)))) (declare (not safe)) - (cons __tmp70138 '())))) + (cons __tmp70120 '())))) (declare (not safe)) - (cons __tmp70312 __tmp70137)))) + (cons __tmp70294 __tmp70119)))) (declare (not safe)) - (cons __tmp70329 __tmp70136)))) + (cons __tmp70311 __tmp70118)))) (declare (not safe)) - (cons __tmp70330 __tmp70135)))) + (cons __tmp70312 __tmp70117)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70134 '())))) + (cons __tmp70116 '())))) (declare (not safe)) - (cons __tmp70331 __tmp70133)))) + (cons __tmp70313 __tmp70115)))) (declare (not safe)) - (cons __tmp70337 __tmp70132))) - _hd6903469102_ - _hd6903169092_ - _hd6902869082_ - _hd6902569072_ - _hd6902269062_) - (_g6901169041_ _g6901269045_)))) - (_g6901169041_ _g6901269045_)))) - (_g6901169041_ _g6901269045_)))) + (cons __tmp70319 __tmp70114))) + _hd6901669084_ + _hd6901369074_ + _hd6901069064_ + _hd6900769054_ + _hd6900469044_) + (_g6899369023_ _g6899469027_)))) + (_g6899369023_ _g6899469027_)))) + (_g6899369023_ _g6899469027_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6901169041_ _g6901269045_)))) - (_g6901169041_ _g6901269045_)))) - (_g6901169041_ _g6901269045_)))) - (_g6901169041_ _g6901269045_))))) - (_g6901069138_ _$stx69007_)))) + (_g6899369023_ _g6899469027_)))) + (_g6899369023_ _g6899469027_)))) + (_g6899369023_ _g6899469027_)))) + (_g6899369023_ _g6899469027_))))) + (_g6899269120_ _$stx68989_)))) (define |[:0:]#defcast| - (lambda (_$stx69142_) - (let* ((_g6914669168_ - (lambda (_g6914769164_) + (lambda (_$stx69124_) + (let* ((_g6912869150_ + (lambda (_g6912969146_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6914769164_))) - (_g6914569237_ - (lambda (_g6914769172_) - (if (gx#stx-pair? _g6914769172_) - (let ((_e6915369175_ (gx#syntax-e _g6914769172_))) - (let ((_hd6915269179_ + _g6912969146_))) + (_g6912769219_ + (lambda (_g6912969154_) + (if (gx#stx-pair? _g6912969154_) + (let ((_e6913569157_ (gx#syntax-e _g6912969154_))) + (let ((_hd6913469161_ (let () (declare (not safe)) - (##car _e6915369175_))) - (_tl6915169182_ + (##car _e6913569157_))) + (_tl6913369164_ (let () (declare (not safe)) - (##cdr _e6915369175_)))) - (if (gx#stx-pair? _tl6915169182_) - (let ((_e6915669185_ - (gx#syntax-e _tl6915169182_))) - (let ((_hd6915569189_ + (##cdr _e6913569157_)))) + (if (gx#stx-pair? _tl6913369164_) + (let ((_e6913869167_ + (gx#syntax-e _tl6913369164_))) + (let ((_hd6913769171_ (let () (declare (not safe)) - (##car _e6915669185_))) - (_tl6915469192_ + (##car _e6913869167_))) + (_tl6913669174_ (let () (declare (not safe)) - (##cdr _e6915669185_)))) - (if (gx#stx-pair? _tl6915469192_) - (let ((_e6915969195_ - (gx#syntax-e _tl6915469192_))) - (let ((_hd6915869199_ + (##cdr _e6913869167_)))) + (if (gx#stx-pair? _tl6913669174_) + (let ((_e6914169177_ + (gx#syntax-e _tl6913669174_))) + (let ((_hd6914069181_ (let () (declare (not safe)) - (##car _e6915969195_))) - (_tl6915769202_ + (##car _e6914169177_))) + (_tl6913969184_ (let () (declare (not safe)) - (##cdr _e6915969195_)))) - (if (gx#stx-pair? _tl6915769202_) - (let ((_e6916269205_ + (##cdr _e6914169177_)))) + (if (gx#stx-pair? _tl6913969184_) + (let ((_e6914469187_ (gx#syntax-e - _tl6915769202_))) - (let ((_hd6916169209_ + _tl6913969184_))) + (let ((_hd6914369191_ (let () (declare (not safe)) - (##car _e6916269205_))) - (_tl6916069212_ + (##car _e6914469187_))) + (_tl6914269194_ (let () (declare (not safe)) - (##cdr _e6916269205_)))) + (##cdr _e6914469187_)))) (if (gx#stx-null? - _tl6916069212_) - ((lambda (_L69215_ - _L69217_ - _L69218_) - (let ((__tmp70493 + _tl6914269194_) + ((lambda (_L69197_ + _L69199_ + _L69200_) + (let ((__tmp70475 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def)) - (__tmp70338 - (let ((__tmp70488 - (let ((__tmp70489 - (let ((__tmp70492 + (__tmp70320 + (let ((__tmp70470 + (let ((__tmp70471 + (let ((__tmp70474 (gx#datum->syntax '#f 'descriptor)) - (__tmp70490 - (let ((__tmp70491 + (__tmp70472 + (let ((__tmp70473 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp70491 '())))) + (cons __tmp70473 '())))) (declare (not safe)) - (cons __tmp70492 __tmp70490)))) + (cons __tmp70474 __tmp70472)))) (declare (not safe)) - (cons _L69218_ __tmp70489))) - (__tmp70339 - (let ((__tmp70481 - (let ((__tmp70487 + (cons _L69200_ __tmp70471))) + (__tmp70321 + (let ((__tmp70463 + (let ((__tmp70469 (gx#datum->syntax '#f 'declare)) - (__tmp70482 - (let ((__tmp70483 - (let ((__tmp70486 + (__tmp70464 + (let ((__tmp70465 + (let ((__tmp70468 (gx#datum->syntax '#f 'not)) - (__tmp70484 - (let ((__tmp70485 + (__tmp70466 + (let ((__tmp70467 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'interrupts-enabled))) (declare (not safe)) - (cons __tmp70485 '())))) + (cons __tmp70467 '())))) (declare (not safe)) - (cons __tmp70486 __tmp70484)))) + (cons __tmp70468 __tmp70466)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70483 '())))) + (cons __tmp70465 '())))) (declare (not safe)) - (cons __tmp70487 __tmp70482))) - (__tmp70340 - (let ((__tmp70341 - (let ((__tmp70480 + (cons __tmp70469 __tmp70464))) + (__tmp70322 + (let ((__tmp70323 + (let ((__tmp70462 (gx#datum->syntax '#f 'let*)) - (__tmp70342 - (let ((__tmp70448 - (let ((__tmp70473 + (__tmp70324 + (let ((__tmp70430 + (let ((__tmp70455 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp70479 (gx#datum->syntax '#f 'klass)) - (__tmp70474 - (let ((__tmp70475 - (let ((__tmp70478 + (let ((__tmp70461 (gx#datum->syntax '#f 'klass)) + (__tmp70456 + (let ((__tmp70457 + (let ((__tmp70460 (gx#datum->syntax '#f '&interface-descriptor-type)) - (__tmp70476 - (let ((__tmp70477 + (__tmp70458 + (let ((__tmp70459 (gx#datum->syntax '#f 'descriptor))) (declare (not safe)) - (cons __tmp70477 '())))) + (cons __tmp70459 '())))) (declare (not safe)) - (cons __tmp70478 __tmp70476)))) + (cons __tmp70460 __tmp70458)))) (declare (not safe)) - (cons __tmp70475 '())))) + (cons __tmp70457 '())))) (declare (not safe)) - (cons __tmp70479 __tmp70474))) - (__tmp70449 - (let ((__tmp70466 - (let ((__tmp70472 + (cons __tmp70461 __tmp70456))) + (__tmp70431 + (let ((__tmp70448 + (let ((__tmp70454 (gx#datum->syntax '#f 'klass-id)) - (__tmp70467 - (let ((__tmp70468 - (let ((__tmp70471 + (__tmp70449 + (let ((__tmp70450 + (let ((__tmp70453 (gx#datum->syntax '#f '##type-id)) - (__tmp70469 - (let ((__tmp70470 + (__tmp70451 + (let ((__tmp70452 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp70470 + (cons __tmp70452 '())))) (declare (not safe)) - (cons __tmp70471 - __tmp70469)))) + (cons __tmp70453 + __tmp70451)))) (declare (not safe)) - (cons __tmp70468 '())))) + (cons __tmp70450 '())))) (declare (not safe)) - (cons __tmp70472 __tmp70467))) - (__tmp70450 - (let ((__tmp70459 - (let ((__tmp70465 + (cons __tmp70454 __tmp70449))) + (__tmp70432 + (let ((__tmp70441 + (let ((__tmp70447 (gx#datum->syntax '#f 'obj-klass)) - (__tmp70460 - (let ((__tmp70461 - (let ((__tmp70464 + (__tmp70442 + (let ((__tmp70443 + (let ((__tmp70446 (gx#datum->syntax '#f 'class-of)) - (__tmp70462 - (let ((__tmp70463 + (__tmp70444 + (let ((__tmp70445 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp70463 '())))) + (cons __tmp70445 '())))) (declare (not safe)) - (cons __tmp70464 __tmp70462)))) + (cons __tmp70446 __tmp70444)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70461 '())))) + (cons __tmp70443 '())))) (declare (not safe)) - (cons __tmp70465 __tmp70460))) - (__tmp70451 - (let ((__tmp70452 - (let ((__tmp70458 + (cons __tmp70447 __tmp70442))) + (__tmp70433 + (let ((__tmp70434 + (let ((__tmp70440 (gx#datum->syntax '#f 'obj-klass-id)) - (__tmp70453 - (let ((__tmp70454 - (let ((__tmp70457 + (__tmp70435 + (let ((__tmp70436 + (let ((__tmp70439 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##type-id)) - (__tmp70455 - (let ((__tmp70456 + (__tmp70437 + (let ((__tmp70438 (gx#datum->syntax '#f 'obj-klass))) (declare (not safe)) - (cons __tmp70456 '())))) + (cons __tmp70438 '())))) (declare (not safe)) - (cons __tmp70457 __tmp70455)))) + (cons __tmp70439 __tmp70437)))) (declare (not safe)) - (cons __tmp70454 '())))) + (cons __tmp70436 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70458 - __tmp70453)))) + (cons __tmp70440 + __tmp70435)))) (declare (not safe)) - (cons __tmp70452 '())))) + (cons __tmp70434 '())))) (declare (not safe)) - (cons __tmp70459 __tmp70451)))) + (cons __tmp70441 __tmp70433)))) (declare (not safe)) - (cons __tmp70466 __tmp70450)))) + (cons __tmp70448 __tmp70432)))) (declare (not safe)) - (cons __tmp70473 __tmp70449))) - (__tmp70343 - (let ((__tmp70344 - (let ((__tmp70447 (gx#datum->syntax '#f 'cond)) - (__tmp70345 - (let ((__tmp70438 - (let ((__tmp70441 - (let ((__tmp70446 + (cons __tmp70455 __tmp70431))) + (__tmp70325 + (let ((__tmp70326 + (let ((__tmp70429 (gx#datum->syntax '#f 'cond)) + (__tmp70327 + (let ((__tmp70420 + (let ((__tmp70423 + (let ((__tmp70428 (gx#datum->syntax '#f '##eq?)) - (__tmp70442 - (let ((__tmp70445 + (__tmp70424 + (let ((__tmp70427 (gx#datum->syntax '#f 'klass-id)) - (__tmp70443 - (let ((__tmp70444 + (__tmp70425 + (let ((__tmp70426 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'obj-klass-id))) (declare (not safe)) - (cons __tmp70444 '())))) + (cons __tmp70426 '())))) (declare (not safe)) - (cons __tmp70445 __tmp70443)))) + (cons __tmp70427 __tmp70425)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70446 __tmp70442))) - (__tmp70439 - (let ((__tmp70440 + (cons __tmp70428 __tmp70424))) + (__tmp70421 + (let ((__tmp70422 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp70440 '())))) + (cons __tmp70422 '())))) (declare (not safe)) - (cons __tmp70441 __tmp70439))) - (__tmp70346 - (let ((__tmp70424 - (let ((__tmp70434 - (let ((__tmp70437 + (cons __tmp70423 __tmp70421))) + (__tmp70328 + (let ((__tmp70406 + (let ((__tmp70416 + (let ((__tmp70419 (gx#datum->syntax '#f 'interface-subclass?)) - (__tmp70435 - (let ((__tmp70436 + (__tmp70417 + (let ((__tmp70418 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'obj-klass))) (declare (not safe)) - (cons __tmp70436 '())))) + (cons __tmp70418 '())))) (declare (not safe)) - (cons __tmp70437 __tmp70435))) + (cons __tmp70419 __tmp70417))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp70425 - (let ((__tmp70426 - (let ((__tmp70427 + (__tmp70407 + (let ((__tmp70408 + (let ((__tmp70409 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp70433 + (let ((__tmp70415 (gx#datum->syntax '#f 'descriptor)) - (__tmp70428 - (let ((__tmp70429 - (let ((__tmp70432 + (__tmp70410 + (let ((__tmp70411 + (let ((__tmp70414 (gx#datum->syntax '#f '&interface-instance-object)) - (__tmp70430 - (let ((__tmp70431 + (__tmp70412 + (let ((__tmp70413 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp70431 '())))) + (cons __tmp70413 '())))) (declare (not safe)) - (cons __tmp70432 __tmp70430)))) + (cons __tmp70414 __tmp70412)))) (declare (not safe)) - (cons __tmp70429 '())))) + (cons __tmp70411 '())))) (declare (not safe)) - (cons __tmp70433 __tmp70428)))) + (cons __tmp70415 __tmp70410)))) (declare (not safe)) - (cons _L69218_ __tmp70427)))) + (cons _L69200_ __tmp70409)))) (declare (not safe)) - (cons __tmp70426 '())))) + (cons __tmp70408 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70434 __tmp70425))) - (__tmp70347 - (let ((__tmp70348 - (let ((__tmp70423 + (cons __tmp70416 __tmp70407))) + (__tmp70329 + (let ((__tmp70330 + (let ((__tmp70405 (gx#datum->syntax '#f 'else)) - (__tmp70349 - (let ((__tmp70419 + (__tmp70331 + (let ((__tmp70401 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp70422 + (let ((__tmp70404 (gx#datum->syntax '#f '__lock-inline!)) - (__tmp70420 - (let ((__tmp70421 + (__tmp70402 + (let ((__tmp70403 (gx#datum->syntax '#f '__interface-prototypes-mx))) (declare (not safe)) - (cons __tmp70421 '())))) + (cons __tmp70403 '())))) (declare (not safe)) - (cons __tmp70422 __tmp70420))) - (__tmp70350 - (let ((__tmp70413 - (let ((__tmp70418 + (cons __tmp70404 __tmp70402))) + (__tmp70332 + (let ((__tmp70395 + (let ((__tmp70400 (gx#datum->syntax '#f '##set-car!)) - (__tmp70414 - (let ((__tmp70417 + (__tmp70396 + (let ((__tmp70399 (gx#datum->syntax '#f '__interface-prototypes-key)) - (__tmp70415 - (let ((__tmp70416 + (__tmp70397 + (let ((__tmp70398 (gx#datum->syntax '#f 'klass-id))) (declare (not safe)) - (cons __tmp70416 '())))) + (cons __tmp70398 '())))) (declare (not safe)) - (cons __tmp70417 __tmp70415)))) + (cons __tmp70399 __tmp70397)))) (declare (not safe)) - (cons __tmp70418 __tmp70414))) - (__tmp70351 - (let ((__tmp70407 - (let ((__tmp70412 + (cons __tmp70400 __tmp70396))) + (__tmp70333 + (let ((__tmp70389 + (let ((__tmp70394 (gx#datum->syntax '#f '##set-cdr!)) - (__tmp70408 - (let ((__tmp70411 + (__tmp70390 + (let ((__tmp70393 (gx#datum->syntax '#f '__interface-prototypes-key)) - (__tmp70409 - (let ((__tmp70410 + (__tmp70391 + (let ((__tmp70392 (gx#datum->syntax '#f 'obj-klass-id))) (declare (not safe)) - (cons __tmp70410 + (cons __tmp70392 '())))) (declare (not safe)) - (cons __tmp70411 - __tmp70409)))) + (cons __tmp70393 + __tmp70391)))) (declare (not safe)) - (cons __tmp70412 __tmp70408))) - (__tmp70352 - (let ((__tmp70353 - (let ((__tmp70406 + (cons __tmp70394 __tmp70390))) + (__tmp70334 + (let ((__tmp70335 + (let ((__tmp70388 (gx#datum->syntax '#f 'let)) - (__tmp70354 - (let ((__tmp70361 - (let ((__tmp70405 + (__tmp70336 + (let ((__tmp70343 + (let ((__tmp70387 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'prototype)) - (__tmp70362 - (let ((__tmp70363 - (let ((__tmp70404 + (__tmp70344 + (let ((__tmp70345 + (let ((__tmp70386 (gx#datum->syntax '#f 'cond)) - (__tmp70364 - (let ((__tmp70381 - (let ((__tmp70397 - (let ((__tmp70403 + (__tmp70346 + (let ((__tmp70363 + (let ((__tmp70379 + (let ((__tmp70385 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'prototype-table-ref)) - (__tmp70398 - (let ((__tmp70402 + (__tmp70380 + (let ((__tmp70384 (gx#datum->syntax '#f '__interface-prototypes)) - (__tmp70399 - (let ((__tmp70401 + (__tmp70381 + (let ((__tmp70383 (gx#datum->syntax '#f '__interface-prototypes-key)) - (__tmp70400 + (__tmp70382 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp70401 __tmp70400)))) + (cons __tmp70383 __tmp70382)))) (declare (not safe)) - (cons __tmp70402 __tmp70399)))) + (cons __tmp70384 __tmp70381)))) (declare (not safe)) - (cons __tmp70403 __tmp70398))) - (__tmp70382 - (let ((__tmp70396 (gx#datum->syntax '#f '=>)) - (__tmp70383 - (let ((__tmp70384 - (let ((__tmp70395 + (cons __tmp70385 __tmp70380))) + (__tmp70364 + (let ((__tmp70378 (gx#datum->syntax '#f '=>)) + (__tmp70365 + (let ((__tmp70366 + (let ((__tmp70377 (gx#datum->syntax '#f 'lambda)) - (__tmp70385 - (let ((__tmp70393 - (let ((__tmp70394 + (__tmp70367 + (let ((__tmp70375 + (let ((__tmp70376 (gx#datum->syntax '#f 'prototype))) (declare (not safe)) - (cons __tmp70394 '()))) - (__tmp70386 - (let ((__tmp70389 - (let ((__tmp70392 + (cons __tmp70376 '()))) + (__tmp70368 + (let ((__tmp70371 + (let ((__tmp70374 (gx#datum->syntax '#f '__unlock-inline!)) - (__tmp70390 - (let ((__tmp70391 + (__tmp70372 + (let ((__tmp70373 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__interface-prototypes-mx))) (declare (not safe)) - (cons __tmp70391 '())))) + (cons __tmp70373 '())))) (declare (not safe)) - (cons __tmp70392 __tmp70390))) + (cons __tmp70374 __tmp70372))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp70387 - (let ((__tmp70388 + (__tmp70369 + (let ((__tmp70370 (gx#datum->syntax '#f 'prototype))) (declare (not safe)) - (cons __tmp70388 '())))) + (cons __tmp70370 '())))) (declare (not safe)) - (cons __tmp70389 __tmp70387)))) + (cons __tmp70371 __tmp70369)))) (declare (not safe)) - (cons __tmp70393 __tmp70386)))) + (cons __tmp70375 __tmp70368)))) (declare (not safe)) - (cons __tmp70395 __tmp70385)))) + (cons __tmp70377 __tmp70367)))) (declare (not safe)) - (cons __tmp70384 '())))) + (cons __tmp70366 '())))) (declare (not safe)) - (cons __tmp70396 __tmp70383)))) + (cons __tmp70378 __tmp70365)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70397 - __tmp70382))) - (__tmp70365 - (let ((__tmp70366 - (let ((__tmp70380 + (cons __tmp70379 + __tmp70364))) + (__tmp70347 + (let ((__tmp70348 + (let ((__tmp70362 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'else)) - (__tmp70367 - (let ((__tmp70376 - (let ((__tmp70379 + (__tmp70349 + (let ((__tmp70358 + (let ((__tmp70361 (gx#datum->syntax '#f '__unlock-inline!)) - (__tmp70377 - (let ((__tmp70378 + (__tmp70359 + (let ((__tmp70360 (gx#datum->syntax '#f '__interface-prototypes-mx))) (declare (not safe)) - (cons __tmp70378 '())))) + (cons __tmp70360 '())))) (declare (not safe)) - (cons __tmp70379 __tmp70377))) - (__tmp70368 - (let ((__tmp70369 - (let ((__tmp70370 - (let ((__tmp70375 + (cons __tmp70361 __tmp70359))) + (__tmp70350 + (let ((__tmp70351 + (let ((__tmp70352 + (let ((__tmp70357 (gx#datum->syntax '#f 'descriptor)) - (__tmp70371 - (let ((__tmp70374 + (__tmp70353 + (let ((__tmp70356 (gx#datum->syntax '#f 'klass)) - (__tmp70372 - (let ((__tmp70373 + (__tmp70354 + (let ((__tmp70355 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'obj-klass))) (declare (not safe)) - (cons __tmp70373 '())))) + (cons __tmp70355 '())))) (declare (not safe)) - (cons __tmp70374 __tmp70372)))) + (cons __tmp70356 __tmp70354)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70375 __tmp70371)))) + (cons __tmp70357 __tmp70353)))) (declare (not safe)) - (cons _L69217_ __tmp70370)))) + (cons _L69199_ __tmp70352)))) (declare (not safe)) - (cons __tmp70369 '())))) + (cons __tmp70351 '())))) (declare (not safe)) - (cons __tmp70376 __tmp70368)))) + (cons __tmp70358 __tmp70350)))) (declare (not safe)) - (cons __tmp70380 __tmp70367)))) + (cons __tmp70362 __tmp70349)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70366 '())))) + (cons __tmp70348 '())))) (declare (not safe)) - (cons __tmp70381 __tmp70365)))) + (cons __tmp70363 __tmp70347)))) (declare (not safe)) - (cons __tmp70404 __tmp70364)))) + (cons __tmp70386 __tmp70346)))) (declare (not safe)) - (cons __tmp70363 '())))) + (cons __tmp70345 '())))) (declare (not safe)) - (cons __tmp70405 __tmp70362))) - (__tmp70355 - (let ((__tmp70356 - (let ((__tmp70357 - (let ((__tmp70360 + (cons __tmp70387 __tmp70344))) + (__tmp70337 + (let ((__tmp70338 + (let ((__tmp70339 + (let ((__tmp70342 (gx#datum->syntax '#f 'prototype)) - (__tmp70358 - (let ((__tmp70359 + (__tmp70340 + (let ((__tmp70341 (gx#datum->syntax '#f 'obj))) (declare (not safe)) - (cons __tmp70359 '())))) + (cons __tmp70341 '())))) (declare (not safe)) - (cons __tmp70360 __tmp70358)))) + (cons __tmp70342 __tmp70340)))) (declare (not safe)) - (cons _L69215_ __tmp70357)))) + (cons _L69197_ __tmp70339)))) (declare (not safe)) - (cons __tmp70356 '())))) + (cons __tmp70338 '())))) (declare (not safe)) - (cons __tmp70361 __tmp70355)))) + (cons __tmp70343 __tmp70337)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70406 - __tmp70354)))) + (cons __tmp70388 + __tmp70336)))) (declare (not safe)) - (cons __tmp70353 '())))) + (cons __tmp70335 '())))) (declare (not safe)) - (cons __tmp70407 __tmp70352)))) + (cons __tmp70389 __tmp70334)))) (declare (not safe)) - (cons __tmp70413 __tmp70351)))) + (cons __tmp70395 __tmp70333)))) (declare (not safe)) - (cons __tmp70419 __tmp70350)))) + (cons __tmp70401 __tmp70332)))) (declare (not safe)) - (cons __tmp70423 __tmp70349)))) + (cons __tmp70405 __tmp70331)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70348 '())))) + (cons __tmp70330 '())))) (declare (not safe)) - (cons __tmp70424 __tmp70347)))) + (cons __tmp70406 __tmp70329)))) (declare (not safe)) - (cons __tmp70438 __tmp70346)))) + (cons __tmp70420 __tmp70328)))) (declare (not safe)) - (cons __tmp70447 __tmp70345)))) + (cons __tmp70429 __tmp70327)))) (declare (not safe)) - (cons __tmp70344 '())))) + (cons __tmp70326 '())))) (declare (not safe)) - (cons __tmp70448 __tmp70343)))) + (cons __tmp70430 __tmp70325)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp70480 __tmp70342)))) + (cons __tmp70462 __tmp70324)))) (declare (not safe)) - (cons __tmp70341 '())))) + (cons __tmp70323 '())))) (declare (not safe)) - (cons __tmp70481 __tmp70340)))) + (cons __tmp70463 __tmp70322)))) (declare (not safe)) - (cons __tmp70488 __tmp70339)))) + (cons __tmp70470 __tmp70321)))) (declare (not safe)) - (cons __tmp70493 __tmp70338))) - _hd6916169209_ - _hd6915869199_ - _hd6915569189_) - (_g6914669168_ _g6914769172_)))) + (cons __tmp70475 __tmp70320))) + _hd6914369191_ + _hd6914069181_ + _hd6913769171_) + (_g6912869150_ _g6912969154_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g6914669168_ _g6914769172_)))) - (_g6914669168_ _g6914769172_)))) - (_g6914669168_ _g6914769172_)))) - (_g6914669168_ _g6914769172_))))) - (_g6914569237_ _$stx69142_)))))) + (_g6912869150_ _g6912969154_)))) + (_g6912869150_ _g6912969154_)))) + (_g6912869150_ _g6912969154_)))) + (_g6912869150_ _g6912969154_))))) + (_g6912769219_ _$stx69124_)))))) diff --git a/src/bootstrap/gerbil/runtime/loader~0.scm b/src/bootstrap/gerbil/runtime/loader~0.scm index 0d7cccb65..9da9b2872 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 1710833424) + (define gerbil/runtime/loader::timestamp 1710943497) (begin (define __modules (let () (declare (not safe)) (make-hash-table))) (define __load-path '()) (define load-path (lambda () __load-path)) (define add-load-path! - (lambda _paths79967_ + (lambda _paths79949_ (for-each - (lambda (_p79969_) + (lambda (_p79951_) (set! __load-path - (let () (declare (not safe)) (cons _p79969_ __load-path)))) - (reverse! _paths79967_)))) + (let () (declare (not safe)) (cons _p79951_ __load-path)))) + (reverse! _paths79949_)))) (define set-load-path! - (lambda (_paths79965_) (set! __load-path _paths79965_))) + (lambda (_paths79947_) (set! __load-path _paths79947_))) (define load-module - (lambda (_modpath79953_) - (let ((_$e79955_ + (lambda (_modpath79935_) + (let ((_$e79937_ (let () (declare (not safe)) - (hash-get __modules _modpath79953_)))) - (if _$e79955_ - _$e79955_ - (let ((_$e79958_ + (hash-get __modules _modpath79935_)))) + (if _$e79937_ + _$e79937_ + (let ((_$e79940_ (let () (declare (not safe)) - (find-library-module _modpath79953_)))) - (if _$e79958_ - ((lambda (_path79961_) - (let ((_loaded-path79963_ (load _path79961_))) + (find-library-module _modpath79935_)))) + (if _$e79940_ + ((lambda (_path79943_) + (let ((_loaded-path79945_ (load _path79943_))) (let () (declare (not safe)) (hash-put! __modules - _modpath79953_ - _loaded-path79963_)) - _loaded-path79963_)) - _$e79958_) + _modpath79935_ + _loaded-path79945_)) + _loaded-path79945_)) + _$e79940_) (let () (declare (not safe)) - (error '"module not found" _modpath79953_)))))))) + (error '"module not found" _modpath79935_)))))))) (define reload-module! - (lambda (_modpath79939_) - (let ((_$e79941_ + (lambda (_modpath79921_) + (let ((_$e79923_ (let () (declare (not safe)) - (hash-get __modules _modpath79939_)))) - (if _$e79941_ - ((lambda (_current-path79944_) + (hash-get __modules _modpath79921_)))) + (if _$e79923_ + ((lambda (_current-path79926_) (if (let () (declare (not safe)) - (eq? _current-path79944_ 'builtin)) - (let ((_latest-path79946_ + (eq? _current-path79926_ 'builtin)) + (let ((_latest-path79928_ (let () (declare (not safe)) - (find-library-module _modpath79939_)))) - (if (or (let ((__tmp79971 - (path-extension _current-path79944_))) + (find-library-module _modpath79921_)))) + (if (or (let ((__tmp79953 + (path-extension _current-path79926_))) (declare (not safe)) - (equal? __tmp79971 '".scm")) - (let ((__tmp79972 + (equal? __tmp79953 '".scm")) + (let ((__tmp79954 (let () (declare (not safe)) - (equal? _current-path79944_ - _latest-path79946_)))) + (equal? _current-path79926_ + _latest-path79928_)))) (declare (not safe)) - (not __tmp79972))) - (let ((_loaded-path79951_ (load _modpath79939_))) + (not __tmp79954))) + (let ((_loaded-path79933_ (load _modpath79921_))) (let () (declare (not safe)) (hash-put! __modules - _modpath79939_ - _loaded-path79951_)) - _loaded-path79951_) + _modpath79921_ + _loaded-path79933_)) + _loaded-path79933_) '#!void)) (let () (declare (not safe)) (error '"cannot reload builtin module" - _modpath79939_)))) - _$e79941_) - (let () (declare (not safe)) (load-module _modpath79939_)))))) + _modpath79921_)))) + _$e79923_) + (let () (declare (not safe)) (load-module _modpath79921_)))))) (define find-library-module - (lambda (_modpath79874_) - (letrec ((_find-compiled-file79876_ - (lambda (_npath79928_) - (let ((_basepath79930_ + (lambda (_modpath79856_) + (letrec ((_find-compiled-file79858_ + (lambda (_npath79910_) + (let ((_basepath79912_ (let () (declare (not safe)) - (##string-append _npath79928_ '".o")))) - (let _lp79932_ ((_current79934_ '#f) (_n79935_ '1)) - (let ((_next79937_ - (let ((__tmp79973 (number->string _n79935_))) + (##string-append _npath79910_ '".o")))) + (let _lp79914_ ((_current79916_ '#f) (_n79917_ '1)) + (let ((_next79919_ + (let ((__tmp79955 (number->string _n79917_))) (declare (not safe)) (##string-append - _basepath79930_ - __tmp79973)))) + _basepath79912_ + __tmp79955)))) (if (let () (declare (not safe)) - (##file-exists? _next79937_)) - (let ((__tmp79974 + (##file-exists? _next79919_)) + (let ((__tmp79956 (let () (declare (not safe)) - (##fx+ _n79935_ '1)))) + (##fx+ _n79917_ '1)))) (declare (not safe)) - (_lp79932_ _next79937_ __tmp79974)) - _current79934_)))))) - (_find-source-file79877_ - (lambda (_npath79924_) - (let ((_spath79926_ + (_lp79914_ _next79919_ __tmp79956)) + _current79916_)))))) + (_find-source-file79859_ + (lambda (_npath79906_) + (let ((_spath79908_ (let () (declare (not safe)) - (##string-append _npath79924_ '".scm")))) + (##string-append _npath79906_ '".scm")))) (if (let () (declare (not safe)) - (##file-exists? _spath79926_)) - _spath79926_ + (##file-exists? _spath79908_)) + _spath79908_ '#f))))) - (let _lp79879_ ((_rest79881_ + (let _lp79861_ ((_rest79863_ (let () (declare (not safe)) (load-path)))) - (let* ((_rest7988279890_ _rest79881_) - (_else7988479898_ (lambda () '#f)) - (_K7988679912_ - (lambda (_rest79901_ _dir79902_) - (let* ((_npath79904_ + (let* ((_rest7986479872_ _rest79863_) + (_else7986679880_ (lambda () '#f)) + (_K7986879894_ + (lambda (_rest79883_ _dir79884_) + (let* ((_npath79886_ (path-expand - _modpath79874_ - (path-expand _dir79902_))) - (_$e79906_ + _modpath79856_ + (path-expand _dir79884_))) + (_$e79888_ (let () (declare (not safe)) - (_find-compiled-file79876_ _npath79904_)))) - (if _$e79906_ - (path-normalize _$e79906_) - (let ((_$e79909_ + (_find-compiled-file79858_ _npath79886_)))) + (if _$e79888_ + (path-normalize _$e79888_) + (let ((_$e79891_ (let () (declare (not safe)) - (_find-source-file79877_ _npath79904_)))) - (if _$e79909_ - (path-normalize _$e79909_) + (_find-source-file79859_ _npath79886_)))) + (if _$e79891_ + (path-normalize _$e79891_) (let () (declare (not safe)) - (_lp79879_ _rest79901_))))))))) - (if (let () (declare (not safe)) (##pair? _rest7988279890_)) - (let ((_hd7988779915_ + (_lp79861_ _rest79883_))))))))) + (if (let () (declare (not safe)) (##pair? _rest7986479872_)) + (let ((_hd7986979897_ (let () (declare (not safe)) - (##car _rest7988279890_))) - (_tl7988879917_ + (##car _rest7986479872_))) + (_tl7987079899_ (let () (declare (not safe)) - (##cdr _rest7988279890_)))) - (let* ((_dir79920_ _hd7988779915_) - (_rest79922_ _tl7988879917_)) + (##cdr _rest7986479872_)))) + (let* ((_dir79902_ _hd7986979897_) + (_rest79904_ _tl7987079899_)) (declare (not safe)) - (_K7988679912_ _rest79922_ _dir79920_))) - (let () (declare (not safe)) (_else7988479898_)))))))))) + (_K7986879894_ _rest79904_ _dir79902_))) + (let () (declare (not safe)) (_else7986679880_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm index e24792cb3..1dcd68245 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 1710833423) + (define gerbil/runtime/mop-system-classes::timestamp 1710943497) (begin (declare (not optimize-dead-definitions @@ -53,157 +53,157 @@ (define immediate::t (let () (declare (not safe)) (__make-system-class 'immediate '()))) (define char::t - (let ((__tmp66448 (let () (declare (not safe)) (cons immediate::t '())))) + (let ((__tmp66430 (let () (declare (not safe)) (cons immediate::t '())))) (declare (not safe)) - (__make-system-class 'char __tmp66448))) + (__make-system-class 'char __tmp66430))) (define boolean::t - (let ((__tmp66449 (let () (declare (not safe)) (cons immediate::t '())))) + (let ((__tmp66431 (let () (declare (not safe)) (cons immediate::t '())))) (declare (not safe)) - (__make-system-class 'boolean __tmp66449))) + (__make-system-class 'boolean __tmp66431))) (define atom::t - (let ((__tmp66450 (let () (declare (not safe)) (cons immediate::t '())))) + (let ((__tmp66432 (let () (declare (not safe)) (cons immediate::t '())))) (declare (not safe)) - (__make-system-class 'atom __tmp66450))) + (__make-system-class 'atom __tmp66432))) (define void::t - (let ((__tmp66451 (let () (declare (not safe)) (cons atom::t '())))) + (let ((__tmp66433 (let () (declare (not safe)) (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'void __tmp66451))) + (__make-system-class 'void __tmp66433))) (define eof::t - (let ((__tmp66452 (let () (declare (not safe)) (cons atom::t '())))) + (let ((__tmp66434 (let () (declare (not safe)) (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'eof __tmp66452))) + (__make-system-class 'eof __tmp66434))) (define true::t - (let ((__tmp66453 - (let ((__tmp66454 + (let ((__tmp66435 + (let ((__tmp66436 (let () (declare (not safe)) (cons atom::t '())))) (declare (not safe)) - (cons boolean::t __tmp66454)))) + (cons boolean::t __tmp66436)))) (declare (not safe)) - (__make-system-class 'true __tmp66453))) + (__make-system-class 'true __tmp66435))) (define false::t - (let ((__tmp66455 - (let ((__tmp66456 + (let ((__tmp66437 + (let ((__tmp66438 (let () (declare (not safe)) (cons atom::t '())))) (declare (not safe)) - (cons boolean::t __tmp66456)))) + (cons boolean::t __tmp66438)))) (declare (not safe)) - (__make-system-class 'false __tmp66455))) + (__make-system-class 'false __tmp66437))) (define special::t - (let ((__tmp66457 (let () (declare (not safe)) (cons atom::t '())))) + (let ((__tmp66439 (let () (declare (not safe)) (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'special __tmp66457))) + (__make-system-class 'special __tmp66439))) (define number::t (let () (declare (not safe)) (__make-system-class 'number '()))) (define real::t - (let ((__tmp66458 (let () (declare (not safe)) (cons number::t '())))) + (let ((__tmp66440 (let () (declare (not safe)) (cons number::t '())))) (declare (not safe)) - (__make-system-class 'real __tmp66458))) + (__make-system-class 'real __tmp66440))) (define integer::t - (let ((__tmp66459 (let () (declare (not safe)) (cons real::t '())))) + (let ((__tmp66441 (let () (declare (not safe)) (cons real::t '())))) (declare (not safe)) - (__make-system-class 'integer __tmp66459))) + (__make-system-class 'integer __tmp66441))) (define fixnum::t - (let ((__tmp66460 - (let ((__tmp66461 + (let ((__tmp66442 + (let ((__tmp66443 (let () (declare (not safe)) (cons immediate::t '())))) (declare (not safe)) - (cons integer::t __tmp66461)))) + (cons integer::t __tmp66443)))) (declare (not safe)) - (__make-system-class 'fixnum __tmp66460))) + (__make-system-class 'fixnum __tmp66442))) (define bignum::t - (let ((__tmp66462 (let () (declare (not safe)) (cons integer::t '())))) + (let ((__tmp66444 (let () (declare (not safe)) (cons integer::t '())))) (declare (not safe)) - (__make-system-class 'bignum __tmp66462))) + (__make-system-class 'bignum __tmp66444))) (define ratnum::t - (let ((__tmp66463 (let () (declare (not safe)) (cons real::t '())))) + (let ((__tmp66445 (let () (declare (not safe)) (cons real::t '())))) (declare (not safe)) - (__make-system-class 'ratnum __tmp66463))) + (__make-system-class 'ratnum __tmp66445))) (define flonum::t - (let ((__tmp66464 (let () (declare (not safe)) (cons real::t '())))) + (let ((__tmp66446 (let () (declare (not safe)) (cons real::t '())))) (declare (not safe)) - (__make-system-class 'flonum __tmp66464))) + (__make-system-class 'flonum __tmp66446))) (define cpxnum::t - (let ((__tmp66465 (let () (declare (not safe)) (cons number::t '())))) + (let ((__tmp66447 (let () (declare (not safe)) (cons number::t '())))) (declare (not safe)) - (__make-system-class 'cpxnum __tmp66465))) + (__make-system-class 'cpxnum __tmp66447))) (define symbolic::t (let () (declare (not safe)) (__make-system-class 'symbolic '()))) (define symbol::t - (let ((__tmp66466 (let () (declare (not safe)) (cons symbolic::t '())))) + (let ((__tmp66448 (let () (declare (not safe)) (cons symbolic::t '())))) (declare (not safe)) - (__make-system-class 'symbol __tmp66466))) + (__make-system-class 'symbol __tmp66448))) (define keyword::t - (let ((__tmp66467 (let () (declare (not safe)) (cons symbolic::t '())))) + (let ((__tmp66449 (let () (declare (not safe)) (cons symbolic::t '())))) (declare (not safe)) - (__make-system-class 'keyword __tmp66467))) + (__make-system-class 'keyword __tmp66449))) (define list::t (let () (declare (not safe)) (__make-system-class 'list '()))) (define pair::t - (let ((__tmp66468 (let () (declare (not safe)) (cons list::t '())))) + (let ((__tmp66450 (let () (declare (not safe)) (cons list::t '())))) (declare (not safe)) - (__make-system-class 'pair __tmp66468))) + (__make-system-class 'pair __tmp66450))) (define null::t - (let ((__tmp66469 - (let ((__tmp66470 + (let ((__tmp66451 + (let ((__tmp66452 (let () (declare (not safe)) (cons atom::t '())))) (declare (not safe)) - (cons list::t __tmp66470)))) + (cons list::t __tmp66452)))) (declare (not safe)) - (__make-system-class 'null __tmp66469))) + (__make-system-class 'null __tmp66451))) (define sequence::t (let () (declare (not safe)) (__make-system-class 'sequence '()))) (define vector::t - (let ((__tmp66471 (let () (declare (not safe)) (cons sequence::t '())))) + (let ((__tmp66453 (let () (declare (not safe)) (cons sequence::t '())))) (declare (not safe)) - (__make-system-class 'vector __tmp66471))) + (__make-system-class 'vector __tmp66453))) (define string::t - (let ((__tmp66472 (let () (declare (not safe)) (cons sequence::t '())))) + (let ((__tmp66454 (let () (declare (not safe)) (cons sequence::t '())))) (declare (not safe)) - (__make-system-class 'string __tmp66472))) + (__make-system-class 'string __tmp66454))) (define hvector::t - (let ((__tmp66473 (let () (declare (not safe)) (cons sequence::t '())))) + (let ((__tmp66455 (let () (declare (not safe)) (cons sequence::t '())))) (declare (not safe)) - (__make-system-class 'hvector __tmp66473))) + (__make-system-class 'hvector __tmp66455))) (define u8vector::t - (let ((__tmp66474 (let () (declare (not safe)) (cons hvector::t '())))) + (let ((__tmp66456 (let () (declare (not safe)) (cons hvector::t '())))) (declare (not safe)) - (__make-system-class 'u8vector __tmp66474))) + (__make-system-class 'u8vector __tmp66456))) (define s8vector::t - (let ((__tmp66475 (let () (declare (not safe)) (cons hvector::t '())))) + (let ((__tmp66457 (let () (declare (not safe)) (cons hvector::t '())))) (declare (not safe)) - (__make-system-class 's8vector __tmp66475))) + (__make-system-class 's8vector __tmp66457))) (define u16vector::t - (let ((__tmp66476 (let () (declare (not safe)) (cons hvector::t '())))) + (let ((__tmp66458 (let () (declare (not safe)) (cons hvector::t '())))) (declare (not safe)) - (__make-system-class 'u16vector __tmp66476))) + (__make-system-class 'u16vector __tmp66458))) (define s16vector::t - (let ((__tmp66477 (let () (declare (not safe)) (cons hvector::t '())))) + (let ((__tmp66459 (let () (declare (not safe)) (cons hvector::t '())))) (declare (not safe)) - (__make-system-class 's16vector __tmp66477))) + (__make-system-class 's16vector __tmp66459))) (define u32vector::t - (let ((__tmp66478 (let () (declare (not safe)) (cons hvector::t '())))) + (let ((__tmp66460 (let () (declare (not safe)) (cons hvector::t '())))) (declare (not safe)) - (__make-system-class 'u32vector __tmp66478))) + (__make-system-class 'u32vector __tmp66460))) (define s32vector::t - (let ((__tmp66479 (let () (declare (not safe)) (cons hvector::t '())))) + (let ((__tmp66461 (let () (declare (not safe)) (cons hvector::t '())))) (declare (not safe)) - (__make-system-class 's32vector __tmp66479))) + (__make-system-class 's32vector __tmp66461))) (define u64vector::t - (let ((__tmp66480 (let () (declare (not safe)) (cons hvector::t '())))) + (let ((__tmp66462 (let () (declare (not safe)) (cons hvector::t '())))) (declare (not safe)) - (__make-system-class 'u64vector __tmp66480))) + (__make-system-class 'u64vector __tmp66462))) (define s64vector::t - (let ((__tmp66481 (let () (declare (not safe)) (cons hvector::t '())))) + (let ((__tmp66463 (let () (declare (not safe)) (cons hvector::t '())))) (declare (not safe)) - (__make-system-class 's64vector __tmp66481))) + (__make-system-class 's64vector __tmp66463))) (define f32vector::t - (let ((__tmp66482 (let () (declare (not safe)) (cons hvector::t '())))) + (let ((__tmp66464 (let () (declare (not safe)) (cons hvector::t '())))) (declare (not safe)) - (__make-system-class 'f32vector __tmp66482))) + (__make-system-class 'f32vector __tmp66464))) (define f64vector::t - (let ((__tmp66483 (let () (declare (not safe)) (cons hvector::t '())))) + (let ((__tmp66465 (let () (declare (not safe)) (cons hvector::t '())))) (declare (not safe)) - (__make-system-class 'f64vector __tmp66483))) + (__make-system-class 'f64vector __tmp66465))) (define values::t (let () (declare (not safe)) (__make-system-class 'values '()))) (define box::t @@ -223,325 +223,325 @@ (define return::t (let () (declare (not safe)) (__make-system-class 'return '()))) (define time::t - (let ((__tmp66484 (macro-type-time))) + (let ((__tmp66466 (macro-type-time))) (declare (not safe)) - (__shadow-class __tmp66484))) + (__shadow-class __tmp66466))) (define thread::t - (let ((__tmp66485 (macro-type-thread))) + (let ((__tmp66467 (macro-type-thread))) (declare (not safe)) - (__shadow-class __tmp66485))) + (__shadow-class __tmp66467))) (define thread-group::t - (let ((__tmp66486 (macro-type-tgroup))) + (let ((__tmp66468 (macro-type-tgroup))) (declare (not safe)) - (__shadow-class __tmp66486))) + (__shadow-class __tmp66468))) (define mutex::t - (let ((__tmp66487 (macro-type-mutex))) + (let ((__tmp66469 (macro-type-mutex))) (declare (not safe)) - (__shadow-class __tmp66487))) + (__shadow-class __tmp66469))) (define condvar::t - (let ((__tmp66488 (macro-type-condvar))) + (let ((__tmp66470 (macro-type-condvar))) (declare (not safe)) - (__shadow-class __tmp66488))) + (__shadow-class __tmp66470))) (define port::t - (let ((__tmp66489 (macro-type-port))) + (let ((__tmp66471 (macro-type-port))) (declare (not safe)) - (__shadow-class __tmp66489))) + (__shadow-class __tmp66471))) (define object-port::t - (let ((__tmp66490 (macro-type-object-port))) + (let ((__tmp66472 (macro-type-object-port))) (declare (not safe)) - (__shadow-class __tmp66490))) + (__shadow-class __tmp66472))) (define character-port::t - (let ((__tmp66491 (macro-type-character-port))) + (let ((__tmp66473 (macro-type-character-port))) (declare (not safe)) - (__shadow-class __tmp66491))) + (__shadow-class __tmp66473))) (define byte-port::t - (let ((__tmp66492 (macro-type-byte-port))) + (let ((__tmp66474 (macro-type-byte-port))) (declare (not safe)) - (__shadow-class __tmp66492))) + (__shadow-class __tmp66474))) (define device-port::t - (let ((__tmp66493 (macro-type-device-port))) + (let ((__tmp66475 (macro-type-device-port))) (declare (not safe)) - (__shadow-class __tmp66493))) + (__shadow-class __tmp66475))) (define vector-port::t - (let ((__tmp66494 (macro-type-vector-port))) + (let ((__tmp66476 (macro-type-vector-port))) (declare (not safe)) - (__shadow-class __tmp66494))) + (__shadow-class __tmp66476))) (define string-port::t - (let ((__tmp66495 (macro-type-string-port))) + (let ((__tmp66477 (macro-type-string-port))) (declare (not safe)) - (__shadow-class __tmp66495))) + (__shadow-class __tmp66477))) (define u8vector-port::t - (let ((__tmp66496 (macro-type-u8vector-port))) + (let ((__tmp66478 (macro-type-u8vector-port))) (declare (not safe)) - (__shadow-class __tmp66496))) + (__shadow-class __tmp66478))) (define raw-device-port::t - (let ((__tmp66497 (macro-type-raw-device-port))) + (let ((__tmp66479 (macro-type-raw-device-port))) (declare (not safe)) - (__shadow-class __tmp66497))) + (__shadow-class __tmp66479))) (define tcp-server-port::t - (let ((__tmp66498 (macro-type-tcp-server-port))) + (let ((__tmp66480 (macro-type-tcp-server-port))) (declare (not safe)) - (__shadow-class __tmp66498))) + (__shadow-class __tmp66480))) (define udp-port::t - (let ((__tmp66499 (macro-type-udp-port))) + (let ((__tmp66481 (macro-type-udp-port))) (declare (not safe)) - (__shadow-class __tmp66499))) + (__shadow-class __tmp66481))) (define directory-port::t - (let ((__tmp66500 (macro-type-directory-port))) + (let ((__tmp66482 (macro-type-directory-port))) (declare (not safe)) - (__shadow-class __tmp66500))) + (__shadow-class __tmp66482))) (define event-queue-port::t - (let ((__tmp66501 (macro-type-event-queue-port))) + (let ((__tmp66483 (macro-type-event-queue-port))) (declare (not safe)) - (__shadow-class __tmp66501))) + (__shadow-class __tmp66483))) (define table::t - (let ((__tmp66502 (macro-type-table))) + (let ((__tmp66484 (macro-type-table))) (declare (not safe)) - (__shadow-class __tmp66502))) + (__shadow-class __tmp66484))) (define readenv::t - (let ((__tmp66503 (macro-type-readenv))) + (let ((__tmp66485 (macro-type-readenv))) (declare (not safe)) - (__shadow-class __tmp66503))) + (__shadow-class __tmp66485))) (define writeenv::t - (let ((__tmp66504 (macro-type-writeenv))) + (let ((__tmp66486 (macro-type-writeenv))) (declare (not safe)) - (__shadow-class __tmp66504))) + (__shadow-class __tmp66486))) (define readtable::t - (let ((__tmp66505 (macro-type-readtable))) + (let ((__tmp66487 (macro-type-readtable))) (declare (not safe)) - (__shadow-class __tmp66505))) + (__shadow-class __tmp66487))) (define processor::t - (let ((__tmp66506 (macro-type-processor))) + (let ((__tmp66488 (macro-type-processor))) (declare (not safe)) - (__shadow-class __tmp66506))) + (__shadow-class __tmp66488))) (define vm::t - (let ((__tmp66507 (macro-type-vm))) + (let ((__tmp66489 (macro-type-vm))) (declare (not safe)) - (__shadow-class __tmp66507))) + (__shadow-class __tmp66489))) (define file-info::t - (let ((__tmp66508 (macro-type-file-info))) + (let ((__tmp66490 (macro-type-file-info))) (declare (not safe)) - (__shadow-class __tmp66508))) + (__shadow-class __tmp66490))) (define socket-info::t - (let ((__tmp66509 (macro-type-socket-info))) + (let ((__tmp66491 (macro-type-socket-info))) (declare (not safe)) - (__shadow-class __tmp66509))) + (__shadow-class __tmp66491))) (define address-info::t - (let ((__tmp66510 (macro-type-address-info))) + (let ((__tmp66492 (macro-type-address-info))) (declare (not safe)) - (__shadow-class __tmp66510))) + (__shadow-class __tmp66492))) (define atom? - (lambda (_obj66447_) - (if (let () (declare (not safe)) (immediate? _obj66447_)) - (if (let ((__tmp66512 - (let () (declare (not safe)) (char? _obj66447_)))) + (lambda (_obj66429_) + (if (let () (declare (not safe)) (immediate? _obj66429_)) + (if (let ((__tmp66494 + (let () (declare (not safe)) (char? _obj66429_)))) (declare (not safe)) - (not __tmp66512)) - (let ((__tmp66511 - (let () (declare (not safe)) (fixnum? _obj66447_)))) + (not __tmp66494)) + (let ((__tmp66493 + (let () (declare (not safe)) (fixnum? _obj66429_)))) (declare (not safe)) - (not __tmp66511)) + (not __tmp66493)) '#f) '#f))) (define special? - (lambda (_obj66445_) - (if (fx= (let () (declare (not safe)) (##type _obj66445_)) '2) - (if (let ((__tmp66517 - (let () (declare (not safe)) (char? _obj66445_)))) + (lambda (_obj66427_) + (if (fx= (let () (declare (not safe)) (##type _obj66427_)) '2) + (if (let ((__tmp66499 + (let () (declare (not safe)) (char? _obj66427_)))) (declare (not safe)) - (not __tmp66517)) - (if (let ((__tmp66516 - (let () (declare (not safe)) (null? _obj66445_)))) + (not __tmp66499)) + (if (let ((__tmp66498 + (let () (declare (not safe)) (null? _obj66427_)))) (declare (not safe)) - (not __tmp66516)) - (if (let ((__tmp66515 + (not __tmp66498)) + (if (let ((__tmp66497 (let () (declare (not safe)) - (boolean? _obj66445_)))) + (boolean? _obj66427_)))) (declare (not safe)) - (not __tmp66515)) - (if (let ((__tmp66514 + (not __tmp66497)) + (if (let ((__tmp66496 (let () (declare (not safe)) - (eq? _obj66445_ '#!void)))) + (eq? _obj66427_ '#!void)))) (declare (not safe)) - (not __tmp66514)) - (let ((__tmp66513 + (not __tmp66496)) + (let ((__tmp66495 (let () (declare (not safe)) - (eof-object? _obj66445_)))) + (eof-object? _obj66427_)))) (declare (not safe)) - (not __tmp66513)) + (not __tmp66495)) '#f) '#f) '#f) '#f) '#f))) (define sequence? - (lambda (_obj66437_) - (let ((_$e66439_ (let () (declare (not safe)) (vector? _obj66437_)))) - (if _$e66439_ - _$e66439_ - (let ((_$e66442_ - (let () (declare (not safe)) (string? _obj66437_)))) - (if _$e66442_ - _$e66442_ - (let () (declare (not safe)) (hvector? _obj66437_)))))))) + (lambda (_obj66419_) + (let ((_$e66421_ (let () (declare (not safe)) (vector? _obj66419_)))) + (if _$e66421_ + _$e66421_ + (let ((_$e66424_ + (let () (declare (not safe)) (string? _obj66419_)))) + (if _$e66424_ + _$e66424_ + (let () (declare (not safe)) (hvector? _obj66419_)))))))) (define hvector? - (lambda (_obj66408_) - (let ((_$e66410_ (let () (declare (not safe)) (u8vector? _obj66408_)))) - (if _$e66410_ - _$e66410_ - (let ((_$e66413_ (s8vector? _obj66408_))) - (if _$e66413_ - _$e66413_ - (let ((_$e66416_ (u16vector? _obj66408_))) - (if _$e66416_ - _$e66416_ - (let ((_$e66419_ (s16vector? _obj66408_))) - (if _$e66419_ - _$e66419_ - (let ((_$e66422_ (u32vector? _obj66408_))) - (if _$e66422_ - _$e66422_ - (let ((_$e66425_ - (s32vector? _obj66408_))) - (if _$e66425_ - _$e66425_ - (let ((_$e66428_ - (u64vector? _obj66408_))) - (if _$e66428_ - _$e66428_ - (let ((_$e66431_ + (lambda (_obj66390_) + (let ((_$e66392_ (let () (declare (not safe)) (u8vector? _obj66390_)))) + (if _$e66392_ + _$e66392_ + (let ((_$e66395_ (s8vector? _obj66390_))) + (if _$e66395_ + _$e66395_ + (let ((_$e66398_ (u16vector? _obj66390_))) + (if _$e66398_ + _$e66398_ + (let ((_$e66401_ (s16vector? _obj66390_))) + (if _$e66401_ + _$e66401_ + (let ((_$e66404_ (u32vector? _obj66390_))) + (if _$e66404_ + _$e66404_ + (let ((_$e66407_ + (s32vector? _obj66390_))) + (if _$e66407_ + _$e66407_ + (let ((_$e66410_ + (u64vector? _obj66390_))) + (if _$e66410_ + _$e66410_ + (let ((_$e66413_ (s64vector? - _obj66408_))) - (if _$e66431_ - _$e66431_ - (let ((_$e66434_ + _obj66390_))) + (if _$e66413_ + _$e66413_ + (let ((_$e66416_ (f32vector? - _obj66408_))) - (if _$e66434_ - _$e66434_ + _obj66390_))) + (if _$e66416_ + _$e66416_ (f64vector? - _obj66408_))))))))))))))))))))) + _obj66390_))))))))))))))))))))) (define weak? - (lambda (_obj66406_) - (if (let () (declare (not safe)) (##subtyped? _obj66406_)) - (let ((__tmp66519 - (let () (declare (not safe)) (##subtype _obj66406_))) - (__tmp66518 (macro-subtype-weak))) + (lambda (_obj66388_) + (if (let () (declare (not safe)) (##subtyped? _obj66388_)) + (let ((__tmp66501 + (let () (declare (not safe)) (##subtype _obj66388_))) + (__tmp66500 (macro-subtype-weak))) (declare (not safe)) - (eq? __tmp66519 __tmp66518)) + (eq? __tmp66501 __tmp66500)) '#f))) (define object-port? - (lambda (_obj66404_) - (let ((__tmp66520 - (let ((__tmp66521 (macro-type-object-port))) + (lambda (_obj66386_) + (let ((__tmp66502 + (let ((__tmp66503 (macro-type-object-port))) (declare (not safe)) - (##type-id __tmp66521)))) + (##type-id __tmp66503)))) (declare (not safe)) - (##structure-instance-of? _obj66404_ __tmp66520)))) + (##structure-instance-of? _obj66386_ __tmp66502)))) (define character-port? - (lambda (_obj66402_) - (let ((__tmp66522 - (let ((__tmp66523 (macro-type-character-port))) + (lambda (_obj66384_) + (let ((__tmp66504 + (let ((__tmp66505 (macro-type-character-port))) (declare (not safe)) - (##type-id __tmp66523)))) + (##type-id __tmp66505)))) (declare (not safe)) - (##structure-instance-of? _obj66402_ __tmp66522)))) + (##structure-instance-of? _obj66384_ __tmp66504)))) (define device-port? - (lambda (_obj66400_) - (let ((__tmp66524 - (let ((__tmp66525 (macro-type-device-port))) + (lambda (_obj66382_) + (let ((__tmp66506 + (let ((__tmp66507 (macro-type-device-port))) (declare (not safe)) - (##type-id __tmp66525)))) + (##type-id __tmp66507)))) (declare (not safe)) - (##structure-instance-of? _obj66400_ __tmp66524)))) + (##structure-instance-of? _obj66382_ __tmp66506)))) (define vector-port? - (lambda (_obj66398_) - (let ((__tmp66526 - (let ((__tmp66527 (macro-type-vector-port))) + (lambda (_obj66380_) + (let ((__tmp66508 + (let ((__tmp66509 (macro-type-vector-port))) (declare (not safe)) - (##type-id __tmp66527)))) + (##type-id __tmp66509)))) (declare (not safe)) - (##structure-instance-of? _obj66398_ __tmp66526)))) + (##structure-instance-of? _obj66380_ __tmp66508)))) (define string-port? - (lambda (_obj66396_) - (let ((__tmp66528 - (let ((__tmp66529 (macro-type-string-port))) + (lambda (_obj66378_) + (let ((__tmp66510 + (let ((__tmp66511 (macro-type-string-port))) (declare (not safe)) - (##type-id __tmp66529)))) + (##type-id __tmp66511)))) (declare (not safe)) - (##structure-instance-of? _obj66396_ __tmp66528)))) + (##structure-instance-of? _obj66378_ __tmp66510)))) (define u8vector-port? - (lambda (_obj66394_) - (let ((__tmp66530 - (let ((__tmp66531 (macro-type-u8vector-port))) + (lambda (_obj66376_) + (let ((__tmp66512 + (let ((__tmp66513 (macro-type-u8vector-port))) (declare (not safe)) - (##type-id __tmp66531)))) + (##type-id __tmp66513)))) (declare (not safe)) - (##structure-instance-of? _obj66394_ __tmp66530)))) + (##structure-instance-of? _obj66376_ __tmp66512)))) (define raw-device-port? - (lambda (_obj66392_) - (let ((__tmp66532 - (let ((__tmp66533 (macro-type-raw-device-port))) + (lambda (_obj66374_) + (let ((__tmp66514 + (let ((__tmp66515 (macro-type-raw-device-port))) (declare (not safe)) - (##type-id __tmp66533)))) + (##type-id __tmp66515)))) (declare (not safe)) - (##structure-instance-of? _obj66392_ __tmp66532)))) + (##structure-instance-of? _obj66374_ __tmp66514)))) (define tcp-server-port? - (lambda (_obj66390_) - (let ((__tmp66534 - (let ((__tmp66535 (macro-type-tcp-server-port))) + (lambda (_obj66372_) + (let ((__tmp66516 + (let ((__tmp66517 (macro-type-tcp-server-port))) (declare (not safe)) - (##type-id __tmp66535)))) + (##type-id __tmp66517)))) (declare (not safe)) - (##structure-instance-of? _obj66390_ __tmp66534)))) + (##structure-instance-of? _obj66372_ __tmp66516)))) (define udp-port? - (lambda (_obj66388_) - (let ((__tmp66536 - (let ((__tmp66537 (macro-type-udp-port))) + (lambda (_obj66370_) + (let ((__tmp66518 + (let ((__tmp66519 (macro-type-udp-port))) (declare (not safe)) - (##type-id __tmp66537)))) + (##type-id __tmp66519)))) (declare (not safe)) - (##structure-instance-of? _obj66388_ __tmp66536)))) + (##structure-instance-of? _obj66370_ __tmp66518)))) (define directory-port? - (lambda (_obj66386_) - (let ((__tmp66538 - (let ((__tmp66539 (macro-type-directory-port))) + (lambda (_obj66368_) + (let ((__tmp66520 + (let ((__tmp66521 (macro-type-directory-port))) (declare (not safe)) - (##type-id __tmp66539)))) + (##type-id __tmp66521)))) (declare (not safe)) - (##structure-instance-of? _obj66386_ __tmp66538)))) + (##structure-instance-of? _obj66368_ __tmp66520)))) (define event-queue-port? - (lambda (_obj66384_) - (let ((__tmp66540 - (let ((__tmp66541 (macro-type-event-queue-port))) + (lambda (_obj66366_) + (let ((__tmp66522 + (let ((__tmp66523 (macro-type-event-queue-port))) (declare (not safe)) - (##type-id __tmp66541)))) + (##type-id __tmp66523)))) (declare (not safe)) - (##structure-instance-of? _obj66384_ __tmp66540)))) + (##structure-instance-of? _obj66366_ __tmp66522)))) (define readenv? - (lambda (_obj66382_) - (let ((__tmp66542 - (let ((__tmp66543 (macro-type-readenv))) + (lambda (_obj66364_) + (let ((__tmp66524 + (let ((__tmp66525 (macro-type-readenv))) (declare (not safe)) - (##type-id __tmp66543)))) + (##type-id __tmp66525)))) (declare (not safe)) - (##structure-instance-of? _obj66382_ __tmp66542)))) + (##structure-instance-of? _obj66364_ __tmp66524)))) (define writeenv? - (lambda (_obj66380_) - (let ((__tmp66544 - (let ((__tmp66545 (macro-type-writeenv))) + (lambda (_obj66362_) + (let ((__tmp66526 + (let ((__tmp66527 (macro-type-writeenv))) (declare (not safe)) - (##type-id __tmp66545)))) + (##type-id __tmp66527)))) (declare (not safe)) - (##structure-instance-of? _obj66380_ __tmp66544)))) + (##structure-instance-of? _obj66362_ __tmp66526)))) (define vm? - (lambda (_obj66378_) - (let ((__tmp66546 - (let ((__tmp66547 (macro-type-vm))) + (lambda (_obj66360_) + (let ((__tmp66528 + (let ((__tmp66529 (macro-type-vm))) (declare (not safe)) - (##type-id __tmp66547)))) + (##type-id __tmp66529)))) (declare (not safe)) - (##structure-instance-of? _obj66378_ __tmp66546)))))) + (##structure-instance-of? _obj66360_ __tmp66528)))))) diff --git a/src/bootstrap/gerbil/runtime/mop~0.scm b/src/bootstrap/gerbil/runtime/mop~0.scm index 6afb64e37..8aa1c0022 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 1710833423) + (define gerbil/runtime/mop::timestamp 1710943496) (begin (define type-flag-opaque '1) (define type-flag-extensible '2) @@ -1752,12 +1752,20 @@ (unchecked-slot-set! _obj64969_ _slot64966_ _val64970_)))))) (define class-slot-offset (lambda (_klass64962_ _slot64963_) - (let ((__tmp65939 - (let () - (declare (not safe)) - (##unchecked-structure-ref _klass64962_ '8 class::t '#f)))) - (declare (not safe)) - (symbolic-table-ref __tmp65939 _slot64963_ '#f)))) + (if (let () (declare (not safe)) (symbolic? _slot64963_)) + (let ((__tmp65939 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _klass64962_ + '8 + class::t + '#f)))) + (declare (not safe)) + (symbolic-table-ref __tmp65939 _slot64963_ '#f)) + (let () + (declare (not safe)) + (error '"slot must be a symbol or keyword" _slot64963_))))) (define class-slot-ref (lambda (_klass64956_ _obj64957_ _slot64958_) (if (let () @@ -1836,26 +1844,19 @@ (unchecked-field-set! _obj64935_ __tmp65946 _val64937_)))) (define slot-ref__% (lambda (_obj64911_ _slot64912_ _E64913_) - (if (object? _obj64911_) - (let* ((_klass64915_ (object-type _obj64911_)) - (_$e64918_ - (if (let () - (declare (not safe)) - (##structure-instance-of? - _klass64915_ - 'gerbil#class::t)) - (let () - (declare (not safe)) - (class-slot-offset _klass64915_ _slot64912_)) - '#f))) - (if _$e64918_ - ((lambda (_off64921_) - (let () - (declare (not safe)) - (unchecked-field-ref _obj64911_ _off64921_))) - _$e64918_) - (_E64913_ _obj64911_ _slot64912_))) - (_E64913_ _obj64911_ _slot64912_)))) + (let* ((_klass64915_ + (let () (declare (not safe)) (class-of _obj64911_))) + (_$e64918_ + (let () + (declare (not safe)) + (class-slot-offset _klass64915_ _slot64912_)))) + (if _$e64918_ + ((lambda (_off64921_) + (let () + (declare (not safe)) + (unchecked-field-ref _obj64911_ _off64921_))) + _$e64918_) + (_E64913_ _obj64911_ _slot64912_))))) (define slot-ref__0 (lambda (_obj64926_ _slot64927_) (let ((_E64929_ __slot-error)) @@ -1882,29 +1883,19 @@ _g65949_)))))) (define slot-set!__% (lambda (_obj64883_ _slot64884_ _val64885_ _E64886_) - (if (object? _obj64883_) - (let* ((_klass64888_ (object-type _obj64883_)) - (_$e64891_ - (if (let () - (declare (not safe)) - (##structure-instance-of? - _klass64888_ - 'gerbil#class::t)) - (let () - (declare (not safe)) - (class-slot-offset _klass64888_ _slot64884_)) - '#f))) - (if _$e64891_ - ((lambda (_off64894_) - (let () - (declare (not safe)) - (unchecked-field-set! - _obj64883_ - _off64894_ - _val64885_))) - _$e64891_) - (_E64886_ _obj64883_ _slot64884_))) - (_E64886_ _obj64883_ _slot64884_)))) + (let* ((_klass64888_ + (let () (declare (not safe)) (class-of _obj64883_))) + (_$e64891_ + (let () + (declare (not safe)) + (class-slot-offset _klass64888_ _slot64884_)))) + (if _$e64891_ + ((lambda (_off64894_) + (let () + (declare (not safe)) + (unchecked-field-set! _obj64883_ _off64894_ _val64885_))) + _$e64891_) + (_E64886_ _obj64883_ _slot64884_))))) (define slot-set!__0 (lambda (_obj64899_ _slot64900_ _val64901_) (let ((_E64903_ __slot-error)) @@ -1987,16 +1978,10 @@ (##structure-instance-of? _obj64864_ __tmp65957)))) (define class-instance? (lambda (_klass64858_ _obj64859_) - (if (object? _obj64859_) - (let ((_type64861_ (object-type _obj64859_))) - (if (let () - (declare (not safe)) - (##structure-instance-of? _type64861_ 'gerbil#class::t)) - (let () - (declare (not safe)) - (subclass? _type64861_ _klass64858_)) - '#f)) - '#f))) + (let ((_type64861_ + (let () (declare (not safe)) (class-of _obj64859_)))) + (declare (not safe)) + (subclass? _type64861_ _klass64858_)))) (define make-object (lambda (_klass64853_ _k64854_) (if (let () (declare (not safe)) (class-type-system? _klass64853_)) @@ -2394,26 +2379,33 @@ (lambda _args64665_ (apply _method64663_ _obj64660_ _args64665_))))) (define find-method (lambda (_klass64656_ _obj64657_ _id64658_) - (if (let () + (if (let ((__tmp65979 + (let () (declare (not safe)) (symbol? _id64658_)))) (declare (not safe)) - (##structure-instance-of? _klass64656_ 'gerbil#class::t)) + (not __tmp65979)) (let () (declare (not safe)) - (__find-method _klass64656_ _obj64657_ _id64658_)) - (if (let () (declare (not safe)) (##type? _klass64656_)) - (let ((__tmp65978 - (let () - (declare (not safe)) - (__shadow-class _klass64656_)))) + (error '"method id must be a symbol" 'method: _id64658_)) + (if (let () (declare (not safe)) - (__find-method __tmp65978 _obj64657_ _id64658_)) + (##structure-instance-of? _klass64656_ 'gerbil#class::t)) (let () (declare (not safe)) - (error '"bad class; must be a class-type or builtin type" - 'class: - _klass64656_ - 'method: - _id64658_)))))) + (__find-method _klass64656_ _obj64657_ _id64658_)) + (if (let () (declare (not safe)) (##type? _klass64656_)) + (let ((__tmp65978 + (let () + (declare (not safe)) + (__shadow-class _klass64656_)))) + (declare (not safe)) + (__find-method __tmp65978 _obj64657_ _id64658_)) + (let () + (declare (not safe)) + (error '"bad class; must be a class-type or builtin type" + 'class: + _klass64656_ + 'method: + _id64658_))))))) (define __find-method (lambda (_klass64649_ _obj64650_ _id64651_) (let ((_$e64653_ @@ -2431,13 +2423,13 @@ (mixin-method-ref _klass64649_ _obj64650_ _id64651_))))))) (define mixin-find-method (lambda (_mixins64641_ _obj64642_ _id64643_) - (let ((__tmp65979 + (let ((__tmp65980 (lambda (_g6464464646_) (let () (declare (not safe)) (direct-method-ref _g6464464646_ _obj64642_ _id64643_))))) (declare (not safe)) - (ormap1 __tmp65979 _mixins64641_)))) + (ormap1 __tmp65980 _mixins64641_)))) (define direct-method-ref (lambda (_klass64618_ _obj64619_ _id64620_) (letrec ((_metaclass-resolve-method64622_ @@ -2459,7 +2451,7 @@ (let () (declare (not safe)) (_metaclass-resolve-method64622_)))) - (let ((__tmp65981 + (let ((__tmp65982 (let () (declare (not safe)) (##unchecked-structure-ref @@ -2467,9 +2459,9 @@ '11 class::t '#f))) - (__tmp65980 (if _method64638_ 'resolved 'unknown))) + (__tmp65981 (if _method64638_ 'resolved 'unknown))) (declare (not safe)) - (symbolic-table-set! __tmp65981 _id64620_ __tmp65980)) + (symbolic-table-set! __tmp65982 _id64620_ __tmp65981)) _method64638_)))) (let ((_$e64625_ (let () @@ -2525,9 +2517,9 @@ '#f)))))) (define mixin-method-ref (lambda (_klass64614_ _obj64615_ _id64616_) - (let ((__tmp65982 (##structure-ref _klass64614_ '6 class::t '#f))) + (let ((__tmp65983 (##structure-ref _klass64614_ '6 class::t '#f))) (declare (not safe)) - (mixin-find-method __tmp65982 _obj64615_ _id64616_)))) + (mixin-find-method __tmp65983 _obj64615_ _id64616_)))) (define bind-method!__% (lambda (_klass64587_ _id64588_ _proc64589_ _rebind?64590_) (letrec ((_bind!64592_ @@ -2581,13 +2573,13 @@ '#f)) (let () (declare (not safe)) (_bind!64592_ _ht64596_))))) (if (let () (declare (not safe)) (##type? _klass64587_)) - (let ((__tmp65983 + (let ((__tmp65984 (let () (declare (not safe)) (__shadow-class _klass64587_)))) (declare (not safe)) (bind-method!__% - __tmp65983 + __tmp65984 _id64588_ _proc64589_ _rebind?64590_)) @@ -2605,9 +2597,9 @@ _proc64605_ _rebind?64607_)))) (define bind-method! - (lambda _g65985_ - (let ((_g65984_ (let () (declare (not safe)) (##length _g65985_)))) - (cond ((let () (declare (not safe)) (##fx= _g65984_ 3)) + (lambda _g65986_ + (let ((_g65985_ (let () (declare (not safe)) (##length _g65986_)))) + (cond ((let () (declare (not safe)) (##fx= _g65985_ 3)) (apply (lambda (_klass64603_ _id64604_ _proc64605_) (let () (declare (not safe)) @@ -2615,8 +2607,8 @@ _klass64603_ _id64604_ _proc64605_))) - _g65985_)) - ((let () (declare (not safe)) (##fx= _g65984_ 4)) + _g65986_)) + ((let () (declare (not safe)) (##fx= _g65985_ 4)) (apply (lambda (_klass64609_ _id64610_ _proc64611_ @@ -2628,11 +2620,11 @@ _id64610_ _proc64611_ _rebind?64612_))) - _g65985_)) + _g65986_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g65985_)))))) + _g65986_)))))) (define make-method-specializer-table__% (lambda (_size-hint64567_ _seed64569_) (let () @@ -2653,33 +2645,33 @@ (declare (not safe)) (make-method-specializer-table__% _size-hint64579_ _seed64581_)))) (define make-method-specializer-table - (lambda _g65987_ - (let ((_g65986_ (let () (declare (not safe)) (##length _g65987_)))) - (cond ((let () (declare (not safe)) (##fx= _g65986_ 0)) + (lambda _g65988_ + (let ((_g65987_ (let () (declare (not safe)) (##length _g65988_)))) + (cond ((let () (declare (not safe)) (##fx= _g65987_ 0)) (apply (lambda () (let () (declare (not safe)) (make-method-specializer-table__0))) - _g65987_)) - ((let () (declare (not safe)) (##fx= _g65986_ 1)) + _g65988_)) + ((let () (declare (not safe)) (##fx= _g65987_ 1)) (apply (lambda (_size-hint64579_) (let () (declare (not safe)) (make-method-specializer-table__1 _size-hint64579_))) - _g65987_)) - ((let () (declare (not safe)) (##fx= _g65986_ 2)) + _g65988_)) + ((let () (declare (not safe)) (##fx= _g65987_ 2)) (apply (lambda (_size-hint64583_ _seed64584_) (let () (declare (not safe)) (make-method-specializer-table__% _size-hint64583_ _seed64584_))) - _g65987_)) + _g65988_)) (else (##raise-wrong-number-of-arguments-exception make-method-specializer-table - _g65987_)))))) + _g65988_)))))) (define method-specializer-table-ref (lambda (_tab64524_ _key64525_ _default64526_) (let ((_table64528_ @@ -2701,40 +2693,40 @@ (_i64549_ '1) (_deleted64551_ '#f)) (let ((_k64554_ (vector-ref _table64528_ _probe64547_))) - (if (let ((__tmp65994 (macro-unused-obj))) + (if (let ((__tmp65995 (macro-unused-obj))) (declare (not safe)) - (eq? _k64554_ __tmp65994)) + (eq? _k64554_ __tmp65995)) _default64526_ - (if (let ((__tmp65993 (macro-deleted-obj))) + (if (let ((__tmp65994 (macro-deleted-obj))) (declare (not safe)) - (eq? _k64554_ __tmp65993)) - (let ((__tmp65992 + (eq? _k64554_ __tmp65994)) + (let ((__tmp65993 (let ((_next-probe64557_ (fx+ _start64540_ _i64549_ (fx* _i64549_ _i64549_)))) (fxmodulo _next-probe64557_ _size64534_))) - (__tmp65991 (fx+ _i64549_ '1)) - (__tmp65990 + (__tmp65992 (fx+ _i64549_ '1)) + (__tmp65991 (let ((_$e64560_ _deleted64551_)) (if _$e64560_ _$e64560_ _probe64547_)))) (declare (not safe)) - (_loop64544_ __tmp65992 __tmp65991 __tmp65990)) + (_loop64544_ __tmp65993 __tmp65992 __tmp65991)) (if (let () (declare (not safe)) (eq? _key64525_ _k64554_)) (vector-ref _table64528_ (fx+ _probe64547_ '1)) - (let ((__tmp65989 + (let ((__tmp65990 (let ((_next-probe64563_ (fx+ _start64540_ _i64549_ (fx* _i64549_ _i64549_)))) (fxmodulo _next-probe64563_ _size64534_))) - (__tmp65988 (fx+ _i64549_ '1))) + (__tmp65989 (fx+ _i64549_ '1))) (declare (not safe)) (_loop64544_ + __tmp65990 __tmp65989 - __tmp65988 _deleted64551_))))))))))) (define method-specializer-table-set! (lambda (_tab64520_ _key64521_ _value64522_) @@ -2772,9 +2764,9 @@ (_i64501_ '1) (_deleted64503_ '#f)) (let ((_k64506_ (vector-ref _table64480_ _probe64499_))) - (if (let ((__tmp66004 (macro-unused-obj))) + (if (let ((__tmp66005 (macro-unused-obj))) (declare (not safe)) - (eq? _k64506_ __tmp66004)) + (eq? _k64506_ __tmp66005)) (if _deleted64503_ (begin (vector-set! _table64480_ _deleted64503_ _key64476_) @@ -2783,7 +2775,7 @@ (fx+ _deleted64503_ '1) _value64477_) ((lambda () - (let ((__tmp66003 + (let ((__tmp66004 (fx+ (let () (declare (not safe)) (&raw-table-count _tab64475_)) @@ -2791,7 +2783,7 @@ (declare (not safe)) (&raw-table-count-set! _tab64475_ - __tmp66003))))) + __tmp66004))))) (begin (vector-set! _table64480_ _probe64499_ _key64476_) (vector-set! @@ -2799,14 +2791,14 @@ (fx+ _probe64499_ '1) _value64477_) ((lambda () - (let ((__tmp66001 + (let ((__tmp66002 (fx- (let () (declare (not safe)) (&raw-table-free _tab64475_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab64475_ __tmp66001)) - (let ((__tmp66002 + (&raw-table-free-set! _tab64475_ __tmp66002)) + (let ((__tmp66003 (fx+ (let () (declare (not safe)) (&raw-table-count _tab64475_)) @@ -2814,22 +2806,22 @@ (declare (not safe)) (&raw-table-count-set! _tab64475_ - __tmp66002)))))) - (if (let ((__tmp66000 (macro-deleted-obj))) + __tmp66003)))))) + (if (let ((__tmp66001 (macro-deleted-obj))) (declare (not safe)) - (eq? _k64506_ __tmp66000)) - (let ((__tmp65999 + (eq? _k64506_ __tmp66001)) + (let ((__tmp66000 (let ((_next-probe64511_ (fx+ _start64492_ _i64501_ (fx* _i64501_ _i64501_)))) (fxmodulo _next-probe64511_ _size64486_))) - (__tmp65998 (fx+ _i64501_ '1)) - (__tmp65997 + (__tmp65999 (fx+ _i64501_ '1)) + (__tmp65998 (let ((_$e64514_ _deleted64503_)) (if _$e64514_ _$e64514_ _probe64499_)))) (declare (not safe)) - (_loop64496_ __tmp65999 __tmp65998 __tmp65997)) + (_loop64496_ __tmp66000 __tmp65999 __tmp65998)) (if (let () (declare (not safe)) (eq? _key64476_ _k64506_)) @@ -2842,17 +2834,17 @@ _table64480_ (fx+ _probe64499_ '1) _value64477_)) - (let ((__tmp65996 + (let ((__tmp65997 (let ((_next-probe64517_ (fx+ _start64492_ _i64501_ (fx* _i64501_ _i64501_)))) (fxmodulo _next-probe64517_ _size64486_))) - (__tmp65995 (fx+ _i64501_ '1))) + (__tmp65996 (fx+ _i64501_ '1))) (declare (not safe)) (_loop64496_ + __tmp65997 __tmp65996 - __tmp65995 _deleted64503_))))))))))) (define method-specializer-table-update! (lambda (_tab64470_ @@ -2897,9 +2889,9 @@ (_i64451_ '1) (_deleted64453_ '#f)) (let ((_k64456_ (vector-ref _table64430_ _probe64449_))) - (if (let ((__tmp66014 (macro-unused-obj))) + (if (let ((__tmp66015 (macro-unused-obj))) (declare (not safe)) - (eq? _k64456_ __tmp66014)) + (eq? _k64456_ __tmp66015)) (if _deleted64453_ (begin (vector-set! _table64430_ _deleted64453_ _key64425_) @@ -2909,7 +2901,7 @@ (_method-specializer-table-update!64426_ _default64427_)) ((lambda () - (let ((__tmp66013 + (let ((__tmp66014 (fx+ (let () (declare (not safe)) (&raw-table-count _tab64424_)) @@ -2917,7 +2909,7 @@ (declare (not safe)) (&raw-table-count-set! _tab64424_ - __tmp66013))))) + __tmp66014))))) (begin (vector-set! _table64430_ _probe64449_ _key64425_) (vector-set! @@ -2926,14 +2918,14 @@ (_method-specializer-table-update!64426_ _default64427_)) ((lambda () - (let ((__tmp66011 + (let ((__tmp66012 (fx- (let () (declare (not safe)) (&raw-table-free _tab64424_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab64424_ __tmp66011)) - (let ((__tmp66012 + (&raw-table-free-set! _tab64424_ __tmp66012)) + (let ((__tmp66013 (fx+ (let () (declare (not safe)) (&raw-table-count _tab64424_)) @@ -2941,22 +2933,22 @@ (declare (not safe)) (&raw-table-count-set! _tab64424_ - __tmp66012)))))) - (if (let ((__tmp66010 (macro-deleted-obj))) + __tmp66013)))))) + (if (let ((__tmp66011 (macro-deleted-obj))) (declare (not safe)) - (eq? _k64456_ __tmp66010)) - (let ((__tmp66009 + (eq? _k64456_ __tmp66011)) + (let ((__tmp66010 (let ((_next-probe64461_ (fx+ _start64442_ _i64451_ (fx* _i64451_ _i64451_)))) (fxmodulo _next-probe64461_ _size64436_))) - (__tmp66008 (fx+ _i64451_ '1)) - (__tmp66007 + (__tmp66009 (fx+ _i64451_ '1)) + (__tmp66008 (let ((_$e64464_ _deleted64453_)) (if _$e64464_ _$e64464_ _probe64449_)))) (declare (not safe)) - (_loop64446_ __tmp66009 __tmp66008 __tmp66007)) + (_loop64446_ __tmp66010 __tmp66009 __tmp66008)) (if (let () (declare (not safe)) (eq? _key64425_ _k64456_)) @@ -2972,17 +2964,17 @@ (vector-ref _table64430_ (fx+ _probe64449_ '1))))) - (let ((__tmp66006 + (let ((__tmp66007 (let ((_next-probe64467_ (fx+ _start64442_ _i64451_ (fx* _i64451_ _i64451_)))) (fxmodulo _next-probe64467_ _size64436_))) - (__tmp66005 (fx+ _i64451_ '1))) + (__tmp66006 (fx+ _i64451_ '1))) (declare (not safe)) (_loop64446_ + __tmp66007 __tmp66006 - __tmp66005 _deleted64453_))))))))))) (define method-specializer-table-delete! (lambda (_tab64383_ _key64385_) @@ -3003,22 +2995,22 @@ '1))) (let _loop64406_ ((_probe64409_ _start64402_) (_i64411_ '1)) (let ((_k64414_ (vector-ref _table64388_ _probe64409_))) - (if (let ((__tmp66021 (macro-unused-obj))) + (if (let ((__tmp66022 (macro-unused-obj))) (declare (not safe)) - (eq? _k64414_ __tmp66021)) + (eq? _k64414_ __tmp66022)) '#!void - (if (let ((__tmp66020 (macro-deleted-obj))) + (if (let ((__tmp66021 (macro-deleted-obj))) (declare (not safe)) - (eq? _k64414_ __tmp66020)) - (let ((__tmp66019 + (eq? _k64414_ __tmp66021)) + (let ((__tmp66020 (let ((_next-probe64417_ (fx+ _start64402_ _i64411_ (fx* _i64411_ _i64411_)))) (fxmodulo _next-probe64417_ _size64396_))) - (__tmp66018 (fx+ _i64411_ '1))) + (__tmp66019 (fx+ _i64411_ '1))) (declare (not safe)) - (_loop64406_ __tmp66019 __tmp66018)) + (_loop64406_ __tmp66020 __tmp66019)) (if (let () (declare (not safe)) (eq? _key64385_ _k64414_)) @@ -3032,7 +3024,7 @@ (fx+ _probe64409_ '1) (macro-absent-obj)) ((lambda () - (let ((__tmp66017 + (let ((__tmp66018 (fx- (let () (declare (not safe)) (&raw-table-count _tab64383_)) @@ -3040,16 +3032,16 @@ (declare (not safe)) (&raw-table-count-set! _tab64383_ - __tmp66017))))) - (let ((__tmp66016 + __tmp66018))))) + (let ((__tmp66017 (let ((_next-probe64421_ (fx+ _start64402_ _i64411_ (fx* _i64411_ _i64411_)))) (fxmodulo _next-probe64421_ _size64396_))) - (__tmp66015 (fx+ _i64411_ '1))) + (__tmp66016 (fx+ _i64411_ '1))) (declare (not safe)) - (_loop64406_ __tmp66016 __tmp66015))))))))))) + (_loop64406_ __tmp66017 __tmp66016))))))))))) (define __method-specializers (let () (declare (not safe)) (make-method-specializer-table__% '#f '0))) (define __method-specializers-mx (vector '0)) @@ -3058,12 +3050,12 @@ (let () (declare (not interrupts-enabled)) (let _again64379_ () - (if (let ((__tmp66022 + (if (let ((__tmp66023 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp66022 '0)) + (##fx= __tmp66023 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) @@ -3082,12 +3074,12 @@ (let () (declare (not interrupts-enabled)) (let _again64368_ () - (if (let ((__tmp66023 + (if (let ((__tmp66024 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp66023 '0)) + (##fx= __tmp66024 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) @@ -3105,10 +3097,10 @@ _specializer64372_))) (define __class-specializer-hash-key (lambda (_klass64362_) - (let ((__tmp66024 + (let ((__tmp66025 (let () (declare (not safe)) (##type-id _klass64362_)))) (declare (not safe)) - (symbolic-hash __tmp66024)))) + (symbolic-hash __tmp66025)))) (define make-class-specializer-table__% (lambda (_size-hint64343_ _seed64345_) (let () @@ -3129,33 +3121,33 @@ (declare (not safe)) (make-class-specializer-table__% _size-hint64355_ _seed64357_)))) (define make-class-specializer-table - (lambda _g66026_ - (let ((_g66025_ (let () (declare (not safe)) (##length _g66026_)))) - (cond ((let () (declare (not safe)) (##fx= _g66025_ 0)) + (lambda _g66027_ + (let ((_g66026_ (let () (declare (not safe)) (##length _g66027_)))) + (cond ((let () (declare (not safe)) (##fx= _g66026_ 0)) (apply (lambda () (let () (declare (not safe)) (make-class-specializer-table__0))) - _g66026_)) - ((let () (declare (not safe)) (##fx= _g66025_ 1)) + _g66027_)) + ((let () (declare (not safe)) (##fx= _g66026_ 1)) (apply (lambda (_size-hint64355_) (let () (declare (not safe)) (make-class-specializer-table__1 _size-hint64355_))) - _g66026_)) - ((let () (declare (not safe)) (##fx= _g66025_ 2)) + _g66027_)) + ((let () (declare (not safe)) (##fx= _g66026_ 2)) (apply (lambda (_size-hint64359_ _seed64360_) (let () (declare (not safe)) (make-class-specializer-table__% _size-hint64359_ _seed64360_))) - _g66026_)) + _g66027_)) (else (##raise-wrong-number-of-arguments-exception make-class-specializer-table - _g66026_)))))) + _g66027_)))))) (define class-specializer-table-ref (lambda (_tab64300_ _key64301_ _default64302_) (let ((_table64304_ @@ -3177,40 +3169,40 @@ (_i64325_ '1) (_deleted64327_ '#f)) (let ((_k64330_ (vector-ref _table64304_ _probe64323_))) - (if (let ((__tmp66033 (macro-unused-obj))) + (if (let ((__tmp66034 (macro-unused-obj))) (declare (not safe)) - (eq? _k64330_ __tmp66033)) + (eq? _k64330_ __tmp66034)) _default64302_ - (if (let ((__tmp66032 (macro-deleted-obj))) + (if (let ((__tmp66033 (macro-deleted-obj))) (declare (not safe)) - (eq? _k64330_ __tmp66032)) - (let ((__tmp66031 + (eq? _k64330_ __tmp66033)) + (let ((__tmp66032 (let ((_next-probe64333_ (fx+ _start64316_ _i64325_ (fx* _i64325_ _i64325_)))) (fxmodulo _next-probe64333_ _size64310_))) - (__tmp66030 (fx+ _i64325_ '1)) - (__tmp66029 + (__tmp66031 (fx+ _i64325_ '1)) + (__tmp66030 (let ((_$e64336_ _deleted64327_)) (if _$e64336_ _$e64336_ _probe64323_)))) (declare (not safe)) - (_loop64320_ __tmp66031 __tmp66030 __tmp66029)) + (_loop64320_ __tmp66032 __tmp66031 __tmp66030)) (if (let () (declare (not safe)) (eq? _key64301_ _k64330_)) (vector-ref _table64304_ (fx+ _probe64323_ '1)) - (let ((__tmp66028 + (let ((__tmp66029 (let ((_next-probe64339_ (fx+ _start64316_ _i64325_ (fx* _i64325_ _i64325_)))) (fxmodulo _next-probe64339_ _size64310_))) - (__tmp66027 (fx+ _i64325_ '1))) + (__tmp66028 (fx+ _i64325_ '1))) (declare (not safe)) (_loop64320_ + __tmp66029 __tmp66028 - __tmp66027 _deleted64327_))))))))))) (define class-specializer-table-set! (lambda (_tab64296_ _key64297_ _value64298_) @@ -3248,9 +3240,9 @@ (_i64277_ '1) (_deleted64279_ '#f)) (let ((_k64282_ (vector-ref _table64256_ _probe64275_))) - (if (let ((__tmp66043 (macro-unused-obj))) + (if (let ((__tmp66044 (macro-unused-obj))) (declare (not safe)) - (eq? _k64282_ __tmp66043)) + (eq? _k64282_ __tmp66044)) (if _deleted64279_ (begin (vector-set! _table64256_ _deleted64279_ _key64252_) @@ -3259,7 +3251,7 @@ (fx+ _deleted64279_ '1) _value64253_) ((lambda () - (let ((__tmp66042 + (let ((__tmp66043 (fx+ (let () (declare (not safe)) (&raw-table-count _tab64251_)) @@ -3267,7 +3259,7 @@ (declare (not safe)) (&raw-table-count-set! _tab64251_ - __tmp66042))))) + __tmp66043))))) (begin (vector-set! _table64256_ _probe64275_ _key64252_) (vector-set! @@ -3275,14 +3267,14 @@ (fx+ _probe64275_ '1) _value64253_) ((lambda () - (let ((__tmp66040 + (let ((__tmp66041 (fx- (let () (declare (not safe)) (&raw-table-free _tab64251_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab64251_ __tmp66040)) - (let ((__tmp66041 + (&raw-table-free-set! _tab64251_ __tmp66041)) + (let ((__tmp66042 (fx+ (let () (declare (not safe)) (&raw-table-count _tab64251_)) @@ -3290,22 +3282,22 @@ (declare (not safe)) (&raw-table-count-set! _tab64251_ - __tmp66041)))))) - (if (let ((__tmp66039 (macro-deleted-obj))) + __tmp66042)))))) + (if (let ((__tmp66040 (macro-deleted-obj))) (declare (not safe)) - (eq? _k64282_ __tmp66039)) - (let ((__tmp66038 + (eq? _k64282_ __tmp66040)) + (let ((__tmp66039 (let ((_next-probe64287_ (fx+ _start64268_ _i64277_ (fx* _i64277_ _i64277_)))) (fxmodulo _next-probe64287_ _size64262_))) - (__tmp66037 (fx+ _i64277_ '1)) - (__tmp66036 + (__tmp66038 (fx+ _i64277_ '1)) + (__tmp66037 (let ((_$e64290_ _deleted64279_)) (if _$e64290_ _$e64290_ _probe64275_)))) (declare (not safe)) - (_loop64272_ __tmp66038 __tmp66037 __tmp66036)) + (_loop64272_ __tmp66039 __tmp66038 __tmp66037)) (if (let () (declare (not safe)) (eq? _key64252_ _k64282_)) @@ -3318,17 +3310,17 @@ _table64256_ (fx+ _probe64275_ '1) _value64253_)) - (let ((__tmp66035 + (let ((__tmp66036 (let ((_next-probe64293_ (fx+ _start64268_ _i64277_ (fx* _i64277_ _i64277_)))) (fxmodulo _next-probe64293_ _size64262_))) - (__tmp66034 (fx+ _i64277_ '1))) + (__tmp66035 (fx+ _i64277_ '1))) (declare (not safe)) (_loop64272_ + __tmp66036 __tmp66035 - __tmp66034 _deleted64279_))))))))))) (define class-specializer-table-update! (lambda (_tab64246_ @@ -3373,9 +3365,9 @@ (_i64227_ '1) (_deleted64229_ '#f)) (let ((_k64232_ (vector-ref _table64206_ _probe64225_))) - (if (let ((__tmp66053 (macro-unused-obj))) + (if (let ((__tmp66054 (macro-unused-obj))) (declare (not safe)) - (eq? _k64232_ __tmp66053)) + (eq? _k64232_ __tmp66054)) (if _deleted64229_ (begin (vector-set! _table64206_ _deleted64229_ _key64201_) @@ -3385,7 +3377,7 @@ (_class-specializer-table-update!64202_ _default64203_)) ((lambda () - (let ((__tmp66052 + (let ((__tmp66053 (fx+ (let () (declare (not safe)) (&raw-table-count _tab64200_)) @@ -3393,7 +3385,7 @@ (declare (not safe)) (&raw-table-count-set! _tab64200_ - __tmp66052))))) + __tmp66053))))) (begin (vector-set! _table64206_ _probe64225_ _key64201_) (vector-set! @@ -3402,14 +3394,14 @@ (_class-specializer-table-update!64202_ _default64203_)) ((lambda () - (let ((__tmp66050 + (let ((__tmp66051 (fx- (let () (declare (not safe)) (&raw-table-free _tab64200_)) '1))) (declare (not safe)) - (&raw-table-free-set! _tab64200_ __tmp66050)) - (let ((__tmp66051 + (&raw-table-free-set! _tab64200_ __tmp66051)) + (let ((__tmp66052 (fx+ (let () (declare (not safe)) (&raw-table-count _tab64200_)) @@ -3417,22 +3409,22 @@ (declare (not safe)) (&raw-table-count-set! _tab64200_ - __tmp66051)))))) - (if (let ((__tmp66049 (macro-deleted-obj))) + __tmp66052)))))) + (if (let ((__tmp66050 (macro-deleted-obj))) (declare (not safe)) - (eq? _k64232_ __tmp66049)) - (let ((__tmp66048 + (eq? _k64232_ __tmp66050)) + (let ((__tmp66049 (let ((_next-probe64237_ (fx+ _start64218_ _i64227_ (fx* _i64227_ _i64227_)))) (fxmodulo _next-probe64237_ _size64212_))) - (__tmp66047 (fx+ _i64227_ '1)) - (__tmp66046 + (__tmp66048 (fx+ _i64227_ '1)) + (__tmp66047 (let ((_$e64240_ _deleted64229_)) (if _$e64240_ _$e64240_ _probe64225_)))) (declare (not safe)) - (_loop64222_ __tmp66048 __tmp66047 __tmp66046)) + (_loop64222_ __tmp66049 __tmp66048 __tmp66047)) (if (let () (declare (not safe)) (eq? _key64201_ _k64232_)) @@ -3448,17 +3440,17 @@ (vector-ref _table64206_ (fx+ _probe64225_ '1))))) - (let ((__tmp66045 + (let ((__tmp66046 (let ((_next-probe64243_ (fx+ _start64218_ _i64227_ (fx* _i64227_ _i64227_)))) (fxmodulo _next-probe64243_ _size64212_))) - (__tmp66044 (fx+ _i64227_ '1))) + (__tmp66045 (fx+ _i64227_ '1))) (declare (not safe)) (_loop64222_ + __tmp66046 __tmp66045 - __tmp66044 _deleted64229_))))))))))) (define class-specializer-table-delete! (lambda (_tab64159_ _key64161_) @@ -3479,22 +3471,22 @@ '1))) (let _loop64182_ ((_probe64185_ _start64178_) (_i64187_ '1)) (let ((_k64190_ (vector-ref _table64164_ _probe64185_))) - (if (let ((__tmp66060 (macro-unused-obj))) + (if (let ((__tmp66061 (macro-unused-obj))) (declare (not safe)) - (eq? _k64190_ __tmp66060)) + (eq? _k64190_ __tmp66061)) '#!void - (if (let ((__tmp66059 (macro-deleted-obj))) + (if (let ((__tmp66060 (macro-deleted-obj))) (declare (not safe)) - (eq? _k64190_ __tmp66059)) - (let ((__tmp66058 + (eq? _k64190_ __tmp66060)) + (let ((__tmp66059 (let ((_next-probe64193_ (fx+ _start64178_ _i64187_ (fx* _i64187_ _i64187_)))) (fxmodulo _next-probe64193_ _size64172_))) - (__tmp66057 (fx+ _i64187_ '1))) + (__tmp66058 (fx+ _i64187_ '1))) (declare (not safe)) - (_loop64182_ __tmp66058 __tmp66057)) + (_loop64182_ __tmp66059 __tmp66058)) (if (let () (declare (not safe)) (eq? _key64161_ _k64190_)) @@ -3508,7 +3500,7 @@ (fx+ _probe64185_ '1) (macro-absent-obj)) ((lambda () - (let ((__tmp66056 + (let ((__tmp66057 (fx- (let () (declare (not safe)) (&raw-table-count _tab64159_)) @@ -3516,16 +3508,16 @@ (declare (not safe)) (&raw-table-count-set! _tab64159_ - __tmp66056))))) - (let ((__tmp66055 + __tmp66057))))) + (let ((__tmp66056 (let ((_next-probe64197_ (fx+ _start64178_ _i64187_ (fx* _i64187_ _i64187_)))) (fxmodulo _next-probe64197_ _size64172_))) - (__tmp66054 (fx+ _i64187_ '1))) + (__tmp66055 (fx+ _i64187_ '1))) (declare (not safe)) - (_loop64182_ __tmp66055 __tmp66054))))))))))) + (_loop64182_ __tmp66056 __tmp66055))))))))))) (define __class-specializers-mx (vector '0)) (define __class-specializers (let () (declare (not safe)) (make-class-specializer-table__% '#f '0))) @@ -3552,12 +3544,12 @@ (let () (declare (not interrupts-enabled)) (let _again64146_ () - (if (let ((__tmp66061 + (if (let ((__tmp66062 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp66061 '0)) + (##fx= __tmp66062 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) @@ -3578,12 +3570,12 @@ (let () (declare (not interrupts-enabled)) (let _again64138_ () - (if (let ((__tmp66062 + (if (let ((__tmp66063 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp66062 '0)) + (##fx= __tmp66063 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) @@ -3629,21 +3621,21 @@ _proc64121_)))))))) (define __specialize-class (lambda (_klass64064_) - (if (let ((__tmp66066 + (if (let ((__tmp66067 (let () (declare (not safe)) (##structure-instance-of? _klass64064_ 'gerbil#class::t)))) (declare (not safe)) - (not __tmp66066)) + (not __tmp66067)) (if (let () (declare (not safe)) (##type? _klass64064_)) - (let ((__tmp66065 + (let ((__tmp66066 (let () (declare (not safe)) (__shadow-class _klass64064_)))) (declare (not safe)) - (__specialize-class __tmp66065)) + (__specialize-class __tmp66066)) (let () (declare (not safe)) (error '"bad class; cannot specialize" _klass64064_))) @@ -3661,7 +3653,7 @@ (error '"Missing method" _klass64064_ 'specialize-class)))) - (if (let ((__tmp66064 + (if (let ((__tmp66065 (let () (declare (not safe)) (##unchecked-structure-ref @@ -3670,7 +3662,7 @@ class::t '#f)))) (declare (not safe)) - (find class-type-metaclass? __tmp66064)) + (find class-type-metaclass? __tmp66065)) (let () (declare (not safe)) (error '"cannot specialize class that extends metaclass without a metaclass" @@ -3700,7 +3692,7 @@ (if _xmethod-table6409264094_ (let* ((_xmethod-table64097_ _xmethod-table6409264094_) - (__tmp66063 + (__tmp66064 (lambda (_g6409864101_ _g6409964103_) (let () @@ -3713,7 +3705,7 @@ (declare (not safe)) (raw-table-for-each _xmethod-table64097_ - __tmp66063)) + __tmp66064)) '#f)) (let () (declare (not safe)) @@ -3765,7 +3757,7 @@ (error '"Missing method" _klass64060_ 'seal-class!)))) - (if (let ((__tmp66067 + (if (let ((__tmp66068 (let () (declare (not safe)) (##unchecked-structure-ref @@ -3774,7 +3766,7 @@ class::t '#f)))) (declare (not safe)) - (find class-type-metaclass? __tmp66067)) + (find class-type-metaclass? __tmp66068)) (let () (declare (not safe)) (error '"cannot seal class that extends metaclass without a metaclass" @@ -3806,16 +3798,16 @@ (_else6402864042_ (lambda () '#f)) (_K6403064048_ (lambda (_rest64045_ _klass64046_) - (if (let ((__tmp66069 + (if (let ((__tmp66070 (let () (declare (not safe)) (##type-id _subklass64015_))) - (__tmp66068 + (__tmp66069 (let () (declare (not safe)) (##type-id _klass64046_)))) (declare (not safe)) - (eq? __tmp66069 __tmp66068)) + (eq? __tmp66070 __tmp66069)) (let () (declare (not safe)) (mixin-find-method @@ -3843,10 +3835,10 @@ (let () (declare (not safe)) (_else6402864042_)))))))) - (let ((__tmp66070 + (let ((__tmp66071 (let () (declare (not safe)) (class-of _obj64016_)))) (declare (not safe)) - (_find-next-method64019_ __tmp66070))))) + (_find-next-method64019_ __tmp66071))))) (define call-next-method (lambda (_subklass64005_ _obj64006_ _id64007_ . _args64008_) (let ((_$e64010_ @@ -3883,12 +3875,12 @@ (lambda (_type63914_) (letrec ((_shadow-type-id63916_ (lambda (_type63993_) - (let ((__tmp66071 + (let ((__tmp66072 (let () (declare (not safe)) (##type-name _type63993_)))) (declare (not safe)) - (make-symbol__1 __tmp66071 '"::t")))) + (make-symbol__1 __tmp66072 '"::t")))) (_shadow-type-name63917_ (lambda (_type63991_) (let () (declare (not safe)) (##type-name _type63991_)))) @@ -3898,37 +3890,37 @@ (if (let () (declare (not safe)) (pair? _precedence-list63984_)) - (let ((__tmp66072 + (let ((__tmp66073 (car _precedence-list63984_))) (declare (not safe)) - (cons __tmp66072 '())) + (cons __tmp66073 '())) '())) (_klass63988_ - (let ((__tmp66080 + (let ((__tmp66081 (let () (declare (not safe)) (_shadow-type-id63916_ _type63983_))) - (__tmp66079 + (__tmp66080 (let () (declare (not safe)) (##type-name _type63983_))) - (__tmp66073 - (let ((__tmp66078 + (__tmp66074 + (let ((__tmp66079 (let () (declare (not safe)) (cons 'struct: '#t))) - (__tmp66074 - (let ((__tmp66077 + (__tmp66075 + (let ((__tmp66078 (let () (declare (not safe)) (cons 'system: '#t))) - (__tmp66075 + (__tmp66076 (if (let () (declare (not safe)) (type-extensible? _type63983_)) '() - (let ((__tmp66076 + (let ((__tmp66077 (let () (declare (not safe)) @@ -3936,48 +3928,48 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#t)))) (declare (not safe)) - (cons __tmp66076 '()))))) + (cons __tmp66077 '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66077 __tmp66075)))) + (cons __tmp66078 __tmp66076)))) (declare (not safe)) - (cons __tmp66078 __tmp66074)))) + (cons __tmp66079 __tmp66075)))) (declare (not safe)) (make-class-type + __tmp66081 __tmp66080 - __tmp66079 _super63986_ '() - __tmp66073 + __tmp66074 '#f)))) - (let ((__tmp66081 + (let ((__tmp66082 (let () (declare (not safe)) (##type-id _type63983_)))) (declare (not safe)) (symbolic-table-set! __shadow-classes - __tmp66081 + __tmp66082 _klass63988_)) _klass63988_)))) (let () (declare (not interrupts-enabled)) (let _again63922_ () - (if (let ((__tmp66082 + (if (let ((__tmp66083 (let () (declare (not safe)) (##vector-cas! __shadow-classes-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp66082 '0)) + (##fx= __tmp66083 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) (let () (declare (not safe)) (_again63922_)))))) (let ((_$e63926_ - (let ((__tmp66083 + (let ((__tmp66084 (let () (declare (not safe)) (##type-id _type63914_)))) (declare (not safe)) - (symbolic-table-ref __shadow-classes __tmp66083 '#f)))) + (symbolic-table-ref __shadow-classes __tmp66084 '#f)))) (if _$e63926_ ((lambda (_klass63929_) (let () @@ -4013,18 +4005,18 @@ (_K6394463971_ (lambda (_rest63961_ _type63962_) (let ((_$e63964_ - (let ((__tmp66086 + (let ((__tmp66087 (let () (declare (not safe)) (##type-id _type63962_)))) (declare (not safe)) (symbolic-table-ref __shadow-classes - __tmp66086 + __tmp66087 '#f)))) (if _$e63964_ ((lambda (_klass63967_) - (let ((__tmp66088 + (let ((__tmp66089 (let () (declare (not safe)) (cons _klass63967_ @@ -4032,7 +4024,7 @@ (declare (not safe)) (_loop63936_ _rest63961_ - __tmp66088))) + __tmp66089))) _$e63964_) (let* ((_klass63969_ (let () @@ -4040,7 +4032,7 @@ (_make-shadow-class63918_ _type63962_ _precedence-list63939_))) - (__tmp66087 + (__tmp66088 (let () (declare (not safe)) (cons _klass63969_ @@ -4048,7 +4040,7 @@ (declare (not safe)) (_loop63936_ _rest63961_ - __tmp66087))))))) + __tmp66088))))))) (if (let () (declare (not safe)) (##pair? _rest6394063948_)) @@ -4067,16 +4059,16 @@ (let () (declare (not safe)) (_else6394263958_))))) - (let ((__tmp66085 + (let ((__tmp66086 (let () (declare (not safe)) (##type-super _super63933_))) - (__tmp66084 + (__tmp66085 (let () (declare (not safe)) (cons _super63933_ _hierarchy63934_)))) (declare (not safe)) - (_loop63931_ __tmp66085 __tmp66084))))))))) + (_loop63931_ __tmp66086 __tmp66085))))))))) (define class-of (lambda (_obj63902_) (declare (not interrupts-enabled)) diff --git a/src/bootstrap/gerbil/runtime/mop~1.scm b/src/bootstrap/gerbil/runtime/mop~1.scm index ed6aca9be..1dffe677e 100644 --- a/src/bootstrap/gerbil/runtime/mop~1.scm +++ b/src/bootstrap/gerbil/runtime/mop~1.scm @@ -11,72 +11,72 @@ ___stx6573265733_)))) (let ((___kont6573565736_ (lambda (_L62757_ _L62759_) - (let ((__tmp66095 (gx#datum->syntax '#f '##fx=)) - (__tmp66089 - (let ((__tmp66091 - (let ((__tmp66094 + (let ((__tmp66096 (gx#datum->syntax '#f '##fx=)) + (__tmp66090 + (let ((__tmp66092 + (let ((__tmp66095 (gx#datum->syntax '#f '##fxand)) - (__tmp66092 - (let ((__tmp66093 + (__tmp66093 + (let ((__tmp66094 (let () (declare (not safe)) (cons _L62757_ '())))) (declare (not safe)) - (cons _L62759_ __tmp66093)))) + (cons _L62759_ __tmp66094)))) (declare (not safe)) - (cons __tmp66094 __tmp66092))) - (__tmp66090 + (cons __tmp66095 __tmp66093))) + (__tmp66091 (let () (declare (not safe)) (cons _L62757_ '())))) (declare (not safe)) - (cons __tmp66091 __tmp66090)))) + (cons __tmp66092 __tmp66091)))) (declare (not safe)) - (cons __tmp66095 __tmp66089)))) + (cons __tmp66096 __tmp66090)))) (___kont6573765738_ (lambda (_L62701_ _L62703_) - (let ((__tmp66108 (gx#datum->syntax '#f 'let)) - (__tmp66096 - (let ((__tmp66106 - (let ((__tmp66107 + (let ((__tmp66109 (gx#datum->syntax '#f 'let)) + (__tmp66097 + (let ((__tmp66107 + (let ((__tmp66108 (let () (declare (not safe)) (cons _L62701_ '())))) (declare (not safe)) - (cons _L62701_ __tmp66107))) - (__tmp66097 - (let ((__tmp66098 - (let ((__tmp66105 + (cons _L62701_ __tmp66108))) + (__tmp66098 + (let ((__tmp66099 + (let ((__tmp66106 (gx#datum->syntax '#f '##fx=)) - (__tmp66099 - (let ((__tmp66101 - (let ((__tmp66104 + (__tmp66100 + (let ((__tmp66102 + (let ((__tmp66105 (gx#datum->syntax '#f '##fxand)) - (__tmp66102 - (let ((__tmp66103 + (__tmp66103 + (let ((__tmp66104 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L62701_ '())))) (declare (not safe)) - (cons _L62703_ __tmp66103)))) + (cons _L62703_ __tmp66104)))) (declare (not safe)) - (cons __tmp66104 __tmp66102))) + (cons __tmp66105 __tmp66103))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp66100 + (__tmp66101 (let () (declare (not safe)) (cons _L62701_ '())))) (declare (not safe)) - (cons __tmp66101 __tmp66100)))) + (cons __tmp66102 __tmp66101)))) (declare (not safe)) - (cons __tmp66105 __tmp66099)))) + (cons __tmp66106 __tmp66100)))) (declare (not safe)) - (cons __tmp66098 '())))) + (cons __tmp66099 '())))) (declare (not safe)) - (cons __tmp66106 __tmp66097)))) + (cons __tmp66107 __tmp66098)))) (declare (not safe)) - (cons __tmp66108 __tmp66096))))) + (cons __tmp66109 __tmp66097))))) (let ((___match6575965760_ (lambda (_e6264162727_ _hd6264062731_ @@ -151,70 +151,70 @@ ___stx6578265783_)))) (let ((___kont6578565786_ (lambda (_L62908_ _L62910_) - (let ((__tmp66115 (gx#datum->syntax '#f '##fx=)) - (__tmp66109 - (let ((__tmp66111 - (let ((__tmp66114 + (let ((__tmp66116 (gx#datum->syntax '#f '##fx=)) + (__tmp66110 + (let ((__tmp66112 + (let ((__tmp66115 (gx#datum->syntax '#f '##fxand)) - (__tmp66112 - (let ((__tmp66113 + (__tmp66113 + (let ((__tmp66114 (let () (declare (not safe)) (cons _L62908_ '())))) (declare (not safe)) - (cons _L62910_ __tmp66113)))) + (cons _L62910_ __tmp66114)))) (declare (not safe)) - (cons __tmp66114 __tmp66112))) - (__tmp66110 + (cons __tmp66115 __tmp66113))) + (__tmp66111 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons __tmp66111 __tmp66110)))) + (cons __tmp66112 __tmp66111)))) (declare (not safe)) - (cons __tmp66115 __tmp66109)))) + (cons __tmp66116 __tmp66110)))) (___kont6578765788_ (lambda (_L62853_ _L62855_) - (let ((__tmp66128 (gx#datum->syntax '#f 'let)) - (__tmp66116 - (let ((__tmp66126 - (let ((__tmp66127 + (let ((__tmp66129 (gx#datum->syntax '#f 'let)) + (__tmp66117 + (let ((__tmp66127 + (let ((__tmp66128 (let () (declare (not safe)) (cons _L62853_ '())))) (declare (not safe)) - (cons _L62853_ __tmp66127))) - (__tmp66117 - (let ((__tmp66118 - (let ((__tmp66125 + (cons _L62853_ __tmp66128))) + (__tmp66118 + (let ((__tmp66119 + (let ((__tmp66126 (gx#datum->syntax '#f '##fx=)) - (__tmp66119 - (let ((__tmp66121 - (let ((__tmp66124 + (__tmp66120 + (let ((__tmp66122 + (let ((__tmp66125 (gx#datum->syntax '#f '##fxand)) - (__tmp66122 - (let ((__tmp66123 + (__tmp66123 + (let ((__tmp66124 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L62853_ '())))) (declare (not safe)) - (cons _L62855_ __tmp66123)))) + (cons _L62855_ __tmp66124)))) (declare (not safe)) - (cons __tmp66124 __tmp66122))) + (cons __tmp66125 __tmp66123))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp66120 + (__tmp66121 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons __tmp66121 __tmp66120)))) + (cons __tmp66122 __tmp66121)))) (declare (not safe)) - (cons __tmp66125 __tmp66119)))) + (cons __tmp66126 __tmp66120)))) (declare (not safe)) - (cons __tmp66118 '())))) + (cons __tmp66119 '())))) (declare (not safe)) - (cons __tmp66126 __tmp66117)))) + (cons __tmp66127 __tmp66118)))) (declare (not safe)) - (cons __tmp66128 __tmp66116))))) + (cons __tmp66129 __tmp66117))))) (let ((___match6580965810_ (lambda (_e6279362878_ _hd6279262882_ @@ -390,434 +390,434 @@ ((lambda (_L63150_) (let () (let () - (let ((__tmp66261 + (let ((__tmp66262 (gx#datum->syntax '#f 'begin)) - (__tmp66129 - (let ((__tmp66231 + (__tmp66130 + (let ((__tmp66232 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp66260 (gx#datum->syntax '#f 'def)) - (__tmp66232 - (let ((__tmp66233 - (let ((__tmp66234 - (let ((__tmp66259 + (let ((__tmp66261 (gx#datum->syntax '#f 'def)) + (__tmp66233 + (let ((__tmp66234 + (let ((__tmp66235 + (let ((__tmp66260 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp66235 - (let ((__tmp66254 + (__tmp66236 + (let ((__tmp66255 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp66258 + (let ((__tmp66259 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp66255 - (let ((__tmp66256 - (let ((__tmp66257 + (__tmp66256 + (let ((__tmp66257 + (let ((__tmp66258 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) - (cons _L63006_ __tmp66257)))) + (cons _L63006_ __tmp66258)))) (declare (not safe)) - (cons _L63039_ __tmp66256)))) + (cons _L63039_ __tmp66257)))) (declare (not safe)) - (cons __tmp66258 __tmp66255))) - (__tmp66236 - (let ((__tmp66237 - (let ((__tmp66253 + (cons __tmp66259 __tmp66256))) + (__tmp66237 + (let ((__tmp66238 + (let ((__tmp66254 (gx#datum->syntax '#f 'lambda)) - (__tmp66238 - (let ((__tmp66251 - (let ((__tmp66252 + (__tmp66239 + (let ((__tmp66252 + (let ((__tmp66253 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp66252 '()))) - (__tmp66239 - (let ((__tmp66240 - (let ((__tmp66250 + (cons __tmp66253 '()))) + (__tmp66240 + (let ((__tmp66241 + (let ((__tmp66251 (gx#datum->syntax '#f '##structure-ref)) - (__tmp66241 - (let ((__tmp66249 + (__tmp66242 + (let ((__tmp66250 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass)) - (__tmp66242 - (let ((__tmp66243 - (let ((__tmp66248 + (__tmp66243 + (let ((__tmp66244 + (let ((__tmp66249 (gx#datum->syntax '#f 'class::t)) - (__tmp66244 - (let ((__tmp66245 - (let ((__tmp66247 + (__tmp66245 + (let ((__tmp66246 + (let ((__tmp66248 (gx#datum->syntax '#f 'quote)) - (__tmp66246 + (__tmp66247 (let () (declare (not safe)) (cons _L63006_ '())))) (declare (not safe)) - (cons __tmp66247 - __tmp66246)))) + (cons __tmp66248 + __tmp66247)))) (declare (not safe)) - (cons __tmp66245 '())))) + (cons __tmp66246 '())))) (declare (not safe)) - (cons __tmp66248 __tmp66244)))) + (cons __tmp66249 __tmp66245)))) (declare (not safe)) - (cons _L63004_ __tmp66243)))) + (cons _L63004_ __tmp66244)))) (declare (not safe)) - (cons __tmp66249 __tmp66242)))) + (cons __tmp66250 __tmp66243)))) (declare (not safe)) - (cons __tmp66250 __tmp66241)))) + (cons __tmp66251 __tmp66242)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66240 '())))) + (cons __tmp66241 '())))) (declare (not safe)) - (cons __tmp66251 __tmp66239)))) + (cons __tmp66252 __tmp66240)))) (declare (not safe)) - (cons __tmp66253 __tmp66238)))) + (cons __tmp66254 __tmp66239)))) (declare (not safe)) - (cons __tmp66237 '())))) + (cons __tmp66238 '())))) (declare (not safe)) - (cons __tmp66254 __tmp66236)))) + (cons __tmp66255 __tmp66237)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66259 - __tmp66235)))) + (cons __tmp66260 + __tmp66236)))) (declare (not safe)) - (cons __tmp66234 '())))) + (cons __tmp66235 '())))) (declare (not safe)) - (cons _L63066_ __tmp66233)))) + (cons _L63066_ __tmp66234)))) (declare (not safe)) - (cons __tmp66260 __tmp66232))) - (__tmp66130 - (let ((__tmp66201 - (let ((__tmp66230 + (cons __tmp66261 __tmp66233))) + (__tmp66131 + (let ((__tmp66202 + (let ((__tmp66231 (gx#datum->syntax '#f 'def)) - (__tmp66202 - (let ((__tmp66203 - (let ((__tmp66204 - (let ((__tmp66229 + (__tmp66203 + (let ((__tmp66204 + (let ((__tmp66205 + (let ((__tmp66230 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin-annotation)) - (__tmp66205 - (let ((__tmp66224 - (let ((__tmp66228 + (__tmp66206 + (let ((__tmp66225 + (let ((__tmp66229 (gx#datum->syntax '#f '@mop.accessor)) - (__tmp66225 - (let ((__tmp66226 - (let ((__tmp66227 + (__tmp66226 + (let ((__tmp66227 + (let ((__tmp66228 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L63006_ __tmp66227)))) + (cons _L63006_ __tmp66228)))) (declare (not safe)) - (cons _L63039_ __tmp66226)))) + (cons _L63039_ __tmp66227)))) (declare (not safe)) - (cons __tmp66228 __tmp66225))) - (__tmp66206 - (let ((__tmp66207 - (let ((__tmp66223 + (cons __tmp66229 __tmp66226))) + (__tmp66207 + (let ((__tmp66208 + (let ((__tmp66224 (gx#datum->syntax '#f 'lambda)) - (__tmp66208 - (let ((__tmp66221 - (let ((__tmp66222 + (__tmp66209 + (let ((__tmp66222 + (let ((__tmp66223 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp66222 '()))) - (__tmp66209 - (let ((__tmp66210 - (let ((__tmp66220 + (cons __tmp66223 '()))) + (__tmp66210 + (let ((__tmp66211 + (let ((__tmp66221 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##unchecked-structure-ref)) - (__tmp66211 - (let ((__tmp66219 (gx#datum->syntax '#f 'klass)) - (__tmp66212 - (let ((__tmp66213 - (let ((__tmp66218 + (__tmp66212 + (let ((__tmp66220 (gx#datum->syntax '#f 'klass)) + (__tmp66213 + (let ((__tmp66214 + (let ((__tmp66219 (gx#datum->syntax '#f 'class::t)) - (__tmp66214 - (let ((__tmp66215 - (let ((__tmp66217 + (__tmp66215 + (let ((__tmp66216 + (let ((__tmp66218 (gx#datum->syntax '#f 'quote)) - (__tmp66216 + (__tmp66217 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L63006_ '())))) (declare (not safe)) - (cons __tmp66217 __tmp66216)))) + (cons __tmp66218 __tmp66217)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66215 '())))) + (cons __tmp66216 '())))) (declare (not safe)) - (cons __tmp66218 __tmp66214)))) + (cons __tmp66219 __tmp66215)))) (declare (not safe)) - (cons _L63004_ __tmp66213)))) + (cons _L63004_ __tmp66214)))) (declare (not safe)) - (cons __tmp66219 __tmp66212)))) + (cons __tmp66220 __tmp66213)))) (declare (not safe)) - (cons __tmp66220 __tmp66211)))) + (cons __tmp66221 __tmp66212)))) (declare (not safe)) - (cons __tmp66210 '())))) + (cons __tmp66211 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66221 __tmp66209)))) + (cons __tmp66222 __tmp66210)))) (declare (not safe)) - (cons __tmp66223 __tmp66208)))) + (cons __tmp66224 __tmp66209)))) (declare (not safe)) - (cons __tmp66207 '())))) + (cons __tmp66208 '())))) (declare (not safe)) - (cons __tmp66224 __tmp66206)))) + (cons __tmp66225 __tmp66207)))) (declare (not safe)) - (cons __tmp66229 __tmp66205)))) + (cons __tmp66230 __tmp66206)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66204 '())))) + (cons __tmp66205 '())))) (declare (not safe)) - (cons _L63094_ __tmp66203)))) + (cons _L63094_ __tmp66204)))) (declare (not safe)) - (cons __tmp66230 __tmp66202))) - (__tmp66131 - (let ((__tmp66167 - (let ((__tmp66200 + (cons __tmp66231 __tmp66203))) + (__tmp66132 + (let ((__tmp66168 + (let ((__tmp66201 (gx#datum->syntax '#f 'def)) - (__tmp66168 - (let ((__tmp66169 - (let ((__tmp66170 + (__tmp66169 + (let ((__tmp66170 + (let ((__tmp66171 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp66199 + (let ((__tmp66200 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp66171 - (let ((__tmp66194 - (let ((__tmp66198 + (__tmp66172 + (let ((__tmp66195 + (let ((__tmp66199 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp66195 - (let ((__tmp66196 - (let ((__tmp66197 + (__tmp66196 + (let ((__tmp66197 + (let ((__tmp66198 (let () (declare (not safe)) (cons '#t '())))) (declare (not safe)) (cons _L63006_ - __tmp66197)))) + __tmp66198)))) (declare (not safe)) - (cons _L63039_ __tmp66196)))) + (cons _L63039_ __tmp66197)))) (declare (not safe)) - (cons __tmp66198 __tmp66195))) - (__tmp66172 - (let ((__tmp66173 - (let ((__tmp66193 + (cons __tmp66199 __tmp66196))) + (__tmp66173 + (let ((__tmp66174 + (let ((__tmp66194 (gx#datum->syntax '#f 'lambda)) - (__tmp66174 - (let ((__tmp66189 - (let ((__tmp66192 + (__tmp66175 + (let ((__tmp66190 + (let ((__tmp66193 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass)) - (__tmp66190 - (let ((__tmp66191 (gx#datum->syntax '#f 'val))) + (__tmp66191 + (let ((__tmp66192 (gx#datum->syntax '#f 'val))) (declare (not safe)) - (cons __tmp66191 '())))) + (cons __tmp66192 '())))) (declare (not safe)) - (cons __tmp66192 __tmp66190))) - (__tmp66175 - (let ((__tmp66176 - (let ((__tmp66188 + (cons __tmp66193 __tmp66191))) + (__tmp66176 + (let ((__tmp66177 + (let ((__tmp66189 (gx#datum->syntax '#f '##structure-set!)) - (__tmp66177 - (let ((__tmp66187 + (__tmp66178 + (let ((__tmp66188 (gx#datum->syntax '#f 'klass)) - (__tmp66178 - (let ((__tmp66186 + (__tmp66179 + (let ((__tmp66187 (gx#datum->syntax '#f 'val)) - (__tmp66179 - (let ((__tmp66180 - (let ((__tmp66185 + (__tmp66180 + (let ((__tmp66181 + (let ((__tmp66186 (gx#datum->syntax '#f 'class::t)) - (__tmp66181 - (let ((__tmp66182 + (__tmp66182 + (let ((__tmp66183 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp66184 (gx#datum->syntax '#f 'quote)) - (__tmp66183 + (let ((__tmp66185 (gx#datum->syntax '#f 'quote)) + (__tmp66184 (let () (declare (not safe)) (cons _L63006_ '())))) (declare (not safe)) - (cons __tmp66184 __tmp66183)))) + (cons __tmp66185 __tmp66184)))) (declare (not safe)) - (cons __tmp66182 '())))) + (cons __tmp66183 '())))) (declare (not safe)) - (cons __tmp66185 __tmp66181)))) + (cons __tmp66186 __tmp66182)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L63004_ __tmp66180)))) + (cons _L63004_ __tmp66181)))) (declare (not safe)) - (cons __tmp66186 __tmp66179)))) + (cons __tmp66187 __tmp66180)))) (declare (not safe)) - (cons __tmp66187 __tmp66178)))) + (cons __tmp66188 __tmp66179)))) (declare (not safe)) - (cons __tmp66188 __tmp66177)))) + (cons __tmp66189 __tmp66178)))) (declare (not safe)) - (cons __tmp66176 '())))) + (cons __tmp66177 '())))) (declare (not safe)) - (cons __tmp66189 __tmp66175)))) + (cons __tmp66190 __tmp66176)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66193 __tmp66174)))) + (cons __tmp66194 __tmp66175)))) (declare (not safe)) - (cons __tmp66173 '())))) + (cons __tmp66174 '())))) (declare (not safe)) - (cons __tmp66194 __tmp66172)))) + (cons __tmp66195 __tmp66173)))) (declare (not safe)) - (cons __tmp66199 __tmp66171)))) + (cons __tmp66200 __tmp66172)))) (declare (not safe)) - (cons __tmp66170 '())))) + (cons __tmp66171 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L63122_ - __tmp66169)))) + __tmp66170)))) (declare (not safe)) - (cons __tmp66200 __tmp66168))) - (__tmp66132 - (let ((__tmp66133 - (let ((__tmp66166 + (cons __tmp66201 __tmp66169))) + (__tmp66133 + (let ((__tmp66134 + (let ((__tmp66167 (gx#datum->syntax '#f 'def)) - (__tmp66134 - (let ((__tmp66135 + (__tmp66135 + (let ((__tmp66136 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp66136 - (let ((__tmp66165 + (let ((__tmp66137 + (let ((__tmp66166 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp66137 - (let ((__tmp66160 - (let ((__tmp66164 + (__tmp66138 + (let ((__tmp66161 + (let ((__tmp66165 (gx#datum->syntax '#f '@mop.mutator)) - (__tmp66161 - (let ((__tmp66162 - (let ((__tmp66163 + (__tmp66162 + (let ((__tmp66163 + (let ((__tmp66164 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L63006_ __tmp66163)))) + (cons _L63006_ __tmp66164)))) (declare (not safe)) - (cons _L63039_ __tmp66162)))) + (cons _L63039_ __tmp66163)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66164 __tmp66161))) - (__tmp66138 - (let ((__tmp66139 - (let ((__tmp66159 + (cons __tmp66165 __tmp66162))) + (__tmp66139 + (let ((__tmp66140 + (let ((__tmp66160 (gx#datum->syntax '#f 'lambda)) - (__tmp66140 - (let ((__tmp66155 + (__tmp66141 + (let ((__tmp66156 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp66158 (gx#datum->syntax '#f 'klass)) - (__tmp66156 - (let ((__tmp66157 + (let ((__tmp66159 (gx#datum->syntax '#f 'klass)) + (__tmp66157 + (let ((__tmp66158 (gx#datum->syntax '#f 'val))) (declare (not safe)) - (cons __tmp66157 '())))) + (cons __tmp66158 '())))) (declare (not safe)) - (cons __tmp66158 __tmp66156))) - (__tmp66141 - (let ((__tmp66142 - (let ((__tmp66154 + (cons __tmp66159 __tmp66157))) + (__tmp66142 + (let ((__tmp66143 + (let ((__tmp66155 (gx#datum->syntax '#f '##unchecked-structure-set!)) - (__tmp66143 - (let ((__tmp66153 + (__tmp66144 + (let ((__tmp66154 (gx#datum->syntax '#f 'klass)) - (__tmp66144 - (let ((__tmp66152 + (__tmp66145 + (let ((__tmp66153 (gx#datum->syntax '#f 'val)) - (__tmp66145 - (let ((__tmp66146 - (let ((__tmp66151 + (__tmp66146 + (let ((__tmp66147 + (let ((__tmp66152 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'class::t)) - (__tmp66147 - (let ((__tmp66148 - (let ((__tmp66150 + (__tmp66148 + (let ((__tmp66149 + (let ((__tmp66151 (gx#datum->syntax '#f 'quote)) - (__tmp66149 + (__tmp66150 (let () (declare (not safe)) (cons _L63006_ '())))) (declare (not safe)) - (cons __tmp66150 __tmp66149)))) + (cons __tmp66151 __tmp66150)))) (declare (not safe)) - (cons __tmp66148 '())))) + (cons __tmp66149 '())))) (declare (not safe)) - (cons __tmp66151 __tmp66147)))) + (cons __tmp66152 __tmp66148)))) (declare (not safe)) - (cons _L63004_ __tmp66146)))) + (cons _L63004_ __tmp66147)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66152 - __tmp66145)))) + (cons __tmp66153 + __tmp66146)))) (declare (not safe)) - (cons __tmp66153 __tmp66144)))) + (cons __tmp66154 __tmp66145)))) (declare (not safe)) - (cons __tmp66154 __tmp66143)))) + (cons __tmp66155 __tmp66144)))) (declare (not safe)) - (cons __tmp66142 '())))) + (cons __tmp66143 '())))) (declare (not safe)) - (cons __tmp66155 __tmp66141)))) + (cons __tmp66156 __tmp66142)))) (declare (not safe)) - (cons __tmp66159 __tmp66140)))) + (cons __tmp66160 __tmp66141)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66139 '())))) + (cons __tmp66140 '())))) (declare (not safe)) - (cons __tmp66160 __tmp66138)))) + (cons __tmp66161 __tmp66139)))) (declare (not safe)) - (cons __tmp66165 __tmp66137)))) + (cons __tmp66166 __tmp66138)))) (declare (not safe)) - (cons __tmp66136 '())))) + (cons __tmp66137 '())))) (declare (not safe)) - (cons _L63150_ __tmp66135)))) + (cons _L63150_ __tmp66136)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66166 - __tmp66134)))) + (cons __tmp66167 + __tmp66135)))) (declare (not safe)) - (cons __tmp66133 '())))) + (cons __tmp66134 '())))) (declare (not safe)) - (cons __tmp66167 __tmp66132)))) + (cons __tmp66168 __tmp66133)))) (declare (not safe)) - (cons __tmp66201 __tmp66131)))) + (cons __tmp66202 __tmp66132)))) (declare (not safe)) - (cons __tmp66231 __tmp66130)))) + (cons __tmp66232 __tmp66131)))) (declare (not safe)) - (cons __tmp66261 __tmp66129))))) + (cons __tmp66262 __tmp66130))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g6313663147_)))) (_g6313463165_ @@ -875,28 +875,28 @@ (declare (not safe)) (##cdr _e6319963229_)))) (if (gx#stx-pair/null? _tl6319763236_) - (let ((_g66262_ + (let ((_g66263_ (gx#syntax-split-splice _tl6319763236_ '0))) (begin - (let ((_g66263_ + (let ((_g66264_ (let () (declare (not safe)) - (if (##values? _g66262_) - (##vector-length _g66262_) + (if (##values? _g66263_) + (##vector-length _g66263_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g66263_ 2))) + (##fx= _g66264_ 2))) (error "Context expects 2 values" - _g66263_))) + _g66264_))) (let ((_target6320063239_ (let () (declare (not safe)) - (##vector-ref _g66262_ 0))) + (##vector-ref _g66263_ 0))) (_tl6320263242_ (let () (declare (not safe)) - (##vector-ref _g66262_ 1)))) + (##vector-ref _g66263_ 1)))) (if (gx#stx-null? _tl6320263242_) (letrec ((_loop6320363245_ (lambda (_hd6320163249_ @@ -952,39 +952,39 @@ (let ((_field6320963287_ (reverse _field6320763252_)) (_slot6321063290_ (reverse _slot6320863254_))) ((lambda (_L63293_ _L63295_) - (let ((__tmp66271 (gx#datum->syntax '#f 'begin)) - (__tmp66264 + (let ((__tmp66272 (gx#datum->syntax '#f 'begin)) + (__tmp66265 (begin (gx#syntax-check-splice-targets _L63293_ _L63295_) - (let ((__tmp66265 + (let ((__tmp66266 (lambda (_g6331063314_ _g6331163317_ _g6331263319_) - (let ((__tmp66266 - (let ((__tmp66270 + (let ((__tmp66267 + (let ((__tmp66271 (gx#datum->syntax '#f 'defrefset)) - (__tmp66267 - (let ((__tmp66268 - (let ((__tmp66269 + (__tmp66268 + (let ((__tmp66269 + (let ((__tmp66270 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _g6331063314_ '())))) (declare (not safe)) - (cons _g6331163317_ __tmp66269)))) + (cons _g6331163317_ __tmp66270)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66268 '())))) + (cons __tmp66269 '())))) (declare (not safe)) - (cons __tmp66270 __tmp66267)))) + (cons __tmp66271 __tmp66268)))) (declare (not safe)) - (cons __tmp66266 _g6331263319_))))) + (cons __tmp66267 _g6331263319_))))) (declare (not safe)) - (foldr2 __tmp66265 '() _L63293_ _L63295_))))) + (foldr2 __tmp66266 '() _L63293_ _L63295_))))) (declare (not safe)) - (cons __tmp66271 __tmp66264))) + (cons __tmp66272 __tmp66265))) _field6320963287_ _slot6321063290_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1064,153 +1064,97 @@ (let () (declare (not safe)) (##cdr _e6335163404_)))) (if (gx#stx-null? _tl6334963411_) ((lambda (_L63414_ _L63416_ _L63417_ _L63418_) - (let ((__tmp66318 (gx#datum->syntax '#f 'if)) - (__tmp66272 - (let ((__tmp66315 - (let ((__tmp66317 - (gx#datum->syntax '#f 'object?)) - (__tmp66316 - (let () + (let ((__tmp66300 (gx#datum->syntax '#f 'let)) + (__tmp66273 + (let ((__tmp66294 + (let ((__tmp66299 + (gx#datum->syntax '#f 'klass)) + (__tmp66295 + (let ((__tmp66296 + (let ((__tmp66298 + (gx#datum->syntax + '#f + 'class-of)) + (__tmp66297 + (let () + (declare + (not safe)) + (cons _L63418_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp66298 + __tmp66297)))) (declare (not safe)) - (cons _L63418_ '())))) + (cons __tmp66296 '())))) (declare (not safe)) - (cons __tmp66317 __tmp66316))) - (__tmp66273 - (let ((__tmp66278 - (let ((__tmp66314 - (gx#datum->syntax '#f 'let)) - (__tmp66279 - (let ((__tmp66308 - (let ((__tmp66313 + (cons __tmp66299 __tmp66295))) + (__tmp66274 + (let ((__tmp66275 + (let ((__tmp66293 + (gx#datum->syntax + '#f + 'cond)) + (__tmp66276 + (let ((__tmp66284 + (let ((__tmp66288 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'klass)) - (__tmp66309 - (let ((__tmp66310 - (let ((__tmp66312 - (gx#datum->syntax '#f 'object-type)) - (__tmp66311 + (let ((__tmp66292 + (gx#datum->syntax '#f 'class-slot-offset)) + (__tmp66289 + (let ((__tmp66291 + (gx#datum->syntax '#f 'klass)) + (__tmp66290 (let () (declare (not safe)) - (cons _L63418_ '())))) + (cons _L63417_ '())))) (declare (not safe)) - (cons __tmp66312 __tmp66311)))) + (cons __tmp66291 __tmp66290)))) (declare (not safe)) - (cons __tmp66310 '())))) + (cons __tmp66292 __tmp66289))) + (__tmp66285 + (let ((__tmp66287 (gx#datum->syntax '#f '=>)) + (__tmp66286 + (let () + (declare (not safe)) + (cons _L63416_ '())))) + (declare (not safe)) + (cons __tmp66287 __tmp66286)))) (declare (not safe)) - (cons __tmp66313 __tmp66309))) - (__tmp66280 - (let ((__tmp66281 - (let ((__tmp66307 (gx#datum->syntax '#f 'cond)) - (__tmp66282 - (let ((__tmp66290 - (let ((__tmp66294 - (let ((__tmp66306 - (gx#datum->syntax - '#f - 'and)) - (__tmp66295 - (let ((__tmp66302 - (let ((__tmp66305 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'class-type?)) - (__tmp66303 - (let ((__tmp66304 (gx#datum->syntax '#f 'klass))) - (declare (not safe)) - (cons __tmp66304 '())))) - (declare (not safe)) - (cons __tmp66305 __tmp66303))) - (__tmp66296 - (let ((__tmp66297 - (let ((__tmp66301 - (gx#datum->syntax '#f 'class-slot-offset)) - (__tmp66298 - (let ((__tmp66300 - (gx#datum->syntax '#f 'klass)) - (__tmp66299 - (let () - (declare (not safe)) - (cons _L63417_ '())))) - (declare (not safe)) - (cons __tmp66300 __tmp66299)))) - (declare (not safe)) - (cons __tmp66301 __tmp66298)))) - (declare (not safe)) - (cons __tmp66297 '())))) - (declare (not safe)) - (cons __tmp66302 __tmp66296)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp66306 __tmp66295))) - (__tmp66291 - (let ((__tmp66293 - (gx#datum->syntax - '#f - '=>)) - (__tmp66292 + (cons __tmp66288 __tmp66285))) + (__tmp66277 + (let ((__tmp66278 + (let ((__tmp66283 (gx#datum->syntax '#f 'else)) + (__tmp66279 + (let ((__tmp66280 + (let ((__tmp66281 + (let ((__tmp66282 (let () (declare (not safe)) - (cons _L63416_ '())))) + (cons _L63417_ '())))) (declare (not safe)) - (cons __tmp66293 __tmp66292)))) + (cons _L63418_ __tmp66282)))) (declare (not safe)) - (cons __tmp66294 __tmp66291))) - (__tmp66283 - (let ((__tmp66284 - (let ((__tmp66289 - (gx#datum->syntax - '#f - 'else)) - (__tmp66285 - (let ((__tmp66286 - (let ((__tmp66287 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp66288 - (let () - (declare (not safe)) - (cons _L63417_ '())))) - (declare (not safe)) - (cons _L63418_ __tmp66288)))) - (declare (not safe)) - (cons _L63414_ __tmp66287)))) - (declare (not safe)) - (cons __tmp66286 '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp66289 __tmp66285)))) - (declare (not safe)) - (cons __tmp66284 '())))) + (cons _L63414_ __tmp66281)))) (declare (not safe)) - (cons __tmp66290 __tmp66283)))) + (cons __tmp66280 '())))) (declare (not safe)) - (cons __tmp66307 __tmp66282)))) + (cons __tmp66283 __tmp66279)))) (declare (not safe)) - (cons __tmp66281 '())))) + (cons __tmp66278 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66308 - __tmp66280)))) + (cons __tmp66284 + __tmp66277)))) (declare (not safe)) - (cons __tmp66314 __tmp66279))) - (__tmp66274 - (let ((__tmp66275 - (let ((__tmp66276 - (let ((__tmp66277 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L63417_ '())))) - (declare (not safe)) - (cons _L63418_ __tmp66277)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _L63414_ - __tmp66276)))) - (declare (not safe)) - (cons __tmp66275 '())))) + (cons __tmp66293 __tmp66276)))) (declare (not safe)) - (cons __tmp66278 __tmp66274)))) + (cons __tmp66275 '())))) (declare (not safe)) - (cons __tmp66315 __tmp66273)))) + (cons __tmp66294 __tmp66274)))) (declare (not safe)) - (cons __tmp66318 __tmp66272))) + (cons __tmp66300 __tmp66273))) _hd6335063408_ _hd6334763398_ _hd6334463388_ @@ -1245,28 +1189,28 @@ (declare (not safe)) (##cdr _e6345463484_)))) (if (gx#stx-pair/null? _tl6345263491_) - (let ((_g66319_ + (let ((_g66301_ (gx#syntax-split-splice _tl6345263491_ '0))) (begin - (let ((_g66320_ + (let ((_g66302_ (let () (declare (not safe)) - (if (##values? _g66319_) - (##vector-length _g66319_) + (if (##values? _g66301_) + (##vector-length _g66301_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g66320_ 2))) + (##fx= _g66302_ 2))) (error "Context expects 2 values" - _g66320_))) + _g66302_))) (let ((_target6345563494_ (let () (declare (not safe)) - (##vector-ref _g66319_ 0))) + (##vector-ref _g66301_ 0))) (_tl6345763497_ (let () (declare (not safe)) - (##vector-ref _g66319_ 1)))) + (##vector-ref _g66301_ 1)))) (if (gx#stx-null? _tl6345763497_) (letrec ((_loop6345863500_ (lambda (_hd6345663504_ @@ -1321,52 +1265,52 @@ (let ((_name6346463542_ (reverse _name6346263507_)) (_t6346563545_ (reverse _t6346363509_))) ((lambda (_L63548_ _L63550_) - (let ((__tmp66332 (gx#datum->syntax '#f 'begin)) - (__tmp66321 + (let ((__tmp66314 (gx#datum->syntax '#f 'begin)) + (__tmp66303 (begin (gx#syntax-check-splice-targets _L63548_ _L63550_) - (let ((__tmp66322 + (let ((__tmp66304 (lambda (_g6356563569_ _g6356663572_ _g6356763574_) - (let ((__tmp66323 - (let ((__tmp66331 + (let ((__tmp66305 + (let ((__tmp66313 (gx#datum->syntax '#f 'vector-set!)) - (__tmp66324 - (let ((__tmp66330 + (__tmp66306 + (let ((__tmp66312 (gx#datum->syntax '#f '__subtype-id)) - (__tmp66325 - (let ((__tmp66326 + (__tmp66307 + (let ((__tmp66308 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp66327 - (let ((__tmp66329 + (let ((__tmp66309 + (let ((__tmp66311 (gx#datum->syntax '#f 'quote)) - (__tmp66328 + (__tmp66310 (let () (declare (not safe)) (cons _g6356563569_ '())))) (declare (not safe)) - (cons __tmp66329 __tmp66328)))) + (cons __tmp66311 __tmp66310)))) (declare (not safe)) - (cons __tmp66327 '())))) + (cons __tmp66309 '())))) (declare (not safe)) - (cons _g6356663572_ __tmp66326)))) + (cons _g6356663572_ __tmp66308)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66330 - __tmp66325)))) + (cons __tmp66312 + __tmp66307)))) (declare (not safe)) - (cons __tmp66331 __tmp66324)))) + (cons __tmp66313 __tmp66306)))) (declare (not safe)) - (cons __tmp66323 _g6356763574_))))) + (cons __tmp66305 _g6356763574_))))) (declare (not safe)) - (foldr2 __tmp66322 '() _L63548_ _L63550_))))) + (foldr2 __tmp66304 '() _L63548_ _L63550_))))) (declare (not safe)) - (cons __tmp66332 __tmp66321))) + (cons __tmp66314 __tmp66303))) _name6346463542_ _t6346563545_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1433,26 +1377,26 @@ (##cdr _e6360263654_)))) (if (gx#stx-pair/null? _hd6360163658_) - (let ((_g66333_ + (let ((_g66315_ (gx#syntax-split-splice _hd6360163658_ '0))) (begin - (let ((_g66334_ + (let ((_g66316_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g66333_) - (##vector-length _g66333_) + (if (##values? _g66315_) + (##vector-length _g66315_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g66334_ 2))) - (error "Context expects 2 values" _g66334_))) + (if (not (let () (declare (not safe)) (##fx= _g66316_ 2))) + (error "Context expects 2 values" _g66316_))) (let ((_target6360363664_ - (let () (declare (not safe)) (##vector-ref _g66333_ 0))) + (let () (declare (not safe)) (##vector-ref _g66315_ 0))) (_tl6360563667_ (let () (declare (not safe)) - (##vector-ref _g66333_ 1)))) + (##vector-ref _g66315_ 1)))) (if (gx#stx-null? _tl6360563667_) (letrec ((_loop6360663670_ (lambda (_hd6360463674_ _super6361063677_) @@ -1479,63 +1423,63 @@ ((lambda (_L63694_ _L63696_ _L63697_) - (let ((__tmp66358 + (let ((__tmp66340 (gx#datum->syntax '#f 'def)) - (__tmp66335 - (let ((__tmp66336 - (let ((__tmp66337 + (__tmp66317 + (let ((__tmp66318 + (let ((__tmp66319 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp66357 + (let ((__tmp66339 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp66338 - (let ((__tmp66351 - (let ((__tmp66356 + (__tmp66320 + (let ((__tmp66333 + (let ((__tmp66338 (gx#datum->syntax '#f '@mop.system)) - (__tmp66352 - (let ((__tmp66353 - (let ((__tmp66354 - (let ((__tmp66355 + (__tmp66334 + (let ((__tmp66335 + (let ((__tmp66336 + (let ((__tmp66337 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g6372163724_ _g6372263727_) (let () (declare (not safe)) (cons _g6372163724_ _g6372263727_))))) (declare (not safe)) - (foldr1 __tmp66355 '() _L63694_)))) + (foldr1 __tmp66337 '() _L63694_)))) (declare (not safe)) - (cons __tmp66354 '())))) + (cons __tmp66336 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L63696_ - __tmp66353)))) + __tmp66335)))) (declare (not safe)) - (cons __tmp66356 __tmp66352))) - (__tmp66339 - (let ((__tmp66340 - (let ((__tmp66350 + (cons __tmp66338 __tmp66334))) + (__tmp66321 + (let ((__tmp66322 + (let ((__tmp66332 (gx#datum->syntax '#f '__make-system-class)) - (__tmp66341 - (let ((__tmp66347 - (let ((__tmp66349 + (__tmp66323 + (let ((__tmp66329 + (let ((__tmp66331 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp66348 + (__tmp66330 (let () (declare (not safe)) (cons _L63696_ '())))) (declare (not safe)) - (cons __tmp66349 __tmp66348))) - (__tmp66342 - (let ((__tmp66343 - (let ((__tmp66346 (gx#datum->syntax '#f '@list)) - (__tmp66344 - (let ((__tmp66345 + (cons __tmp66331 __tmp66330))) + (__tmp66324 + (let ((__tmp66325 + (let ((__tmp66328 (gx#datum->syntax '#f '@list)) + (__tmp66326 + (let ((__tmp66327 (lambda (_g6371963730_ _g6372063733_) (let () @@ -1543,30 +1487,30 @@ (cons _g6371963730_ _g6372063733_))))) (declare (not safe)) - (foldr1 __tmp66345 '() _L63694_)))) + (foldr1 __tmp66327 '() _L63694_)))) (declare (not safe)) - (cons __tmp66346 __tmp66344)))) + (cons __tmp66328 __tmp66326)))) (declare (not safe)) - (cons __tmp66343 '())))) + (cons __tmp66325 '())))) (declare (not safe)) - (cons __tmp66347 __tmp66342)))) + (cons __tmp66329 __tmp66324)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66350 - __tmp66341)))) + (cons __tmp66332 + __tmp66323)))) (declare (not safe)) - (cons __tmp66340 '())))) + (cons __tmp66322 '())))) (declare (not safe)) - (cons __tmp66351 __tmp66339)))) + (cons __tmp66333 __tmp66321)))) (declare (not safe)) - (cons __tmp66357 __tmp66338)))) + (cons __tmp66339 __tmp66320)))) (declare (not safe)) - (cons __tmp66337 '())))) + (cons __tmp66319 '())))) (declare (not safe)) - (cons _L63697_ __tmp66336)))) + (cons _L63697_ __tmp66318)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66358 __tmp66335))) + (cons __tmp66340 __tmp66317))) _super6361163690_ _hd6359863648_ _hd6359563638_) @@ -1623,38 +1567,38 @@ (declare (not safe)) (##cdr _e6375863803_)))) (if (gx#stx-pair/null? _hd6375763807_) - (let ((_g66359_ + (let ((_g66341_ (gx#syntax-split-splice _hd6375763807_ '0))) (begin - (let ((_g66360_ + (let ((_g66342_ (let () (declare (not safe)) (if (##values? - _g66359_) + _g66341_) (##vector-length - _g66359_) + _g66341_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g66360_ + (##fx= _g66342_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g66360_))) + (error "Context expects 2 values" _g66342_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target6375963813_ (let () (declare (not safe)) (##vector-ref - _g66359_ + _g66341_ 0))) (_tl6376163816_ (let () (declare (not safe)) (##vector-ref - _g66359_ + _g66341_ 1)))) (if (gx#stx-null? _tl6376163816_) @@ -1696,68 +1640,68 @@ ((lambda (_L63853_ _L63855_ _L63856_) - (let ((__tmp66376 + (let ((__tmp66358 (gx#datum->syntax '#f 'def)) - (__tmp66361 - (let ((__tmp66362 - (let ((__tmp66363 + (__tmp66343 + (let ((__tmp66344 + (let ((__tmp66345 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp66375 + (let ((__tmp66357 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp66364 - (let ((__tmp66369 - (let ((__tmp66374 + (__tmp66346 + (let ((__tmp66351 + (let ((__tmp66356 (gx#datum->syntax '#f '@mop.system)) - (__tmp66370 - (let ((__tmp66371 - (let ((__tmp66372 - (let ((__tmp66373 + (__tmp66352 + (let ((__tmp66353 + (let ((__tmp66354 + (let ((__tmp66355 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g6387863881_ _g6387963884_) (let () (declare (not safe)) (cons _g6387863881_ _g6387963884_))))) (declare (not safe)) - (foldr1 __tmp66373 '() _L63855_)))) + (foldr1 __tmp66355 '() _L63855_)))) (declare (not safe)) - (cons __tmp66372 '())))) + (cons __tmp66354 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L63856_ - __tmp66371)))) + __tmp66353)))) (declare (not safe)) - (cons __tmp66374 __tmp66370))) - (__tmp66365 - (let ((__tmp66366 - (let ((__tmp66368 + (cons __tmp66356 __tmp66352))) + (__tmp66347 + (let ((__tmp66348 + (let ((__tmp66350 (gx#datum->syntax '#f '__shadow-class)) - (__tmp66367 + (__tmp66349 (let () (declare (not safe)) (cons _L63853_ '())))) (declare (not safe)) - (cons __tmp66368 - __tmp66367)))) + (cons __tmp66350 + __tmp66349)))) (declare (not safe)) - (cons __tmp66366 '())))) + (cons __tmp66348 '())))) (declare (not safe)) - (cons __tmp66369 __tmp66365)))) + (cons __tmp66351 __tmp66347)))) (declare (not safe)) - (cons __tmp66375 __tmp66364)))) + (cons __tmp66357 __tmp66346)))) (declare (not safe)) - (cons __tmp66363 '())))) + (cons __tmp66345 '())))) (declare (not safe)) - (cons _L63856_ __tmp66362)))) + (cons _L63856_ __tmp66344)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp66376 __tmp66361))) + (cons __tmp66358 __tmp66343))) _hd6376963847_ _super6376763839_ _hd6375463797_) diff --git a/src/bootstrap/gerbil/runtime/repl~0.scm b/src/bootstrap/gerbil/runtime/repl~0.scm index 8c04bc259..d7101eeec 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 1710833424) + (define gerbil/runtime/repl::timestamp 1710943497) (define replx (lambda () - (letrec ((_write-reason79861_ - (lambda (_exn79867_) - (lambda (_cont79869_ _port79870_) + (letrec ((_write-reason79843_ + (lambda (_exn79849_) + (lambda (_cont79851_ _port79852_) (let () (declare (not safe)) (##display-exception-in-context - _exn79867_ - _cont79869_ - _port79870_)) + _exn79849_ + _cont79851_ + _port79852_)) '#f)))) (with-exception-handler - (lambda (_exn79863_) - (let ((__tmp79871 - (lambda (_cont79865_) - (let ((__tmp79872 + (lambda (_exn79845_) + (let ((__tmp79853 + (lambda (_cont79847_) + (let ((__tmp79854 (let () (declare (not safe)) - (_write-reason79861_ _exn79863_)))) + (_write-reason79843_ _exn79845_)))) (declare (not safe)) - (##repl-within _cont79865_ __tmp79872 _exn79863_))))) + (##repl-within _cont79847_ __tmp79854 _exn79845_))))) (declare (not safe)) - (##continuation-capture __tmp79871))) + (##continuation-capture __tmp79853))) ##repl))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~0.scm b/src/bootstrap/gerbil/runtime/syntax~0.scm index f3c4cfb0d..a37fd85be 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 1710833424) + (define gerbil/runtime/syntax::timestamp 1710943497) (begin (declare (not safe)) (define SyntaxError::t @@ -13,7 +13,7 @@ '#f)) (define SyntaxError? (make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _$args76532_ (apply make-instance SyntaxError::t _$args76532_))) + (lambda _$args76514_ (apply make-instance SyntaxError::t _$args76514_))) (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 (_self76435_ _port76436_) - (letrec ((_location76438_ + (lambda (_self76417_ _port76418_) + (letrec ((_location76420_ (lambda () - (let _lp76492_ ((_rest76494_ + (let _lp76474_ ((_rest76476_ (##unchecked-structure-ref - _self76435_ + _self76417_ '2 SyntaxError::t '#f))) - (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_))))))) + (let* ((_rest7647776485_ _rest76476_) + (_else7647976493_ (lambda () '#f)) + (_K7648176502_ + (lambda (_rest76496_ _hd76497_) + (let ((_$e76499_ (__AST-source _hd76497_))) + (if _$e76499_ + _$e76499_ + (_lp76474_ _rest76496_)))))) + (if (##pair? _rest7647776485_) + (let ((_hd7648276505_ (##car _rest7647776485_)) + (_tl7648376507_ (##cdr _rest7647776485_))) + (let* ((_hd76510_ _hd7648276505_) + (_rest76512_ _tl7648376507_)) + (_K7648176502_ _rest76512_ _hd76510_))) + (_else7647976493_))))))) (call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_$e76441_ (_location76438_))) - (if _$e76441_ - ((lambda (_where76444_) - (##display-locat _where76444_ '#t (current-output-port))) - _$e76441_) + (let ((_$e76423_ (_location76420_))) + (if _$e76423_ + ((lambda (_where76426_) + (##display-locat _where76426_ '#t (current-output-port))) + _$e76423_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_$e76446_ + (let ((_$e76428_ (##unchecked-structure-ref - _self76435_ + _self76417_ '3 SyntaxError::t '#f))) - (if _$e76446_ - ((lambda (_where76449_) + (if _$e76428_ + ((lambda (_where76431_) (displayln '" at " - _where76449_ + _where76431_ '": " (##unchecked-structure-ref - _self76435_ + _self76417_ '1 SyntaxError::t '#f))) - _$e76446_) + _$e76428_) (displayln '": " (##unchecked-structure-ref - _self76435_ + _self76417_ '1 SyntaxError::t '#f)))) - (let* ((_g7645076458_ + (let* ((_g7643276440_ (##unchecked-structure-ref - _self76435_ + _self76417_ '2 SyntaxError::t '#f)) - (_else7645276466_ (lambda () '#!void)) - (_K7645476479_ - (lambda (_rest76469_ _stx76470_) + (_else7643476448_ (lambda () '#!void)) + (_K7643676461_ + (lambda (_rest76451_ _stx76452_) (display '"... form: ") - (__pp-syntax _stx76470_) + (__pp-syntax _stx76452_) (for-each - (lambda (_detail76472_) + (lambda (_detail76454_) (display '"... detail: ") - (write (__AST->datum _detail76472_)) - (let ((_$e76474_ (__AST-source _detail76472_))) - (if _$e76474_ - ((lambda (_loc76477_) + (write (__AST->datum _detail76454_)) + (let ((_$e76456_ (__AST-source _detail76454_))) + (if _$e76456_ + ((lambda (_loc76459_) (display '" at ") (##display-locat - _loc76477_ + _loc76459_ '#t (current-output-port))) - _$e76474_) + _$e76456_) '#!void)) (newline)) - _rest76469_)))) - (if (##pair? _g7645076458_) - (let ((_hd7645576482_ (##car _g7645076458_)) - (_tl7645676484_ (##cdr _g7645076458_))) - (let* ((_stx76487_ _hd7645576482_) - (_rest76489_ _tl7645676484_)) - (_K7645476479_ _rest76489_ _stx76487_))) + _rest76451_)))) + (if (##pair? _g7643276440_) + (let ((_hd7643776464_ (##car _g7643276440_)) + (_tl7643876466_ (##cdr _g7643276440_))) + (let* ((_stx76469_ _hd7643776464_) + (_rest76471_ _tl7643876466_)) + (_K7643676461_ _rest76471_ _stx76469_))) '#!void))) current-output-port - _port76436_)))) + _port76418_)))) (bind-method!__% SyntaxError::t 'display-exception @@ -163,58 +163,58 @@ '#f) (seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_message76306_ - _irritants76307_ - _where76308_ - _context76309_ - _marks76310_ - _phi76311_) - (let ((__obj76627 + (lambda (_message76288_ + _irritants76289_ + _where76290_ + _context76291_ + _marks76292_ + _phi76293_) + (let ((__obj76609 (##structure SyntaxError::t '#f '#f '#f '#f '#f '#f))) (##unchecked-structure-set! - __obj76627 - _message76306_ + __obj76609 + _message76288_ '1 SyntaxError::t '#f) (##unchecked-structure-set! - __obj76627 - _irritants76307_ + __obj76609 + _irritants76289_ '2 SyntaxError::t '#f) (##unchecked-structure-set! - __obj76627 - _where76308_ + __obj76609 + _where76290_ '3 SyntaxError::t '#f) (##unchecked-structure-set! - __obj76627 - _context76309_ + __obj76609 + _context76291_ '4 SyntaxError::t '#f) (##unchecked-structure-set! - __obj76627 - _marks76310_ + __obj76609 + _marks76292_ '6 SyntaxError::t '#f) (##unchecked-structure-set! - __obj76627 - _phi76311_ + __obj76609 + _phi76293_ '5 SyntaxError::t '#f) - __obj76627))) + __obj76609))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_where76301_ _message76302_ _stx76303_ . _details76304_) + (lambda (_where76283_ _message76284_ _stx76285_ . _details76286_) (raise (make-syntax-error - _message76302_ - (cons _stx76303_ _details76304_) - _where76301_ + _message76284_ + (cons _stx76285_ _details76286_) + _where76283_ '#f '#f '#f)))) @@ -228,7 +228,7 @@ '#f)) (define AST? (make-class-predicate AST::t)) (define make-AST - (lambda _$args76298_ (apply make-instance AST::t _$args76298_))) + (lambda _$args76280_ (apply make-instance AST::t _$args76280_))) (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 (_stx76296_) - (if (##structure-instance-of? _stx76296_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx76296_ '1 AST::t '#f) - _stx76296_))) + (lambda (_stx76278_) + (if (##structure-instance-of? _stx76278_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx76278_ '1 AST::t '#f) + _stx76278_))) (define __AST-source - (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))))) + (lambda (_stx76272_) + (let _lp76274_ ((_src76276_ _stx76272_)) + (if (##structure-instance-of? _src76276_ 'gerbil#AST::t) + (_lp76274_ (##unchecked-structure-ref _src76276_ '2 AST::t '#f)) + (if (##locat? _src76276_) _src76276_ '#f))))) (define __AST - (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_))))) + (lambda (_e76264_ _src-stx76265_) + (let ((_src76267_ (__AST-source _src-stx76265_))) + (if (or (##structure-instance-of? _e76264_ 'gerbil#AST::t) + (not _src76267_)) + _e76264_ + (##structure AST::t _e76264_ _src76267_))))) (define __AST-eq? - (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_)))) + (lambda (_stx76261_ _obj76262_) (eq? (__AST-e _stx76261_) _obj76262_))) + (define __AST-pair? (lambda (_stx76259_) (pair? (__AST-e _stx76259_)))) + (define __AST-null? (lambda (_stx76257_) (null? (__AST-e _stx76257_)))) (define __AST-datum? - (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_)))) + (lambda (_stx76238_) + (let* ((_e76240_ (__AST-e _stx76238_)) (_$e76242_ (number? _e76240_))) + (if _$e76242_ + _$e76242_ + (let ((_$e76245_ (string? _e76240_))) + (if _$e76245_ + _$e76245_ + (let ((_$e76248_ (char? _e76240_))) + (if _$e76248_ + _$e76248_ + (let ((_$e76251_ (keyword? _e76240_))) + (if _$e76251_ + _$e76251_ + (let ((_$e76254_ (boolean? _e76240_))) + (if _$e76254_ + _$e76254_ + (eq? _e76240_ '#!void))))))))))))) + (define __AST-id? (lambda (_stx76236_) (symbol? (__AST-e _stx76236_)))) (define __AST-id-list?__% - (lambda (_stx76205_ _tail?76206_) - (let _lp76208_ ((_rest76210_ _stx76205_)) - (let* ((_$e76212_ _rest76210_) - (_$E7621476227_ + (lambda (_stx76187_ _tail?76188_) + (let _lp76190_ ((_rest76192_ _stx76187_)) + (let* ((_$e76194_ _rest76192_) + (_$E7619676209_ (lambda () - (let* ((_$E7621576222_ + (let* ((_$E7619776204_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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_)))))) + _$e76194_))) + (_rest76207_ _$e76194_)) + (_tail?76188_ _rest76207_))))) + (if (__AST-pair? _$e76194_) + (let* ((_$tgt7619876212_ (__AST-e _$e76194_)) + (_$hd7619976215_ (##car _$tgt7619876212_)) + (_$tl7620076218_ (##cdr _$tgt7619876212_))) + (let* ((_hd76222_ _$hd7619976215_) + (_rest76224_ _$tl7620076218_)) + (if (__AST-id? _hd76222_) (_lp76190_ _rest76224_) '#f))) + (_$E7619676209_)))))) (define __AST-id-list?__0 - (lambda (_stx76247_) - (let ((_tail?76249_ __AST-null?)) - (__AST-id-list?__% _stx76247_ _tail?76249_)))) + (lambda (_stx76229_) + (let ((_tail?76231_ __AST-null?)) + (__AST-id-list?__% _stx76229_ _tail?76231_)))) (define __AST-id-list? - (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_)) + (lambda _g76612_ + (let ((_g76611_ (##length _g76612_))) + (cond ((##fx= _g76611_ 1) + (apply (lambda (_stx76229_) (__AST-id-list?__0 _stx76229_)) + _g76612_)) + ((##fx= _g76611_ 2) + (apply (lambda (_stx76233_ _tail?76234_) + (__AST-id-list?__% _stx76233_ _tail?76234_)) + _g76612_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g76630_)))))) + _g76612_)))))) (define __AST-bind-list? - (lambda (_stx76197_) + (lambda (_stx76179_) (__AST-id-list?__% - _stx76197_ - (lambda (_e76199_) - (let ((_$e76201_ (__AST-null? _e76199_))) - (if _$e76201_ _$e76201_ (__AST-id? _e76199_))))))) + _stx76179_ + (lambda (_e76181_) + (let ((_$e76183_ (__AST-null? _e76181_))) + (if _$e76183_ _$e76183_ (__AST-id? _e76181_))))))) (define __AST-list?__% - (lambda (_stx76150_ _tail?76151_) - (let _lp76153_ ((_rest76155_ _stx76150_)) - (let* ((_$e76157_ _rest76155_) - (_$E7615976172_ + (lambda (_stx76132_ _tail?76133_) + (let _lp76135_ ((_rest76137_ _stx76132_)) + (let* ((_$e76139_ _rest76137_) + (_$E7614176154_ (lambda () - (let* ((_$E7616076167_ + (let* ((_$E7614276149_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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_)))))) + _$e76139_))) + (_rest76152_ _$e76139_)) + (_tail?76133_ _rest76152_))))) + (if (__AST-pair? _$e76139_) + (let* ((_$tgt7614376157_ (__AST-e _$e76139_)) + (_$hd7614476160_ (##car _$tgt7614376157_)) + (_$tl7614576163_ (##cdr _$tgt7614376157_))) + (let ((_rest76167_ _$tl7614576163_)) + (_lp76135_ _rest76167_))) + (_$E7614176154_)))))) (define __AST-list?__0 - (lambda (_stx76190_) - (let ((_tail?76192_ __AST-null?)) - (__AST-list?__% _stx76190_ _tail?76192_)))) + (lambda (_stx76172_) + (let ((_tail?76174_ __AST-null?)) + (__AST-list?__% _stx76172_ _tail?76174_)))) (define __AST-list? - (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_)) + (lambda _g76614_ + (let ((_g76613_ (##length _g76614_))) + (cond ((##fx= _g76613_ 1) + (apply (lambda (_stx76172_) (__AST-list?__0 _stx76172_)) + _g76614_)) + ((##fx= _g76613_ 2) + (apply (lambda (_stx76176_ _tail?76177_) + (__AST-list?__% _stx76176_ _tail?76177_)) + _g76614_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g76632_)))))) + _g76614_)))))) (define __AST->list - (lambda (_stx76115_) - (let* ((_$e76117_ _stx76115_) - (_$E7611976132_ + (lambda (_stx76097_) + (let* ((_$e76099_ _stx76097_) + (_$E7610176114_ (lambda () - (let* ((_$E7612076127_ + (let* ((_$E7610276109_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$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_))))) + _$e76099_))) + (_rest76112_ _$e76099_)) + (__AST-e _rest76112_))))) + (if (__AST-pair? _$e76099_) + (let* ((_$tgt7610376117_ (__AST-e _$e76099_)) + (_$hd7610476120_ (##car _$tgt7610376117_)) + (_$tl7610576123_ (##cdr _$tgt7610376117_))) + (let* ((_hd76127_ _$hd7610476120_) + (_rest76129_ _$tl7610576123_)) + (cons _hd76127_ (__AST->list _rest76129_)))) + (_$E7610176114_))))) (define __AST->datum - (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_)))))) + (lambda (_stx76095_) + (if (##structure-instance-of? _stx76095_ 'gerbil#AST::t) + (__AST->datum (__AST-e _stx76095_)) + (if (pair? _stx76095_) + (cons (__AST->datum (car _stx76095_)) + (__AST->datum (cdr _stx76095_))) + (if (vector? _stx76095_) + (vector-map __AST->datum _stx76095_) + (if (box? _stx76095_) + (box (__AST->datum (unbox _stx76095_))) + _stx76095_)))))) (define get-readenv - (lambda (_port76111_) + (lambda (_port76093_) (##make-readenv - _port76111_ + _port76093_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -409,83 +409,83 @@ '() '#f))) (define read-syntax__% - (lambda (_in76099_) - (let ((_e76101_ (##read-datum-or-eof (get-readenv _in76099_)))) - (if (eof-object? (__AST-e _e76101_)) (__AST-e _e76101_) _e76101_)))) + (lambda (_in76081_) + (let ((_e76083_ (##read-datum-or-eof (get-readenv _in76081_)))) + (if (eof-object? (__AST-e _e76083_)) (__AST-e _e76083_) _e76083_)))) (define read-syntax__0 (lambda () - (let ((_in76107_ (current-input-port))) (read-syntax__% _in76107_)))) + (let ((_in76089_ (current-input-port))) (read-syntax__% _in76089_)))) (define read-syntax - (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_)) + (lambda _g76616_ + (let ((_g76615_ (##length _g76616_))) + (cond ((##fx= _g76615_ 0) + (apply (lambda () (read-syntax__0)) _g76616_)) + ((##fx= _g76615_ 1) + (apply (lambda (_in76091_) (read-syntax__% _in76091_)) + _g76616_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g76634_)))))) + _g76616_)))))) (define read-syntax-from-file - (lambda (_path76094_) - (let ((_r76096_ + (lambda (_path76076_) + (let ((_r76078_ (##read-all-as-a-begin-expr-from-path - (path-normalize _path76094_) + (path-normalize _path76076_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _r76096_) - (cdr (__AST-e (vector-ref _r76096_ '1))) - (error (err-code->string _r76096_) _path76094_))))) + (if (vector? _r76078_) + (cdr (__AST-e (vector-ref _r76078_ '1))) + (error (err-code->string _r76078_) _path76076_))))) (define __wrap-syntax - (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_)))) + (lambda (_re76073_ _e76074_) + (if (eof-object? _e76074_) + _e76074_ + (##structure AST::t _e76074_ (##readenv->locat _re76073_))))) + (define __unwrap-syntax (lambda (_re76070_ _e76071_) (__AST-e _e76071_))) + (define __pp-syntax (lambda (_stx76068_) (pp (__AST->datum _stx76068_)))) (define __make-readtable (lambda () - (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) + (let ((_rt76066_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _rt76066_ '#t) + (macro-readtable-bracket-handler-set! _rt76066_ '@list) + (macro-readtable-brace-handler-set! _rt76066_ '@method) (##readtable-char-sharp-handler-set! - _rt76084_ + _rt76066_ '#\! __read-sharp-bang) - _rt76084_))) + _rt76066_))) (define __readtable-bracket-keyword-set! - (lambda (_rt76080_ _kw76081_) - (macro-readtable-bracket-handler-set! _rt76080_ _kw76081_))) + (lambda (_rt76062_ _kw76063_) + (macro-readtable-bracket-handler-set! _rt76062_ _kw76063_))) (define __readtable-brace-keyword-set! - (lambda (_rt76077_ _kw76078_) - (macro-readtable-brace-handler-set! _rt76077_ _kw76078_))) + (lambda (_rt76059_ _kw76060_) + (macro-readtable-brace-handler-set! _rt76059_ _kw76060_))) (define __read-sharp-bang - (lambda (_re76068_ _next76069_ _start-pos76070_) - (if (eq? _start-pos76070_ '0) - (let* ((_line76072_ + (lambda (_re76050_ _next76051_ _start-pos76052_) + (if (eq? _start-pos76052_ '0) + (let* ((_line76054_ (##read-line - (macro-readenv-port _re76068_) + (macro-readenv-port _re76050_) '#\newline '#f ##max-fixnum)) - (_script-line76074_ - (substring _line76072_ '1 (string-length _line76072_)))) - (macro-readenv-script-line-set! _re76068_ _script-line76074_) + (_script-line76056_ + (substring _line76054_ '1 (string-length _line76054_)))) + (macro-readenv-script-line-set! _re76050_ _script-line76056_) (##script-marker)) - (##read-sharp-bang _re76068_ _next76069_ _start-pos76070_)))) + (##read-sharp-bang _re76050_ _next76051_ _start-pos76052_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_obj76066_) - (if (source-location? _obj76066_) - (string? (##locat-container _obj76066_)) + (lambda (_obj76048_) + (if (source-location? _obj76048_) + (string? (##locat-container _obj76048_)) '#f))) (define source-location-path - (lambda (_obj76064_) - (if (##locat? _obj76064_) - (##container->path (##locat-container _obj76064_)) + (lambda (_obj76046_) + (if (##locat? _obj76046_) + (##container->path (##locat-container _obj76046_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~1.scm b/src/bootstrap/gerbil/runtime/syntax~1.scm index f42d7d57c..ff9c517fe 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]#_g76739_| + (define |[1]#_g76721_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g76747_| + (define |[1]#_g76729_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g76749_| + (define |[1]#_g76731_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g76751_| + (define |[1]#_g76733_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g76753_| + (define |[1]#_g76735_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g76762_| + (define |[1]#_g76744_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g76765_| + (define |[1]#_g76747_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g76768_| + (define |[1]#_g76750_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g76771_| + (define |[1]#_g76753_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g76774_| + (define |[1]#_g76756_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g76777_| + (define |[1]#_g76759_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g76786_| + (define |[1]#_g76768_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76789_| + (define |[1]#_g76771_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76792_| + (define |[1]#_g76774_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76795_| + (define |[1]#_g76777_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76798_| + (define |[1]#_g76780_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76801_| + (define |[1]#_g76783_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76810_| + (define |[1]#_g76792_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g76813_| + (define |[1]#_g76795_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g76816_| + (define |[1]#_g76798_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g76819_| + (define |[1]#_g76801_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g76822_| + (define |[1]#_g76804_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g76825_| + (define |[1]#_g76807_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g76834_| + (define |[1]#_g76816_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76837_| + (define |[1]#_g76819_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76840_| + (define |[1]#_g76822_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76843_| + (define |[1]#_g76825_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76846_| + (define |[1]#_g76828_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76849_| + (define |[1]#_g76831_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76851_| + (define |[1]#_g76833_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g76853_| + (define |[1]#_g76835_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g76855_| + (define |[1]#_g76837_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g76860_| + (define |[1]#_g76842_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g76863_| + (define |[1]#_g76845_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g76868_| + (define |[1]#_g76850_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76871_| + (define |[1]#_g76853_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76876_| + (define |[1]#_g76858_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g76879_| + (define |[1]#_g76861_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g76884_| + (define |[1]#_g76866_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g76887_| + (define |[1]#_g76869_| (##structure gx#syntax-quote::t '&AST-e-set! @@ -282,1165 +282,1165 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_$stx74953_) - (let* ((_g7495774981_ - (lambda (_g7495874977_) + (lambda (_$stx74935_) + (let* ((_g7493974963_ + (lambda (_g7494074959_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7495874977_))) - (_g7495675067_ - (lambda (_g7495874985_) - (if (gx#stx-pair? _g7495874985_) - (let ((_e7496374988_ (gx#syntax-e _g7495874985_))) - (let ((_hd7496274992_ + _g7494074959_))) + (_g7493875049_ + (lambda (_g7494074967_) + (if (gx#stx-pair? _g7494074967_) + (let ((_e7494574970_ (gx#syntax-e _g7494074967_))) + (let ((_hd7494474974_ (let () (declare (not safe)) - (##car _e7496374988_))) - (_tl7496174995_ + (##car _e7494574970_))) + (_tl7494374977_ (let () (declare (not safe)) - (##cdr _e7496374988_)))) - (if (gx#stx-pair? _tl7496174995_) - (let ((_e7496674998_ - (gx#syntax-e _tl7496174995_))) - (let ((_hd7496575002_ + (##cdr _e7494574970_)))) + (if (gx#stx-pair? _tl7494374977_) + (let ((_e7494874980_ + (gx#syntax-e _tl7494374977_))) + (let ((_hd7494774984_ (let () (declare (not safe)) - (##car _e7496674998_))) - (_tl7496475005_ + (##car _e7494874980_))) + (_tl7494674987_ (let () (declare (not safe)) - (##cdr _e7496674998_)))) - (if (gx#stx-pair/null? _tl7496475005_) - (let ((_g76635_ + (##cdr _e7494874980_)))) + (if (gx#stx-pair/null? _tl7494674987_) + (let ((_g76617_ (gx#syntax-split-splice - _tl7496475005_ + _tl7494674987_ '0))) (begin - (let ((_g76636_ + (let ((_g76618_ (let () (declare (not safe)) - (if (##values? _g76635_) + (if (##values? _g76617_) (##vector-length - _g76635_) + _g76617_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g76636_ 2))) + (##fx= _g76618_ 2))) (error "Context expects 2 values" - _g76636_))) - (let ((_target7496775008_ + _g76618_))) + (let ((_target7494974990_ (let () (declare (not safe)) - (##vector-ref _g76635_ 0))) - (_tl7496975011_ + (##vector-ref _g76617_ 0))) + (_tl7495174993_ (let () (declare (not safe)) - (##vector-ref _g76635_ 1)))) - (if (gx#stx-null? _tl7496975011_) - (letrec ((_loop7497075014_ - (lambda (_hd7496875018_ + (##vector-ref _g76617_ 1)))) + (if (gx#stx-null? _tl7495174993_) + (letrec ((_loop7495274996_ + (lambda (_hd7495075000_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body7497475021_) - (if (gx#stx-pair? _hd7496875018_) - (let ((_e7497175024_ (gx#syntax-e _hd7496875018_))) - (let ((_lp-hd7497275028_ + _body7495675003_) + (if (gx#stx-pair? _hd7495075000_) + (let ((_e7495375006_ (gx#syntax-e _hd7495075000_))) + (let ((_lp-hd7495475010_ (let () (declare (not safe)) - (##car _e7497175024_))) - (_lp-tl7497375031_ + (##car _e7495375006_))) + (_lp-tl7495575013_ (let () (declare (not safe)) - (##cdr _e7497175024_)))) - (_loop7497075014_ - _lp-tl7497375031_ + (##cdr _e7495375006_)))) + (_loop7495274996_ + _lp-tl7495575013_ (let () (declare (not safe)) - (cons _lp-hd7497275028_ _body7497475021_))))) - (let ((_body7497575034_ (reverse _body7497475021_))) - ((lambda (_L75038_ _L75040_) - (let ((__tmp76648 (gx#datum->syntax '#f 'let)) - (__tmp76637 - (let ((__tmp76645 - (let ((__tmp76647 + (cons _lp-hd7495475010_ _body7495675003_))))) + (let ((_body7495775016_ (reverse _body7495675003_))) + ((lambda (_L75020_ _L75022_) + (let ((__tmp76630 (gx#datum->syntax '#f 'let)) + (__tmp76619 + (let ((__tmp76627 + (let ((__tmp76629 (gx#datum->syntax '#f '$e)) - (__tmp76646 + (__tmp76628 (let () (declare (not safe)) - (cons _L75040_ '())))) + (cons _L75022_ '())))) (declare (not safe)) - (cons __tmp76647 __tmp76646))) - (__tmp76638 - (let ((__tmp76639 - (let ((__tmp76644 + (cons __tmp76629 __tmp76628))) + (__tmp76620 + (let ((__tmp76621 + (let ((__tmp76626 (gx#datum->syntax '#f 'core-ast-case%)) - (__tmp76640 - (let ((__tmp76643 + (__tmp76622 + (let ((__tmp76625 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp76641 - (let ((__tmp76642 - (lambda (_g7505875061_ _g7505975064_) + (__tmp76623 + (let ((__tmp76624 + (lambda (_g7504075043_ _g7504175046_) (let () (declare (not safe)) - (cons _g7505875061_ _g7505975064_))))) + (cons _g7504075043_ _g7504175046_))))) (declare (not safe)) - (foldr1 __tmp76642 '() _L75038_)))) + (foldr1 __tmp76624 '() _L75020_)))) (declare (not safe)) - (cons __tmp76643 __tmp76641)))) + (cons __tmp76625 __tmp76623)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76644 - __tmp76640)))) + (cons __tmp76626 + __tmp76622)))) (declare (not safe)) - (cons __tmp76639 '())))) + (cons __tmp76621 '())))) (declare (not safe)) - (cons __tmp76645 __tmp76638)))) + (cons __tmp76627 __tmp76620)))) (declare (not safe)) - (cons __tmp76648 __tmp76637))) - _body7497575034_ - _hd7496575002_)))))) + (cons __tmp76630 __tmp76619))) + _body7495775016_ + _hd7494774984_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop7497075014_ - _target7496775008_ + (_loop7495274996_ + _target7494974990_ '())) - (_g7495774981_ - _g7495874985_))))) - (_g7495774981_ _g7495874985_)))) - (_g7495774981_ _g7495874985_)))) - (_g7495774981_ _g7495874985_))))) - (_g7495675067_ _$stx74953_)))) + (_g7493974963_ + _g7494074967_))))) + (_g7493974963_ _g7494074967_)))) + (_g7493974963_ _g7494074967_)))) + (_g7493974963_ _g7494074967_))))) + (_g7493875049_ _$stx74935_)))) (define |[:0:]#core-ast-case%| - (lambda (_stx75072_) - (letrec ((_generate175075_ - (lambda (_hd75616_ _tgt75618_ _K75619_ _E75620_ _kws75621_) - (let* ((_g7562375631_ - (lambda (_g7562475627_) + (lambda (_stx75054_) + (letrec ((_generate175057_ + (lambda (_hd75598_ _tgt75600_ _K75601_ _E75602_ _kws75603_) + (let* ((_g7560575613_ + (lambda (_g7560675609_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7562475627_))) - (_g7562276058_ - (lambda (_g7562475635_) - ((lambda (_L75638_) + _g7560675609_))) + (_g7560476040_ + (lambda (_g7560675617_) + ((lambda (_L75620_) (let () - (let* ((___stx7653576536_ _hd75616_) - (_g7565275666_ + (let* ((___stx7651776518_ _hd75598_) + (_g7563475648_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx7653576536_)))) - (let ((___kont7653876539_ - (lambda (_L75880_ _L75882_) - (let* ((_g7589375901_ - (lambda (_g7589475897_) + ___stx7651776518_)))) + (let ((___kont7652076521_ + (lambda (_L75862_ _L75864_) + (let* ((_g7587575883_ + (lambda (_g7587675879_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7589475897_))) - (_g7589276050_ - (lambda (_g7589475905_) - ((lambda (_L75908_) + _g7587675879_))) + (_g7587476032_ + (lambda (_g7587675887_) + ((lambda (_L75890_) (let () - (let* ((_g7592075928_ + (let* ((_g7590275910_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7592175924_) + (lambda (_g7590375906_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7592175924_))) - (_g7591976046_ - (lambda (_g7592175932_) - ((lambda (_L75935_) + _g7590375906_))) + (_g7590176028_ + (lambda (_g7590375914_) + ((lambda (_L75917_) (let () - (let* ((_g7594875956_ - (lambda (_g7594975952_) + (let* ((_g7593075938_ + (lambda (_g7593175934_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7594975952_))) - (_g7594776042_ - (lambda (_g7594975960_) - ((lambda (_L75963_) + _g7593175934_))) + (_g7592976024_ + (lambda (_g7593175942_) + ((lambda (_L75945_) (let () - (let* ((_g7597675984_ - (lambda (_g7597775980_) + (let* ((_g7595875966_ + (lambda (_g7595975962_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7597775980_))) - (_g7597576038_ - (lambda (_g7597775988_) - ((lambda (_L75991_) + _g7595975962_))) + (_g7595776020_ + (lambda (_g7595975970_) + ((lambda (_L75973_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g7600476012_ - (lambda (_g7600576008_) + (let* ((_g7598675994_ + (lambda (_g7598775990_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7600576008_))) - (_g7600376034_ - (lambda (_g7600576016_) - ((lambda (_L76019_) + _g7598775990_))) + (_g7598576016_ + (lambda (_g7598775998_) + ((lambda (_L76001_) (let () (let () - (let ((__tmp76677 + (let ((__tmp76659 (gx#datum->syntax '#f 'if)) - (__tmp76649 - (let ((__tmp76674 - (let ((__tmp76676 + (__tmp76631 + (let ((__tmp76656 + (let ((__tmp76658 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-pair?)) - (__tmp76675 - (let () (declare (not safe)) (cons _L75638_ '())))) + (__tmp76657 + (let () (declare (not safe)) (cons _L75620_ '())))) (declare (not safe)) - (cons __tmp76676 __tmp76675))) - (__tmp76650 - (let ((__tmp76652 - (let ((__tmp76673 (gx#datum->syntax '#f 'let*)) - (__tmp76653 - (let ((__tmp76655 - (let ((__tmp76668 - (let ((__tmp76669 - (let ((__tmp76670 - (let ((__tmp76672 + (cons __tmp76658 __tmp76657))) + (__tmp76632 + (let ((__tmp76634 + (let ((__tmp76655 (gx#datum->syntax '#f 'let*)) + (__tmp76635 + (let ((__tmp76637 + (let ((__tmp76650 + (let ((__tmp76651 + (let ((__tmp76652 + (let ((__tmp76654 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp76671 - (let () (declare (not safe)) (cons _L75638_ '())))) + (__tmp76653 + (let () (declare (not safe)) (cons _L75620_ '())))) (declare (not safe)) - (cons __tmp76672 __tmp76671)))) + (cons __tmp76654 __tmp76653)))) (declare (not safe)) - (cons __tmp76670 '())))) + (cons __tmp76652 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L75908_ __tmp76669))) - (__tmp76656 - (let ((__tmp76663 - (let ((__tmp76664 - (let ((__tmp76665 + (cons _L75890_ __tmp76651))) + (__tmp76638 + (let ((__tmp76645 + (let ((__tmp76646 + (let ((__tmp76647 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp76667 (gx#datum->syntax '#f '##car)) - (__tmp76666 + (let ((__tmp76649 (gx#datum->syntax '#f '##car)) + (__tmp76648 (let () (declare (not safe)) - (cons _L75908_ '())))) + (cons _L75890_ '())))) (declare (not safe)) - (cons __tmp76667 __tmp76666)))) + (cons __tmp76649 __tmp76648)))) (declare (not safe)) - (cons __tmp76665 '())))) + (cons __tmp76647 '())))) (declare (not safe)) - (cons _L75935_ __tmp76664))) + (cons _L75917_ __tmp76646))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp76657 - (let ((__tmp76658 - (let ((__tmp76659 + (__tmp76639 + (let ((__tmp76640 + (let ((__tmp76641 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp76660 - (let ((__tmp76662 + (let ((__tmp76642 + (let ((__tmp76644 (gx#datum->syntax '#f '##cdr)) - (__tmp76661 + (__tmp76643 (let () (declare (not safe)) - (cons _L75908_ '())))) + (cons _L75890_ '())))) (declare (not safe)) - (cons __tmp76662 __tmp76661)))) + (cons __tmp76644 __tmp76643)))) (declare (not safe)) - (cons __tmp76660 '())))) + (cons __tmp76642 '())))) (declare (not safe)) - (cons _L75963_ __tmp76659)))) + (cons _L75945_ __tmp76641)))) (declare (not safe)) - (cons __tmp76658 '())))) + (cons __tmp76640 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76663 __tmp76657)))) + (cons __tmp76645 __tmp76639)))) (declare (not safe)) - (cons __tmp76668 __tmp76656))) - (__tmp76654 + (cons __tmp76650 __tmp76638))) + (__tmp76636 (let () (declare (not safe)) - (cons _L75991_ '())))) + (cons _L75973_ '())))) (declare (not safe)) - (cons __tmp76655 __tmp76654)))) + (cons __tmp76637 __tmp76636)))) (declare (not safe)) - (cons __tmp76673 __tmp76653))) - (__tmp76651 - (let () (declare (not safe)) (cons _L76019_ '())))) + (cons __tmp76655 __tmp76635))) + (__tmp76633 + (let () (declare (not safe)) (cons _L76001_ '())))) (declare (not safe)) - (cons __tmp76652 __tmp76651)))) + (cons __tmp76634 __tmp76633)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76674 - __tmp76650)))) + (cons __tmp76656 + __tmp76632)))) (declare (not safe)) - (cons __tmp76677 __tmp76649))))) - _g7600576016_)))) - (_g7600376034_ _E75620_)))) - _g7597775988_)))) + (cons __tmp76659 __tmp76631))))) + _g7598775998_)))) + (_g7598576016_ _E75602_)))) + _g7595975970_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7597576038_ - (_generate175075_ - _L75882_ - _L75935_ - (_generate175075_ - _L75880_ - _L75963_ - _K75619_ - _E75620_ - _kws75621_) - _E75620_ - _kws75621_))))) - _g7594975960_)))) - (_g7594776042_ (gx#genident '$tl))))) - _g7592175932_)))) - (_g7591976046_ (gx#genident '$hd))))) - _g7589475905_)))) + (_g7595776020_ + (_generate175057_ + _L75864_ + _L75917_ + (_generate175057_ + _L75862_ + _L75945_ + _K75601_ + _E75602_ + _kws75603_) + _E75602_ + _kws75603_))))) + _g7593175942_)))) + (_g7592976024_ (gx#genident '$tl))))) + _g7590375914_)))) + (_g7590176028_ (gx#genident '$hd))))) + _g7587675887_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7589276050_ + (_g7587476032_ (gx#genident '$tgt))))) - (___kont7654076541_ - (lambda (_L75755_) - (if (gx#underscore? _L75755_) - _K75619_ - (if (let ((__tmp76706 - (lambda (_g7576375765_) + (___kont7652276523_ + (lambda (_L75737_) + (if (gx#underscore? _L75737_) + _K75601_ + (if (let ((__tmp76688 + (lambda (_g7574575747_) (gx#bound-identifier=? - _g7576375765_ - _L75755_))) - (__tmp76705 + _g7574575747_ + _L75737_))) + (__tmp76687 (gx#syntax->list - _kws75621_))) + _kws75603_))) (declare (not safe)) - (find __tmp76706 - __tmp76705)) - (let* ((_g7576975784_ - (lambda (_g7577075780_) + (find __tmp76688 + __tmp76687)) + (let* ((_g7575175766_ + (lambda (_g7575275762_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _g7577075780_))) - (_g7576875829_ - (lambda (_g7577075788_) - (if (gx#stx-pair? _g7577075788_) - (let ((_e7577575791_ (gx#syntax-e _g7577075788_))) - (let ((_hd7577475795_ + _g7575275762_))) + (_g7575075811_ + (lambda (_g7575275770_) + (if (gx#stx-pair? _g7575275770_) + (let ((_e7575775773_ (gx#syntax-e _g7575275770_))) + (let ((_hd7575675777_ (let () (declare (not safe)) - (##car _e7577575791_))) - (_tl7577375798_ + (##car _e7575775773_))) + (_tl7575575780_ (let () (declare (not safe)) - (##cdr _e7577575791_)))) - (if (gx#stx-pair? _tl7577375798_) - (let ((_e7577875801_ - (gx#syntax-e _tl7577375798_))) - (let ((_hd7577775805_ + (##cdr _e7575775773_)))) + (if (gx#stx-pair? _tl7575575780_) + (let ((_e7576075783_ + (gx#syntax-e _tl7575575780_))) + (let ((_hd7575975787_ (let () (declare (not safe)) - (##car _e7577875801_))) - (_tl7577675808_ + (##car _e7576075783_))) + (_tl7575875790_ (let () (declare (not safe)) - (##cdr _e7577875801_)))) - (if (gx#stx-null? _tl7577675808_) - ((lambda (_L75811_ _L75813_) + (##cdr _e7576075783_)))) + (if (gx#stx-null? _tl7575875790_) + ((lambda (_L75793_ _L75795_) (let () - (let ((__tmp76704 + (let ((__tmp76686 (gx#datum->syntax '#f 'if)) - (__tmp76684 - (let ((__tmp76687 - (let ((__tmp76703 + (__tmp76666 + (let ((__tmp76669 + (let ((__tmp76685 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'and)) - (__tmp76688 - (let ((__tmp76700 - (let ((__tmp76702 + (__tmp76670 + (let ((__tmp76682 + (let ((__tmp76684 (gx#datum->syntax '#f '__AST-id?)) - (__tmp76701 + (__tmp76683 (let () (declare (not safe)) - (cons _L75638_ '())))) + (cons _L75620_ '())))) (declare (not safe)) - (cons __tmp76702 __tmp76701))) - (__tmp76689 - (let ((__tmp76690 - (let ((__tmp76699 + (cons __tmp76684 __tmp76683))) + (__tmp76671 + (let ((__tmp76672 + (let ((__tmp76681 (gx#datum->syntax '#f 'eq?)) - (__tmp76691 - (let ((__tmp76696 - (let ((__tmp76698 + (__tmp76673 + (let ((__tmp76678 + (let ((__tmp76680 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp76697 - (let () (declare (not safe)) (cons _L75638_ '())))) + (__tmp76679 + (let () (declare (not safe)) (cons _L75620_ '())))) (declare (not safe)) - (cons __tmp76698 __tmp76697))) - (__tmp76692 - (let ((__tmp76693 - (let ((__tmp76695 (gx#datum->syntax '#f 'quote)) - (__tmp76694 + (cons __tmp76680 __tmp76679))) + (__tmp76674 + (let ((__tmp76675 + (let ((__tmp76677 (gx#datum->syntax '#f 'quote)) + (__tmp76676 (let () (declare (not safe)) - (cons _L75755_ '())))) + (cons _L75737_ '())))) (declare (not safe)) - (cons __tmp76695 __tmp76694)))) + (cons __tmp76677 __tmp76676)))) (declare (not safe)) - (cons __tmp76693 '())))) + (cons __tmp76675 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76696 - __tmp76692)))) + (cons __tmp76678 + __tmp76674)))) (declare (not safe)) - (cons __tmp76699 __tmp76691)))) + (cons __tmp76681 __tmp76673)))) (declare (not safe)) - (cons __tmp76690 '())))) + (cons __tmp76672 '())))) (declare (not safe)) - (cons __tmp76700 __tmp76689)))) + (cons __tmp76682 __tmp76671)))) (declare (not safe)) - (cons __tmp76703 __tmp76688))) - (__tmp76685 - (let ((__tmp76686 + (cons __tmp76685 __tmp76670))) + (__tmp76667 + (let ((__tmp76668 (let () (declare (not safe)) - (cons _L75811_ '())))) + (cons _L75793_ '())))) (declare (not safe)) - (cons _L75813_ __tmp76686)))) + (cons _L75795_ __tmp76668)))) (declare (not safe)) - (cons __tmp76687 __tmp76685)))) + (cons __tmp76669 __tmp76667)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76704 - __tmp76684)))) - _hd7577775805_ - _hd7577475795_) - (_g7576975784_ _g7577075788_)))) - (_g7576975784_ _g7577075788_)))) - (_g7576975784_ _g7577075788_))))) - (_g7576875829_ (list _K75619_ _E75620_))) - (let* ((_g7583375841_ - (lambda (_g7583475837_) + (cons __tmp76686 + __tmp76666)))) + _hd7575975787_ + _hd7575675777_) + (_g7575175766_ _g7575275770_)))) + (_g7575175766_ _g7575275770_)))) + (_g7575175766_ _g7575275770_))))) + (_g7575075811_ (list _K75601_ _E75602_))) + (let* ((_g7581575823_ + (lambda (_g7581675819_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7583475837_))) - (_g7583275859_ - (lambda (_g7583475845_) - ((lambda (_L75848_) + _g7581675819_))) + (_g7581475841_ + (lambda (_g7581675827_) + ((lambda (_L75830_) (let () - (let ((__tmp76683 (gx#datum->syntax '#f 'let)) - (__tmp76678 - (let ((__tmp76680 - (let ((__tmp76681 - (let ((__tmp76682 + (let ((__tmp76665 (gx#datum->syntax '#f 'let)) + (__tmp76660 + (let ((__tmp76662 + (let ((__tmp76663 + (let ((__tmp76664 (let () (declare (not safe)) - (cons _L75638_ + (cons _L75620_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L75755_ - __tmp76682)))) + (cons _L75737_ + __tmp76664)))) (declare (not safe)) - (cons __tmp76681 '()))) - (__tmp76679 + (cons __tmp76663 '()))) + (__tmp76661 (let () (declare (not safe)) - (cons _L75848_ '())))) + (cons _L75830_ '())))) (declare (not safe)) - (cons __tmp76680 __tmp76679)))) + (cons __tmp76662 __tmp76661)))) (declare (not safe)) - (cons __tmp76683 __tmp76678)))) - _g7583475845_)))) - (_g7583275859_ _K75619_)))))) + (cons __tmp76665 __tmp76660)))) + _g7581675827_)))) + (_g7581475841_ _K75601_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont7654276543_ - (lambda (_L75673_) - (let* ((_g7568475699_ - (lambda (_g7568575695_) + (___kont7652476525_ + (lambda (_L75655_) + (let* ((_g7566675681_ + (lambda (_g7566775677_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7568575695_))) - (_g7568375744_ - (lambda (_g7568575703_) + _g7566775677_))) + (_g7566575726_ + (lambda (_g7566775685_) (if (gx#stx-pair? - _g7568575703_) - (let ((_e7569075706_ + _g7566775685_) + (let ((_e7567275688_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g7568575703_))) - (let ((_hd7568975710_ + (gx#syntax-e _g7566775685_))) + (let ((_hd7567175692_ (let () (declare (not safe)) - (##car _e7569075706_))) - (_tl7568875713_ + (##car _e7567275688_))) + (_tl7567075695_ (let () (declare (not safe)) - (##cdr _e7569075706_)))) - (if (gx#stx-pair? _tl7568875713_) - (let ((_e7569375716_ (gx#syntax-e _tl7568875713_))) - (let ((_hd7569275720_ + (##cdr _e7567275688_)))) + (if (gx#stx-pair? _tl7567075695_) + (let ((_e7567575698_ (gx#syntax-e _tl7567075695_))) + (let ((_hd7567475702_ (let () (declare (not safe)) - (##car _e7569375716_))) - (_tl7569175723_ + (##car _e7567575698_))) + (_tl7567375705_ (let () (declare (not safe)) - (##cdr _e7569375716_)))) - (if (gx#stx-null? _tl7569175723_) - ((lambda (_L75726_ _L75728_) + (##cdr _e7567575698_)))) + (if (gx#stx-null? _tl7567375705_) + ((lambda (_L75708_ _L75710_) (let () - (let ((__tmp76720 + (let ((__tmp76702 (gx#datum->syntax '#f 'if)) - (__tmp76707 - (let ((__tmp76710 - (let ((__tmp76719 + (__tmp76689 + (let ((__tmp76692 + (let ((__tmp76701 (gx#datum->syntax '#f 'equal?)) - (__tmp76711 - (let ((__tmp76716 + (__tmp76693 + (let ((__tmp76698 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp76718 (gx#datum->syntax '#f '__AST-e)) - (__tmp76717 + (let ((__tmp76700 (gx#datum->syntax '#f '__AST-e)) + (__tmp76699 (let () (declare (not safe)) - (cons _L75638_ '())))) + (cons _L75620_ '())))) (declare (not safe)) - (cons __tmp76718 __tmp76717))) - (__tmp76712 - (let ((__tmp76713 - (let ((__tmp76715 + (cons __tmp76700 __tmp76699))) + (__tmp76694 + (let ((__tmp76695 + (let ((__tmp76697 (gx#datum->syntax '#f 'quote)) - (__tmp76714 + (__tmp76696 (let () (declare (not safe)) - (cons _L75673_ '())))) + (cons _L75655_ '())))) (declare (not safe)) - (cons __tmp76715 __tmp76714)))) + (cons __tmp76697 __tmp76696)))) (declare (not safe)) - (cons __tmp76713 '())))) + (cons __tmp76695 '())))) (declare (not safe)) - (cons __tmp76716 __tmp76712)))) + (cons __tmp76698 __tmp76694)))) (declare (not safe)) - (cons __tmp76719 __tmp76711))) - (__tmp76708 - (let ((__tmp76709 - (let () (declare (not safe)) (cons _L75726_ '())))) + (cons __tmp76701 __tmp76693))) + (__tmp76690 + (let ((__tmp76691 + (let () (declare (not safe)) (cons _L75708_ '())))) (declare (not safe)) - (cons _L75728_ __tmp76709)))) + (cons _L75710_ __tmp76691)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76710 - __tmp76708)))) + (cons __tmp76692 + __tmp76690)))) (declare (not safe)) - (cons __tmp76720 __tmp76707)))) - _hd7569275720_ - _hd7568975710_) - (_g7568475699_ _g7568575703_)))) - (_g7568475699_ _g7568575703_)))) - (_g7568475699_ _g7568575703_))))) + (cons __tmp76702 __tmp76689)))) + _hd7567475702_ + _hd7567175692_) + (_g7566675681_ _g7566775685_)))) + (_g7566675681_ _g7566775685_)))) + (_g7566675681_ _g7566775685_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7568375744_ - (list _K75619_ _E75620_)))))) - (let ((_g7565075863_ + (_g7566575726_ + (list _K75601_ _E75602_)))))) + (let ((_g7563275845_ (lambda () - (let ((_L75755_ - ___stx7653576536_)) - (if (gx#identifier? _L75755_) - (___kont7654076541_ - _L75755_) - (___kont7654276543_ - ___stx7653576536_)))))) - (if (gx#stx-pair? ___stx7653576536_) - (let ((_e7565875870_ + (let ((_L75737_ + ___stx7651776518_)) + (if (gx#identifier? _L75737_) + (___kont7652276523_ + _L75737_) + (___kont7652476525_ + ___stx7651776518_)))))) + (if (gx#stx-pair? ___stx7651776518_) + (let ((_e7564075852_ (gx#syntax-e - ___stx7653576536_))) - (let ((_tl7565675877_ + ___stx7651776518_))) + (let ((_tl7563875859_ (let () (declare (not safe)) - (##cdr _e7565875870_))) - (_hd7565775874_ + (##cdr _e7564075852_))) + (_hd7563975856_ (let () (declare (not safe)) - (##car _e7565875870_)))) - (___kont7653876539_ - _tl7565675877_ - _hd7565775874_))) + (##car _e7564075852_)))) + (___kont7652076521_ + _tl7563875859_ + _hd7563975856_))) (let () (declare (not safe)) - (_g7565075863_)))))))) - _g7562475635_)))) - (_g7562276058_ _tgt75618_))))) - (let* ((_g7507875106_ - (lambda (_g7507975102_) + (_g7563275845_)))))))) + _g7560675617_)))) + (_g7560476040_ _tgt75600_))))) + (let* ((_g7506075088_ + (lambda (_g7506175084_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7507975102_))) - (_g7507775612_ - (lambda (_g7507975110_) - (if (gx#stx-pair? _g7507975110_) - (let ((_e7508575113_ (gx#syntax-e _g7507975110_))) - (let ((_hd7508475117_ + _g7506175084_))) + (_g7505975594_ + (lambda (_g7506175092_) + (if (gx#stx-pair? _g7506175092_) + (let ((_e7506775095_ (gx#syntax-e _g7506175092_))) + (let ((_hd7506675099_ (let () (declare (not safe)) - (##car _e7508575113_))) - (_tl7508375120_ + (##car _e7506775095_))) + (_tl7506575102_ (let () (declare (not safe)) - (##cdr _e7508575113_)))) - (if (gx#stx-pair? _tl7508375120_) - (let ((_e7508875123_ - (gx#syntax-e _tl7508375120_))) - (let ((_hd7508775127_ + (##cdr _e7506775095_)))) + (if (gx#stx-pair? _tl7506575102_) + (let ((_e7507075105_ + (gx#syntax-e _tl7506575102_))) + (let ((_hd7506975109_ (let () (declare (not safe)) - (##car _e7508875123_))) - (_tl7508675130_ + (##car _e7507075105_))) + (_tl7506875112_ (let () (declare (not safe)) - (##cdr _e7508875123_)))) - (if (gx#stx-pair? _tl7508675130_) - (let ((_e7509175133_ - (gx#syntax-e _tl7508675130_))) - (let ((_hd7509075137_ + (##cdr _e7507075105_)))) + (if (gx#stx-pair? _tl7506875112_) + (let ((_e7507375115_ + (gx#syntax-e _tl7506875112_))) + (let ((_hd7507275119_ (let () (declare (not safe)) - (##car _e7509175133_))) - (_tl7508975140_ + (##car _e7507375115_))) + (_tl7507175122_ (let () (declare (not safe)) - (##cdr _e7509175133_)))) + (##cdr _e7507375115_)))) (if (gx#stx-pair/null? - _tl7508975140_) - (let ((_g76721_ + _tl7507175122_) + (let ((_g76703_ (gx#syntax-split-splice - _tl7508975140_ + _tl7507175122_ '0))) (begin - (let ((_g76722_ + (let ((_g76704_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g76721_) - (##vector-length _g76721_) + _g76703_) + (##vector-length _g76703_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g76722_ 2))) - (error "Context expects 2 values" _g76722_))) + (if (not (let () (declare (not safe)) (##fx= _g76704_ 2))) + (error "Context expects 2 values" _g76704_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target7509275143_ + (let ((_target7507475125_ (let () (declare (not safe)) (##vector-ref - _g76721_ + _g76703_ 0))) - (_tl7509475146_ + (_tl7507675128_ (let () (declare (not safe)) (##vector-ref - _g76721_ + _g76703_ 1)))) (if (gx#stx-null? - _tl7509475146_) - (letrec ((_loop7509575149_ + _tl7507675128_) + (letrec ((_loop7507775131_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd7509375153_ _clause7509975156_) - (if (gx#stx-pair? _hd7509375153_) - (let ((_e7509675159_ - (gx#syntax-e _hd7509375153_))) - (let ((_lp-hd7509775163_ + (lambda (_hd7507575135_ _clause7508175138_) + (if (gx#stx-pair? _hd7507575135_) + (let ((_e7507875141_ + (gx#syntax-e _hd7507575135_))) + (let ((_lp-hd7507975145_ (let () (declare (not safe)) - (##car _e7509675159_))) - (_lp-tl7509875166_ + (##car _e7507875141_))) + (_lp-tl7508075148_ (let () (declare (not safe)) - (##cdr _e7509675159_)))) - (_loop7509575149_ - _lp-tl7509875166_ + (##cdr _e7507875141_)))) + (_loop7507775131_ + _lp-tl7508075148_ (let () (declare (not safe)) - (cons _lp-hd7509775163_ - _clause7509975156_))))) - (let ((_clause7510075169_ - (reverse _clause7509975156_))) - ((lambda (_L75173_ _L75175_ _L75176_) - (let _recur75198_ ((_rest75201_ - (let ((__tmp76744 + (cons _lp-hd7507975145_ + _clause7508175138_))))) + (let ((_clause7508275151_ + (reverse _clause7508175138_))) + ((lambda (_L75155_ _L75157_ _L75158_) + (let _recur75180_ ((_rest75183_ + (let ((__tmp76726 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7560375606_ _g7560475609_) + (lambda (_g7558575588_ _g7558675591_) (let () (declare (not safe)) - (cons _g7560375606_ _g7560475609_))))) + (cons _g7558575588_ _g7558675591_))))) (declare (not safe)) - (foldr1 __tmp76744 '() _L75173_)))) + (foldr1 __tmp76726 '() _L75155_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest7520375212_ _rest75201_) - (_E7520675218_ + (let* ((_rest7518575194_ _rest75183_) + (_E7518875200_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _rest7520375212_))))) - (let ((_K7520875588_ - (lambda (_rest75234_ - _hd75236_) - (let* ((_g7523875246_ - (lambda (_g7523975242_) + _rest7518575194_))))) + (let ((_K7519075570_ + (lambda (_rest75216_ + _hd75218_) + (let* ((_g7522075228_ + (lambda (_g7522175224_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7523975242_))) - (_g7523775584_ - (lambda (_g7523975250_) - ((lambda (_L75253_) + _g7522175224_))) + (_g7521975566_ + (lambda (_g7522175232_) + ((lambda (_L75235_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g7527175279_ - (lambda (_g7527275275_) + (let* ((_g7525375261_ + (lambda (_g7525475257_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7527275275_))) - (_g7527075580_ - (lambda (_g7527275283_) - ((lambda (_L75286_) + _g7525475257_))) + (_g7525275562_ + (lambda (_g7525475265_) + ((lambda (_L75268_) (let () - (let* ((_g7529975307_ - (lambda (_g7530075303_) + (let* ((_g7528175289_ + (lambda (_g7528275285_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7530075303_))) - (_g7529875576_ - (lambda (_g7530075311_) - ((lambda (_L75314_) + _g7528275285_))) + (_g7528075558_ + (lambda (_g7528275293_) + ((lambda (_L75296_) (let () - (let* ((_g7532775335_ + (let* ((_g7530975317_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g7532875331_) + (lambda (_g7531075313_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g7532875331_))) - (_g7532675357_ - (lambda (_g7532875339_) - ((lambda (_L75342_) + _g7531075313_))) + (_g7530875339_ + (lambda (_g7531075321_) + ((lambda (_L75324_) (let () (let () - (let ((__tmp76731 + (let ((__tmp76713 (gx#datum->syntax '#f 'let)) - (__tmp76723 - (let ((__tmp76725 - (let ((__tmp76726 - (let ((__tmp76727 - (let ((__tmp76730 + (__tmp76705 + (let ((__tmp76707 + (let ((__tmp76708 + (let ((__tmp76709 + (let ((__tmp76712 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp76728 - (let ((__tmp76729 + (__tmp76710 + (let ((__tmp76711 (let () (declare (not safe)) - (cons _L75314_ '())))) + (cons _L75296_ '())))) (declare (not safe)) - (cons '() __tmp76729)))) + (cons '() __tmp76711)))) (declare (not safe)) - (cons __tmp76730 __tmp76728)))) + (cons __tmp76712 __tmp76710)))) (declare (not safe)) - (cons __tmp76727 '())))) + (cons __tmp76709 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L75253_ __tmp76726))) - (__tmp76724 + (cons _L75235_ __tmp76708))) + (__tmp76706 (let () (declare (not safe)) - (cons _L75342_ '())))) + (cons _L75324_ '())))) (declare (not safe)) - (cons __tmp76725 __tmp76724)))) + (cons __tmp76707 __tmp76706)))) (declare (not safe)) - (cons __tmp76731 __tmp76723))))) - _g7532875339_)))) - (_g7532675357_ - (let* ((___stx7655376554_ _hd75236_) - (_g7536375403_ + (cons __tmp76713 __tmp76705))))) + _g7531075321_)))) + (_g7530875339_ + (let* ((___stx7653576536_ _hd75218_) + (_g7534575385_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx7655376554_)))) - (let ((___kont7655676557_ - (lambda (_L75549_) - (let ((__tmp76734 (gx#datum->syntax '#f 'begin)) - (__tmp76732 - (let ((__tmp76733 - (lambda (_g7556375566_ - _g7556475569_) + ___stx7653576536_)))) + (let ((___kont7653876539_ + (lambda (_L75531_) + (let ((__tmp76716 (gx#datum->syntax '#f 'begin)) + (__tmp76714 + (let ((__tmp76715 + (lambda (_g7554575548_ + _g7554675551_) (let () (declare (not safe)) - (cons _g7556375566_ - _g7556475569_))))) + (cons _g7554575548_ + _g7554675551_))))) (declare (not safe)) - (foldr1 __tmp76733 '() _L75549_)))) + (foldr1 __tmp76715 '() _L75531_)))) (declare (not safe)) - (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 + (cons __tmp76716 __tmp76714)))) + (___kont7654276543_ + (lambda (_L75469_ _L75471_) + (_generate175057_ + _L75471_ + _L75158_ + _L75469_ + _L75268_ + _L75157_))) + (___kont7654476545_ + (lambda (_L75422_ _L75424_ _L75425_) + (_generate175057_ + _L75425_ + _L75158_ + (let ((__tmp76720 (gx#datum->syntax '#f 'if)) + (__tmp76717 + (let ((__tmp76718 + (let ((__tmp76719 (let () (declare (not safe)) - (cons _L75286_ '())))) + (cons _L75268_ '())))) (declare (not safe)) - (cons _L75440_ __tmp76737)))) + (cons _L75422_ __tmp76719)))) (declare (not safe)) - (cons _L75442_ __tmp76736)))) + (cons _L75424_ __tmp76718)))) (declare (not safe)) - (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_ + (cons __tmp76720 __tmp76717)) + _L75268_ + _L75157_)))) + (let ((___match7656476565_ + (lambda (_e7535075491_ + _hd7534975495_ + _tl7534875498_ + ___splice7654076541_ + _target7535175501_ + _tl7535375504_) + (letrec ((_loop7535475507_ + (lambda (_hd7535275511_ + _expr7535875514_) + (if (gx#stx-pair? _hd7535275511_) + (let ((_e7535575517_ (gx#syntax-e - _hd7537075529_))) - (let ((_lp-tl7537575542_ + _hd7535275511_))) + (let ((_lp-tl7535775524_ (let () (declare (not safe)) - (##cdr _e7537375535_))) - (_lp-hd7537475539_ + (##cdr _e7535575517_))) + (_lp-hd7535675521_ (let () (declare (not safe)) - (##car _e7537375535_)))) - (_loop7537275525_ - _lp-tl7537575542_ + (##car _e7535575517_)))) + (_loop7535475507_ + _lp-tl7535775524_ (let () (declare (not safe)) - (cons _lp-hd7537475539_ - _expr7537675532_))))) - (let ((_expr7537775545_ - (reverse _expr7537675532_))) - (___kont7655676557_ - _expr7537775545_)))))) - (_loop7537275525_ - _target7536975519_ + (cons _lp-hd7535675521_ + _expr7535875514_))))) + (let ((_expr7535975527_ + (reverse _expr7535875514_))) + (___kont7653876539_ + _expr7535975527_)))))) + (_loop7535475507_ + _target7535175501_ '()))))) - (if (gx#stx-pair? ___stx7655376554_) - (let ((_e7536875509_ - (gx#syntax-e ___stx7655376554_))) - (let ((_tl7536675516_ + (if (gx#stx-pair? ___stx7653576536_) + (let ((_e7535075491_ + (gx#syntax-e ___stx7653576536_))) + (let ((_tl7534875498_ (let () (declare (not safe)) - (##cdr _e7536875509_))) - (_hd7536775513_ + (##cdr _e7535075491_))) + (_hd7534975495_ (let () (declare (not safe)) - (##car _e7536875509_)))) - (if (gx#identifier? _hd7536775513_) + (##car _e7535075491_)))) + (if (gx#identifier? _hd7534975495_) (if (gx#free-identifier=? - |[1]#_g76739_| - _hd7536775513_) + |[1]#_g76721_| + _hd7534975495_) (if (gx#stx-pair/null? - _tl7536675516_) - (let ((___splice7655876559_ + _tl7534875498_) + (let ((___splice7654076541_ (gx#syntax-split-splice - _tl7536675516_ + _tl7534875498_ '0))) - (let ((_tl7537175522_ + (let ((_tl7535375504_ (let () (declare (not safe)) (##vector-ref - ___splice7655876559_ + ___splice7654076541_ '1))) - (_target7536975519_ + (_target7535175501_ (let () (declare (not safe)) (##vector-ref - ___splice7655876559_ + ___splice7654076541_ '0)))) (if (gx#stx-null? - _tl7537175522_) - (___match7658276583_ - _e7536875509_ - _hd7536775513_ - _tl7536675516_ - ___splice7655876559_ - _target7536975519_ - _tl7537175522_) + _tl7535375504_) + (___match7656476565_ + _e7535075491_ + _hd7534975495_ + _tl7534875498_ + ___splice7654076541_ + _target7535175501_ + _tl7535375504_) (if (gx#stx-pair? - _tl7536675516_) - (let ((_e7538575477_ + _tl7534875498_) + (let ((_e7536775459_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl7536675516_))) - (let ((_tl7538375484_ - (let () (declare (not safe)) (##cdr _e7538575477_))) - (_hd7538475481_ + (gx#syntax-e _tl7534875498_))) + (let ((_tl7536575466_ + (let () (declare (not safe)) (##cdr _e7536775459_))) + (_hd7536675463_ (let () (declare (not safe)) - (##car _e7538575477_)))) - (if (gx#stx-null? _tl7538375484_) - (___kont7656076561_ _hd7538475481_ _hd7536775513_) - (if (gx#stx-pair? _tl7538375484_) - (let ((_e7539775430_ - (gx#syntax-e _tl7538375484_))) - (let ((_tl7539575437_ + (##car _e7536775459_)))) + (if (gx#stx-null? _tl7536575466_) + (___kont7654276543_ _hd7536675463_ _hd7534975495_) + (if (gx#stx-pair? _tl7536575466_) + (let ((_e7537975412_ + (gx#syntax-e _tl7536575466_))) + (let ((_tl7537775419_ (let () (declare (not safe)) - (##cdr _e7539775430_))) - (_hd7539675434_ + (##cdr _e7537975412_))) + (_hd7537875416_ (let () (declare (not safe)) - (##car _e7539775430_)))) - (if (gx#stx-null? _tl7539575437_) - (___kont7656276563_ - _hd7539675434_ - _hd7538475481_ - _hd7536775513_) + (##car _e7537975412_)))) + (if (gx#stx-null? _tl7537775419_) + (___kont7654476545_ + _hd7537875416_ + _hd7536675463_ + _hd7534975495_) (let () (declare (not safe)) - (_g7536375403_))))) - (let () (declare (not safe)) (_g7536375403_)))))) - (let () (declare (not safe)) (_g7536375403_)))))) + (_g7534575385_))))) + (let () (declare (not safe)) (_g7534575385_)))))) + (let () (declare (not safe)) (_g7534575385_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl7536675516_) - (let ((_e7538575477_ + (if (gx#stx-pair? _tl7534875498_) + (let ((_e7536775459_ (gx#syntax-e - _tl7536675516_))) - (let ((_tl7538375484_ + _tl7534875498_))) + (let ((_tl7536575466_ (let () (declare (not safe)) - (##cdr _e7538575477_))) - (_hd7538475481_ + (##cdr _e7536775459_))) + (_hd7536675463_ (let () (declare (not safe)) - (##car _e7538575477_)))) + (##car _e7536775459_)))) (if (gx#stx-null? - _tl7538375484_) - (___kont7656076561_ - _hd7538475481_ - _hd7536775513_) + _tl7536575466_) + (___kont7654276543_ + _hd7536675463_ + _hd7534975495_) (if (gx#stx-pair? - _tl7538375484_) - (let ((_e7539775430_ + _tl7536575466_) + (let ((_e7537975412_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl7538375484_))) - (let ((_tl7539575437_ + (gx#syntax-e _tl7536575466_))) + (let ((_tl7537775419_ (let () (declare (not safe)) - (##cdr _e7539775430_))) - (_hd7539675434_ + (##cdr _e7537975412_))) + (_hd7537875416_ (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_)))))) + (##car _e7537975412_)))) + (if (gx#stx-null? _tl7537775419_) + (___kont7654476545_ + _hd7537875416_ + _hd7536675463_ + _hd7534975495_) + (let () (declare (not safe)) (_g7534575385_))))) + (let () (declare (not safe)) (_g7534575385_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7536375403_)))) - (if (gx#stx-pair? _tl7536675516_) - (let ((_e7538575477_ + (_g7534575385_)))) + (if (gx#stx-pair? _tl7534875498_) + (let ((_e7536775459_ (gx#syntax-e - _tl7536675516_))) - (let ((_tl7538375484_ + _tl7534875498_))) + (let ((_tl7536575466_ (let () (declare (not safe)) - (##cdr _e7538575477_))) - (_hd7538475481_ + (##cdr _e7536775459_))) + (_hd7536675463_ (let () (declare (not safe)) - (##car _e7538575477_)))) + (##car _e7536775459_)))) (if (gx#stx-null? - _tl7538375484_) - (___kont7656076561_ - _hd7538475481_ - _hd7536775513_) + _tl7536575466_) + (___kont7654276543_ + _hd7536675463_ + _hd7534975495_) (if (gx#stx-pair? - _tl7538375484_) - (let ((_e7539775430_ + _tl7536575466_) + (let ((_e7537975412_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl7538375484_))) - (let ((_tl7539575437_ - (let () (declare (not safe)) (##cdr _e7539775430_))) - (_hd7539675434_ + (gx#syntax-e _tl7536575466_))) + (let ((_tl7537775419_ + (let () (declare (not safe)) (##cdr _e7537975412_))) + (_hd7537875416_ (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_)))))) + (##car _e7537975412_)))) + (if (gx#stx-null? _tl7537775419_) + (___kont7654476545_ + _hd7537875416_ + _hd7536675463_ + _hd7534975495_) + (let () (declare (not safe)) (_g7534575385_))))) + (let () (declare (not safe)) (_g7534575385_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7536375403_)))) - (if (gx#stx-pair? _tl7536675516_) - (let ((_e7538575477_ - (gx#syntax-e _tl7536675516_))) - (let ((_tl7538375484_ + (_g7534575385_)))) + (if (gx#stx-pair? _tl7534875498_) + (let ((_e7536775459_ + (gx#syntax-e _tl7534875498_))) + (let ((_tl7536575466_ (let () (declare (not safe)) - (##cdr _e7538575477_))) - (_hd7538475481_ + (##cdr _e7536775459_))) + (_hd7536675463_ (let () (declare (not safe)) - (##car _e7538575477_)))) - (if (gx#stx-null? _tl7538375484_) - (___kont7656076561_ - _hd7538475481_ - _hd7536775513_) + (##car _e7536775459_)))) + (if (gx#stx-null? _tl7536575466_) + (___kont7654276543_ + _hd7536675463_ + _hd7534975495_) (if (gx#stx-pair? - _tl7538375484_) - (let ((_e7539775430_ + _tl7536575466_) + (let ((_e7537975412_ (gx#syntax-e - _tl7538375484_))) - (let ((_tl7539575437_ + _tl7536575466_))) + (let ((_tl7537775419_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##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_)))))) + (##cdr _e7537975412_))) + (_hd7537875416_ + (let () (declare (not safe)) (##car _e7537975412_)))) + (if (gx#stx-null? _tl7537775419_) + (___kont7654476545_ + _hd7537875416_ + _hd7536675463_ + _hd7534975495_) + (let () (declare (not safe)) (_g7534575385_))))) + (let () (declare (not safe)) (_g7534575385_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g7536375403_)))))) + (_g7534575385_)))))) (let () (declare (not safe)) - (_g7536375403_)))))))))) + (_g7534575385_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g7530075311_)))) - (_g7529875576_ - (_recur75198_ _rest75234_))))) - _g7527275283_)))) - (_g7527075580_ + _g7528275293_)))) + (_g7528075558_ + (_recur75180_ _rest75216_))))) + _g7525475265_)))) + (_g7525275562_ (let () (declare (not safe)) - (cons _L75253_ '())))))) - _g7523975250_)))) - (_g7523775584_ (gx#genident '$E))))) + (cons _L75235_ '())))))) + _g7522175232_)))) + (_g7521975566_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K7520775226_ + (_K7518975208_ (lambda () - (let ((__tmp76743 + (let ((__tmp76725 (gx#datum->syntax '#f '__raise-syntax-error)) - (__tmp76740 - (let ((__tmp76741 + (__tmp76722 + (let ((__tmp76723 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp76742 + (let ((__tmp76724 (let () (declare (not safe)) - (cons _L75176_ '())))) + (cons _L75158_ '())))) (declare (not safe)) (cons '"Bad syntax; malformed ast clause" - __tmp76742)))) + __tmp76724)))) (declare (not safe)) - (cons '#f __tmp76741)))) + (cons '#f __tmp76723)))) (declare (not safe)) - (cons __tmp76743 __tmp76740))))) + (cons __tmp76725 __tmp76722))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match7520575230_ + (let ((_try-match7518775212_ (lambda () (if (let () (declare (not safe)) - (##null? _rest7520375212_)) - (_K7520775226_) - (_E7520675218_))))) + (##null? _rest7518575194_)) + (_K7518975208_) + (_E7518875200_))))) (if (let () (declare (not safe)) - (##pair? _rest7520375212_)) - (let ((_tl7521075595_ + (##pair? _rest7518575194_)) + (let ((_tl7519275577_ (let () (declare (not safe)) - (##cdr _rest7520375212_))) - (_hd7520975592_ + (##cdr _rest7518575194_))) + (_hd7519175574_ (let () (declare (not safe)) - (##car _rest7520375212_)))) - (let ((_hd75598_ - _hd7520975592_) - (_rest75601_ - _tl7521075595_)) - (_K7520875588_ - _rest75601_ - _hd75598_))) - (_try-match7520575230_))))))) - _clause7510075169_ - _hd7509075137_ - _hd7508775127_)))))) - (_loop7509575149_ _target7509275143_ '())) - (_g7507875106_ _g7507975110_))))) + (##car _rest7518575194_)))) + (let ((_hd75580_ + _hd7519175574_) + (_rest75583_ + _tl7519275577_)) + (_K7519075570_ + _rest75583_ + _hd75580_))) + (_try-match7518775212_))))))) + _clause7508275151_ + _hd7507275119_ + _hd7506975109_)))))) + (_loop7507775131_ _target7507475125_ '())) + (_g7506075088_ _g7506175092_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g7507875106_ - _g7507975110_)))) - (_g7507875106_ _g7507975110_)))) - (_g7507875106_ _g7507975110_)))) - (_g7507875106_ _g7507975110_))))) - (_g7507775612_ _stx75072_))))) + (_g7506075088_ + _g7506175092_)))) + (_g7506075088_ _g7506175092_)))) + (_g7506075088_ _g7506175092_)))) + (_g7506075088_ _g7506175092_))))) + (_g7505975594_ _stx75054_))))) (define |[:0:]#SyntaxError| - (let ((__obj76626 + (let ((__obj76608 (let () (declare (not safe)) (##structure @@ -1464,7 +1464,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76626 + __obj76608 '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! - __obj76626 + __obj76608 'SyntaxError '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1480,26 +1480,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76626 + __obj76608 '(message irritants where context phi marks) '4 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76745 - (let ((__tmp76746 |[1]#_g76747_|)) + (let ((__tmp76727 + (let ((__tmp76728 |[1]#_g76729_|)) (declare (not safe)) - (cons __tmp76746 '())))) + (cons __tmp76728 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj76626 - __tmp76745 + __obj76608 + __tmp76727 '3 gerbil/core/mop~MOP-2#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj76626 + __obj76608 '#f '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1507,7 +1507,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76626 + __obj76608 '#t '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1515,7 +1515,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76626 + __obj76608 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1523,254 +1523,254 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76626 + __obj76608 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76748 |[1]#_g76749_|)) + (let ((__tmp76730 |[1]#_g76731_|)) (declare (not safe)) (##unchecked-structure-set! - __obj76626 - __tmp76748 + __obj76608 + __tmp76730 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76750 |[1]#_g76751_|)) + (let ((__tmp76732 |[1]#_g76733_|)) (declare (not safe)) (##unchecked-structure-set! - __obj76626 - __tmp76750 + __obj76608 + __tmp76732 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76752 |[1]#_g76753_|)) + (let ((__tmp76734 |[1]#_g76735_|)) (declare (not safe)) (##unchecked-structure-set! - __obj76626 - __tmp76752 + __obj76608 + __tmp76734 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76754 - (let ((__tmp76775 - (let ((__tmp76776 |[1]#_g76777_|)) + (let ((__tmp76736 + (let ((__tmp76757 + (let ((__tmp76758 |[1]#_g76759_|)) (declare (not safe)) - (cons 'message __tmp76776))) - (__tmp76755 - (let ((__tmp76772 - (let ((__tmp76773 |[1]#_g76774_|)) + (cons 'message __tmp76758))) + (__tmp76737 + (let ((__tmp76754 + (let ((__tmp76755 |[1]#_g76756_|)) (declare (not safe)) - (cons 'irritants __tmp76773))) - (__tmp76756 - (let ((__tmp76769 - (let ((__tmp76770 |[1]#_g76771_|)) + (cons 'irritants __tmp76755))) + (__tmp76738 + (let ((__tmp76751 + (let ((__tmp76752 |[1]#_g76753_|)) (declare (not safe)) - (cons 'where __tmp76770))) - (__tmp76757 - (let ((__tmp76766 - (let ((__tmp76767 |[1]#_g76768_|)) + (cons 'where __tmp76752))) + (__tmp76739 + (let ((__tmp76748 + (let ((__tmp76749 |[1]#_g76750_|)) (declare (not safe)) - (cons 'context __tmp76767))) - (__tmp76758 - (let ((__tmp76763 - (let ((__tmp76764 - |[1]#_g76765_|)) + (cons 'context __tmp76749))) + (__tmp76740 + (let ((__tmp76745 + (let ((__tmp76746 + |[1]#_g76747_|)) (declare (not safe)) - (cons 'phi __tmp76764))) - (__tmp76759 - (let ((__tmp76760 - (let ((__tmp76761 - |[1]#_g76762_|)) + (cons 'phi __tmp76746))) + (__tmp76741 + (let ((__tmp76742 + (let ((__tmp76743 + |[1]#_g76744_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp76761)))) + __tmp76743)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76760 '())))) + (cons __tmp76742 '())))) (declare (not safe)) - (cons __tmp76763 __tmp76759)))) + (cons __tmp76745 __tmp76741)))) (declare (not safe)) - (cons __tmp76766 __tmp76758)))) + (cons __tmp76748 __tmp76740)))) (declare (not safe)) - (cons __tmp76769 __tmp76757)))) + (cons __tmp76751 __tmp76739)))) (declare (not safe)) - (cons __tmp76772 __tmp76756)))) + (cons __tmp76754 __tmp76738)))) (declare (not safe)) - (cons __tmp76775 __tmp76755)))) + (cons __tmp76757 __tmp76737)))) (declare (not safe)) (##unchecked-structure-set! - __obj76626 - __tmp76754 + __obj76608 + __tmp76736 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76778 - (let ((__tmp76799 - (let ((__tmp76800 |[1]#_g76801_|)) + (let ((__tmp76760 + (let ((__tmp76781 + (let ((__tmp76782 |[1]#_g76783_|)) (declare (not safe)) - (cons 'message __tmp76800))) - (__tmp76779 - (let ((__tmp76796 - (let ((__tmp76797 |[1]#_g76798_|)) + (cons 'message __tmp76782))) + (__tmp76761 + (let ((__tmp76778 + (let ((__tmp76779 |[1]#_g76780_|)) (declare (not safe)) - (cons 'irritants __tmp76797))) - (__tmp76780 - (let ((__tmp76793 - (let ((__tmp76794 |[1]#_g76795_|)) + (cons 'irritants __tmp76779))) + (__tmp76762 + (let ((__tmp76775 + (let ((__tmp76776 |[1]#_g76777_|)) (declare (not safe)) - (cons 'where __tmp76794))) - (__tmp76781 - (let ((__tmp76790 - (let ((__tmp76791 |[1]#_g76792_|)) + (cons 'where __tmp76776))) + (__tmp76763 + (let ((__tmp76772 + (let ((__tmp76773 |[1]#_g76774_|)) (declare (not safe)) - (cons 'context __tmp76791))) - (__tmp76782 - (let ((__tmp76787 - (let ((__tmp76788 - |[1]#_g76789_|)) + (cons 'context __tmp76773))) + (__tmp76764 + (let ((__tmp76769 + (let ((__tmp76770 + |[1]#_g76771_|)) (declare (not safe)) - (cons 'phi __tmp76788))) - (__tmp76783 - (let ((__tmp76784 - (let ((__tmp76785 - |[1]#_g76786_|)) + (cons 'phi __tmp76770))) + (__tmp76765 + (let ((__tmp76766 + (let ((__tmp76767 + |[1]#_g76768_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp76785)))) + __tmp76767)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76784 '())))) + (cons __tmp76766 '())))) (declare (not safe)) - (cons __tmp76787 __tmp76783)))) + (cons __tmp76769 __tmp76765)))) (declare (not safe)) - (cons __tmp76790 __tmp76782)))) + (cons __tmp76772 __tmp76764)))) (declare (not safe)) - (cons __tmp76793 __tmp76781)))) + (cons __tmp76775 __tmp76763)))) (declare (not safe)) - (cons __tmp76796 __tmp76780)))) + (cons __tmp76778 __tmp76762)))) (declare (not safe)) - (cons __tmp76799 __tmp76779)))) + (cons __tmp76781 __tmp76761)))) (declare (not safe)) (##unchecked-structure-set! - __obj76626 - __tmp76778 + __obj76608 + __tmp76760 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76802 - (let ((__tmp76823 - (let ((__tmp76824 |[1]#_g76825_|)) + (let ((__tmp76784 + (let ((__tmp76805 + (let ((__tmp76806 |[1]#_g76807_|)) (declare (not safe)) - (cons 'message __tmp76824))) - (__tmp76803 - (let ((__tmp76820 - (let ((__tmp76821 |[1]#_g76822_|)) + (cons 'message __tmp76806))) + (__tmp76785 + (let ((__tmp76802 + (let ((__tmp76803 |[1]#_g76804_|)) (declare (not safe)) - (cons 'irritants __tmp76821))) - (__tmp76804 - (let ((__tmp76817 - (let ((__tmp76818 |[1]#_g76819_|)) + (cons 'irritants __tmp76803))) + (__tmp76786 + (let ((__tmp76799 + (let ((__tmp76800 |[1]#_g76801_|)) (declare (not safe)) - (cons 'where __tmp76818))) - (__tmp76805 - (let ((__tmp76814 - (let ((__tmp76815 |[1]#_g76816_|)) + (cons 'where __tmp76800))) + (__tmp76787 + (let ((__tmp76796 + (let ((__tmp76797 |[1]#_g76798_|)) (declare (not safe)) - (cons 'context __tmp76815))) - (__tmp76806 - (let ((__tmp76811 - (let ((__tmp76812 - |[1]#_g76813_|)) + (cons 'context __tmp76797))) + (__tmp76788 + (let ((__tmp76793 + (let ((__tmp76794 + |[1]#_g76795_|)) (declare (not safe)) - (cons 'phi __tmp76812))) - (__tmp76807 - (let ((__tmp76808 - (let ((__tmp76809 - |[1]#_g76810_|)) + (cons 'phi __tmp76794))) + (__tmp76789 + (let ((__tmp76790 + (let ((__tmp76791 + |[1]#_g76792_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp76809)))) + __tmp76791)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76808 '())))) + (cons __tmp76790 '())))) (declare (not safe)) - (cons __tmp76811 __tmp76807)))) + (cons __tmp76793 __tmp76789)))) (declare (not safe)) - (cons __tmp76814 __tmp76806)))) + (cons __tmp76796 __tmp76788)))) (declare (not safe)) - (cons __tmp76817 __tmp76805)))) + (cons __tmp76799 __tmp76787)))) (declare (not safe)) - (cons __tmp76820 __tmp76804)))) + (cons __tmp76802 __tmp76786)))) (declare (not safe)) - (cons __tmp76823 __tmp76803)))) + (cons __tmp76805 __tmp76785)))) (declare (not safe)) (##unchecked-structure-set! - __obj76626 - __tmp76802 + __obj76608 + __tmp76784 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76826 - (let ((__tmp76847 - (let ((__tmp76848 |[1]#_g76849_|)) + (let ((__tmp76808 + (let ((__tmp76829 + (let ((__tmp76830 |[1]#_g76831_|)) (declare (not safe)) - (cons 'message __tmp76848))) - (__tmp76827 - (let ((__tmp76844 - (let ((__tmp76845 |[1]#_g76846_|)) + (cons 'message __tmp76830))) + (__tmp76809 + (let ((__tmp76826 + (let ((__tmp76827 |[1]#_g76828_|)) (declare (not safe)) - (cons 'irritants __tmp76845))) - (__tmp76828 - (let ((__tmp76841 - (let ((__tmp76842 |[1]#_g76843_|)) + (cons 'irritants __tmp76827))) + (__tmp76810 + (let ((__tmp76823 + (let ((__tmp76824 |[1]#_g76825_|)) (declare (not safe)) - (cons 'where __tmp76842))) - (__tmp76829 - (let ((__tmp76838 - (let ((__tmp76839 |[1]#_g76840_|)) + (cons 'where __tmp76824))) + (__tmp76811 + (let ((__tmp76820 + (let ((__tmp76821 |[1]#_g76822_|)) (declare (not safe)) - (cons 'context __tmp76839))) - (__tmp76830 - (let ((__tmp76835 - (let ((__tmp76836 - |[1]#_g76837_|)) + (cons 'context __tmp76821))) + (__tmp76812 + (let ((__tmp76817 + (let ((__tmp76818 + |[1]#_g76819_|)) (declare (not safe)) - (cons 'phi __tmp76836))) - (__tmp76831 - (let ((__tmp76832 - (let ((__tmp76833 - |[1]#_g76834_|)) + (cons 'phi __tmp76818))) + (__tmp76813 + (let ((__tmp76814 + (let ((__tmp76815 + |[1]#_g76816_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp76833)))) + __tmp76815)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp76832 '())))) + (cons __tmp76814 '())))) (declare (not safe)) - (cons __tmp76835 __tmp76831)))) + (cons __tmp76817 __tmp76813)))) (declare (not safe)) - (cons __tmp76838 __tmp76830)))) + (cons __tmp76820 __tmp76812)))) (declare (not safe)) - (cons __tmp76841 __tmp76829)))) + (cons __tmp76823 __tmp76811)))) (declare (not safe)) - (cons __tmp76844 __tmp76828)))) + (cons __tmp76826 __tmp76810)))) (declare (not safe)) - (cons __tmp76847 __tmp76827)))) + (cons __tmp76829 __tmp76809)))) (declare (not safe)) (##unchecked-structure-set! - __obj76626 - __tmp76826 + __obj76608 + __tmp76808 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj76626)) + __obj76608)) (define |[:0:]#AST| - (let ((__obj76628 + (let ((__obj76610 (let () (declare (not safe)) (##structure @@ -1794,7 +1794,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76628 + __obj76610 'gerbil#AST::t '1 gerbil/core/mop~MOP-2#class-type-info::t @@ -1802,7 +1802,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76628 + __obj76610 'syntax '2 gerbil/core/mop~MOP-2#class-type-info::t @@ -1810,7 +1810,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76628 + __obj76610 '(e source) '4 gerbil/core/mop~MOP-2#class-type-info::t @@ -1818,7 +1818,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76628 + __obj76610 '() '3 gerbil/core/mop~MOP-2#class-type-info::t @@ -1826,7 +1826,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76628 + __obj76610 '#t '5 gerbil/core/mop~MOP-2#class-type-info::t @@ -1834,7 +1834,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76628 + __obj76610 '#f '6 gerbil/core/mop~MOP-2#class-type-info::t @@ -1842,7 +1842,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76628 + __obj76610 '#f '8 gerbil/core/mop~MOP-2#class-type-info::t @@ -1850,117 +1850,117 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj76628 + __obj76610 '#f '9 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76850 |[1]#_g76851_|)) + (let ((__tmp76832 |[1]#_g76833_|)) (declare (not safe)) (##unchecked-structure-set! - __obj76628 - __tmp76850 + __obj76610 + __tmp76832 '10 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76852 |[1]#_g76853_|)) + (let ((__tmp76834 |[1]#_g76835_|)) (declare (not safe)) (##unchecked-structure-set! - __obj76628 - __tmp76852 + __obj76610 + __tmp76834 '11 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76854 |[1]#_g76855_|)) + (let ((__tmp76836 |[1]#_g76837_|)) (declare (not safe)) (##unchecked-structure-set! - __obj76628 - __tmp76854 + __obj76610 + __tmp76836 '12 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76856 - (let ((__tmp76861 - (let ((__tmp76862 |[1]#_g76863_|)) + (let ((__tmp76838 + (let ((__tmp76843 + (let ((__tmp76844 |[1]#_g76845_|)) (declare (not safe)) - (cons 'e __tmp76862))) - (__tmp76857 - (let ((__tmp76858 - (let ((__tmp76859 |[1]#_g76860_|)) + (cons 'e __tmp76844))) + (__tmp76839 + (let ((__tmp76840 + (let ((__tmp76841 |[1]#_g76842_|)) (declare (not safe)) - (cons 'source __tmp76859)))) + (cons 'source __tmp76841)))) (declare (not safe)) - (cons __tmp76858 '())))) + (cons __tmp76840 '())))) (declare (not safe)) - (cons __tmp76861 __tmp76857)))) + (cons __tmp76843 __tmp76839)))) (declare (not safe)) (##unchecked-structure-set! - __obj76628 - __tmp76856 + __obj76610 + __tmp76838 '13 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76864 - (let ((__tmp76869 - (let ((__tmp76870 |[1]#_g76871_|)) + (let ((__tmp76846 + (let ((__tmp76851 + (let ((__tmp76852 |[1]#_g76853_|)) (declare (not safe)) - (cons 'e __tmp76870))) - (__tmp76865 - (let ((__tmp76866 - (let ((__tmp76867 |[1]#_g76868_|)) + (cons 'e __tmp76852))) + (__tmp76847 + (let ((__tmp76848 + (let ((__tmp76849 |[1]#_g76850_|)) (declare (not safe)) - (cons 'source __tmp76867)))) + (cons 'source __tmp76849)))) (declare (not safe)) - (cons __tmp76866 '())))) + (cons __tmp76848 '())))) (declare (not safe)) - (cons __tmp76869 __tmp76865)))) + (cons __tmp76851 __tmp76847)))) (declare (not safe)) (##unchecked-structure-set! - __obj76628 - __tmp76864 + __obj76610 + __tmp76846 '14 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76872 - (let ((__tmp76877 - (let ((__tmp76878 |[1]#_g76879_|)) + (let ((__tmp76854 + (let ((__tmp76859 + (let ((__tmp76860 |[1]#_g76861_|)) (declare (not safe)) - (cons 'e __tmp76878))) - (__tmp76873 - (let ((__tmp76874 - (let ((__tmp76875 |[1]#_g76876_|)) + (cons 'e __tmp76860))) + (__tmp76855 + (let ((__tmp76856 + (let ((__tmp76857 |[1]#_g76858_|)) (declare (not safe)) - (cons 'source __tmp76875)))) + (cons 'source __tmp76857)))) (declare (not safe)) - (cons __tmp76874 '())))) + (cons __tmp76856 '())))) (declare (not safe)) - (cons __tmp76877 __tmp76873)))) + (cons __tmp76859 __tmp76855)))) (declare (not safe)) (##unchecked-structure-set! - __obj76628 - __tmp76872 + __obj76610 + __tmp76854 '15 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - (let ((__tmp76880 - (let ((__tmp76885 - (let ((__tmp76886 |[1]#_g76887_|)) + (let ((__tmp76862 + (let ((__tmp76867 + (let ((__tmp76868 |[1]#_g76869_|)) (declare (not safe)) - (cons 'e __tmp76886))) - (__tmp76881 - (let ((__tmp76882 - (let ((__tmp76883 |[1]#_g76884_|)) + (cons 'e __tmp76868))) + (__tmp76863 + (let ((__tmp76864 + (let ((__tmp76865 |[1]#_g76866_|)) (declare (not safe)) - (cons 'source __tmp76883)))) + (cons 'source __tmp76865)))) (declare (not safe)) - (cons __tmp76882 '())))) + (cons __tmp76864 '())))) (declare (not safe)) - (cons __tmp76885 __tmp76881)))) + (cons __tmp76867 __tmp76863)))) (declare (not safe)) (##unchecked-structure-set! - __obj76628 - __tmp76880 + __obj76610 + __tmp76862 '16 gerbil/core/mop~MOP-2#class-type-info::t '#f)) - __obj76628)))) + __obj76610)))) diff --git a/src/bootstrap/gerbil/runtime/system~0.scm b/src/bootstrap/gerbil/runtime/system~0.scm index f3845d7e6..279cf79ef 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 1710833423) + (define gerbil/runtime/system::timestamp 1710943496) (begin - (define gerbil-version-string (lambda () '"v0.18.1-69-g37a9e2f1")) + (define gerbil-version-string (lambda () '"v0.18.1-72-gb280d037")) (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 7c7a83b20..0c95022da 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 1710833423) + (define gerbil/runtime/table::timestamp 1710943496) (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 41fd036d7..57e574b2b 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 1710833424) + (define gerbil/runtime/thread::timestamp 1710943497) (begin (define spawn - (lambda (_f74932_ . _args74933_) - (if (let () (declare (not safe)) (procedure? _f74932_)) + (lambda (_f74914_ . _args74915_) + (if (let () (declare (not safe)) (procedure? _f74914_)) '#!void - (raise (let ((__obj74934 + (raise (let ((__obj74916 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj74934 + __obj74916 '"expected procedure" 'where: 'spawn 'irritants: - (let () (declare (not safe)) (cons _f74932_ '()))) - __obj74934))) + (let () (declare (not safe)) (cons _f74914_ '()))) + __obj74916))) (let () (declare (not safe)) - (spawn-actor _f74932_ _args74933_ '#!void '#f)))) + (spawn-actor _f74914_ _args74915_ '#!void '#f)))) (define spawn/name - (lambda (_name74928_ _f74929_ . _args74930_) - (if (let () (declare (not safe)) (procedure? _f74929_)) + (lambda (_name74910_ _f74911_ . _args74912_) + (if (let () (declare (not safe)) (procedure? _f74911_)) '#!void - (raise (let ((__obj74935 + (raise (let ((__obj74917 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj74935 + __obj74917 '"expected procedure" 'where: 'spawn/name 'irritants: - (let () (declare (not safe)) (cons _f74929_ '()))) - __obj74935))) + (let () (declare (not safe)) (cons _f74911_ '()))) + __obj74917))) (let () (declare (not safe)) - (spawn-actor _f74929_ _args74930_ _name74928_ '#f)))) + (spawn-actor _f74911_ _args74912_ _name74910_ '#f)))) (define spawn/group - (lambda (_name74922_ _f74923_ . _args74924_) - (if (let () (declare (not safe)) (procedure? _f74923_)) + (lambda (_name74904_ _f74905_ . _args74906_) + (if (let () (declare (not safe)) (procedure? _f74905_)) '#!void - (raise (let ((__obj74936 + (raise (let ((__obj74918 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj74936 + __obj74918 '"expected procedure" 'where: 'spawn/group 'irritants: - (let () (declare (not safe)) (cons _f74923_ '()))) - __obj74936))) - (let ((_tgroup74926_ (make-thread-group _name74922_))) + (let () (declare (not safe)) (cons _f74905_ '()))) + __obj74918))) + (let ((_tgroup74908_ (make-thread-group _name74904_))) (declare (not safe)) - (spawn-actor _f74923_ _args74924_ _name74922_ _tgroup74926_)))) + (spawn-actor _f74905_ _args74906_ _name74904_ _tgroup74908_)))) (define spawn-actor - (lambda (_f74895_ _args74896_ _name74897_ _tgroup74898_) - (letrec ((_thread-main74900_ - (lambda (_thunk74914_) + (lambda (_f74877_ _args74878_ _name74879_ _tgroup74880_) + (letrec ((_thread-main74882_ + (lambda (_thunk74896_) (lambda () (with-exception-handler - (lambda (_exn74917_) - (let ((__tmp74938 - (lambda (_cont74919_) + (lambda (_exn74899_) + (let ((__tmp74920 + (lambda (_cont74901_) (if __unhandled-actor-exception-hook - (let ((__tmp74939 + (let ((__tmp74921 (lambda () (__unhandled-actor-exception-hook - _cont74919_ - _exn74917_)))) + _cont74901_ + _exn74899_)))) (declare (not safe)) - (with-catch void __tmp74939)) + (with-catch void __tmp74921)) '#!void) - (let ((__tmp74940 + (let ((__tmp74922 (let () (declare (not safe)) - (##continuation-last _cont74919_)))) + (##continuation-last _cont74901_)))) (declare (not safe)) (##continuation-graft - __tmp74940 + __tmp74922 ##primordial-exception-handler - _exn74917_))))) + _exn74899_))))) (declare (not safe)) - (##continuation-capture __tmp74938))) - _thunk74914_))))) - (let* ((_thunk74903_ - (if (let () (declare (not safe)) (null? _args74896_)) - _f74895_ - (lambda () (apply _f74895_ _args74896_)))) - (_thunk74906_ + (##continuation-capture __tmp74920))) + _thunk74896_))))) + (let* ((_thunk74885_ + (if (let () (declare (not safe)) (null? _args74878_)) + _f74877_ + (lambda () (apply _f74877_ _args74878_)))) + (_thunk74888_ (lambda () (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk74903_)))) - (_tgroup74911_ - (let ((_$e74908_ _tgroup74898_)) - (if _$e74908_ - _$e74908_ + (with-exception-stack-trace__0 _thunk74885_)))) + (_tgroup74893_ + (let ((_$e74890_ _tgroup74880_)) + (if _$e74890_ + _$e74890_ (let () (declare (not safe)) (current-thread-group)))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (let () (declare (not safe)) (_thread-main74900_ _thunk74906_)) - _name74897_ - _tgroup74911_)))))) + (let () (declare (not safe)) (_thread-main74882_ _thunk74888_)) + _name74879_ + _tgroup74893_)))))) (define spawn-thread__% - (lambda (_thunk74873_ _name74874_ _tgroup74875_) - (thread-start! (make-thread _thunk74873_ _name74874_ _tgroup74875_)))) + (lambda (_thunk74855_ _name74856_ _tgroup74857_) + (thread-start! (make-thread _thunk74855_ _name74856_ _tgroup74857_)))) (define spawn-thread__0 - (lambda (_thunk74880_) - (let* ((_name74882_ absent-obj) (_tgroup74884_ absent-obj)) + (lambda (_thunk74862_) + (let* ((_name74864_ absent-obj) (_tgroup74866_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk74880_ _name74882_ _tgroup74884_)))) + (spawn-thread__% _thunk74862_ _name74864_ _tgroup74866_)))) (define spawn-thread__1 - (lambda (_thunk74886_ _name74887_) - (let ((_tgroup74889_ absent-obj)) + (lambda (_thunk74868_ _name74869_) + (let ((_tgroup74871_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk74886_ _name74887_ _tgroup74889_)))) + (spawn-thread__% _thunk74868_ _name74869_ _tgroup74871_)))) (define spawn-thread - (lambda _g74942_ - (let ((_g74941_ (let () (declare (not safe)) (##length _g74942_)))) - (cond ((let () (declare (not safe)) (##fx= _g74941_ 1)) - (apply (lambda (_thunk74880_) + (lambda _g74924_ + (let ((_g74923_ (let () (declare (not safe)) (##length _g74924_)))) + (cond ((let () (declare (not safe)) (##fx= _g74923_ 1)) + (apply (lambda (_thunk74862_) (let () (declare (not safe)) - (spawn-thread__0 _thunk74880_))) - _g74942_)) - ((let () (declare (not safe)) (##fx= _g74941_ 2)) - (apply (lambda (_thunk74886_ _name74887_) + (spawn-thread__0 _thunk74862_))) + _g74924_)) + ((let () (declare (not safe)) (##fx= _g74923_ 2)) + (apply (lambda (_thunk74868_ _name74869_) (let () (declare (not safe)) - (spawn-thread__1 _thunk74886_ _name74887_))) - _g74942_)) - ((let () (declare (not safe)) (##fx= _g74941_ 3)) - (apply (lambda (_thunk74891_ _name74892_ _tgroup74893_) + (spawn-thread__1 _thunk74868_ _name74869_))) + _g74924_)) + ((let () (declare (not safe)) (##fx= _g74923_ 3)) + (apply (lambda (_thunk74873_ _name74874_ _tgroup74875_) (let () (declare (not safe)) (spawn-thread__% - _thunk74891_ - _name74892_ - _tgroup74893_))) - _g74942_)) + _thunk74873_ + _name74874_ + _tgroup74875_))) + _g74924_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g74942_)))))) + _g74924_)))))) (define thread-local-ref__% - (lambda (_key74857_ _default74858_) - (let ((_tab74860_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key74839_ _default74840_) + (let ((_tab74842_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (hash-ref__% _tab74860_ _key74857_ _default74858_)))) + (hash-ref__% _tab74842_ _key74839_ _default74840_)))) (define thread-local-ref__0 - (lambda (_key74865_) - (let ((_default74867_ absent-obj)) + (lambda (_key74847_) + (let ((_default74849_ absent-obj)) (declare (not safe)) - (thread-local-ref__% _key74865_ _default74867_)))) + (thread-local-ref__% _key74847_ _default74849_)))) (define thread-local-ref - (lambda _g74944_ - (let ((_g74943_ (let () (declare (not safe)) (##length _g74944_)))) - (cond ((let () (declare (not safe)) (##fx= _g74943_ 1)) - (apply (lambda (_key74865_) + (lambda _g74926_ + (let ((_g74925_ (let () (declare (not safe)) (##length _g74926_)))) + (cond ((let () (declare (not safe)) (##fx= _g74925_ 1)) + (apply (lambda (_key74847_) (let () (declare (not safe)) - (thread-local-ref__0 _key74865_))) - _g74944_)) - ((let () (declare (not safe)) (##fx= _g74943_ 2)) - (apply (lambda (_key74869_ _default74870_) + (thread-local-ref__0 _key74847_))) + _g74926_)) + ((let () (declare (not safe)) (##fx= _g74925_ 2)) + (apply (lambda (_key74851_ _default74852_) (let () (declare (not safe)) - (thread-local-ref__% _key74869_ _default74870_))) - _g74944_)) + (thread-local-ref__% _key74851_ _default74852_))) + _g74926_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g74944_)))))) + _g74926_)))))) (define thread-local-get - (lambda (_key74854_) - (let () (declare (not safe)) (thread-local-ref__% _key74854_ '#f)))) + (lambda (_key74836_) + (let () (declare (not safe)) (thread-local-ref__% _key74836_ '#f)))) (define thread-local-set! - (lambda (_key74849_ _value74850_) - (let ((_tab74852_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key74831_ _value74832_) + (let ((_tab74834_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (hash-put! _tab74852_ _key74849_ _value74850_)))) + (hash-put! _tab74834_ _key74831_ _value74832_)))) (define thread-local-delete! - (lambda (_key74845_) - (let ((_tab74847_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key74827_) + (let ((_tab74829_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (hash-remove! _tab74847_ _key74845_)))) + (hash-remove! _tab74829_ _key74827_)))) (define thread-local-table (lambda () - (let ((_thr74831_ (current-thread))) - (if (actor-thread? _thr74831_) - (let ((_$e74833_ (actor-thread-locals _thr74831_))) - (if _$e74833_ - (values _$e74833_) - (let ((_tab74836_ + (let ((_thr74813_ (current-thread))) + (if (actor-thread? _thr74813_) + (let ((_$e74815_ (actor-thread-locals _thr74813_))) + (if _$e74815_ + (values _$e74815_) + (let ((_tab74818_ (let () (declare (not safe)) (make-hash-table-eq)))) - (actor-thread-locals-set! _thr74831_ _tab74836_) - _tab74836_))) + (actor-thread-locals-set! _thr74813_ _tab74818_) + _tab74818_))) (if (let () (declare (not safe)) - (eq? _thr74831_ ##primordial-thread)) + (eq? _thr74813_ ##primordial-thread)) __primordial-thread-locals (begin (mutex-lock! __thread-locals-mutex) - (let ((_$e74838_ + (let ((_$e74820_ (let () (declare (not safe)) - (hash-get __thread-locals _thr74831_)))) - (if _$e74838_ - ((lambda (_tab74841_) + (hash-get __thread-locals _thr74813_)))) + (if _$e74820_ + ((lambda (_tab74823_) (mutex-unlock! __thread-locals-mutex) - _tab74841_) - _$e74838_) - (let ((_tab74843_ + _tab74823_) + _$e74820_) + (let ((_tab74825_ (let () (declare (not safe)) (make-hash-table-eq)))) @@ -228,10 +228,10 @@ (declare (not safe)) (hash-put! __thread-locals - _thr74831_ - _tab74843_)) + _thr74813_ + _tab74825_)) (mutex-unlock! __thread-locals-mutex) - _tab74843_))))))))) + _tab74825_))))))))) (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 (_proc74828_) - (if (let () (declare (not safe)) (procedure? _proc74828_)) + (lambda (_proc74810_) + (if (let () (declare (not safe)) (procedure? _proc74810_)) '#!void - (raise (let ((__obj74937 + (raise (let ((__obj74919 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj74937 + __obj74919 '"Bad argument; expected procedure or #f" 'where: 'unhandler-actor-exception-hook-set! 'irritants: - (let () (declare (not safe)) (cons _proc74828_ '()))) - __obj74937))) - (set! __unhandled-actor-exception-hook _proc74828_))) + (let () (declare (not safe)) (cons _proc74810_ '()))) + __obj74919))) + (set! __unhandled-actor-exception-hook _proc74810_))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_mx74816_ _proc74817_) - (let ((_handler74819_ (current-exception-handler))) + (lambda (_mx74798_ _proc74799_) + (let ((_handler74801_ (current-exception-handler))) (with-exception-handler - (lambda (_e74821_) - (let ((__tmp74945 + (lambda (_e74803_) + (let ((__tmp74927 (lambda () - (mutex-unlock! _mx74816_) - (_handler74819_ _e74821_)))) + (mutex-unlock! _mx74798_) + (_handler74801_ _e74803_)))) (declare (not safe)) - (with-catch void __tmp74945)) + (with-catch void __tmp74927)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _e74821_))) + (##thread-end-with-uncaught-exception! _e74803_))) (lambda () - (mutex-lock! _mx74816_) - (let ((_result74825_ (_proc74817_))) - (mutex-unlock! _mx74816_) - _result74825_)))))) + (mutex-lock! _mx74798_) + (let ((_result74807_ (_proc74799_))) + (mutex-unlock! _mx74798_) + _result74807_)))))) (define with-dynamic-lock - (lambda (_mx74811_ _proc74812_) + (lambda (_mx74793_ _proc74794_) (dynamic-wind - (lambda () (mutex-lock! _mx74811_)) - _proc74812_ - (lambda () (mutex-unlock! _mx74811_))))) + (lambda () (mutex-lock! _mx74793_)) + _proc74794_ + (lambda () (mutex-unlock! _mx74793_))))) (define with-exception-stack-trace__% - (lambda (_thunk74792_ _error-port74793_) + (lambda (_thunk74774_ _error-port74775_) (with-exception-handler - (let ((_E74795_ (current-exception-handler))) - (lambda (_exn74797_) + (let ((_E74777_ (current-exception-handler))) + (lambda (_exn74779_) (continuation-capture - (lambda (_cont74799_) + (lambda (_cont74781_) (if (dump-stack-trace?) (let () (declare (not safe)) (dump-stack-trace!__% - _cont74799_ - _exn74797_ - _error-port74793_)) + _cont74781_ + _exn74779_ + _error-port74775_)) '#!void) - (_E74795_ _exn74797_))))) - _thunk74792_))) + (_E74777_ _exn74779_))))) + _thunk74774_))) (define with-exception-stack-trace__0 - (lambda (_thunk74804_) - (let ((_error-port74806_ (current-error-port))) + (lambda (_thunk74786_) + (let ((_error-port74788_ (current-error-port))) (declare (not safe)) - (with-exception-stack-trace__% _thunk74804_ _error-port74806_)))) + (with-exception-stack-trace__% _thunk74786_ _error-port74788_)))) (define with-exception-stack-trace - (lambda _g74947_ - (let ((_g74946_ (let () (declare (not safe)) (##length _g74947_)))) - (cond ((let () (declare (not safe)) (##fx= _g74946_ 1)) - (apply (lambda (_thunk74804_) + (lambda _g74929_ + (let ((_g74928_ (let () (declare (not safe)) (##length _g74929_)))) + (cond ((let () (declare (not safe)) (##fx= _g74928_ 1)) + (apply (lambda (_thunk74786_) (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk74804_))) - _g74947_)) - ((let () (declare (not safe)) (##fx= _g74946_ 2)) - (apply (lambda (_thunk74808_ _error-port74809_) + (with-exception-stack-trace__0 _thunk74786_))) + _g74929_)) + ((let () (declare (not safe)) (##fx= _g74928_ 2)) + (apply (lambda (_thunk74790_ _error-port74791_) (let () (declare (not safe)) (with-exception-stack-trace__% - _thunk74808_ - _error-port74809_))) - _g74947_)) + _thunk74790_ + _error-port74791_))) + _g74929_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g74947_)))))) + _g74929_)))))) (define dump-stack-trace!__% - (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_) + (lambda (_cont74755_ _exn74756_ _error-port74757_) + (let ((_out74759_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _out74759_)) + (display '"*** Unhandled exception in " _out74759_) + (display (current-thread) _out74759_) + (newline _out74759_) + (display-exception _exn74756_ _out74759_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn74774_)) + (class-instance? StackTrace::t _exn74756_)) '#!void (begin - (display '"Continuation backtrace: " _out74777_) - (newline _out74777_) - (display-continuation-backtrace _cont74773_ _out74777_))) - (let ((__tmp74948 (get-output-string _out74777_))) + (display '"Continuation backtrace: " _out74759_) + (newline _out74759_) + (display-continuation-backtrace _cont74755_ _out74759_))) + (let ((__tmp74930 (get-output-string _out74759_))) (declare (not safe)) - (##write-string __tmp74948 _error-port74775_))))) + (##write-string __tmp74930 _error-port74757_))))) (define dump-stack-trace!__0 - (lambda (_cont74782_ _exn74783_) - (let ((_error-port74785_ (current-error-port))) + (lambda (_cont74764_ _exn74765_) + (let ((_error-port74767_ (current-error-port))) (declare (not safe)) - (dump-stack-trace!__% _cont74782_ _exn74783_ _error-port74785_)))) + (dump-stack-trace!__% _cont74764_ _exn74765_ _error-port74767_)))) (define dump-stack-trace! - (lambda _g74950_ - (let ((_g74949_ (let () (declare (not safe)) (##length _g74950_)))) - (cond ((let () (declare (not safe)) (##fx= _g74949_ 2)) - (apply (lambda (_cont74782_ _exn74783_) + (lambda _g74932_ + (let ((_g74931_ (let () (declare (not safe)) (##length _g74932_)))) + (cond ((let () (declare (not safe)) (##fx= _g74931_ 2)) + (apply (lambda (_cont74764_ _exn74765_) (let () (declare (not safe)) - (dump-stack-trace!__0 _cont74782_ _exn74783_))) - _g74950_)) - ((let () (declare (not safe)) (##fx= _g74949_ 3)) - (apply (lambda (_cont74787_ _exn74788_ _error-port74789_) + (dump-stack-trace!__0 _cont74764_ _exn74765_))) + _g74932_)) + ((let () (declare (not safe)) (##fx= _g74931_ 3)) + (apply (lambda (_cont74769_ _exn74770_ _error-port74771_) (let () (declare (not safe)) (dump-stack-trace!__% - _cont74787_ - _exn74788_ - _error-port74789_))) - _g74950_)) + _cont74769_ + _exn74770_ + _error-port74771_))) + _g74932_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g74950_)))))) + _g74932_)))))) (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 34978f39c..49d684824 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 1710833423) + (define gerbil/runtime/util::timestamp 1710943496) (begin (define displayln (lambda _args57303_ diff --git a/src/bootstrap/gerbil/runtime~0.scm b/src/bootstrap/gerbil/runtime~0.scm index 0d38ba378..03732455a 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 1710833424) '#!void) +(begin (define gerbil/runtime::timestamp 1710943497) '#!void) diff --git a/src/gerbil/runtime/mop.ss b/src/gerbil/runtime/mop.ss index d6d26ff41..a6a651f14 100644 --- a/src/gerbil/runtime/mop.ss +++ b/src/gerbil/runtime/mop.ss @@ -582,7 +582,9 @@ namespace: #f (unchecked-slot-set! obj slot val))) (def (class-slot-offset klass slot) - (symbolic-table-ref (&class-type-slot-table klass) slot #f)) + (if (symbolic? slot) + (symbolic-table-ref (&class-type-slot-table klass) slot #f) + (error "slot must be a symbol or keyword" slot))) (def (class-slot-ref klass obj slot) (if (class-instance? klass obj) @@ -607,14 +609,10 @@ namespace: #f (defrules __slot-e () ((_ obj slot K E) - (if (object? obj) - (let (klass (object-type obj)) - (cond - ((and (class-type? klass) - (class-slot-offset klass slot)) - => K) - (else (E obj slot)))) - (E obj slot)))) + (let (klass (class-of obj)) + (cond + ((class-slot-offset klass slot) => K) + (else (E obj slot)))))) (def (slot-ref obj slot (E __slot-error)) (__slot-e obj slot (lambda (off) (unchecked-field-ref obj off)) E)) @@ -645,10 +643,8 @@ namespace: #f (##structure-instance-of? obj (##type-id klass))) (def (class-instance? klass obj) - (and (object? obj) - (let (type (object-type obj)) - (and (class-type? type) - (subclass? type klass))))) + (let (type (class-of obj)) + (subclass? type klass))) (def (make-object klass k) (if (class-type-system? klass) @@ -791,6 +787,8 @@ namespace: #f (def (find-method klass obj id) (cond + ((not (symbol? id)) + (error "method id must be a symbol" method: id)) ((class-type? klass) (__find-method klass obj id)) ((##type? klass)